Pokémon Óbice Menú

#===============================================================================
#===========================MENÚ DE USO EXCLUSIVO DE============================
#=================================POKEMON ÓBICE=================================
#============================HECHO POR FUEGOFATUO25=============================
#===============================================================================

class JuniorPauseMenu
  def update;end
  def initialize
    @select = 0
    @MenuPage = 1
  end
  def pbStartScene
    @sprites={}
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=99999
    pbSEPlay("menu")


   @sprites["back"]=IconSprite.new(0,0,@viewport)
   @sprites["back"].setBitmap("Graphics/Pictures/ObiceMenu/background")
   pbTexto
   items=["bag","party","pokedex","save","options","trainer"]
    counter = 0
  for i in 0...6
    @sprites["item_#{counter}"] = Sprite.new(@viewport)
    @sprites["item_#{counter}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/#{items[i]}")
    @sprites["item_#{counter}"].x= 10 + (i*82)
    @sprites["item_#{counter}"].y= 300
    counter += 1
  end
  def pbRestartIcons
    itembubble=["pokedexb","partyb","bagb","trainerb","saveb","optionsb"]
    items=["bag","party","pokedex","save","options","trainer"]
    counter = 0
    for i in 0...6
    @sprites["item_#{counter}"] = Sprite.new(@viewport)
    @sprites["item_#{counter}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/#{items[i]}")
    @sprites["item_#{counter}"].x= 10 + (i*82)
    @sprites["item_#{counter}"].y= 300

    counter += 1
   end
  end
  def pbDrawSelection
    itembubble=["pokedexb","partyb","bagb","trainerb","saveb","optionsb"]
    itemssel=["bags","partys","pokedexs","saves","optionss","trainers"]
    x=@select
    @sprites["seleccion_#{x}"]=Sprite.new(@viewport)
    @sprites["seleccion_#{x}"].x= 10 + (@select * 82)
    @sprites["seleccion_#{x}"].y=300
    @sprites["seleccion_#{x}"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/#{itemssel[x]}")
  end

  def pbBubbleGauge
    bubblegauge=["bubblegauge0","bubblegauge1","bubblegauge2","bubblegauge3","bubblegauge4","bubblegauge5"]
    x=@select
    @sprites["bubblegauge"]=Sprite.new(@viewport)
    @sprites["bubblegauge"].y=270
    @sprites["bubblegauge"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/#{bubblegauge[x]}")
    end

    @sprites["map"]=Sprite.new(@viewport)
    @sprites["map"].x=10
    @sprites["map"].y=172
    @sprites["map"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/map")

    @sprites["exit"]=Sprite.new(@viewport)
    @sprites["exit"].x=410
    @sprites["exit"].y=172
    @sprites["exit"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/exit")
    if $Trainer.pokemonCount>=1
    gauge=["partygauge1","partygauge2","partygauge3","partygauge4","partygauge5","partygauge6"]
      for party in 0...$Trainer.party.size
       @sprites["partygauge"]=Sprite.new(@viewport)
       @sprites["partygauge"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/ObiceMenu/#{gauge[party]}")
       @sprites["partygauge"].x=0
       @sprites["partygauge"].y=96
     end
    end
    pbBubbleGauge
    pbDrawSelection
    pbUpdate
  end
   def pbTexto
     if @MenuPage==1
      @sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
      overlay=@sprites["overlay"].bitmap
      overlay.clear
      baseColor=Color.new(255, 255, 255)
      shadowColor=Color.new(0,0,0)
      pbSetSystemFont(@sprites["overlay"].bitmap)
      textpos=[]
      textpos.push([_INTL("${1}",$Trainer.money),410,25,1,baseColor,shadowColor])
      textpos.push([_INTL("{1}",$Trainer.name),100,25,1,baseColor,shadowColor])
      pbDrawTextPositions(overlay,textpos)
      end
   end
   def pbEndScene
      @MenuPage=0
      pbSEPlay("BW2CloseMenu")
      pbDisposeSpriteHash(@sprites)
      @viewport.dispose if @viewport
   end

   def pbUpdate
     loop do
     Input.update
    if Input.trigger?(Input::RIGHT) && !(@select==5)
        @select+=1
        pbSEPlay("choose")
        pbRestartIcons
        pbBubbleGauge
        pbDrawSelection
    end

    if Input.trigger?(Input::LEFT) && !(@select<=0)
        @select-=1
        pbSEPlay("choose")
        pbRestartIcons
        pbBubbleGauge
        pbDrawSelection
    end
    if Input.trigger?(Input::F5)
      pbMap
    end
    if Input.trigger?(Input::B)
      pbEndScene
    end
    if Input.trigger?(Input::C)
      case @select
      when 0
        pbTrainerBag
      when 1
        pbParty
      when 2
        pbPokedex
      when 3
        pbSaveScreen
      when 4
        pbGameOptions
      when 5
        pbTrainerCard
      end
    end
     break if Input.trigger?(Input::B)
     break if @exit
    Graphics.update
  end
 end
end
#===========================================================================
def exitMenu
  pbSEPlay("BW2CloseMenu")
  pbFadeOutAndHide(@sprites)
  @exit = true
  @MenuPage=0
end
def pbGameOptions
  pbSEPlay("BW2MenuChoose")
  scene=PokemonOptionScene.new
  screen=PokemonOption.new(scene)
  pbFadeOutIn(99999) { screen.pbStartScreen(true) }
end

def pbTrainerBag
  pbSEPlay("BW2MenuChoose")
  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

def pbParty
  pbSEPlay("BW2MenuChoose")
  if Input.trigger?(Input::C)
    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
end

def pbTrainerCard
  pbSEPlay("BW2MenuChoose")
  scene=PokemonTrainerCardScene.new
  screen=PokemonTrainerCard.new(scene)
  pbFadeOutIn(99999) {
     screen.pbStartScreen
  }
end

def pbSaveScreen
  pbSEPlay("BW2MenuChoose")
  scene=PokemonSaveScene.new
  screen=PokemonSave.new(scene)
  if screen.pbSaveScreen
    endscene=false
  end
end

def pbPokedex
  pbSEPlay("BW2MenuChoose")
  if $Trainer.pokedex
      pbFadeOutIn(99999) {
      scene=PokemonPokedexScene.new
      screen=PokemonPokedex.new(scene)
      screen.pbStartScreen
      }
   elsif $PokemonGlobal.pokedexViable.length==1
      $PokemonGlobal.pokedexDex=$PokemonGlobal.pokedexViable[0]
      $PokemonGlobal.pokedexDex=-1 if $PokemonGlobal.pokedexDex==$PokemonGlobal.pokedexUnlocked.length-1
      pbFadeOutIn(99999) {
      scene=PokemonPokedexScene.new
      screen=PokemonPokedex.new(scene)
      screen.pbStartScreen
     }
   end
end