Sync On:Sync Rate 60:Autocam Off
Color Backdrop 0
 
Make Camera 1
Color Backdrop 1,Rgb(3,0,0)
Position Camera 1,0,17,0
Set Camera To Image 1,1,128,128,1
 
Position Camera 0,0,15,0
 
 
Make object Cone 1,8
Position Object 1,0,7,50
Scale Object 1,100,180,100
Texture Object 1,1
 
Make Particles 1,1,2,120
Position Particles 1,0,0,50
Position Particle Emissions 1,0,18,50
Color Particles 1,200,0,0
Set Particle Floor 1,1
Set Particle Life 1,8
Ghost Particles On 1,0
Set Particle Gravity 1,12
Set Particle Velocity 1,5
Set Particle Speed 1,.01
 
i=0
Do
   inc i
   If i>100
      i=0
      r=rnd(200):b=rnd(200):g=rnd(200)
      Color Particles 1,r,g,b
      Color Backdrop 1,Rgb(r/10,g/10,b/10)
   Endif
   Sync
Loop