tinkering with room generation

This commit is contained in:
nek0 2018-02-14 16:45:12 +01:00
parent bd49cc4909
commit 40d706887e

View file

@ -160,8 +160,16 @@ buildInnerWalls rng input =
doCol c
| M.safeGet row (c + 1) mat == Just Unde = doCol (c + 1)
| otherwise = c
(cr, g1) = randomR (row, maxRow) gn
(cc, g2) = randomR (col, maxCol) g1
(cr, g1) = randomR
( if maxRow - 3 < row + 3
then (row + 2, row + 2)
else (row + 3, maxRow - 3)
) gn
(cc, g2) = randomR
( if maxCol - 3 < col + 3
then (col + 2, col + 2)
else (col + 3,maxCol - 3)
) g1
(nngen, nnmat) = doCross
g2
(cr, cc)