Move analyser functions to data

2022-06-07 09:57:19 +01:00
parent d42538e3c0
commit 14acd2ee6a
4 changed files with 31 additions and 7 deletions
@@ -985,11 +985,18 @@ data Sensor = NoSensor
        { _sensToggle :: Bool
        , _sensAmount :: Int
        }
-    | SensorCloseToggle
-        { _sensCloseToggle :: CloseToggle
+    | ProximitySensor
+        { _proxStatus   :: CloseToggle
+        , _proxDist :: Float
+        , _proxRequirement :: ProximityRequirement
        , _sensToggle :: Bool
        }
  deriving (Eq,Ord)
+data ProximityRequirement
+    = HasHealth {_proxReqMinHealth :: Int}
+    | HasEquipment {_proxReqEquipment :: CombineType}
+    | HasBottom
+  deriving (Eq,Ord,Show)
 data CloseToggle = NotClose | IsClose
  deriving (Eq,Ord)
 data MachineType 
@@ -1603,6 +1610,7 @@ makeLenses ''ItemValue
 makeLenses ''Equipment
 makeLenses ''ScreenLayer
 makeLenses ''Sensor
+makeLenses ''ProximityRequirement
 makeLenses ''Beam
 makeLenses ''BeamType
 makeLenses ''WorldBeams