YouTube Video

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 = 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