Tweak muzzle flare

2023-05-28 11:14:05 +01:00
parent 10c9e2261f
commit 4b35a683af
6 changed files with 18 additions and 20 deletions
@@ -60,14 +60,12 @@ useAmmoParams :: Item -> Creature -> World -> World
 useAmmoParams it cr w =
    w & cWorld . lWorld . instantBullets
        .:~ ( _amBullet bultype
-                -- & buPos .~ sp
                & buPos .~ _crPos cr
                & buTrajectory %~ settrajectory
                & buVel %~ (rotateV dir . (muzvel *.*))
                & buDrag *~ _rifling (_itParams it)
            )
  where
-    --sp = _crPos cr +.+ (muzlength + 10) *.* unitVectorAtAngle dir
    sp = _crPos cr +.+ (muzlength ^?! _head . _x) *.* unitVectorAtAngle dir
    dir = _crDir cr
    bultype = _laAmmoType $ _heldConsumption $ _itUse it