Add sound effects to example analyser

2022-03-22 10:53:01 +00:00
parent c0383dbd8a
commit 4cd7cf4edd
10 changed files with 236 additions and 197 deletions
@@ -56,7 +56,7 @@ sensAboveDoor sensetype wth ps = extTrigLitPos
    (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
    ( \tp -> Just $ damageSensor sensetype wth (upf $ fromJust $ _plMID tp) ps )
  where
-    upf trid mc w | _mcSensorAmount mc > 900 = w & triggers . ix trid .~ const True
+    upf trid mc w | _sensAmount (_mcSensor mc) > 900 = w & triggers . ix trid .~ const True
        | otherwise = w

 sensInsideDoor :: DamageType -> Int -> Room -> Room