Add jitter on chase crit bark

2022-05-19 10:58:13 +01:00
parent 565a71a5a2
commit 41e5538eb7
5 changed files with 45 additions and 10 deletions
@@ -60,7 +60,6 @@ pushCreatureOutFromWalls ls cr = cr & crPos %~ pushOutFromWalls (_crRad cr) ls
 pushOutFromWalls :: Float -> [(Point2,Point2)] -> Point2 -> Point2
 pushOutFromWalls rad wls p1 = case (getFirst . foldMap (First . pushOutFromWall rad p1)) wls of
    Nothing -> p1
-    --Just p2 -> fromMaybe p2 $ (getLast . foldMap (Last . pushOutFromWall rad p2)) wls
    Just p2 -> pushOutFromWalls rad (tail wls) p2
    -- possible improvement: choose between the closer of p2 and "p3" to p1