Sorry your browser is not supported!

 REM COSMIC SPHERES by OVERDROID
REM www.overdroid.com - [email protected]
REM 2002, Oct 1st

REM SET UP   9 lines
sync on : sync rate 0  : hide mouse  :dim spheremove#(3,51) : floor=-300
load sound "change.wav",1 :load music "back.mp3",1: musicspeed#=music speed(1)
create bitmap 1,65,65:ink RGB(255,255,255),RGB(0,0,0):...
   for x=1 to 10 : circle 25,25,(4*x): next x
get image 1,1,1,5,65 :set current bitmap 0
make particles 1, 1 , 20, 30: position particles 1, 0, 300,0  : show particles 1 :...
   set particle gravity 1,5 : set particle floor 1,0
make light 1: position light 1, 0,0,0 : set light range 1,300: show light 1 : set particle life 1, 50
for x=1 to 50 : make object sphere x, 100, 5, 5: gosub sphererand: ghost object on x:...
   move object up x,rnd(100)
texture object x,1: scale object texture x,(rnd(200)/50),(rnd(200)/50): next x :...
loop music 1
make camera 1 : position camera 1, 0, 0, 0 : color backdrop 1, rgb(0,0,0) : backdrop on 1  :...
   set camera range 1,1,250

REM MAIN LOOP  7 lines
while returnkey()=0:...
   turn camera right 1,mousemovex()/2 : pitch camera down 1,mousemovey()/2
for x=1 to 50: move object up x, spheremove#(0,x): move object x, spheremove#(1,x): ...
   dec spheremove#(0,x),.005: if object position y(x)<floor then gosub sphererand

REM I AM COUNTING THE FOLLOWING LINE AS 3 Since it has 11 commands
if (object screen x (x)>250 and object screen x(x)<410) then...
      if (object screen y(x)>200 and object screen y(x)<280) then...
         if mouseclick() then ...
   spheremove#(2,x)=spheremove#(2,x)+(mouseclick()-1.5): color object x,rgb(rnd(255),rnd(255),rnd(255)) :...
   scale object x, spheremove#(2,x),spheremove#(2,x),spheremove#(2,x):...
spheremove#(1,x)=spheremove#(1,x)-(.03*(mouseclick()-2)) :  scroll object texture x,.003,.03:...
 set sound speed 1, ((spheremove#(2,x)*40)+20000): play sound 1: inc musicspeed#,.01

scroll object texture x,.001,.01  :next x :set music speed 1, musicspeed#: dec musicspeed#,.001
color particles 1,rnd(0), rnd(255), rnd(255): position particle emissions 1,0,(rnd(10)-11),0:...
   sync : endwhile :end

REM SET UP SPHERE FUNCTION  4 lines
sphererand:
size=rnd(30)+1:color object x,rgb(rnd(255),rnd(255),rnd(255)) : scale object x, size, size, size:...
   spheremove#(2,x)=size
position object x, (rnd(60)-30),floor,(rnd(60)-30):...
   spheremove#(0,x)=(rnd(2)+3)/2:spheremove#(1,x)=(rnd(3)*.1):yrotate object x,rnd(360)
return

REM 19 lines total.