diff --git a/P3D/Content/Items/ItemSheet.png b/P3D/Content/Items/ItemSheet.png index aa930688b..6b3702bca 100644 Binary files a/P3D/Content/Items/ItemSheet.png and b/P3D/Content/Items/ItemSheet.png differ diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj index 66ccccf57..69284cf33 100644 --- a/P3D/P3D.vbproj +++ b/P3D/P3D.vbproj @@ -25638,6 +25638,11 @@ PreserveNewest + + + + + @@ -25722,10 +25727,13 @@ + + + PreserveNewest diff --git a/P3D/Pokemon/Abilities/Ability.vb b/P3D/Pokemon/Abilities/Ability.vb index e75f56a61..e5a85ab6f 100644 --- a/P3D/Pokemon/Abilities/Ability.vb +++ b/P3D/Pokemon/Abilities/Ability.vb @@ -415,98 +415,98 @@ Return New Abilities.FairyAura Case 188 Return New Abilities.AuraBreak - 'Case 189 - 'Primordial Sea - 'Case 190 - 'Desolate Land - 'Case 191 - 'Delta Stream - 'Case 192 - 'Stamina - 'Case 193 - 'Wimp Out - 'Case 194 - 'Emergency Exit - 'Case 195 - 'Water Compaction - 'Case 196 - 'Merciless - 'Case 197 - 'Shields Down - 'Case 198 - 'Stakeout - 'Case 199 - 'Water Bubble - 'Case 200 - 'Steelworker - 'Case 201 - 'Berserk - 'Case 202 - 'Slush Rush - 'Case 203 - 'Long Reach - 'Case 204 - 'Liquid Voice - 'Case 205 - 'Triage - 'Case 206 - 'Galvanize - 'Case 207 - 'Surge Surfer - 'Case 208 - 'Schooling - 'Case 209 - 'Disguise - 'Case 210 - 'Battle Bond - 'Case 211 - 'Power Construct - 'Case 212 - 'Corrosion - 'Case 213 - 'Comatose - 'Case 214 - 'Queenly Majesty - 'Case 215 - 'Innards Out - 'Case 216 - 'Dancer - 'Case 217 - 'Battery - 'Case 218 - 'Fluffy - 'Case 219 - 'Dazzling - 'Case 220 - 'Soul-Heart - 'Case 221 - 'Tangling Hair - 'Case 222 - 'Receiver - 'Case 223 - 'Power of Alchemy - 'Case 224 - 'Beast Boost - 'Case 225 - 'RKS System - 'Case 226 - 'Electric Surge - 'Case 227 - 'Psychic Surge - 'Case 228 - 'Misty Surge - 'Case 229 - 'Grassy Surge - 'Case 230 - 'Full Metal Body - 'Case 231 - 'Shadow Shield - 'Case 232 - 'Prism Armor - 'Case 233 - 'Neuroforce - 'Case 234 - 'Blank + 'Case 189 + 'Primordial Sea + 'Case 190 + 'Desolate Land + 'Case 191 + 'Delta Stream + 'Case 192 + 'Stamina + 'Case 193 + 'Wimp Out + 'Case 194 + 'Emergency Exit + 'Case 195 + 'Water Compaction + 'Case 196 + 'Merciless + 'Case 197 + 'Shields Down + 'Case 198 + 'Stakeout + 'Case 199 + 'Water Bubble + 'Case 200 + 'Steelworker + 'Case 201 + 'Berserk + Case 202 + Return New Abilities.SlushRush() + 'Case 203 + 'Long Reach + 'Case 204 + 'Liquid Voice + 'Case 205 + 'Triage + Case 206 + Return New Abilities.Galvanize() + Case 207 + Return New Abilities.SurgeSurfer() + 'Case 208 + 'Schooling + 'Case 209 + 'Disguise + 'Case 210 + 'Battle Bond + 'Case 211 + 'Power Construct + 'Case 212 + 'Corrosion + 'Case 213 + 'Comatose + 'Case 214 + 'Queenly Majesty + 'Case 215 + 'Innards Out + 'Case 216 + 'Dancer + 'Case 217 + 'Battery + 'Case 218 + 'Fluffy + 'Case 219 + 'Dazzling + 'Case 220 + 'Soul-Heart + Case 221 + Return New Abilities.TanglingHair() + 'Case 222 + 'Receiver + Case 223 + Return New Abilities.PowerofAlchemy() + 'Case 224 + 'Beast Boost + 'Case 225 + 'RKS System + 'Case 226 + 'Electric Surge + 'Case 227 + 'Psychic Surge + 'Case 228 + 'Misty Surge + 'Case 229 + 'Grassy Surge + 'Case 230 + 'Full Metal Body + 'Case 231 + 'Shadow Shield + 'Case 232 + 'Prism Armor + 'Case 233 + 'Neuroforce + 'Case 234 + 'Blank Case Else Return New Abilities.Stench End Select diff --git a/P3D/Pokemon/Abilities/Galvanize.vb b/P3D/Pokemon/Abilities/Galvanize.vb new file mode 100644 index 000000000..7b1250565 --- /dev/null +++ b/P3D/Pokemon/Abilities/Galvanize.vb @@ -0,0 +1,13 @@ +Namespace Abilities + + Public Class Galvanize + + Inherits Ability + + Public Sub New() + MyBase.New(206, "Galvanize", "Normal-type moves become Electric-type moves. The power of those moves is boosted a little.") + End Sub + + End Class + +End Namespace \ No newline at end of file diff --git a/P3D/Pokemon/Abilities/PowerofAlchemy.vb b/P3D/Pokemon/Abilities/PowerofAlchemy.vb new file mode 100644 index 000000000..b656eba48 --- /dev/null +++ b/P3D/Pokemon/Abilities/PowerofAlchemy.vb @@ -0,0 +1,13 @@ +Namespace Abilities + + Public Class PowerofAlchemy + + Inherits Ability + + Public Sub New() + MyBase.New(223, "Power of Alchemy", "The Pokémon copies the Ability of a defeated ally.") + End Sub + + End Class + +End Namespace \ No newline at end of file diff --git a/P3D/Pokemon/Abilities/SlushRush.vb b/P3D/Pokemon/Abilities/SlushRush.vb new file mode 100644 index 000000000..8741f481e --- /dev/null +++ b/P3D/Pokemon/Abilities/SlushRush.vb @@ -0,0 +1,13 @@ +Namespace Abilities + + Public Class SlushRush + + Inherits Ability + + Public Sub New() + MyBase.New(202, "Slush Rush", "Boosts the Pokémon's Speed stat in a hailstorm.") + End Sub + + End Class + +End Namespace \ No newline at end of file diff --git a/P3D/Pokemon/Abilities/SurgeSurfer.vb b/P3D/Pokemon/Abilities/SurgeSurfer.vb new file mode 100644 index 000000000..7ecc2e675 --- /dev/null +++ b/P3D/Pokemon/Abilities/SurgeSurfer.vb @@ -0,0 +1,13 @@ +Namespace Abilities + + Public Class SurgeSurfer + + Inherits Ability + + Public Sub New() + MyBase.New(207, "Surge Surfer", "Doubles the PokĂ©mon's Speed stat on Electric Terrain.") + End Sub + + End Class + +End Namespace \ No newline at end of file diff --git a/P3D/Pokemon/Abilities/TanglingHair.vb b/P3D/Pokemon/Abilities/TanglingHair.vb new file mode 100644 index 000000000..a38075466 --- /dev/null +++ b/P3D/Pokemon/Abilities/TanglingHair.vb @@ -0,0 +1,13 @@ +Namespace Abilities + + Public Class TanglingHair + + Inherits Ability + + Public Sub New() + MyBase.New(221, "Tangling Hair", "Contact with the Pokémon lowers the attacker's Speed stat.") + End Sub + + End Class + +End Namespace \ No newline at end of file diff --git a/P3D/Pokemon/Items/Standard/CellBattery.vb b/P3D/Pokemon/Items/Standard/CellBattery.vb new file mode 100644 index 000000000..029b1d299 --- /dev/null +++ b/P3D/Pokemon/Items/Standard/CellBattery.vb @@ -0,0 +1,19 @@ +Namespace Items.Standard + + + Public Class CellBattery + + Inherits Item + + Public Overrides ReadOnly Property Description As String = "An item to be held by a PokĂ©mon. It boosts Attack if hit with an Electric-type attack. It can only be used once." + Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200 + Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False + Public Overrides ReadOnly Property CanBeUsed As Boolean = False + + Public Sub New() + _textureRectangle = New Rectangle(192, 312, 24, 24) + End Sub + + End Class + +End Namespace diff --git a/P3D/Pokemon/Items/Standard/Snowball.vb b/P3D/Pokemon/Items/Standard/Snowball.vb new file mode 100644 index 000000000..3f75e0d76 --- /dev/null +++ b/P3D/Pokemon/Items/Standard/Snowball.vb @@ -0,0 +1,19 @@ +Namespace Items.Standard + + + Public Class Snowball + + Inherits Item + + Public Overrides ReadOnly Property Description As String = "An item to be held by a PokĂ©mon. It boosts Attack if hit with an Ice-type attack. It can only be used once." + Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200 + Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False + Public Overrides ReadOnly Property CanBeUsed As Boolean = False + + Public Sub New() + _textureRectangle = New Rectangle(168, 312, 24, 24) + End Sub + + End Class + +End Namespace diff --git a/P3D/Pokemon/Items/Stones/IceStone.vb b/P3D/Pokemon/Items/Stones/IceStone.vb new file mode 100644 index 000000000..7db5bdfd8 --- /dev/null +++ b/P3D/Pokemon/Items/Stones/IceStone.vb @@ -0,0 +1,16 @@ +Namespace Items.Stones + + + Public Class IceStone + + Inherits StoneItem + + Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of PokĂ©mon evolve. It has an unmistakable snowflake pattern." + + Public Sub New() + _textureRectangle = New Rectangle(144, 312, 24, 24) + End Sub + + End Class + +End Namespace diff --git a/P3D/Pokemon/Items/_itemList.txt b/P3D/Pokemon/Items/_itemList.txt index 400f0f539..815536673 100644 Binary files a/P3D/Pokemon/Items/_itemList.txt and b/P3D/Pokemon/Items/_itemList.txt differ