Interfaz AG

#Interfaz aventura gráfica

CIUDAD=["Ciudad","Ciudadela"
]

PUEBLO=["Pueblo"
]

CUEVA= ["Cueva"
]

RUTA=["Ruta"
]

RUINAS=["Ruinas"
]

class AventuraScene

    def initialize
     $game_temp.menu_calling = true
     $game_player.straighten
     $game_map.update
    end

    def aventura(op1="Avanzar",op2="Investigar",
    op3="Moverse hacia",op4="Buscar Pokémon")

    baseColor=Color.new(255,255,255)
    shadowColor=Color.new(0,0,0)

  if $game_map.name.include? "#{CIUDAD}.join("', '")}"
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/ciudad")
  elsif $game_map.name.include? "#{PUEBLO}.join("', '")}"
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/pueblo")
  elsif $game_map.name.include? "#{CUEVA}.join("', '")}"
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/cueva")
  elsif $game_map.name.include? "#{RUTA}.join("', '")}"
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/ruta")
  elsif $game_map.name.include? "#{RUINAS}.join("', '")}"
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/ruinas")
  else
    locicon=pbBitmap("Graphics/Pictures/ag_interfaz/location_icons/undefined")
  end

    @viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z = 99999
    @sprites = {}

    @sprites["bg"] = Sprite.new(@viewport)
    @sprites["bg"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/bg")
    @sprites["bg"].z = 99999

    @sprites["negro"] = Sprite.new(@viewport)
    @sprites["negro"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/barra")
    @sprites["negro"].x = 0
    @sprites["negro"].y = 0
    @sprites["negro"].z = 99998

    @sprites["dinero"] = Sprite.new(@viewport)
    @sprites["dinero"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/dinero")
    @sprites["dinero"].x = 350
    @sprites["dinero"].y = 10
    @sprites["dinero"].z = 99998

    @sprites["locicon"] = Sprite.new(@viewport)
    @sprites["locicon"].bitmap = locicon
    @sprites["locicon"].x = 22
    @sprites["locicon"].y = 10
    @sprites["locicon"].z = 99998

    textup=[]
    textup.push([_ISPRINTF("#{$game_map.name}"),48,16,false,baseColor,shadowColor])
    textup.push([_ISPRINTF("#{$Trainer.money}$"),404,16,false,baseColor,shadowColor])

    @sprites["text1"] = Sprite.new(@viewport)
    @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
    @sprites["text1"].x = 0
    @sprites["text1"].y = 96
    @sprites["text1"].z = 99998

    @sprites["text2"] = Sprite.new(@viewport)
    @sprites["text2"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
    @sprites["text2"].x = 0
    @sprites["text2"].y = 96+54+8
    @sprites["text2"].z = 99998

    @sprites["text3"] = Sprite.new(@viewport)
    @sprites["text3"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
    @sprites["text3"].x = 0
    @sprites["text3"].y = 96+54*2+16
    @sprites["text3"].z = 99998

    @sprites["text4"] = Sprite.new(@viewport)
    @sprites["text4"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
    @sprites["text4"].x = 0
    @sprites["text4"].y = 96+54*3+24
    @sprites["text4"].z = 99998

    textop=[]
    textop.push([_ISPRINTF("#{op1}"),10,114,false,baseColor,shadowColor])
    textop.push([_ISPRINTF("#{op2}"),10,114+54+8,false,baseColor,shadowColor])
    textop.push([_ISPRINTF("#{op3}"),10,114+54*2+16,false,baseColor,shadowColor])
    textop.push([_ISPRINTF("#{op4}"),10,114+54*3+24,false,baseColor,shadowColor])

    pbSetSystemFont(@sprites["bg"].bitmap)
    pbDrawTextPositions(@sprites["bg"].bitmap,textup)
    pbDrawTextPositions(@sprites["bg"].bitmap,textop)

    @sprites["menu"] = Sprite.new(@viewport)
    @sprites["menu"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/menu")
    @sprites["menu"].x = 436
    @sprites["menu"].y = 94
    @sprites["menu"].z = 99999
  end

    def pbUpdate

       btpressed=0
       loop do
            Input.update


            if Input.trigger?(Input::UP) || Input.trigger?(Input::DOWN)

              pbSEPlay("Select")
              @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106
              @sprites["pointer"].z = 99999

              btpressed=1

            elsif Input.trigger?(Input::UP) && btpressed==1
              pbSEPlay("Select")
              @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text4"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54*3+24
              @sprites["pointer"].z = 99999

              btpressed=4

            elsif Input.trigger?(Input::UP) && btpressed==4
              pbSEPlay("Select")
              @sprites["text4"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text3"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54*2+16
              @sprites["pointer"].z = 99999

              btpressed=3

            elsif Input.trigger?(Input::UP) && btpressed==3
              pbSEPlay("Select")
              @sprites["text3"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text2"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54+8
              @sprites["pointer"].z = 99999

              btpressed=2

            elsif Input.trigger?(Input::UP) && btpressed==2
              pbSEPlay("Select")
              @sprites["text2"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106
              @sprites["pointer"].z = 99999

              btpressed=1
            end

            if Input.trigger?(Input::DOWN) && btpressed==1
              pbSEPlay("Select")
              @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text2"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54+8
              @sprites["pointer"].z = 99999

              btpressed=2

            elsif Input.trigger?(Input::DOWN) && btpressed==2
              pbSEPlay("Select")
              @sprites["text2"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text3"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54*2+16
              @sprites["pointer"].z = 99999

              btpressed=3

            elsif Input.trigger?(Input::DOWN) && btpressed==3
              pbSEPlay("Select")
              @sprites["text3"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text4"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54*2+16
              @sprites["pointer"].z = 99999

              btpressed=4

            elsif Input.trigger?(Input::DOWN) && btpressed==4
              pbSEPlay("Select")
              @sprites["text4"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/noselec")
              @sprites["text1"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/selec")

              @sprites["pointer"] = Sprite.new(@viewport)
              @sprites["pointer"].bitmap = pbBitmap("Graphics/Pictures/ag_interfaz/flecha")
              @sprites["pointer"].x = 176
              @sprites["pointer"].y = 106+54*3+24
              @sprites["pointer"].z = 99999

              btpressed=1
            end

            if Input.trigger?(Input::C)
              case btpressed
              when 1
                p "hi"
                $game_variables[30]=1
                if $game_map.events.values[ID-1].name.include? "Interfaz"
                   $game_map.events.values[ID-1].start
                   Graphics.update
                   Input.update
                   break
                end
              when 2
                p "hi"
                $game_variables[30]=2
                if $game_map.events.values[ID-1].name.include? "Interfaz"
                   $game_map.events.values[ID-1].start
                   Graphics.update
                   Input.update
                   break

                end
             when 3
               p "hi"
                $game_variables[30]=3
                if $game_map.events.values[ID-1].name.include? "Interfaz"
                   $game_map.events.values[ID-1].start
                   Graphics.update
                   Input.update
                   break

                 end
              when 4
                p "hi"
                $game_variables[30]=4
                if $game_map.events.values[ID-1].name.include? "Interfaz"
                   $game_map.events.values[ID-1].start
                   Graphics.update
                   Input.update
                   break
                end
              end  #case
            end #if C

            if Input.trigger?(Input::E)
              p "E pulsada"
                sscene=PokemonScreen_Scene.new
                sscreen=PokemonScreen.new(sscene,$Trainer.party)
                hiddenmove=nil
                pbFadeOutIn(99999) {
                hiddenmove=sscreen.pbPokemonScreen
                if hiddenmove
                    pbEndScene
                else
#              @scene.pbRefresh
              end
              }
                if hiddenmove
                    Kernel.pbUseHiddenMove(hiddenmove[0],hiddenmove[1])
                return
                end
            end

            if Input.trigger?(Input::S)
              p "S pulsada"
               pbSaveScreen
            end

            if Input.trigger?(Input::D)
              p "D pulsada"
                item=0
                scene=PokemonBag_Scene.new
                screen=PokemonBagScreen.new(scene,$PokemonBag)
                pbFadeOutIn(99999) {
                item=screen.pbStartScreen
                if item>0
                  pbEndScene
                  else
               # @scene.pbRefresh
                end
                }
                if item>0
                Kernel.pbUseKeyItemInField(item)
                return
                end
            end

            if Input.trigger?(Input::X)
              p "X pulsada"
              pbShowMenu
            end

            pbWait(6)
          end #loop
      end #upadte
  end #class