Sorry your browser is not supported!

`my own particle trail :)

ink rgb(255,0,0),0
circle 300,300,15
get image 1,270,280,330,320

autocam off
make matrix 1,1000,2000,50,50

make object plain 1,10,10
texture object 1,1
set object transparency 1,2

position camera 0,80,-30

n=1000
do

point camera object position x(1),object position y(1),object position z(1)

move object 1,0.2

if leftkey() then yrotate object 1,object angle y(1)-1
if rightkey() then yrotate object 1,object angle y(1)+1
if shiftkey() then move object up 1,0.5
if controlkey() then move object down 1,0.5

inc w
if w>60 then w=0


instance object n,1
position object n,object position x(1),object position y(1),object position z(1)
rotate object n,object angle x(1),object angle y(1),object angle z(1)
inc n,1

if n>5000 and once=0
   once=1
   n=1000
   once=0
endif

for nn=1000 to n
   delete object n-400
next nn

text 10,10,str$(n)

loop

ink rgb(255,0,0),0
circle 300,300,15
get image 1,270,280,330,320

autocam off
make matrix 1,1000,2000,50,50

make object plain 1,10,10
texture object 1,1
set object transparency 1,2

position camera 0,80,-30

for makeobjects=2 to 1000
instance object makeobjects,1
next makeobjects

n=2

do

point camera object position x(1),object position y(1),object position z(1)

move object 1,0.2

if leftkey() then yrotate object 1,object angle y(1)-1
if rightkey() then yrotate object 1,object angle y(1)+1
if shiftkey() then move object up 1,0.5
if controlkey() then move object down 1,0.5

for n=2 to 1000
inc now

if now>300
position object n,object position x(1),object position y(1),object position z(1)
now=0
endif

next n

loop