Changed HealingItems

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Antidote.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
-        Public Sub New()
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
-            MyBase.New("Antidote", 100, ItemTypes.Medicine, 9, 1, 1, New Rectangle(168, 0, 24, 24), "A spray-type medicine for poisoning. It can be used once to lift the effects of being poisoned from a Pokémon.")
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for poisoning. It can be used once to lift the effects of being poisoned from a Pokémon."
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(168, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Awakening.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
-        Public Sub New()
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 250
-            MyBase.New("Awakening", 250, ItemTypes.Medicine, 12, 1, 1, New Rectangle(240, 0, 24, 24), "A spray-type medicine used against sleep. It can be used once to rouse a Pokémon from the clutches of sleep.")
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine used against sleep. It can be used once to rouse a Pokémon from the clutches of sleep."
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(240, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/BerryJuice.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
+        Public Overrides ReadOnly Property Description As String = "A 100 percent pure juice made of Berries. When consumed, it restores 20 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
-            MyBase.New("Berry Juice", 100, ItemTypes.Medicine, 139, 1, 0, New Rectangle(360, 120, 24, 24), "A 100 percent pure juice made of Berries. When consumed, it restores 20 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(360, 120, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/BurnHeal.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
-        Public Sub New()
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 250
-            MyBase.New("Burn Heal", 250, ItemTypes.Medicine, 10, 1, 1, New Rectangle(192, 0, 24, 24), "A spray-type medicine for treating burns. It can be used once to heal a Pokemon suffering from a burn.")
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating burns. It can be used once to heal a Pokemon suffering from a burn."
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(192, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Elixir.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 3000
-            MyBase.New("Elixir", 3000, ItemTypes.Medicine, 65, 1, 1, New Rectangle(408, 48, 24, 24), "This medicine can restore 10 PP to each of the moves that have been learned by a Pokémon.")
+        Public Overrides ReadOnly Property Description As String = "This medicine can restore 10 PP to each of the moves that have been learned by a Pokémon."
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(408, 48, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/EnergyPowder.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 500
+        Public Overrides ReadOnly Property Description As String = "A bitter medicine powder. When consumed, it restores 50 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
-            MyBase.New("Energy Powder", 500, ItemTypes.Medicine, 121, 1, 0, New Rectangle(0, 120, 24, 24), "A bitter medicine powder. When consumed, it restores 50 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(0, 120, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()
@@ -25,11 +22,11 @@ Namespace Items.Medicine
         End Sub
 
         Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
-            Dim r As Boolean = HealPokemon(PokeIndex, 50)
+            Dim success As Boolean = HealPokemon(PokeIndex, 50)
-            If r = True Then
+            If success Then
                 Core.Player.Pokemons(PokeIndex).ChangeFriendShip(Pokemon.FriendShipCauses.EnergyPowder)
             End If
-            Return r
+            Return success
         End Function
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Medicine/EnergyRoot.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 800
+        Public Overrides ReadOnly Property Description As String = "An extremely bitter medicinal root. When consumed, it restores 200 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
-            MyBase.New("Energy Root", 800, ItemTypes.Medicine, 122, 1, 0, New Rectangle(24, 120, 24, 24), "An extremely bitter medicinal root. When consumed, it restores 200 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(24, 120, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Ether.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 1200
-            MyBase.New("Ether", 1200, ItemTypes.Medicine, 63, 1, 1, New Rectangle(360, 48, 24, 24), "This medicine can restore 10 PP to a single selected move that has been learned by a Pokémon.")
+        Public Overrides ReadOnly Property Description As String = "This medicine can restore 10 PP to a single selected move that has been learned by a Pokémon."
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(360, 48, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Fanta.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 750
+        Public Overrides ReadOnly Property Description As String = "Fizzzzzz. When consumed, it restores 250 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
-            MyBase.New("Fanta", 750, ItemTypes.Medicine, 266, 1, 0, New Rectangle(48, 264, 24, 24), "Fizzzzzz. When consumed, it restores 250 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(48, 264, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/FreshWater.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
+        Public Overrides ReadOnly Property Description As String = "Water with a high mineral content. When consumed, it restores 50 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
-            MyBase.New("Fresh Water", 200, ItemTypes.Medicine, 46, 1, 0, New Rectangle(0, 48, 24, 24), "Water with a high mineral content. When consumed, it restores 50 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(0, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/FullHeal.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine that is broadly effective. It can be used once to heal all the status conditions of a Pokémon."
-            MyBase.New("Full Heal", 600, ItemTypes.Medicine, 38, 1, 1, New Rectangle(336, 24, 24, 24), "A spray-type medicine that is broadly effective. It can be used once to heal all the status conditions of a Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 600
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(336, 24, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/FullRestore.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A medicine that can be used to fully restore the HP of a single Pokémon and heal any status conditions it has."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 3000
+
         Public Sub New()
-            MyBase.New("Full Restore", 3000, ItemTypes.Medicine, 14, 1, 0, New Rectangle(288, 0, 24, 24), "A medicine that can be used to fully restore the HP of a single Pokémon and heal any status conditions it has.")
+            _textureRectangle = New Rectangle(288, 0, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/HealPowder.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A very bitter medicine powder. When consumed, it heals all of a Pokémon's status conditions."
-            MyBase.New("Heal Powder", 450, ItemTypes.Medicine, 123, 1, 1, New Rectangle(48, 120, 24, 24), "A very bitter medicine powder. When consumed, it heals all of a Pokémon's status conditions.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 450
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(48, 120, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/HyperPotion.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It can be used to restore 200 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 1200
+
         Public Sub New()
-            MyBase.New("Hyper Potion", 1200, ItemTypes.Medicine, 16, 1, 0, New Rectangle(336, 0, 24, 24), "A spray-type medicine for treating wounds. It can be used to restore 200 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(336, 0, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/IceHeal.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for freezing. It can be used once to defrost a Pokémon that has been frozen solid."
-            MyBase.New("Ice Heal", 250, ItemTypes.Medicine, 11, 1, 1, New Rectangle(216, 0, 24, 24), "A spray-type medicine for freezing. It can be used once to defrost a Pokémon that has been frozen solid.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 250
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(216, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/LavaCookie.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "Lavaridge Town's local specialty. It can be used once to heal all the status conditions of a Pokemon."
-            MyBase.New("Lava Cookie", 200, ItemTypes.Medicine, 7, 1, 1, New Rectangle(192, 192, 24, 24), "Lavaridge Town's local specialty. It can be used once to heal all the status conditions of a Pokemon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(192, 192, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Lemonade.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A very sweet and refreshing drink. When consumed, it restores 80 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 350
+
         Public Sub New()
-            MyBase.New("Lemonade", 350, ItemTypes.Medicine, 48, 1, 0, New Rectangle(48, 48, 24, 24), "A very sweet and refreshing drink. When consumed, it restores 80 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(48, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxElixir.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "This medicine can fully restore the PP of all of the moves that have been learned by a Pokémon."
-            MyBase.New("Max Elixir", 4500, ItemTypes.Medicine, 21, 1, 1, New Rectangle(456, 0, 24, 24), "This medicine can fully restore the PP of all of the moves that have been learned by a Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 4500
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(456, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxEther.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "This medicine can fully restore the PP of a single selected move that has been learned by a Pokémon."
-            MyBase.New("Max Ether", 2000, ItemTypes.Medicine, 64, 1, 1, New Rectangle(384, 48, 24, 24), "This medicine can fully restore the PP of a single selected move that has been learned by a Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2000
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(384, 48, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxPotion.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It will completely restore the max HP of a single Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2500
+
         Public Sub New()
-            MyBase.New("Max Potion", 2500, ItemTypes.Medicine, 15, 1, 0, New Rectangle(312, 0, 24, 24), "A spray-type medicine for treating wounds. It will completely restore the max HP of a single Pokémon.")
+            _textureRectangle = New Rectangle(312, 0, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxRevive.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits Item
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A medicine that can revive fainted Pokémon. It also fully restores a fainted Pokémon's maximum HP."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 4000
+
         Public Sub New()
-            MyBase.New("Max Revive", 4000, ItemTypes.Medicine, 40, 1, 0, New Rectangle(384, 24, 24, 24), "A medicine that can revive fainted Pokémon. It also fully restores a fainted Pokémon's maximum HP.")
+            _textureRectangle = New Rectangle(384, 24, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/MooMooMilk.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A bottle of highly nutritious milk. When consumed, it restores 100 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 500
+
         Public Sub New()
-            MyBase.New("Moomoo Milk", 500, ItemTypes.Medicine, 72, 1, 0, New Rectangle(72, 72, 24, 24), "A bottle of highly nutritious milk. When consumed, it restores 100 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(72, 72, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/PPMax.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A medicine that can optimally raise the maximum PP of a single move that has been learned by the target Pokémon."
-            MyBase.New("PP Max", 9800, ItemTypes.Medicine, 502, 1, 1, New Rectangle(120, 240, 24, 24), "A medicine that can optimally raise the maximum PP of a single move that has been learned by the target Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = False
+            _textureRectangle = New Rectangle(120, 240, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/PPUp.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A medicine that can slightly raise the maximum PP of a single move that has been learned by the target Pokémon."
-            MyBase.New("PP Up", 9800, ItemTypes.Medicine, 62, 1, 1, New Rectangle(336, 48, 24, 24), "A medicine that can slightly raise the maximum PP of a single move that has been learned by the target Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = False
+            _textureRectangle = New Rectangle(336, 48, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/ParalyzeHeal.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for paralysis. It can be used once to free a Pokémon that has been paralyzed."
-            MyBase.New("Paralyze Heal", 200, ItemTypes.Medicine, 13, 1, 1, New Rectangle(264, 0, 24, 24), "A spray-type medicine for paralysis. It can be used once to free a Pokémon that has been paralyzed.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(264, 0, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Potion.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It can be used to restore 20 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
+
         Public Sub New()
-            MyBase.New("Potion", 300, ItemTypes.Medicine, 18, 1, 0, New Rectangle(384, 0, 24, 24), "A spray-type medicine for treating wounds. It can be used to restore 20 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(384, 0, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/RageCandyBar.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A famous Mahogany Town candy tourists like to buy and take home. It restores the HP of one Pokémon by 20 points."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
+
         Public Sub New()
-            MyBase.New("RageCandyBar", 300, ItemTypes.Medicine, 114, 1, 0, New Rectangle(360, 96, 24, 24), "A famous Mahogany Town candy tourists like to buy and take home. It restores the HP of one Pokémon by 20 points.")
+            _textureRectangle = New Rectangle(360, 96, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/RareCandy.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits Item
 
+        Public Overrides ReadOnly Property Description As String = "A candy that is packed with energy. When consumed, it will instantly raise the level of a single Pokémon by one."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 4800
+        Public Overrides ReadOnly Property BattlePointsPrice As Integer = 48
+
         Public Sub New()
-            MyBase.New("Rare Candy", 4800, ItemTypes.Medicine, 32, 1, 1, New Rectangle(192, 24, 24, 24), "A candy that is packed with energy. When consumed, it will instantly raise the level of a single Pokémon by one.")
+            _textureRectangle = New Rectangle(192, 24, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._battlePointsPrice = 48
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/RevivalHerb.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits Item
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A terribly bitter medicinal herb. It revives a fainted Pokémon and fully restores its maximum HP."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2800
+
         Public Sub New()
-            MyBase.New("Revival Herb", 2800, ItemTypes.Medicine, 124, 1, 0, New Rectangle(72, 120, 24, 24), "A terribly bitter medicinal herb. It revives a fainted Pokémon and fully restores its maximum HP.")
+            _textureRectangle = New Rectangle(72, 120, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/Revive.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits Item
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A medicine that can revive fainted Pokémon. It also restores half of a fainted Pokémon's HP."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 1500
+
         Public Sub New()
-            MyBase.New("Revive", 1500, ItemTypes.Medicine, 39, 1, 0, New Rectangle(360, 24, 24, 24), "A medicine that can revive fainted Pokémon. It also restores half of a fainted Pokémon's HP.")
+            _textureRectangle = New Rectangle(360, 24, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/SacredAsh.vb

@@ -5,13 +5,11 @@ Namespace Items.Medicine
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "It revives all fainted Pokémon. In doing so, it also fully restores their HP."
-            MyBase.New("Sacred Ash", 200, ItemTypes.Medicine, 156, 1, 1, New Rectangle(24, 144, 24, 24), "It revives all fainted Pokémon. In doing so, it also fully restores their HP.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = True
+            _textureRectangle = New Rectangle(24, 144, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/ShinyCandy.vb

@@ -1,20 +1,15 @@
 Namespace Items.Medicine
 
-    ''' <summary>
-    ''' Not in the game...
-    ''' </summary>
     <Item(501, "Shiny Candy")>
     Public Class ShinyCandy
 
         Inherits Item
 
-        Public Sub New()
+        Public Overrides ReadOnly Property Description As String = "This mysterious candy sparkles when unwrapped. It attracts all sorts of Pokémon."
-            MyBase.New("Shiny Candy", 4800, ItemTypes.Medicine, 501, 1, 1, New Rectangle(96, 240, 24, 24), "This mysterious candy sparkles when unwrapped. It attracts all sorts of Pokémon.")
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 4800
 
-            Me._canBeUsed = True
+        Public Sub New()
-            Me._canBeUsedInBattle = False
+            _textureRectangle = New Rectangle(96, 240, 24, 24)
-            Me._canBeTraded = True
-            Me._canBeHold = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/SodaPop.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A highly carbonated soda drink. When consumed, it restores 60 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
+
         Public Sub New()
-            MyBase.New("Soda Pop", 300, ItemTypes.Medicine, 47, 1, 0, New Rectangle(24, 48, 24, 24), "A highly carbonated soda drink. When consumed, it restores 60 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(24, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/Medicine/SuperPotion.vb

@@ -5,15 +5,12 @@ Namespace Items.Medicine
 
         Inherits MedicineItem
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+        Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It can be used to restore 50 HP to an injured Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 700
+
         Public Sub New()
-            MyBase.New("Super Potion", 700, ItemTypes.Medicine, 17, 1, 0, New Rectangle(360, 0, 24, 24), "A spray-type medicine for treating wounds. It can be used to restore 50 HP to an injured Pokémon.")
+            _textureRectangle = New Rectangle(360, 0, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = True
-            Me._canBeTraded = True
-            Me._canBeHold = True
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()