'---------------------------
'Script written by Annem@rie
'http://www.annemaries.nl/
'maart 2007
'please leave these lines in
'---------------------------

option explicit
setLocale("en-gb")

dim docw,doch,a,n,e,gap,sp,sp1,sp2,th1,R

'--------------------gebruikersinstellingen-----------------------------------------

                              
window.status=" *** MeuSonho Músicas *** "

'ruimte om lijnen
sp=25

'breedte dunne zij-lijnen
sp1=5

'breedte brede zij-lijnen
sp2=15

'--------------------------einde gebruikersinstellingen-------------------------------

a=0
n=0
e=0

R=0

sub window_onLoad()
l2.style.backgroundImage="URL("&lijn1.src&")"
l4.style.backgroundImage="URL("&lijn1.src&")"
l6.style.backgroundImage="URL("&lijn1.src&")"
l7.style.backgroundImage="URL("&lijn1.src&")"
l9.style.backgroundImage="URL("&lijn1.src&")"
l11.style.backgroundImage="URL("&lijn1.src&")"
box.src=frame.src
ClearInterval(th1)
th1=SetInterval ("rotation" ,50)
size_and_position
end sub

sub size_and_position()
On Error Resume Next
docw=document.body.clientWidth
doch=document.body.clientHeight
if doch>(pic.height+sp1*2) then
gap=(doch-(pic.height+sp1*2))/2
document.body.scroll="no"
else
gap=sp
document.body.scroll="yes"
end if
but1.style.left=docw/2+pic.width/2-100
but1.style.top=gap
but1.style.width=100
but1.style.height=30
but2.style.left=docw/2+pic.width/2-100
but2.style.top=gap
but2.style.width=100
but2.style.height=30
txt.style.top=gap+sp1+sp/2
txt.style.left=(docw-pic.width)/2+sp/2
txt.style.height=pic.height-sp
txt.style.width=pic.width-sp
pic.style.top=gap+sp1
pic.style.left=(docw-pic.width)/2
pic.style.height=pic.height
pic.style.width=pic.width 
pic1.style.top=gap+80
pic1.style.left=(docw-pic.width)/2+50
pic1.style.height=150
pic1.style.width=100
l1.style.top=gap
l1.style.left=(docw-(pic.width+sp1*8+sp2*6))/2
l1.style.height=pic.height+sp1*2
l1.style.width=pic.width+sp1*8+sp2*6
l2.style.top=gap+sp1
l2.style.left=(docw-pic.width)/2-(sp2+sp1)
l2.style.height=pic.height
l2.style.width=sp2
l3.style.top=gap+sp1
l3.style.left=(docw-pic.width)/2-(sp2+sp1*2)
l3.style.height=pic.height
l3.style.width=sp1
l4.style.top=gap+sp1
l4.style.left=(docw-pic.width)/2-(sp2*2+sp1*2)
l4.style.height=pic.height
l4.style.width=sp2
l5.style.top=gap+sp1
l5.style.left=(docw-pic.width)/2-(sp2*2+sp1*3)
l5.style.height=pic.height
l5.style.width=sp1
l6.style.top=gap+sp1
l6.style.left=(docw-pic.width)/2-(sp2*3+sp1*3)
l6.style.height=pic.height
l6.style.width=sp2
l7.style.top=gap+sp1
l7.style.left=(docw+pic.width+sp1*2)/2
l7.style.height=pic.height
l7.style.width=sp2
l8.style.top=gap+sp1
l8.style.left=(docw+pic.width+sp1*2)/2+sp2
l8.style.height=pic.height
l8.style.width=sp1
l9.style.top=gap+sp1
l9.style.left=(docw+pic.width+sp1*2)/2+(sp2+sp1)
l9.style.height=pic.height
l9.style.width=sp2
l10.style.top=gap+sp1
l10.style.left=(docw+pic.width+sp1*2)/2+(sp2*2+sp1)
l10.style.height=pic.height
l10.style.width=sp1
l11.style.top=gap+sp1
l11.style.left=(docw+pic.width+sp1*2)/2+(sp2*2+sp1*2)
l11.style.height=pic.height
l11.style.width=sp2
faux.style.top=pic.height+sp1*2+sp
faux.style.left=sp
faux.style.height=sp
faux.style.width=docw
end sub

sub rotation()
cleartimeout(th1)
if R=360 then R=0
R=R+2
pic1.rotation=R
th1=SetTimeOut ("rotation", 50)
end sub

window.setTimeout "show", 500

sub show()
but2.style.visibility="visible"
end sub

sub but2_onclick()
txt.style.visibility="visible"
but1.style.visibility="visible"
but2.style.visibility="hidden"
end sub

sub but1_onclick()
txt.style.visibility="hidden"
but1.style.visibility="hidden"
but2.style.visibility="visible"
end sub

window.setInterval "scrollit",64

sub scrollit()
a=a+1
n=n-1
e=e
l2.style.backgroundPosition=n&" "&n
l4.style.backgroundPosition=n&" "&n
l6.style.backgroundPosition=n&" "&n
l7.style.backgroundPosition=a&" "&n
l9.style.backgroundPosition=a&" "&n
l11.style.backgroundPosition=a&" "&n
end sub

sub window_onresize()
size_and_position
end sub