28 lines
1003 B
VB.net
28 lines
1003 B
VB.net
Namespace Items
|
|
|
|
''' <summary>
|
|
''' The base class for all Mega Stone items.
|
|
''' </summary>
|
|
Public MustInherit Class MegaStone
|
|
|
|
Inherits Item
|
|
|
|
Public ReadOnly Property MegaPokemonNumber As Integer
|
|
|
|
Public Overrides ReadOnly Property Description As String
|
|
Public Overrides ReadOnly Property CanBeTossed As Boolean = False
|
|
Public Overrides ReadOnly Property CanBeTraded As Boolean = False
|
|
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
|
|
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
|
|
|
|
Public Sub New(ByVal MegaPokemonName As String, ByVal _megaPokemonNumber As Integer)
|
|
Description = "One variety of the mysterious Mega Stones. Have " & MegaPokemonName & " hold it, and this stone will enable it to Mega Evolve during battle."
|
|
_textureSource = "Items\MegaStones"
|
|
|
|
MegaPokemonNumber = _megaPokemonNumber
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|