home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gscr20.zip / shake.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-16  |  593b  |  32 lines
  1. /* YO Mama shit */
  2.  
  3. Parse Arg Nick
  4. tab = d2c(9)
  5.  
  6. mamafile = "shake.txt"
  7.  
  8. position = 0
  9.  
  10.  
  11. do while Lines(mamafile) = 1
  12.     position = position + 1
  13.     mama = linein(mamafile)
  14.     parse var mama a b c d
  15.     left.position = a
  16.     mid.position = b
  17.     right.position = c
  18. end
  19. call lineout mamafile
  20.  
  21. if Nick = '' then exit
  22. if right(nick, 1) = ' ' then nick = left(nick, length(nick)-1)
  23.  
  24. pick1 = random(1, position)
  25. pick2 = random(1, position)
  26. pick3 = random(1, position)
  27. pick1 = strip(pick1,,' ')
  28.  
  29. output = Nick||", Thou "||left.pick1||" "||mid.pick2||" "||right.pick3||"!"
  30.  
  31.  
  32. say output