@verb #1:"has_callable_verb" this none this rxd #55
@program #1:"has_callable_verb" this none this
"Usage:  object:has_callable_verb(verb)"
"See if an object has a verb that can be called by another verb (i.e., that has its x permission bit set)."
"Return {location}, where location is the object that defines the verb, or 0 if the object doesn't have the verb."
{verbname} = args
if (verbname == tostr(toint(verbname)))
  return 0
elseif (valid(parent(this)))
  return `index(verb_info(this, verbname)[2], "x") && {this} ! E_VERBNF => 0' || parent(this):(verb)(verbname)
else
  return `index(verb_info(this, verbname)[2], "x") && {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 Tue May  3 14:11:53 2005 MDT."
.