"Guacira In Concert"
contribuição de OVNI
Credits:
° image: "Sideral"
- pastel on paper by Guacira Sampaio Rocha
° photo: "Horizonte" (found for free in the net)
° mid: "aranjuez_mon_amour" (found for free, in the
net)
° script author: Edgar
V. Poirier
° prepared, commented and posted (as it
is in this page) by: Angela e OVNI
1) Após "<head>
</head>" coloque:
"<body
bgcolor="#4C4849" text="ffcc66">
<STYLE type=text/css>BODY {
BACKGROUND-COLOR: #4c4849; COLOR: #ffcc66; FONT-FAMILY: "Comic
Sans MS"; FONT-SIZE: 14pt; MARGIN-LEFT: 10px; MARGIN-RIGHT: 10px
}
</STYLE>
<!-- Here another one Barb. & Kristin, don't forget the lights-->
<BGSOUND balance=0 loop=infinite
src="coloque
aqui o caminho da sua música mid "
volume=0>
<DIV id=box
style="HEIGHT: 300px; LEFT: -1800px; POSITION: absolute; TOP:
0px; WIDTH: 400px; Z-INDEX: 1">
<!--
NOTA: As imagens devem ter a mesma proporção
entre largura e altura. Coloque Abaixo a primeira imagem de fundo.
-->
<IMG id=pic1 src="aqui a primeira
imagem"
style="HEIGHT: 70%; LEFT: 150px; POSITION: absolute; TOP: 60px;
VISIBILITY: visible; WIDTH: 70%; Z-INDEX: -1" width="633"
height="422">
<!-- coloque abaixo a segunda imagem,
que virá por cima da anterior.
-->
<IMG id=pic2
src="aqui a segunda imagem"
style="HEIGHT: 70%; LEFT: 150px; POSITION: absolute; TOP: 60px;
VISIBILITY: hidden; WIDTH: 70%; Z-INDEX: -2" width="798"
height="442">
</DIV>
<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
Dim w, wW, wH, myTimer, picRatio, numPics, count
Set w=document.body
REM Set the number of images
numPics=2
REM Initialize the dimensions.
sub setUp()
wW=w.clientWidth
wH=w.offsetHeight
REM Repeat to fix OE bug
wW=w.clientWidth
wH=w.offsetHeight
REM Initialize filter
box.style.filter="BlendTrans(Duration=18)"
box.style.width=wW
box.style.height=wW*picRatio
REM Start the transition after OE is ready
myTimer=SetTimeOut("doTrans",200)
end sub
REM Transition done here
sub doTrans()
box.filters(0).Apply()
document.all("pic"&count).style.visibility="hidden"
count=count+1
if count>numPics then count=1
REM Show the background image
document.all("pic"&count).style.visibility="visible"
box.filters(0).Play()
end sub
sub box_onfilterChange()
myTimer=SetTimeOut("doTrans",4000)
end sub
REM Show hidden text on mouse
over
sub document_onmouseOver()
w.style.cursor="hand"
box.style.zindex=-1
end sub
REM Hide the text on mouse out
sub document_onMouseOut()
w.style.cursor="default"
box.style.zindex=1
end sub
REM Everything starts here.
sub Window_OnLoad()
REM Get users screen resolution
wx=window.screen.width
REM and adjust font size to match.
Res=INT(wx/128)
w.style.fontSize = 14+Res
picRatio=box.style.posheight/box.style.posWidth
box.style.left=0
count=1
setUp
end sub
REM This runs if the window size
is changed.
sub Window_OnResize()
setUp
end sub
</SCRIPT>
2) Fechar
com as tags: " </BODY></HTML>
"
Atenção: não
esqueça de desprezar todas as aspas que não estejam
na cor branca.
Esse script pode perfeitamente
ser copiado dentro da aba Origem de seu Outlook Express, e ser enviado,
com fundo musical, como mensagem aos seus amigos.