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

This commit is contained in:
nilllzz 2016-09-21 00:15:51 +02:00
parent f1e9831497
commit d894927297
9 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2.5DHero/2.5DHero/Pokemon/Items/WingItem.vb
View File

@ -10,6 +10,7 @@ Namespace Items
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Medicine
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property FlingDamage As Integer = 20
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 3000
Public Overrides Sub Use()
Core.SetScreen(New ChoosePokemonScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True))

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/CleverWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base Sp. Def. stat of a single Pokémon."
Public Sub New()
MyBase.New("Clever Wing", 3000, ItemTypes.Medicine, 258, 1.0F, 0, New Rectangle(384, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base Sp. Def. stat of a single Pokémon.")
_textureRectangle = New Rectangle(384, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/GeniusWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base Sp. Atk. stat of a single Pokémon."
Public Sub New()
MyBase.New("Genius Wing", 3000, ItemTypes.Medicine, 257, 1.0F, 0, New Rectangle(360, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base Sp. Atk. stat of a single Pokémon.")
_textureRectangle = New Rectangle(360, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/HealthWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base HP stat of a single Pokémon."
Public Sub New()
MyBase.New("Health Wing", 3000, ItemTypes.Medicine, 254, 1.0F, 0, New Rectangle(288, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base HP of a single Pokémon.")
_textureRectangle = New Rectangle(288, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/MuscleWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base Attack stat of a single Pokémon."
Public Sub New()
MyBase.New("Muscle Wing", 3000, ItemTypes.Medicine, 255, 1.0F, 0, New Rectangle(312, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base Attack stat of a single Pokémon.")
_textureRectangle = New Rectangle(312, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

12
2.5DHero/2.5DHero/Pokemon/Items/Wings/PrettyWing.vb
View File

@ -5,13 +5,13 @@ Namespace Items.Wings
Inherits Item
Public Sub New()
MyBase.New("Pretty Wing", 200, ItemTypes.Standard, 260, 1.0F, 0, New Rectangle(432, 240, 24, 24), "Though this feather is beautiful, it's just a regular feather and has no effect on Pokémon.")
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property Description As String = "Though this feather is beautiful, it's just a regular feather and has no effect on Pokémon."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(432, 240, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/ResistWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base Defense stat of a single Pokémon."
Public Sub New()
MyBase.New("Resist Wing", 3000, ItemTypes.Medicine, 256, 1.0F, 0, New Rectangle(336, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base Defense stat of a single Pokémon.")
_textureRectangle = New Rectangle(336, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

15
2.5DHero/2.5DHero/Pokemon/Items/Wings/StickyWing.vb
View File

@ -5,15 +5,14 @@ Namespace Items.Wings
Inherits Item
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property Description As String = "It's a feather that sticks to other feathers, but it's just a regular feather and has no effect on Pokémon."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
Public Overrides ReadOnly Property FlingDamage As Integer = 20
Public Sub New()
MyBase.New("Sticky Wing", 200, ItemTypes.Standard, 261, 1.0F, 0, New Rectangle(456, 240, 24, 24), "It's a feather that sticks to other feathers, but it's just a regular feather and has no effect on Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 20
_textureRectangle = New Rectangle(456, 240, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Wings/SwiftWing.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Wings
Inherits WingItem
Public Overrides ReadOnly Property Description As String = "An item for use on a Pokémon. It slightly increases the base Speed stat of a single Pokémon."
Public Sub New()
MyBase.New("Swift Wing", 3000, ItemTypes.Medicine, 259, 1.0F, 0, New Rectangle(408, 240, 24, 24), "An item for use on a Pokémon. It slightly increases the base Speed stat of a single Pokémon.")
_textureRectangle = New Rectangle(408, 240, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean