tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 14:54:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

ModelPath can be parsed for constructs

Browse Source
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.WarpRotations = 0
Screen.Level.WarpData.DoWarpInNextTick = True Screen.Level.WarpData.DoWarpInNextTick = True
Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw Screen.Level.WarpData.CorrectCameraYaw = Screen.Camera.Yaw
Screen.Level.WarpData.WarpSound = Nothing
IsReady = True IsReady = True
Case "setsafari" Case "setsafari"
Screen.Level.IsSafariZone = CBool(argument) 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 ID As Integer = CInt(GetTag(Tags, "ID"))
Dim ModelPath As String = "" Dim ModelPath As String = ""
If TagExists(Tags, "ModelPath") = True Then 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 End If
Dim Movement As String = CStr(GetTag(Tags, "Movement")) Dim Movement As String = CStr(GetTag(Tags, "Movement"))
Dim MoveRectangles As List(Of Rectangle) = CType(GetTag(Tags, "MoveRectangles"), List(Of Rectangle)) Dim MoveRectangles As List(Of Rectangle) = CType(GetTag(Tags, "MoveRectangles"), List(Of Rectangle))
@ -829,7 +833,11 @@
Dim ModelPath As String = "" Dim ModelPath As String = ""
If TagExists(Tags, "ModelPath") = True Then 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 End If
Dim ActionValue As Integer = CInt(GetTag(Tags, "Action")) Dim ActionValue As Integer = CInt(GetTag(Tags, "Action"))