P3D-Legacy/P3D/Pokemon/Items/Berries/EnigmaBerry.vb

Namespace Items.Berries

    <Item(2059, "Enigma")>
    Public Class EnigmaBerry

        Inherits Berry

        Public Sub New()
            MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, being hit by a supereffective attack will restore its HP.", "15.5cm", "Hard", 1, 2)

            Me.Spicy = 40
            Me.Dry = 10
            Me.Sweet = 0
            Me.Bitter = 0
            Me.Sour = 0

            Me.Type = Element.Types.Bug
            Me.Power = 100
        End Sub

    End Class

End Namespace
0.53.3 commit 2016-09-07 18:50:38 +02:00			`Namespace Items.Berries`

item access uses reflection instead of lookup table 2016-09-19 04:34:12 +02:00			`<Item(2059, "Enigma")>`
0.53.3 commit 2016-09-07 18:50:38 +02:00			`Public Class EnigmaBerry`

			`Inherits Berry`

			`Public Sub New()`
Changed berries 2016-09-20 05:42:56 +02:00			`MyBase.New(86400, "A Berry to be consumed by Pokémon. If a Pokémon holds one, being hit by a supereffective attack will restore its HP.", "15.5cm", "Hard", 1, 2)`
0.53.3 commit 2016-09-07 18:50:38 +02:00
			`Me.Spicy = 40`
			`Me.Dry = 10`
			`Me.Sweet = 0`
			`Me.Bitter = 0`
			`Me.Sour = 0`

			`Me.Type = Element.Types.Bug`
Roseli, Kee, Maranga added + berry BP update 2019-09-22 23:43:13 +02:00			`Me.Power = 100`
0.53.3 commit 2016-09-07 18:50:38 +02:00			`End Sub`

			`End Class`

item access uses reflection instead of lookup table 2016-09-19 04:34:12 +02:00			`End Namespace`