Allow for equipment items to set a minimum view distance

2022-06-05 01:50:18 +01:00
parent 5e144b1cd5
commit 65fcea0f50
13 changed files with 76 additions and 61 deletions
@@ -47,9 +47,10 @@ autoDetector dt = defaultEquipment
 --    , _itEffect = autoRadarEffect
    , _itID = Nothing
    } 
-    & itUse . eqSite .~ GoesOnWrist
-    & itUse . eqUse  .~ autoEffect (detectorEffect dt) 100 click1S
-    & itUse . eqParams .~ EquipCounter 0
+    & itUse . eqEq . eqSite .~ GoesOnWrist
+    & itUse . eqEq . eqUse  .~ autoEffect (detectorEffect dt) 100 click1S
+    & itUse . eqEq . eqParams .~ EquipCounter 0
+    & itUse . eqEq . eqViewDist ?~ 350

 detectorColor :: Detector -> Color
 detectorColor dt = case dt of