Work on radar and sonar

2022-05-26 23:21:08 +01:00
parent 7d5edb4f41
commit 048b838e4b
4 changed files with 49 additions and 45 deletions
@@ -61,9 +61,10 @@ autoSonar = defaultEquipment
    { _itType = RADAR
    , _itName = "AUTOSONAR"
    , _itEquipPict = shapeForWrist (colorSH red $ upperPrismPoly 3 $ rectWH 2 2)
-    , _itEffect = autoSonarEffect
    , _itID = Nothing
    } & itUse . eqSite .~ GoesOnWrist
+    & itUse . eqUse  .~ autoSonarEffect
+    & itUse . eqParams .~ EquipCounter 0
 {- |
 Automatically sends out pulses that display walls.  -}
 autoRadar :: Item
@@ -71,9 +72,12 @@ autoRadar = defaultEquipment
    { _itType = RADAR
    , _itName = "AUTORADAR"
    , _itEquipPict = shapeForWrist (colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
-    , _itEffect = autoRadarEffect
+--    , _itEffect = autoRadarEffect
    , _itID = Nothing
-    } & itUse . eqSite .~ GoesOnWrist
+    } 
+    & itUse . eqSite .~ GoesOnWrist
+    & itUse . eqUse  .~ autoRadarEffect
+    & itUse . eqParams .~ EquipCounter 0

 shapeForWrist :: Shape -> Creature -> Item -> SPic
 shapeForWrist = pictureOnEquip . noPic . translateSH (V3 0 4 (-4))