Rem Dark Basic Classic Project:
Rem Created: 5/4/2007 4:24 AM
Rem Title: starfield
Rem Author: Phaelax
sync on
sync rate 60
hide mouse
 
randomize timer()
dim stars(1000,9)
for i=0 to 1000
   stars(i,0)=rnd(4000)-2000
   stars(i,1)=rnd(4000)-2000
   stars(i,2)=rnd(4000)+1000
   stars(i,7)=25+rnd(100)
next i
 
 
ink rgb(255,255,255),0
 
repeat
   cls
   for i=0 to 1000
      stars(i,2)=stars(i,2)-stars(i,7):rem speed
      if stars(i,2)<=0
         stars(i,0)=rnd(4000)-2000
         stars(i,1)=rnd(4000)-2000
         stars(i,2)=rnd(4000)+1000
         stars(i,7)=25+rnd(50)
      endif
         stars(i,3)=(stars(i,0)*100)/stars(i,2)
         stars(i,4)=(stars(i,1)*100)/stars(i,2)
         stars(i,5)=(stars(i,0)*100)/stars(i,2)+(stars(i,7)*4):rem (speed*4)
         stars(i,6)=(stars(i,1)*100)/stars(i,2)+(stars(i,7)*4):rem (speed*4)
         dot 320+stars(i,3),240+stars(i,4)
   next i
   sync
until breaker() = 1
 
 
function breaker()
   if mousemovex() <> 0 then exitfunction 1
   if mousemovey() <> 0 then exitfunction 1
   if mousemovez() <> 0 then exitfunction 1
   if mouseclick() <> 0 then exitfunction 1
   if scancode() <> 0 then exitfunction 1
endfunction 0