Fix jetpack

2021-04-24 20:24:33 +02:00
parent 71795d2d9d
commit 24ea24cd6d
3 changed files with 12 additions and 3 deletions
@@ -60,14 +60,17 @@ wasdWithAiming w speed aimSpeed i cr
        = stepForward' aimSpeed
          $ over crPos (+.+ (aimSpeed *.* mov)) 
          $ set crDir mouseDir 
+          $ set (crState . stance . carriage) (Walking 0 0)
          cr
    | isMoving
        = stepForward' speed
          $ over ( crPos) (+.+ (speed *.* mov)) 
          $ over ( crDir) (flip fromMaybe dir) 
+          $ set (crState . stance . carriage) (Walking 0 0)
          cr
    | otherwise
        = over ( crDir) (flip fromMaybe dir) 
+          $ set (crState . stance . carriage) Standing
                        cr
  where 
    (mov',dir') = wasdComp (view keys w) w