Refactor flash lighting, determine (projected) namespace

2021-03-23 17:39:34 +01:00
parent e0d49cdf57
commit 3e2eaeece2
4 changed files with 53 additions and 122 deletions
@@ -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