Commit before messing around with shaders

2022-06-16 14:02:21 +01:00
parent 2bc30d0a6b
commit 55341f7caf
7 changed files with 17 additions and 15 deletions
@@ -46,6 +46,7 @@ tanksRoom crs its = do
            map (\it -> sps0 (PutFlIt it) & plSpot .~ anyUnusedSpot) its
            ++ map (\cr -> sps0 (PutCrit cr) & plSpot .~ unusedSpotAwayFromLink 50) crs
            ++ replicate ntanks thetank
+            ++ [mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isOutLnk rp]
 --            , sps0 $ PutShape $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
    hgshape <- takeOne [girder 96 20 10, girderZ 96 20 10, girderV 96 20 10]
    addhighgirds <- takeOne $