Balance changes from Gen 7 to Sheer Cold and Prankster

P3D/Battle/BattleSystemV2/Battle.vb

@@ -2278,6 +2278,14 @@
                                     oppSubstitute = BattleScreen.FieldEffects.OppSubstitute
                                 End If
 
+                                If moveUsed.MagicCoatAffected Then
+                                    If p.IsType(Element.Types.Dark) Then
+                                        If op.Ability.Name.ToLower = "prankster" AndAlso BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) Then
+                                            effectiveness = 0.0F
+                                        End If
+                                    End If
+                                End If
+
                                 If effectiveness = 0.0F Then
                                     BattleScreen.BattleQuery.Add(New TextQueryObject("It has no effect..."))
                                     moveUsed.MoveHasNoEffect(Not own, BattleScreen)
@@ -2289,6 +2297,13 @@
                                     End If
                                 End If
                             Else
+                                If moveUsed.MagicCoatAffected Then
+                                    If op.IsType(Element.Types.Dark) Then
+                                        If p.Ability.Name.ToLower = "prankster" AndAlso BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) Then
+                                            effectiveness = 0.0F
+                                        End If
+                                    End If
+                                End If
                                 If effectiveness = 0.0F Then
                                     BattleScreen.BattleQuery.Add(New TextQueryObject("It has no effect..."))
                                     moveUsed.MoveHasNoEffect(own, BattleScreen)

P3D/Battle/BattleSystemV2/BattleCalculation.vb

@@ -664,6 +664,13 @@
                 End If
             End If
 
+            'Sheer Cold
+            If move.ID = 329 Then
+                If op.IsType(Element.Types.Ice) Then
+                    effectiveness = 0
+                End If
+            End If
+
             Dim _targetHasIronBall As Boolean = False
             If Not op.Item Is Nothing Then
                 If op.Item.Name.ToLower() = "iron ball" And BattleScreen.FieldEffects.CanUseItem(own) = True And BattleScreen.FieldEffects.CanUseOwnItem(own, BattleScreen) = True Then

P3D/Pokemon/Attacks/Ice/SheerCold.vb

@@ -65,6 +65,9 @@
             End If
 
             Dim acc As Integer = ((p.Level - op.Level) + 30)
+            If Not p.IsType(Element.Types.Ice) Then
+                acc = CInt(acc * 0.8F)
+            End If
             Return acc
         End Function