<SCRIPT language
= "vbscript"><!--
'Declare variables
TimerID = null
nextStep = 0
i = 1
C = 0
F = 5
speed=75
nextone = 50
outspeed = 250
fadespeed = 75
tik = 0
Speed2=3000
picfade = 10000
colors1 = Array(1,2,3,4,5,6)
colors1(0)="#000000"
colors1(1)="#333333"
colors1(2)="#666666"
colors1(3)="#999999"
colors1(4)="#CCCCCC"
colors1(5)="#FFFFFF"
colors2 = Array(1,2,3,4,5,6)
colors2(0)="#000000"
colors2(1)="#333300"
colors2(2)="#665500"
colors2(3)="#997700"
colors2(4)="#CC9900"
colors2(5)="#FFCC00"
colors3 = Array(1,2,3,4,5,6)
colors3(0)="#000000"
colors3(1)="#332200"
colors3(2)="#663300"
colors3(3)="#994400"
colors3(4)="#CC5500"
colors3(5)="#FF6600"
colors4 = Array(1,2,3,4,5,6)
colors4(0)="#000000"
colors4(1)="#330010"
colors4(2)="#550019"
colors4(3)="#770020"
colors4(4)="#990028"
colors4(5)="#CC0033"
colors5 = Array(1,2,3,4,5,6)
colors5(0)="#000000"
colors5(1)="#222222"
colors5(2)="#333311"
colors5(3)="#444455"
colors5(4)="#555577"
colors5(5)="#666699"
colors6 = Array(1,2,3,4,5,6)
colors6(0)="#000000"
colors6(1)="#101133"
colors6(2)="#193355"
colors6(3)="#205577"
colors6(4)="#287799"
colors6(5)="#3399CC"
colors7 = Array(1,2,3,4,5,6)
colors7(0)="#000000"
colors7(1)="#001110"
colors7(2)="#003319"
colors7(3)="#005520"
colors7(4)="#007728"
colors7(5)="#009933"
'Start her up
Sub window_onload()
dispText1
shade.style.visibility = "visible"
logo.style.visibility = "hidden"
end sub
sub TDbl_oncomplete()
end sub
|
Sub dispText1
If C < 6 Then
text1.style.color = colors1(C)
text1.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText1",speed)
Else
C = 0
TimerID =
setTimeout("dispText2",nextone)
end if
end sub
Sub dispText2
If C < 6 Then
text2.style.color = colors2(C)
text2.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText2",speed)
Else
C = 0
TimerID =
setTimeout("dispText3",nextone)
end if
end sub
Sub dispText3
If C < 6 Then
text3.style.color = colors3(C)
text3.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText3",speed)
Else
C = 0
TimerID =
setTimeout("dispText4",nextone)
end if
end sub
Sub dispText4
If C < 6 Then
text4.style.color = colors6(C)
text4.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText4",speed)
'fadeout the first one
text1.style.color = colors1(F)
F = F - 1
Else
text1.style.visibility = "hidden"
C = 0
F = 5
TimerID =
setTimeout("dispText5",nextone)
End If
end sub
Sub dispText5
If C < 6 Then
text5.style.color = colors4(C)
text5.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText5",speed)
'fadeout the second one
text2.style.color = colors2(F)
F = F - 1
Else
text2.style.visibility = "hidden"
C = 0
F = 5
TimerID =
setTimeout("dispText6",nextone)
End If
|
end sub
Sub dispText6
If C < 6 Then
text6.style.color = colors5(C)
text6.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText6",speed)
'fadeout the third one
text3.style.color = colors1(F)
F = F - 1
Else
text3.style.visibility = "hidden"
F = 5
C = 0
TimerID =
setTimeout("dispText7",nextone)
End If
end sub
Sub dispText7
If C < 6 Then
text7.style.color = colors7(C)
text7.style.visibility = "visible"
C = C + 1
TimerID = setTimeout("dispText7",speed)
'fadeout the fourth one
text4.style.color = colors1(F)
F = F - 1
Else
text4.style.visibility = "hidden"
C = 5
TimerID =
setTimeout("Fadeout",outspeed)
End If
end sub
sub Fadeout
If C > -1 Then
text5.style.color = colors1(C)
text6.style.color = colors2(C)
text7.style.color = colors3(C)
C = C - 1
TimerID =
setTimeout("Fadeout",fadespeed)
Else
Call TImage1()
text5.style.visibility = "hidden"
text6.style.visibility = "hidden"
text7.style.visibility = "hidden"
end if
end sub
Sub TImage1()
opdiss.stopPainting(TDbl)
TDbl.Item.Transition=12
logo.style.visibility = "visible"
shade.style.visibility = "hidden"
opdiss.startPainting(Speed2)
End Sub
</script> |
