Simplify item placement during generation

2021-04-25 13:21:24 +02:00
parent 30736997c3
commit 17986651c5
13 changed files with 95 additions and 95 deletions
@@ -71,7 +71,7 @@ autoDoorPane (trigx,trigy) n closedPos openPos = Door
  where 
    a = closedPos !! 0
    b = closedPos !! 1
-    dm w | any (crNearSeg 40 trigx trigy) $ IM.filter (_crIsAnimate) $ _creatures w
+    dm w | any (crNearSeg 40 trigx trigy) $ IM.filter (_crIsAnimate . _crState) $ _creatures w
 --            crsNearLine 40 trigL w 
                     = flip (foldr changeZonedWall) zoneps
                       $ over walls (IM.adjust openDoor n) w