"Carousel"
apresentado por Guacira Sampaio Rocha,
Credits:
° images: "Egg"
and "Horse" are gifs, found for free in the net (if you
know its authors, please tell me)
° mid: "10" (found for free, in the net)
° script author: Edgar
V. Poirier (as long as
I know)
° author address: moomoo@nbnet.nb.ca
° prepared, commented and posted (as it is in this page) by: Guacira
1) Substitua
o código de sua página pelo código abaixo:
"<HTML
XMLNS:O><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<STYLE type=text/css>BODY {
FONT-SIZE: 12pt; MARGIN-LEFT: 10px; COLOR: #000000; MARGIN-RIGHT:
10px;
FONT-FAMILY: "Comic Sans MS"; BACKGROUND-COLOR:
defina aqui o código hex de seu background color
}
</STYLE>
<META content="MSHTML
5.50.4616.200" name=GENERATOR>
<title>carousel</title></HEAD>
<BODY bgProperties=fixed bgColor=#defina
aqui o código hex de seu
background color background=""><BGSOUND
balance=0
src="defina
aqui o caminho do som de fundo"
volume=-600 loop=infinite>
<DIV id=box
style="Z-INDEX: -1; LEFT: -1800px; WIDTH: 650px; POSITION: absolute;
TOP: 0px;
HEIGHT: 406px"><IMG
id=carousel
style="Z-INDEX: 5; LEFT: 0px; WIDTH: aqui
a largura, em pixels, da imagem maior;
POSITION: absolute; TOP: 10px; HEIGHT:
aqui a altura,
em pixels, da mesma imagem"
src="defina
aqui o caminho da imagem maior">
<IMG id=horse
style="LEFT: -1800px; WIDTH: aqui
a largura, em pixels, da imagem menor;
POSITION: absolute; TOP: 0px; HEIGHT: aqui
a altura, em pixels, da imagem menor"
src="defina
aqui o caminho da imagem menor">
<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
REM January 2000
Dim w, wW, wH, sH, bH, wx, Res, baseFont, numHorses, x, y, myTimer,
maxWidth
Dim hL(), hT(), hW(), A(), B(), R(), Z()
Set w=document.body
numHorses=5
reDim hL(numHorses), hT(numHorses), hW(numHorses), A(numHorses), B(numHorses),
R(numHorses), Z(numHorses)
REM Set base font size here
baseFont=14
sub setUp()
REM Repeat to correct OE bug.
wW=w.clientWidth
wW=w.clientWidth
wH=w.clientHeight
wH=w.clientHeight
REM Adjust page height for text.
sH=w.scrollHeight
bH=wH
if sH>wH then bH=sH
REM ================================================
REM ADJUST PLACEMENT OF IMAGES HERE
REM ================================================
y=INT(carousel.style.pixelHeight*.59)
x=INT(carousel.style.pixelWidth*.49)
A(0)=0
B(0)=0
maxWidth=horse.style.posWidth
for i=1 to numHorses
A(i)=A(i-1)+6.28/numHorses
B(i)=A(i)
R(i)=INT(carousel.style.pixelWidth*.65)
hL(i)=0
hW(i)=horse.style.pixelHeight
Z(i)=i
next
REM Show the image
box.style.left=(wW-box.offsetWidth)/2
moveEm
end sub
sub moveEm()
clearTimeout(myTimer)
for i=1 to numHorses
A(i)=A(i)+.02
B(i)=B(i)-.4
if A(i)>6.28 then A(i)=0
hL(i)=R(i)*COS(A(i))+x
hW(i)=ABS(maxWidth*SIN(A(i))+1)
hT(i)=5*SIN(B(i))+y
if A(i)>3.14 then
z(i)=8
document.all("h"&i).style.filter=""
else
z(i)=2
document.all("h"&i).style.filter="flipH"
end if
document.all("h"&i).style.left=hL(i)
document.all("h"&i).style.top=hT(i)
document.all("h"&i).style.zIndex=Z(i)
document.all("h"&i).style.width=hW(i)
next
myTimer=setTimeOut("moveEm",2)
end sub
sub window_onLoad()
REM Get users screen resolution
wx=window.screen.width
REM and adjust font size to match. This will have the same size font
REM appear no matter what the viewer's screen resolution is
Res=INT(SQR(wx))-25
REM Set the font size
w.style.fontSize = baseFont+Res
REM Create horses
data=""
for i=1 to numHorses
data=data&"<IMG id='h"&i&"' src='"&horse.src&"'
style='position:absolute;width:"&horse.style.posWidth&";height:"&horse.style.posHeight&"'>"
next
box.insertAdjacentHTML "afterBegin", data
setUp
end sub
sub window_onResize()
setUp
end sub
</SCRIPT>
</DIV>
</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. Acrescente suas
próprias imagens, e o fundo musical de sua preferência.
O texto em vermelho identifica o autor original do script.