PokéMart/shop interface is now translatable

This commit is contained in:
JappaWakka 2025-05-23 11:01:35 +02:00
parent 12115e7d51
commit 1217ead8fd
9 changed files with 238 additions and 52 deletions

View File

@ -444,6 +444,31 @@ rename_screen_title_Question,Rename [NAME]?
rename_screen_title_EnterName,Enter name for [NAME]: rename_screen_title_EnterName,Enter name for [NAME]:
rename_screen_button_Rename,Rename rename_screen_button_Rename,Rename
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,You have run out of Pokémon! black_out_screen_line1,You have run out of Pokémon!
black_out_screen_line2,You will be brought black_out_screen_line2,You will be brought
@ -816,7 +841,7 @@ Places_Secret Laboratory,Secret Laboratory
Item categories: Item categories:
item_category_Standard,Items item_category_Standard,Items
item_category_Medicine,Medizin item_category_Medicine,Medizin
item_category_Machines,TM/VM item_category_Machines,TMs/VMs
item_category_Pokéballs,Pokébälle item_category_Pokéballs,Pokébälle
item_category_Plants,Pflanzen item_category_Plants,Pflanzen
item_category_KeyItems,Basis-Items item_category_KeyItems,Basis-Items

View File

@ -444,6 +444,31 @@ rename_screen_title_Question,Rename [NAME]?
rename_screen_title_EnterName,Enter name for [NAME]: rename_screen_title_EnterName,Enter name for [NAME]:
rename_screen_button_Rename,Rename rename_screen_button_Rename,Rename
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,You have run out of Pokémon! black_out_screen_line1,You have run out of Pokémon!
black_out_screen_line2,You will be brought black_out_screen_line2,You will be brought
@ -817,7 +842,7 @@ Places_Secret Laboratory,Secret Laboratory
Item categories: Item categories:
item_category_Standard,Standard item_category_Standard,Standard
item_category_Medicine,Medicine item_category_Medicine,Medicine
item_category_Machines,Machines item_category_Machines,TMs/HMs
item_category_Pokéballs,Poké Balls item_category_Pokéballs,Poké Balls
item_category_Plants,Plants item_category_Plants,Plants
item_category_KeyItems,Key Items item_category_KeyItems,Key Items

View File

@ -446,6 +446,31 @@ rename_screen_title_Question,Rename [NAME]?
rename_screen_title_EnterName,Enter name for [NAME]: rename_screen_title_EnterName,Enter name for [NAME]:
rename_screen_button_Rename,Rename rename_screen_button_Rename,Rename
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,¡Te has quedado sin Pokémon! black_out_screen_line1,¡Te has quedado sin Pokémon!
black_out_screen_line2,serás traído black_out_screen_line2,serás traído

View File

@ -442,6 +442,31 @@ rename_screen_title_Question,Rename [NAME]?
rename_screen_title_EnterName,Enter name for [NAME]: rename_screen_title_EnterName,Enter name for [NAME]:
rename_screen_button_Rename,Rename rename_screen_button_Rename,Rename
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,Tu n'as plus de POKéMON en Forme! black_out_screen_line1,Tu n'as plus de POKéMON en Forme!
black_out_screen_line2,Tu sera transporter black_out_screen_line2,Tu sera transporter

View File

