Improve chase crit searching

src/Dodge/Path.hs

@@ -8,6 +8,7 @@ module Dodge.Path
     , pairsToGraph
     , getNodePos
     , walkableNodeNear
+    , bfsNodePoints
     ) where
 import Dodge.Data
 import Dodge.Base.Collide
@@ -53,6 +54,12 @@ walkableNodeNear w p = fmap fst . find (flip (isWalkable p) w . snd) $ nodesNear
 makePathBetweenPs :: Point2 -> Point2 -> World -> Maybe [Point2]
 makePathBetweenPs a b w = mapMaybe (lab $ _pathGraph w) <$> makePathBetween a b w
 
+bfsNodePoints :: Int -> World -> [Point2]
+bfsNodePoints n w = mapMaybe (lab g) $ bfs n g
+  where
+    g = _pathGraph w
+
+
 pointTowardsImpulse :: Point2 -> Point2 -> World -> Maybe Point2
 pointTowardsImpulse a b w = (find (flip (isWalkable a) w) . reverse) =<< makePathBetweenPs a b w