Modify analyser sounds

src/Dodge/Room/LasTurret.hs

@@ -91,8 +91,8 @@ keyCardAnalyserByDoor keyid = analyserByDoor
     (bar : replicate 2 "")
     (machineAddSound fridgeHumS $ testYouHave (KEYCARD 0))
   where
-    hic = "HEALTH INTEGRITY CHECK"
-    bar = replicate (length hic) '-'
+    hic = "SECURITY CHECK"
+    bar = replicate 18 '-'
 
 healthAnalyserByDoor :: Int -> Room -> Room
 healthAnalyserByDoor = analyserByDoor 
@@ -113,8 +113,6 @@ analyserByDoor sa sb sc sd mcf outplid rm = rm
     & rmPmnts .++~ 
         [ psPt atFstLnkOut $ PutShape $ colorSH yellow 
             $ barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80)
-        , heightWallPS (atNthLnkOutShiftInward 1 100) 30 covershape
-        , heightWallPS (atFstLnkOutShiftInward 100)   30 covershape
         ]
     & rmOutPmnt .~ 
         [OutPlacement 
@@ -125,8 +123,7 @@ analyserByDoor sa sb sc sd mcf outplid rm = rm
             ) 
         outplid]
   where
-    covershape = rectNSEW 10 (-10) 20 (-20)
-    sensorshift (p,a) = (p +.+ rotateV a (V2 60 (-20)), a)
+    sensorshift (p,a) = (p +.+ rotateV a (V2 30 (-10)), a)
 
 healthTest :: RandomGen g => Int -> State g (SubCompTree Room)
 healthTest n = do