Continue to work on pathfinding

2025-10-21 15:35:37 +01:00
parent 0b997579ad
commit 6742241e5d
22 changed files with 296 additions and 298 deletions
@@ -48,7 +48,8 @@ doCrWdAc :: CrWdAc -> Creature -> World -> Action
 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
+--        let as = take 20 $ map PathTo $ bfsNodePoints n w
+        let as = []
        return $ DoActionThen (DoImpulses [ChangeStrategy Search])
            $
            DoReplicate t $