@verb #6570:"@averbs" any none none rxd #2633
@program #6570:"@averbs" any none none
"@averbs <dobj>"
"Essentially, shows you all verbs, on <dobj> and all of <dobj>'s parents, as well."
dobj = (p = player):my_match_object(argstr)
if (!$recycler:valid(dobj))
  return p:tell("No such object.")
endif
for x in ({dobj, @dobj:ancestors()})
  try
    verbl = verbs(x)
  except (E_PERM)
    verbl = {"Permission denied."}
    continue
  endtry
  p:tell("---- ", $su:nn(x))
  p:tell($su:columnize(verbl, 3))
endfor
"Last modified by Eve (#2633) on Thu Aug 20 20:01:51 1998 EDT."
.