From 052ef498135ca477d045152c7daad95a56c178e9 Mon Sep 17 00:00:00 2001 From: Capt_Segis Date: Wed, 14 Sep 2016 03:59:41 -0500 Subject: [PATCH] Added FreezeDry Effectiveness --- .../2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb b/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb index f70a1e8b0..5af3fef13 100644 --- a/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb +++ b/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb @@ -574,6 +574,13 @@ Dim Type2 As Single = ReverseTypeEffectiveness(Element.GetElementMultiplier(move.GetAttackType(own, BattleScreen), op.Type2)) Dim effectiveness As Single = Type1 * Type2 + 'Freeze Dry + If move.ID = 573 Then + If op.Type1 = Element.Types.Water Or op.Type2 = Element.Types.Water Then + effectiveness *= 4 + End If + End If + Dim hasIronBall As Boolean = False If Not p.Item Is Nothing Then If p.Item.Name.ToLower() = "iron ball" And BattleScreen.FieldEffects.CanUseItem(own) = True And BattleScreen.FieldEffects.CanUseOwnItem(own, BattleScreen) = True Then