Added GameRule for forgetting HM moves

CanForgetHM
0 = HM moves can't be forgotten
1 = HM moves can be forgotten

P3D/Resources/GameModeManager.vb

@@ -608,6 +608,7 @@ Public Class GameMode
         gameRules.Add(New GameRule("OverworldPoison", "0"))
         gameRules.Add(New GameRule("SavingDisabled", "0"))
         gameRules.Add(New GameRule("SingleUseTM", "0"))
+        gameRules.Add(New GameRule("CanForgetHM", "0"))
 
         gameMode._gameRules = gameRules
 

P3D/Screens/Pokemon/LearnAttackScreen.vb

@@ -52,7 +52,11 @@
                 Me.AttackIndex = CInt(MathHelper.Clamp(Me.AttackIndex, 0, 4))
 
                 If AttackIndex < 4 Then
-                    canForget = Not Pokemon.Attacks(AttackIndex).IsHMMove
+                    If CBool(GameModeManager.GetGameRuleValue("CanForgetHM", "0")) = True Then
+                        canForget = True
+                    Else
+                        canForget = Not Pokemon.Attacks(AttackIndex).IsHMMove
+                    End If
                 Else
                     canForget = True
                 End If