From 348ba89b153ad0be15cc4ee7588891f1ff71713d Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sat, 27 May 2023 16:52:36 +0200 Subject: [PATCH] Add localization for Voltorb Flip and Coin Case --- P3D/Content/Localization/Tokens_en.dat | 34 +++++++++++++++++++ P3D/Pokemon/Items/KeyItems/CoinCase.vb | 2 +- P3D/Screens/VoltorbFlipScreen.vb | 33 +++++++++--------- .../V2/ScriptCommands/DoScreen.vb | 8 ++--- 4 files changed, 56 insertions(+), 21 deletions(-) diff --git a/P3D/Content/Localization/Tokens_en.dat b/P3D/Content/Localization/Tokens_en.dat index 0c21c0b05..5e50310ad 100644 --- a/P3D/Content/Localization/Tokens_en.dat +++ b/P3D/Content/Localization/Tokens_en.dat @@ -401,6 +401,40 @@ black_out_screen_line3,to the nearest PokéCenter black_out_screen_line4,to prevent further injury black_out_screen_line5,to your Pokémon. --- +Voltorb Flip: +VoltorbFlip_LV.,LV. +VoltorbFlip_CurrentCoins_Line1,Coins found +VoltorbFlip_CurrentCoins_Line2,in this LV. +VoltorbFlip_TotalCoins_Line1,Total Coins +VoltorbFlip_TotalCoins_Line2,earned + +VoltorbFlip_MemoButton_Open_Line1,Open +VoltorbFlip_MemoButton_Open_Line2,Memos +VoltorbFlip_MemoButton_Close_Line1,Close +VoltorbFlip_MemoButton_Close_Line2,Memos + +VoltorbFlip_QuitQuestion_Question,Do you want to stop~playing Voltorb Flip? +VoltorbFlip_QuitQuestion_AnswerYes,Yes +VoltorbFlip_QuitQuestion_AnswerNo,No + +VoltorbFlip_GameWon_1,Game clear! You received~ +VoltorbFlip_GameWon_2,Coins! + +VoltorbFlip_GameLost,Oh no! You get 0 coins! + +VoltorbFlip_MaxCoins1,Your Coin Case can't fit~any more Coins!*You received~ +VoltorbFlip_MaxCoins2,Coins instead! + +VoltorbFlip_NewLevel_Lower1,Dropped to Game Lv. +VoltorbFlip_NewLevel_Lower2,! +VoltorbFlip_NewLevel_Same1,Ready to play Game Lv. +VoltorbFlip_NewLevel_Same2,! +VoltorbFlip_NewLevel_Higher1,Advanced to Game Lv. +VoltorbFlip_NewLevel_Higher2,! + +VoltorbFlip_GameOver1,Game Over!~Dropped to Game Lv. +VoltorbFlip_GameOver2,! +--- Battle: --- main: diff --git a/P3D/Pokemon/Items/KeyItems/CoinCase.vb b/P3D/Pokemon/Items/KeyItems/CoinCase.vb index 832b51ec4..ebad061a5 100644 --- a/P3D/Pokemon/Items/KeyItems/CoinCase.vb +++ b/P3D/Pokemon/Items/KeyItems/CoinCase.vb @@ -13,7 +13,7 @@ Namespace Items.KeyItems End Sub Public Overrides Sub Use() - Screen.TextBox.Show("Your coins:~" & Core.Player.Coins, {}, True, True) + Screen.TextBox.Show(Localization.GetString("item_use_54", "Your coins:~") & Core.Player.Coins, {}, True, True) End Sub End Class diff --git a/P3D/Screens/VoltorbFlipScreen.vb b/P3D/Screens/VoltorbFlipScreen.vb index a77b37b4a..ac81efdcf 100644 --- a/P3D/Screens/VoltorbFlipScreen.vb +++ b/P3D/Screens/VoltorbFlipScreen.vb @@ -170,15 +170,15 @@ Namespace VoltorbFlip End If 'Level - Dim LevelText As String = "LV." & CurrentLevel.ToString + Dim LevelText As String = Localization.GetString("VoltorbFlip_LV.", "LV.") & CurrentLevel.ToString Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 32), CInt(GameOrigin.Y + 32), 96, 96), mainBackgroundColor, False) SpriteBatch.DrawString(FontManager.MainFont, LevelText, New Vector2(CInt(GameOrigin.X + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).Y / 2)), Fontcolor) 'Current Coins Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 128 + 24), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, False) - Dim CurrentCoinsText1 As String = "Coins found" - Dim CurrentCoinsText2 As String = "in this LV." + Dim CurrentCoinsText1 As String = Localization.GetString("VoltorbFlip_CurrentCoins_Line1", "Coins found") + Dim CurrentCoinsText2 As String = Localization.GetString("VoltorbFlip_CurrentCoins_Line2", "in this LV.") Dim CurrentCoinsText3 As String = "" CurrentCoinsText3 &= "[" @@ -203,8 +203,8 @@ Namespace VoltorbFlip 'Total Coins Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 336 + 32), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, False) - Dim TotalCoinsText1 As String = "Total Coins" - Dim TotalCoinsText2 As String = "earned" + Dim TotalCoinsText1 As String = Localization.GetString("VoltorbFlip_TotalCoins_Line1", "Total Coins") + Dim TotalCoinsText2 As String = Localization.GetString("VoltorbFlip_TotalCoins_Line2", "earned") Dim TotalCoinsText3 As String = "" TotalCoinsText3 &= "[" @@ -319,11 +319,12 @@ Namespace VoltorbFlip Dim ButtonOriginX As Integer = CInt(BoardOrigin.X + BoardSize.Width + TileSize.Width / 4) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Button", New Rectangle(0, 0, 56, 56)), New Rectangle(ButtonOriginX, CInt(BoardOrigin.Y), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) - Dim ButtonTextTop As String = "Open" - Dim ButtonTextBottom As String = "Memos" + Dim ButtonTextTop As String = Localization.GetString("VoltorbFlip_MemoButton_Open_Line1", "Open") + Dim ButtonTextBottom As String = Localization.GetString("VoltorbFlip_MemoButton_Open_Line2", "Memos") If GameState = States.Memo Then - ButtonTextTop = "Close" + ButtonTextTop = Localization.GetString("VoltorbFlip_MemoButton_Close_Line1", "Close") + ButtonTextBottom = Localization.GetString("VoltorbFlip_MemoButton_Close_Line2", "Memos") End If SpriteBatch.DrawString(FontManager.MainFont, ButtonTextTop, New Vector2(CInt(ButtonOriginX + MemoMenuSize.Width / 2 - FontManager.MainFont.MeasureString(ButtonTextTop).X / 2), CInt(BoardOrigin.Y + 40)), Fontcolor) @@ -833,7 +834,7 @@ TryAgain: End If End If - Dim QuitQuestionText As String = "Do you want to stop~playing Voltorb Flip?%Yes|No%" + Dim QuitQuestionText As String = Localization.GetString("VoltorbFlip_QuitQuestion_Question", "Do you want to stop~playing Voltorb Flip?") & "%" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerYes", "Yes") & "|" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerNo", "No") & "%" 'Quiting Voltorb Flip If Controls.Dismiss(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then @@ -926,7 +927,7 @@ TryAgain: 'Level complete! If CurrentCoins >= MaxCoins AndAlso GameState = States.Game Then - Dim GameClearText = "Game clear! You received~" & CurrentCoins.ToString & " " & "Coins!" + Dim GameClearText = Localization.GetString("VoltorbFlip_GameWon_1", "Game clear! You received~") & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_GameWon_2", "Coins!") SoundManager.PlaySound("VoltorbFlip\WinGame") TextBox.Show(GameClearText) If Delay = 0 Then @@ -959,7 +960,7 @@ TryAgain: If Core.Player.Coins + TotalCoins > 50000 Then TotalCoins = 50000 - Core.Player.Coins CurrentCoins = 0 - TextBox.Show("Your Coin Case can't fit~any more Coins!*You received~" & TotalCoins.ToString & " " & "Coins instead!") + TextBox.Show(Localization.GetString("VoltorbFlip_MaxCoins1", "Your Coin Case can't fit~any more Coins!*You received~") & TotalCoins.ToString & " " & Localization.GetString("VoltorbFlip_MaxCoins2", "Coins instead!")) Quit() Else TotalCoins += CurrentCoins @@ -1061,15 +1062,15 @@ TryAgain: ConsecutiveWins = 0 End If If CurrentLevel < PreviousLevel Then - TextBox.Show("Dropped to Game Lv." & " " & CurrentLevel & "!") + TextBox.Show(Localization.GetString("VoltorbFlip_NewLevel_Lower1", "Dropped to Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_NewLevel_Lower2", "!")) End If If CurrentLevel = PreviousLevel Then - TextBox.Show("Ready to play Game Lv." & " " & CurrentLevel & "!") + TextBox.Show(Localization.GetString("VoltorbFlip_NewLevel_Same1", "Ready to play Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_NewLevel_Same2", "!")) End If If CurrentLevel > PreviousLevel Then - TextBox.Show("Advanced to Game Lv." & " " & CurrentLevel & "!") + TextBox.Show(Localization.GetString("VoltorbFlip_NewLevel_Higher1", "Advanced to Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_NewLevel_Higher2", "!")) End If Else Delay = 15 @@ -1138,7 +1139,7 @@ TryAgain: PreviousLevel = CurrentLevel SoundManager.PlaySound("VoltorbFlip\QuitGame", True) - TextBox.Show("Game Over!~Dropped to Game Lv." & " " & CurrentLevel & "!") + TextBox.Show(Localization.GetString("VoltorbFlip_GameOver1", "Game Over!~Dropped to Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_GameOver2", "!")) CurrentFlips = 0 TotalFlips = 0 @@ -1256,7 +1257,7 @@ TryAgain: If VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.Game Then SoundManager.PlaySound("VoltorbFlip\LoseGame", True) End If - Screen.TextBox.Show("Oh no! You get 0 coins!") + Screen.TextBox.Show(Localization.GetString("VoltorbFlip_GameLost", "Oh no! You get 0 coins!")) VoltorbFlipScreen.ConsecutiveWins = 0 VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.GameLost Else diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb index d96af6266..72472b68d 100644 --- a/P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb +++ b/P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb @@ -284,23 +284,23 @@ End If If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then If VoltorbFlip.VoltorbFlipScreen.TotalCoins > 0 Then - Screen.TextBox.Show("You've won" & " " & VoltorbFlip.VoltorbFlipScreen.TotalCoins & " " & "Coins!") + Screen.TextBox.Show(Localization.GetString("VoltorbFlip_AfterGame_Won1", "You've won") & " " & VoltorbFlip.VoltorbFlipScreen.TotalCoins & " " & Localization.GetString("VoltorbFlip_AfterGame_Won2", "Coins!")) Core.Player.Coins += VoltorbFlip.VoltorbFlipScreen.TotalCoins VoltorbFlip.VoltorbFlipScreen.TotalCoins = -1 IsReady = True Else - Screen.TextBox.Show("Too bad, you didn't win~any Coins!*Better luck next time!") + Screen.TextBox.Show(Localization.GetString("VoltorbFlip_AfterGame_Lost", "Too bad, you didn't win~any Coins!*Better luck next time!")) VoltorbFlip.VoltorbFlipScreen.TotalCoins = -1 IsReady = True End If End If Else - Screen.TextBox.Show("Your Coin Case is already full!") + Screen.TextBox.Show(Localization.GetString("VoltorbFlip_BeforeGame_FullCoinCase", "Your Coin Case is already full!")) IsReady = True End If Else - Screen.TextBox.Show("You don't have a Coin Case!~Come back when you have one!") + Screen.TextBox.Show(Localization.GetString("VoltorbFlip_BeforeGame_NoCoinCase", "You don't have a Coin Case!~Come back when you have one!")) IsReady = True End If CanContinue = False