Move radar blips into own grouping

2022-07-10 11:52:51 +01:00
parent 8202d12b6a
commit ce5b596d4f
6 changed files with 101 additions and 74 deletions
@@ -33,7 +33,7 @@ aFlameParticle
    -> Point2   -- ^ Velocity
    -> Maybe Int -- ^ Creature id
    -> Particle
-aFlameParticle t pos vel maycid = PtZ
+aFlameParticle t pos vel maycid = PtFlame
    { _ptDraw       = drawFlame vel
    , _ptUpdate     = moveFlame vel
    , _ptVel        = vel
@@ -44,6 +44,7 @@ aFlameParticle t pos vel maycid = PtZ
    , _ptTimer      = t
    , _ptHitEff     = expireAndDamage $ simpleDam FLAMING 20
    , _ptZ           = 20
+    , _ptOriginalVel = vel
    }
 drawFlame
    :: Point2 -- ^ Rotate direction