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

Fix no full restore message at full hp

This commit is contained in:
JappaWakka 2023-05-03 16:03:56 +02:00
parent a62c78e9ee
commit b3becd5653
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1009,8 +1009,12 @@
Case 15 'Max Potion
Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Max Potion on " & p.GetDisplayName() & "!", "item:maxpotion")
Case 14 'Full Restore
Dim Message As String = ""
If p.HP >= p.MaxHP Then
Message = BattleScreen.Trainer.Name & " used a Full Restore on " & p.GetDisplayName() & "!"
End If
Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Restore on " & p.GetDisplayName() & "!", "item:fullrestore")
Me.CureStatusProblem(False, False, BattleScreen, "", "item:fullrestore")
Me.CureStatusProblem(False, False, BattleScreen, Message, "item:fullrestore")
p.RemoveVolatileStatus(Pokemon.VolatileStatus.Confusion)
Case 38 'Full Heal
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Heal on " & p.GetDisplayName() & "!", "item:fullheal")