###EXCLUSIVO para Pokemon Atlas
#Para abrirlo llama al método MemoryScene.new.pbMemory
RECUERDO1 = 49
RECUERDO2 = 50
RECUERDO3 = 51
RECUERDO4 = 52
RECUERDO5 = 53

class MemoryScene
  def pbMemory
    viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    viewport.z=999998
    pbSetViableDexes
    page = 1
    @sprites = {}
    @sprites["pagina"]=IconSprite.new(0,0,viewport)
    if $game_switches[RECUERDO1]
      @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R1")
    else
      @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
    end
    @sprites["pagina"].x =0
    @sprites["pagina"].y =0
    loop do
      Graphics.update
      Input.update
      if Input.trigger?(Input::B)
          pbSEPlay("select")
          pbFadeOutAndHide(@sprites){pbUpdateSpriteHash(@sprites)}
          viewport.dispose if viewport
          break
        end
        if Input.trigger?(Input::RIGHT) && page == 1
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          if $game_switches[RECUERDO2]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R2")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page += 1
        elsif Input.trigger?(Input::RIGHT) && page == 2
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          if $game_switches[RECUERDO3]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R3")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page += 1
        elsif Input.trigger?(Input::RIGHT) && page == 3
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          if $game_switches[RECUERDO4]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R4")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page += 1
        end
        if Input.trigger?(Input::LEFT) && page == 2
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          if $game_switches[RECUERDO1]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R1")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page -= 1
        elsif Input.trigger?(Input::LEFT) && page == 3
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          if $game_switches[RECUERDO2]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R2")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page -= 1
        elsif Input.trigger?(Input::LEFT) && page == 4
          pbSEPlay("page")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/6")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/5")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/4")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/3")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/2")
          pbWait(2)
          @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/1")
          pbWait(2)
          if $game_switches[RECUERDO3]
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/R3")
          else
            @sprites["pagina"].setBitmap("Graphics/Pictures/Recuerdos/0")
          end
          page -= 1
        end
      end
  end
end