Cleanup. Add room-wise random placement spots

2021-11-07 19:46:14 +00:00
parent f380e140e1
commit 5681a37953
18 changed files with 179 additions and 141 deletions
@@ -582,7 +582,6 @@ data Door = Door
    , _drStatus  :: DoorStatus
    , _drTrigger :: World -> Bool
    , _drMech    :: Door -> World -> World
-    , _drCoord   :: Int
    }
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)