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
@@ -62,3 +62,15 @@ destroyBlock bl w = w
    awl = _walls w IM.! IS.findMin wlids
    pos = fst . _wlLine $ _walls w IM.! IS.findMin wlids
    ps = replicateM 25 (randInCirc 20) & evalState $ _randGen w
+
+destroyDoor :: Door -> World -> World
+destroyDoor dr w = w
+    & _drDeath dr dr
+    & deleteWallIDs wlids
+    & doors %~ IM.delete (_drID dr)
+    & flip (foldr (wlDustAt awl)) (map (pos +.+) ps)
+  where
+    wlids = _drWallIDs dr
+    awl = _walls w IM.! IS.findMin wlids
+    pos = fst . _wlLine $ _walls w IM.! IS.findMin wlids
+    ps = replicateM 25 (randInCirc 20) & evalState $ _randGen w