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

Possible screen cast fix

Browse Source
This commit is contained in:
Aragas 2016-12-04 17:52:38 +03:00
parent ffd3329a5c
commit dc1e3e6dd8
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Entites/Entity.vb
View File

@ -363,6 +363,7 @@
Dim CPosition As Vector3 = Screen.Camera.Position Dim CPosition As Vector3 = Screen.Camera.Position
Dim ActionScriptActive As Boolean = False Dim ActionScriptActive As Boolean = False
SyncLock Screen.Camera
If Not Core.CurrentScreen Is Nothing Then If Not Core.CurrentScreen Is Nothing Then
If Screen.Camera.Name.ToLower() = "overworld" Then If Screen.Camera.Name.ToLower() = "overworld" Then
CPosition = CType(Screen.Camera, OverworldCamera).CPosition CPosition = CType(Screen.Camera, OverworldCamera).CPosition
@ -374,15 +375,16 @@
ActionScriptActive = Not CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady ActionScriptActive = Not CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady
End If End If
End If End If
End SyncLock
CameraDistance = CalculateCameraDistance(CPosition) CameraDistance = CalculateCameraDistance(CPosition)
If Me.DropUpdateUnlessDrawn = True And Me.DrawnLastFrame = False And Me.Visible = True And ActionScriptActive = False Then If Me.DropUpdateUnlessDrawn = True And Me.DrawnLastFrame = False And Me.Visible = True And ActionScriptActive = False Then
Exit Sub Exit Sub
End If End If
If Me.Moved > 0.0F And Me.CanMove = True Then If Me.Moved > 0.0F And Me.CanMove = True Then
Me.Moved -= Me.Speed Me.Moved -= Me.Speed