@verb #3721:"process_told" this none this rxdo #8045
@program #3721:"process_told" this none this
"Copied from MattC (#9466):process_told Nov 28 19:48:08 1997"
{toldstr} = args
if (m = match(toldstr, "%(.*%) smiles at %(" + this.name + "%|you%)"))
  iobjstr = substitute("%1", m)
  if (valid(iobj = this.location:match_object(iobjstr)))
    $msg:mtell(this, {iobj, "i"}, "smile_response")
  endif
endif
.