home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 November / PCO_1198.ISO / filesbbs / os2 / os2www.arj / OS2WWW.ZIP / SYS406.R8 / POWERWEB / BANNER.INC < prev    next >
Encoding:
Text File  |  1996-11-06  |  1.6 KB  |  102 lines
  1. <!-- Shows a scrolling banner
  2.  
  3.     Arguments:
  4.  
  5.         MessageFile
  6.         BannerSpeed        (optional)
  7. -->
  8.  
  9. <!--#Script JavaTextInput -->
  10. TextInput[@RowNumber] = "@Message"
  11. <!--#EndScript -->
  12.  
  13. <!--#Script JavaTotalText -->
  14. TotalTextInput = @RowCount;
  15. <!--#EndScript -->
  16.  
  17. <SCRIPT>
  18. <!--
  19.  
  20. var i                = 0; 
  21. var TextNumber    = 0;
  22. var TextInput    = new Object();
  23. var HelpText    = "";                              
  24. var Text            = "";  
  25. var Speed        = <!--#echo notfound=150 var=BannerSpeed-->;
  26. var WaitSpace    = "                              ";
  27. var TimerId;
  28. var TimerSet    = false;
  29.  
  30. // Text should not exceed 80 chars
  31.  
  32. <!--#config errmsg="TotalTextInput = 0;" -->
  33. <!--#file
  34.     virtual        = @MessageFile
  35.     row            = JavaTextInput
  36.     trailer        = JavaTotalText
  37. -->
  38. <!--#config errmsg -->
  39.     
  40. for (var addWait = 1; addWait <= TotalTextInput; addWait++) {
  41.     TextInput[addWait] += WaitSpace;
  42. }
  43.           
  44. function startBanner (form)  
  45. {
  46.     if (!TimerSet) {
  47.         TimerSet=true;
  48.         banner();
  49.     }
  50. }
  51.  
  52. function banner() 
  53. {
  54.     Text                = rollMessage();
  55.     TimerId            = setTimeout("banner()", Speed);
  56.     window.status    = Text;
  57. }
  58.  
  59. function rollMessage () 
  60. {
  61.     Wait_yn=false;
  62.  
  63.     i++;
  64.  
  65.     var CheckSpace = HelpText.substring(i-1, i);
  66.  
  67.     CheckSpace = "" + CheckSpace;
  68.  
  69.     if (CheckSpace == " ") {
  70.         i++;
  71.     }
  72.  
  73.     if (i >= HelpText.length+1)  {
  74.         i=0; 
  75.  
  76.         if (TextNumber < TotalTextInput) {
  77.             TextNumber++;
  78.         } 
  79.         else {
  80.            TextNumber = 1;
  81.         } 
  82.  
  83.         initBanner();
  84.     }
  85.  
  86.     Text = HelpText.substring(0, i);
  87.  
  88.     return (Text);
  89. }
  90.  
  91. function initBanner() 
  92. {
  93.     Text        = TextInput[TextNumber];
  94.     HelpText    = Text;
  95.  
  96.     startBanner ();
  97. }
  98.  
  99. // -->
  100. </SCRIPT>
  101.  
  102.