tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-09-26 11:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Translated BattleMenu

Browse Source
This commit is contained in:
Daniel S. Billing 2021-04-19 20:02:02 +02:00
parent 7999ccea56
commit 46217df368
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
P3D/Battle/BattleSystemV2/BattleMenu.vb
View File

@ -28,24 +28,24 @@
Select Case BattleScreen.FieldEffects.Weather
Case BattleWeather.WeatherTypes.Sunny
y = 0
t = "Sunny"
t = Localization.Translate("weather.sunny")
Case BattleWeather.WeatherTypes.Rain
y = 34
t = "Rain"
t = Localization.Translate("weather.rain")
Case BattleWeather.WeatherTypes.Sandstorm
y = 68
t = "Sandstorm"
t = Localization.Translate("weather.sandstorm")
Case BattleWeather.WeatherTypes.Hailstorm
y = 102
t = "Hailstorm"
t = Localization.Translate("weather.hailstorm")
Case BattleWeather.WeatherTypes.Foggy
x = 88
y = 0
t = "Foggy"
t = Localization.Translate("weather.foggy")
Case BattleWeather.WeatherTypes.Snow
x = 88
y = 34
t = "Snow"
t = Localization.Translate("weather.snow")
End Select
If y > -1 Then
@ -63,22 +63,22 @@
If .ElectricTerrain > 0 Then
x = 352
y = 0
t = "Electric Terrain"
t = Localization.Translate("terrain.electric")
End If
If .GrassyTerrain > 0 Then
x = 352
y = 34
t = "Grassy Terrain"
t = Localization.Translate("terrain.grassy")
End If
If .MistyTerrain > 0 Then
x = 352
y = 68
t = "Misty Terrain"
t = Localization.Translate("terrain.misty")
End If
If .PsychicTerrain > 0 Then
x = 352
y = 102
t = "Psychic Terrain"
t = Localization.Translate("terrain.psychic")
End If
End With
@ -629,24 +629,24 @@
_mainMenuItemList.Add(New MainMenuItem(0, "Throw Mud", 1, AddressOf MainMenuThrowMud))
_mainMenuItemList.Add(New MainMenuItem(0, "Throw Bait", 2, AddressOf MainMenuThrowBait))
_mainMenuItemList.Add(New MainMenuItem(3, "Run", 3, AddressOf MainMenuRun))
_mainMenuItemList.Add(New MainMenuItem(3, Localization.Translate("menu_run"), 3, AddressOf MainMenuRun))
Case BattleSystem.BattleScreen.BattleModes.BugContest
_mainMenuItemList.Add(New MainMenuItem(0, "Battle", 0, AddressOf MainMenuOpenBattleMenu))
_mainMenuItemList.Add(New MainMenuItem(0, Localization.Translate("menu_battle"), 0, AddressOf MainMenuOpenBattleMenu))
Dim sportBallText As String = "Sport Ball x" & Core.Player.Inventory.GetItemAmount(177).ToString()
If Core.Player.Inventory.GetItemAmount(177) = 0 Then
sportBallText = "No Sport Balls."
End If
_mainMenuItemList.Add(New MainMenuItem(4, sportBallText, 1, AddressOf MainMenuUseSportBall))
_mainMenuItemList.Add(New MainMenuItem(1, "Pokémon", 2, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(3, "Run", 3, AddressOf MainMenuRun))
_mainMenuItemList.Add(New MainMenuItem(1, Localization.Translate("menu_pokemon"), 2, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(3, Localization.Translate("menu_run"), 3, AddressOf MainMenuRun))
Case BattleSystem.BattleScreen.BattleModes.Standard
If BattleScreen.OwnFaint Then
_mainMenuIndex = 0
_mainMenuNextIndex = 0
_mainMenuItemList.Add(New MainMenuItem(1, "Pokémon", 0, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(1, Localization.Translate("menu_pokemon"), 0, AddressOf MainMenuOpenPokemon))
If BattleScreen.IsRemoteBattle AndAlso Not BattleScreen.IsHost Then
BattleScreen.OwnFaint = False
End If
@ -663,12 +663,12 @@
End If
BattleScreen.OppFaint = False
Else
_mainMenuItemList.Add(New MainMenuItem(0, "Battle", 0, AddressOf MainMenuOpenBattleMenu))
_mainMenuItemList.Add(New MainMenuItem(1, "Pokémon", 1, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(2, "Bag", 2, AddressOf MainMenuOpenBag))
_mainMenuItemList.Add(New MainMenuItem(0, Localization.Translate("menu_battle"), 0, AddressOf MainMenuOpenBattleMenu))
_mainMenuItemList.Add(New MainMenuItem(1, Localization.Translate("menu_pokemon"), 1, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(2, Localization.Translate("menu_bag"), 2, AddressOf MainMenuOpenBag))
If BattleScreen.IsTrainerBattle = False Then
_mainMenuItemList.Add(New MainMenuItem(3, "Run", 3, AddressOf MainMenuRun))
_mainMenuItemList.Add(New MainMenuItem(3, Localization.Translate("menu_run"), 3, AddressOf MainMenuRun))
MainMenuAddMegaEvolution(BattleScreen, 4)
Else
MainMenuAddMegaEvolution(BattleScreen, 3)
@ -676,9 +676,9 @@
End If
Case BattleSystem.BattleScreen.BattleModes.PVP
_mainMenuItemList.Add(New MainMenuItem(0, "Battle", 0, AddressOf MainMenuOpenBattleMenu))
_mainMenuItemList.Add(New MainMenuItem(1, "Pokémon", 1, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(3, "Surrender", 2, AddressOf MainMenuOpenBag))
_mainMenuItemList.Add(New MainMenuItem(0, Localization.Translate("menu_battle"), 0, AddressOf MainMenuOpenBattleMenu))
_mainMenuItemList.Add(New MainMenuItem(1, Localization.Translate("menu_pokemon"), 1, AddressOf MainMenuOpenPokemon))
_mainMenuItemList.Add(New MainMenuItem(3, Localization.Translate("menu_surrender"), 2, AddressOf MainMenuOpenBag))
End Select
End Sub
@ -762,7 +762,7 @@
BattleScreen.BattleQuery.Insert(0, New ToggleMenuQueryObject(True))
BattleScreen.BattleQuery.Add(BattleScreen.FocusOwnPlayer())
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Battle\running", False))
BattleScreen.BattleQuery.Add(New TextQueryObject("Got away safely!"))
BattleScreen.BattleQuery.Add(New TextQueryObject(Localization.Translate("got_away_safely")))
BattleScreen.BattleQuery.Add(New EndBattleQueryObject(False))
Battle.Won = True
Battle.Fled = True
@ -770,7 +770,7 @@
BattleScreen.BattleQuery.Clear()
BattleScreen.BattleQuery.Add(BattleScreen.FocusBattle())
BattleScreen.BattleQuery.Insert(0, New ToggleMenuQueryObject(True))
BattleScreen.Battle.InitializeRound(BattleScreen, New Battle.RoundConst With {.StepType = Battle.RoundConst.StepTypes.Text, .Argument = "Failed to run away."})
BattleScreen.Battle.InitializeRound(BattleScreen, New Battle.RoundConst With {.StepType = Battle.RoundConst.StepTypes.Text, .Argument = Localization.Translate("run_away_failed")})
End If
End Sub