Add sound for distributer

src/Dodge/Machine/Update.hs

@@ -161,7 +161,7 @@ mcBackgroundSound mc = case mc ^. mcType of
     McDamSensor{} -> Just (fridgeHumS,1)
     McProxSensor{} -> Just (throbC4S,0.5)
     McStorage{} -> Nothing
-    McDistributer{} -> Just (whirS,0.5)
+    McDistributer{} -> Just (lowWhirS,1)
     McTrigger{} -> Just (throb1S,0.5)
 
 mcApplyDamage :: [Damage] -> Machine -> World -> World

src/Dodge/Room/Tutorial.hs

@@ -49,9 +49,9 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
---        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---        , tToBTree "sdr" . return . cleatOnward <$> 
---                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , tToBTree "sdr" . return . cleatOnward <$> 
+                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
 ----        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
@@ -62,6 +62,8 @@ tutAnoTree = do
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , return $ tToBTree "door" $ return $ cleatOnward door
         , tutHub

src/Dodge/Update.hs

@@ -287,7 +287,7 @@ functionalUpdate =
         . over uvWorld updateGasses
         . over uvWorld updateDusts
         . over uvWorld updateGusts
-        . over uvWorld (updateIMl' (_terminals . _lWorld . _cWorld) tmUpdate)
+        . over uvWorld (updateIMl' (_terminals . _lWorld . _cWorld) updateTerminal)
         . over uvWorld (updateIMl' (_machines . _lWorld . _cWorld) updateMachine)
         . over uvWorld (updateIMl' (_creatures . _lWorld . _cWorld) updateCreature)
         -- creatures should be updated early so that crOldPos is set before any position change
@@ -487,8 +487,8 @@ zoneDusts w = w & dsZoning .~ foldl' (flip zoneDust) mempty (w ^. cWorld . lWorl
 displayTerminalLineString :: TerminalLineString -> (String, Color)
 displayTerminalLineString (TerminalLineConst str col) = (str, col)
 
-tmUpdate :: Terminal -> World -> World
-tmUpdate tm w = fromMaybe w $ do
+updateTerminal :: Terminal -> World -> World
+updateTerminal tm w = fromMaybe w $ do
     guard $ tm ^. tmStatus == TerminalLineRead
     tl <- w ^? cWorld . lWorld . terminals . ix (_tmID tm) . tmFutureLines . ix 0
     return $ case tl of