Create datatypes for radar sweeps

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -17,9 +17,8 @@ module Dodge.Item.Weapon.ExtraEffect
 import Dodge.Data
 import Dodge.Base
 import Dodge.Zone
+import Dodge.RadarSweep
 import Dodge.SoundLogic
---import Dodge.Item.Weapon.Decoration
-import Dodge.Item.Weapon.UseEffect
 import Dodge.Item.Weapon.LaserPath
 --import Dodge.Item.Attachment.Data
 import Dodge.Creature.Test
@@ -49,10 +48,10 @@ autoEffect eff t sid itm cr w
 
 {- | Automatically send out radar pulses that detect walls.  -}
 autoRadarEffect :: Item -> Creature -> World -> World
-autoRadarEffect = autoEffect (const aWallPulse) 100 click1S
+autoRadarEffect = autoEffect (const (aRadarPulse ObWall)) 100 click1S
 {- | Automatically send out sonar pulses that detect creatures.  -}
 autoSonarEffect :: Item -> Creature -> World -> World
-autoSonarEffect = autoEffect (const aSonarPulse) 50 click1S
+autoSonarEffect = autoEffect (const (aRadarPulse ObCreature)) 50 click1S
 defaultTargeting :: Targeting
 defaultTargeting = Targeting
     { _tgPos = Nothing