@verb #5450:"say_cmd" any any any rxdo #9988
@program #5450:"say_cmd" any any any
if (!(caller_perms() == #7407 || $perm_utils:controls(caller_perms(), this)))
  return E_PERM
endif
argstr = $string_utils:from_list(args, "")
if ($object_utils:isa(this.location, #1606))
  if (argstr[length(argstr)] == "?")
    msg = this.location:msg_oquestion()
    you = this.location:msg_question()
  elseif (argstr[length(argstr)] == "!")
    msg = this.location:msg_oexclaim()
    you = this.location:msg_exclaim()
  else
    msg = this.location:msg_osay()
    you = this.location:msg_say()
  endif
elseif ($object_utils:isa(this.location, $room))
  msg = this.location:msg_osay()
  you = this.location:msg_say()
else
  msg = #3:msg_osay()
  you = #3:msg_say()
endif
msg = $string_utils:subst(msg, {{"%n", this:title()}})
this:sub_announce_all_but({this}, msg, argstr)
this:sub_tell(you, argstr)
"Last modified by manta (#7165) on Fri Sep 11 05:10:07 1998 EDT."
.