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

Namespace Items.Berries

    <Item(2014, "Iapapa")>
    Public Class IapapaBerry

        Inherits Berry

        Public Sub New()
            MyBase.New(21600, "If held by a Pokémon, it restores the user's HP in a pinch, but it will cause confusion if the user hates the taste.", "22.3cm", "Soft", 2, 3)

            Me.Spicy = 0
            Me.Dry = 0
            Me.Sweet = 0
            Me.Bitter = 0
            Me.Sour = 15

            Me.Type = Element.Types.Dark
            Me.Power = 80
            Me.JuiceColor = "yellow"
            Me.JuiceGroup = 3
        End Sub

    End Class

End Namespace