Cleanup muzzle flare

2021-03-22 14:36:20 +01:00
parent 506b0c4b8d
commit bc4aeef35e
5 changed files with 30 additions and 49 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 p)
+                flashEff = over worldEvents ((.) $ flareAt' red 0.02 0.05 p)
                bulVel = _btVel' bt
                ck cid  = (+.+) (crKnockBack cid *.* bulVel)
                crKnockBack cid = (/) 1 $ (+) 2 $ _crMass $ _creatures w IM.! cid