Refactor ai

2021-05-12 14:24:31 +02:00
parent 86faf9fd01
commit ead87af3c1
25 changed files with 718 additions and 453 deletions
@@ -96,7 +96,7 @@ autoDoorPane (trigx,trigy) n closedPos openPos = Door
    a = fst closedPos
    b = snd closedPos
    dm w 
-        | any (crNearSeg 40 trigx trigy) $ IM.filter (_crIsAnimate . _crState) $ _creatures w
+        | any (crNearSeg 40 trigx trigy) $ IM.filter isAnimate $ _creatures w
            = flip (foldr changeZonedWall) zoneps $ over walls (IM.adjust openDoor n) w
        | otherwise 
            = flip (foldr changeZonedWall') zoneps $ over walls (IM.adjust closeDoor n) w