Oops...
here's the first function:
function makethrust(x#,y#,ang)
for i = 1 to 99
if rttimer(i)<=0 `finds the first available rocket thrust object.
rttimer(i)=20
show object i+7500
position object i+7500,x#,y#,320
zrotate object i+7500,ang
exitfunction
endif
next i
endfunction
here's the second:
function rthrust() 'lowers the timer for each thrust segment and
for i = 1 to 99 'gets rid of them when they're time is up.
if rttimer(i)<=0
hide object 7500+i
else
rttimer(i)=rttimer(i)-1
endif
next i
endfunction
That's it. You may have to play with the size of your thrust objects and the speed of the rocket to make it look good.