P3D-Legacy/P3D/Pokemon/Items/Repels/RepelItem.vb

Namespace Items.Repels

    Public MustInherit Class RepelItem

        Inherits Item

        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False

        Public MustOverride ReadOnly Property RepelSteps As Integer

        Public Overrides Sub Use()
            If Core.Player.RepelSteps <= 0 Then
                Me.RemoveItem()
                Player.Temp.LastUsedRepel = ID

                SoundManager.PlaySound("Use_Repel", False)
                Screen.TextBox.Show(Core.Player.Name & " used a~" & Name & ".", {}, True, True)
                Core.Player.RepelSteps = RepelSteps
                PlayerStatistics.Track("[42]Repels used", 1)
            Else
                Screen.TextBox.Show("The Repel is still~in effect.", {}, True, True)
            End If
        End Sub

    End Class

End Namespace