Combine Door and AutoDoor type constructors, add doorPathable field

2021-03-21 13:33:57 +01:00
parent 8108772894
commit a34c578786
6 changed files with 8 additions and 22 deletions
@@ -91,7 +91,6 @@ updateCreatures w = f $ set randGen newG $ set creatures (IM.mapMaybe id crs) w
 wallEvents :: World -> World
 wallEvents w = IM.foldr (_doorMech) w ( IM.filter (\d -> case d of 
                                                                Door {} -> True
-                                                                AutoDoor {} -> True
                                                                BlockAutoDoor {} -> True
                                                                _       -> False) ( _walls w))