From 2dd37566829d898f659552b8d1464ae9b1de06ba Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Thu, 13 May 2021 19:25:12 +0200
Subject: [PATCH] Fix camera rotation aiming movement bug

---
 src/Dodge/Creature/YourControl.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dodge/Creature/YourControl.hs b/src/Dodge/Creature/YourControl.hs
index c2d4bcd03..25898aac1 100644
--- a/src/Dodge/Creature/YourControl.hs
+++ b/src/Dodge/Creature/YourControl.hs
@@ -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))