Refactor flash lighting, determine (projected) namespace

src/Dodge/Item/Weapon.hs

@@ -663,7 +663,7 @@ aTeslaArc cid w = aTeslaArc' cid
 
 aTeslaArc' :: Int -> World -> World
 aTeslaArc' cid w = 
-                flareAt' cyan 0.03 0.1 (pos +.+ 5 *.* unitVectorAtAngle dir)
+                teslaGunFlashAt (pos +.+ 5 *.* unitVectorAtAngle dir)
                 $ over projectiles (IM.insert i (makeTeslaArcAt i pos dir)) 
                 $ set randGen g w
     where cr  = (_creatures w IM.! cid)
@@ -676,7 +676,7 @@ aTeslaArc' cid w =
 aLaser :: Int -> World -> World
 aLaser cid w = over particles' ( (:) (makeLaserAt phaseV pos dir (Just cid)))
                 $ soundFrom LasSound 24 1 0 
-                $ flareAt' yellow 0.02 0.05 (pos +.+ 5 *.* unitVectorAtAngle dir)
+                $ laserGunFlashAt (pos +.+ 5 *.* unitVectorAtAngle dir)
                 w
     where cr  = (_creatures w IM.! cid)
           i = newProjectileKey w

src/Dodge/Item/Weapon/Bullet.hs

@@ -28,7 +28,7 @@ bulHitCr' bt p cr w =
                 addDamageArmoured = over (creatures . ix cid . crState . crDamage)
                                     (\dams -> mvDams ++ dams)
                 hitSound = soundMultiFrom [CrHitSound 0] 15 10 0
-                flashEff = over worldEvents ((.) $ flareAt' red 0.02 0.05 p)
+                flashEff = over worldEvents ((.) $ bloodFlashAt p)
                 bulVel = _btVel' bt
                 ck cid  = (+.+) (crKnockBack cid *.* bulVel)
                 crKnockBack cid = (/) 1 $ (+) 2 $ _crMass $ _creatures w IM.! cid