make room at office entrance

This commit is contained in:
nek0 2018-04-01 19:40:54 +02:00
parent 173494c568
commit e150be9e77

View file

@ -81,6 +81,13 @@ convertTileToImg mat = fromLists conversion
_ ->
error "unexpected number if neighbouring walls"
)
Offi
| any
(\(rr, cc) -> M.safeGet (irow + rr) (icol + cc) mat == Just Door)
((,) <$> [-1 .. 1] <*> [-1 .. 1]) ->
Just ImgEmpty
| otherwise ->
Nothing
_ ->
Nothing