More PkMn Selection translatability

P3D/Content/Localization/Tokens_de.dat

@@ -67,6 +67,7 @@ global_give,Geben
 global_take,Nehmen
 global_toss,Wegwerfen
 global_switch,Tauschen
+global_learn,Learn
 global_pokemon_move_fly,Fliegen
 global_pokemon_move_rocksmash,Zertrümmerer
 global_pokemon_move_ride,Reiten

P3D/Content/Localization/Tokens_en.dat

@@ -67,6 +67,7 @@ global_give,Give
 global_take,Take
 global_toss,Toss
 global_switch,Switch
+global_learn,Learn
 global_pokemon_move_fly,Fly
 global_pokemon_move_rocksmash,Rock Smash
 global_pokemon_move_ride,Ride

P3D/Content/Localization/Tokens_fr.dat

@@ -66,6 +66,7 @@ global_give,Donner
 global_take,Prendre
 global_toss,Jeter
 global_switch,Changer
+global_learn,Learn
 global_pokemon_move_fly,Vol
 global_pokemon_move_rocksmash,Éclate-Roc
 global_pokemon_move_ride,Ride

P3D/Content/Localization/Tokens_nl.dat

@@ -67,6 +67,7 @@ global_give,Geef
 global_take,Neem
 global_toss,Gooi weg
 global_switch,Verwissel
+global_learn,Leer
 global_pokemon_move_fly,Vlieg
 global_pokemon_move_rocksmash,Steenknal
 global_pokemon_move_ride,Rijd

P3D/Content/Localization/Tokens_ptbr.dat

@@ -66,6 +66,7 @@ global_give,Dar
 global_take,Pegar
 global_toss,Jogar Fora
 global_switch,Trocar
+global_learn,Learn
 global_pokemon_move_fly,Fly
 global_pokemon_move_rocksmash,Rock Smash
 global_pokemon_move_ride,Ride

P3D/Pokemon/Items/Berries/AspearBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/CheriBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/ChestoBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/GrepaBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/HondewBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/KelpsyBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/LeppaBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/LumBerry.vb

@@ -21,7 +21,7 @@ Namespace Items.Berries
         End Sub
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/OranBerry.vb

@@ -28,7 +28,7 @@ Namespace Items.Berries
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/PechaBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/PomegBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/QualotBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/RawstBerry.vb

@@ -22,7 +22,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/SitrusBerry.vb

@@ -26,7 +26,7 @@ Namespace Items.Berries
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Berries/TamatoBerry.vb

@@ -23,7 +23,7 @@ Namespace Items.Berries
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/GameModeItem.vb

@@ -258,7 +258,7 @@ Public Class GameModeItem
             If gmTeachMove IsNot Nothing Then
                 If Core.Player.Pokemons.Count > 0 Then
                     SoundManager.PlaySound("PC\LogOn", False)
-                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                     AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                     Core.SetScreen(selScreen)
@@ -273,7 +273,7 @@ Public Class GameModeItem
                     Exit Sub
                 End If
                 If Core.Player.Pokemons.Count > 0 Then
-                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                     AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                     Core.SetScreen(selScreen)
@@ -282,7 +282,7 @@ Public Class GameModeItem
                 End If
             ElseIf gmCureStatusEffects IsNot Nothing AndAlso gmCureStatusEffects.Count > 0 Then
                 If Core.Player.Pokemons.Count > 0 Then
-                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                     AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                     Core.SetScreen(selScreen)
@@ -291,7 +291,7 @@ Public Class GameModeItem
                 End If
             ElseIf gmEvolutionPokemon IsNot Nothing AndAlso gmEvolutionPokemon.Count > 0 Then
                 If Core.Player.Pokemons.Count > 0 Then
-                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                     AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                     Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Antidote.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Awakening.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/BerryJuice.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/BurnHeal.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Elixir.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/EnergyPowder.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/EnergyRoot.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Ether.vb

