Continue to tweak death effects

2022-06-04 15:52:38 +01:00
parent 63af928a1a
commit 582881ca66
13 changed files with 126 additions and 27 deletions
@@ -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