Here's something that should work...
Cut Here ->
/*
$VER: QuitIt 1.00 (9.4.98) http://www.amicon.net by WarNPeace!!!
Silly script to call random /quit messages in a text file you place
in your AmIRC dir named quitit.dat
Name this script quitit.amirx and place in your AmIRC Rexx/ dir.
Make this alias:
/alias /quitit rx quitit.amirx
Call this silliness at anytime with /quitit
*/
options results
if ~open(1,'quitit.dat','R') then exit
call open(f1,"quitit.dat","R")
cr="0a"x;a=readch(f1,65535)
ml=length(a)%100;mp=random(1,ml,time('s'))*100
msgs=substr(a,mp);msgs=substr(msgs,pos(cr,msgs,1)+1)
parse var msgs msg"0a"x .
call close(f1)
'say /quit 'msg
exit
<- Cut Here
Place the above in your amirc/rexx dir and name it quitit.amirx.
Then create a textfile in your amirc dir named: quitit.dat.
Cut and paste this if you want a starting point:
Dawn crept silently across the yard... searching for her car keys.
Looks like another case of Clue Deficit Disorder.
Are dog biscuits made from Collie Flour?
I am having an out of money experience.
Artificial Reality Test Site
Drink your coffee! There are poor people in Inia sleeping.
Instant human: just add caffeine.
I should have quit while I was not as far behind.
I have two pets: a large main dog, and a small emergency backup one.
The structure of that dat file should just be one /quit line per line
of text.
If it works for ya, send money, old Amiga 4000's, 060's, etc...
If it doesn't work, uhmmmm It should work :)
John
DR. John M. Hoyt / AKA Warren Peace - amicon.net SysAdmin
WarNPeace - irc.BeyondIRC.Net NetAdmin
- C-Link! International Coordinator
- ZenMetal/CNet Alpha Team
