Add no weapon start

2021-04-27 19:26:35 +02:00
parent 64b5b9e2a5
commit 6d229f8de2
20 changed files with 448 additions and 313 deletions
@@ -57,13 +57,13 @@ wasdWithAiming w speed aimSpeed i cr
        = set (crState . stance . carriage) Floating
          cr
    | isAiming
-        = stepForward' aimSpeed
+        = stepForward aimSpeed
          $ over crPos (+.+ (aimSpeed *.* mov)) 
          $ set crDir mouseDir 
          $ set (crState . stance . carriage) (Walking 0 0)
          cr
    | isMoving
-        = stepForward' speed
+        = stepForward speed
          $ over ( crPos) (+.+ (speed *.* mov)) 
          $ over ( crDir) (flip fromMaybe dir) 
          $ set (crState . stance . carriage) (Walking 0 0)