just a simple fireworks function
set display mode 1024,768,32
color backdrop 0
``_______my_particles(particlenumber,xpos,ypos,zpos,freq,radius,red,green,blue,ghost 1 to 5
do
randomize timer()
my_particles(1,0,0,0,30,3,rnd(255),rnd(255),rnd(255),3)
wait 2000
delete particles 1
loop
function my_particles(id,px,py,pz,freq,rad,rc,gc,bc,ghostmode)
``_______my_particles(particlenumber,xpos,ypos,zpos,freq,radius,red,green,blue,ghost 1 to 5
make particles id,1,freq,rad
position particles id,px,py,pz
color particles id,rc,gc,bc
ghost particles on id,ghostmode
endfunction