Prevent use pkmn or move items if no pkmn in party

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemHandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

P3D/Pokemon/Items/GameModeItem.vb

@@ -256,33 +256,50 @@ Public Class GameModeItem
             End If
 
             If gmTeachMove IsNot Nothing Then
-                SoundManager.PlaySound("PC\LogOn", False)
+                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}
+                    SoundManager.PlaySound("PC\LogOn", False)
-                AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                    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)
-                CType(CurrentScreen, PartyScreen).SetupLearnAttack(gmTeachMove, 1, Me)
+                    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}
+                If Core.Player.Pokemons.Count > 0 Then
-                AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                    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}
+                If Core.Player.Pokemons.Count > 0 Then
-                AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                    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}
+                If Core.Player.Pokemons.Count > 0 Then
-                AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                    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)
-                CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.gmID
+                    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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

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}
+            If Core.Player.Pokemons.Count > 0 Then
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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

P3D/Pokemon/Items/TechMachine.vb

@@ -91,12 +91,17 @@
         End Sub
 
         Public Overrides Sub Use()
-            SoundManager.PlaySound("PC\LogOn", False)
+            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}
+                SoundManager.PlaySound("PC\LogOn", False)
-            AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
+                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