13 lines
237 B
VB.net
13 lines
237 B
VB.net
|
Namespace Abilities
|
|||
|
|
|
|||
|
|
Public Class CuteCharm
|
|||
|
|
|
|||
|
|
Inherits Ability
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New(56, "Cute Charm", "Contact with the Pok<6F>mon may cause infatuation.")
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
End Namespace
|