@verb #7459:"_heard_string" this none this rxdo #9878
@program #7459:"_heard_string" this none this
string = args[1]
regexp = tostr(this.listen_for_stimuli, " %-%-% *%([A-Za-z]*%)")
"#8084:tell(\"string=\", toliteral(string), \"   regexp=\", toliteral(regexp));"
if (data = this:strsearch(string, regexp, this.aliases))
  "mm, stimuli for me. petting or such."
  "  #8084:tell(\"_heard_string: toliteral(data) = \", toliteral(data));"
  $hub:send({this}, tostr(string[data[3][1][1]..data[3][1][2]]), player)
endif
"Last modified by Lao-Tzu (#8084) on Wed Aug 18 14:09:59 1999 MDT."
.