New Years Eve Fireworks!

[bplus]

Thanks again @Bplus! I took most of your recommendations and used them. I kept a lot more explosions though but I did reduce them a bit. Plus I added your name to this because much of the code is by you. I hope that's OK with you, I just thought you should have some credit.
 
Here is the newest zip file, it's called: Fireworks 3.zip which has Fireworks 3.bas and 2 mp3 files. 

Dang you need:
Dim C() As _Unsigned Long
to get full range of colors, all your colors look mostly the same to me?

and I am sorry you disabled the limit I put in on explosions. Here is a fix:

Code: (Select All)

'If booms < 20 Then _Limit (300 - b) + 60
' If booms < 20 Then _Delay .005 ' <<<  this messes up the above line
'If booms > 19 Then _Limit 500
If booms < 30 Then _Limit (300 - b) + 60 Else _Limit 500    ' <<< 30 is your new amount before rapid fire

In explosions, the initial spread speed is fast but slows due to air friction.

Oh also a CLS right after trajectile: clears the "trails" off the black screen. Come to think a night sky would be excellent background to this!
I think I have code handy, stay tuned...

update: nope background doesn't work with the fade trick for drawing the trails.