Continue major door/wall refactor

2021-09-28 12:32:44 +01:00
parent 1990558985
commit 751000636e
3 changed files with 57 additions and 41 deletions
@@ -538,7 +538,7 @@ data Door' = Door'
    , _drTrigger :: World -> Bool
    , _drMech    :: Door' -> World -> World
    }
-data DoorStatus = DoorOpen | DoorClosed | DoorHalfway
+data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)
 data Wall 
    = Wall