@verb #6570:"@iverbs" any none none rxd #61
@program #6570:"@iverbs" any none none
"$prog:@iverbs #<obj>"
set_task_perms(caller_perms())
dobj = (p = player):my_match_object(argstr)
if (!argstr)
  return p:tell("Syntax:  @iverbs #<obj>")
elseif (!$recycler:valid(dobj))
  return p:tell("No such object.")
elseif (!(verbs = verbs(dobj)))
  return p:tell("There are no verbs on ", $string_utils:nn(dobj), ".")
endif
iverbs = {}
for v in (verbs)
  fv = $string_utils:first_word(v)[1]
  if (w = index(fv, "*"))
    fv = fv[1..w - 1] + fv[w + 1..length(fv)]
  endif
  try
    {owner, perms, fvn} = verb_info(dobj, fv)
    vargs = verb_args(dobj, fv)
  except e (ANY)
    {owner, perms, vargs, fvn} = {"#?", "????", {"????", "????", "????"}, v}
  endtry
  iverbs = {@iverbs, {fv, tostr(owner), perms, $string_utils:from_list(vargs, " "), fvn}}
  seconds_left() < 2 ? suspend(0) | 0
endfor
p:tell($string_utils:center(tostr(" Information for verbs on: ", $string_utils:nn(dobj), " "), p:linelength(), "-", "-"))
this:tell_columns({15, 5, 5, 17, p:linelength() - 50}, {"verb", "owner", "perms", "arguments", "full verb name"}, iverbs, 1, 1)
"Last modified by Eve (#2633) on Sat Sep 16 05:11:38 2000 MDT."
.