Leech seed (addHP) fix

Fixed addHP declaration in the EndRoundOpp subroutine
This commit is contained in:
Capt_Segis 2016-09-12 18:01:53 -05:00 committed by GitHub
parent 5266ae61db
commit 470834f38a
1 changed files with 1 additions and 0 deletions

View File

@ -4871,6 +4871,7 @@ endthisround:
loseHP = currHP loseHP = currHP
End If End If
Dim addHP As Integer = loseHP
If Not .OwnPokemon.Item Is Nothing Then If Not .OwnPokemon.Item Is Nothing Then
If .OwnPokemon.Item.Name.ToLower() = "big root" And .FieldEffects.CanUseItem(True) = True And .FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then If .OwnPokemon.Item.Name.ToLower() = "big root" And .FieldEffects.CanUseItem(True) = True And .FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
addHP += CInt(Math.Ceiling(addHP * (30 / 100))) addHP += CInt(Math.Ceiling(addHP * (30 / 100)))