Work on sensor machines, remove some datatypes associated with placements

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -5,11 +5,11 @@ module Dodge.Item.Weapon.BatteryGuns
     )
     where
 import Dodge.Data
+import Dodge.Particle.TeslaArc
 import Dodge.SoundLogic.LoadSound
-import Dodge.Creature.State.Data
 import Dodge.Data.DamageType
 import Dodge.WorldEvent
-import Dodge.Wall.Damage
+import Dodge.WorldEvent.Damage
 import Dodge.Default
 import Dodge.Item.Draw
 import Dodge.Item.Data
@@ -173,7 +173,7 @@ makeLaserAt phaseV pos dir = Particle
     { _ptDraw = const blank
     , _ptUpdate = moveLaser phaseV pos dir
     }
-moveLaser 
+moveLaser
     :: Float    -- ^ Phase velocity, controls deflection through windows
     -> Point2 
     -> Float 
@@ -221,11 +221,7 @@ moveLaser phaseV pos dir w pt
     h' ws (_,Right wl) = not $ any (\w' -> _wlID w' == _wlID wl) ws
     h' _ _ = True
     (thHit, ps) = f [] pos xp
-    hitEffect = case thHit of
-        Just (p,Left cr) 
-            -> creatures . ix (_crID cr) . crState . crDamage %~ (Lasering 19 pos p xp :)
-        Just (p,Right wl) -> damageWall (Lasering 19 pos p xp) wl
-        _   -> id
+    hitEffect = damThingHitWith (Lasering 19) pos xp thHit
     pic = setLayer 1 $ pictures
         [ setDepth 19   . color (brightX 0 0.5 yellow) $ lineOfThickness 20 (pos:ps)
         , setDepth 19.5 . color (brightX 10 1 yellow)  $ lineOfThickness 3  (pos:ps)