98 lines
4.1 KiB
VB.net
98 lines
4.1 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <player> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoPlayer(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "position"
|
|
Dim args() As String = argument.Split(CChar(","))
|
|
If argument <> "" Then
|
|
Dim s As String = ""
|
|
For i = 0 To args.Length - 1
|
|
Select Case args(i)
|
|
Case "x"
|
|
If s <> "" Then
|
|
s &= ","
|
|
End If
|
|
s &= int(Screen.Camera.Position.X)
|
|
Case "y"
|
|
If s <> "" Then
|
|
s &= ","
|
|
End If
|
|
s &= int(Screen.Camera.Position.Y)
|
|
Case "z"
|
|
If s <> "" Then
|
|
s &= ","
|
|
End If
|
|
s &= int(Screen.Camera.Position.Z)
|
|
End Select
|
|
Next
|
|
Return s
|
|
Else
|
|
Return int(Screen.Camera.Position.X) & "," & int(Screen.Camera.Position.Y) & "," & int(Screen.Camera.Position.Z)
|
|
End If
|
|
Case "hasbadge"
|
|
If Core.Player.Badges.Contains(int(argument)) = True Then
|
|
Return "true"
|
|
Else
|
|
Return "false"
|
|
End If
|
|
Case "skin"
|
|
Return Core.Player.Skin
|
|
Case "velocity"
|
|
Return 0F
|
|
Case "ismoving"
|
|
Return ReturnBoolean(Screen.Camera.IsMoving())
|
|
Case "facing"
|
|
Return Screen.Camera.GetPlayerFacingDirection().ToString()
|
|
Case "compass"
|
|
Select Case Screen.Camera.GetPlayerFacingDirection()
|
|
Case 0
|
|
Return "north"
|
|
Case 1
|
|
Return "west"
|
|
Case 2
|
|
Return "south"
|
|
Case 3
|
|
Return "east"
|
|
End Select
|
|
Case "money"
|
|
Return Core.Player.Money.ToString()
|
|
Case "name"
|
|
Return Core.Player.Name
|
|
Case "gender"
|
|
If Core.Player.Male = True Then
|
|
Return "1"
|
|
Else
|
|
Return "0"
|
|
End If
|
|
Case "bp"
|
|
Return Core.Player.BP.ToString()
|
|
Case "badges"
|
|
Return Core.Player.Badges.Count
|
|
Case "thirdperson"
|
|
Return ReturnBoolean(CType(Screen.Camera, OverworldCamera).ThirdPerson)
|
|
Case "rival", "rivalname"
|
|
Return Core.Player.RivalName
|
|
Case "ot"
|
|
Return Core.Player.OT
|
|
Case "gamejoltid"
|
|
Return Core.GameJoltSave.GameJoltID
|
|
Case "haspokedex"
|
|
Return ReturnBoolean(Core.Player.HasPokedex)
|
|
Case "haspokegear"
|
|
Return ReturnBoolean(Core.Player.HasPokegear)
|
|
End Select
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |