@verb #8562:"process_speech" this none this rxdo #3887
@program #8562:"process_speech" this none this
{playerstr, speech} = args
namelen = length(this.name)
if (length(speech) > namelen && speech[1..namelen + 1] == tostr(this.name, ","))
  this:parse_command(playerstr, $su:trim(speech[namelen + 2..$]))
endif
"Last modified by Daryl (#3887) on Thu Jul 29 18:59:07 1999 MDT."
.