Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -2,8 +2,6 @@ module Dodge.Item.Weapon.Radar where
 import Dodge.Data
 import Dodge.RadarSweep
 import Dodge.Default
-import Dodge.Item.Weapon.ExtraEffect
-import Dodge.SoundLogic

 import Control.Lens

@@ -21,7 +19,7 @@ clickDetector dt = defaultWeapon
 autoDetector :: Detector -> Item
 autoDetector dt = defaultEquipment
    & itUse . eqEq . eqSite .~ GoesOnWrist
-    & itUse . eqEq . eqUse  .~ autoEffect (detectorEffect dt) 100 click1S
+    & itUse . eqEq . eqUse  .~ EDetector dt --autoEffect (detectorEffect dt) 100 click1S
    & itUse . eqEq . eqParams .~ EquipCounter 0
    & itUse . eqEq . eqViewDist ?~ 350
    & itType . iyBase .~ EQUIP (AUTODETECTOR dt)