@program EnronCom.MUF
1 1000 d
i
( Docs:
  To install:
  @act <name>;<aliases>=<environment to attach to>,$cmd/envcom

  Optional:
  @set <name>=_title:<channel title, accepts color, %n is replaced with the name>

  Commands:
  <command> #on - Turn it on
  <command> #off - Turn it off
  <command> #who - See who can hear it
  <command> #help - Get help
)
lvar param
$def title trig "_title" getprop if { trig "_title" getprop } array_make "" array_join else trig truename "/%n> " strcat then
$def }strcat } array_make "" array_join

: main
param !
var target

param @ case
 "#on" smatch when
  me @ { "_prefs/" trig truename }strcat "on" setprop
  me @ { "EnvCom: " trig truename " turned on." }strcat ansi_notify
  exit
 end
 "#off" smatch when
  me @ { "_prefs/" trig truename }strcat "off" setprop
  me @ { "EnvCom: " trig truename " turned off." }strcat ansi_notify
  exit
 end
 "#who" smatch when
  me @ { "People who can hear you: "
  online_array foreach target ! pop
  target @ location "~comtrig" envprop swap pop trig "_global" getprop if pop 1 else trig dbcmp then if
    target @ { "_prefs/" trig name }strcat envpropstr swap pop "{no|n|off}" smatch not if
    target @ name "; "
   then
  then
  repeat
  }strcat notify
  exit
 end
 "#help" smatch when
   me @ { "EnvCom: " command @ " <#on|#off|#who|text>" }strcat ansi_notify
   exit
  end
endcase

trig location { "~comtrig" trig truename }strcat getprop not if trig location { "~comtrig" trig truename }strcat trig setprop then
online_array foreach target ! pop
 target @ location { "~comtrig" trig truename }strcat envprop swap pop trig "_global" getprop if pop 1 else trig dbcmp then if
  target @ { "_prefs/" trig truename }strcat envpropstr swap pop "{no|n|off}" smatch not if
   target @ { title me @ name "%n" subst
              param @ 1 strcut pop case 
               ":" instr when
                me @ name " " param @ 1 strcut swap pop
               end
               "!" instr when
                param @ 1 strcut swap pop
               end
               default pop
                me @ name " " me @ "_say/def/osay" getprop dup not if pop "says," then
                dup "*," smatch not if "," strcat then
                " " "\"" param @ "\""
               end 
            endcase
            }cat ansi_notify
  then
 then
repeat
;
.
c
q