tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 08:14:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Updated all medicine to GenVII

Browse Source
This commit is contained in:
FantaX1911 2019-01-30 16:57:18 +02:00
parent cd1bcf1907
commit 74ef66cc28
8 changed files with 42 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Pokemon/Items/Medicine/EnergyPowder.vb
View File

@ -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

4
P3D/Pokemon/Items/Medicine/EnergyRoot.vb
View File

@ -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

2
P3D/Pokemon/Items/Medicine/FreshWater.vb
View File

@ -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()

2
P3D/Pokemon/Items/Medicine/HyperPotion.vb
View File

@ -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()

2
P3D/Pokemon/Items/Medicine/Lemonade.vb
View File

@ -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()

35
P3D/Pokemon/Items/Medicine/RageCandyBar.vb
View File

@ -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

2
P3D/Pokemon/Items/Medicine/SodaPop.vb
View File

@ -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()

2
P3D/Pokemon/Items/Medicine/SuperPotion.vb
View File

@ -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()