home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gscr20.zip / yomama.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-16  |  405b  |  26 lines
  1. /* YO Mama shit */
  2.  
  3. Parse Arg Nick Line
  4.  
  5. mamafile = "yomama.txt"
  6.  
  7. position = 0
  8.  
  9.  
  10. do while Lines(mamafile) = 1
  11.     position = position + 1
  12.     mama.position = linein(mamafile)
  13. end
  14. call lineout mamafile
  15.  
  16. if Nick = '' then prefix = ''
  17. else prefix = Nick", "
  18.  
  19. if Line > '' then
  20.     output = Nick||", "||mama.line
  21. else do
  22.     pick = random(1, position)
  23.     output = prefix||mama.pick
  24. end
  25.  
  26. say output