Chris, that's close to what I meant. Here's a tweaked version that is transparent texture friendly. It also uses less plains as a result.
load image "rain.png",1,1
dim speed#(5)
set image colorkey 255,0,0
COLOR BACKDROP rgb(50,50,50)
fog on
fog color rgb(50,50,50)
fog distance 50
position light 0, 0,50,-5
set light range 0, 75
for t = 1 to 5
make object plain t,5,5
scale object t,100,200,100
texture object t,1
scroll object texture t,0.1*rnd(3),0
set object transparency t, 1
rnd#=rnd(15)
speed#(t)=(-2+(rnd#/15))/50
position object t,0,0,t-1
next t
make object sphere 6, 1
color object 6, rgb(255,0,0)
position object 6, 0,0,5
make object plain 7,5,5
scale object 7, 400,400,400
color object 7, rgb(0,200,0)
position object 7, 0,-5,0
xrotate object 7, 270
set object light 7, 1
sync on
do
if downkey()=1 then z#=z#-0.1
if upkey()=1 then z#=z#+0.1
if leftkey()=1 then x#=x#-0.1
if rightkey()=1 then x#=x#+0.1
for t = 1 to 5
scroll object texture t,.001,speed#(t)
next t
position camera x#,0,z#-5
point camera x#,0,z#-3
text 2,2,"FPS: "+str$(screen fps())
sync
loop
Here's the png texture that I used. Transparent with thinner streaks...
rain.png
[edit] Grayed the background and updated the code snippet so you can play with fog. Just pull back on the camera to see it in action.
--
TAZ
