Working implementation of light change when door opens

2021-09-29 01:34:54 +01:00
parent 6b937b115e
commit f3437adef7
12 changed files with 87 additions and 66 deletions
@@ -17,7 +17,7 @@ corridor = defaultRoom
    , _rmLinks = lnks
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
    , _rmPS    = 
-        [sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0) (lampPic 50)
+        [sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0)
        ,sPS (V2 0 0)   0 $ PutForeground $ highPipe 55 (V2 0 40) (V2 40 40)
        ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]