Work towards cross-room placements

2021-11-12 11:13:59 +00:00
parent d63c2ac943
commit 1d5b2ea765
20 changed files with 147 additions and 165 deletions
@@ -22,7 +22,7 @@ telRoomLev
 telRoomLev _ = do
    w <- state $ randomR (200,300)
    h <- state $ randomR (200,300)
-    return $ roomRectAutoLinks w h & rmPS .~ 
+    return $ roomRectAutoLinks w h & rmPmnts .~ 
        [ sPS (V2 (w/2) (h/2)) 0 $ PutPressPlate telPP 
        , sPS (V2 (w/2) (h/2+ 30)) 0 putLamp
        ]