tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-31 01:35:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix Rare Candy healing before checking evolution

Browse Source
This commit is contained in:
JappaWakka 2023-12-10 13:13:06 +01:00
parent e2d0996ffd
commit 58d438f179
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Pokemon/Items/Medicine/RareCandy.vb
View File

@ -29,10 +29,6 @@ Namespace Items.Medicine
Dim beforeHP As Integer = Pokemon.MaxHP
Pokemon.LevelUp(False)
Pokemon.Experience = Pokemon.NeedExperience(Pokemon.Level)
If Pokemon.Status = P3D.Pokemon.StatusProblems.Fainted Then
Pokemon.Status = P3D.Pokemon.StatusProblems.None
Pokemon.HP = (Pokemon.MaxHP - beforeHP).Clamp(1, 999)
End If
Dim s As String =
"version=2" & Environment.NewLine &
@ -66,6 +62,11 @@ Namespace Items.Medicine
s &= "@pokemon.evolve(" & PokeIndex & ")" & Environment.NewLine
End If
If Pokemon.Status = P3D.Pokemon.StatusProblems.Fainted Then
s &= "@pokemon.setstatus(" & PokeIndex & ",none)" & Environment.NewLine &
"@pokemon.setstat(" & PokeIndex & ",chp," & (Pokemon.MaxHP - beforeHP).Clamp(1, 999) & ")" & Environment.NewLine
End If
If removedItem = False Then
Dim t As String = Me.RemoveItem()
If t <> "" Then