<script language=VBScript>
'---------------------------
'Script written by Annem@rie
'http://www.annemaries.nl/
'januari 2007
'please leave these lines in
'---------------------------
Option Explicit
SetLocale("en-gb")
Dim a,n,direct,tm,maxtm
REM text statusbar
window.status="tutorial -sharifa- by L&K, tube Yoka, stationery & script by Annem@rie"
REM amount of time before scroll direction changes
maxtm=75
Const dirDownR=0
Const dirDownL=1
Const dirUpL=2
Const dirUpR=3
a=0
n=0
tm=0
direct=dirDownR
sub window_Onload()
tab1.style.backgroundImage="url("&pic.src&")"
window.setTimeout "kom1", 1000
end sub
sub kom1()
pic.filters(0).Apply()
pic.style.visibility="visible"
pic.filters(0).Play(8)
window.setTimeout "kom2", 9500
end sub
sub kom2()
pic.filters(1).Apply()
pic.filters(1).spokes=2
pic.style.visibility="hidden"
pic.filters(1).Play(8)
window.setTimeout "kom1", 9500
end sub
window.setTimeout "scrollit", 9000
sub scrollit()
window.setInterval "scroll", 64
end sub
sub scroll()
select case direct
case dirDownR
a=a+1
n=n+1
tm=tm+1
if tm>=maxtm then
tm=0
direct=dirDownL
end if
case dirDownL
a=a-1
n=n+1
tm=tm+1
if tm>=maxtm then
tm=0
direct=dirUpL
end if
case dirUpL
a=a-1
n=n-1
tm=tm+1
if tm>=maxtm then
tm=0
direct=dirUpR
end if
case dirUpR
a=a+1
n=n-1
tm=tm+1
if tm>=maxtm then
tm=0
direct=dirDownR
end if
case else
window.status="unexpected case value"
end select
document.body.style.backgroundPosition=a&" "&n
end sub
</script>
|