Sync On:Sync Rate 0:AutoCam Off
Hide Mouse

Make Object Cone 1,2
Make Object Cylinder 2,1
Scale Object 2,100,200,100
Make Mesh From Object 2,2
Delete Object 2
Add Limb 1,1,2
Offset Limb 1,1,0,-2,0

Pitch Object Down 1,90
Fix Object Pivot 1
Scale Object 1,25,25,25
Set Object Cull 1,0
d#=5

Do
   Pick Screen MouseX(),MouseY(),d#
   Position Object 1,Get Pick Vector X(),Get Pick Vector Y(),Get Pick Vector Z()
   d#=d#+MouseMoveZ()*.01
   If Mouseclick()=1
      o=Free_Particle()
      Make Object Plain o,.1,.1
      Color Object o,rgb(Rnd(255),Rnd(255),Rnd(255))
      Set Object Emissive o,rgb(10,10,10)
      Position Object o,Object Position x(1),Object Position y(1),Object Position Z(1)+.25
   Endif
   Set Cursor 0,0
   Print screen fps()
   Sync
Loop



Function Free_Particle()
   i=100
   Do
      If Object Exist(i)=0 Then Exit
      If i=500 Then Exit
      i=i+1
   Loop
   if i=500
      If Object Exist(100) Then Delete Object 100
      i=100
   endif
   If Object Exist(i+1) Then Delete Object i+1
Endfunction i