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

ModelPath can be parsed for constructs

This commit is contained in:
JappaWakka 2024-08-14 14:47:44 +02:00
parent e065eb575a
commit 93f8d63aaf
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
P3D/World/ActionScript/V2/ScriptCommands/DoLevel.vb
View File

@ -65,6 +65,7 @@
Screen.Level.WarpData.WarpRotations = 0
Screen.Level.WarpData.DoWarpInNextTick = True
Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw
Screen.Level.WarpData.WarpSound = Nothing
IsReady = True
Case "setsafari"
Screen.Level.IsSafariZone = CBool(argument)

12
P3D/World/LevelLoader.vb
View File

@ -652,7 +652,11 @@
Dim ID As Integer = CInt(GetTag(Tags, "ID"))
Dim ModelPath As String = ""
If TagExists(Tags, "ModelPath") = True Then
ModelPath = CStr(GetTag(Tags, "ModelPath"))
If CStr(GetTag(Tags, "ModelPath")).Contains("<") Then
ModelPath = P3D.ScriptVersion2.ScriptCommander.Parse(CStr(GetTag(Tags, "ModelPath"))).ToString()
Else
ModelPath = CStr(GetTag(Tags, "ModelPath"))
End If
End If
Dim Movement As String = CStr(GetTag(Tags, "Movement"))
Dim MoveRectangles As List(Of Rectangle) = CType(GetTag(Tags, "MoveRectangles"), List(Of Rectangle))
@ -829,7 +833,11 @@
Dim ModelPath As String = ""
If TagExists(Tags, "ModelPath") = True Then
ModelPath = CStr(GetTag(Tags, "ModelPath"))
If CStr(GetTag(Tags, "ModelPath")).Contains("<") Then
ModelPath = P3D.ScriptVersion2.ScriptCommander.Parse(CStr(GetTag(Tags, "ModelPath"))).ToString()
Else
ModelPath = CStr(GetTag(Tags, "ModelPath"))
End If
End If
Dim ActionValue As Integer = CInt(GetTag(Tags, "Action"))