tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Really fixed items this time I promise I hate myself fuck

Browse Source
This commit is contained in:
nilllzz 2016-09-21 00:08:06 +02:00
parent e4f9a284c0
commit f1e9831497
85 changed files with 553 additions and 595 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,13 +5,12 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A capsule that allows a Pokémon with two Abilities to switch between these Abilities when it is used."
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 BattlePointsPrice As Integer = 1000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(0, 240, 24, 24)
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub End Sub
Public Overrides Sub Use() Public Overrides Sub Use()

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It doubles any prize money received if the holding Pokémon joins in a battle."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(360, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A rare mushroom which gives off a nice fragrance. A maniac will buy it for a high price."
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 BattlePointsPrice As Integer = 50000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(48, 216, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,14 @@ Namespace Items.Plants
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Plants
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 Description As String = "A very large and rare mushroom. It's popular with a certain class of collectors and sought out by them."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 5000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(288, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A big nugget of pure gold that gives off a lustrous gleam. It can be sold at a high price to shops."
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 BattlePointsPrice As Integer = 20000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(48, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A rather large pearl that has a very nice silvery sheen. It can be sold to shops for a high price."
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 BattlePointsPrice As Integer = 7500
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(288, 96, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This belt helps the wearer to focus and boosts the power of Fighting-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(24, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokemon. A pair of shady-looking glasses that boost the power of Dark-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(96, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A held item that gradually restores the HP of Poison-type Pokémon. It inflicts damage on all other types."
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 BattlePointsPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(432, 144, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A rare chunk of brick."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(72, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a combustible fuel that boosts the power of Fire-type moves."
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 BattlePointsPrice As Integer = 4900
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(336, 120, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "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."
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 BattlePointsPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(432, 72, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A shard which fell to the ground when a comet approached. A maniac will buy it for a high price."
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 BattlePointsPrice As Integer = 120000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(24, 216, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by Clamperl. This scale shines with a faint pink and raises the holder's Sp. Def stat."
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 BattlePointsPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(120, 216, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by Clamperl. This fang gleams a sharp silver and raises the holder's Sp. Atk stat."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(312, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This hard and sharp fang boosts the power of Dragon-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(432, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 70
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A very tough and inflexible scale. Dragon-type Pokémon may be holding this item when caught."
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 BattlePointsPrice As Integer = 2100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(480, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A transparent device overflowing with dubious data. Its producer is unknown."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(0, 168, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 50
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A box packed with a tremendous amount of electric energy. It is loved by a certain Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(312, 192, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
End Sub End Sub
End Class End Class

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

@ -5,13 +5,12 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A long and durable rope. Use it to escape instantly from a cave or a dungeon."
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 BattlePointsPrice As Integer = 550
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(408, 0, 24, 24)
Me._canBeUsed = True
Me._canBeUsedInBattle = False
End Sub End Sub
Public Overrides Sub Use() Public Overrides Sub Use()

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. The holder gets a share of a battle's Exp. Points without battling."
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 BattlePointsPrice As Integer = 3000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(216, 48, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,17 +5,15 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. The holder may endure a potential KO attack, leaving it with just 1 HP."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(480, 96, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
Me._battlePointsPrice = 64
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A strange, gold-colored leaf."
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 BattlePointsPrice As Integer = 2000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(120, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A Pokémon hold item that extends the duration of multiturn attacks like Bind and Wrap."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(168, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a durable stone that boosts the power of Rock-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(96, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 100
End Sub End Sub
End Class End Class

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

@ -4,13 +4,13 @@ Namespace Items.Standard
Public Class HeartScale Public Class HeartScale
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A pretty, heart-shaped scale that is extremely rare. It glows faintly with all of the colors of the rainbow."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(264, 216, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,14 @@ Namespace Items.Plants
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Plants
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 Description As String = "Honey produced by a Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(264, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. When the holder successfully inflicts damage, the target may also flinch."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(216, 72, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 64
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is tremendously heavy and makes the holder move slower than usual."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(432, 192, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,17 +5,15 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. The holder's HP is slowly but steadily restored throughout every battle."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(456, 120, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
Me._battlePointsPrice = 64
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "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."
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 BattlePointsPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(240, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by Pikachu. It's a puzzling orb that boosts its Attack and Sp. Atk stats."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(168, 144, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is an egg filled with happiness that earns extra Exp. Points in battle."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(120, 120, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by Chansey. This pair of lucky boxing gloves will boost Chansey's critical-hit ratio."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 10
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() 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.") _textureRectangle = New Rectangle(144, 24, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 40
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A box packed with a tremendous amount of magma energy. It is loved by a certain Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(288, 192, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a powerful magnet that boosts the power of Electric-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(240, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a special metallic film that can boost the power of Steel-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(408, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by Ditto. Extremely fine yet hard, this odd powder boosts the Defense stat."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 10
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() 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.") _textureRectangle = New Rectangle(264, 24, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "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."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(432, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This teardrop-shaped gem boosts the power of Water-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(456, 72, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a piece of ice that repels heat effects and boosts Ice-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(216, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "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."
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 BattlePointsPrice As Integer = 10000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(288, 24, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This exotic-smelling incense boosts the power of Psychic-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 9800
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() 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.") _textureRectangle = New Rectangle(0, 264, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A peculiar stone that makes certain species of Pokémon evolve. It is shaped like an egg."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(192, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A rather small pearl that has a very nice silvery sheen to it. It can be sold cheaply to shops."
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 BattlePointsPrice As Integer = 1400
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(264, 96, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "Very large pearls that sparkle in a pretty silver color. They can be sold at a high price to shops."
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 BattlePointsPrice As Integer = 50000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(408, 216, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "Powers up Fairy-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(144, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This small, poisonous barb boosts the power of Poison-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(192, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 70
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.BattleItems
Public Overrides ReadOnly Property Description As String = "A doll that attracts the attention of a Pokémon. It guarantees escape from any battle with wild Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 1000
Public Overrides ReadOnly Property BattleSelectPokemon As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New() 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.") _textureRectangle = New Rectangle(312, 24, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = True
Me._requiresPokemonSelectInBattle = False
End Sub End Sub
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A pink bow. A certain Pokémon likes this item."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(192, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A mysterious scale that causes a certain Pokémon to evolve. It shines in rainbow colors."
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 BattlePointsPrice As Integer = 500
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(72, 168, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A protective item of some sort. It is extremely stiff and heavy. It is loved by a certain Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(408, 192, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
End Sub End Sub
End Class End Class

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

@ -5,17 +5,15 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This light, sharp claw lets the bearer move first occasionally."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(96, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 80
Me._battlePointsPrice = 64
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by Ditto. Extremely fine yet hard, this odd powder boosts the Speed stat."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 10
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() 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.") _textureRectangle = New Rectangle(96, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A rare bone that is extremely valuable for the study of Pokémon archeology. It can be sold for a high price to shops."
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 BattlePointsPrice As Integer = 30000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(456, 96, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,17 +5,15 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a sharply hooked claw that ups the holder's critical-hit ratio."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(480, 144, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
Me._battlePointsPrice = 48
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It may make foes and allies flinch when the holder inflicts damage."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(456, 144, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 48
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A cloth imbued with horrifyingly strong spiritual energy. It's loved by a certain Pokémon."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 2100
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() 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.") _textureRectangle = New Rectangle(96, 168, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A sachet filled with fragrant perfumes that are just slightly too overwhelming. Yet it's loved by a certain Pokémon."
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 BattlePointsPrice As Integer = 2100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(144, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a lens that boosts the holder's critical-hit ratio."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(384, 120, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 64
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This incense has a curious aroma that boosts the power of Water-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 9800
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() 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.") _textureRectangle = New Rectangle(24, 264, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a long, sharp beak that boosts the power of Flying-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(168, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 50
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "A tough, discarded carapace to be held by a Pokémon. It enables the holder to switch with a waiting Pokémon in battle."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(72, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a sumptuous scarf that boosts the power of Normal-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(264, 192, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A strange, silver-colored leaf."
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 BattlePointsPrice As Integer = 1000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(288, 48, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a shiny, silver powder that will boost the power of Bug-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(312, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A very tasty tail of something. It sells for a high price."
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 BattlePointsPrice As Integer = 9800
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(120, 96, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It enables the holder to flee from any wild Pokémon encounter without fail."
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 BattlePointsPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(192, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a loose, silky sand that boosts the power of Ground-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() 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.") _textureRectangle = New Rectangle(144, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,16 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. The comforting chime of this bell calms the holder, making it friendly."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 100
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() Public Sub New()
'Tea Gardner style _textureRectangle = New Rectangle(0, 216, 24, 24)
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
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a sinister, eerie tag that boosts the power of Ghost-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(336, 96, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A small shard of a beautiful gem that demonstrates a distinctly red sparkle. It can be sold at a high price to shops."
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 BattlePointsPrice As Integer = 9800
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(264, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "Lovely, red sand that flows between the fingers with a loose, silky feel. It can be sold at a high price to shops."
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 BattlePointsPrice As Integer = 2000
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(240, 120, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by Farfetch'd. It is a very long and stiff stalk of leek that boosts the critical-hit ratio."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(168, 96, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 60
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "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."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(24, 168, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 80
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "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 BattlePointsPrice As Integer = 500
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() 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.") _textureRectangle = New Rectangle(456, 96, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 90
End Sub End Sub
End Class End Class

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

@ -5,13 +5,14 @@ Namespace Items.Plants
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Plants
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 Description As String = "A very small and rare mushroom. It's popular with a certain class of collectors and sought out by them."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 500
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(264, 72, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a bizarre orb that will badly poison the holder during battle."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(216, 240, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._battlePointsPrice = 16
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It is a spoon imbued with telekinetic power that boosts Psychic-type moves."
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 BattlePointsPrice As Integer = 100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(480, 72, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A transparent device somehow filled with all sorts of data. It was produced by Silph Co."
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 BattlePointsPrice As Integer = 2100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(336, 144, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. This exotic-smelling incense boots the power of Water-type moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 9800
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() 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.") _textureRectangle = New Rectangle(480, 192, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._canBeTraded = True
Me._canBeHold = True
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A soft and sweet treat made of fluffy, puffy, whipped and whirled cream. It's loved by a certain Pokémon."
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 BattlePointsPrice As Integer = 2100
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeHold = True Public Sub New()
Me._canBeTraded = True _textureRectangle = New Rectangle(168, 240, 24, 24)
Me._canBeUsed = False
Me._canBeUsedInBattle = False
End Sub End Sub
End Class End Class

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

@ -5,13 +5,13 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Sub New() Public Overrides ReadOnly Property Description As String = "A white flute made from blown glass. Its melody makes wild Pokémon more likely to appear."
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 BattlePointsPrice As Integer = 500
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Me._canBeUsed = False Public Sub New()
Me._canBeUsedInBattle = False _textureRectangle = New Rectangle(456, 192, 24, 24)
Me._canBeTraded = True
Me._canBeHold = True
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a magnifying lens that slightly boosts the accuracy of moves."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(144, 216, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class

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

@ -5,15 +5,14 @@ Namespace Items.Standard
Inherits Item Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. If the holder moves after its target moves, its accuracy will be boosted."
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 200
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() 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.") _textureRectangle = New Rectangle(264, 144, 24, 24)
Me._canBeHold = True
Me._canBeTraded = True
Me._canBeUsed = False
Me._canBeUsedInBattle = False
Me._flingDamage = 10
End Sub End Sub
End Class End Class