<meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>*Dicas Pra Ser Feliz*</title> </head><TITLE>Dicas Pra Ser Feliz</TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <META content="Microsoft FrontPage 6.0" name=GENERATOR><BGSOUND src="" loop=infinite> <STYLE type=text/css>BODY { MARGIN-LEFT: 10px; COLOR: #ffffff; MARGIN-RIGHT: 10px; FONT-FAMILY: "Script MT Bold"; BACKGROUND-COLOR: #ffffff } </STYLE> <STYLE type=text/css>BODY { SCROLLBAR-ARROW-COLOR: #F7F739; SCROLLBAR-TRACK-COLOR: #F7F739; SCROLLBAR-BASE-COLOR: #D32426; scrollbar-dark-shadow-color: #F7F739 } </style> </HEAD><STYLE type=text/css>A:link { COLOR: #9ca08a; TEXT-DECORATION: none } A:visited { COLOR: #9ca08a; TEXT-DECORATION: none } A:active { TEXT-DECORATION: none } </STYLE> <BODY text=#D00924 vLink=#D00924 aLink=#D00924 link=#D00924 bgColor=#FFFFFF background="fdopag.jpg" style="color: #D00924">  <P><IMG id=pic1 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=70 src="smile1.gif" width=68> <IMG id=pic2 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=71 src="smile2.gif" width=78> <IMG id=pic3 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=72 src="smile1.gif" width=70> <IMG id=pic4 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=85 src="smile2.gif" width=82> <IMG id=pic5 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=70 src="smile1.gif" width=68> <IMG id=pic6 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=71 src="smile2.gif" width=78> <IMG id=pic7 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=72 src="smile1.gif" width=70> <IMG id=pic8 style="LEFT: -200px; POSITION: absolute; TOP: 0px" height=85 src="smile2.gif" width=82> <SCRIPT language=VBSCRIPT> REM Edgar V. Poirier REM moomoo@nbnet.nb.ca REM Revised August 2000 Dim w, wW, wH, wx, baseFont, x(), y(), ox(), oy(), sL, sT, numPics Set w=document.body REM *** Enter Font Size *** baseFont=18 REM *** IMPORTANT: Enter number of bouncing images here *** numPics=8 reDim x(numPics), y(numPics), ox(numPics), oy(numPics) REM Initialize sub setUp() on error resume next REM Get window dimensions wW=w.clientWidth wH=w.clientHeight REM and any scroll offset sL=w.scrollLeft sT=w.scrollTop REM Initialize values for each image for i=1 to numPics randomize REM Number of pixels to move image per step ox(i)=3+INT(RND()*4) oy(i)=3+INT(RND()*4) REM Initial coordinates (randomly positioned in window) x(i)=INT(rnd()*wW) y(i)=INT(rnd()*wH) next REM start bouncing bnce end sub REM This is the main bounce routine. sub bnce() ClearTimeOut(myTimer) REM VBScript version of bounce routine REM Loop for each object for i=1 to numPics 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 > wW + sL) OR (x(i) <= sL) then ox(i)=-ox(i) if (x(i) < sL) then x(i) = sL if (x(i) + bal.width > wW + sL) then x(i) = wW - bal.offsetWidth + sL end if REM Check for walls on bottom or top if (y(i) + bal.offsetHeight > wH + sT) OR (y(i) <= sT) then oy(i)=-oy(i) if (y(i) < sT) then y(i) = sT if (y(i) + bal.offsetHeight > wH + sT) then y(i) = wH - bal.offsetHeight + sT end if REM Position object bal.style.posTop = y(i) bal.style.posLeft = x(i) next REM Repeat. If bounce is too fast, increase the number REM in the line below from the default value of 2. REM SetTimeOut with ClearTimeOut keeps the time delay constant. REM regardless of window size. myTimer=SetTimeOut("bnce",54) end sub REM This sub starts the action as soon as the message is received. 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 setUp end sub REM In case window is re-sized sub window_OnResize() setUp end sub REM In case text is scrolled this keeps the bouncing inside the window. sub window_OnScroll() sL=w.scrollLeft sT=w.scrollTop end sub </SCRIPT> <BR></P> <DIV align=center> <CENTER> <TABLE borderColor=#D00924 cellPadding=2 width="641" borderColorLight=#D00924 background="tab1.jpg" border=2> <TBODY> <TR> <TD align=middle width="627"> <P align=center><FONT face=Arial color=#38a2ed size=3><STRONG><BR><img border="0" src="DICAS.gif" width="346" height="55"></STRONG></FONT></P> <div align="center"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td><img border="0" src="Image1.jpg" width="263" height="233"></td> <td><img border="0" src="texto1.gif" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="texto2.gif" width="263" height="233"></td> <td><img border="0" src="image2.jpg" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="Image3.jpg" width="263" height="233"></td> <td><img border="0" src="texto3.gif" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="texto4.gif" width="263" height="233"></td> <td><img border="0" src="Image4.jpg" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="Image5.jpg" width="263" height="233"></td> <td><img border="0" src="texto5.gif" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="texto6.gif" width="263" height="233"></td> <td><img border="0" src="Image6.jpg" width="263" height="233"></td> </tr> <tr> <td><img border="0" src="Image7.jpg" width="263" height="233"></td> <td><img border="0" src="texto7.gif" width="263" height="233"></td> </tr> </table> </div> <div align="center"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td><img border="0" src="Image7.gif" width="400" height="150"></td> </tr> </table> </div> <P align=center> </P> <DIV align=center> <CENTER> <TABLE borderColor=#88c7f4 cellSpacing=0 cellPadding=0 borderColorLight=#88c7f4 border=0> <TBODY> <TR> <TD> <DIV align=center> <CENTER> <TABLE borderColor=#D00924 cellPadding=2 borderColorLight=#D00924 border=2 background="fdopag.jpg" cellspacing="8"> <TBODY> <TR> <TD> <div align="center"> <table border="0" cellpadding="0" cellspacing="0" background="tab1.jpg" style="border-collapse: collapse" bordercolor="#111111"> <tr> <td> <p align="center"><b> <font face="Verdana" size="2" color="#D00924"> <a target="_blank" href="http://www.ellaine-poesias.com.br/mensageiro/mensageiro.php?url=http://www.ellaine-poesias.com.br/DicasPraSerFeliz/index.htm"> <font color="#D00924">CLIQUE AQUI PARA ENVIAR ESTA MENSAGEM</font></a></font></b></p> </td> </tr> </table> </div> </TD></TR></TBODY></TABLE></CENTER></DIV></TD></TR></TBODY></TABLE></CENTER></DIV> <P align=center><FONT face=Arial color=#38a2ed size=2><STRONG><br> <a href="../amizade.htm" target="_top"> <img border="0" src="volt.gif" width="116" height="56"> </a> <br> </STRONG></FONT></P> <div align="center"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td> <div align="center"> <table border="1" cellpadding="0" cellspacing="0"> <tr> <td> <embed width="128" height="18" src="http://www.ellaine-poesias.hpg.com.br/beHappy.wav" hidden></td> </tr> </table> </div> </td> </tr> </table> </div> <P align=center><STRONG><FONT face=Arial color=#38a2ed size=2><BR> </FONT></STRONG></P> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1"> <tr> <td> <p align="center"><STRONG><FONT face=Verdana color=#D00924 size=2>Design:<br> Copyright © 2000 - 2002 Ellaine Poesias®</FONT></STRONG></td> </tr> <tr> <td> <p align="center"> <script language="JavaScript" type="text/javascript" src="http://pub30.bravenet.com/counter/code.php?id=348679&usernum=2574405168&cpv=2"></script>  </td> </tr> </table> </center> </div> </TD></TR></TBODY></TABLE></CENTER></DIV> <P align=center><FONT size=1><BR></FONT></P></FORM></BODY></HTML>