Add localization for Voltorb Flip and Coin Case

This commit is contained in:
JappaWakka 2023-05-27 16:52:36 +02:00
parent e2793e6a03
commit 348ba89b15
4 changed files with 56 additions and 21 deletions

View File

@ -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:

View File

@ -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

View File

@ -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

View File

@ -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