20 lines:
sync on:
sync rate 30
disable escapekey
backdrop on:
color backdrop 0
for t=1 to 2000
make object sphere t,0.3:position object t ,rnd(500)-250,rnd(500)-250,rnd(500)-250:set object light t,0
next t
while escapekey()=0
for t=1 to 2000
move object t,-1
if OBJECT POSITION z(t)<-250 then position object t,rnd(500)-250,rnd(500)-250,rnd(500)-250
next t
rotate camera MOUSEX(),MOUSEy(),MOUSEz()
sync
endwhile
for t=1 to 2000
delete object t
next t
end
mouse for control camera
full discription
sync on:
sync rate 30
disable escapekey
backdrop on:
color backdrop 0
for t=1 to 2000
make object sphere t,0.3:
position object t ,rnd(500)-250,rnd(500)-250,rnd(500)-250:
set object light t,0
next t
while escapekey()=0
for t=1 to 2000
move object t,-1
if OBJECT POSITION z(t)<-250 then position object t,rnd(500)-250,rnd(500)-250,rnd(500)-250
next t
rotate camera MOUSEX(),MOUSEy(),MOUSEz()
sync
endwhile
for t=1 to 2000
delete object t
next t
end
EscapeKey for exit demo
translated translator yandex or google