home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / internet / LorenzHTMLTool / _SETUP.1 / Ping Pong Text.scp < prev    next >
Encoding:
Text File  |  1998-06-15  |  1.3 KB  |  47 lines
  1. <HTMLtool>A script that makes text bounce in the status bar</HTMLtool>
  2. <HTML><HEAD><SCRIPT LANGUAGE="JavaScript">
  3. <!--
  4. /* MjM'S JAVA CODENAME = PINGPONG
  5.    This JavaScript Code was written by MjM for Hyperchat UK
  6.    I am not responsible for any damage caused by my code.
  7.    This code can be modified as long as the Author's Name is still
  8. attached.
  9.    Email : MjM@hyperchat.co.uk
  10.    ⌐ Copyright 1996
  11. */
  12.  
  13. var yourwords = "Put your text here ...";
  14. var buffer1="   **   ";
  15. var buffer2="   **   ";
  16. var message1=buffer1+yourwords+buffer2;
  17. var dir = "left";
  18. var speed = 75;
  19. function pingpong()
  20. {
  21. if (dir == "left")
  22.   {
  23.     message2=message1.substring(2,message1.length)+"  ";
  24.     window.status=message2;
  25.     setTimeout("pingpong();",speed);
  26.     message1=message2;
  27.     if (message1.substring(0,1) == "*") dir="right";
  28.   }
  29. else
  30.   {
  31.     message2="  "+message1.substring(0,message1.length-2);
  32.     window.status=message2;
  33.     setTimeout("pingpong();",speed);
  34.     message1=message2;
  35.     if (message1.substring(message1.length-1,message1.length) == "*")
  36. dir="left";
  37.   }
  38. }
  39. // -->
  40. </SCRIPT>
  41. </HEAD><BODY>This script operates on the browser status line. Please take a look down !
  42. <SCRIPT LANGUAGE="JavaScript">
  43. <!--
  44. pingpong();
  45. //-->
  46. </SCRIPT>
  47. </BODY></HTML>