Added <Player.LastRestPlace> construct

Returns the last rest location the player has visited in the following format: "map.dat,x,y,z".
This commit is contained in:
JappaWakka 2024-09-28 10:06:55 +02:00
parent d02763959f
commit 9522656df9
2 changed files with 7 additions and 2 deletions

View File

@ -123,10 +123,14 @@
Return ReturnBoolean(Core.Player.HasPokegear)
Case "isgamejolt"
'<player.isgamejolt([bool_checkban=0])
If argument = "1" Then
ReturnBoolean(Core.Player.IsGameJoltSave = True AndAlso GameJolt.LogInScreen.UserBanned(GameJoltSave.GameJoltID) = False)
If argument <> "" Then
If CBool(argument) = True Then
ReturnBoolean(Core.Player.IsGameJoltSave = True AndAlso GameJolt.LogInScreen.UserBanned(GameJoltSave.GameJoltID) = False)
End If
End If
Return ReturnBoolean(Core.Player.IsGameJoltSave)
Case "lastrestplace"
Return Core.Player.LastRestPlace & "," & Core.Player.LastRestPlacePosition
End Select
Return DEFAULTNULL
End Function

View File

@ -565,6 +565,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("player", "gamejoltid", "str", "Returns the player's GameJolt ID.", ",", True))
r(New ScriptCommand("player", "haspokedex", "bool", "Returns if the player received the Pokédex.", ",", True))
r(New ScriptCommand("player", "haspokegear", "bool", "Returns if the player received the Pokégear.", ",", True))
r(New ScriptCommand("player", "LastRestPlace", "bool", "Returns the last rest location the player has visited in the following format: ""map.dat,x,y,z"".", ",", True))
End Sub
Private Shared Sub DoNPC()