Commit before attempting to simplify creature update

2025-10-17 10:36:19 +01:00
parent c533e88d24
commit f969056912
4 changed files with 4 additions and 34 deletions
@@ -12,7 +12,7 @@ updateWalkCycle :: Int -> World -> World
 updateWalkCycle cid w
    | Just cr <- w ^? cWorld . lWorld . creatures . ix 0
      , Walking x ff <- cr ^. crStance . carriage
-      , x > cr ^. crStance . strideLength =
+      , x >= cr ^. crStance . strideLength =
        w
            & soundMultiFrom
                [FootstepSound i | i <- [0 .. 10]]