View/Edit #9677:tell

Switch to edit mode.

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

[home | help | who | search | setup | code]