Tweaks concerning item types

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -4,13 +4,13 @@
 Extra weapon effects, supplementing explicit use effects.
 -}
 module Dodge.Item.Weapon.ExtraEffect (
-    autoSonarEffect,
+--    autoSonarEffect,
     autoEffect,
-    autoRadarEffect,
+--    autoRadarEffect,
 ) where
 
 import Dodge.Data.World
-import Dodge.RadarSweep
+--import Dodge.RadarSweep
 import Dodge.SoundLogic
 import LensHelp
 import Sound.Data
@@ -35,11 +35,11 @@ autoEffect eff t sid itm cr w
                 . eparamInt
                 -~ 1
 
--- | Automatically send out radar pulses that detect walls.
-autoRadarEffect :: Item -> Creature -> World -> World
-autoRadarEffect = autoEffect (const (aRadarPulse ObWall)) 100 click1S
+---- | Automatically send out radar pulses that detect walls.
+--autoRadarEffect :: Item -> Creature -> World -> World
+--autoRadarEffect = autoEffect (const (aRadarPulse ObWall)) 100 click1S
 
 -- | Automatically send out sonar pulses that detect creatures.
-autoSonarEffect :: Item -> Creature -> World -> World
-autoSonarEffect = autoEffect (const (aRadarPulse ObCreature)) 50 click1S
+--autoSonarEffect :: Item -> Creature -> World -> World
+--autoSonarEffect = autoEffect (const (aRadarPulse ObCreature)) 50 click1S