make berries useable only when appropriate

P3D/Pokemon/Items/Berries/GrepaBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class GrepaBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base Sp. Def.", "14.9cm", "Soft", 2, 6)

P3D/Pokemon/Items/Berries/HondewBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class HondewBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base Sp. Atk.", "16.2cm", "Hard", 2, 6)

P3D/Pokemon/Items/Berries/KelpsyBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class KelpsyBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base Attack.", "38.1cm", "Hard", 2, 6)

P3D/Pokemon/Items/Berries/PersimBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class PersimBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
 
         Public Sub New()
             MyBase.New(14400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, it can recover from confusion on its own in battle.", "4.7cm", "Hard", 2, 3)

P3D/Pokemon/Items/Berries/PomegBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class PomegBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base HP.", "13.0cm", "Hard", 2, 3)

P3D/Pokemon/Items/Berries/QualotBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class QualotBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base Defense.", "11.0cm", "Hard", 2, 6)

P3D/Pokemon/Items/Berries/TamatoBerry.vb

@@ -4,6 +4,7 @@ Namespace Items.Berries
     Public Class TamatoBerry
 
         Inherits Berry
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
 
         Public Sub New()
             MyBase.New(21600, "A Berry to be consumed by Pokémon. Using it on a Pokémon makes it more friendly but lowers its base Speed.", "20.0m", "Soft", 2, 4)