'--------------------------
'Script written by Annem@rie
'http://www.annemaries.net/
'februari 2005 
'please leave these lines in
'---------------------------
Window.status="Feliz Dia das Mães!"

Dim scw,sch,th,th2,pic2h,pic2w,pic2posh,pic2posw,th3,pic3h,pic3w,pic3posh,pic3posw

a=0
n=0
e=0

pic1w=518
pic1h=418
pic2h=74
pic2w=74
pic3h=74
pic3w=74
tekstw=518
teksth=418

Sub Window_Onload()
sch=document.body.clientheight
scw=document.body.clientwidth
document.body.style.overflowX="hidden"
randl.style.backgroundImage="URL("&links.src&")"
randr.style.backgroundImage="URL("&rechts.src&")"
randla.style.backgroundImage="URL("&glit.src&")"
randra.style.backgroundImage="URL("&glit.src&")"
randl.style.visibility="hidden"
randr.style.visibility="hidden"
randla.style.visibility="hidden"
randra.style.visibility="hidden"
tekst.style.postop=sch/2-teksth/2
tekst.style.posleft=scw/2-tekstw/2
tekst.style.filter="alpha(opacity=75)"
pic1.style.top=(sch/2)-(pic1h/2)
pic1.style.left=(scw/2)-(pic1w/2)
pic2posh=sch/2-pic2h/2
pic2posw=scw/2-200
pic2.style.postop=pic2posh
pic2.style.posleft=pic2posw
pic3posh=sch/2-pic3h/2
pic3posw=scw/2-200
pic3.style.postop=pic3posh
pic3.style.posleft=pic3posw
Settimeout"kom",300
ClearTimeOut
Cleartimeout (th2)
th2=Settimeout("move2",8500)
Cleartimeout (th3)
th3=Settimeout("move3",8500)
End Sub

Sub move2()
ClearTimeOut(th2)
pic2.style.visibility="visible"
pic2posh=sch/2-pic2h/2
pic2posw=pic2posw+2.5
pic2.style.postop=pic2posh
pic2.style.posleft=pic2posw
pic2.style.filter="fliph (enabled=0)"
if pic2posw=>(scw/2)+185 then  th2=SetTimeOut ("back2",30) else th2=SetTimeOut ("move2",30)
End Sub
Sub back2()
ClearTimeOut(th2)
pic2posh=sch/2-pic2h/2
pic2posw=pic2posw-2.5
pic2.style.postop=pic2posh
pic2.style.posleft=pic2posw
pic2.style.filter="fliph (enabled=1)"
if pic2posw=<(scw/2)-250 then th2=SetTimeOut ("move2",30) else th2=SetTimeOut ("back2",30)
End Sub
Sub move3()
ClearTimeOut(th3)
pic3.style.visibility="visible"
pic3posh=pic3posh-2.5
pic3posw=scw/2-200
pic3.style.postop=pic3posh
pic3.style.posleft=pic3posw
pic3.style.filter="fliph (enabled=0)"
if pic3posh=<sch/2-200 then th3=SetTimeOut ("back3",30) else th3=SetTimeOut ("move3",30)
End Sub
Sub back3()
ClearTimeOut(th3)
pic3posh=pic3posh+2.5
pic3posw=scw/2-200
pic3.style.postop=pic3posh
pic3.style.posleft=pic3posw
pic3.style.filter="fliph (enabled=1)"
if pic3posh=>sch/2+133 then th3=SetTimeOut ("move3",30) else th3=SetTimeOut ("back3",30)
End Sub

sub kom()
cleartimeout
pic1.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=cross,motion=in)"
pic1.filters(0).apply()
pic1.style.visibility="visible"
pic1.filters(0).duration=6.000
pic1.filters(0).play
randl.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=cross,motion=out)"
randl.filters(0).apply()
randl.style.visibility="visible"
randl.filters(0).duration=6.000
randl.filters(0).play
randr.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=cross,motion=out)"
randr.filters(0).apply()
randr.style.visibility="visible"
randr.filters(0).duration=6.000
randr.filters(0).play
randla.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=cross,motion=in)"
randla.filters(0).apply()
randla.style.visibility="visible"
randla.filters(0).duration=6.000
randla.filters(0).play
randra.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=cross,motion=in)"
randra.filters(0).apply()
randra.style.visibility="visible"
randra.filters(0).duration=6.000
randra.filters(0).play
Settimeout"starts",8500
Settimeout"verder",8500
end sub

Sub verder()
Cleartimeout(th)			 
Setinterval "scroll",64
End Sub

Sub starts()
settimeout"verdwijn",10000
End Sub

Sub verdwijn()
cleartimeout
pic1.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=diamond,motion=in)"
pic1.filters(0).apply()
pic1.style.visibility="hidden"
tekst.style.visibility="visible"
pic1.filters(0).play(6.000)
settimeout"verschijn",12000
end sub
Sub verschijn()
cleartimeout
pic1.style.filter="progid:DXImageTransform.Microsoft.Iris(irisstyle=damond,motion=out)"
pic1.filters(0).apply()
pic1.style.visibility="visible"
tekst.style.visibility="hidden"
pic1.filters(0).play(6.000)
settimeout"verdwijn",16000
end sub

Sub scroll()
a=a+1
n=n-1
e=e
randl.style.backgroundPosition=e&" "&n
randr.style.backgroundPosition=e&" "&n

End Sub

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