vbscript newbie with settimer problem

Hello I'm Epiphany

I started learning vbscript this week. I want to do fancy effects on my webpages. The script that I'm working on should darken the background. I want it to change colour every 5 seconds.

<script type="text/vbscript">
dim kolor(5)
kolor(0)="ffffff"
kolor(1)="cccccc"
kolor(2)="999999"
kolor(3)="666666"
kolor(4)="333333"
kolor(5)="000000"
function darken(x)
document.bgcolor=kolor(x)
end function
for w=0 to 5
call darken(w)
next
</script>

I have problems with slowing this script down. It happens so quickly, I can't see all the colours

I tried using settimer, but I'm doing something wrong. Can anyone help?

<script type="text/vbscript">
dim kolor(5)
kolor(0)="ffffff"
kolor(1)="cccccc"
kolor(2)="999999"
kolor(3)="666666"
kolor(4)="333333"
kolor(5)="000000"
function darken(x)
document.bgcolor=kolor(x)
end function
for w=0 to 5
timer1=settimer("darken(w)", 5000)
next
</script>

The above doesn't work.........what's a newbie to do?

Love and Peace, Epiphany

 

Yay, It Works

To Life Immortal

FatherMind, a friend I met on IRC gave me a clue. I worked on the script last night and finally came up with this:

<script type="text/vbscript">
option explicit
dim sKolor(5), nST, nTT, nX
sKolor(0)="ffffff"
sKolor(1)="cccccc"
sKolor(2)="999999"
sKolor(3)="666666"
sKolor(4)="333333"
sKolor(5)="000000"

for each nX in sKolor
document.bgcolor=nX
nST=Second(Now)
nTT=nST+5
if nTT>=60 then nTT=nTT-60
do
nST=Second(Now)
loop until nST>=nTT
next
</script>

I tested it and it works. I didn't need setTimer nor setInterval.
Thanks again, FatherMind; you're cool