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 @pokemon.setstatus to none

This commit is contained in:
JappaWakka 2024-04-07 19:49:27 +02:00
parent 730e3ad766
commit a0fd0f061a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -1051,7 +1051,7 @@
End If
Case "setstatus"
Dim Index As Integer = int(argument.GetSplit(0, ","))
Dim Status As Pokemon.StatusProblems = Nothing
Dim Status As Integer = -1
Select Case argument.GetSplit(1, ",")
Case "brn"
Status = Pokemon.StatusProblems.Burn
@ -1072,8 +1072,8 @@
Case Else
Status = Pokemon.StatusProblems.None
End Select
If Status <> Nothing AndAlso Core.Player.Pokemons.Count - 1 >= Index Then
Core.Player.Pokemons(Index).Status = Status
If Status <> -1 AndAlso Core.Player.Pokemons.Count - 1 >= Index Then
Core.Player.Pokemons(Index).Status = CType(Status, Pokemon.StatusProblems)
If Status = Pokemon.StatusProblems.Fainted Then
Core.Player.Pokemons(Index).HP = 0
End If