Cleanup. Add room-wise random placement spots

2021-11-07 19:46:14 +00:00
parent f380e140e1
commit 5681a37953
18 changed files with 179 additions and 141 deletions
@@ -71,9 +71,9 @@ roomRectAutoLinks :: Float -> Float -> Room
 roomRectAutoLinks x y = (roomRect x y ((ceiling x - 40) `div` 60) ((ceiling y - 40) `div` 60))
    {_rmPS = plmnts}
  where
-    plmnts = [mntLightCond (const True)]
+    plmnts = [mntLightLnkCond (const True)]
 {- Combines two rooms into one room.
-Combines into one big bound, concatenates the rest.  -}
+Mostly involves concatenation.  -}
 combineRooms :: Room -> Room -> Room
 combineRooms r r' = defaultRoom
    { _rmPolys = _rmPolys r ++ _rmPolys r'