'------------------
'script written by Jannie Hansman
'created the 15-12-2001
'please leave these lines in
'there is a lot of work in this one
'------------------

x=0
y=0
tab1.background=tabb1.src
tab2.background=tabb2.src
Sub Window_Onload()
SetTimeOut "start", 10000
SetInterval "snow",64
End Sub

Sub snow()
x=0
y=y+1
tab1.style.backgroundposition=x&" "&y
tab2.style.backgroundposition=x&" "&y
End Sub

Sub start()
ClearTimeOut
pic1.filters(0).Apply()
pic1.filters(0).transition=3
pic1.style.visibility="hidden"
pic1.filters(0).Play(5.000)
pic2.filters(0).Apply()
pic2.filters(0).transition=3
pic2.style.visibility="visible"
pic2.filters(0).Play(8.000)
pic3.filters(0).Apply()
pic3.filters(0).transition=3
pic3.style.visibility="hidden"
pic3.filters(0).Play(5.000)
pic4.filters(0).Apply()
pic4.filters(0).transition=3
pic4.style.visibility="visible"
pic4.filters(0).Play(8.000)
SetTimeOut "change", 15000
End Sub

Sub change()
ClearTimeOut
pic1.filters(0).Apply()
pic1.filters(0).transition=3
pic1.style.visibility="visible"
pic1.filters(0).Play(8.000)
pic2.filters(0).Apply()
pic2.filters(0).transition=3
pic2.style.visibility="hidden"
pic2.filters(0).Play(5.000)
pic3.filters(0).Apply()
pic3.filters(0).transition=3
pic3.style.visibility="visible"
pic3.filters(0).Play(8.000)
pic4.filters(0).Apply()
pic4.filters(0).transition=3
pic4.style.visibility="hidden"
pic4.filters(0).Play(5.000)
SetTimeOut "start", 15000
End Sub