'----------------------------
'script written by Annem@rie
'www.annemaries.nl/
'juni 2005
'Thanks to ScriptCrafters
'----------------------------

Option Explicit
SetLocale("en-gb")

window.status=" *** MeuSonho Músicas *** "  

Dim f4,f6,f7,f9,f10,f12,f14,f16,f17,f18,f19,f21,f22
Dim copytxt,copy4,copy6,copy7,copy9,copy10,copy12,copy14,copy16,copy17,copy18,copy19,copy21,copy22

copytxt="Copyright MetaCreations Corp. 1998.  Unauthorized duplication of this string is illegal. "

f4="progid:DXImageTransform.MetaCreations.Curls (duration=4)"
copy4="{AA0D4D0E-06A3-11D2-8F98-00C04FB92EB7}" 
f6="progid:DXImageTransform.MetaCreations.FadeWhite(duration=4)"
copy6="{107045CC-06E0-11D2-8D6D-00C04F8EF8E0}" 
f7="progid:DXImageTransform.MetaCreations.FlowMotion(duration=4)"
copy7="{2A54C90B-07AA-11D2-8D6D-00C04F8EF8E0}" 
f9="progid:DXImageTransform.MetaCreations.Grid(duration=4)"
copy9="{2A54C911-07AA-11D2-8D6D-00C04F8EF8E0}" 
f10="progid:DXImageTransform.MetaCreations.Jaws(duration=4)"
copy10="{2A54C904-07AA-11D2-8D6D-00C04F8EF8E0}" 
f12="progid:DXImageTransform.MetaCreations.Liquid(duration=4)"
copy12="{AA0D4D0A-06A3-11D2-8F98-00C04FB92EB7}" 
f14="progid:DXImageTransform.MetaCreations.PageCurl(duration=4)"
copy14="{AA0D4D08-06A3-11D2-8F98-00C04FB92EB7}"
f16="progid:DXImageTransform.MetaCreations.Ripple(duration=4)"
copy16="{AA0D4D03-06A3-11D2-8F98-00C04FB92EB7}"
f17="progid:DXImageTransform.MetaCreations.RollDown(duration=4)"
copy17="{9C61F46E-0530-11D2-8F98-00C04FB92EB7}"
f18="progid:DXImageTransform.MetaCreations.Threshold(duration=4)"
copy18="{2A54C915-07AA-11D2-8D6D-00C04F8EF8E0}"
f19="progid:DXImageTransform.MetaCreations.Twister(duration=4)"
copy19="{107045CF-06E0-11D2-8D6D-00C04F8EF8E0}"
f21="progid:DXImageTransform.MetaCreations.Water(duration=4)"
copy21="{107045C5-06E0-11D2-8D6D-00C04F8EF8E0}"
f22="progid:DXImageTransform.MetaCreations.Wormhole(duration=4)"
copy22="{0E6AE022-0C83-11D2-8CD4-00104BC75D9A}"

sub window_onload()
d1.style.backgroundImage="url("&pic1.src&")"
tab.style.backgroundImage="url("&bg1.src&")"
window.setTimeout "fade1", 4000
end sub

sub fade1()
d1.style.filter=f19
d1.filters(0).Copyright=copytxt&copy19
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic2.src&")"
d1.filters(0).Play()
tab.style.filter=f19
tab.filters(0).Copyright=copytxt&copy19
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg2.src&")"
tab.filters(0).Play()
window.setTimeout "fade2", 8000
end sub 

sub fade2()
d1.style.filter=f4
d1.filters(0).Copyright=copytxt&copy4
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic1.src&")"
d1.filters(0).Play()
tab.style.filter=f6
tab.filters(0).Copyright=copytxt&copy6
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg1.src&")"
tab.filters(0).Play()
window.setTimeout "fade3", 8000
end sub  

sub fade3()
d1.style.filter=f7
d1.filters(0).Copyright=copytxt&copy7
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic2.src&")"
d1.filters(0).Play()
tab.style.filter=f9
tab.filters(0).Copyright=copytxt&copy9
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg2.src&")"
tab.filters(0).Play()
window.setTimeout "fade4", 8000
end sub 

sub fade4()
d1.style.filter=f10
d1.filters(0).Copyright=copytxt&copy10
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic1.src&")"
d1.filters(0).Play()
tab.style.filter=f12
tab.filters(0).Copyright=copytxt&copy12
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg1.src&")"
tab.filters(0).Play()
window.setTimeout "fade5", 8000
end sub 

sub fade5()
d1.style.filter=f16
d1.filters(0).Copyright=copytxt&copy16
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic2.src&")"
d1.filters(0).Play()
tab.style.filter=f18
tab.filters(0).Copyright=copytxt&copy18
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg2.src&")"
tab.filters(0).Play()
window.setTimeout "fade6", 8000
end sub 

sub fade6()
d1.style.filter=f22
d1.filters(0).Copyright=copytxt&copy22
d1.filters(0).Apply()
d1.style.backgroundImage="url("&pic1.src&")"
d1.filters(0).Play()
tab.style.filter=f21
tab.filters(0).Copyright=copytxt&copy21
tab.filters(0).Apply()
tab.style.backgroundImage="url("&bg1.src&")"
tab.filters(0).Play()
window.setTimeout "fade1", 8000
end sub