Sorry your browser is not supported!

`my own particle trail testing
`trying to make trail
`need to figure out how to delete if too long...

circle 300,300,10
get image 1,280,300,350,350

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

make object cube 1,5
color object 1,rgb(0,255,0)

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

position camera 0,30,-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 spacekey() then move object up 1,0.5
if shiftkey() then move object down 1,0.5

inc w
if w>60 then w=0

if mouseclick()=1 and w>50

instance object n,2
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

endif

loop

`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

inc w
if w>60 then w=0