alolan prep stuff

P3D/P3D.vbproj

@@ -25638,6 +25638,11 @@
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
     <Compile Include="Pokemon\Abilities\Aerilate.vb" />
+    <Compile Include="Pokemon\Abilities\TanglingHair.vb" />
+    <Compile Include="Pokemon\Abilities\SlushRush.vb" />
+    <Compile Include="Pokemon\Abilities\PowerofAlchemy.vb" />
+    <Compile Include="Pokemon\Abilities\Galvanize.vb" />
+    <Compile Include="Pokemon\Abilities\SurgeSurfer.vb" />
     <Compile Include="Pokemon\Abilities\ParentalBond.vb" />
     <Compile Include="Pokemon\Attacks\Bug\PollenPuff.vb" />
     <Compile Include="Pokemon\Attacks\Bug\FirstImpression.vb" />
@@ -25722,10 +25727,13 @@
     <Compile Include="Pokemon\Items\Machines\TM173.vb" />
     <Compile Include="Pokemon\Items\Standard\DouseDrive.vb" />
     <Compile Include="Pokemon\Items\Standard\ChillDrive.vb" />
+    <Compile Include="Pokemon\Items\Standard\Snowball.vb" />
+    <Compile Include="Pokemon\Items\Standard\CellBattery.vb" />
     <Compile Include="Pokemon\Items\Standard\FlameOrb.vb" />
     <Compile Include="Pokemon\Items\Standard\ShockDrive.vb" />
     <Compile Include="Pokemon\Items\Standard\BurnDrive.vb" />
     <Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" />
+    <Compile Include="Pokemon\Items\Stones\IceStone.vb" />
     <Compile Include="Resources\Blur\BlurHandler.vb" />
     <Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

P3D/Pokemon/Abilities/Ability.vb

@@ -441,18 +441,18 @@
             'Steelworker
             'Case 201
             'Berserk
-			'Case 202
+            Case 202
-			'Slush Rush
+                Return New Abilities.SlushRush()
             'Case 203
             'Long Reach
             'Case 204
             'Liquid Voice
             'Case 205
             'Triage
-			'Case 206
+            Case 206
-			'Galvanize
+                Return New Abilities.Galvanize()
-			'Case 207
+            Case 207
-			'Surge Surfer
+                Return New Abilities.SurgeSurfer()
             'Case 208
             'Schooling
             'Case 209
@@ -479,12 +479,12 @@
             'Dazzling
             'Case 220
             'Soul-Heart
-			'Case 221
+            Case 221
-			'Tangling Hair
+                Return New Abilities.TanglingHair()
             'Case 222
             'Receiver
-			'Case 223
+            Case 223
-			'Power of Alchemy
+                Return New Abilities.PowerofAlchemy()
                 'Case 224
                 'Beast Boost
                 'Case 225

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

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

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

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

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

P3D/Pokemon/Items/Standard/CellBattery.vb

@@ -0,0 +1,19 @@
+Namespace Items.Standard
+
+    <Item(595, "CellBattery")>
+    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

P3D/Pokemon/Items/Standard/Snowball.vb

@@ -0,0 +1,19 @@
+Namespace Items.Standard
+
+    <Item(594, "Snowball")>
+    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

P3D/Pokemon/Items/Stones/IceStone.vb

@@ -0,0 +1,16 @@
+Namespace Items.Stones
+
+    <Item(593, "Ice Stone")>
+    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