Be happy!

Mathematica code:

r[n_] := ( SeedRandom[n]; RandomReal[])

Fireworks2[IS_, pr_, x_, y_, h_, R_, P_, F_, g_, v_, u_, z_,
                  o_, O_, w_, d_, q_, e_, A_, k_, s_, t_] :=
 Graphics[
  Table[
   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},
    Table[
     Table[
      {Hue[r[R*f]], 
       Opacity[If[a == 0, 
         If[t - r[R*f] s < o + r[R*f] s, O, 
          O*Exp[-d*(t - r[R*f] s - o)]], 
         If[(t - r[R*f] s - a) < q + r[R*f] s, 0, 
          O*Exp[-e*(t - r[R*f] s + a - q)]]]],
       Disk[
        {x + (v + u*r[2 R*f*n])*
           Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),
         y + 
          h + (v + u*r[2 R*f*n])*
           Sin[2 Pi*r[f*R*n]]*(t - r[R*f] s - 
             a) - .5 g*(t - r[R*f] s - a)^2},
        (z + .2 r[6 f*R*n])*k^a]},
      {n, 1, P}],
     {a, 0, A, .05}]],
   {f, 1, F}],
  Background -> Black, PlotRange -> pr, ImageSize -> IS]

Manipulate[
Fireworks[500, 40, 0, 9, 0, 1, 70, 3, .6, 
              If[t < 6, 6, 6 - .05 (t - 6)^2], 
              -1, .2, 3, .7, 2, .5, 0, .4, 
              5, .9, 1, t],
 {t, 0, 11, .25}]]