Separate out bullet effects, allow for tweaking to change these

2021-11-30 13:11:34 +00:00
parent e75cbdf6cb
commit 4d21c0f31a
13 changed files with 207 additions and 81 deletions
@@ -102,8 +102,8 @@ hvBulHitCr bt p cr w
    sp = head $ _btTrail' bt
    ep = sp +.+ _btVel' bt
 {- | Create a flamelet when hitting a creature.  -}
-bulIncCr' :: Particle -> Point2 -> Creature -> World -> World
-bulIncCr' bt p cr w 
+bulIncCr :: Particle -> Point2 -> Creature -> World -> World
+bulIncCr bt p cr w 
    = over (creatures . ix cid . crState . crDamage)
           ( Piercing 60 sp p ep : )
    $ bulletHitSound p