Cleanup

src/Dodge/Euse.hs

@@ -9,9 +9,6 @@ import Dodge.Data.World
 import Dodge.Default.Wall
 import Dodge.Item.HeldOffset
 import Dodge.Item.Location
-import Dodge.Item.Weapon.ExtraEffect
-import Dodge.Item.Weapon.Radar
-import Dodge.SoundLogic.ExternallyGeneratedSounds
 import Dodge.Wall.Create
 import Dodge.Wall.Delete
 import Dodge.Wall.ForceField
@@ -23,7 +20,6 @@ import LensHelp
 useE :: Euse -> Item -> Creature -> World -> World
 useE eo = case eo of
     EDoNothing -> const $ const id
-    EDetector dt -> autoEffect (detectorEffect dt) 100 click1S
     EMagShield -> useMagShield
     EWristShield -> setWristShieldPos
     EHeadLamp -> createHeadLamp
@@ -31,7 +27,6 @@ useE eo = case eo of
     EonWristShield -> onEquipWristShield
     EoffWristShield -> onRemoveWristShield
     EFuelSource 0 _ -> const . const id
-    --EFuelSource{} -> trySiphonFuel
     EFuelSource{} -> const . const id
     EBatterySource{} -> tryChargeBattery
     EAmmoSource{} -> tryAttachBulletBelt