Work on rooms

2026-03-21 18:48:44 +00:00
parent b52964f606
commit 5394450800
9 changed files with 170 additions and 173 deletions
@@ -118,8 +118,9 @@ gridRoomPos xs ys = map makeonpos (grid xs ys) <> map makeoffpos (grid (mids xs)
 -- to do so)
 roomRectAutoLights :: RandomGen g => Float -> Float -> State g Room
 roomRectAutoLights x y = do
-    l1 <- mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isInLnk rp   
-    l2 <- mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isOutLnk rp
+    shp <- takeOne [vShape, lShape, jShape, liShape]
+    let l1 = mntLightLnkShape shp $ resetPLUse $ rprBool $ \rp _ -> isInLnk rp   
+        l2 = mntLightLnkShape shp $ resetPLUse $ rprBool $ \rp _ -> isOutLnk rp
    return $ roomRect x y (f x) (f y)
        & rmName .~ "autoRect"
        & rmPmnts .~ [ l1 , l2 ]