hey, i know it has been a long time from the last post but u did not here from you guys if this helps. plus i made the code better. it is like fire but you could make it into smoke. plus, add a fire or smoke texture to it.
dim up#(50)
dim x#(50)
dim z#(50)
sync on
sync rate 30
make object cube 1,10
rem load image "fire.bmp",1
position object 1,0,0,0
for x=2 to 50
make object plain x,3,3
rem texture object x,1
ghost object on x
position object x,cos(rnd(100))*5,(x),cos(rnd(100))*5
next x
position camera 10,0,50
point camera 0,0,0
do
x#=object position x(1)
z#=object position z(1)
ay#=object angle y(1)
if upkey()=1 then move object 1,1
if rightkey()=1 then turn#=turn#+.6
if leftkey()=1 then turn#=turn#-.6
if turn#>.1 then turn#=turn#-.3
if turn#<-.1 then turn#=turn#+.3
if leftkey()=0 and rightkey()=0 and turn#<.1 and turn#>-.1 then turn#=0
yrotate object 1,wrapvalue(ay#+turn#)
for x=2 to 50
up#(x)=object position y(x)+1
x#(x)=object position x(x)
z#(x)=object position z(x)
position object x,x#(x),up#(x),z#(x)
if (rnd(45)+up#(x))>50 then position object x,cos(rnd(100))*5+x#,0,cos(rnd(100))*5+z#
next x
sync
loop