Rethink damage data type, work on damage sensors

src/Dodge/Particle/TeslaArc.hs

@@ -12,8 +12,8 @@ import Dodge.RandomHelp
 import Picture
 import Geometry
 import qualified IntMapHelp as IM
+import LensHelp
 
-import Control.Lens
 import System.Random
 import Control.Monad.State
 import Data.Function (on)
@@ -44,7 +44,8 @@ moveTeslaArc
 moveTeslaArc p d w pt
     | t == 2 = 
         (foldr damCrs w hitCrs & randGen .~ g & colSpark 8 nc q2 (argV sv)
-             & damThingHitWith (Electrical 50) q1 ((2 *.* q2) -.- q1) thHit
+             & damThingHitWith (\p1 p2 p3 -> Damage Electrical 50 p1 p2 p3 NoDamageEffect) 
+                    q1 ((2 *.* q2) -.- q1) thHit
         , Just $ pt & ptTimer -~ 1 & ptPoints .~ ps'
         )
     | t < 1     = (w , Nothing)
@@ -62,7 +63,8 @@ moveTeslaArc p d w pt
     f1 (E3x1 cr) = Just $ _crID cr
     f1 _         = Nothing
     hitCrs       = mapMaybe f1 $ take 14 $ crsLightChain p d 0 w
-    damCrs cid = over (creatures . ix cid . crState . crDamage) (Electrical 5 cpos cpos cpos :)
+    damCrs cid = creatures . ix cid . crState . crDamage 
+        .:~ Damage Electrical 5 cpos cpos cpos NoDamageEffect
       where 
         cpos = _crPos (_creatures w IM.! cid)
     q1 = last $ init ps'