Cleanup

src/Dodge/Machine/Update.hs

@@ -120,7 +120,7 @@ mcUseItem mc w = fromMaybe w $ do
 mcDamSensorTriggerUpdate :: DamageSensor -> Machine -> World -> World
 mcDamSensorTriggerUpdate se mc = fromMaybe id $ do
     trid <- mc ^? mcMounts . ix OTTrigger
-    bval <- mcTriggerVal se
+    let bval = se ^. sensAmount > damageTypeThreshold (se ^. sensType)
     return $ cWorld . lWorld . triggers . ix trid ||~ bval
 
 mcProxSensorTriggerUpdate :: ProximitySensor -> Machine -> World -> World
@@ -129,8 +129,13 @@ mcProxSensorTriggerUpdate se mc = fromMaybe id $ do
     bval <- se ^? proxToggle . _Just
     return $ cWorld . lWorld . triggers . at trid ?~ bval
 
-mcTriggerVal :: DamageSensor -> Maybe Bool
-mcTriggerVal se = Just $ _sensAmount se > _sensThreshold se
+damageTypeThreshold :: SensorType -> Int
+damageTypeThreshold = \case
+    LaserSensor -> 1000
+    ElectricSensor -> 500
+    ThermalSensor -> 1000
+    PhysicalSensor -> 1000
+
 
 mcPlaySound :: Machine -> World -> World
 mcPlaySound mc w = fromMaybe w $ do
@@ -167,7 +172,7 @@ mcApplyDamage ds mc = case mc ^? mcType . _McDamSensor of
     mcpointer = cWorld . lWorld . machines . ix (_mcID mc)
 
 mcDamSensorUpdate :: DamageSensor -> Machine -> World -> World
-mcDamSensorUpdate se = senseDamage (_sensThreshold se) (_sensType se)
+mcDamSensorUpdate se = senseDamage (damageTypeThreshold (se ^. sensType)) (se ^. sensType)
 
 mcProxSensorUpdate :: ProximitySensor -> Machine -> World -> World
 mcProxSensorUpdate se mc = case se ^. proxSensorType of