@verb #2978:")*" any any any rxdo #7921
@program #2978:")*" any any any
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
if (caller_perms() in this.listeners)
  if (verb == ")say")
    msg = tostr(player.name, " says, \"", argstr, "\"")
  elseif (verb == ")mote")
    msg = tostr(player.name, " ", argstr)
  elseif (`verb[2] == ":" ! ANY => 0')
    msg = tostr(player.name, " ", verb[3..$], " ", argstr)
  else
    possible_social = verb[2..$]
    if (typeof(social = `#1236.("s_" + possible_social) ! ANY') == WAIF && length($su:words(argstr)) < 2)
      dobj = $su:match(dobjstr, this.listeners, "name", this.listeners, "aliases")
      if (social->msg_oother && valid(dobj))
        msg = $msg:substitute(social->msg_oother)
      elseif (social->msg_onotarg)
        msg = $msg:substitute(social->msg_onotarg)
      else
        msg = tostr(player.name, " says, \"", verb[2..$], argstr ? " " | "", argstr, "\"")
      endif
    else
      msg = tostr(player.name, " says, \"", verb[2..$], argstr ? " " | "", argstr, "\"")
    endif
  endif
  for m in (this.listeners)
    if (m == #789 && $shout.gags[2][2] == 1)
      "Oh well"
    else
      m:tell("[C-Talk]: ", msg)
    endif
  endfor
  this:update_usge()
else
  return E_PERM
endif
"Last modified by Lao-Tzu (#8084) on Wed Nov 13 13:07:42 2002 MST."
.