mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-04-08 18:35:09 +02:00
Changed key items
This commit is contained in:
nilllzz
parent
33b2608a8a
commit
a0b02a3b31
@ -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" />
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(288, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(120, 0, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(408, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(144, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = True
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(168, 48, 24, 24)
|
||||
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
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
|
||||
Me._flingDamage = 20
|
||||
_textureRectangle = New Rectangle(240, 192, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(384, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = True
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(264, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Use()
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = True
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(192, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Use()
|
||||
|
||||
17
2.5DHero/2.5DHero/Pokemon/Items/KeyItems/KeyItem.vb
Normal file
17
2.5DHero/2.5DHero/Pokemon/Items/KeyItems/KeyItem.vb
Normal file
@ -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
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(216, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(168, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(0, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = True
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(240, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Use()
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(168, 264, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(96, 264, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(312, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(144, 264, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
|
||||
Me._flingDamage = 20
|
||||
_textureRectangle = New Rectangle(408, 144, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(432, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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!")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(288, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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. ")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(240, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(456, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(120, 264, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
|
||||
Me._flingDamage = 20
|
||||
_textureRectangle = New Rectangle(48, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(360, 144, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeUsed = True
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeHold = False
|
||||
_textureRectangle = New Rectangle(312, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Use()
|
||||
|
||||
@ -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.")
|
||||
|
||||
Me._canBeHold = False
|
||||
Me._canBeTraded = False
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
_textureRectangle = New Rectangle(480, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user