Fix camera rotation aiming movement bug

2021-05-13 19:25:12 +02:00
parent eed7865192
commit 2dd3756682
1 changed files with 1 additions and 1 deletions
@@ -40,7 +40,7 @@ wasdWithAiming w speed i cr
  where 
    (mov',dir') = wasdComp (view keys w) w
    dir = fmap (_cameraRot w +) dir'
-    mov = rotateV (negate $ _crDir cr) mov'
+    mov = rotateV (negate $ _crDir cr - _cameraRot w) mov'
    isAiming    = _posture (_crStance cr) == Aiming
    isMoving    = mov' /= (0,0)
    mouseDir = case w ^? creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0))