Tweak sparks

2022-03-25 15:09:04 +00:00
parent 59b49956b5
commit bd46d3f110
5 changed files with 9 additions and 10 deletions
@@ -34,7 +34,7 @@ defaultAimParams = AimParams
    , _aimStance = OneHand
    }
 useAmmoParams :: Maybe Float -> Item -> Creature -> World -> World
-useAmmoParams vfact it cr w = w & particles .:~ aBulAt 
+useAmmoParams vfact it cr w = w & instantParticles .:~ aBulAt 
    vfact 
    thetraj                     -- extra update
    Nothing                     -- color (default)
@@ -255,7 +255,7 @@ updateArc :: ItemParams
 updateArc = createNewArc

 shootLaser :: Item -> Creature -> World -> World
-shootLaser it cr = particles .:~ lasRayAt phasev pos dir
+shootLaser it cr = instantParticles .:~ lasRayAt phasev pos dir
  where 
    pos = _crPos cr +.+ aimingMuzzlePos cr it *.* unitVectorAtAngle dir
    dir = _crDir cr