Commit before placement refactor

2021-09-28 14:55:22 +01:00
parent 751000636e
commit b8af2ce9d8
16 changed files with 134 additions and 331 deletions
@@ -62,7 +62,6 @@ functionalUpdate w = case _menuLayers w of
        . simpleCrSprings 
        . zoneCreatures 
        . updateDoors
-        . updateWalls
        . resetWorldEvents
        . dbArg _worldEvents
        . updateParticles 
@@ -143,10 +142,6 @@ updateCreatures w = appEndo f $ w
      where
        (f'',cr') = _crUpdate cr cr (w & randGen .~ g)
        (_,g') = genWord8 g
-{- |
-Apply door mechanisms.  -}
-updateWalls :: World -> World
-updateWalls w = IM.foldl' (flip $ fromMaybe id . (^? doorMech)) w (_walls w)

 updateDoors :: World -> World
 updateDoors w = IM.foldl' (\w' dr -> _drMech dr dr w') w (_doors w)