Fix no damage to walls bug

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -1,10 +1,9 @@
 module Dodge.Item.Weapon.BatteryGuns (
-    teslaParams,
     lasRayAt,
     flameBeamCombine,
     teslaBeamCombine,
     splitBeamCombine,
-    shootTeslaArc,
+--    shootTeslaArc,
     shootLaser,
     circleLaser,
     shootDualLaser,
@@ -17,7 +16,6 @@ import Dodge.Creature.HandPos
 import Dodge.Data.World
 import Dodge.Item.Location
 import Dodge.Item.Weapon.LaserPath
-import Dodge.Tesla
 import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
@@ -132,15 +130,6 @@ import Picture
 --        y = 15 * sin (pi * fromIntegral x' * 0.01)
 --        x' = _lasCycle $ _itParams it
 
--- | assumes that the item is held
-shootTeslaArc :: Item -> Creature -> World -> World
-shootTeslaArc it cr w =
-    w'
-        & cWorld . creatures . ix (_crID cr) . crInv . ix (crSel cr) . itParams .~ ip
-  where
-    (w', ip) = shootTeslaArc' (_itParams it) pos dir w
-    pos = _crPos cr +.+ aimingMuzzlePos cr it *.* unitVectorAtAngle dir
-    dir = _crDir cr
 
 
 shootLaser :: Item -> Creature -> World -> World