Namespace Items.KeyItems 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