Add randomness to multiple crab evasions

2026-04-09 13:28:39 +01:00
parent 0a8a2210c0
commit c8a06bc084
14 changed files with 194 additions and 179 deletions
@@ -106,7 +106,7 @@ tryEvadeSideways :: Creature -> World -> ActionUpdate
 tryEvadeSideways _ w = jumpleft -- (mv,mempty)
  where
    jumpleft = (mv,DoReplicate 5 (DoImpulses mv))
-    mv = [Walk (V2 0 d)]
+    mv = [Walk (V2 0 d),UpdateRandGen]
    d = evalState (takeOne [3,-3]) (w ^. randGen)

 performAimAt :: Creature -> World -> Int -> Point2 -> ActionUpdate