Make paralysis actually fail moves too

P3D/Battle/BattleSystemV2/Battle.vb

@@ -1730,6 +1730,7 @@
                         BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Battle\Effects\Paralyzed", False))
                     End If
                     BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is fully paralyzed!" & Environment.NewLine & "It cannot move!"))
+                    moveUsed.IsParalyzed(own, BattleScreen)
                     Exit Sub
                 End If
             End If

P3D/Pokemon/Attacks/Attack.vb

@@ -2271,7 +2271,17 @@
             End If
             'DO NOTHING
         End Sub
-
+        ''' <summary>
+        ''' Event that occurs when the pokemon can't attack because of paralysis.
+        ''' </summary>
+        ''' <param name="Own">If the own Pokémon is in love.</param>
+        ''' <param name="BattleScreen">Reference to the BattleScreen.</param>
+        Public Overridable Sub IsParalyzed(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
+            If gmCopyMove <> -1 Then
+                GetAttackByID(gmCopyMove).IsParalyzed(own, BattleScreen)
+            End If
+            'DO NOTHING
+        End Sub
         ''' <summary>
         ''' Event that occurs when a the pokemon has been put to sleep.
         ''' </summary>

P3D/Pokemon/Attacks/Bug/FuryCutter.vb

@@ -128,6 +128,10 @@
             ResetCounter(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            ResetCounter(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             ResetCounter(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Dragon/Outrage.vb

@@ -130,6 +130,10 @@
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Fairy/Geomancy.vb

@@ -141,6 +141,10 @@ Namespace BattleSystem.Moves.Fairy
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Flying/Bounce.vb

@@ -169,6 +169,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub HurtItselfInConfusion(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Flying/Fly.vb

@@ -173,6 +173,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Flying/SkyAttack.vb

@@ -174,6 +174,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Ghost/PhantomForce.vb

@@ -175,6 +175,10 @@ Namespace BattleSystem.Moves.Ghost
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Ghost/ShadowForce.vb

@@ -175,6 +175,10 @@ Namespace BattleSystem.Moves.Ghost
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Grass/PetalDance.vb

@@ -130,6 +130,10 @@
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Grass/SolarBeam.vb

@@ -192,6 +192,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Grass/SolarBlade.vb

@@ -191,6 +191,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Ground/Dig.vb

@@ -175,6 +175,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Ice/IceBall.vb

@@ -135,6 +135,10 @@
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/Bide.vb

@@ -141,6 +141,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/EchoedVoice.vb

@@ -129,6 +129,10 @@
             ResetCounter(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            ResetCounter(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             ResetCounter(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/RazorWind.vb

@@ -173,6 +173,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/SkullBash.vb

@@ -175,6 +175,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/Thrash.vb

@@ -129,6 +129,10 @@
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Normal/Uproar.vb

@@ -118,6 +118,10 @@
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Rock/Rollout.vb

@@ -146,6 +146,10 @@ Namespace BattleSystem.Moves.Rock
             Interruption(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            Interruption(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             Interruption(own, BattleScreen)
         End Sub

P3D/Pokemon/Attacks/Water/Dive.vb

@@ -177,6 +177,10 @@
             MoveFails(own, BattleScreen)
         End Sub
 
+        Public Overrides Sub IsParalyzed(own As Boolean, BattleScreen As BattleScreen)
+            MoveFails(own, BattleScreen)
+        End Sub
+
         Public Overrides Sub IsAttracted(own As Boolean, BattleScreen As BattleScreen)
             MoveFails(own, BattleScreen)
         End Sub