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
@@ -0,0 +1,17 @@
+module Dodge.Default.Door where
+import Dodge.Data
+
+defaultDoor :: Door
+defaultDoor = Door
+    { _drID = 0
+    , _drWallIDs = mempty
+    , _drStatus = DoorClosed
+    , _drTrigger = const False
+    , _drMech   = const id
+    , _drPos = (0,0)
+    , _drOpenPos = (0,0)
+    , _drClosePos = (0,0)
+    , _drHP     = 10000
+    , _drDeath  = const id
+    }
+