Tweak explosions
This commit is contained in:
@@ -118,7 +118,8 @@ doThrust pj smoke w =
|
||||
& randGen .~ g
|
||||
& cWorld . lWorld . projectiles . ix i . prjVel %~ (\v -> accel +.+ frict *.* v)
|
||||
& soundContinue (ShellSound i) newPos missileLaunchS (Just 1)
|
||||
& makeFlamelet (oldPos -.- vel) (vel +.+ rotateV (pi + sparkD) accel) 3 10
|
||||
-- & makeFlamelet (oldPos -.- vel) (vel + 2 * rotateV (pi + sparkD) accel) 3 10
|
||||
& makeFlamelet oldPos (vel +.+ rotateV (pi + sparkD) accel) 3 10
|
||||
& shellTrailCloud
|
||||
lifetime
|
||||
trailfadetime
|
||||
|
||||
Reference in New Issue
Block a user