Sorry your browser is not supported!

rem ScreenSaver1
rem By BiggAdd

sync on
sync rate 60
r#=240
r2#=240
do
Circle 320,240,r# : r#=r#-30
if r#<0 : r2#=r2#+0.5:r#=r2#:ink RGB(RND(255),0,0),0:endif

Circle 320,240,r# : r#=r#-30
if r#<0 : r2#=r2#+0.5 : r#=r2# : ink RGB(0,RND(255),0),0 : endif

Circle 320,240,r# : r#=r#-30
if r#<0 : r2#=r2#+0.5 : r#=r2# : ink RGB(0,0,RND(255)),0 : endif

sync
loop

rem Screen Saver 2
rem By BiggAdd


r#=520
c#=255
c2#=1
Hide mouse
Do
if c2#=1 then ink RGB(0,0,c#),0
if c2#=2 then ink RGB(0,c#,0),0
if c2#=3 then ink RGB(c#,0,0),0
if c2#=4 then ink RGB(c#,c#,c#),0
c#=c#-10
if r#<0 then gosub start
Circle 320,240,r#
r#=r#-1
loop
start:
Wait 1000 : r#=520 : c2#=c2#+1 : if c2#>4 then c2#=1
c#=255
return

Rem Screensaver3
Rem By BiggAdd

r#=10 : r2#=20 : c#=255 : x#=320 : y#=240 : time#=0

Rem Use this to change the colour
REM 1= Red    2=Green  3=Blue
colour#=1

Rem use this to change the speed
speed#=12


Do
Randomize timer()
If colour#=1 then ink Rgb(255,c#,c#),0
If colour#=2 then ink Rgb(c#,255,c#),0
If colour#=3 then ink Rgb(c#,c#,255),0
Circle  X#,y#,r#

y#=y#+rnd(speed#)
x#=x#+rnd(speed#)

y#=y#-rnd(speed#)
x#=x#-rnd(speed#)

If x#<0 then x#=0
If x#>640 then x#=640

If y#<0 then y#=0
If y#>480 then y#=480

r#=r#-1 : c#=c#-2 : time#=time#+1 : if time#>5000 : cls : time#=0 : endif :
if r#<0 then r#=10
loop

Rem Created by BiggAdd

Rem ***** Main Source File *****

sync on : sync rate 0

make object sphere 1,100 : position object 1,5000,140.855,5000 : autocam off

backdrop on
color backdrop 0

dom#=10 : wait#=10 : y2#=0

do

randomize timer()

y#=object angle Y(1) : yrotate object 1,wrapvalue(y#+1)





 inc y2#,5 : position object 1,object position X(1),y2#,object position Z(1) : move object 1,2 : set camera to follow object position X(1),object position Y(1),Object position Z(1),0,1000,200,200,0


if wait#=0
make object box dom#,77,100,15 : position object dom#,object position X(1),y2#,object position Z(1) : yrotate object dom#,y# : xrotate object dom#,60 : move object dom#,-50 : color object dom#,RGB(rnd(255),rnd(255),rnd(255)) : dom#=dom#+1 : wait#=10
endif




dec wait#
if wait#<0 then wait#=0

sync
loop