Allow for door destruction

2022-06-19 20:50:03 +01:00
parent 9e311cccf4
commit 08e5df07e2
14 changed files with 82 additions and 42 deletions
@@ -1012,6 +1012,8 @@ data Door = Door
    , _drPos :: (Point2,Point2)
    , _drOpenPos :: (Point2,Point2)
    , _drClosePos :: (Point2,Point2)
+    , _drHP     :: Int
+    , _drDeath  :: Door -> World -> World
    }
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
  deriving (Eq, Ord, Show)