Add sounds, move data types out into separate folders

src/Dodge/Data/Sensor.hs

@@ -0,0 +1,29 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Sensor where
+import Dodge.Combine.Data
+import Dodge.Data.DamageType
+import Control.Lens
+
+data Sensor = NoSensor
+    | DamageSensor
+        { _sensToggle :: Bool
+        , _sensAmount :: Int
+        , _sensType   :: DamageType
+        }
+    | ProximitySensor
+        { _proxStatus   :: CloseToggle
+        , _proxDist :: Float
+        , _proxRequirement :: ProximityRequirement
+        , _sensToggle :: Bool
+        }
+  deriving (Eq,Ord)
+data ProximityRequirement
+    = RequireHealth {_proxReqMinHealth :: Int}
+    | RequireEquipment {_proxReqEquipment :: ItemBaseType}
+    | RequireImpossible
+  deriving (Eq,Ord,Show)
+data CloseToggle = NotClose | IsClose
+  deriving (Eq,Ord,Show)
+makeLenses ''Sensor
+makeLenses ''ProximityRequirement