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

Merge pull request #2 from CaptainSegis/CaptainSegis-patch-1 

Fix leech seed HP calculations
This commit is contained in:
nilllzz 2016-09-12 19:07:57 +02:00 committed by GitHub
parent d8452d5a14 011ce46050
commit dae6c53a18
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4148,7 +4148,12 @@ endthisround:
If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed If .FieldEffects.OwnLeechSeed > 0 Then 'LeechSeed
If .OwnPokemon.HP > 0 And .OppPokemon.HP > 0 And .OppPokemon.HP < .OppPokemon.MaxHP Then 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 Dim addHP As Integer = loseHP
If Not .OppPokemon.Item Is Nothing Then If Not .OppPokemon.Item Is Nothing Then