Sure:
sync rate 0
sync on
hide mouse
autocam off
set camera range 1,20000
fog distance 2000
fog on
hide light 0
set ambient light 200
load image "new.bmp",1
load image "cloud2.bmp",2
load image "cloud3.bmp",3
load image "cloud4.bmp",4
load object "spacesphere.x",200
scale object 200,400,400,400
set object fog 200,0
set object 200,1,0,0,0,0
make object plain 100,1,1
hide object 100
for t=1 to 50
s=rnd(500)+150
make object plain t,s,s
texture object t,1
` set alpha mapping on t,50
ghost object on t
` fade object t,200
` set object t,1,0,1,0,0
`set object light t,0
` set object cull t,0
set object transparency t,1
` disable object zdepth t
position object t,rnd(500)-250,rnd(500)-250,rnd(500)-250
next t
speed#=0.01
do
move camera speed#
xt#=mousemovex()
yt#=mousemovey()
xt#=xt#/3
yt#=yt#/3
if upkey()=1 then speed#=speed#+0.1
if downkey()=1 then speed#=speed#-0.1
turn camera right xt#
pitch camera up yt#
cxp#=camera position x()
cyp#=camera position y()
czp#=camera position z()
position object 200,cxp#,cyp#,czp#
position object 100,cxp#,cyp#,czp#
set object to camera orientation 100
move object 100,50
' make sure all the clouds face the camera
for t=1 to 50
point object t,cxp#,cyp#,czp#
set object to camera orientation t
pitch object up t,180
next t
for t=1 to 50
fv=intersect object(t,cxp#,cyp#,czp#,object position x(100),object position y(100),object position z(100))
if fv=0 then fv=50
fade object t,fv
text 10,10,str$(fv)
next t
sync
loop
Use the mouse to move the cam around, and use up and down arrow to go faster/slower.
