From f54de70dd4a2dcd2ded6534e6b75169927151ca1 Mon Sep 17 00:00:00 2001 From: CaptainSegis Date: Thu, 29 Dec 2016 19:11:14 -0500 Subject: [PATCH] small changes to BattleCalculation.vb --- .../Battle/BattleSystemV2/BattleCalculation.vb | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb b/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb index 5d45b0207..925c60bc1 100644 --- a/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb +++ b/2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb @@ -1474,10 +1474,6 @@ DSM = 1.0F End If - If Attack.Name.ToLower() = "selfdestruct" Or Attack.Name.ToLower() = "explosion" Then - SX = 0.5F - End If - If Op.Ability.Name.ToLower() = "flower gift" Then If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then DMod = 1.5F @@ -1487,7 +1483,7 @@ If Not Op.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Not Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not Own, BattleScreen) = True Then Select Case Op.Item.Name.ToLower() Case "soul dew" - If p.Number = 380 Or p.Number = 381 Then + If Op.Number = 380 Or p.Number = 381 Then DMod = 1.5F End If Case "metal powder" @@ -1495,13 +1491,13 @@ DMod = 1.5F End If Case "deepseascale" - If p.Number = 366 Then + If Op.Number = 366 Then DMod = 2.0F End If Case "assault vest" DMod = 1.5F Case "eviolite" - If p.IsFullyEvolved = False Then + If Op.IsFullyEvolved = False Then DMod = 1.5F End If End Select