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 stone items.

This commit is contained in:
nilllzz 2016-09-21 00:50:35 +02:00
parent 33c861ee4f
commit 4ce2be7c08
12 changed files with 40 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,7 @@ Namespace Items
Inherits Item
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2100
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/Stones/DawnStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Standard
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that makes certain species of Pokémon evolve. It sparkles like eyes."
Public Sub New()
MyBase.New("Dawn Stone", 2100, ItemTypes.Standard, 137, 1, 0, New Rectangle(384, 192, 24, 24), "A peculiar stone that makes certain species of Pokémon evolve. It sparkles like eyes.")
_textureRectangle = New Rectangle(384, 192, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/DuskStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Standard
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that makes certain species of Pokémon evolve. It is as dark as dark can be."
Public Sub New()
MyBase.New("Dusk Stone", 2100, ItemTypes.Standard, 136, 1, 0, New Rectangle(360, 192, 24, 24), "A peculiar stone that makes certain species of Pokémon evolve. It is as dark as dark can be.")
_textureRectangle = New Rectangle(360, 192, 24, 24)
End Sub
End Class

12
2.5DHero/2.5DHero/Pokemon/Items/Stones/Everstone.vb
View File

@ -5,13 +5,13 @@ Namespace Items.Stones
Inherits Item
Public Sub New()
MyBase.New("Everstone", 200, ItemTypes.Standard, 112, 1, 0, New Rectangle(312, 96, 24, 24), "An item to be held by a Pokémon. A Pokémon holding this peculiar stone is prevented from evolving.")
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. A Pokémon holding this peculiar stone is prevented from evolving."
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(312, 96, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/FireStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. The stone has a fiery orange heart."
Public Sub New()
MyBase.New("Fire Stone", 2100, ItemTypes.Standard, 22, 1, 0, New Rectangle(480, 0, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. The stone has a fiery orange heart.")
_textureRectangle = New Rectangle(480, 0, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/LeafStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It has an unmistakable leaf pattern."
Public Sub New()
MyBase.New("Leaf Stone", 2100, ItemTypes.Standard, 34, 1, 0, New Rectangle(240, 24, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. It has an unmistakable leaf pattern.")
_textureRectangle = New Rectangle(240, 24, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/MoonStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It is as black as the night sky."
Public Sub New()
MyBase.New("Moon Stone", 2100, ItemTypes.Standard, 8, 1, 10, New Rectangle(144, 0, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. It is as black as the night sky.")
_textureRectangle = New Rectangle(144, 0, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/ShinyStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Standard
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that makes certain species of Pokémon evolve. It shines with a dazzling light."
Public Sub New()
MyBase.New("Shiny Stone", 2100, ItemTypes.Standard, 135, 1, 0, New Rectangle(336, 192, 24, 24), "A peculiar stone that makes certain species of Pokémon evolve. It shines with a dazzling light.")
_textureRectangle = New Rectangle(336, 192, 24, 24)
End Sub
End Class

12
2.5DHero/2.5DHero/Pokemon/Items/Stones/StickyRock.vb
View File

@ -5,13 +5,13 @@ Namespace Items.Stones
Inherits Item
Public Sub New()
MyBase.New("Sticky Rock", 300, ItemTypes.Standard, 262, 1.0F, 0, New Rectangle(480, 240, 24, 24), "It's a stone that sticks to other stones, but it's just a regular rock and has no effect on Pokémon.")
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 300
Public Overrides ReadOnly Property Description As String = "It's a stone that sticks to other stones, but it's just a regular rock and has no effect on Pokémon."
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(480, 240, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/SunStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It burns as red as the evening sun."
Public Sub New()
MyBase.New("Sun Stone", 2100, ItemTypes.Standard, 169, 1, 0, New Rectangle(312, 144, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. It burns as red as the evening sun.")
_textureRectangle = New Rectangle(312, 144, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/ThunderStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It has a distinct thunderbolt pattern."
Public Sub New()
MyBase.New("Thunder Stone", 2100, ItemTypes.Standard, 23, 1, 0, New Rectangle(0, 24, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. It has a distinct thunderbolt pattern.")
_textureRectangle = New Rectangle(0, 24, 24, 24)
End Sub
End Class

4
2.5DHero/2.5DHero/Pokemon/Items/Stones/WaterStone.vb
View File

@ -5,8 +5,10 @@ Namespace Items.Stones
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It is the blue of a pool of clear water."
Public Sub New()
MyBase.New("Water Stone", 2100, ItemTypes.Standard, 24, 1, 0, New Rectangle(24, 24, 24, 24), "A peculiar stone that can make certain species of Pokémon evolve. It is the blue of a pool of clear water.")
_textureRectangle = New Rectangle(24, 24, 24, 24)
End Sub
End Class