Changed key items

2.5DHero/2.5DHero/2.5DHero.vbproj

@@ -1049,6 +1049,7 @@
     <Compile Include="Pokemon\Items\KeyItems\GoodRod.vb" />
     <Compile Include="Pokemon\Items\KeyItems\GSBall.vb" />
     <Compile Include="Pokemon\Items\KeyItems\ItemFinder.vb" />
+    <Compile Include="Pokemon\Items\KeyItems\KeyItem.vb" />
     <Compile Include="Pokemon\Items\KeyItems\LostItem.vb" />
     <Compile Include="Pokemon\Items\KeyItems\MachinePart.vb" />
     <Compile Include="Pokemon\Items\KeyItems\MysteryEgg.vb" />

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/BasementKey.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(133, "Basement Key")>
     Public Class BasementKey
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A key that opens a door in the Goldenrod Tunnel."
 
         Public Sub New()
-            MyBase.New("Basement Key", 9800, ItemTypes.KeyItems, 133, 1, 0, New Rectangle(288, 120, 24, 24), "A key that opens a door in the Goldenrod Tunnel.")
+            _textureRectangle = New Rectangle(288, 120, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/Bicycle.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(6, "Bicycle")>
     Public Class Bicycle
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A folding Bicycle that enables much faster movement than the Running Shoes."
 
         Public Sub New()
-            MyBase.New("Bicycle", 9800, ItemTypes.KeyItems, 6, 1, 0, New Rectangle(120, 0, 24, 24), "A folding Bicycle that enables much faster movement than the Running Shoes.")
+            _textureRectangle = New Rectangle(120, 0, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/BlueCard.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(116, "Blue Card")>
     Public Class BlueCard
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A card to save points for the Buena's Password show."
 
         Public Sub New()
-            MyBase.New("Blue Card", 100, ItemTypes.KeyItems, 116, 1, 1, New Rectangle(408, 96, 24, 24), "A card to save points for the Buena's Password show.")
+            _textureRectangle = New Rectangle(408, 96, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/CardKey.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(127, "Card Key")>
     Public Class CardKey
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A card key that opens a shutter in the Radio Tower."
 
         Public Sub New()
-            MyBase.New("Card Key", 9800, ItemTypes.KeyItems, 127, 1, 0, New Rectangle(144, 120, 24, 24), "A card key that opens a shutter in the Radio Tower.")
+            _textureRectangle = New Rectangle(144, 120, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/CoinCase.vb

@@ -3,19 +3,17 @@ Namespace Items.KeyItems
     <Item(54, "Coin Case")>
     Public Class CoinCase
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A case for holding coins obtained at the Game Corner. It holds up to 50,000 coins."
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = True
 
         Public Sub New()
-            MyBase.New("Coin Case", 1337, ItemTypes.KeyItems, 54, 1, 0, New Rectangle(168, 48, 24, 24), "A case for holding coins obtained at the Game Corner. It holds up to 50,000 coins.")
+            _textureRectangle = New Rectangle(168, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
         Public Overrides Sub Use()
-            Screen.TextBox.Show("Your COINS:~" & Core.Player.Coins, {}, True, True)
+            Screen.TextBox.Show("Your coins:~" & Core.Player.Coins, {}, True, True)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/CrystalWing.vb

@@ -3,17 +3,12 @@ Namespace Items.KeyItems
     <Item(56, "Crystal Wing")>
     Public Class CrystalWing
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A mystical feather entirely made out of crystal."
 
         Public Sub New()
-            MyBase.New("Crystal Wing", 9800, ItemTypes.KeyItems, 56, 1, 0, New Rectangle(240, 192, 24, 24), "A mystical feather entirely made out of crystal.")
+            _textureRectangle = New Rectangle(240, 192, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
-
-            Me._flingDamage = 20
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/GSBall.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(115, "GS Ball")>
     Public Class GSBall
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A mysterious Pokéball. Its purpose is unknown."
 
         Public Sub New()
-            MyBase.New("GS Ball", 100, ItemTypes.KeyItems, 115, 1, 1, New Rectangle(384, 96, 24, 24), "A mysterious Pokéball. Its purpose is unknown.")
+            _textureRectangle = New Rectangle(384, 96, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/GoodRod.vb

@@ -3,15 +3,13 @@ Namespace Items.KeyItems
     <Item(59, "Good Rod")>
     Public Class GoodRod
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A new, good-quality fishing rod. Use it by any body of water to fish for wild aquatic Pokémon."
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = True
 
         Public Sub New()
-            MyBase.New("Good Rod", 1337, ItemTypes.KeyItems, 59, 1, 0, New Rectangle(264, 48, 24, 24), "A new, good-quality fishing rod. Use it by any body of water to fish for wild aquatic Pokémon.")
+            _textureRectangle = New Rectangle(264, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/ItemFinder.vb

@@ -3,15 +3,13 @@ Namespace Items.KeyItems
     <Item(55, "Itemfinder")>
     Public Class ItemFinder
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "It checks for unseen items in the area and makes noise and lights when it finds something."
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = True
 
         Public Sub New()
-            MyBase.New("Itemfinder", 138, ItemTypes.KeyItems, 55, 1, 0, New Rectangle(192, 48, 24, 24), "It checks for unseen items in the area and makes noise and lights when it finds something.")
+            _textureRectangle = New Rectangle(192, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/KeyItem.vb

@@ -0,0 +1,17 @@
+Namespace Items.KeyItems
+
+    Public MustInherit Class KeyItem
+
+        Inherits Item
+
+        Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.KeyItems
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
+        Public Overrides ReadOnly Property CanBeTraded As Boolean = False
+        Public Overrides ReadOnly Property CanBeTossed As Boolean = False
+        Public Overrides ReadOnly Property CanBeHold As Boolean = False
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 9800
+
+    End Class
+
+End Namespace

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/LostItem.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(130, "Lost Item")>
     Public Class LostItem
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "The Poké Doll lost by the Copycat."
 
         Public Sub New()
-            MyBase.New("Lost Item", 100, ItemTypes.KeyItems, 130, 1, 1, New Rectangle(216, 120, 24, 24), "The Poké Doll lost by the Copycat.")
+            _textureRectangle = New Rectangle(216, 120, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/MachinePart.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(128, "Machine Part")>
     Public Class MachinePart
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "An important machine part for the Power Plant that was stolen."
 
         Public Sub New()
-            MyBase.New("Machine Part", 100, ItemTypes.KeyItems, 128, 1, 1, New Rectangle(168, 120, 24, 24), "An important machine part for the Power Plant that was stolen.")
+            _textureRectangle = New Rectangle(168, 120, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/MysteryEgg.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(69, "Mystery Egg")>
     Public Class MysteryEgg
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A mysterious Egg obtained from Mr. Pokémon. What's in the Egg is unknown."
 
         Public Sub New()
-            MyBase.New("Mystery Egg", 9800, ItemTypes.KeyItems, 69, 1, 0, New Rectangle(0, 72, 24, 24), "A mysterious Egg obtained from Mr. Pokémon. What's in the Egg is unknown.")
+            _textureRectangle = New Rectangle(0, 72, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/OldRod.vb

@@ -3,15 +3,13 @@ Namespace Items.KeyItems
     <Item(58, "Old Rod")>
     Public Class OldRod
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "An old and beat-up fishing rod. Use it by any body of water to fish for wild aquatic Pokémon."
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = True
 
         Public Sub New()
-            MyBase.New("Old Rod", 1337, ItemTypes.KeyItems, 58, 1, 0, New Rectangle(240, 48, 24, 24), "An old and beat-up fishing rod. Use it by any body of water to fish for wild aquatic Pokémon.")
+            _textureRectangle = New Rectangle(240, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/OldSeaMap.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(285, "Old Sea Map")>
     Public Class OldSeaMap
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A faded sea chart that shows the way to a certain island."
 
         Public Sub New()
-            MyBase.New("Old Sea Map", 100, ItemTypes.KeyItems, 285, 1, 1, New Rectangle(168, 264, 24, 24), "A faded sea chart that shows the way to a certain island.")
+            _textureRectangle = New Rectangle(168, 264, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/OvalCharm.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(241, "Oval Charm")>
     Public Class OvalCharm
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "An oval charm said to increase the chance of Pokémon Eggs being found at the Day Care."
 
         Public Sub New()
-            MyBase.New("Oval Charm", 9800, ItemTypes.KeyItems, 241, 1, 0, New Rectangle(96, 264, 24, 24), "An oval charm said to increase the chance of Pokémon Eggs being found at the Day Care.")
+            _textureRectangle = New Rectangle(96, 264, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/Pass.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(134, "Pass")>
     Public Class Pass
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A ticket required for riding the Magnet Train. It allows you to ride whenever and however much you'd like."
 
         Public Sub New()
-            MyBase.New("Pass", 100, ItemTypes.KeyItems, 134, 1, 1, New Rectangle(312, 120, 24, 24), "A ticket required for riding the Magnet Train. It allows you to ride whenever and however much you'd like.")
+            _textureRectangle = New Rectangle(312, 120, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/RainbowPass.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(284, "Rainbow Pass")>
     Public Class RainbowPass
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A pass for ferries between Vermilion and the Sevii Islands. It features a drawing of a rainbow."
 
         Public Sub New()
-            MyBase.New("Rainbow Pass", 100, ItemTypes.KeyItems, 284, 1, 1, New Rectangle(144, 264, 24, 24), "A pass for ferries between Vermilion and the Sevii Islands. It features a drawing of a rainbow.")
+            _textureRectangle = New Rectangle(144, 264, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/RainbowWing.vb

@@ -3,17 +3,12 @@ Namespace Items.KeyItems
     <Item(178, "Rainbow Wing")>
     Public Class RainbowWing
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A mystical rainbow feather that sparkles."
 
         Public Sub New()
-            MyBase.New("Rainbow Wing", 9800, ItemTypes.KeyItems, 178, 1, 0, New Rectangle(408, 144, 24, 24), "A mystical rainbow feather that sparkles.")
+            _textureRectangle = New Rectangle(408, 144, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
-
-            Me._flingDamage = 20
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/RedScale.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(66, "Red Scale")>
     Public Class RedScale
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A scale from the red Gyarados. It glows red like a flame."
 
         Public Sub New()
-            MyBase.New("Red Scale", 9800, ItemTypes.KeyItems, 66, 1, 0, New Rectangle(432, 48, 24, 24), "A scale from the red Gyarados. It glows red like a flame.")
+            _textureRectangle = New Rectangle(432, 48, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/RunningShoes.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(78, "Running Shoes")>
     Public Class RunningShoes
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "Special high-quality shoes. Instructions: Hold SHIFT to run!"
 
         Public Sub New()
-            MyBase.New("Running Shoes", 9800, ItemTypes.KeyItems, 78, 1, 0, New Rectangle(288, 216, 24, 24), "Special high-quality shoes. Instructions: Hold SHIFT to run!")
+            _textureRectangle = New Rectangle(288, 216, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/SSTicket.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(41, "S.S. Ticket")>
     Public Class SSTicket
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "The ticket required for sailing on the ferry S.S. Aqua. It has a drawing of a ship on it. "
 
         Public Sub New()
-            MyBase.New("S.S. Ticket", 9800, ItemTypes.KeyItems, 41, 1, 0, New Rectangle(240, 216, 24, 24), "The ticket required for sailing on the ferry S.S. Aqua. It has a drawing of a ship on it. ")
+            _textureRectangle = New Rectangle(240, 216, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/SecretPotion.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(67, "SecretPotion")>
     Public Class SecretPotion
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A fantastic medicine dispensed by the pharmacy in Cianwood City. It fully heals a Pokémon of any ailment."
 
         Public Sub New()
-            MyBase.New("SecretPotion", 138, ItemTypes.KeyItems, 67, 1, 0, New Rectangle(456, 48, 24, 24), "A fantastic medicine dispensed by the pharmacy in Cianwood City. It fully heals a Pokémon of any ailment.")
+            _textureRectangle = New Rectangle(456, 48, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/ShinyCharm.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(242, "Shiny Charm")>
     Public Class ShinyCharm
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A shiny charm said to increase the chance of finding a Shiny Pokémon in the wild."
 
         Public Sub New()
-            MyBase.New("Shiny Charm", 9800, ItemTypes.KeyItems, 242, 1, 0, New Rectangle(120, 264, 24, 24), "A shiny charm said to increase the chance of finding a Shiny Pokémon in the wild.")
+            _textureRectangle = New Rectangle(120, 264, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/SilverWing.vb

@@ -3,17 +3,12 @@ Namespace Items.KeyItems
     <Item(71, "Silver Wing")>
     Public Class SilverWing
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A strange, silvery feather that sparkles."
 
         Public Sub New()
-            MyBase.New("Silver Wing", 9800, ItemTypes.KeyItems, 71, 1, 0, New Rectangle(48, 72, 24, 24), "A strange, silvery feather that sparkles.")
+            _textureRectangle = New Rectangle(48, 72, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
-
-            Me._flingDamage = 20
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/Squirtbottle.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(175, "SquirtBottle")>
     Public Class Squirtbottle
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A bottle used for watering plants in Loamy Soil."
 
         Public Sub New()
-            MyBase.New("SquirtBottle", 9800, ItemTypes.KeyItems, 175, 1, 0, New Rectangle(360, 144, 24, 24), "A bottle used for watering plants in Loamy Soil.")
+            _textureRectangle = New Rectangle(360, 144, 24, 24)
-
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/SuperRod.vb

@@ -3,15 +3,13 @@ Namespace Items.KeyItems
     <Item(61, "Super Rod")>
     Public Class SuperRod
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "An awesome, high-tech fishing rod. Use it by any body of water to fish for wild aquatic Pokémon."
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = True
 
         Public Sub New()
-            MyBase.New("Super Rod", 1337, ItemTypes.KeyItems, 61, 1, 0, New Rectangle(312, 48, 24, 24), "An awesome, high-tech fishing rod. Use it by any body of water to fish for wild aquatic Pokémon.")
+            _textureRectangle = New Rectangle(312, 48, 24, 24)
-
-            Me._canBeUsed = True
-            Me._canBeUsedInBattle = False
-            Me._canBeTraded = False
-            Me._canBeHold = False
         End Sub
 
         Public Overrides Sub Use()

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/TriPass.vb

@@ -3,15 +3,12 @@ Namespace Items.KeyItems
     <Item(265, "Tri-Pass")>
     Public Class TriPass
 
-        Inherits Item
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A pass for ferries between One, Two, and Three Island. It has a drawing of three islands."
 
         Public Sub New()
-            MyBase.New("Tri-Pass", 100, ItemTypes.KeyItems, 265, 1, 1, New Rectangle(480, 48, 24, 24), "A pass for ferries between One, Two, and Three Island. It has a drawing of three islands.")
+            _textureRectangle = New Rectangle(480, 48, 24, 24)
-
-            Me._canBeHold = False
-            Me._canBeTraded = False
-            Me._canBeUsed = False
-            Me._canBeUsedInBattle = False
         End Sub
 
     End Class