/*
    HM.rexx by Galt of Atlantis Jan 7 1996 ©1997 Edward D. Peyton


Edward D. Peyton
Atlantis BBS: (904) 479-3133 | 479-4080
WebSite: http://www.pen.net/~atlantis
email : edp@pen.net  Edward Peyton@1:3612/369.0
snailmail:
5100 N 9th Ave F-601
Pensacola, FL 32504

This is a quick program to toggle Hidden/Muffle status in one command, and
also allow you to send an OLM. I normally log on hidden/muffled, otherwise
I would spend ALL my time talking to users, instead of other stuff I may
be working on. WELL, I DO want to talk to them, or certain users, sometimes!
My problem was, I would forget that I was hidden or muffled...and since
I have conference control, I would send an olm to a user, then wonder why
they weren't responding! Silly, I know, but this command, which takes arguments,
makes things a LOT simpler!!!

Just copy the program somewhere, then add a command to your
BBSMENU, available everywhere:

HM    {#0pfiles:rexx/hm.rexx}

Here's how I use it: Let's say, Tigress has logged on to port 2, and
I want to say hello. I am hidden and muffled, of course, and so is she, for
that matter!

I type HM TIG. Right away, I an unhidden JUST to her, and unmuffled JUST
to her, for JUST this call. (That is the difference BTW, in typing 'TIG' as
opposed to the port number.). Also, I will get an olm prompt, and can
send one right away. She, of course, can selectively unhide and olm with
any other port by using the same command. I find it handy, hope you find
it helpful.
*/

options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; ss=sendstring ; gc=getchar ; gu=getuser ; mg=maygetchar
a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit

getuser 1302307
add=result
if add=' ' then call pro
bbscommand HI add
bbscommand MU add
bbscommand OLM add
exit
Pro:
tr "n1caHide Toggle:c6"
bbscommand HI
tr "n1caMuffle Toggle:c6"
bbscommand MU
tr "n1caOlm:c6"
bbscommand OLM
exit

SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)'
e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:';getuser 1311992;a=result
getuser 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1
logentry e2;e=sourceline(sigl);do while e~='';e3='c9Sourcecf: cd'
e3=e3||left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit