make room at office entrance

2018-04-01 19:40:54 +02:00 · 2018-04-01 19:40:54 +02:00 · e150be9e77
commit e150be9e77
parent 173494c568
1 changed files with 7 additions and 0 deletions
--- a/src/Util.hs
+++ b/src/Util.hs
@ -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