Add machine sounds

src/Dodge/Placement/Instance/Terminal.hs

@@ -6,6 +6,7 @@ import Dodge.Data
 import Dodge.LevelGen.Data
 import Dodge.Default
 import Dodge.Machine
+import Dodge.SoundLogic
 import Dodge.WorldEvent.Explosion
 import Color
 import Geometry
@@ -20,7 +21,8 @@ putTerminal f = PlacementGenUpdate g $ ps0PushPS (PutButton $ thebutton)
     $ \pl -> Just $ pt0 (PutMachine terminalColor (reverse $ square 10) defaultMachine
     { _mcDraw = drawTerminal
     , _mcHP = 100
-    , _mcUpdate = machineUpdateDeathEff $ \mc -> (buttons . at (fromJust (_plMID pl)) .~ Nothing)
+    , _mcUpdate = machineAddSound fridgeHumS 
+        $ machineUpdateDeathEff $ \mc -> (buttons . at (fromJust (_plMID pl)) .~ Nothing)
         . makeExplosionAt (_mcPos mc)
     })
     $ const Nothing