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

Fix for battlemaps with scriptblocks on them 

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

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

@ -62,11 +62,15 @@
End Sub
Public Overrides Sub Update()
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
Screen.Camera.StopMovement()
ActivateScript = False
TriggerScript(False)
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen 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
Screen.Camera.StopMovement()
ActivateScript = False
TriggerScript(False)
End If
Else
TriggeredScriptBlock = False
End If
Else
TriggeredScriptBlock = False