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