Add random floor tiles to floors

2021-06-16 00:14:18 +02:00
parent da631e3b37
commit 29902b6f22
10 changed files with 76 additions and 16 deletions
@@ -103,6 +103,7 @@ combineRooms r r' = defaultRoom
    , _rmPath  = _rmPath  r ++ _rmPath  r'
    , _rmPS    = _rmPS    r ++ _rmPS    r'
    , _rmBound = _rmBound r ++ _rmBound r'
+    , _rmFloor = _rmFloor r ++ _rmFloor r'
    }
 --{- The top fourth of a room of a given height.  -}
 --fourth