Tweak horizontal camera speed for controllers

This commit is contained in:
JappaWakka 2023-02-27 20:12:18 +01:00
parent 734ece683c
commit 19d88a3bda
1 changed files with 6 additions and 2 deletions

View File

@ -669,10 +669,14 @@ Public Class OverworldCamera
Private Sub FirstPersonMovement() Private Sub FirstPersonMovement()
Dim pressedDirection As Integer = -1 Dim pressedDirection As Integer = -1
Dim ControllerTurnModifier As Single = 1.0F
If ControllerHandler.ButtonDown(Buttons.RightThumbstickLeft) = True OrElse ControllerHandler.ButtonDown(Buttons.RightThumbstickRight) = True Then
ControllerTurnModifier = 0.25F
End If
If YawLocked = False And Turning = False Then If YawLocked = False And Turning = False Then
If (KeyBoardHandler.KeyDown(KeyBindings.LeftMoveKey) = True Or ControllerHandler.ButtonDown(Buttons.RightThumbstickLeft) = True) And Turning = False Then If (KeyBoardHandler.KeyDown(KeyBindings.LeftMoveKey) = True Or ControllerHandler.ButtonDown(Buttons.RightThumbstickLeft) = True) And Turning = False Then
If _freeCameraMode = True Then If _freeCameraMode = True Then
Yaw += RotationSpeed * 40.0F Yaw += RotationSpeed * 40.0F * ControllerTurnModifier
ClampYaw() ClampYaw()
Else Else
@ -690,7 +694,7 @@ Public Class OverworldCamera
End If End If
If (KeyBoardHandler.KeyDown(KeyBindings.RightMoveKey) = True Or ControllerHandler.ButtonDown(Buttons.RightThumbstickRight) = True) And Turning = False Then If (KeyBoardHandler.KeyDown(KeyBindings.RightMoveKey) = True Or ControllerHandler.ButtonDown(Buttons.RightThumbstickRight) = True) And Turning = False Then
If _freeCameraMode = True Then If _freeCameraMode = True Then
Yaw -= RotationSpeed * 40.0F Yaw -= RotationSpeed * 40.0F * ControllerTurnModifier
ClampYaw() ClampYaw()
Else Else