@verb #7113:"@verbs" any none none rdo #7113
@program #7113:"@verbs" any none none
"Copied from Will_Smith (#7501):@verbs Oct 13 10:50:42 1996"
set_task_perms(player)
if (!$command_utils:object_match_failed(dobj = player:my_match_object(dobjstr), dobjstr))
  i = 1
  verbs = {}
  while ((info = `verb_info(dobj, i) ! E_VERBNF, E_PERM') != E_VERBNF)
    verbs = {@verbs, info == E_PERM ? E_PERM | info[3]}
    i = i + 1
  endwhile
  player:notify(tostr(";verbs(", dobj, ") => ", toliteral(verbs)))
endif
.