Tweak twisting when aiming

src/Dodge/Creature/HandPos.hs

@@ -0,0 +1,6 @@
+module Dodge.Creature.HandPos where
+import Dodge.Data
+import Geometry
+
+crHandPos :: Creature -> Point3
+crHandPos cr = V3 0 0 20

src/Dodge/Creature/Picture.hs

@@ -85,7 +85,6 @@ creatureDisplayText cfig w cr
     a = argV v - 0.5 * pi
     (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v
 
-
 crDisplayAlert :: Creature -> String
 crDisplayAlert cr
     | isSuspicious = "?"

src/Dodge/Creature/YourControl.hs

@@ -32,9 +32,22 @@ wasdWithAiming
     -> Creature 
     -> Creature
 wasdWithAiming w speed i cr
-    | isAiming  = set crDir mouseDir $ theMovement cr
-    | otherwise = theMovement $ theTurn cr
+    | isAiming 
+        = addAnyTwist $ set crDir mouseDir $ theMovement cr
+    | (isReloading && SDL.ButtonRight `S.member` _mouseButtons w)
+        = addAnyTwist $ set crDir (mouseDir + anytwist) $ theMovement cr
+    | otherwise = theMovement $ theTurn $ removeTwist cr
   where 
+    twistamount = 1.6
+    removeTwist cr' = case _crTwist cr' of
+        t -> cr' & crDir +~ t & crTwist .~ 0
+    anytwist = case cr ^? crInv . ix (_crInvSel (_creatures w IM.! i)) . itUse . useAim . aimStance of
+            Just TwoHandTwist -> twistamount * pi
+            _ -> 0
+    addAnyTwist cr' 
+        = case cr' ^? crInv . ix (_crInvSel (_creatures w IM.! i)) . itUse . useAim . aimStance of
+            Just TwoHandTwist -> cr' & crTwist .~ twistamount * pi
+            _ -> cr'
     theMovement
         | movDir == V2 0 0 = id
         | otherwise = crMvAbsolute (speed *.* movAbs) . set crMvDir dir
@@ -43,6 +56,7 @@ wasdWithAiming w speed i cr
     dir = _cameraRot w + argV movDir
     movAbs   = rotateV (_cameraRot w) $ normalizeV movDir
     isAiming = _posture (_crStance cr) == Aiming
+    isReloading = _posture (_crStance cr) == Reloading
     mouseDir = case w ^? creatures . ix i . crInv . ix (_crInvSel (_creatures w IM.! i))
                               . itAttachment of
         Just ItScope{_scopePos = p} -> normalizeAngle $ argV