[RPGXP] Script de combinaciones

class Flute
  
  def pbStartScene
    @sprites={}
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=99999
    
    @sprites["menubg"]=Sprite.new(@viewport)
    @sprites["menubg"].bitmap=RPG::Cache.picture("flute")
    @sprites["menubg"].x=0  
    @sprites["menubg"].z=0
    pbInitRafaTextSystem
    textos3=[]
  
    #textos3.push([_INTL("asdf"),300,10,false,@baseColor,@shadowColor])
  
    #textos3.push([_INTL("TEXTO"),X,Y,false,baseColor,shadowColor])
    
    pbDrawTextPositions(@overlay3,textos3) # LO IMPRIME EN PANTALLA
     
    pbSEPlay("menu")
  end

  def pbInitRafaTextSystem # INICIA EL SISTEMA DE TEXTOS
     @sprites["overlay3"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
     @sprites["overlay3"].z = 99999
     @overlay3=@sprites["overlay3"].bitmap
     @sprites["overlay3"].zoom_x=1
     @sprites["overlay3"].zoom_y=1
     @sprites["overlay3"].bitmap.clear
     @baseColor=Color.new(255, 255, 255) # COLOR DE FONT
     @shadowColor=Color.new(0,0,0) # COLOR DE SOMBRA
     pbSetSystemFont(@sprites["overlay3"].bitmap)
  end
 
  def pbEndScene # CUANDO TERMINA...
    pbDisposeSpriteHash(@sprites)
    @viewport.dispose if @viewport
  end

  def pbUpdate    
    @xcount=0
    @posible1=0
    @posible2=0
    @posible3=0
    total = 0
    count = 0
    correct = 0
    play= []
    n = $game_variables[119]
    i = $game_variables[120]
    #'dígitos'/respuestas posibles: UP, DOWN, LEFT, RIGHT
    song= [["UP","UP","UP","UP","UP","UP"],["DOWN","DOWN","DOWN","DOWN","DOWN","DOWN"]] #lista de combinaciones
      loop do
        Graphics.update
        Input.update
      #FUNCIONES AQUÍ#
        if total < 6 #cantidad de 'dígitos' por combinación, con un par de cambios se podría hacer que cada combinación tuviese una longitud diferente
          
        if Input.trigger?(Input::UP)#lo que pasa si pulsamos UP
          play[total] = 'UP'
          total += 1
          @sprites[total]=Sprite.new(@viewport)
          @sprites[total].bitmap=RPG::Cache.picture("key_UP")
          @sprites[total].x=60*total
          @sprites[total].y=180
          @sprites[total].z=1
        end
        if Input.trigger?(Input::DOWN)#lo que pasa si pulsamos DOWN
          play[total] = 'DOWN'
          total += 1
          @sprites[total]=Sprite.new(@viewport)
          @sprites[total].bitmap=RPG::Cache.picture("key_DOWN")
          @sprites[total].x=60*total
          @sprites[total].y=180
          @sprites[total].z=1
        end
        if Input.trigger?(Input::LEFT)#lo que pasa si pulsamos LEFT
          play[total] = 'LEFT'
          total += 1
          @sprites[total]=Sprite.new(@viewport)
          @sprites[total].bitmap=RPG::Cache.picture("key_LEFT")
          @sprites[total].x=60*total
          @sprites[total].y=180
          @sprites[total].z=1          
        end
        if Input.trigger?(Input::RIGHT)#lo que pasa si pulsamos RIGHT
          play[total] = 'RIGHT'
          total += 1
          @sprites[total]=Sprite.new(@viewport)
          @sprites[total].bitmap=RPG::Cache.picture("key_RIGHT")
          @sprites[total].x=60*total
          @sprites[total].y=180
          @sprites[total].z=1
        end

        
        if Input.trigger?(Input::B)#si pulsamos la X nos pregunta si queremos salir
          command=Kernel.pbMessage(_INTL("¿Quieres salir?"),[
            _INTL("Sí")
          ],-1)
          if command==0 # Read
            break
          end
        end
        else
          while count < 6 #se recorre la lista de 'dígitos' en la respuesta y el patrón para comprobar que es correcto
            if play[count] == song[n][count]
              correct += 1
            end
            count += 1  
          end
          if correct == 6 #cuando acaba el búcle, si el número de aciertos(correct) es igual al número de 'dígitos' la respuesta es correcta
            Kernel.pbMessage(_INTL("Patrón correcto ^^"))
            $game_switches[i] = true
            break
          else #sino la respuesta es incorrecta
            Kernel.pbMessage(_INTL("Patrón incorrecto D:"))
            break
          end
        end
      end
  end
    ################
end #CIERRA LA CLASE

class FluteScene
def initialize(scene)
 @scene=scene
end
def pbStartScreen
 @scene.pbStartScene
 @scene.pbUpdate
 @scene.pbEndScene
end
end

def pbCallFlute(n,i) #se llama al script, 'n' e 'i' son valores numéricos 
  $game_variables[119] = n
  $game_variables[120] = i
  scene=Flute.new
  screen=FluteScene.new(scene)
  screen.pbStartScreen
end