<SCRIPT language="vbscript">
'------------------------------------------
'please leave all these lines in
'script by JettyM
'www.molehofje.com
'tekst tussen deze lijnen laten staan a.u.b.
'------------------------------------------
Dim doch, docw, moverH, moverW, spacerH, posL, posT, posK, dx, txtw, j, m
j=0
m=0
moverH=mover.height
moverW=mover.width
dx=3
'-------User Settings---------
REM border width of containers
b=2
REM width textbox
txtw=300
REM text statusbar
window.status=" ~~~ Script & stationery JettyM ~~~ "
'------end of User Settings-------
sub window_onload()
On Error Resume Next
doch=document.body.clientheight
docw=document.body.clientwidth
spacerH=(docw-(moverW+txtw))/3
posT=(doch-moverH+b*2)/2
posL=docw
mover.style.left=posL
mover.style.top=posT
container.style.left=0
container.style.top=(doch-moverH)/2
container.style.height=moverH+b*2
container.style.width=docw
container2.style.left=spacerH*2+moverW
container2.style.top=0
container2.style.height=doch
container2.style.width=txtw
txt.style.top=(doch-moverH+b*2)/2
txt.style.left=spacerH*2+moverW+b
txt.style.width=txtw-b*2
txt.style.height=moverH
showme
end sub
sub showme()
container.filters(0).Apply()
container.filters(0).transition=6
container.style.visibility="visible"
container.filters(0).Play(3)
window.setTimeout "show2", 2500
end sub
sub show2()
container2.filters(0).Apply()
container2.filters(0).transition=5
container2.style.visibility="visible"
container2.filters(0).Play(2)
window.setTimeout "moveIt" , 2000
end sub
sub moveIt()
posL=posL-dx
if posL<=spacerH then setTimeout "showtxt", 1 else setTimeout "moveIt", 1
mover.style.left=posL
end sub
sub showtxt()
txt.filters(0).Apply()
txt.style.visibility="visible"
txt.filters(0).Play(4)
window.setTimeout "scroll", 4000
end sub
sub scroll()
window.setInterval "scrollit", 64
end sub
sub scrollit()
j=j+1
document.body.style.backgroundPosition=-j&" "&j
end sub
sub window_onresize()
window.location.reload()
end sub
</SCRIPT> |