Fix direction stuttering bug

2021-09-22 19:42:39 +01:00
parent 0295b3dd70
commit 7b6904b51f
10 changed files with 59 additions and 93 deletions
@@ -38,7 +38,7 @@ wasdWithAiming
    -> Creature
 wasdWithAiming w speed i cr
    | isAiming  = set crDir mouseDir $ theMovement cr
-    | otherwise = theTurn $ theMovement cr
+    | otherwise = theMovement $ theTurn cr
  where 
    theMovement
        | movDir == V2 0 0 = id