Hello, this is Monitron again.

I hath written a script that I think will be moderately useful to use 
against annoying guests and that type of people in general.

+-------+
| Mute! |
+-------+

All you have to do is load this script, and then if someone is really 
annoying you, just type :

mute username

where username is, yes, the person's name.  Currently, you MUST, MUST 
use the correct CaPITaliZati0N of the person's name, or it will not 
work.  If you enter a name of someone who doesn't exist, it will sit 
in the background until it FINDS someone with that name, or you 
deactivate it.

After you mute the user and the next time they talk it will lock them 
into the mute script so that you will not get any further messages 
from the user.  An interesting thing is that if you look in your log 
you will see that person's messages anyway.  If the person says 
something, a message will appear noting that their message has been 
supressed.

Now, when you are done, type:

unmute

No, no username in that, just `unmute'.  The script will turn off and 
you will hear the person's further messages.

Advantages of this script over the `gag' function:
1.  Anyone can use it, even a plain old normal user.
2.  The script only mutes his messages to you.  Other people still 
see the person's messages.
3.  The muted person still thinks you can hear him. =)

Disadvantages:
1.  You can only mute one person at a time.  I will fix this later.
2.  Capitalization must be correct, this will also be fixed.

Here it is:


/////*****-- ON INCHAT section --*****/////

; Mute script v1.01, by Monitron (INCHAT Event set)
; (c) 1996 Justin Streufert
; To use or distribute this script, you are required by law to KEEP 
THIS 
; MESSAGE IN THERE!!

whopersgag GLOBAL
persgaginit GLOBAL
gagstatus GLOBAL

{
"M0NPak Mute: Supressed a message from " whopersgag WHONAME + 
LOCALMSG
"" CHATSTR =
} WHOCHAT whopersgag == gagstatus 1 == AND IF

{
WHOCHAT whopersgag =
1 gagstatus =
"M0NPak Mute: Initialized; found message from and locked on to user "
whopersgag WHONAME + LOCALMSG
"" CHATSTR =
} WHOCHAT WHONAME persgaginit == gagstatus 2 == AND IF

/////*****-- ON OUTCHAT section --*****/////


; Mute script v1.01, by Monitron (OUTCHAT Event set)
; (c) 1996 Justin Streufert
; To use or distribute this script, you are required by law to KEEP 
THIS 
; MESSAGE IN THERE!!

gagstatus GLOBAL
persgaginit GLOBAL

{
"$1" GREPSUB muteuser =
muteuser persgaginit =
2 gagstatus =
"M0NPak Mute: Mute on " muteuser + " will begin when " + muteuser + " 
sends
its next message." + LOCALMSG
"" CHATSTR =
} CHATSTR "^mute (.*)" GREPSTR IF

{
0 gagstatus =
"M0NPak Mute: Removing any active mute." LOCALMSG
"" CHATSTR =
} CHATSTR "unmute" == IF

---------- END, yes, END! ----------

version history:

0.01 Only on my computer.  Works.
1.00 given to other people, broken.
1.01 It works now.  Yay!

cDolphin/ionStorm/Monitron (Monitron on palace)
cdolphin@access.digex.net palace://204.91.1.134