Really fixed items this time I promise I hate myself fuck
This commit is contained in:
nilllzz
parent
e4f9a284c0
commit
f1e9831497
|
|
@ -5,13 +5,12 @@ 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 Description As String = "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
|
||||
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()
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(360, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(48, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,14 @@ 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 ItemType As ItemTypes = ItemTypes.Plants
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(288, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(48, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(288, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(24, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(96, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(432, 144, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(72, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(336, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(432, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(24, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(120, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(480, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,12 @@ 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 Description As String = "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
|
||||
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()
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(216, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,17 +5,15 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(120, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -4,13 +4,13 @@ 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 Description As String = "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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(264, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,14 @@ 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 ItemType As ItemTypes = ItemTypes.Plants
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(264, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,17 +5,15 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(240, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(168, 144, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(120, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(240, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(408, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(432, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(456, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(216, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(288, 24, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(264, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(408, 216, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(144, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(192, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(72, 168, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,17 +5,15 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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 = 30000
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,17 +5,15 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(144, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(288, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(120, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(192, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,16 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
'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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(336, 96, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(264, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(240, 120, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,14 @@ 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 ItemType As ItemTypes = ItemTypes.Plants
|
||||
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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(264, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 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."
|
||||
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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(480, 72, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(336, 144, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeTraded = True
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = False
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(168, 240, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,13 +5,13 @@ 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 Description As String = "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
|
||||
Me._canBeUsedInBattle = False
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
Public Sub New()
|
||||
_textureRectangle = New Rectangle(456, 192, 24, 24)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
|
|
@ -5,15 +5,14 @@ Namespace Items.Standard
|
|||
|
||||
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()
|
||||
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
|
||||
|
|
|
|||
Loading…
Reference in New Issue