Rethink damage data type, work on damage sensors

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -179,7 +179,7 @@ mvLaser :: Float    -- ^ Phase velocity, controls deflection through windows
     -> Particle 
     -> (World, Maybe Particle)
 mvLaser phasev pos dir w pt
-    = ( damThingHitWith (Lasering 19) pos xp thHit w
+    = ( damThingHitWith (\p1 p2 p3 -> Damage Lasering 19 p1 p2 p3 NoDamageEffect) pos xp thHit w
       , Just pt {_ptDraw = const pic ,_ptUpdate = ptSimpleTime 0 }
       )
   where
@@ -190,7 +190,6 @@ mvLaser phasev pos dir w pt
         , setDepth 19.5 . color (brightX 10 1 yellow)  $ thickLine 3  (pos:ps)
         ]
 
-
 aTractorBeam :: Item -> Creature -> World -> World
 aTractorBeam _ cr w = w & props . at i ?~ tractorBeamAt i spos outpos dir
   where 

src/Dodge/Item/Weapon/SprayGuns.hs

@@ -171,7 +171,9 @@ overNozzles' eff it cr w = neww & creatures . ix cid . crInv . ix i . itParams .
 
 overNozzle :: (Nozzle -> Item -> Creature -> World -> World)
     -> Item -> Creature -> World -> Nozzle -> (World, Nozzle)
-overNozzle eff it cr w nz = (eff nz it (cr & crDir +~ wa + na) w & randGen .~ g,nz & nzCurrentWalkAngle .~ wa)
+overNozzle eff it cr w nz = 
+    ( eff nz it (cr & crDir +~ wa + na) w & randGen .~ g
+    , nz & nzCurrentWalkAngle .~ wa)
   where
     na = _nzDir nz
     (walkamount, g) = randomR (-aspeed,aspeed) (_randGen w)