'-------------------
'script written by Jannie Hansman
'created 23-12-2001
'please leave these lines in
'-------------------

x=0
y=0
m=0
n=0
o=0
p=0
r=0
s=0
t=0
u=0

tab.background=picl1.src
tab1.background=pic1.src
tab2.background=pic2.src
tab3.background=pic3.src
tab4.background=pic4.src
tab5.background=pic5.src

Dim sch, scw, messw, messh, intervalhandle, intervalhandle1, intervalhandle2, intervalhandle3, intervalhandle4
Sub Window_Onload()
scw=document.body.clientWidth
sch=document.body.clientHeight
messw=390
messh=150
mess.style.postop=540
mess.style.posleft=(scw/2)-(messw/2)
Clearinterval (intervalhandle)
Clearinterval (intervalhandle1)
Clearinterval (intervalhandle2)
Clearinterval (intervalhandle3)
Clearinterval (intervalhandle4)
intervalhandle=SetInterval ("scrollsnow", 64)
intervalhandle1=SetInterval ("scrolltable", 64)
intervalhandle2=SetInterval ("scrolltable1", 64)
intervalhandle3=SetInterval ("scrolltable2", 64)
intervalhandle4=SetInterval ("scrollstar",64)
End Sub

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

'----------------
'scroll for the star and left top image
'----------------
Sub scrollstar()
o=o+1
p=p+1
tab.style.backgroundposition=o&" "&p
tab2.style.backgroundposition=o&" "&p
End Sub

'---------------
'scroll for the left bottom top image
'---------------
Sub scrolltable1()
r=r+1
s=s-1
document.body.style.backgroundPosition=r&" "&s
tab3.style.backgroundposition=r&" "&s
End Sub

'---------------
'scroll for the right top image
'---------------
Sub scrolltable2()
t=t-1
u=u+1
tab4.style.backgroundposition=t&" "&u
End Sub

'---------------
'scroll for the right bottom image
'---------------
Sub scrolltable()
m=m-1
n=n-1
tab5.style.backgroundposition=m&" "&n
End Sub

Sub Window_Onresize()
window_onload
End Sub