Continue to tweak death effects

src/Dodge/Particle/Damage.hs

@@ -27,6 +27,16 @@ simpleDam dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
     bulVel = _ptVel bt
     ep = sp +.+ bulVel
 
+heavyBulDams :: Particle -> Point2 -> [Damage]
+heavyBulDams bt p =
+    [ Damage PIERCING 300 sp p ep NoDamageEffect
+    , Damage PUSHDAM    1 sp p ep . PushBackDamage $ 2 *.* bulVel
+    ]
+  where
+    sp = head $ _ptTrail bt
+    bulVel = _ptVel bt
+    ep = sp +.+ bulVel
+
 basicBulDams :: Particle -> Point2 -> [Damage]
 basicBulDams bt p =
     [ Damage PIERCING 100 sp p ep NoDamageEffect

src/Dodge/Particle/HitEffect.hs

@@ -1,8 +1,10 @@
 module Dodge.Particle.HitEffect
     ( penWalls
+    , module Dodge.Particle.HitEffect.ExpireAndDamage
     ) where
 import Dodge.Data
 import Dodge.Particle.Update
+import Dodge.Particle.HitEffect.ExpireAndDamage
 import Geometry
 
 import Data.Bifunctor