On Fri  9-Apr-1999  6:46p, [EMAIL PROTECTED] wrote:
k> If it works on my system, chances are, it'll work anywhere else =^)

k> And it does.  Thanks, nice one!  Would you like a fried up 060 CPU?
k> ;*)

Sure!  Send it along, I can use it to level my table with so it will
stop rocking back and forth.. hehe

k> > If you want to test it without it /quiting, you can change the one line
k> > in the quitit.amirx that reads 'say /quit 'msg to read:
k> > 'echo /quit 'msg

k> Now you say it!.... is it possible, I haven't edited the script yet,
k> but to have the /leave to work in a similar way?

Why sure...

If you are using a server that supports /part <part message here> to
have a parting message as you leave the channel, then you should be able
to do it with no problem.... 


Here is a modified version of the same script I whipped up for /quitit

Cut Here->

/*

$VER: PartIt 1.00  (10.4.98)     http://www.amicon.net    by WarNPeace!!!

Silly script to call random /part messages in a text file you place
in your AmIRC dir named quitit.dat

Name this script partit.amirx and place in your AmIRC Rexx/ dir.

Make this alias:

/alias partit /rx partit.amirx

Call this silliness at anytime with /partit <channel to part here>

*/

options results;PARSE ARG chan
if chan=" " then do;'getchannel';chan=result;end
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 /part 'chan' 'msg

<-Cut Here


Works on the same principle...

When you type /partit <channel> it will part the channel you specify,
and give a random line from amirc/quitit.dat.
If you fail to enter the <channel>, the script will use the channel name
from the current window.

Notice the different alias though:

/alias PartIt /rx PartIt.amirx %p


Enjoy,

John

DR. John M. Hoyt / AKA Warren Peace  -  amicon.net SysAdmin
                       WarNPeace     -  irc.BeyondIRC.Net NetAdmin
                                     -  C-Link! International Coordinator
                                     -  ZenMetal/CNet Alpha Team


Reply via email to