Add looping sound, add sound to terminals

2022-03-16 09:23:17 +00:00
parent 5623747b01
commit 5aeb04ba05
24 changed files with 156 additions and 133 deletions
@@ -41,8 +41,8 @@ tanksRoom crs its = do
    girderPosOrder <- shuffle [1 .. nwestlnks - 2]
    let plmnts = 
            --ok, this has become complicated
-            foldr1 setFallback [ twoRoomPoss (const . isUnusedLinkType (FromSouth i)) 
-                (const . isUnusedLinkType (FromSouth i)) $ \ps1 ps2 ->
+            foldr1 setFallback [ twoRoomPoss (isUnusedLnkType (FromSouth i)) 
+                (isUnusedLnkType (FromSouth i)) $ \ps1 ps2 ->
                sps0 $ PutShape $ girderV 96 20 10 (_psPos ps1) (_psPos ps2) 
                | i <- girderPosOrder]
            : map (\it -> sps0 (PutFlIt it) & plSpot .~ anyUnusedSpot) its