home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
gscr20.zip
/
yomama.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-06-16
|
405b
|
26 lines
/* YO Mama shit */
Parse Arg Nick Line
mamafile = "yomama.txt"
position = 0
do while Lines(mamafile) = 1
position = position + 1
mama.position = linein(mamafile)
end
call lineout mamafile
if Nick = '' then prefix = ''
else prefix = Nick", "
if Line > '' then
output = Nick||", "||mama.line
else do
pick = random(1, position)
output = prefix||mama.pick
end
say output