Commit before working on debugging

2025-10-13 23:43:29 +01:00
parent c3a0cb0527
commit 3d602b4f57
7 changed files with 144 additions and 102 deletions
@@ -81,7 +81,8 @@ doCrWdAc cw = case cw of
    CrWdBFSThenReturn t -> \cr w -> fromMaybe NoAction $ do
        n <- walkableNodeNear w (cr ^. crPos . _xy)
        let as = take 20 $ map PathTo $ bfsNodePoints n w
-        return $
+        return $ DoActionThen (DoImpulses [ChangeStrategy Search])
+            $
            DoReplicate t $
                foldr DoActionThen NoAction as
    ChooseMovementSpreadGun -> chooseMovementSpreadGun