Cleanup

src/Dodge/Item/Held/BatteryGuns.hs

@@ -73,7 +73,6 @@ lasGun =
 tractorGun :: Item
 tractorGun =
     lasGun
-        & itParams .~ Attracting{_attractionPower = 1}
         & itUse . heldDelay .~ NoDelay
         & itUse . heldAim . aimWeight .~ 6
         & itUse . heldAim . aimRange .~ 1

src/Dodge/Item/Weapon.hs

@@ -5,11 +5,11 @@ module Dodge.Item.Weapon (
     module Dodge.Item.Weapon.Spawn,
     module Dodge.Item.Weapon.Radar,
     module Dodge.Item.Weapon.Utility,
-    module Dodge.Item.Weapon.BatteryGuns,
+--    module Dodge.Item.Weapon.BatteryGuns,
     module Dodge.Item.Weapon.Drone,
 ) where
 
-import Dodge.Item.Weapon.BatteryGuns
+--import Dodge.Item.Weapon.BatteryGuns
 import Dodge.Item.Weapon.Drone
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.Radar

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -1,26 +1,19 @@
 module Dodge.Item.Weapon.BatteryGuns (
-    lasRayAt,
-    flameBeamCombine,
-    teslaBeamCombine,
-    splitBeamCombine,
-    --    shootTeslaArc,
-    shootLaser,
-    --circleLaser,
-    --shootDualLaser,
+--    lasRayAt,
+--    flameBeamCombine,
+--    teslaBeamCombine,
+--    splitBeamCombine,
+--    --    shootTeslaArc,
+--    shootLaser,
+--    --circleLaser,
+--    --shootDualLaser,
 --    aTractorBeam,
 ) where
 
---import Dodge.Base
-import Dodge.Beam
---import Dodge.Creature.HandPos
-import Dodge.Data.World
---import Dodge.Item.Weapon.LaserPath
---import Geometry
---import qualified IntMapHelp as IM
-import LensHelp
---import Picture
-
---import Control.Monad.State
+--import Geometry.Data
+--import Color.Data
+--import Dodge.Data.World
+--import LensHelp
 
 
 --lasWidePulse :: Item
@@ -74,15 +67,15 @@ import LensHelp
 --        x' = _lasCycle $ _itParams it
 
 
-shootLaser :: Item -> Creature -> World -> World
-shootLaser it cr =
-    cWorld . lWorld . lasers
-        .:~ lasRayAt
-            (_lasColor $ _itParams it)
-            (_lasDamage $ _itParams it)
-            (_phaseV $ _itParams it)
-            (_crPos cr)
-            (_crDir cr)
+--shootLaser :: Item -> Creature -> World -> World
+--shootLaser it cr =
+--    cWorld . lWorld . lasers
+--        .:~ lasRayAt
+--            (_lasColor $ _itParams it)
+--            (_lasDamage $ _itParams it)
+--            (_phaseV $ _itParams it)
+--            (_crPos cr)
+--            (_crDir cr)
 
 ---- this has the feel of a left click item
 --circleLaser :: Item -> Creature -> World -> World