Only update stride amount when actually moving

2025-12-24 22:02:43 +00:00
parent 8e484e37a9
commit 27cb05b8f7
6 changed files with 198 additions and 164 deletions
@@ -37,7 +37,8 @@ crMvByNoStride p lw cr = crMvAbsoluteNoStride lw (rotateV (_crDir cr) p) cr

 crMvAbsolute :: LWorld -> Point2 -> Creature -> Creature
 crMvAbsolute lw p' cr =
-    advanceStepCounter (magV p) cr
+--    advanceStepCounter (magV p) 
+      cr
        & crPos . _xy +~ p
        & crMvDir .~ argV p
  where