Terrain ability pages

P3D/Pokemon/Abilities/Ability.vb

@@ -489,14 +489,14 @@
             'Beast Boost
             'Case 225
             'RKS System
-                'Case 226
+            Case 226
-                'Electric Surge
+                Return New Abilities.ElectricSurge()
-                'Case 227
+            Case 227
-                'Psychic Surge
+                Return New Abilities.PsychicSurge()
-                'Case 228
+            Case 228
-                'Misty Surge
+                Return New Abilities.MistySurge()
-                'Case 229
+            Case 229
-                'Grassy Surge
+                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