P3D-Legacy/P3D/Pokemon/Items/KeyItems/CoinCase.vb

Namespace Items.KeyItems

    <Item(54, "Coin Case")>
    Public Class CoinCase

        Inherits KeyItem

        Public Overrides ReadOnly Property Description As String = "A case for holding coins obtained at the Game Corner."
        Public Overrides ReadOnly Property CanBeUsed As Boolean = True

        Public Sub New()
            _textureRectangle = New Rectangle(168, 48, 24, 24)
        End Sub

        Public Overrides Sub Use()
            Screen.TextBox.Show(Localization.GetString("item_use_54", "Your coins:~") & Core.Player.Coins, {}, True, True)
        End Sub

    End Class

End Namespace