Move handle positions

2023-05-28 15:02:23 +01:00
parent 7fc36ab028
commit 29017e6b06
15 changed files with 40 additions and 35 deletions
@@ -117,7 +117,11 @@ wasdWithAiming w speed cr
        astance <- cr ^? crInv . ix itRef . itUse . heldAim . aimStance
        let currenttwistamount = cr ^. crTwist
        case (astance, currenttwistamount) of
-            (TwoHandTwist, 0) ->
+            (TwoHandUnder, 0) ->
+                return $
+                    (crTwist .~ twistamount * pi)
+                        . (crDir -~ twistamount * pi)
+            (TwoHandOver, 0) ->
                return $
                    (crTwist .~ twistamount * pi)
                        . (crDir -~ twistamount * pi)