Fix enemy stride/footsteps

2025-10-17 22:32:40 +01:00
parent f969056912
commit f3fafc6bf2
12 changed files with 254 additions and 245 deletions
@@ -7,4 +7,4 @@ import RandomHelp
 doRandImpulse :: RandImpulse -> State StdGen Impulse
 doRandImpulse ri = case ri of
    RandImpulseList xs -> takeOne xs
-    RandImpulseCircMove r -> Move <$> randInCirc r
+    RandImpulseCircMove r -> MoveNoStride <$> randInCirc r