@verb #1:"match_verb" this none this rxd #55
@program #1:"match_verb" this none this
"object:match_verb(STR verb)"
"Find out if an object has a given verb, and some information about it."
"Returns {OBJ location, STR verb} if matched, 0 if not."
"Location is the object on which it is actually defined, verb is a name"
"for the verb which can subsequently be used in verb_info (i.e., no"
"asterisks)."
{verbname} = args
verbname = strsub(verbname, "*", "")
if (valid(parent(this)))
  return `verb_info(this, verbname) && {this, verbname} ! E_VERBNF => 0' || parent(this):(verb)(@args)
else
  return `verb_info(this, verbname) && {this, verbname} ! E_VERBNF => 0'
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.