44 lines
1.8 KiB
VB.net
44 lines
1.8 KiB
VB.net
|
Namespace ScriptVersion2
|
|||
|
|
|
|||
|
|
Partial Class ScriptComparer
|
|||
|
|
|
|||
|
' --------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
' Contains the <entity> constructs.
|
|||
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
Private Shared Function DoEntity(ByVal subClass As String) As Object
|
|||
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|||
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|||
|
|
|
|||
|
|
Dim entID As Integer = int(argument.GetSplit(0))
|
|||
|
|
Dim ent As Entity = Screen.Level.GetEntity(entID)
|
|||
|
|
|
|||
|
|
If Not ent Is Nothing Then
|
|||
|
|
Select Case command.ToLower()
|
|||
|
|
Case "visible"
|
|||
|
|
Return ReturnBoolean(ent.Visible)
|
|||
|
|
Case "opacity"
|
|||
|
|
Return ent.Opacity * 100
|
|||
|
|
Case "position"
|
|||
|
|
Return ent.Position.X.ToString() & "," & ent.Position.Y.ToString() & "," & ent.Position.Z.ToString()
|
|||
|
|
Case "positiony"
|
|||
|
|
Return ent.Position.Y
|
|||
|
|
Case "positionz"
|
|||
|
|
Return ent.Position.Z
|
|||
|
|
Case "positionx"
|
|||
|
|
Return ent.Position.X
|
|||
|
|
Case "scale"
|
|||
|
|
Return ent.Scale.X.ToString() & "," & ent.Scale.Y.ToString() & "," & ent.Scale.Z.ToString()
|
|||
|
|
Case "additionalvalue"
|
|||
|
|
Return ent.AdditionalValue
|
|||
|
|
Case "collision"
|
|||
|
|
Return ReturnBoolean(ent.Collision)
|
|||
|
|
End Select
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return DEFAULTNULL
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
End Namespace
|