@ -431,6 +431,31 @@ rename_screen_title_Question,Hernoem [NAME]?
rename_screen_title_EnterName,Voer naam in voor [NAME]: rename_screen_title_EnterName,Voer naam in voor [NAME]:
rename_screen_button_Rename,Hernoem rename_screen_button_Rename,Hernoem
--- ---
Shop Screen:
shop_screen_title_store,Winkel
shop_screen_title_BuyItems,Koop Voorwerpen
shop_screen_title_BuyCategory,Koop [CATEGORY]
shop_screen_title_SellItems,Verkoop Voorwerpen
shop_screen_title_SellCategory,Verkoop [CATEGORY]
shop_screen_button_buy,Koop
shop_screen_button_sell,Verkoop
shop_screen_button_exit,Weg gaan
shop_screen_buy_NoItemsToBuy,Er zijn geen voorwerpen om te kopen.
shop_screen_buy_InStock,Op voorraad:
shop_screen_sell_NoItemsToSell,Je hebt geen voorwerpen om te verkopen.
shop_screen_sell_confirmation,Wil je [AMOUNT] [ITEM]~verkopen?
shop_screen_buysell_PricePerItem,Per Voorwerp:
shop_screen_buysell_PriceTotal,Totaal:
shop_screen_buysell_InInventory,In Inventaris:
shop_screen_buysell_DescriptionHint,Druk op [<system.button(special)>] of Select om de beschrijving van het voorwerp te bekijken.
shop_screen_buysell_CurrentBalance,Huidig Saldo:
shop_screen_currency_BattlePoints,Gevechtspunten
shop_screen_currency_Coins,Munten
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,GP
shop_screen_currency_short_Coins,M
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,Je hebt geen strijdbare Pokémon meer! black_out_screen_line1,Je hebt geen strijdbare Pokémon meer!
black_out_screen_line2,Je zult naar het dichtstbijzijnde black_out_screen_line2,Je zult naar het dichtstbijzijnde
@ -804,7 +829,7 @@ Places_Secret Laboratory,Geheim Laboratorium
Item categories: Item categories:
item_category_Standard,Standaard item_category_Standard,Standaard
item_category_Medicine,Medicijnen item_category_Medicine,Medicijnen
item_category_Machines,TM/VM item_category_Machines,TMs/VMs
item_category_Pokéballs,PokéBallen item_category_Pokéballs,PokéBallen
item_category_Plants,Planten item_category_Plants,Planten
item_category_KeyItems,Belangrijk item_category_KeyItems,Belangrijk

View File

@ -444,6 +444,31 @@ rename_screen_title_Question,Rename [POKEMON]?
rename_screen_title_EnterName,Enter name for [POKEMON]: rename_screen_title_EnterName,Enter name for [POKEMON]:
rename_screen_button_Rename,Rename rename_screen_button_Rename,Rename
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,You have run out of Pokémon! black_out_screen_line1,You have run out of Pokémon!
black_out_screen_line2,You will be brought black_out_screen_line2,You will be brought

View File

@ -187,8 +187,8 @@ fieldmove_dig_used,usou~Dig!
fieldmove_teleport_CannotUse,Não dá para usar Teleport aqui. fieldmove_teleport_CannotUse,Não dá para usar Teleport aqui.
fieldmove_teleport_used,usou~Teleport! fieldmove_teleport_used,usou~Teleport!
fieldmove_fly_CannotUse,You cannot Fly~from here! fieldmove_fly_CannotUse,Não pode usar Fly~desse lugar!
fieldmove_fly_used,used~Fly! fieldmove_fly_used,usou~Fly!
--- ---
GameInteractions: GameInteractions:
game_interaction_interact,Interagir game_interaction_interact,Interagir
@ -222,8 +222,8 @@ main_menu_gamejolt_ChangeToMale,Mudar para Masculino
main_menu_gamejolt_ChangeToFemale,Mudar para Feminino main_menu_gamejolt_ChangeToFemale,Mudar para Feminino
main_menu_gamejolt_ChangeToGenderless,Mudar para Não-Binário main_menu_gamejolt_ChangeToGenderless,Mudar para Não-Binário
main_menu_gamejolt_ResetSave,Resetar Salve main_menu_gamejolt_ResetSave,Resetar Salve
main_menu_error_gamemode_profile,O modo de jogo escolhido não existe! main_menu_error_gamemode_profile,O Modo de Jogo escolhido não existe!
main_menu_error_gamemode_message,O modo de jogo escolhido não existe.~Baixe novamente para jogar nesse Salve. main_menu_error_gamemode_message,O Modo de Jogo escolhido não existe.~Baixe novamente para jogar nesse Salve.
main_menu_error_gamejolt_1,Download falhou. Press Aceitar tentar denovo. main_menu_error_gamejolt_1,Download falhou. Press Aceitar tentar denovo.
main_menu_error_gamejolt_2,Se o problema persistir,tente novamente mais tarde main_menu_error_gamejolt_2,Se o problema persistir,tente novamente mais tarde
main_menu_error_gamejolt_3,ou fale conosco em nosso servidor do Discord: main_menu_error_gamejolt_3,ou fale conosco em nosso servidor do Discord:
@ -236,7 +236,7 @@ main_menu_options_contentpacks_line1,Pacotes
main_menu_options_contentpacks_line2,de Conteúdo main_menu_options_contentpacks_line2,de Conteúdo
GameModeMenu: GameModeMenu:
gamemode_menu_select1,Selecione o modo de jogo gamemode_menu_select1,Selecione o Modo de Jogo
gamemode_menu_select2,para começar um novo jogo. gamemode_menu_select2,para começar um novo jogo.
gamemode_menu_name,Nome gamemode_menu_name,Nome
gamemode_menu_description,Descrição gamemode_menu_description,Descrição
@ -246,7 +246,7 @@ gamemode_menu_contentpath,Local do Conteúdo
gamemode_menu_create,Criar gamemode_menu_create,Criar
gamemode_menu_back,Voltar gamemode_menu_back,Voltar
gamemode_name_Kolben,Pokémon 3D gamemode_name_Kolben,Pokémon 3D
gamemode_desc_Kolben,The normal GameMode. gamemode_desc_Kolben,O Modo de Jogo principal.
--- ---
JoinServerScreen: JoinServerScreen:
join_server_screen_title,Entre em um Servidor: join_server_screen_title,Entre em um Servidor:
@ -401,8 +401,8 @@ map_screen_cities,Cidades
map_screen_routes,Rotas map_screen_routes,Rotas
map_screen_places,Lugares map_screen_places,Lugares
map_screen_roaming,Pokémons na área map_screen_roaming,Pokémons na área
map_screen_PokemonAtPlace,[NAME] at [PLACE] map_screen_PokemonAtPlace,[NAME] em [PLACE]
map_screen_RegionSwitchHint,(Press the Shift Key/Shoulder Triggers to switch between regions.) map_screen_RegionSwitchHint,(Pressione a Tecla Shift /Gatilhos de ombro para alternar entre Regiões.)
--- ---
Trainer Card Screen: Trainer Card Screen:
trainer_screen_title,Cartão do Treinador trainer_screen_title,Cartão do Treinador
@ -443,6 +443,31 @@ rename_screen_title_Question,Renomear [NAME]?
rename_screen_title_EnterName,Escreva um nome para [NAME]: rename_screen_title_EnterName,Escreva um nome para [NAME]:
rename_screen_button_Rename,Renomear rename_screen_button_Rename,Renomear
--- ---
Shop Screen:
shop_screen_title_store,Store
shop_screen_title_BuyItems,Buy Items
shop_screen_title_BuyCategory,Buy [CATEGORY]
shop_screen_title_SellItems,Sell Items
shop_screen_title_SellCategory,Sell [CATEGORY]
shop_screen_button_buy,Buy
shop_screen_button_sell,Sell
shop_screen_button_exit,Exit
shop_screen_buy_NoItemsToBuy,There are no items to buy.
shop_screen_buy_InStock,In Stock:
shop_screen_sell_NoItemsToSell,You have no items to sell.
shop_screen_sell_confirmation,Do you want to sell~[AMOUNT] [ITEM]?
shop_screen_buysell_PricePerItem,Per Item:
shop_screen_buysell_PriceTotal,Total:
shop_screen_buysell_InInventory,In Inventory:
shop_screen_buysell_DescriptionHint,Press [<system.button(special)>] or Select to view the item's description.
shop_screen_buysell_CurrentBalance,Current Balance:
shop_screen_currency_BattlePoints,Battle Points
shop_screen_currency_Coins,Coins
shop_screen_currency_Pokédollars,$
shop_screen_currency_short_BattlePoints,BP
shop_screen_currency_short_Coins,C
shop_screen_currency_short_Pokédollars,$
---
Blackout Screen: Blackout Screen:
black_out_screen_line1,Você está sem Pokémons! black_out_screen_line1,Você está sem Pokémons!
black_out_screen_line2,Você vai ser levado black_out_screen_line2,Você vai ser levado
@ -817,7 +842,7 @@ Places_Secret Laboratory,Laboratório Secreto
Item categories: Item categories:
item_category_Standard,Itens Padrão/Seguravel item_category_Standard,Itens Padrão/Seguravel
item_category_Medicine,Medicinas item_category_Medicine,Medicinas
item_category_Machines,Maquinas item_category_Machines,TMs/HMs
item_category_Pokéballs,Pokébolas item_category_Pokéballs,Pokébolas
item_category_Plants,Plantas item_category_Plants,Plantas
item_category_KeyItems,Itens Chave item_category_KeyItems,Itens Chave
@ -2542,7 +2567,7 @@ Item Use Text:
item_cannot_use,Agora não é o momento certo~para usar isso. item_cannot_use,Agora não é o momento certo~para usar isso.
item_6_cannot_walk,Você não pode Andar Aqui! item_6_cannot_walk,Você não pode Andar Aqui!
item_6_missingskin,Você não pode usar esse item~sem uma skin de bicicleta.*O nome deve ser o mesmo~que o atual,~mas com "_bike" no final. item_6_missingskin,Você não pode usar esse item~sem uma skin de bicicleta.*O nome deve ser o mesmo~que o atual,~mas com "_bike" no final.
item_6_only_custom_gamemodes,Esse item não pode ser usado~nesse modo de jogo. item_6_only_custom_gamemodes,Esse item não pode ser usado~nesse Modo de Jogo.
Key Items: Key Items:
item_use_6,<player.name> desmontou~da Biscicleta. item_use_6,<player.name> desmontou~da Biscicleta.

