From 9a166d3e422d586bb292f9ea6f487a7a9abc7493 Mon Sep 17 00:00:00 2001
From: Ruan Pablo <ruanpablo9k@gmail.com>
Date: Sun, 22 Sep 2019 18:45:26 -0300
Subject: [PATCH] Terrain ability pages

---
 P3D/Pokemon/Abilities/Ability.vb       | 26 ++++++++++++--------------
 P3D/Pokemon/Abilities/ElectricSurge.vb | 13 +++++++++++++
 P3D/Pokemon/Abilities/GrassySurge.vb   | 13 +++++++++++++
 P3D/Pokemon/Abilities/MistySurge.vb    | 13 +++++++++++++
 P3D/Pokemon/Abilities/PsychicSurge.vb  | 13 +++++++++++++
 5 files changed, 64 insertions(+), 14 deletions(-)
 create mode 100644 P3D/Pokemon/Abilities/ElectricSurge.vb
 create mode 100644 P3D/Pokemon/Abilities/GrassySurge.vb
 create mode 100644 P3D/Pokemon/Abilities/MistySurge.vb
 create mode 100644 P3D/Pokemon/Abilities/PsychicSurge.vb

diff --git a/P3D/Pokemon/Abilities/Ability.vb b/P3D/Pokemon/Abilities/Ability.vb
index e5a85ab6f..819d33038 100644
--- a/P3D/Pokemon/Abilities/Ability.vb
+++ b/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
diff --git a/P3D/Pokemon/Abilities/ElectricSurge.vb b/P3D/Pokemon/Abilities/ElectricSurge.vb
new file mode 100644
index 000000000..4f6409d21
--- /dev/null
+++ b/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
\ No newline at end of file
diff --git a/P3D/Pokemon/Abilities/GrassySurge.vb b/P3D/Pokemon/Abilities/GrassySurge.vb
new file mode 100644
index 000000000..c3d13f617
--- /dev/null
+++ b/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
\ No newline at end of file
diff --git a/P3D/Pokemon/Abilities/MistySurge.vb b/P3D/Pokemon/Abilities/MistySurge.vb
new file mode 100644
index 000000000..517df23e7
--- /dev/null
+++ b/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
\ No newline at end of file
diff --git a/P3D/Pokemon/Abilities/PsychicSurge.vb b/P3D/Pokemon/Abilities/PsychicSurge.vb
new file mode 100644
index 000000000..630831cd4
--- /dev/null
+++ b/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
\ No newline at end of file