"Batuque"
contribuição de Guacira
Sampaio Rocha
Credits:
° image gif: "bird
ani" (found for free in the net)
° mid: "africanbatuque" (found for free, in the net)
° script author: unfortunatly
I lost this information - could you help me?
° prepared, commented and posted (as it
is in this page) by: Guacira
1) Dentro das tags "<body>
</body>" coloque:
" <BODY
bgColor=#fffbf0 scroll=no><BGSOUND balance=0
src="aqui
o caminho do som" volume=-260
loop=infinite>
<DIV align=center><IMG id=pic
style="LEFT: -1800px; WIDTH: 107px; POSITION: absolute; TOP:
0px; HEIGHT: 150px"
src="aqui o caminho da imagem"></DIV>
<SCRIPT language=VBScript>
Dim w, wW, wH, myTimer, A, R, cx, cy, x, y
Set w=document.body
REM Initialize
sub window_OnLoad()
REM Get Window dimensions
wW=w.clientWidth
wH=w.clientHeight
REM Repeat to fix an OE bug
wW=w.clientWidth
wH=w.clientHeight
REM Set the Radius (distance from the center of the circle to the
top-left corner of the image)
R=50
REM Starting angle. Angles are in Radians. 1 degree = 3.14150/180
radians
A=0
REM Set the center of the circle to the window center
REM Note the offset due to the fact that the object is
REM positioned using its TOP and LEFT properties.
cx=(wW-pic.offsetWidth)/2
cy=(wH-pic.offsetHeight)/2
orbit
end sub
REM Move the object in a circle
starting at an angle of 0, then increasing the angle.
sub orbit()
ClearTimeOut(myTimer)
REM Increase the angle (larger steps mean faster movement)
A=A+.08
REM Calculate the new coordinates
x=R*COS(A)+cx
y=R*SIN(A)+cy
REM Position the object.
pic.style.left=x
pic.style.top=y
REM Repeat for next angle change.
myTimer=SetTimeOut("orbit",32)
end sub
</SCRIPT>
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.