Add lights to buttons, cleanup

2021-11-02 19:38:22 +00:00
parent 9eda8c81a9
commit 59f43a3602
25 changed files with 356 additions and 349 deletions
@@ -59,6 +59,7 @@ data World = World
    , _doors                :: IM.IntMap Door
    , _machines             :: IM.IntMap Machine
    , _blocks               :: IM.IntMap Block
+    , _coordinates          :: IM.IntMap Point2
    , _wallsZone            :: Zone (IM.IntMap Wall)
    , _floorItems           :: IM.IntMap FloorItem
    , _floorTiles           :: [(Point3,Point3)]
@@ -569,6 +570,7 @@ 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)