Make menu screen localizable

This commit is contained in:
JappaWakka 2023-08-05 09:55:00 +02:00
parent e576f50c19
commit a3f7bcaef0
3 changed files with 19 additions and 17 deletions

View File

@ -259,6 +259,7 @@ game_menu_trainer_card,<player.name>
game_menu_save,Save game_menu_save,Save
game_menu_options,Options game_menu_options,Options
game_menu_exit,Exit Menu game_menu_exit,Exit Menu
game_menu_end_contest,End Contest
--- ---
NewGameScreen: 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 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

View File

@ -230,6 +230,7 @@ game_menu_trainer_card,<playername>
game_menu_save,Opslaan game_menu_save,Opslaan
game_menu_options,Opties game_menu_options,Opties
game_menu_exit,Menu Verlaten game_menu_exit,Menu Verlaten
game_menu_end_contest,Stop Wedstrijd
--- ---
InventoryScreen: InventoryScreen:
inventory_menu_bag,Tas inventory_menu_bag,Tas

View File

@ -49,26 +49,26 @@
If Screen.Level.SaveOnly = False Then If Screen.Level.SaveOnly = False Then
If Core.Player.HasPokedex = True Then If Core.Player.HasPokedex = True Then
_menuOptions.Add("Pokédex") _menuOptions.Add(Localization.GetString("game_menu_pokedex", "Pokédex"))
End If End If
If Screen.Level.IsBugCatchingContest = True Then If Screen.Level.IsBugCatchingContest = True Then
_menuOptions.AddRange({Screen.Level.BugCatchingContestData.GetSplit(2) & " x" & Core.Player.Inventory.GetItemAmount(177.ToString), _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 "|||" & Core.Player.Name, 'Trainer card
"End Contest"}) Localization.GetString("game_menu_end_contest", "End Contest")})
Else Else
If Core.Player.Pokemons.Count > 0 Then If Core.Player.Pokemons.Count > 0 Then
_menuOptions.Add("Pokémon") _menuOptions.Add(Localization.GetString("game_menu_party", "Pokémon"))
End If End If
_menuOptions.AddRange({"Bag", _menuOptions.AddRange({Localization.GetString("game_menu_bag", "Bag"),
"|||" & Core.Player.Name, "|||" & Localization.GetString("game_menu_trainer_card", Core.Player.Name),
"Save"}) Localization.GetString("game_menu_save", "Save")})
End If End If
_menuOptions.Add("Options") _menuOptions.Add(Localization.GetString("game_menu_options", "Options"))
Else Else
_menuOptions.Add("Save") _menuOptions.Add(Localization.GetString("game_menu_save", "Save"))
End If End If
End Sub End Sub
@ -288,15 +288,15 @@
Private Sub PressButton() Private Sub PressButton()
Select Case _menuOptions(_menuIndex) 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)) 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)) SetScreen(New PartyScreen(Me))
Case "Bag" Case Localization.GetString("game_menu_bag", "Bag")
Core.SetScreen(New NewInventoryScreen(Me)) Core.SetScreen(New NewInventoryScreen(Me))
Case "|||" & Core.Player.Name Case "|||" & Localization.GetString("game_menu_trainer_card", Core.Player.Name)
Core.SetScreen(New NewTrainerScreen(Me)) 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 If CBool(GameModeManager.GetGameRuleValue("SavingDisabled", "0")) = True AndAlso Core.Player.SandBoxMode = False Then
Dim s As Screen = Core.CurrentScreen Dim s As Screen = Core.CurrentScreen
While Not s.PreScreen Is Nothing And s.Identification <> Identifications.OverworldScreen While Not s.PreScreen Is Nothing And s.Identification <> Identifications.OverworldScreen
@ -307,13 +307,13 @@
Else Else
Core.SetScreen(New SaveScreen(Me)) Core.SetScreen(New SaveScreen(Me))
End If End If
Case "Options" Case Localization.GetString("game_menu_options", "Options")
Core.SetScreen(New NewOptionScreen(Me)) Core.SetScreen(New NewOptionScreen(Me))
Case "Exit" Case Localization.GetString("game_menu_exit", "Exit")
Core.SetScreen(PreScreen) Core.SetScreen(PreScreen)
Case Screen.Level.BugCatchingContestData.GetSplit(2) & " x" & Core.Player.Inventory.GetItemAmount(177.ToString) Case Screen.Level.BugCatchingContestData.GetSplit(2) & " x" & Core.Player.Inventory.GetItemAmount(177.ToString)
Me.ShowBalls() Me.ShowBalls()
Case "End Contest" Case Localization.GetString("game_menu_end_contest", "End Contest")
Me.EndContest() Me.EndContest()
End Select End Select
End Sub End Sub