Add looping sound, add sound to terminals

src/Dodge/Room/SensorDoor.hs

@@ -14,6 +14,7 @@ import Dodge.Room.Link
 import Dodge.Room.Foreground
 --import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
+import Dodge.SoundLogic
 --import Dodge.Default.Room
 --import Dodge.Item.Weapon.BulletGuns
 --import Dodge.Item.Weapon.Utility
@@ -60,7 +61,7 @@ sensAboveDoor sensetype wth ps = extTrigLitPos
         | otherwise = w
 
 sensInsideDoor :: DamageType -> Int -> Room -> Room
-sensInsideDoor senseType outplid rm = rm 
+sensInsideDoor senseType outplid rm = rm
     & rmName .++~ take 4 (show senseType)
     & rmPmnts .++~ 
         [ psPt atFstLnkOut 
@@ -90,6 +91,11 @@ sensInsideDoor senseType outplid rm = rm
                 ]
         in TerminalParams
             {_termDisplayedLines = [] --zip (replicate 7 horline) (repeat white)
-            ,_termFutureLines = zip (repeat 0) $ zip themessage $ repeat white
+            ,_termFutureLines = TerminalLineEffect 0 termsound
+                : map totermline themessage
             ,_termMaxLines = 7
             }
+    totermline s = TerminalLineDisplay 0 s white
+    termsound subinv w' = soundStart TerminalSound tpos computerBeepingS Nothing w'
+      where
+        tpos = fromMaybe 0 $ w' ^? buttons . ix (_termID subinv) . btPos