Terrain ability pages

P3D/Pokemon/Abilities/Ability.vb

@@ -485,18 +485,18 @@
             '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 224
+            'Beast Boost
+            'Case 225
+            'RKS System
+            Case 226
+                Return New Abilities.ElectricSurge()
+            Case 227
+                Return New Abilities.PsychicSurge()
+            Case 228
+                Return New Abilities.MistySurge()
+            Case 229
+                Return New Abilities.GrassySurge()
                 'Case 230
                 'Full Metal Body
                 'Case 231
@@ -505,8 +505,6 @@
                 'Prism Armor
                 'Case 233
                 'Neuroforce
-                'Case 234
-                'Blank
             Case Else
                 Return New Abilities.Stench
         End Select

P3D/Pokemon/Abilities/ElectricSurge.vb

@@ -0,0 +1,13 @@
+Namespace Abilities
+
+    Public Class ElectricSurge
+
+        Inherits Ability
+
+        Public Sub New()
+            MyBase.New(226, "Electric Surge", "Turns the ground into Electric Terrain when the Pokémon enters a battle.")
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Abilities/GrassySurge.vb

@@ -0,0 +1,13 @@
+Namespace Abilities
+
+    Public Class GrassySurge
+
+        Inherits Ability
+
+        Public Sub New()
+            MyBase.New(229, "Grassy Surge", "Turns the ground into Grassy Terrain when the Pokémon enters a battle.")
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Abilities/MistySurge.vb

@@ -0,0 +1,13 @@
+Namespace Abilities
+
+    Public Class MistySurge
+
+        Inherits Ability
+
+        Public Sub New()
+            MyBase.New(228, "Misty Surge", "Turns the ground into Misty Terrain when the Pokémon enters a battle.")
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Abilities/PsychicSurge.vb

@@ -0,0 +1,13 @@
+Namespace Abilities
+
+    Public Class PsychicSurge
+
+        Inherits Ability
+
+        Public Sub New()
+            MyBase.New(227, "Psychic Surge", "Turns the ground into Psychic Terrain when the Pokémon enters a battle.")
+        End Sub
+
+    End Class
+
+End Namespace