13 lines
240 B
VB.net
13 lines
240 B
VB.net
|
Namespace Abilities
|
|||
|
|
|
|||
|
|
Public Class BattleArmor
|
|||
|
|
|
|||
|
|
Inherits Ability
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New(4, "Battle Armor", "The Pok<6F>mon is protected against critical hits.")
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
End Namespace
|