Add explicit door position field

2022-03-09 22:14:34 +00:00
parent 4a1ca905f7
commit 027b4b7d8b
14 changed files with 53 additions and 37 deletions
@@ -123,7 +123,7 @@ data World = World
    , _inventoryMode        :: InventoryMode
    , _distortions          :: [Distortion]
    , _worldBounds          :: Bounds
-    , _gameRooms            :: [GameRoom] -- consider using and IntMap
+    , _gameRooms            :: [GameRoom] -- consider using an IntMap
    , _maybeWorld           :: Maybe' World
    , _rewindWorlds         :: [World]
    , _timeFlow             :: TimeFlowStatus
@@ -739,6 +739,9 @@ data Door = Door
    , _drStatus  :: DoorStatus
    , _drTrigger :: World -> Bool
    , _drMech    :: Door -> World -> World
+    , _drPos :: Point2
+    , _drOpenPos :: Point2
+    , _drClosePos :: Point2
    }
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)