tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Balance changes from Gen 7 to Sheer Cold and Prankster

This commit is contained in:
CaptainSegis 2018-08-20 15:25:47 -05:00
parent aebd16df9c
commit f8d579b6ff
3 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -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)

7
P3D/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -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

3
P3D/Pokemon/Attacks/Ice/SheerCold.vb
View File

@ -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