<script language="VBScript">
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'---------------------------------------------
'please leave all these lines in
'Script gemaakt door JettyM mei 2006
'www.molehofje.com
'Tekst tussen deze lijnen aub laten staan
'---------------------------------------------
'/////////////////////////////////////////////
Option Explicit
SetLocale("en-gb")
Dim doch, docw, pW, pH, bW, space, txtw, txth, txtl, txtt, LP, kW, kH, j, m, speed
j=0
m=0
pW=pic.width
pH=pic.height
bW=bkg.width
kW=knop1.width
kH=knop1.height
LP=space
'-------User Settings-------------
REM space between edge window en scrolling image
space=10
REM speed show textbox
speed=10
REM text statusbar
window.status=" ~~~ Script and stationery JettyM ~~~ "
REM width textbox
txtw=350
REM width textbox
txth=400
'------end of User Settings-------
sub window_Onload()
On Error Resume Next
doch=document.body.clientheight
docw=document.body.clientwidth
container.style.backgroundImage="URL("&bkg.src&")"
container.style.left=space
container.style.top=0
container.style.height=doch
container.style.width=bW
pic.style.left=(docw-pW)/2+(space+bW)/2
pic.style.top=(doch-pH)/2
txtt=doch
txtl=(docw-txtw)/2+(space+bW)/2
txt.style.left=txtl
txt.style.top=txtt
txt.style.width=txtw
txt.style.height=txth
txt.style.filter="alpha(opacity=80)"
txt.style.visibility="visible"
knop1.style.left=(docw-kW)/2+(space+bW)/2
knop1.style.top=doch-kH
knop1.style.width=kW
knop1.style.height=kH
knop1.style.visibility="visible"
knop2.style.left=(docw-kW)/2+(space+bW)/2
knop2.style.top=doch-kH
knop2.style.width=kW
knop2.style.height=kH
end sub
window.setinterval "scrollit", 64
sub scrollit()
j=j+1
container.style.backgroundPosition=m&" "&-j
end sub
sub showtext()
txtt=txtt-2
txt.style.top=txtt
txt.style.left=txtl
if txtt=<(doch-txth) then settimeout "halt", speed else settimeout "showtext", speed
knop1.style.visibility="hidden"
knop2.style.visibility="hidden"
end sub
sub halt()
knop2.style.visibility="visible"
end sub
sub hidetext()
txtt=txtt+2
txt.style.top=txtt
txt.style.left=txtl
if txtt=>doch then settimeout "halt2", speed else settimeout "hidetext", speed
knop1.style.visibility="hidden"
knop2.style.visibility="hidden"
end sub
sub halt2()
knop1.style.visibility="visible"
end sub
sub window_Onresize()
window_onload
end sub
</script> |