Cleanup, improve aiming code

2025-05-31 15:28:30 +01:00
parent 3553ee5bbf
commit 8b07fffa7c
6 changed files with 107 additions and 93 deletions
@@ -327,6 +327,9 @@ updateMouseContextGame cfig u = case u ^. uvWorld . input . mouseContext of
  where
    w = u ^. uvWorld
    aimcontext
+        | Just t1 <- w ^. input . mouseButtons . at ButtonLeft
+        , Just t2 <- w ^. input . mouseButtons . at ButtonRight
+        , t1 > t2 = MouseGameRotate
        | ButtonRight `M.member` (w ^. input . mouseButtons) = MouseAiming
        | otherwise = MouseInGame
    mpos = w ^. input . mousePos