Simplify analyser machines somewhat

2025-09-16 21:41:26 +01:00
parent 203919933c
commit 81d6727d8e
21 changed files with 418 additions and 464 deletions
@@ -10,7 +10,6 @@ import Data.Maybe
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.LevelGen.PlacementHelper
-import Dodge.SoundLogic
 import Dodge.WorldEffect
 import Geometry
 import LensHelp
@@ -36,7 +35,6 @@ putTerminalFull f col mc tm =
                            (reverse $ square 10)
                            ( mc & mcMounts . at OTButton ?~ fromJust (_plMID btpl)
                                & mcMounts . at OTTerminal .~ _plMID tmpl
-                                & mcCloseSound ?~ fridgeHumS
                            )
                            defaultSensorWall
                            Nothing