@@ -13,7 +13,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Fanta.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/FreshWater.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/FullHeal.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/FullRestore.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/HealPowder.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/HyperPotion.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/IceHeal.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/LavaCookie.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Lemonade.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/MaxElixir.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/MaxEther.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/MaxPotion.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/MaxRevive.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/MooMooMilk.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/PPMax.vb

@@ -15,7 +15,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/PPUp.vb

@@ -15,7 +15,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/ParalyzeHeal.vb

@@ -14,7 +14,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/PewterCrunchies.vb

@@ -20,7 +20,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Potion.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/RageCandyBar.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/RareCandy.vb

@@ -17,7 +17,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/RevivalHerb.vb

@@ -20,7 +20,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/Revive.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/ShinyCandy.vb

@@ -17,7 +17,7 @@ Namespace Items.Medicine
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/SodaPop.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Medicine/SuperPotion.vb

@@ -19,7 +19,7 @@ Namespace Items.Medicine
                 Exit Sub
             End If
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/Standard/AbilityCapsule.vb

@@ -15,7 +15,7 @@ Namespace Items.Standard
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/StoneItem.vb

@@ -9,7 +9,7 @@ Namespace Items
 
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/TechMachine.vb

@@ -93,7 +93,7 @@
         Public Overrides Sub Use()
             If Core.Player.Pokemons.Count > 0 Then
                 SoundManager.PlaySound("PC\LogOn", False)
-                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+                Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_Learn", "Learn") & " " & Me.Attack.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                 AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
                 Core.SetScreen(selScreen)

P3D/Pokemon/Items/VitaminItem.vb

@@ -12,7 +12,7 @@ Namespace Items
         Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Overrides Sub Use()
-            Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+            Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
             AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
             Core.SetScreen(selScreen)

P3D/Pokemon/Items/WingItem.vb

@@ -13,7 +13,7 @@ Namespace Items
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 3000
 
         Public Overrides Sub Use()
-            Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
+            Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, Localization.GetString("global_use", "Use") & " " & Me.OneLineName(), True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
             AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
 
             Core.SetScreen(selScreen)

P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb

@@ -380,6 +380,7 @@
                     Dim canChooseEgg As Boolean = True
                     Dim canChooseFainted As Boolean = True
                     Dim canLearnAttack As Integer = -1
+                    Dim selectButtonText As String = Localization.GetString("global_select", "Select")
 
                     If argument <> "" Then
                         Dim data() As String = argument.Split(CChar(","))
@@ -396,12 +397,15 @@
                         If data.Length > 3 Then
                             canLearnAttack = CInt(data(3))
                         End If
+                        If data.Length > 4 Then
+                            selectButtonText = data(4)
+                        End If
                     End If
 
-                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Item.GetItemByID(5.ToString), Nothing, "Choose Pokémon", canExit, canChooseFainted, canChooseEgg) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = canExit}
+                    Dim selScreen = New PartyScreen(Core.CurrentScreen, Item.GetItemByID(5.ToString), Nothing, Localization.GetString("party_screen_ChoosePokemon", "Choose Pokémon"), canExit, canChooseFainted, canChooseEgg) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = canExit, .SelectButtonText = selectButtonText}
 
                     If canLearnAttack <> -1 Then
-                        selScreen = New PartyScreen(Core.CurrentScreen, Item.GetItemByID(5.ToString), Nothing, "Learn " & BattleSystem.Attack.GetAttackByID(canLearnAttack).Name, canExit, canChooseFainted, canChooseEgg) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = canExit}
+                        selScreen = New PartyScreen(Core.CurrentScreen, Item.GetItemByID(5.ToString), Nothing, Localization.GetString("global_Learn", "Learn") & " " & BattleSystem.Attack.GetAttackByID(canLearnAttack).Name, canExit, canChooseFainted, canChooseEgg) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = canExit, .SelectButtonText = selectButtonText}
                         selScreen.SetupLearnAttack(BattleSystem.Attack.GetAttackByID(canLearnAttack), 2, Nothing)
                     End If
                     AddHandler selScreen.SelectedObject, Nothing