home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / HTML / AceHTML / AceHTML4Free.exe / %MAINDIR% / EScripts / jscript / ban5.scr < prev    next >
Encoding:
Text File  |  2001-09-06  |  907 b   |  30 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var msgBan5, msgBan5b, string5 = "", stringPart5, delayBan5, ban5;
  4. function banner5(delay) {
  5.   delayBan5 = delay;
  6.   if (string5.length == 0) {
  7.     string5 = " ";
  8.     msgBan5b = msgBan5;
  9.     stringPart5 = "";
  10.   }
  11.   else if (string5.length == 1) {
  12.     while (msgBan5b.substring(0, 1) == " ") {
  13.       stringPart5 = stringPart5 + string5;
  14.       string5 = msgBan5b.substring(0, 1);
  15.       msgBan5b = msgBan5b.substring(1, msgBan5b.length);
  16.     }
  17.     stringPart5 = stringPart5 + string5;
  18.     string5 = msgBan5b.substring(0, 1);
  19.     msgBan5b = msgBan5b.substring(1, msgBan5b.length);
  20.     for (var i = 0; i < 120; i++)
  21.       string5 = " " + string5;
  22.   }
  23.   else string5 = string5.substring(10, string5.length);
  24.  
  25.   window.status = stringPart5 + string5;
  26.   ban5 = window.setTimeout('banner5(delayBan5)',delay);
  27. }
  28. // end script -->
  29. </SCRIPT>
  30.