Sorry your browser is not supported!

sync on : goto screensaver
settings:
backdrop off : input "Enter red component(256 for random): ",r : input "Enter green component(256 for random): ",g : input "Enter blue component(256 for random): ",b : input "Enter camera distance: ",d : if file exist("C:my documentsscreensaver.ini") = 1 : delete file "C:my documentsscreensaver.ini" : endif : open to write 1,"C:my documentsscreensaver.ini" : write word 1,r : write word 1,g : write word 1,b : write long 1,d : close file 1 : end
screensaver:
hide mouse : if file exist("C:my documentsscreensaver.ini") = 1 : open to read 1,"C:my documentsscreensaver.ini" : read word 1,r : read word 1,g : read word 1,b
read long 1,dst : close file 1 : else : r = 0 : g = 256 : b = 256 : dst = 50 : endif : dim particles#(100,5) : autocam off : randomize timer() : for d = 1 to 100 : make object plain d,1,1 : if r = 256 : red = rnd(255) : else : red = r : endif : if g = 256 : grn = rnd(255) : else : grn = g : endif : if b = 256 : blu = rnd(255)
else : blu = b : endif : color object d,rgb(red,grn,blu) : next d : color backdrop 0 : move camera 0-dst : pitch camera up 15 : set ambient light 100 : do : if abs(mousemovex()) > 0 or abs(mousemovey()) > 0 : exit : endif : if inkey$() = "s" : goto settings : endif : inc count : if count > 100 : count = 0 : endif : randomize timer() : for d = 1 to 100 : particles#(d,0) = particles#(d,0) + particles#(d,3) : particles#(d,1) = particles#(d,1) + particles#(d,4) : particles#(d,2) = particles#(d,2) + particles#(d,5)
roll object right d,20 : particles#(d,4) = particles#(d,4) - 0.01 : if particles#(d,1) < 0 and d = count : particles#(d,0) = 0 : particles#(d,1) = 0 : particles#(d,2) = 0 : t# = rnd(100) : particles#(d,3) = (t#-50)/100 : t# = rnd(100) : particles#(d,5) = (t#-50)/100 : particles#(d,4) = 1-(abs(particles#(d,3))+abs(particles#(d,5))) : endif : position object d,particles#(d,0),particles#(d,1),particles#(d,2) : next d : sync : loop