Prevent berries with no usage from being used

P3D/Pokemon/Items/Berries/AguavBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class AguavBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(21600, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "6.4cm", "Super Hard", 2, 3)
 

P3D/Pokemon/Items/Berries/ApicotBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ApicotBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, its Sp. Def stat will increase when it's in a pinch.", "7.6cm", "Very Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/BabiriBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class BabiriBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Steel-type attack.", "26.5cm", "Super Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/ChartiBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ChartiBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Rock-type attack.", "2.8cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/ChilanBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ChilanBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one Normal-type attack.", "3.3cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/ChopleBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ChopleBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Fighting-type attack.", "7.7cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/CobaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class CobaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Flying-type attack.", "27.7cm", "Very Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/ColburBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ColburBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Dark-type attack.", "3.8cm", "Super Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/CustapBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class CustapBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon, it gets to move first just once in a pinch.", "26.7cm", "Super Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/EnigmaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class EnigmaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, being hit by a supereffective attack will restore its HP.", "15.5cm", "Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/FigyBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class FigyBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(18000, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "10.0cm", "Soft", 2, 3)
 

P3D/Pokemon/Items/Berries/GanlonBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class GanlonBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, its Defense stat will increase when it's in a pinch.", "3.3cm", "Very Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/HabanBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class HabanBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Dragon-type attack.", "2.3cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/IapapaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class IapapaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(21600, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "22.3cm", "Soft", 2, 3)
 

P3D/Pokemon/Items/Berries/JabocaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class JabocaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon, and if a foe's physical attack lands, the foe also takes damage.", "3.3cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/KasibBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class KasibBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Ghost-type attack.", "14.4cm", "Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/KebiaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class KebiaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Poison-type attack.", "8.9cm", "Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/KeeBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class KeeBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon, this Berry will increase the holder's Defense if it's hit with a physical move.", "5.0cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/LansatBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class LansatBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, its critical-hit ratio will increase when it's in a pinch.", "9.7cm", "Soft", 1, 2)
 

P3D/Pokemon/Items/Berries/LiechiBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class LiechiBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, its Attack stat will increase when it's in a pinch.", "11.1cm", "Very Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/MagoBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class MagoBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(21600, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "12.6cm", "Hard", 2, 3)
 

P3D/Pokemon/Items/Berries/MarangaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class MarangaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon, this Berry will increase the holder's Sp. Def if it's hit with a special move.", "18.6cm", "Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/MicleBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class MicleBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon, it raises the accuracy of a move just once in a pinch.", "4.1cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/OccaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class OccaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Fire-type attack.", "8.9cm", "Super Hard", 1, 5)
 

P3D/Pokemon/Items/Berries/PasshoBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class PasshoBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Water-type attack.", "3.3cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/PayapaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class PayapaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Psychic-type attack.", "25.1cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/PetayaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class PetayaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, its Sp. Atk stat will increase when it's in a pinch.", "23.7cm", "Very Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/RindoBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class RindoBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Grass-type attack.", "15.5cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/RoseliBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class RoseliBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Fairy-type attack.", "3.2cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/RowapBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class RowapBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "If held by a Pokémon and a special attack lands, the attacker takes damage. ", "13.2cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/SalacBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class SalacBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be held by Pokémon. If a Pokémon holds one, its Speed stat will increase when it's in a pinch. ", "9.4cm", "Very Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/ShucaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class ShucaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Ground-type attack.", "4.2cm", "Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/StarfBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class StarfBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, one of its stats will sharply increase when it's in a pinch.", "15.2cm", "Super Hard", 1, 2)
 

P3D/Pokemon/Items/Berries/TangaBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class TangaBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this berry will lessen the damage taken from one supereffective Bug-type attack.", "4.3cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/WacanBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class WacanBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this berry will lessen the damage taken from one supereffective Electric-type attack.", "25.0cm", "Very Soft", 1, 5)
 

P3D/Pokemon/Items/Berries/WikiBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class WikiBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(21600, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "11.5cm", "Hard", 2, 3)
 

P3D/Pokemon/Items/Berries/YacheBerry.vb

@@ -4,7 +4,8 @@ Namespace Items.Berries
     Public Class YacheBerry
 
         Inherits Berry
-
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Sub New()
             MyBase.New(64800, "If held by a Pokémon, this Berry will lessen the damage taken from one supereffective Ice-type attack.", "13.5cm", "Very Hard", 1, 5)