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

Prevent scrolling while script active

This commit is contained in:
JappaWakka 2024-04-02 11:47:47 +02:00
parent 88d72bb451
commit 6c49740ba2
1 changed files with 44 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Overworld/OverworldCamera.vb
View File

@ -281,6 +281,7 @@ Public Class OverworldCamera
Private Sub ScrollThirdPersonCamera() Private Sub ScrollThirdPersonCamera()
If _isFixed = False Then If _isFixed = False Then
If CurrentScreen.Identification <> Screen.Identifications.OverworldScreen OrElse CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
If Controls.Down(True, False, True, False, False, False) = True Then If Controls.Down(True, False, True, False, False, False) = True Then
If _scrollSpeed = 0.0F Or _scrollDirection <> 1 Then If _scrollSpeed = 0.0F Or _scrollDirection <> 1 Then
_scrollSpeed = 0.01F _scrollSpeed = 0.01F
@ -331,6 +332,7 @@ Public Class OverworldCamera
End If End If
End If End If
End If End If
End If
End Sub End Sub
Public Sub UpdateThirdPersonCamera() Public Sub UpdateThirdPersonCamera()