home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / insult.fse < prev    next >
Text File  |  1994-08-06  |  510b  |  24 lines
  1. /* Insult.fse   by Troels Walsted Hansen
  2. ** $VER: Insult.fse v1.00 (12.06.94)
  3. **
  4. ** Create a random insult based on words from a data file.
  5. */
  6.  
  7. open(fh,"THOR:insults.txt",R)
  8.  
  9. do i=1 until eof(fh)
  10.         line = readln(fh)
  11.         col1.i = strip(substr(line,1,16),B)
  12.         col2.i = strip(substr(line,17,15),B)
  13.         col3.i = strip(substr(line,33),B)
  14. end
  15.  
  16. close(fh)
  17.  
  18. a = random(1,i,time(s))
  19. b = random(1,i,time(s)+time(h))
  20. c = random(1,i,time(s)+time(m))
  21.  
  22. INSERTINPUT 'Thou 'col1.a' 'col2.b' 'col3.c'!'
  23. exit
  24.