View File

@ -199,7 +199,7 @@
Level.Load(Level.LevelFile) Level.Load(Level.LevelFile)
End If End If
If KeyBoardHandler.KeyPressed(Keys.Q) = True Or ControllerHandler.ButtonPressed(Buttons.X) = True Then If KeyBoardHandler.KeyPressed(KeyBindings.SpecialKey) = True Or ControllerHandler.ButtonPressed(Buttons.X) = True Then
Camera.Position = MapViewModePosition Camera.Position = MapViewModePosition
End If End If
End Sub End Sub

View File

@ -186,7 +186,7 @@ Public Class TradeScreen
Me.CanBuyItems = canBuy Me.CanBuyItems = canBuy
Me.CanSellItems = canSell Me.CanSellItems = canSell
Me.Title = "Store" Me.Title = Localization.GetString("shop_screen_title_store", "Store")
Me.CreateMainMenuButtons() Me.CreateMainMenuButtons()
End Sub End Sub
@ -194,12 +194,12 @@ Public Class TradeScreen
Private Sub CreateMainMenuButtons() Private Sub CreateMainMenuButtons()
If mainMenuButtons.Count = 0 Then If mainMenuButtons.Count = 0 Then
If CanBuyItems = True Then If CanBuyItems = True Then
mainMenuButtons.Add("Buy") mainMenuButtons.Add(Localization.GetString("shop_screen_button_buy", "Buy"))
End If End If
If CanSellItems = True Then If CanSellItems = True Then
mainMenuButtons.Add("Sell") mainMenuButtons.Add(Localization.GetString("shop_screen_button_sell", "Sell"))
End If End If
mainMenuButtons.Add("Exit") mainMenuButtons.Add(Localization.GetString("shop_screen_button_exit", "Exit"))
End If End If
End Sub End Sub
@ -276,7 +276,7 @@ Public Class TradeScreen
''' Updates the main screen. ''' Updates the main screen.
''' </summary> ''' </summary>
Private Sub UpdateMain() Private Sub UpdateMain()
Me.Title = "Store" Me.Title = Localization.GetString("shop_screen_title_store", "Store")
If Controls.Up(True, True, True, True, True, True) = True Then If Controls.Up(True, True, True, True, True, True) = True Then
Me.Cursor -= 1 Me.Cursor -= 1
@ -318,11 +318,11 @@ Public Class TradeScreen
Private Sub ClickMainButton() Private Sub ClickMainButton()
Select Case mainMenuButtons(Me.Cursor) Select Case mainMenuButtons(Me.Cursor)
Case "Buy" Case Localization.GetString("shop_screen_button_buy", "Buy")
Me.ButtonMainBuy() Me.ButtonMainBuy()
Case "Sell" Case Localization.GetString("shop_screen_button_sell", "Sell")
Me.ButtonMainSell() Me.ButtonMainSell()
Case "Exit" Case Localization.GetString("shop_screen_button_exit", "Exit")
Me.ButtonMainExit() Me.ButtonMainExit()
End Select End Select
End Sub End Sub
@ -396,7 +396,7 @@ Public Class TradeScreen
End Sub End Sub
Private Sub UpdateBuyCategory() Private Sub UpdateBuyCategory()
Me.Title = "Buy Items" Me.Title = Localization.GetString("shop_screen_title_BuyItems", "Buy Items")
If loadedBuyCategories.Count > 0 Then If loadedBuyCategories.Count > 0 Then
If Controls.Down(True, True, True, True, True, True) = True Then If Controls.Down(True, True, True, True, True, True) = True Then
@ -473,7 +473,7 @@ Public Class TradeScreen
If i <= Me.loadedBuyCategories.Count - 1 Then If i <= Me.loadedBuyCategories.Count - 1 Then
Dim p As Integer = i - Scroll Dim p As Integer = i - Scroll
DrawButton(New Vector2(100, 100 + p * 96), 5, Me.loadedBuyCategories(i).ToString(), 16, GetItemTypeTexture(Me.loadedBuyCategories(i))) DrawButton(New Vector2(100, 100 + p * 96), 5, Localization.GetString("item_category_" & Me.loadedBuyCategories(i).ToString(), Me.loadedBuyCategories(i).ToString()), 16, GetItemTypeTexture(Me.loadedBuyCategories(i)))
End If End If
Next Next
@ -500,7 +500,7 @@ Public Class TradeScreen
Me.DrawMainCursor() Me.DrawMainCursor()
Else Else
DrawBanner(New Vector2(CSng(Core.windowSize.Width / 2 - 250), CSng(Core.windowSize.Height / 2 - 50)), 100, "There are no items to buy.", FontManager.MainFont, 500) DrawBanner(New Vector2(CSng(Core.windowSize.Width / 2 - 250), CSng(Core.windowSize.Height / 2 - 50)), 100, Localization.GetString("shop_screen_buy_NoItemsToBuy", "There are no items to buy."), FontManager.MainFont, 500)
End If End If
End Sub End Sub
@ -528,7 +528,7 @@ Public Class TradeScreen
End Sub End Sub
Private Sub UpdateBuyItems() Private Sub UpdateBuyItems()
Me.Title = "Buy " & Me.CurrentCategory.ToString() Me.Title = Localization.GetString("shop_screen_title_BuyCategory", "Buy [CATEGORY]").Replace("[CATEGORY]", Localization.GetString("item_category_" & Me.CurrentCategory.ToString(), Me.CurrentCategory.ToString()))
If Controls.Down(True, True, True, True, True, True) = True Then If Controls.Down(True, True, True, True, True, True) = True Then
Me.Cursor += 1 Me.Cursor += 1
@ -744,6 +744,9 @@ Public Class TradeScreen
Next Next
If Me.BuyItemsList.Count > 0 Then If Me.BuyItemsList.Count > 0 Then
Dim DescriptionHint As String = ScriptVersion2.ScriptCommander.Parse(Localization.GetString("shop_screen_buysell_DescriptionHint", "Press [<system.button(special)>] or Select to view the item's description.")).ToString
Core.SpriteBatch.DrawString(FontManager.InGameFont, DescriptionHint, New Vector2(128 + 2, Core.windowSize.Width - 128 + 2), Color.Black)
Core.SpriteBatch.DrawString(FontManager.InGameFont, DescriptionHint, New Vector2(128, Core.windowSize.Width - 128), Color.White)
While BuyItemsList.Count <= Scroll + Cursor While BuyItemsList.Count <= Scroll + Cursor
Cursor -= 1 Cursor -= 1
@ -762,7 +765,7 @@ Public Class TradeScreen
If BuyItemsShowDescription = True Then If BuyItemsShowDescription = True Then
Canvas.DrawRectangle(New Rectangle(736 + 28, 160 + 28, 200, 200), New Color(0, 0, 0, 200)) Canvas.DrawRectangle(New Rectangle(736 + 28, 160 + 28, 200, 200), New Color(0, 0, 0, 200))
Dim t As String = selectedItem.GetItem().Description.CropStringToWidth(FontManager.MiniFont, 180) Dim t As String = selectedItem.GetItem().GetDescription().CropStringToWidth(FontManager.MiniFont, 180)
SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White) SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White)
End If End If
@ -773,9 +776,9 @@ Public Class TradeScreen
End While End While
Dim bannerText As String = "" Dim bannerText As String = ""
If selectedItem.Amount > -1 Then If selectedItem.Amount > -1 Then
bannerText = " | In Stock: " & selectedItem.Amount bannerText = " | " & Localization.GetString("shop_screen_buy_InStock", "In Stock:") & " " & selectedItem.Amount
End If End If
Me.DrawBanner(New Vector2(664, 430), 30, "In Inventory: " & amount & bannerText, FontManager.MainFont, 400) Me.DrawBanner(New Vector2(664, 430), 30, Localization.GetString("shop_screen_buysell_InInventory", "In Inventory:") & " " & amount & bannerText, FontManager.MainFont, 400)
' - button: ' - button:
Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White) Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
@ -795,8 +798,8 @@ Public Class TradeScreen
Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White) Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F) Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Per Item: " & selectedItem.Price.ToString() & GetCurrencyShort() & Environment.NewLine & Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("shop_screen_buysell_PricePerItem", "Per Item:") & " " & selectedItem.Price.ToString() & GetCurrencyShort() & Environment.NewLine &
"Total: " & (BuyItemsAmount * selectedItem.Price).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White) Localization.GetString("shop_screen_buysell_PriceTotal", "Total:") & " " & (BuyItemsAmount * selectedItem.Price).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White)
' Buy button: ' Buy button:
If Me.BuyItemsAmount > 0 Then If Me.BuyItemsAmount > 0 Then
@ -804,12 +807,12 @@ Public Class TradeScreen
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White) Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White)
End If End If
Me.DrawButton(New Vector2(664 + 32, 484 + 64 + 22), 1, "Buy", 64) Me.DrawButton(New Vector2(664 + 32, 484 + 64 + 22), 1, Localization.GetString("shop_screen_button_buy", "Buy"), 64)
End If End If
End If End If
' Current balance: ' Current balance:
Me.DrawBanner(New Vector2(664, 110), 30, "Current balance: " & GetCurrencyDisplay(), FontManager.MainFont, 400) Me.DrawBanner(New Vector2(664, 110), 30, Localization.GetString("shop_screen_buysell_CurrentBalance", "Current balance:") & " " & GetCurrencyDisplay(), FontManager.MainFont, 400)
' Cursor draw: ' Cursor draw:
Me.DrawMainCursor() Me.DrawMainCursor()
@ -834,7 +837,7 @@ Public Class TradeScreen
End Sub End Sub
Private Sub UpdateSellCategory() Private Sub UpdateSellCategory()
Me.Title = "Sell Items" Me.Title = Localization.GetString("shop_screen_title_SellItems", "Sell Items")
If Me.loadedSellCategories.Count > 0 Then If Me.loadedSellCategories.Count > 0 Then
If Controls.Down(True, True, True, True, True, True) = True Then If Controls.Down(True, True, True, True, True, True) = True Then
@ -911,13 +914,13 @@ Public Class TradeScreen
If i <= Me.loadedSellCategories.Count - 1 Then If i <= Me.loadedSellCategories.Count - 1 Then
Dim p As Integer = i - Scroll Dim p As Integer = i - Scroll
DrawButton(New Vector2(100, 100 + p * 96), 5, Me.loadedSellCategories(i).ToString(), 16, GetItemTypeTexture(Me.loadedSellCategories(i))) DrawButton(New Vector2(100, 100 + p * 96), 5, Localization.GetString("item_category_" & Me.loadedSellCategories(i).ToString(), Me.loadedSellCategories(i).ToString()), 16, GetItemTypeTexture(Me.loadedSellCategories(i)))
End If End If
Next Next
Me.DrawMainCursor() Me.DrawMainCursor()
Else Else
DrawBanner(New Vector2(CSng(Core.windowSize.Width / 2 - 250), CSng(Core.windowSize.Height / 2 - 50)), 100, "You have no items to sell.", FontManager.MainFont, 500) DrawBanner(New Vector2(CSng(Core.windowSize.Width / 2 - 250), CSng(Core.windowSize.Height / 2 - 50)), 100, Localization.GetString("shop_screen_sell_NoItemsToSell", "You have no items to sell."), FontManager.MainFont, 500)
End If End If
End Sub End Sub
@ -956,7 +959,7 @@ Public Class TradeScreen
End Sub End Sub
Private Sub UpdateSellItems() Private Sub UpdateSellItems()
Me.Title = "Sell " & Me.CurrentCategory.ToString() Me.Title = Localization.GetString("shop_screen_title_SellCategory", "Sell [CATEGORY]").Replace("[CATEGORY]", Localization.GetString("item_category_" & Me.CurrentCategory.ToString(), Me.CurrentCategory.ToString()))
If Controls.Down(True, True, True, True, True, True) = True Then If Controls.Down(True, True, True, True, True, True) = True Then
Me.Cursor += 1 Me.Cursor += 1
@ -1109,6 +1112,10 @@ Public Class TradeScreen
Next Next
If Me.SellItemsList.Count > 0 Then If Me.SellItemsList.Count > 0 Then
Dim DescriptionHint As String = ScriptVersion2.ScriptCommander.Parse(Localization.GetString("shop_screen_buysell_DescriptionHint", "Press [<system.button(special)>] or Select to view the item's description.")).ToString
Core.SpriteBatch.DrawString(FontManager.InGameFont, DescriptionHint, New Vector2(128 + 2, Core.windowSize.Width - 128 + 2), Color.Black)
Core.SpriteBatch.DrawString(FontManager.InGameFont, DescriptionHint, New Vector2(128, Core.windowSize.Width - 128), Color.White)
Dim selectedItem As TradeItem = Me.SellItemsList(Scroll + Cursor) Dim selectedItem As TradeItem = Me.SellItemsList(Scroll + Cursor)
' Item preview: ' Item preview:
@ -1123,7 +1130,7 @@ Public Class TradeScreen
If Me.SellItemsShowDescription = True Then If Me.SellItemsShowDescription = True Then
Canvas.DrawRectangle(New Rectangle(736 + 28, 160 + 28, 200, 200), New Color(0, 0, 0, 200)) Canvas.DrawRectangle(New Rectangle(736 + 28, 160 + 28, 200, 200), New Color(0, 0, 0, 200))
Dim t As String = selectedItem.GetItem().Description.CropStringToWidth(FontManager.MiniFont, 180) Dim t As String = selectedItem.GetItem().GetDescription().CropStringToWidth(FontManager.MiniFont, 180)
SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White) SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White)
End If End If
@ -1132,7 +1139,7 @@ Public Class TradeScreen
While amount.Length < 3 While amount.Length < 3
amount = "0" & amount amount = "0" & amount
End While End While
Me.DrawBanner(New Vector2(664, 430), 30, "In Inventory: " & amount, FontManager.MainFont, 400) Me.DrawBanner(New Vector2(664, 430), 30, Localization.GetString("shop_screen_buysell_InInventory", "In Inventory:") & " " & amount, FontManager.MainFont, 400)
' - button: ' - button:
Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White) Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
@ -1152,8 +1159,8 @@ Public Class TradeScreen
Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White) Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F) Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Per Item: " & selectedItem.SellPrice().ToString() & GetCurrencyShort() & Environment.NewLine & Core.SpriteBatch.DrawString(FontManager.MainFont, Localization.GetString("shop_screen_buysell_PricePerItem", "Per Item:") & " " & selectedItem.SellPrice().ToString() & GetCurrencyShort() & Environment.NewLine &
"Total: " & (SellItemsAmount * selectedItem.SellPrice()).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White) Localization.GetString("shop_screen_buysell_PriceTotal", "Total:") & " " & (SellItemsAmount * selectedItem.SellPrice()).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White)
' Sell button: ' Sell button:
If Me.SellItemsAmount > 0 Then If Me.SellItemsAmount > 0 Then
@ -1161,12 +1168,12 @@ Public Class TradeScreen
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White) Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White)
End If End If
Me.DrawButton(New Vector2(664 + 32, 484 + 64 + 22), 1, "Sell", 64) Me.DrawButton(New Vector2(664 + 32, 484 + 64 + 22), 1, Localization.GetString("shop_screen_button_sell", "Sell"), 64)
End If End If
End If End If
' Current balance: ' Current balance:
Me.DrawBanner(New Vector2(664, 110), 30, "Current balance: " & GetCurrencyDisplay(), FontManager.MainFont, 400) Me.DrawBanner(New Vector2(664, 110), 30, Localization.GetString("shop_screen_buysell_CurrentBalance", "Current balance:") & " " & GetCurrencyDisplay(), FontManager.MainFont, 400)
' Cursor draw: ' Cursor draw:
Me.DrawMainCursor() Me.DrawMainCursor()
@ -1222,15 +1229,19 @@ Public Class TradeScreen
Dim tradeItem As TradeItem = Me.SellItemsList(Me.Scroll + Me.Cursor) Dim tradeItem As TradeItem = Me.SellItemsList(Me.Scroll + Me.Cursor)
Dim text As String = "Do you want to sell" & Environment.NewLine & Me.SellItemsAmount & " " & tradeItem.GetItem().OneLineName & "?" Dim itemName As String = tradeItem.GetItem().OneLineName()
If Me.SellItemsAmount > 1 Then
itemName = tradeItem.GetItem().OneLinePluralName()
End If
Dim text As String = Localization.GetString("shop_screen_sell_confirmation", "Do you want to sell~[AMOUNT] [ITEM]?").Replace("~", Environment.NewLine).Replace("*", Environment.NewLine).Replace("[AMOUNT]", Me.SellItemsAmount.ToString).Replace("[ITEM]", itemName)
Core.SpriteBatch.DrawString(FontManager.MainFont, Core.SpriteBatch.DrawString(FontManager.MainFont,
text, text,
New Vector2(Core.windowSize.Width / 2.0F - FontManager.MainFont.MeasureString(text).X, Core.windowSize.Height / 2.0F - 170), New Vector2(Core.windowSize.Width / 2.0F - FontManager.MainFont.MeasureString(text).X, Core.windowSize.Height / 2.0F - 170),
Color.White, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F) Color.White, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F - 60), 4, "Sell", 16, Nothing) DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F - 60), 4, Localization.GetString("shop_screen_button_sell", "Sell"), 16, Nothing)
DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F + 36), 4, "Cancel", 16, Nothing) DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F + 36), 4, Localization.GetString("global_cancel", "Cancel"), 16, Nothing)
' Cursor: ' Cursor:
Dim cPosition As Vector2 = New Vector2(Core.windowSize.Width / 2.0F - 192 + 280, Core.windowSize.Height / 2.0F - 60 + Me.sellItemsConfirmationCursor * 96 - 42) Dim cPosition As Vector2 = New Vector2(Core.windowSize.Width / 2.0F - 192 + 280, Core.windowSize.Height / 2.0F - 60 + Me.sellItemsConfirmationCursor * 96 - 42)
@ -1338,11 +1349,11 @@ Public Class TradeScreen
Private Function GetCurrencyDisplay() As String Private Function GetCurrencyDisplay() As String
Select Case Me.Currency Select Case Me.Currency
Case Currencies.BattlePoints Case Currencies.BattlePoints
Return GetCurrencyAmount().ToString() & " Battle Points" Return GetCurrencyAmount().ToString() & " " & Localization.GetString("shop_screen_currency_BattlePoints", "Battle Points")
Case Currencies.Coins Case Currencies.Coins
Return GetCurrencyAmount().ToString() & " Coins" Return GetCurrencyAmount().ToString() & " " & Localization.GetString("shop_screen_currency_Coins", "Coins")
Case Currencies.Pokédollar Case Currencies.Pokédollar
Return GetCurrencyAmount().ToString() & "$" Return GetCurrencyAmount().ToString() & " " & Localization.GetString("shop_screen_currency_Pokédollars", "$")
End Select End Select
Return "" Return ""
End Function End Function
@ -1350,11 +1361,11 @@ Public Class TradeScreen
Private Function GetCurrencyShort() As String Private Function GetCurrencyShort() As String
Select Case Me.Currency Select Case Me.Currency
Case Currencies.BattlePoints Case Currencies.BattlePoints
Return "BP" Return Localization.GetString("shop_screen_currency_short_BattlePoints", "BP")
Case Currencies.Coins Case Currencies.Coins
Return "C" Return Localization.GetString("shop_screen_currency_short_Coins", "C")
Case Currencies.Pokédollar Case Currencies.Pokédollar
Return "$" Return Localization.GetString("shop_screen_currency_short_Pokédollars", "$")
End Select End Select
Return "" Return ""
End Function End Function