P3D-Legacy/P3D/Pokemon/Items/Stones/ThunderStone.vb

17 lines
423 B
VB.net
Raw Normal View History

Namespace Items.Stones
2016-09-07 18:50:38 +02:00
<Item(23, "Thunder Stone")>
2016-09-07 18:50:38 +02:00
Public Class ThunderStone
Inherits StoneItem
2016-09-07 18:50:38 +02:00
2016-09-21 00:50:35 +02:00
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."
2016-09-07 18:50:38 +02:00
Public Sub New()
2016-09-21 00:50:35 +02:00
_textureRectangle = New Rectangle(0, 24, 24, 24)
2016-09-07 18:50:38 +02:00
End Sub
End Class
End Namespace