From 011ce46050452a6e30fbc857a7703664b3a35557 Mon Sep 17 00:00:00 2001 From: Capt_Segis Date: Sun, 11 Sep 2016 01:28:26 -0500 Subject: [PATCH] Update Battle.vb --- 2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb b/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb index 75ca7ecce..64a9a5e4b 100644 --- a/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb +++ b/2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb @@ -4148,8 +4148,13 @@ endthisround: If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed If .OwnPokemon.HP > 0 And .OppPokemon.HP > 0 And .OppPokemon.HP < .OppPokemon.MaxHP Then - Dim loseHP As Integer = CInt(Math.Ceiling( .OwnPokemon.HP / 8)) - + Dim loseHP As Integer = CInt(Math.Ceiling( .OwnPokemon.MaxHP / 8)) + Dim currHP As Integer = .OwnPokemon.HP + + If loseHP > currHP + loseHP = currHP + End If + Dim addHP As Integer = loseHP If Not .OppPokemon.Item Is Nothing Then If .OppPokemon.Item.Name.ToLower() = "big root" And .FieldEffects.CanUseItem(False) = True And .FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then @@ -6276,4 +6281,4 @@ endthisround: End Class -End Namespace \ No newline at end of file +End Namespace