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

View File

@ -281,6 +281,7 @@ Public Class OverworldCamera
Private Sub ScrollThirdPersonCamera()
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 _scrollSpeed = 0.0F Or _scrollDirection <> 1 Then
_scrollSpeed = 0.01F
@ -331,6 +332,7 @@ Public Class OverworldCamera
End If
End If
End If
End If
End Sub
Public Sub UpdateThirdPersonCamera()