<script language=vbscript>
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'Script written by Annem@rie
'http://www.annemaries.nl/
'januari 2008
'please don't remove these lines!!!!
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
option explicit
SetLocale("en-gb")
Dim scw,sch,tbw,tbh,picw,pich,kw,kh
bg.style.filter="progid:DXImageTransform.Microsoft.Iris(duration=8, irisStyle=diamond, motion=in, enabled=l)"
knop1.style.filter="progid:DXImageTransform.Microsoft.Iris(duration=3, enabled=1, irisStyle=diamond, motion=out)"
pic.style.filter="progid:DXImageTransform.Microsoft.Iris(duration=3, enabled=1, irisStyle=diamond, motion=out)"
mess.style.filter="progid:DXImageTransform.Microsoft.Iris(duration=3, enabled=1, irisStyle=diamond, motion=out)alpha(opacity=75)"
picw=pic.offsetwidth
pich=pic.offsetheight
tbw=tb.offsetwidth
tbh=tb.offsetheight
kw=knop1.width
kh=knop1.height
Sub Window_OnLoad()
SetTimeout "kom1", 400
size_and_position
go
End Sub
sub size_and_position ()
scw=document.body.clientWidth
sch=document.body.clientHeight
l1.style.width=1
l1.style.height=tbh
l2.style.width=1
l2.style.height=tbh
l3.style.width=tbw
l3.style.height=1
l4.style.width=tbw
l4.style.height=1
knop1.style.left=picw/2-kw/2
knop1.style.top=pich+10
knop1.style.width=kw
knop1.style.height=kh
knop2.style.left=picw/2-kw/2
knop2.style.top=pich+10
knop2.style.width=kw
knop2.style.height=kh
end sub
sub kom1()
pic.filters(0).Apply()
pic.style.visibility="visible"
pic.filters(0).Play(5)
SetTimeOut "kom2", 5500
end sub
Sub kom2()
bg.filters(0).apply()
bg.style.backgroundImage="URL("&back.src&")"
bg.filters(0).play()
SetTimeOut "kom3", 5500
End Sub
sub kom3()
l1.filters(0).Apply()
l1.filters(0).transition=4
l1.style.visibility="visible"
l1.filters(0).Play(6.000)
l2.filters(0).Apply()
l2.filters(0).transition=5
l2.style.visibility="visible"
l2.filters(0).Play(6.000)
l3.filters(0).Apply()
l3.filters(0).transition=6
l3.style.visibility="visible"
l3.filters(0).Play(6.000)
l4.filters(0).Apply()
l4.filters(0).transition=7
l4.style.visibility="visible"
l4.filters(0).Play(6.000)
knop1.filters(0).Apply()
knop1.style.visibility="visible"
knop1.filters(0).Play(6.000)
end sub
Sub Go
End Sub
sub knop1_onclick()
mess.filters(0).Apply()
mess.style.visibility="visible"
mess.filters(0).Play(4)
knop2.style.visibility="visible"
knop1.style.visibility="hidden"
l1.filters(0).Apply()
l1.filters(0).transition=4
l1.style.visibility="hidden"
l1.filters(0).Play(6.000)
l2.filters(0).Apply()
l2.filters(0).transition=5
l2.style.visibility="hidden"
l2.filters(0).Play(6.000)
l3.filters(0).Apply()
l3.filters(0).transition=6
l3.style.visibility="hidden"
l3.filters(0).Play(6.000)
l4.filters(0).Apply()
l4.filters(0).transition=7
l4.style.visibility="hidden"
l4.filters(0).Play(6.000)
end sub
sub knop2_onclick()
mess.filters(0).Apply()
mess.style.visibility="hidden"
mess.filters(0).Play(4)
knop1.style.visibility="visible"
knop2.style.visibility="hidden"
l1.filters(0).Apply()
l1.filters(0).transition=4
l1.style.visibility="visible"
l1.filters(0).Play(6.000)
l2.filters(0).Apply()
l2.filters(0).transition=5
l2.style.visibility="visible"
l2.filters(0).Play(6.000)
l3.filters(0).Apply()
l3.filters(0).transition=6
l3.style.visibility="visible"
l3.filters(0).Play(6.000)
l4.filters(0).Apply()
l4.filters(0).transition=7
l4.style.visibility="visible"
l4.filters(0).Play(6.000)
end sub
sub window_onresize()
size_and_position
end sub
</script>
|