Add sound effects to example analyser

src/Dodge/Data.hs

@@ -754,19 +754,30 @@ data Block = Block
     }
 data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
 data Machine = Machine
-    { _mcID      :: Int
-    , _mcWallIDs :: IS.IntSet
-    , _mcUpdate  :: Machine -> World -> World
-    , _mcDraw    :: Machine -> SPic
-    , _mcPos     :: Point2
-    , _mcDir     :: Float
-    , _mcHP      :: Int
-    , _mcSensorAmount  :: Int
-    , _mcSensorToggle  :: Bool
-    , _mcDamage  :: [Damage]
-    , _mcLSs     :: [Int]
-    , _mcType    :: MachineType
+    { _mcID     :: Int
+    , _mcWallIDs    :: IS.IntSet
+    , _mcUpdate :: Machine -> World -> World
+    , _mcDraw   :: Machine -> SPic
+    , _mcPos    :: Point2
+    , _mcDir    :: Float
+    , _mcHP     :: Int
+    , _mcSensor :: Sensor
+    , _mcDamage :: [Damage]
+    , _mcLSs    :: [Int]
+    , _mcType   :: MachineType
     }
+data Sensor = NoSensor
+    | SensorToggleAmount
+        { _sensToggle :: Bool
+        , _sensAmount :: Int
+        }
+    | SensorCloseToggle
+        { _sensCloseToggle :: CloseToggle
+        , _sensToggle :: Bool
+        }
+  deriving (Eq,Ord)
+data CloseToggle = NotClose | IsClose
+  deriving (Eq,Ord)
 data MachineType 
     = StaticMachine
     | Turret
@@ -1037,3 +1048,4 @@ makeLenses ''TerminalParams
 makeLenses ''TerminalLine
 makeLenses ''ItemValue
 makeLenses ''ScreenLayer
+makeLenses ''Sensor