Sorry your browser is not supported!

Rem * Title  : Terri
Rem * Author : Ronald Ajtaji
rem ===============================================
rem Screen Save by Ajtaji Software
rem ===============================================
rem This program is for my Wife
rem -----------------------------------------------
   `set window on
   sync rate 60:backdrop off:randomize timer():set display mode 800,600,16
   hide mouse:sync on
   set directional light 0,0,0,5:position light 0,0,0,-20
   color light 0,192,192,192:set light range 0,340
   set ambient light 10:block=1:mp=0:i=1
   rem Load music and images
   `load music "i_shot_the_sheriff_3.mid",1
   `load music "jammin.mid",2
   `load music "somuchtroubleintheworld.mid",3
   `load music "nowoman.mid",4
   `load music "sheriff.mid",5
   musikloaded=5:`This is how many songs you have loaded
   musik=3:`This is what song you wish to start with
   `load image "teresa.jpg",1
   `load image "image-02.jpg",2
   `load image "image-91.jpg",3
   `load image "image-127.jpg",4
   `load image "image-14.jpg",5
   `load image "image-16.jpg",6
   `load image "image-20.jpg",7
   `load image "image-43.jpg",8
   `load image "image-64.jpg",9
   `load image "image-69.jpg",10
   `load image "image-125.jpg",11
   `load image "image-126.jpg",12
   `load image "image-130.jpg",13
   `load image "image-173.jpg",14
   `load image "image-191.jpg",15
   `load image "image-192.jpg",16
   `load image "image-193.jpg",17
   `load image "image-194.jpg",18
   `load image "image-203.jpg",19
   `load image "image-205.jpg",20
   `load image "image-212.jpg",21
   `load image "image-226.jpg",22
   `load image "image-265.jpg",23
   imageloaded=23:`This is how many images you have loaded
   make object cube 201,-500:position object 201,0,0,150:`The room
   zz=1:px1=-15:py1=-2:pz1=10:px2=0:py2=-2:pz2=10:px3=15:py3=-2:pz3=10:`Object coordinates
   make object cube 1,8
   make object cube 2,8
   make object cube 3,8
   position camera 0,2,-20
rem load textures into video memory
   for texture=1 to imageloaded
   texture object 1,imageloaded
   next texture
   gosub positionobjects
rem Texture Object with image
   play music musik
   do
   c1=0:c2=0:c3=0
   gosub textureblocks
   gosub randomscroll
loop1:
   for cnt1=1 to 360
   gosub checkmusik
      gosub direction
rem Rotate Obj
      gosub rotateobjects
      gosub scroll
      sync
   next cnt1
   for cube=1 to 3
      gosub randomscroll
      gosub special
   next cube
loop
rem Scroll the background
scroll:
   x=x+b
   y=y+c
   rotate object 201,x,y,380
   return
rem Get random direction for background scroll
randomscroll:
   d=rnd(2)
   e=rnd(2)
   if d>1 then b=1 else b=-1
   if e>1 then c=1 else c=-1
   return
rem Texture the background and Blocks
textureblocks:
   texture object 201,block
   texture object 1,block
   texture object 2,block+1
   texture object 3,block+2
   `sync
   if block <21 then block=block+1 else block=1
   return
rem Check music and play a song if none is playing
checkmusik: `This subroutine will not funtion until mucic playing returns a proper result

   mp=0
   mp=music playing(musik)
   if music playing(musik)=0 then gosub playnextsong
   return
special:
   if cube=1 then gosub cube1
   if cube=2 then gosub cube2
   if cube=3 then gosub cube3
return
rem rotate the objects
rotateobjects:
   rotate object 1,object angle x(1)+direction,object angle y(1)+direction,object angle z(1)
   rotate object 2,object angle x(2)+direction,object angle y(2)+direction,object angle z(2)+direction
   rotate object 3,object angle x(3),object angle y(3)+direction,object angle z(3)+direction
   return
cube1:
rem for loopr=1 to 10
   gosub direction
   gosub rotateobjects
   gosub checkmusik
   gosub scroll
rem   next loopr
   z1=object position Z(1)
   if di=0 and z1<>0 then position object 1,object position x(1)+0.1,object position y(1),object position z(1)-0.1: c1=1 else c1=0
   sync
   if cnt=720 then cnt=1:di=2 else cnt=cnt+1
   if di<>2 then goto cube1 else di=0
cube1a:
   gosub scroll
   z1=object position z(1)
   if di=0 and z1<>pz1 then position object 1,object position x(1)-0.2,object position y(1),object position z(1)+0.2:c1=1 else c1=0:di=2
   gosub direction
   gosub rotateobjects
   gosub checkmusik
   sync
   if di<>2 then goto cube1a else di=0:c1=0
   return
cube2:
rem for loopr=1 to 10
   gosub direction
   gosub rotateobjects
   gosub checkmusik
   gosub scroll
rem   next loopr
   z1=object position Z(2)
   if di=0 and z1<>0 then position object 2,object position x(2),object position y(2),object position z(2)-0.1: c2=1 else c2=0
   sync
   if cnt=720 then cnt=1:di=2 else cnt=cnt+1
   if di<>2 then goto cube2 else di=0
cube2a:
   gosub scroll
   z1=object position z(2)
   if di=0 and z1<>pz2 then position object 2,object position x(2),object position y(2),object position z(2)+0.2:c2=1 else c2=0:di=2
   gosub direction
   gosub rotateobjects
   gosub checkmusik
   sync
   if di<>2 then goto cube2a else di=0:c2=0
   return
cube3:
rem for loopr=1 to 10
   gosub direction
   gosub rotateobjects
   gosub checkmusik
   gosub scroll
rem   next loopr
   z1=object position Z(3)
   if di=0 and z1<>0 then position object 3,object position x(3)-0.1,object position y(3),object position z(3)-0.1: c3=1 else c3=0
   sync
   if cnt=720 then cnt=1:di=2 else cnt=cnt+1
   if di<>2 then goto cube3 else di=0
cube3a:
   gosub scroll
   gosub checkmusik
   z1=object position z(3)
   if di=0 and z1<>pz3 then position object 3,object position x(3)+0.2,object position y(3),object position z(3)+0.2:c3=1 else c3=0:di=2
   gosub direction
   gosub rotateobjects
   sync
   if di<>2 then goto cube3a else di=0:c3=0
   return
playnextsong:
   if musik<musikloaded then musik=musik+1 else musik=1
   play music musik
   return
positionobjects:
   position object 1,px1,py1,pz1
   position object 2,px2,py2,pz2
   position object 3,px3,py3,pz3
   return
assigni:
   x1=i : y1=i : z1=i
   x2=i : y2=i : z2=i
   x3=i : y3=i : z3=i
   return
direction:
   if i=360 or i>360 then direction=-1 else if i=1 or i<0 then direction=1
   i=i+direction
   gosub assigni
return