tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed standard items

This commit is contained in:
nilllzz 2016-09-20 23:39:12 +02:00
parent 00cedf786e
commit 1700ab11a8
85 changed files with 379 additions and 595 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
2.5DHero/2.5DHero/Pokemon/Items/Standard/AbilityCapsule.vb
View File

@ -5,13 +5,10 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Ability Capsule", 1000, ItemTypes.Standard, 187, 1, 1, New Rectangle(0, 240, 24, 24), "A capsule that allows a Pokémon with two Abilities to switch between these Abilities when it is used.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(0, 240, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/AmuletCoin.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Amulet Coin", 100, ItemTypes.Standard, 91, 1, 1, New Rectangle(360, 72, 24, 24), "An item to be held by a Pokémon. It doubles any prize money received if the holding Pokémon joins in a battle.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(360, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BalmMushroom.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Balm Mushroom", 50000, ItemTypes.Standard, 153, 1, 0, New Rectangle(48, 216, 24, 24), "A rare mushroom which gives off a nice fragrance. A maniac will buy it for a high price.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(48, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BigMushroom.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Plants
Inherits Item
Public Sub New()
MyBase.New("Big Mushroom", 5000, ItemTypes.Plants, 87, 1, 73, New Rectangle(288, 72, 24, 24), "A very large and rare mushroom. It's popular with a certain class of collectors and sought out by them.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(288, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BigNugget.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Big Nugget", 20000, ItemTypes.Standard, 189, 1, 1, New Rectangle(48, 240, 24, 24), "A big nugget of pure gold that gives off a lustrous gleam. It can be sold at a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(48, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BigPearl.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Big Pearl", 7500, ItemTypes.Standard, 111, 1, 0, New Rectangle(288, 96, 24, 24), "A rather large pearl that has a very nice silvery sheen. It can be sold to shops for a high price.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(288, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BlackBelt.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Black Belt", 100, ItemTypes.Standard, 98, 1, 0, New Rectangle(24, 96, 24, 24), "An item to be held by a Pokémon. This belt helps the wearer to focus and boosts the power of Fighting-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(24, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BlackGlasses.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Black Glasses", 100, ItemTypes.Standard, 102, 1, 0, New Rectangle(96, 96, 24, 24), "An item to be held by a Pokemon. A pair of shady-looking glasses that boost the power of Dark-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(96, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BlackSludge.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Black Sludge", 200, ItemTypes.Standard, 182, 1, 0, New Rectangle(432, 144, 24, 24), "A held item that gradually restores the HP of Poison-type Pokémon. It inflicts damage on all other types.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(432, 144, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/BrickPiece.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Brick Piece", 100, ItemTypes.Standard, 180, 1, 1, New Rectangle(72, 240, 24, 24), "A rare chunk of brick.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(72, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Charcoal.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Charcoal", 4900, ItemTypes.Standard, 138, 1, 0, New Rectangle(336, 120, 24, 24), "An item to be held by a Pokémon. It is a combustible fuel that boosts the power of Fire-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(336, 120, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/CleanseTag.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("CleanseTag", 200, ItemTypes.Standard, 94, 1, 0, New Rectangle(432, 72, 24, 24), "An item to be held by a Pokémon. It helps keep wild Pokémon away if the holder is the head of the party.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(432, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/CometShard.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Comet Shard", 120000, ItemTypes.Standard, 149, 1, 0, New Rectangle(24, 216, 24, 24), "A shard which fell to the ground when a comet approached. A maniac will buy it for a high price.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(24, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/DeepSeaScale.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("DeepSeaScale", 200, ItemTypes.Standard, 162, 1, 1, New Rectangle(120, 216, 24, 24), "An item to be held by Clamperl. This scale shines with a faint pink and raises the holder's Sp. Def stat.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(120, 216, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/DeepSeaTooth.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 90
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("DeepSeaTooth", 200, ItemTypes.Standard, 167, 1, 1, New Rectangle(312, 216, 24, 24), "An item to be held by Clamperl. This fang gleams a sharp silver and raises the holder's Sp. Atk stat.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
_textureRectangle = New Rectangle(312, 216, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/DragonFang.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 70
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Dragon Fang", 100, ItemTypes.Standard, 144, 1, 0, New Rectangle(432, 120, 24, 24), "An item to be held by a Pokémon. This hard and sharp fang boosts the power of Dragon-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 70
_textureRectangle = New Rectangle(432, 120, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/DragonScale.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Dragon Scale", 2100, ItemTypes.Standard, 151, 1, 0, New Rectangle(480, 120, 24, 24), "A very tough and inflexible scale. Dragon-type Pokémon may be holding this item when caught.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(480, 120, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/DubiousDisc.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 50
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Dubious Disc", 2100, ItemTypes.Standard, 185, 1, 0, New Rectangle(0, 168, 24, 24), "A transparent device overflowing with dubious data. Its producer is unknown.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 50
_textureRectangle = New Rectangle(0, 168, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/Electirizer.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Electirizer", 2100, ItemTypes.Standard, 120, 1, 0, New Rectangle(312, 192, 24, 24), "A box packed with a tremendous amount of electric energy. It is loved by a certain Pokémon.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
_textureRectangle = New Rectangle(312, 192, 24, 24)
End Sub
End Class

9
2.5DHero/2.5DHero/Pokemon/Items/Standard/EscapeRope.vb
View File

@ -5,13 +5,10 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Escape Rope", 550, ItemTypes.Standard, 19, 1, 0, New Rectangle(408, 0, 24, 24), "A long and durable rope. Use it to escape instantly from a cave or a dungeon.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = True
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(408, 0, 24, 24)
End Sub
Public Overrides Sub Use()

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/ExpShare.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Exp Share", 3000, ItemTypes.Standard, 57, 1, 0, New Rectangle(216, 48, 24, 24), "An item to be held by a Pokémon. The holder gets a share of a battle's Exp. Points without battling.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(216, 48, 24, 24)
End Sub
End Class

16
2.5DHero/2.5DHero/Pokemon/Items/Standard/FocusBand.vb
View File

@ -5,17 +5,13 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 64
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Focus Band", 200, ItemTypes.Standard, 119, 1, 1, New Rectangle(480, 96, 24, 24), "An item to be held by a Pokémon. The holder may endure a potential KO attack, leaving it with just 1 HP.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
Me._battlePointsPrice = 64
_textureRectangle = New Rectangle(480, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/GoldLeaf.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Gold Leaf", 2000, ItemTypes.Standard, 75, 1, 0, New Rectangle(120, 72, 24, 24), "A strange, gold-colored leaf.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(120, 72, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/GripClaw.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 90
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Grip Claw", 200, ItemTypes.Standard, 176, 1, 1, New Rectangle(168, 216, 24, 24), "A Pokémon hold item that extends the duration of multiturn attacks like Bind and Wrap.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
_textureRectangle = New Rectangle(168, 216, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/HardStone.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("HardStone", 100, ItemTypes.Standard, 125, 1, 0, New Rectangle(96, 120, 24, 24), "An item to be held by a Pokémon. It is a durable stone that boosts the power of Rock-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 100
_textureRectangle = New Rectangle(96, 120, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/HeartScale.vb
View File

@ -4,13 +4,11 @@ Namespace Items.Standard
Public Class HeartScale
Inherits Item
Public Sub New()
MyBase.New("Heart Scale", 100, ItemTypes.Standard, 190, 1, 0, New Rectangle(264, 216, 24, 24), "A pretty, heart-shaped scale that is extremely rare. It glows faintly with all of the colors of the rainbow.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(264, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Honey.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Plants
Inherits Item
Public Sub New()
MyBase.New("Honey", 100, ItemTypes.Plants, 253, 1, 0, New Rectangle(264, 240, 24, 24), "Honey produced by a Pokémon.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(264, 240, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/KingsRock.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 64
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("King's Rock", 100, ItemTypes.Standard, 82, 1, 0, New Rectangle(216, 72, 24, 24), "An item to be held by a Pokémon. When the holder successfully inflicts damage, the target may also flinch.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 64
_textureRectangle = New Rectangle(216, 72, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/LaggingTail.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Lagging Tail", 200, ItemTypes.Standard, 142, 1, 0, New Rectangle(432, 192, 24, 24), "An item to be held by a Pokémon. It is tremendously heavy and makes the holder move slower than usual.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(432, 192, 24, 24)
End Sub
End Class

16
2.5DHero/2.5DHero/Pokemon/Items/Standard/Leftovers.vb
View File

@ -5,17 +5,13 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 64
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Leftovers", 200, ItemTypes.Standard, 146, 1, 1, New Rectangle(456, 120, 24, 24), "An item to be held by a Pokémon. The holder's HP is slowly but steadily restored throughout every battle.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
Me._battlePointsPrice = 64
_textureRectangle = New Rectangle(456, 120, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/LifeOrb.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Life Orb", 200, ItemTypes.Standard, 506, 1, 1, New Rectangle(240, 240, 24, 24), "An item to be held by a Pokémon. It boosts the power of moves, but at the cost of some HP on each hit.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(240, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/LightBall.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Light Ball", 100, ItemTypes.Standard, 163, 1, 1, New Rectangle(168, 144, 24, 24), "An item to be held by Pikachu. It's a puzzling orb that boosts its Attack and Sp. Atk stats.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(168, 144, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/LuckyEgg.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Lucky Egg", 100, ItemTypes.Standard, 126, 1, 0, New Rectangle(120, 120, 24, 24), "An item to be held by a Pokémon. It is an egg filled with happiness that earns extra Exp. Points in battle.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(120, 120, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/LuckyPunch.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 40
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Lucky Punch", 10, ItemTypes.Standard, 30, 1, 0, New Rectangle(144, 24, 24, 24), "An item to be held by Chansey. This pair of lucky boxing gloves will boost Chansey's critical-hit ratio.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 40
_textureRectangle = New Rectangle(144, 24, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/Magmarizer.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Magmarizer", 2100, ItemTypes.Standard, 100, 1, 0, New Rectangle(288, 192, 24, 24), "A box packed with a tremendous amount of magma energy. It is loved by a certain Pokémon.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
_textureRectangle = New Rectangle(288, 192, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Magnet.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Magnet", 100, ItemTypes.Standard, 108, 1, 0, New Rectangle(240, 96, 24, 24), "An item to be held by a Pokémon. It is a powerful magnet that boosts the power of Electric-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(240, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/MetalCoat.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Metal Coat", 100, ItemTypes.Standard, 143, 1, 0, New Rectangle(408, 120, 24, 24), "An item to be held by a Pokémon. It is a special metallic film that can boost the power of Steel-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(408, 120, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/MetalPowder.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Metal Powder", 10, ItemTypes.Standard, 35, 1, 1, New Rectangle(264, 24, 24, 24), "An item to be held by Ditto. Extremely fine yet hard, this odd powder boosts the Defense stat.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(264, 24, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/MiracleSeed.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Miracle Seed", 100, ItemTypes.Standard, 117, 1, 0, New Rectangle(432, 96, 24, 24), "An item to be held by a Pokémon. It is a seed imbued with life force that boosts the power of Grass-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(432, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/MysticWater.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Mystic Water", 100, ItemTypes.Standard, 95, 1, 0, New Rectangle(456, 72, 24, 24), "An item to be held by a Pokémon. This teardrop-shaped gem boosts the power of Water-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(456, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/NeverMeltIce.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Never-Melt Ice", 100, ItemTypes.Standard, 107, 1, 0, New Rectangle(216, 96, 24, 24), "An item to be held by a Pokémon. It's a piece of ice that repels heat effects and boosts Ice-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(216, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Nugget.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Nugget", 10000, ItemTypes.Standard, 36, 1, 0, New Rectangle(288, 24, 24, 24), "A nugget of the purest gold that gives off a lustrous gleam in direct light. It can be sold at a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(288, 24, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/OddIncense.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Odd Incense", 9800, ItemTypes.Standard, 263, 1, 0, New Rectangle(0, 264, 24, 24), "An item to be held by a Pokémon. This exotic-smelling incense boosts the power of Psychic-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(0, 264, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/OvalStone.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Oval Stone", 2100, ItemTypes.Standard, 179, 1, 1, New Rectangle(192, 216, 24, 24), "A peculiar stone that makes certain species of Pokémon evolve. It is shaped like an egg.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
_textureRectangle = New Rectangle(192, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Pearl.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Pearl", 1400, ItemTypes.Standard, 110, 1, 0, New Rectangle(264, 96, 24, 24), "A rather small pearl that has a very nice silvery sheen to it. It can be sold cheaply to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(264, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/PearlString.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Pearl String", 50000, ItemTypes.Standard, 173, 1, 0, New Rectangle(408, 216, 24, 24), "Very large pearls that sparkle in a pretty silver color. They can be sold at a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(408, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/PinkBow.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Pink Bow", 100, ItemTypes.Standard, 104, 1, 0, New Rectangle(144, 96, 24, 24), "Powers up Fairy-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(144, 96, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/PoisonBarb.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 70
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Poison Barb", 100, ItemTypes.Standard, 81, 1, 0, New Rectangle(192, 72, 24, 24), "An item to be held by a Pokémon. This small, poisonous barb boosts the power of Poison-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 70
_textureRectangle = New Rectangle(192, 72, 24, 24)
End Sub
End Class

12
2.5DHero/2.5DHero/Pokemon/Items/Standard/PokeDoll.vb
View File

@ -5,15 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattleSelectPokemon As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Poké Doll", 1000, ItemTypes.BattleItems, 37, 1, 0, New Rectangle(312, 24, 24, 24), "A doll that attracts the attention of a Pokémon. It guarantees escape from any battle with wild Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = True
Me._requiresPokemonSelectInBattle = False
_textureRectangle = New Rectangle(312, 24, 24, 24)
End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/PolkadotBow.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Polkadot Bow", 100, ItemTypes.Standard, 170, 1, 1, New Rectangle(192, 240, 24, 24), "A pink bow. A certain Pokémon likes this item.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(192, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/PrismScale.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Prism Scale", 500, ItemTypes.Standard, 83, 1, 1, New Rectangle(72, 168, 24, 24), "A mysterious scale that causes a certain Pokémon to evolve. It shines in rainbow colors.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(72, 168, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/Protector.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Protector", 2100, ItemTypes.Standard, 141, 1, 0, New Rectangle(408, 192, 24, 24), "A protective item of some sort. It is extremely stiff and heavy. It is loved by a certain Pokémon.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
_textureRectangle = New Rectangle(408, 192, 24, 24)
End Sub
End Class

16
2.5DHero/2.5DHero/Pokemon/Items/Standard/QuickClaw.vb
View File

@ -5,17 +5,13 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 64
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Quick Claw", 100, ItemTypes.Standard, 73, 1, 0, New Rectangle(96, 72, 24, 24), "An item to be held by a Pokémon. This light, sharp claw lets the bearer move first occasionally.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
Me._battlePointsPrice = 64
_textureRectangle = New Rectangle(96, 72, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/QuickPowder.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Quick Powder", 10, ItemTypes.Standard, 155, 1, 1, New Rectangle(96, 216, 24, 24), "An item to be held by Ditto. Extremely fine yet hard, this odd powder boosts the Speed stat.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(96, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/RareBone.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Rare Bone", 30000, ItemTypes.Standard, 109, 1, 0, New Rectangle(456, 96, 24, 24), "A rare bone that is extremely valuable for the study of Pokémon archeology. It can be sold for a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(456, 96, 24, 24)
End Sub
End Class

16
2.5DHero/2.5DHero/Pokemon/Items/Standard/RazorClaw.vb
View File

@ -5,17 +5,13 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 48
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Razor Claw", 2100, ItemTypes.Standard, 184, 1, 1, New Rectangle(480, 144, 24, 24), "An item to be held by a Pokémon. It is a sharply hooked claw that ups the holder's critical-hit ratio.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
Me._battlePointsPrice = 48
_textureRectangle = New Rectangle(480, 144, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/RazorFang.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 48
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Razor Fang", 2100, ItemTypes.Standard, 183, 1, 1, New Rectangle(456, 144, 24, 24), "An item to be held by a Pokémon. It may make foes and allies flinch when the holder inflicts damage.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 48
_textureRectangle = New Rectangle(456, 144, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ReaperCloth.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Reaper Cloth", 2100, ItemTypes.Standard, 84, 1, 1, New Rectangle(96, 168, 24, 24), "A cloth imbued with horrifyingly strong spiritual energy. It's loved by a certain Pokémon.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(96, 168, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Sachet.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Sachet", 2100, ItemTypes.Standard, 503, 1, 1, New Rectangle(144, 240, 24, 24), "A sachet filled with fragrant perfumes that are just slightly too overwhelming. Yet it's loved by a certain Pokémon.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(144, 240, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ScopeLens.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 64
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Scope Lens", 200, ItemTypes.Standard, 140, 1, 1, New Rectangle(384, 120, 24, 24), "An item to be held by a Pokémon. It is a lens that boosts the holder's critical-hit ratio.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 64
_textureRectangle = New Rectangle(384, 120, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/SeaIncense.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Sea Incense", 9800, ItemTypes.Standard, 264, 1, 0, New Rectangle(24, 264, 24, 24), "An item to be held by a Pokémon. This incense has a curious aroma that boosts the power of Water-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(24, 264, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/SharpBeak.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 50
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Sharp Beak", 100, ItemTypes.Standard, 77, 1, 0, New Rectangle(168, 72, 24, 24), "An item to be held by a Pokémon. It's a long, sharp beak that boosts the power of Flying-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 50
_textureRectangle = New Rectangle(168, 72, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ShedShell.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Shed Shell", 100, ItemTypes.Standard, 154, 1, 1, New Rectangle(72, 216, 24, 24), "A tough, discarded carapace to be held by a Pokémon. It enables the holder to switch with a waiting Pokémon in battle.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(72, 216, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/SilkScarf.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Silk Scarf", 100, ItemTypes.Standard, 90, 1, 0, New Rectangle(264, 192, 24, 24), "An item to be held by a Pokémon. It's a sumptuous scarf that boosts the power of Normal-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(264, 192, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/SilverLeaf.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Silver Leaf", 1000, ItemTypes.Standard, 60, 1, 0, New Rectangle(288, 48, 24, 24), "A strange, silver-colored leaf.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(288, 48, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/SilverPowder.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("SilverPowder", 100, ItemTypes.Standard, 88, 1, 0, New Rectangle(312, 72, 24, 24), "An item to be held by a Pokémon. It is a shiny, silver powder that will boost the power of Bug-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(312, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/SlowPokeTail.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Slowpoketail", 9800, ItemTypes.Standard, 103, 1, 0, New Rectangle(120, 96, 24, 24), "A very tasty tail of something. It sells for a high price.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(120, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/SmokeBall.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Smoke Ball", 200, ItemTypes.Standard, 106, 1, 0, New Rectangle(192, 96, 24, 24), "An item to be held by a Pokémon. It enables the holder to flee from any wild Pokémon encounter without fail.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(192, 96, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/SoftSand.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Soft Sand", 100, ItemTypes.Standard, 76, 1, 0, New Rectangle(144, 72, 24, 24), "An item to be held by a Pokémon. It is a loose, silky sand that boosts the power of Ground-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(144, 72, 24, 24)
End Sub
End Class

14
2.5DHero/2.5DHero/Pokemon/Items/Standard/SootheBell.vb
View File

@ -5,16 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
'Tea Gardner style
MyBase.New("Soothe Bell", 100, ItemTypes.Standard, 148, 1, 0, New Rectangle(0, 216, 24, 24), "An item to be held by a Pokémon. The comforting chime of this bell calms the holder, making it friendly.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(0, 216, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/SpellTag.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Spell Tag", 100, ItemTypes.Standard, 113, 1, 0, New Rectangle(336, 96, 24, 24), "An item to be held by a Pokémon. It is a sinister, eerie tag that boosts the power of Ghost-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(336, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/StarPiece.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Star Piece", 9800, ItemTypes.Standard, 132, 1, 0, New Rectangle(264, 120, 24, 24), "A small shard of a beautiful gem that demonstrates a distinctly red sparkle. It can be sold at a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(264, 120, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/Stardust.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Stardust", 2000, ItemTypes.Standard, 131, 1, 0, New Rectangle(240, 120, 24, 24), "Lovely, red sand that flows between the fingers with a loose, silky feel. It can be sold at a high price to shops.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(240, 120, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/Stick.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 60
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Stick", 200, ItemTypes.Standard, 105, 1, 0, New Rectangle(168, 96, 24, 24), "An item to be held by Farfetch'd. It is a very long and stiff stalk of leek that boosts the critical-hit ratio.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 60
_textureRectangle = New Rectangle(168, 96, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/StickyBarb.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 80
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Sticky Barb", 200, ItemTypes.Standard, 70, 1, 0, New Rectangle(24, 168, 24, 24), "An item to be held by a Pokémon. It damages the holder every turn and may latch on to Pokémon that touch the holder.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
_textureRectangle = New Rectangle(24, 168, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ThickClub.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 90
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Thick Club", 500, ItemTypes.Standard, 118, 1, 1, New Rectangle(456, 96, 24, 24), "A rare bone that is extremely valuable for the study of Pokémon archeology. It can be sold for a high price to shops.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
_textureRectangle = New Rectangle(456, 96, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/TinyMushroom.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Plants
Inherits Item
Public Sub New()
MyBase.New("Tiny Mushroom", 500, ItemTypes.Plants, 86, 1, 72, New Rectangle(264, 72, 24, 24), "A very small and rare mushroom. It's popular with a certain class of collectors and sought out by them.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(264, 72, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ToxicOrb.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 16
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Toxic Orb", 200, ItemTypes.Standard, 505, 1, 1, New Rectangle(216, 240, 24, 24), "An item to be held by a Pokémon. It is a bizarre orb that will badly poison the holder during battle.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 16
_textureRectangle = New Rectangle(216, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/TwistedSpoon.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Twisted Spoon", 100, ItemTypes.Standard, 96, 1, 0, New Rectangle(480, 72, 24, 24), "An item to be held by a Pokémon. It is a spoon imbued with telekinetic power that boosts Psychic-type moves.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(480, 72, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/UpGrade.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Up-Grade", 2100, ItemTypes.Standard, 172, 1, 0, New Rectangle(336, 144, 24, 24), "A transparent device somehow filled with all sorts of data. It was produced by Silph Co.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(336, 144, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/WaveIncense.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Wave Incense", 9800, ItemTypes.Standard, 145, 1, 0, New Rectangle(480, 192, 24, 24), "An item to be held by a Pokémon. This exotic-smelling incense boots the power of Water-type moves.")
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
_textureRectangle = New Rectangle(480, 192, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/WhippedDream.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("Whipped Dream", 2100, ItemTypes.Standard, 504, 1, 1, New Rectangle(168, 240, 24, 24), "A soft and sweet treat made of fluffy, puffy, whipped and whirled cream. It's loved by a certain Pokémon.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Public Sub New()
_textureRectangle = New Rectangle(168, 240, 24, 24)
End Sub
End Class

10
2.5DHero/2.5DHero/Pokemon/Items/Standard/WhiteFlute.vb
View File

@ -5,13 +5,11 @@ Namespace Items.Standard
Inherits Item
Public Sub New()
MyBase.New("White Flute", 500, ItemTypes.Standard, 147, 1, 0, New Rectangle(456, 192, 24, 24), "A white flute made from blown glass. Its melody makes wild Pokémon more likely to appear.")
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Public Sub New()
_textureRectangle = New Rectangle(456, 192, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/WideLens.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Wide Lens", 200, ItemTypes.Standard, 171, 1, 1, New Rectangle(144, 216, 24, 24), "An item to be held by a Pokémon. It's a magnifying lens that slightly boosts the accuracy of moves.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(144, 216, 24, 24)
End Sub
End Class

13
2.5DHero/2.5DHero/Pokemon/Items/Standard/ZoomLens.vb
View File

@ -5,15 +5,12 @@ Namespace Items.Standard
Inherits Item
Public Overrides ReadOnly Property FlingDamage As Integer = 10
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
MyBase.New("Zoom Lens", 200, ItemTypes.Standard, 74, 1, 1, New Rectangle(264, 144, 24, 24), "An item to be held by a Pokémon. If the holder moves after its target moves, its accuracy will be boosted.")
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
_textureRectangle = New Rectangle(264, 144, 24, 24)
End Sub
End Class