Continue tweaking movement, remove _crMvAim

src/Dodge/Creature/YourControl.hs

@@ -117,7 +117,8 @@ wasdAim inp w cr
         setposture Aiming (-twoHandTwistAmount)
     | SDL.ButtonRight `M.member` _mouseButtons inp = aimTurn (w ^. cWorld . lWorld) mousedir cr
     | Aiming{} <- cr ^. crStance . posture = setposture AtEase twoHandTwistAmount
-    | otherwise = creatureTurnTowardDir (_crMvAim cr) 0.2 cr
+--    | otherwise = creatureTurnTowardDir (_crMvAim cr) 0.2 cr
+    | otherwise = creatureTurnTowardDir (_crMvDir cr) 0.2 cr
   where
     setposture x r =
         cr
@@ -134,11 +135,11 @@ twoHandTwistAmount :: Float
 twoHandTwistAmount = 1.6 * pi
 
 wasdMovement :: LWorld -> Input -> Camera -> Float -> Creature -> Creature
-wasdMovement lw inp cam speed = theMovement . setMvAim
+wasdMovement lw inp cam speed = theMovement -- . setMvAim
   where
-    setMvAim = fromMaybe id $ do
-        dir <- safeArgV movDir
-        return $ crMvAim .~ (cam ^. camRot + dir)
+--    setMvAim = fromMaybe id $ do
+--        dir <- safeArgV movDir
+--        return $ crMvAim .~ (cam ^. camRot + dir)
     movDir = wasdDir inp
     movAbs = rotateV (cam ^. camRot) $ normalizeV movDir
     theMovement