Changed XItems
This commit is contained in:
nilllzz
parent
d894927297
commit
33c861ee4f
|
|
@ -1510,6 +1510,7 @@
|
|||
<Compile Include="Pokemon\Items\XItems\XAccuracy.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XAttack.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XDefend.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XItem.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XSpAtk.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XSpDef.vb" />
|
||||
<Compile Include="Pokemon\Items\XItems\XSpeed.vb" />
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(44, "Dire Hit")>
|
||||
Public Class DireHit
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 650
|
||||
Public Overrides ReadOnly Property Description As String = "An item that raises the critical-hit ratio greatly. It can be used only once and wears off if the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("Dire Hit", 650, ItemTypes.BattleItems, 44, 1, 0, New Rectangle(480, 24, 24, 24), "An item that raises the critical-hit ratio greatly. It can be used only once and wears off if the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(480, 24, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(68, "Guard Spec.")>
|
||||
Public Class GuardSpec
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 700
|
||||
Public Overrides ReadOnly Property Description As String = "An item that prevents stat reduction among the Trainer's party Pokémon for five turns after it is used in battle."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("Guard Spec.", 700, ItemTypes.BattleItems, 68, 1, 0, New Rectangle(408, 24, 24, 24), "An item that prevents stat reduction among the Trainer's party Pokémon for five turns after it is used in battle.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(408, 24, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(33, "X Accuracy")>
|
||||
Public Class XAccuracy
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 950
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the accuracy of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Accuracy", 950, ItemTypes.BattleItems, 33, 1, 0, New Rectangle(216, 24, 24, 24), "An item that boosts the accuracy of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(216, 24, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(49, "X Attack")>
|
||||
Public Class XAttack
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 500
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the Attack stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Attack", 500, ItemTypes.BattleItems, 49, 1, 0, New Rectangle(72, 48, 24, 24), "An item that boosts the Attack stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(72, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(51, "X Defense")>
|
||||
Public Class XDefend
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 550
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the Defense stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Defense", 550, ItemTypes.BattleItems, 51, 1, 0, New Rectangle(96, 48, 24, 24), "An item that boosts the Defense stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(96, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -0,0 +1,13 @@
|
|||
Namespace Items.XItems
|
||||
Public MustInherit Class XItem
|
||||
|
||||
Inherits Item
|
||||
|
||||
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
|
||||
Public Overrides ReadOnly Property BattleSelectPokemon As Boolean = True
|
||||
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.BattleItems
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
|
||||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(53, "X Sp. Atk.")>
|
||||
Public Class XSpecial
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 350
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the Sp. Atk stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Sp. Atk.", 350, ItemTypes.BattleItems, 53, 1, 0, New Rectangle(144, 48, 24, 24), "An item that boosts the Sp. Atk stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(144, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(50, "X Sp. Def")>
|
||||
Public Class XSpDef
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 350
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the Sp. Def stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Sp. Def", 350, ItemTypes.BattleItems, 50, 1, 0, New Rectangle(144, 192, 24, 24), "An item that boosts the Sp. Def stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(144, 192, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
|
|
@ -3,17 +3,13 @@ Namespace Items.XItems
|
|||
<Item(52, "X Speed")>
|
||||
Public Class XSpeed
|
||||
|
||||
Inherits Item
|
||||
Inherits XItem
|
||||
|
||||
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 350
|
||||
Public Overrides ReadOnly Property Description As String = "An item that boosts the Speed stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New("X Speed", 350, ItemTypes.BattleItems, 52, 1, 0, New Rectangle(120, 48, 24, 24), "An item that boosts the Speed stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn.")
|
||||
|
||||
Me._canBeUsed = False
|
||||
Me._canBeUsedInBattle = True
|
||||
Me._canBeTraded = True
|
||||
Me._canBeHold = True
|
||||
|
||||
Me._requiresPokemonSelectInBattle = False
|
||||
_textureRectangle = New Rectangle(120, 48, 24, 24)
|
||||
End Sub
|
||||
|
||||
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
||||
|
|
|
|||
Loading…
Reference in New Issue