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

Fix for battlemaps with scriptblocks on them

Browse Source 
like battle\underwatercave\underwater.dat
This commit is contained in:
JappaWakka 2023-03-19 19:11:12 +01:00
parent 774125da9e
commit ce165c1e57
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Entites/Enviroment/ScriptBlock.vb
View File

@ -62,6 +62,7 @@
End Sub End Sub
Public Overrides Sub Update() Public Overrides Sub Update()
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
If CType(Screen.Camera, OverworldCamera).IsPushingStrengthRock = False Then If CType(Screen.Camera, OverworldCamera).IsPushingStrengthRock = False Then
If Me.ActivateScript = True And Screen.Camera.Position.X = Me.Position.X And Screen.Camera.Position.Z = Me.Position.Z And CInt(Screen.Camera.Position.Y) = CInt(Me.Position.Y) Then If Me.ActivateScript = True And Screen.Camera.Position.X = Me.Position.X And Screen.Camera.Position.Z = Me.Position.Z And CInt(Screen.Camera.Position.Y) = CInt(Me.Position.Y) Then
Screen.Camera.StopMovement() Screen.Camera.StopMovement()
@ -71,6 +72,9 @@
Else Else
TriggeredScriptBlock = False TriggeredScriptBlock = False
End If End If
Else
TriggeredScriptBlock = False
End If
MyBase.Update() MyBase.Update()
End Sub End Sub