home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / textra16.lha / Textra116 / Scripts / Art2.textra < prev    next >
Encoding:
Text File  |  1994-02-19  |  1.1 KB  |  72 lines
  1. /* Textra ARexx Art #2
  2.   
  3.    by Nick Didkovsky 
  4.    
  5.    18-Feb-94
  6.    
  7.    Run this script from Textra and watch the fun!
  8.    
  9.    Select Cancel ARexx Script from Textra's Utilities menu to stop this baby.
  10.    
  11. */
  12.  
  13. options results
  14.  
  15. OPENFILE 'CoolTextraArt'  /* open a new window */
  16.  
  17. hh = time('Hours')
  18. mm = time('m')
  19. ss = time('S')
  20. seed = (hh + mm + ss)
  21.  
  22. CharsPerLine = 75
  23.  
  24. DO blanks = 1 TO CharsPerLine
  25.     text '.'
  26. END
  27.  
  28. NewLine
  29.  
  30. SELECTLINE 0
  31. COPY
  32. UNSELECT
  33.  
  34. NumLines = 17
  35. DO CurrentLine = 1 to NumLines
  36.     LINE CurrentLine
  37.     PASTE 
  38.     NEWLINE
  39. END
  40.  
  41. xpos = random(1,CharsPerLine-1,seed)
  42. ypos = random(0,NumLines,seed)
  43. DO forever
  44.     /* Check if the user wants to cancel... */
  45.        CheckCancel; if (result == CANCEL) then exit
  46.     xpos = xpos + random(0,2) - 1
  47.     ypos = ypos + random(0,2) - 1
  48.  
  49.     IF xpos > CharsPerLine-1
  50.     THEN xpos = CharsPerLine-1
  51.     
  52.     IF xpos < 1 
  53.     THEN xpos = 1
  54.     
  55.     IF ypos > NumLines
  56.     THEN ypos = NumLines
  57.     
  58.     IF ypos < 0 
  59.     THEN ypos = 0
  60.     
  61.     GOTOXY xpos ypos
  62.     del
  63.     CharCode = random(0,4) 
  64.     SELECT
  65.         when (CharCode = 0) | (CharCode = 1) THEN text '\'
  66.         when (CharCode = 2) | (CharCode = 3) THEN text '/'
  67.         when CharCode = 4 THEN text '.'
  68.     END
  69. END
  70.  
  71.  
  72.