tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-10 15:34:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

leech seed drains even if other pokemon is full

Browse Source
This commit is contained in:
darkfire006 2022-08-23 01:01:59 -05:00
parent 1e2af514b2
commit 9d85a79f65
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -5720,7 +5720,7 @@
End If End If
End If End If
If .FieldEffects.OppLeechSeed > 0 Then 'LeechSeed (opponent seeded) If .FieldEffects.OppLeechSeed > 0 Then 'LeechSeed (opponent seeded)
If .OppPokemon.HP > 0 And .OwnPokemon.HP > 0 And .OwnPokemon.HP < .OwnPokemon.MaxHP Then If .OppPokemon.HP > 0 And .OwnPokemon.HP > 0 Then
Dim loseHP As Integer = CInt(Math.Ceiling(.OppPokemon.MaxHP / 8)) Dim loseHP As Integer = CInt(Math.Ceiling(.OppPokemon.MaxHP / 8))
Dim currHP As Integer = .OppPokemon.HP Dim currHP As Integer = .OppPokemon.HP
@ -6598,7 +6598,7 @@
End If End If
End If End If
If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed (Own pokemon seeded) If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed (Own pokemon seeded)
If .OwnPokemon.HP > 0 And .OppPokemon.HP > 0 And .OppPokemon.HP < .OppPokemon.MaxHP Then If .OwnPokemon.HP > 0 And .OppPokemon.HP > 0 Then
Dim loseHP As Integer = CInt(Math.Ceiling(.OwnPokemon.MaxHP / 8)) Dim loseHP As Integer = CInt(Math.Ceiling(.OwnPokemon.MaxHP / 8))
Dim currHP As Integer = .OwnPokemon.HP Dim currHP As Integer = .OwnPokemon.HP