@program ooc.muf
1 1000 d
i
: ooc
var! param
var target
$include $lib/alynna

command @ "@ooc" smatch if
 me @ mlevel 5 < if
  { "^RED^Permission denied." }tell exit
 then
then

command @ "ooc" smatch if
me @ "_noooc" envprop var! target if
 target @ me @ dbcmp if
  { "^RED^The OOC command is currently locked for you." }tell exit
 else
  { "^RED^The OOC command is currently locked for this location." }tell exit
 then
then

me @ "~noooc" envprop var! target if
 target @ me @ dbcmp if
  { "^RED^The OOC command is currently locked for you." }tell exit
 else
  { "^RED^The OOC command is currently locked for this location." }tell exit
 then
then
then

param @ tolower case
 "#off" smatch when 
  me @ "_prefs/noooc" 1 setprop 
  { "^YELLOW^<^GREEN^OOC^YELLOW^>^ ^ OOC chatter turned off (unless by HS/WIZ)" }tell
  exit
 end
 "#on" smatch when 
  me @ "_prefs/noooc" 0 setprop 
  { "^YELLOW^<^GREEN^OOC^YELLOW^>^ ^ OOC chatter turned on" }tell
  exit
 end
endcase

{ "^YELLOW^<^GREEN^OOC^YELLOW^>^ ^ " 
  param @ ":*" smatch if
   me @ " " param @ 1 strcut swap pop strip
  else
   me @ " " me @ "_say/def/osay" getprop dup not if pop "says" then ", \"" param @ "\""
  then  
}cat var! message

command @ "ooc" smatch if
 {
  me @ location contents_array foreach target ! pop
   target @ player?
   target @ "Z" flag? target @ location target @ owner location dbcmp not and or
   target @ "_prefs/noooc" getprop not and
   if target @ then
  repeat
 }array
else
 {
  me @ location contents_array foreach target ! pop
   target @ player?
   target @ "Z" flag? target @ location target @ owner location dbcmp not and or
   if target @ then
  repeat
 }array
then
var! targets
{ message @ }array targets @ array_ansi_notify 
;
.
c
q