23 lines
599 B
VB.net
23 lines
599 B
VB.net
Namespace Abilities
|
|
|
|
Public Class StanceChange
|
|
|
|
Inherits Ability
|
|
|
|
Public Sub New()
|
|
MyBase.New(176, "Stance Change", "The Pokémon changes form depending on how it battles.")
|
|
End Sub
|
|
|
|
Public Overrides Sub SwitchOut(parentPokemon As Pokemon)
|
|
parentPokemon.AdditionalData = ""
|
|
parentPokemon.ReloadDefinitions()
|
|
End Sub
|
|
|
|
Public Overrides Sub EndBattle(parentPokemon As Pokemon)
|
|
parentPokemon.AdditionalData = ""
|
|
parentPokemon.ReloadDefinitions()
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |