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

@npc.spawn has argument for moverectangles now

This commit is contained in:
JappaWakka 2023-04-28 09:21:04 +02:00
parent b02542ff67
commit 52ee3da1a2
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
P3D/World/ActionScript/V2/ScriptCommands/DoNPC.vb
View File

@ -194,7 +194,7 @@
Dim args() As String = argument.Split(CChar(",")) Dim args() As String = argument.Split(CChar(","))
' Required parameters: position ' Required parameters: position
' Optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement ' Optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement, moverectangles
Dim position As Vector3 = New Vector3(sng(args(0)), sng(args(1)), sng(args(2))) Dim position As Vector3 = New Vector3(sng(args(0)), sng(args(1)), sng(args(2)))
Dim actionValue As Integer = 0 Dim actionValue As Integer = 0
@ -223,6 +223,22 @@
ID = int(args(9)) ID = int(args(9))
If args.Count >= 11 Then If args.Count >= 11 Then
Movement = args(10) Movement = args(10)
If args.Count >= 12 Then
Dim rectangles As String = argument.Remove(0, argument.IndexOf("[[") + 1)
rectangles = rectangles.Remove(rectangles.Length - 1, 1)
Dim values As String() = rectangles.Split(CChar("]"))
Dim arr As New List(Of Rectangle)
For Each value As String In values
If value.Length > 0 Then
If value.StartsWith("[") Then
value = value.Remove(0, 1)
End If
Dim content() As String = value.Split(CChar(","))
arr.Add(New Rectangle(CInt(content(0)), CInt(content(1)), CInt(content(2)), CInt(content(3))))
End If
Next
MoveRectangles = arr
End If
End If End If
End If End If
End If End If