</HEAD>
<BODY onload="javascript:pageonload()">
<script language="JavaScript">
var message=" GUIABELENZINHO";
var x,y;
var step=12;
var flag=0;
message=message.split("");
var xpos=new Array();
for (i=0;i<=message.length-1;i++) {
xpos[i]=-50;
}
var ypos=new Array();
for (i=0;i<=message.length-1;i++) {
ypos[i]=-50;
}
function handlerMM(e) {
x = (document.layers) ? e.pageX :
document.body.scrollLeft+event.clientX+20;
y = (document.layers) ? e.pageY :
document.body.scrollTop+event.clientY;
flag=1;
}
function makesnake() {
if (flag==1 && document.all) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+step;
ypos[i]=ypos[i-1];
}
xpos[0]=x+step;
ypos[0]=y;
for (i=0; i<=message.length-1; i++) {
var thisspan = eval("span"+(i)+".style");
thisspan.posLeft=xpos[i];
thisspan.posTop=ypos[i];
thisspan.color=Math.random() * 255 * 255 * 255 + Math.random() * 255
* 255 + Math.random() * 255;
}
}
else if (flag==1 && document.layers) {
for (i=message.length-1; i>=1; i--) {
xpos[i]=xpos[i-1]+step;
ypos[i]=ypos[i-1];
}
xpos[0]=x+step;
ypos[0]=y;
for (i=0; i<message.length-1; i++) {
var thisspan = eval("document.span"+i);
thisspan.left=xpos[i];
thisspan.top=ypos[i];
thisspan.color=Math.random() * 255 * 255 * 255 + Math.random() * 255
* 255 + Math.random() * 255;
}
}
}
for (i=0;i<=message.length-1;i++) {
document.write("<span id='span"+i+"' class='spanstyle'>");
document.write(message[i]);
document.write("</span>");
}
if (document.layers) {
document.captureEvents(Event.MOUSEMOVE);
}
document.onmousemove = handlerMM;
</script>
<script language="javascript">
function pageonload() {
makesnake();
window.setTimeout("pageonload();", 2);
}
</script>
<SCRIPT language=JavaScript1.2>
/*var currentpos=0,alt=1,curpos1=0,curpos2=-1
function initialize(){
startit()
}
function scrollwindow(){
if (document.all)
temp=document.body.scrollTop
else
temp=window.pageYOffset
if (alt==0)
/*alt=1
else
alt=0*/ /*esta parte faz com que volte para o topo.*/
if (alt==0)
curpos1=temp
else
curpos2=temp
if (curpos1!=curpos2){
if (document.all)
currentpos=document.body.scrollTop+1
else
currentpos=window.pageYOffset+1
window.scroll(0,currentpos)
}
else{
currentpos=0
window.scroll(0,currentpos)
}
}
function startit(){
setInterval("scrollwindow()",50)
}
window.onload=initialize
</SCRIPT>
<META content="MSHTML 5.50.4134.600" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<STYLE></STYLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY background="" bgProperties=fixed text=#ffffff>
<DIV align=center> </DIV>
<FORM action=http://misc.webworld.nu/cgi-bin/referer.cgi method=post>
<DIV align=left>
<P><FONT color=#ffffff><I><B><FONT face="Baskerville Old Face"
size=5> </FONT></B></I></FONT></P></DIV></FORM></BODY></HTML>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY background="" bgProperties=fixed><FONT size=4>
<DIV align=center><FONT color=#8080c0 face="Poor Richard" size=5>.</FONT><IMG
id=pic0 src="IMAGEM
REM IMPORTANT: Value in brackets for the arrays below taken
from last image number.
REM The number in brackets for an array represent the total
number of
REM items in the array. Note that the first item is number 0.
Dim w, wW, wH, an(9), x(9), y(9), ox(9), oy(9), c(9), cW, cH, sL, sT, numPics, capture
Set w=document.body
REM Initialize
sub setUp()
REM Get window dimensions
cW=w.clientWidth
cH=w.clientHeight
sL=w.scrollLeft
sT=w.scrollTop
capture=153
REM IMPORTANT: Enter number of last image here
numPics=9
for i=0 to numPics
randomize
REM Initially none are bouncing
c(i)=0
REM Number of pixels to move image per step
ox(i)=4
oy(i)=-4
REM Initial coordinates
an(i)=3.14159-i
x(i)=Int(SIN(an(i))* 50)+70
y(i)=Int(COS(an(i))* 50)+70
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
next
REM start bouncing
bnce
end sub
sub bnce()
ClearTimeOut(myTimer)
REM VBScript version of bounce routine
REM Loop for each object
for i=0 to numPics
if c(i)=1 then
REM This one is bouncing so check to see if
REM it is near the juggler. If too close, catch it.
if x(i)<50 and y(i)<50 then
c(i)=0
ox(i)=4
oy(i)=-4
end if
REM Calculate next move for bouncing object.
p="pic"&i
Set bal=document.all(p)
REM Increment position
x(i)=x(i)+ox(i)
y(i)=y(i)+oy(i)
REM Check for walls on right or left
if (x(i) + bal.offsetWidth > cW + sL) OR (x(i) <= sL) then
ox(i)=-ox(i)
if (x(i) < sL) then x(i) = sL
if (x(i) + bal.width > cW + sL) then x(i) = cW - bal.offsetWidth
+ sL
end if
REM Check for walls on bottom or top
if (y(i) + bal.offsetHeight > cH + sT) OR (y(i) <= sT+R) then
oy(i)=-oy(i)
if (y(i) < sT+R) then y(i) = sT+R
if (y(i) + bal.offsetHeight > cH + sT) then y(i) = cH -
bal.offsetHeight + sT
end if
REM Position object
bal.style.posTop = y(i)
bal.style.posLeft = x(i)
else
REM Juggle the birds
an(i)=an(i)-.1
x(i)=Int(SIN(an(i))* 50)+70+sL
y(i)=Int(COS(an(i))* 50)+70+sT
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
REM Pick a number
sw=INT(rnd*1000)
REM If number is divisible by 333 then release bird.
if sw mod 333 = 0 then c(i)=1
end if
next
REM Repeat. If bounce is too fast, increase the number
REM in the line below from the default value of 12.
myTimer=SetTimeOut("bnce",12)
end sub
REM This sub starts the action as soon as the message is
received.
sub window_OnLoad()
setUp
end sub
REM In case window is re-sized then re-calculate
sub window_OnResize()
setUp
end sub
REM In case text is scrolled, this keeps the bouncing objects
inside the window.
sub window_OnScroll()
sL=w.scrollLeft
sT=w.scrollTop
end sub
</SCRIPT>
</DIV>
<DIV></DIV><FONT color=#8080c0
size=5></FONT><BR><TT><BR></TT><BR></FONT></BODY></HTML>
<STYLE>BODY {
BORDER-BOTTOM: #0000ff 15px ridge; BORDER-LEFT: #0000ff 15px ridge; BORDER-RIGHT: #0000ff 15px ridge; BORDER-TOP: #0000ff 15px ridge
}
</STYLE>
</BODY></HTML>
30- FUNDO FIXO
Qualquer dúvida, mande um e-mail
bete@guiabelenzinho.com.br