Updated all medicine to GenVII

P3D/Pokemon/Items/Medicine/EnergyPowder.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A bitter medicine powder. When consumed, it restores 60 HP to an injured Pokémon."
         Public Overrides ReadOnly Property IsHealingItem As Boolean = True
 
         Public Sub New()
@@ -25,7 +25,7 @@ Namespace Items.Medicine
         End Sub
 
         Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
-            Dim success As Boolean = HealPokemon(PokeIndex, 50)
+            Dim success As Boolean = HealPokemon(PokeIndex, 60)
             If success Then
                 Core.Player.Pokemons(PokeIndex).ChangeFriendShip(Pokemon.FriendShipCauses.EnergyPowder)
             End If

P3D/Pokemon/Items/Medicine/EnergyRoot.vb

@@ -6,7 +6,7 @@ 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 Description As String = "An extremely bitter medicinal root. When consumed, it restores 120 HP to an injured Pokémon."
         Public Overrides ReadOnly Property IsHealingItem As Boolean = True
 
         Public Sub New()
@@ -25,7 +25,7 @@ Namespace Items.Medicine
         End Sub
 
         Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
-            Dim r As Boolean = HealPokemon(PokeIndex, 200)
+            Dim r As Boolean = HealPokemon(PokeIndex, 120)
             If r = True Then
                 Core.Player.Pokemons(PokeIndex).ChangeFriendShip(Pokemon.FriendShipCauses.EnergyRoot)
             End If

P3D/Pokemon/Items/Medicine/FreshWater.vb

@@ -6,7 +6,7 @@ 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 Description As String = "Water with a high mineral content. When consumed, it restores 30 HP to an injured Pokémon."
         Public Overrides ReadOnly Property IsHealingItem As Boolean = True
 
         Public Sub New()

P3D/Pokemon/Items/Medicine/HyperPotion.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A spray-type medicine for treating wounds. It can be used to restore 120 HP to an injured Pokémon."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 1500
 
         Public Sub New()

P3D/Pokemon/Items/Medicine/Lemonade.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A very sweet and refreshing drink. When consumed, it restores 70 HP to an injured Pokémon."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 350
 
         Public Sub New()

P3D/Pokemon/Items/Medicine/RageCandyBar.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A famous Mahogany Town candy tourists like to buy and take home. It can be used once to heal all the status conditions of a Pokémon."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
 
         Public Sub New()
@@ -25,7 +25,38 @@ Namespace Items.Medicine
         End Sub
 
         Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
-            Return HealPokemon(PokeIndex, 20)
+            Dim Pokemon As Pokemon = Core.Player.Pokemons(PokeIndex)
+
+            If Pokemon.Status = P3D.Pokemon.StatusProblems.Fainted Then
+                Screen.TextBox.reDelay = 0.0F
+                Screen.TextBox.Show(Pokemon.GetDisplayName() & "~is fainted!", {})
+
+                Return False
+            Else
+                If Pokemon.Status <> P3D.Pokemon.StatusProblems.None Or Pokemon.HasVolatileStatus(P3D.Pokemon.VolatileStatus.Confusion) = True Then
+                    Pokemon.Status = P3D.Pokemon.StatusProblems.None
+
+                    If Pokemon.HasVolatileStatus(P3D.Pokemon.VolatileStatus.Confusion) = True Then
+                        Pokemon.RemoveVolatileStatus(P3D.Pokemon.VolatileStatus.Confusion)
+                    End If
+
+                    Screen.TextBox.reDelay = 0.0F
+
+                    Dim t As String = Pokemon.GetDisplayName() & "~gets healed up!"
+                    t &= RemoveItem()
+
+                    SoundManager.PlaySound("single_heal", False)
+                    Screen.TextBox.Show(t, {})
+                    PlayerStatistics.Track("[17]Medicine Items used", 1)
+
+                    Return True
+                Else
+                    Screen.TextBox.reDelay = 0.0F
+                    Screen.TextBox.Show(Pokemon.GetDisplayName() & "~is fully healed!", {}, True, True)
+
+                    Return False
+                End If
+            End If
         End Function
 
     End Class

P3D/Pokemon/Items/Medicine/SodaPop.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A highly carbonated soda drink. When consumed, it restores 50 HP to an injured Pokémon."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
 
         Public Sub New()

P3D/Pokemon/Items/Medicine/SuperPotion.vb

@@ -6,7 +6,7 @@ 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 Description As String = "A spray-type medicine for treating wounds. It can be used to restore 60 HP to an injured Pokémon."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 700
 
         Public Sub New()