Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -74,7 +74,7 @@ blockedCorridor = do
    sequence $ treeFromPost [] $ return $ UseAll $ set rmPmnts plmnts corridor

 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