Add extra warning cries to chaseCrits

2023-05-01 14:01:27 +01:00
parent b34a9f5b09
commit 60e5e6ecae
14 changed files with 39 additions and 24 deletions
@@ -58,7 +58,6 @@ makePathBetweenPs a b w = mapMaybe (lab $ w ^. cWorld . pathGraph) <$> makePathB
 bfsNodePoints :: Int -> World -> [Point2]
 bfsNodePoints n w = mapMaybe (lab g) $ bfs n g
  where
-    --g = _pathGraph (_cWorld w)
    g = w ^. cWorld . pathGraph

 pointTowardsImpulse :: Point2 -> Point2 -> World -> Maybe Point2