Contingency PokeGear

  def pbStartScreen
    commands = []
    cmdDex     = -1
    cmdMap     = -1
    cmdCase     = -1
    cmdPhone   = -1
    cmdJukebox = -1
    commands[cmdDex = commands.length]     = ["dex",_INTL("PokéDex")]
    commands[cmdMap = commands.length]     = ["map",_INTL("Map")]
    commands[cmdCase = commands.length]     = ["case",_INTL("TM Case")]
    if $PokemonGlobal.phoneNumbers && $PokemonGlobal.phoneNumbers.length>0
      commands[cmdPhone = commands.length] = ["phone",_INTL("Phone")]
    end
    commands[cmdJukebox = commands.length] = ["jukebox",_INTL("Jukebox")]
    @scene.pbStartScene(commands)
    loop do
      cmd = @scene.pbScene
      if cmd<0
        break
      elsif cmdDex>=0 && cmd==cmdDex
        scene = PokemonPokedex_Scene.new
        screen = PokemonPokedexScreen.new(scene)
        screen.pbStartScreen
      elsif cmdMap>=0 && cmd==cmdMap
        pbShowMap(-1,false)
      elsif cmdCase>=0 && cmd==cmdCase
        TMCase.new
      elsif cmdPhone>=0 && cmd==cmdPhone
        pbFadeOutIn {
          PokemonPhoneScene.new.start
        }
      elsif cmdJukebox>=0 && cmd==cmdJukebox
        pbFadeOutIn {
          scene = PokemonJukebox_Scene.new
          screen = PokemonJukeboxScreen.new(scene)
          screen.pbStartScreen
        }
      end
    end
    @scene.pbEndScene
  end
end