@verb #1:"has_verb" this none this rxd #55
@program #1:"has_verb" this none this
"object:has_verb(verbname)"
"Find out if an object has a verb matching the given verbname."
"Returns {location} if so, 0 if not, where location is the object or the ancestor on which the verb is actually defined."
{verbname} = args
if (valid(parent(this)))
  return `verb_info(this, verbname) && {this} ! E_VERBNF => 0' || parent(this):has_verb(verbname)
else
  return `verb_info(this, verbname) && {this} ! 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:03 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:03 2002 MDT."
.