I want to watch fireworks every night. Don’t you?

Mathematica code:

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

Fireworks[IS_, pr_, x_, y_, h_, R_, P_, F_, g_, v_, z_, o_, w_, d_, q_, e_, s_, t_] :=
 Graphics[
  Table[
   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},
    Table[
     Table[
      {Hue[r[R*f]], 
       Opacity[If[t - r[R*f] s - a == t - r[R*f] s, 
                      If[t - r[R*f] s < o, 1, Exp[-d*(t - r[R*f] s - o)]], 
                   If[(t - r[R*f] s - a) < q, 0, 
                      Exp[-e*(t - r[R*f] s + a - q)]]]],
       Disk[
        {(r[2 R*f] - .5)*x + v*r[3 f*R*n]*Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),
           r[4 R*f]*y + h + v*r[5 f*R*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]]},
    {n, 1, P}],
   {a, 0, 2, .05}]],
 {f, 1, F}],
Background -> Black, PlotRange -> pr, ImageSize -> IS]


ListAnimate[
   Table[
     Fireworks[500, 50, 50, 20, 15, 25, 75, 7, .3, 3.5, .11, 5, 2, .8, .2, .4, 3, t],
   {t, 0, 13, .2}],
AnimationRunning -> False]

ListAnimate[
   Table[
     Fireworks[500, 50, 50, 20, 15, 17, 75, 6, .3, 3.5, .11, 5, 2, .8, .2, .5, 3, t],
   {t, 0, 12, .2}]
AnimationRunning -> False]