Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -106,14 +106,14 @@ startRoom' = do
    w <- state $ randomR (100,400)
    h <- state $ randomR (200,400)
    let plmnts = 
-            [ sPS (V2 0 0) 0 $ PutForeground $ girderV 40 20 10 (V2 0 (h/2)) (V2 w (h/2))
+            [ sPS (V2 0 0) 0 $ PutShape $ girderV 40 20 10 (V2 0 (h/2)) (V2 w (h/2))
            --, mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
            , tankSquareEmboss4 (dim orange) 50 (h-60)
            , tankSquare (dim orange) 50 50
            , tankSquare (dim orange) 50 120
            , lightSensor 10 (const id) (PS (V2 (0.8*w) (0.25*h)) 0)
            , putLasTurret 0.005 & plSpot .~ PS (V2 (0.8*w) (0.8*h)) 0
-            , sps0 $ PutForeground $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
+            , sps0 $ PutShape $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
            ]
    thecol <- rezColor
    treeFromPost [PassDown $ rezBox thecol, PassDown door] . UseAll