just a little tweak

This commit is contained in:
nek0 2018-02-17 00:06:33 +01:00
parent e6fc4011ac
commit b43dbe0455

View file

@ -13,7 +13,7 @@ import Debug.Trace
data TileState
= Wall
| Wind
-- | Wind
| Door
| Hall
| Offi
@ -25,7 +25,7 @@ data TileState
instance Show TileState where
show Wall = "#"
show Wind = "~"
-- show Wind = "~"
show Door = "+"
show Hall = "_"
show Offi = "."
@ -96,7 +96,7 @@ placeHalls rng fc input =
(nw, g3) = randomR (2, wmax) g2
(nbs, nmat) = buildHall cross nw b amat
in
if hallRatio nmat < 0.175 && wmax - 1 > 2
if hallRatio nmat < 0.2 && wmax - 1 > 2
then doHalls g3 nbs (row, col) (wmax -1) nmat
else (g3, nmat)
) (rand, mat) bounds