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 vitamin items

This commit is contained in:
nilllzz 2016-09-21 00:04:47 +02:00
parent e1b7eb7fcd
commit a8dbc470c0
7 changed files with 24 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2.5DHero/2.5DHero/Pokemon/Items/VitaminItem.vb
View File

@ -8,6 +8,12 @@ Namespace Items
Inherits Item
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Medicine
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
End Sub
''' <summary>
''' Checks if a Vitamin can be used on a Pokémon.

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/Calcium.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base Sp. Atk stat of a single Pokémon."
Public Sub New()
MyBase.New("Calcium", 9800, ItemTypes.Medicine, 31, 1, 1, New Rectangle(168, 24, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base Sp. Atk stat of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(168, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/Carbos.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base Speed stat of a single Pokémon."
Public Sub New()
MyBase.New("Carbos", 9800, ItemTypes.Medicine, 29, 1, 1, New Rectangle(120, 24, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base Speed stat of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(120, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/HPUp.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base HP of a single Pokémon."
Public Sub New()
MyBase.New("HP Up", 9800, ItemTypes.Medicine, 26, 1, 1, New Rectangle(48, 24, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base HP of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(48, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/Iron.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base Defense stat of a single Pokémon."
Public Sub New()
MyBase.New("Iron", 9800, ItemTypes.Medicine, 28, 1, 1, New Rectangle(96, 24, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base Defense stat of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(96, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/Protein.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base Attack stat of a single Pokémon."
Public Sub New()
MyBase.New("Protein", 9800, ItemTypes.Medicine, 27, 1, 1, New Rectangle(72, 24, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base Attack stat of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(72, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

13
2.5DHero/2.5DHero/Pokemon/Items/Vitamins/Zinc.vb
View File

@ -5,17 +5,10 @@ Namespace Items.Vitamins
Inherits VitaminItem
Public Overrides ReadOnly Property Description As String = "A nutritious drink for Pokémon. When consumed, it raises the base Sp. Def stat of a single Pokémon."
Public Sub New()
MyBase.New("Zinc", 9800, ItemTypes.Medicine, 25, 1, 1, New Rectangle(168, 192, 24, 24), "A nutritious drink for Pokémon. When consumed, it raises the base Sp. Def stat of a single Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))
_textureRectangle = New Rectangle(168, 192, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean