tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-04-08 18:35:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Prevent use pkmn or move items if no pkmn in party

Browse Source
This commit is contained in:
JappaWakka 2025-01-25 11:20:05 +01:00
parent 736af58545
commit df0e3ad85c
53 changed files with 401 additions and 174 deletions

10
P3D/Pokemon/Items/Berries/AspearBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/CheriBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/ChestoBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/GrepaBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/HondewBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/KelpsyBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/LeppaBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/LumBerry.vb

@ -20,10 +20,14 @@ Namespace Items.Berries
Me.JuiceGroup = 2
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/OranBerry.vb

@ -27,10 +27,14 @@ Namespace Items.Berries
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemHandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/PechaBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/PomegBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/QualotBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/RawstBerry.vb

@ -21,10 +21,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/SitrusBerry.vb

@ -25,10 +25,14 @@ Namespace Items.Berries
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Berries/TamatoBerry.vb

@ -22,10 +22,14 @@ Namespace Items.Berries
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

47
P3D/Pokemon/Items/GameModeItem.vb

@ -256,33 +256,50 @@ Public Class GameModeItem
End If
If gmTeachMove IsNot Nothing 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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).SetupLearnAttack(gmTeachMove, 1, Me)
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).SetupLearnAttack(gmTeachMove, 1, Me)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End If
If gmIsHealingItem = True Then
If CBool(GameModeManager.GetGameRuleValue("CanUseHealItems", "1")) = False Then
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
ElseIf gmCureStatusEffects IsNot Nothing AndAlso gmCureStatusEffects.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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
ElseIf gmEvolutionPokemon IsNot Nothing AndAlso gmEvolutionPokemon.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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.gmID
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.gmID
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End If
Else
Dim s As Screen = Core.CurrentScreen

10
P3D/Pokemon/Items/Medicine/Antidote.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Awakening.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/BerryJuice.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/BurnHeal.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Elixir.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/EnergyPowder.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/EnergyRoot.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Ether.vb

@ -12,10 +12,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Fanta.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/FreshWater.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/FullHeal.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/FullRestore.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/HealPowder.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/HyperPotion.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/IceHeal.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/LavaCookie.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Lemonade.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/MaxElixir.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/MaxEther.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/MaxPotion.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/MaxRevive.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/MooMooMilk.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/PPMax.vb

@ -14,10 +14,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/PPUp.vb

@ -14,10 +14,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/ParalyzeHeal.vb

@ -13,10 +13,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/PewterCrunchies.vb

@ -19,10 +19,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Potion.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/RageCandyBar.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/RareCandy.vb

@ -16,10 +16,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/RevivalHerb.vb

@ -19,10 +19,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/Revive.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/ShinyCandy.vb

@ -16,10 +16,14 @@ Namespace Items.Medicine
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/SodaPop.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Medicine/SuperPotion.vb

@ -18,10 +18,14 @@ Namespace Items.Medicine
Screen.TextBox.Show("Cannot use heal items.", {}, False, False)
Exit Sub
End If
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

10
P3D/Pokemon/Items/Standard/AbilityCapsule.vb

@ -14,10 +14,14 @@ Namespace Items.Standard
End Sub
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
Core.SetScreen(selScreen)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

13
P3D/Pokemon/Items/StoneItem.vb

@ -8,11 +8,16 @@ Namespace Items
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2100
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.ID.ToString
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.ID.ToString
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

15
P3D/Pokemon/Items/TechMachine.vb

@ -91,12 +91,17 @@
End Sub
Public Overrides Sub Use()
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
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}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).SetupLearnAttack(Attack, 1, Me)
Else
Screen.TextBox.Show("You don't have any Pokémon.", {}, False, False)
End If
Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).SetupLearnAttack(Attack, 1, Me)
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean