Make menu screen localizable
This commit is contained in:
parent
e576f50c19
commit
a3f7bcaef0
|
@ -259,6 +259,7 @@ game_menu_trainer_card,<player.name>
|
|||
game_menu_save,Save
|
||||
game_menu_options,Options
|
||||
game_menu_exit,Exit Menu
|
||||
game_menu_end_contest,End Contest
|
||||
---
|
||||
NewGameScreen:
|
||||
new_game_intro_1,Hello!~Sorry to keep~you waiting!*Welcome to the world~of Pokémon!*My name is Oak.~People call me~Pokémon Prof.*This world is inhabited~by creatures that~we call
|
||||
|
|
|
@ -230,6 +230,7 @@ game_menu_trainer_card,<playername>
|
|||
game_menu_save,Opslaan
|
||||
game_menu_options,Opties
|
||||
game_menu_exit,Menu Verlaten
|
||||
game_menu_end_contest,Stop Wedstrijd
|
||||
---
|
||||
InventoryScreen:
|
||||
inventory_menu_bag,Tas
|
||||
|
|
|
@ -49,26 +49,26 @@
|
|||
If Screen.Level.SaveOnly = False Then
|
||||
|
||||
If Core.Player.HasPokedex = True Then
|
||||
_menuOptions.Add("Pokédex")
|
||||
_menuOptions.Add(Localization.GetString("game_menu_pokedex", "Pokédex"))
|
||||
End If
|
||||
|
||||
If Screen.Level.IsBugCatchingContest = True Then
|
||||
_menuOptions.AddRange({Screen.Level.BugCatchingContestData.GetSplit(2) & " x" & Core.Player.Inventory.GetItemAmount(177.ToString),
|
||||
"Bag",
|
||||
Localization.GetString("game_menu_bag", "Bag"),
|
||||
"|||" & Core.Player.Name, 'Trainer card
|
||||
"End Contest"})
|
||||
Localization.GetString("game_menu_end_contest", "End Contest")})
|
||||
Else
|
||||
If Core.Player.Pokemons.Count > 0 Then
|
||||
_menuOptions.Add("Pokémon")
|
||||
_menuOptions.Add(Localization.GetString("game_menu_party", "Pokémon"))
|
||||
End If
|
||||
_menuOptions.AddRange({"Bag",
|
||||
"|||" & Core.Player.Name,
|
||||
"Save"})
|
||||
_menuOptions.AddRange({Localization.GetString("game_menu_bag", "Bag"),
|
||||
"|||" & Localization.GetString("game_menu_trainer_card", Core.Player.Name),
|
||||
Localization.GetString("game_menu_save", "Save")})
|
||||
End If
|
||||
|
||||
_menuOptions.Add("Options")
|
||||
_menuOptions.Add(Localization.GetString("game_menu_options", "Options"))
|
||||
Else
|
||||
_menuOptions.Add("Save")
|
||||
_menuOptions.Add(Localization.GetString("game_menu_save", "Save"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
@ -288,15 +288,15 @@
|
|||
|
||||
Private Sub PressButton()
|
||||
Select Case _menuOptions(_menuIndex)
|
||||
Case "Pokédex"
|
||||
Case Localization.GetString("game_menu_pokedex", "Pokédex")
|
||||
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New PokedexSelectScreen(Me), Color.White, False))
|
||||
Case "Pokémon"
|
||||
Case Localization.GetString("game_menu_party", "Pokémon")
|
||||
SetScreen(New PartyScreen(Me))
|
||||
Case "Bag"
|
||||
Case Localization.GetString("game_menu_bag", "Bag")
|
||||
Core.SetScreen(New NewInventoryScreen(Me))
|
||||
Case "|||" & Core.Player.Name
|
||||
Case "|||" & Localization.GetString("game_menu_trainer_card", Core.Player.Name)
|
||||
Core.SetScreen(New NewTrainerScreen(Me))
|
||||
Case "Save"
|
||||
Case Localization.GetString("game_menu_save", "Save")
|
||||
If CBool(GameModeManager.GetGameRuleValue("SavingDisabled", "0")) = True AndAlso Core.Player.SandBoxMode = False Then
|
||||
Dim s As Screen = Core.CurrentScreen
|
||||
While Not s.PreScreen Is Nothing And s.Identification <> Identifications.OverworldScreen
|
||||
|
@ -307,13 +307,13 @@
|
|||
Else
|
||||
Core.SetScreen(New SaveScreen(Me))
|
||||
End If
|
||||
Case "Options"
|
||||
Case Localization.GetString("game_menu_options", "Options")
|
||||
Core.SetScreen(New NewOptionScreen(Me))
|
||||
Case "Exit"
|
||||
Case Localization.GetString("game_menu_exit", "Exit")
|
||||
Core.SetScreen(PreScreen)
|
||||
Case Screen.Level.BugCatchingContestData.GetSplit(2) & " x" & Core.Player.Inventory.GetItemAmount(177.ToString)
|
||||
Me.ShowBalls()
|
||||
Case "End Contest"
|
||||
Case Localization.GetString("game_menu_end_contest", "End Contest")
|
||||
Me.EndContest()
|
||||
End Select
|
||||
End Sub
|
||||
|
|
Loading…
Reference in New Issue