@verb #4980:"say" any any any rxd #9223
@program #4980:"say" any any any
styleref = 0
if (!argstr)
  return
endif
this.owner:tell("args: ", toliteral(args))
text = argstr
this.owner:tell("text b4 hack: ", text, "  Length: ", length(text))
if ((start = index(text, "[") == 1) && (finish = index(text, "]")))
  styleref = text[start + 1..finish - 1]
  styleref = $string_utils:is_numeric(styleref) ? toint(styleref) | styleref
  text = text[finish + 1..$]
endif
this.owner:tell("styleref: ", styleref, "  Length: ", length(tostr(styleref)))
this.owner:tell("typeof styleref: ", t = typeof(styleref) == $STR ? "string!" | "other")
this.owner:tell("text post hack: ", text, "  Length: ", length(text))
if (verb[1] == "-")
  player:tell("emoter disabled at the moment.")
  return
  name = verb[2..length(verb)]
  who = player.location:match_object(name)
  argstr = $code_utils:argstr(verb, args, argstr)
  if (who == #-2)
    who = this:match_player(name)
  endif
  if (!valid(who))
    this:hannounce_all(styleref, player:title() + " [", name, "]: " + argstr)
  else
    this:hannounce_all(styleref, player:title() + " [to " + who:title() + "]: " + argstr)
  endif
else
  punctuation = argstr[length(argstr)]
  if (punctuation == "?")
    action = "ask"
  elseif (punctuation == "!")
    action = "exclaim"
  else
    action = "say"
  endif
  name = player:title()
  this:hannounce_all(styleref, name + " " + action + "s, \"" + text + "\"")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.