Add quiet laser sound

src/Dodge/Room/RunPast.hs

@@ -49,8 +49,8 @@ critRoom = corridorWallN
     { _rmRandPSs = [psRandRanges (15,25) (30,45) (pi,2*pi)]
     }
 
-runPastRoom :: RandomGen g => State g (Tree (Either Room Room))
-runPastRoom = do
+runPastRoom :: RandomGen g => Int -> State g (Tree (Either Room Room))
+runPastRoom i = do
     h <- state $ randomR (200,400::Float)
     theedgetest <- takeOne [horEdgeTest (<1), horEdgeTest  (>39)]
     thels <- roomCritLS
@@ -66,10 +66,10 @@ runPastRoom = do
         critroom = linkcor & rmPmnts %~ ( plRRpt 0 randC1 :)
         aswitchroom = corridorWallN
             {_rmExtPmnt = Just $ putLitButOnPosExtTrig red useLnkRoomPos
-            ,_rmLabel = Just 0
+            ,_rmLabel = Just i
             ,_rmPmnts = []
             }
-        switchdoor = switchDoorRoom & rmTakeFrom ?~ 0
+        switchdoor = switchDoorRoom & rmTakeFrom ?~ i
         n = length $ filter theedgetest $ _rmLinks cenroom
         controom = treeFromPost [Left switchdoor,Left linkcor] (Right door)
         critrooms :: [Tree (Either Room Room)]