I decided to improve on the windows star field screen saver (because I was bored) and came up with this. It will sort of work if you put the original line command back in, but it run's much slower and doesn't look nearly as cool as it does with the a2 commands
set display mode desktop width(),desktop height(),32
sync on
hide mouse
sync rate 0
starnum=500
taillen=4
dim angle(starnum)
dim dist#(starnum)
dim speed(starnum)
dim act(starnum)
sw=screen width()
sh=screen height()
for x=0 to starnum
dist#(x)=rnd(1000)
angle(x)=rnd(360)
speed(x)=rnd(10000)+30
next x
do
cls 0
for x=0 to starnum
inc dist#(x),dist#(x)/speed(x)
tlenght#=taillen*(speed(x)/200)
if tlenght#<0 then tlenght#=0
sx#=(sin(angle(x))*(dist#(x)))+sw/2
sy#=(cos(angle(x))*(dist#(x)))+sh/2
osx#=(sin(angle(x))*(dist#(x)-(dist#(x)/tlenght#)))+sw/2
osy#=(cos(angle(x))*(dist#(x)-(dist#(x)/tlenght#)))+sh/2
a2line sx#,sy#,osx#,osy#,rgb(255,255,255),rgb(60,60,60)
if sx#<-100 or sx#>sw+100 or sy#<-100 or sy#>sh+100
if act(x)=0
dist#(x)=dist#(x)-sw/2-100
act(x)=1
else
dist#(x)=rnd(10)
endif
if dist#(x)<1 then dist#(x)=1
angle(x)=rnd(360)
speed(x)=rnd(10000)+30
endif
next x
sync
loop
Would make a decent backdrop for any space shooter menu :L
There is no such thing as "Too Fast!"