Move sparks into dedicated datatype

2022-07-18 12:15:05 +01:00
parent 13f2255ba7
commit 5495d33389
16 changed files with 99 additions and 104 deletions
@@ -15,14 +15,6 @@ simpleDam' dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
    bulVel = _buVel bt
    ep = sp +.+ bulVel

-
-basicSparkDams :: Particle -> Point2 -> [Damage]
-basicSparkDams bt p = [ Damage SPARKING 1 sp p ep NoDamageEffect ]
-  where
-    sp = head $ _ptTrail bt
-    bulVel = _ptVel bt
-    ep = sp +.+ bulVel
-
 hvBulDams :: [Damage]
 hvBulDams =
    [ Damage PIERCING  25 0 0 0 NoDamageEffect