3e9
@verb #4457:"say" any any any rxdo #4457
@program #4457:"say" any any any
caller != this && raise(E_PERM)
argstr = $su:substitute(argstr, {{"<", "&lt;"}})
"if (args)"
"  {?argstr = argstr} = args;"
"endif"
if (this.location:isa($editor))
  return this.location:say(@args)
endif
title = this:title()
"if ((this:ok(this.location) && (this.location != #999)) && (!(#3852 in this.location.contents)))"
if (this:ok(this.location))
  say = $gu:mg(@this.grads, tostr(sayword = this:get_say_word(argstr), "s"))
  {meh, fargstr} = #2440:fa(argstr)
  argstr = this.funky ? this:funkargstr(argstr) | $gu:mg(@this.grads, fargstr)
  argstr = #2440:dfa(meh, argstr)
else
  say = tostr(sayword = this:get_say_word(argstr), "s")
endif
this.location:announce(title, " ", say, ", \"", argstr, "\"")
this:tell(this:ok(this.location) ? $gu:mg(@this.grads, tostr("You ", sayword)) | tostr("You ", sayword), ", \"", argstr, "\"")
"Last modified by Rubbie (#4457) on Tue Oct  3 19:13:53 2000 MDT."
.

0