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

Fixed Leech Seed 

Fixed conditions and copied the lines that take account MaxHP into the OppPokemon being seeded side.
This commit is contained in:
Capt_Segis 2016-09-12 13:20:13 -05:00 committed by GitHub
parent ccef12bf14
commit c40d4cc029
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -4146,12 +4146,12 @@ endthisround:
End If
End If
If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed
If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed (Own pokemon seeded)
If .OwnPokemon.HP > 0 And .OppPokemon.HP > 0 And .OppPokemon.HP < .OppPokemon.MaxHP Then
Dim loseHP As Integer = CInt(Math.Ceiling( .OwnPokemon.MaxHP / 8))
Dim currHP As Integer = .OwnPokemon.HP
If loseHP > currHP
If loseHP > currHP Then
loseHP = currHP
End If
@ -4858,11 +4858,15 @@ endthisround:
End If
End If
If .FieldEffects.OppLeechSeed > 0 Then 'LeechSeed
If .OppPokemon.HP > 0 And .OwnPokemon.HP > 0 And .OwnPokemon.HP < .OppPokemon.MaxHP Then
Dim loseHP As Integer = CInt(Math.Ceiling( .OppPokemon.HP / 8))
If .FieldEffects.OppLeechSeed > 0 Then 'LeechSeed (opponent seeded)
If .OppPokemon.HP > 0 And .OwnPokemon.HP > 0 And .OwnPokemon.HP < .OwnPokemon.MaxHP Then
Dim loseHP As Integer = CInt(Math.Ceiling( .OppPokemon.MaxHP / 8))
Dim currHP As Integer = .OppPokemon.HP
If loseHP > currHP Then
loseHP = currHP
End If
Dim addHP As Integer = loseHP
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
addHP += CInt(Math.Ceiling(addHP * (30 / 100)))