tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed HealingItems

This commit is contained in:
nilllzz 2016-09-20 05:11:31 +02:00
parent c6fa81d048
commit 19f2c7d765
34 changed files with 157 additions and 246 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Antidote.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Sub New()
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 PokeDollarPrice As Integer = 100
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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(168, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Awakening.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Sub New()
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 PokeDollarPrice As Integer = 250
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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(240, 0, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/BerryJuice.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(360, 120, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/BurnHeal.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Sub New()
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 PokeDollarPrice As Integer = 250
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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(192, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Elixir.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 PokeDollarPrice As Integer = 3000
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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(408, 48, 24, 24)
End Sub
Public Overrides Sub Use()

19
2.5DHero/2.5DHero/Pokemon/Items/Medicine/EnergyPowder.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(0, 120, 24, 24)
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)
If r = True Then
Dim success As Boolean = HealPokemon(PokeIndex, 50)
If success Then
Core.Player.Pokemons(PokeIndex).ChangeFriendShip(Pokemon.FriendShipCauses.EnergyPowder)
End If
Return r
Return success
End Function
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/EnergyRoot.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(24, 120, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Ether.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 PokeDollarPrice As Integer = 1200
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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(360, 48, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Fanta.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(48, 264, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/FreshWater.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(0, 48, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/FullHeal.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 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."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 600
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(336, 24, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/FullRestore.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(288, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/HealPowder.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(48, 120, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/HyperPotion.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(336, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/IceHeal.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(216, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/LavaCookie.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(192, 192, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Lemonade.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(48, 48, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxElixir.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(456, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxEther.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(384, 48, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxPotion.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(312, 0, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/MaxRevive.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(384, 24, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/MooMooMilk.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(72, 72, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/PPMax.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 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."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(120, 240, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/PPUp.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 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."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(336, 48, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/ParalyzeHeal.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(264, 0, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Potion.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(384, 0, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/RageCandyBar.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(360, 96, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/RareCandy.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._battlePointsPrice = 48
_textureRectangle = New Rectangle(192, 24, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/RevivalHerb.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(72, 120, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/Revive.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(360, 24, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Medicine/SacredAsh.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Medicine
Inherits Item
Public Sub New()
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 Description As String = "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
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(24, 144, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/ShinyCandy.vb
View File

@ -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()
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 Description As String = "This mysterious candy sparkles when unwrapped. It attracts all sorts of Pokémon."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 4800
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(96, 240, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/SodaPop.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(24, 48, 24, 24)
End Sub
Public Overrides Sub Use()

13
2.5DHero/2.5DHero/Pokemon/Items/Medicine/SuperPotion.vb
View File

@ -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.")
Me._canBeUsed = True
Me._canBeUsedInBattle = True
Me._canBeTraded = True
Me._canBeHold = True
Me._isHealingItem = True
_textureRectangle = New Rectangle(360, 0, 24, 24)
End Sub
Public Overrides Sub Use()