'---------------------------
'Script written by Jannie
'14-12-2001
'Please leave these lines in
'CAS theme
'Table changes added by Linda aka Country Hearts 16-12-2001
'---------------------------

y=0
x=0
tab.background=tab1.src
Sub Window_Onload()
window.status="   Feliz Natal!   ~   MeuSonho   "
tbl1.style.backgroundImage="URL("&tbl_back1.src&")"
tbl2.style.backgroundImage="URL("&tbl_back1.src&")"
tbl3.style.backgroundImage="URL("&tbl_back1.src&")"
SetTimeOut "start", 15000
SetInterval "scrollsnow",64
End Sub

'-----------------
'scroll for the snow
'-----------------
Sub scrollsnow()
y=0
x=x+1
tab.style.backgroundposition=y&" "&x
End Sub

'----------------
'transition of the images
'----------------

Sub start()
ClearTimeOut
pic.filters(0).Apply()
pic.filters(0).transition=10
pic.style.visibility="hidden"
pic.filters(0).Play(4.000)
pic2.filters(0).Apply()
pic2.filters(0).transition=3
pic2.style.visibility="visible"
pic2.filters(0).Play(8.000)
SetTimeOut "change1",15000
End Sub

Sub change1()
ClearTimeOut
pic2.filters(0).Apply()
pic2.filters(0).transition=11
pic2.style.visibility="hidden"
pic2.filters(0).Play(4.000)
pic3.filters(0).Apply()
pic3.filters(0).transition=2
pic3.style.visibility="visible"
pic3.filters(0).Play(8.000)
SetTimeOut "change2",15000
End Sub

Sub change2()
ClearTimeOut
pic3.filters(0).Apply()
pic3.filters(0).transition=11
pic3.style.visibility="hidden"
pic3.filters(0).Play(4.000)
pic4.filters(0).Apply()
pic4.filters(0).transition=1
pic4.style.visibility="visible"
pic4.filters(0).Play(8.000)
SetTimeOut "change3",15000
End Sub

Sub change3()
ClearTimeOut
pic4.filters(0).Apply()
pic4.filters(0).transition=10
pic4.style.visibility="hidden"
pic4.filters(0).Play(4.000)
pic.filters(0).Apply()
pic.filters(0).transition=3
pic.style.visibility="visible"
pic.filters(0).Play(8.000)
SetTimeOut "start",15000
End Sub