'---------------------------------
'script written by Annem@rie
'http://www.annemaries.net/
'Please don't remove these lines
'oktober 2004
'--------------------------------
window.status="MeuSonho HomePage"
Dim scw,sch,th,th1

x=0
y=0
z=0

Sub Window_OnLoad()
scw=document.body.clientWidth
sch=document.body.clientHeight
ClearTimeOut(th)
th=SetInterval("scroll", 60)
ClearTimeOut(th1)
th1=SetTimeOut ("gaan",800)
End Sub

Sub gaan()
ClearTimeOut
pic.filters(0).Apply()
pic.filters(0).Spokes=13
pic.filters(0).Duration=6.000
pic.style.visibility="visible"
pic.filters(0).Play()
SetTimeOut"gaan2", 12000
End Sub
Sub gaan2()
ClearTimeOut
pic.filters(0).Apply()
pic.filters(0).Spokes=13
pic.filters(0).Duration=6.000
pic.style.visibility="hidden"
pic.filters(0).Play()
SetTimeOut"gaan", 7000
End sub

sub scroll()
x=x-1
y=y+1
z=z
document.body.style.backgroundPosition=z&" "&x
end Sub

Sub Window_onresize()
window.location.reload()
End Sub