Refactor creature ai

2021-05-20 21:25:42 +02:00
parent 4463dc7716
commit 114335fdbe
32 changed files with 449 additions and 270 deletions
@@ -87,7 +87,7 @@ f = incidenceToFunction $ pairsToIncidence
 --    ]

 pathBetween :: Point2 -> Point2 -> World -> Maybe [Point2]
-pathBetween a b w = (makePath' $ \p -> _pathInc w M.! p) <$> a' <*> b'
+pathBetween a b w = makePath' (\p -> _pathInc w M.! p) <$> a' <*> b'
  where
    nsa :: [Point2]
    nsa = map snd $ concat $ lookLookups (zoneAroundPoint a) (_pathPoints w)