@verb #9677:"tell" this none this rxdo #9677
@program #9677:"tell" this none this
"Copied from Generic Connectable Object (#24):tell by Slacker (#55) Jan 29 12:11:13 2003"
if (this.gaglist && this:gag_p())
  return
elseif (length(args) == 1 && typeof(args[1]) == $LIST)
  text = args[1]
else
  text = {tostr(@args)}
endif
`$wiz_utils:autoextend(this.output_rendering_object) ! ANY'
notify_verb = index(verb, "suspended") ? "notify_suspended" | "notify"
"(!index(verb, \"strip\")) && (text = $renderer:render(text));"
text = {@text}
"text[$] = text[$] + `this:ansi_normal() ! ANY => $ansi_utils:normal()';"
if (this._notify_semaphore)
  "Another task is notifying this player."
  fork (0)
    this:(notify_verb)(length(text) == 1 ? text[1] | text)
  endfork
else
  this:(notify_verb)(length(text) == 1 ? text[1] | text)
endif
"Last modified by Dax (#789) on Tue May  3 13:45:07 2005 MDT."
.