Improve debris

2022-06-16 12:24:09 +01:00
parent fa762c7687
commit aa29e5ddf2
14 changed files with 75 additions and 50 deletions
@@ -66,7 +66,7 @@ blockedCorridor :: RandomGen g => State g (Tree Room)
 blockedCorridor = longBlockedCorridor 0

 dirtPoly :: [Point2] -> PSType
-dirtPoly = PutBlock DirtBlock 1 [] dirtWall . reverse
+dirtPoly = PutBlock DirtBlock 1 dirtWall . reverse

 -- | A single corridor with a destructible block blocking it.
 blockedCorridorCloseBlocks :: RandomGen g => State g Room