Cleanup

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