@verb #7854:"@verbs @vbs" any any any rxo #7854
@program #7854:"@verbs @vbs" any any any
"Copied from //eurotic fo (#4081):@verbs by daredevil (#6612) Nov 18 20:35:55 1997"
set_task_perms(caller_perms())
if (!dobjstr)
  if (verb[7] != "(" && verb[length(verb)] != ")")
    player:tell("Usage: @verbs <object>")
    return
  else
    dobjstr = verb[8..length(verb) - 1]
  endif
endif
thing = player:my_match_object(dobjstr)
if (!$command_utils:object_match_failed(thing, dobjstr))
  verbs = {}
  i = 1
  while ((info = `verb_info(thing, i) ! E_VERBNF, E_PERM') != E_VERBNF)
    verbs = {@verbs, info[3] || E_PERM}
    i = i + 1
  endwhile
  player:tell(";verbs(", thing, ") => ", toliteral(verbs))
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:34 2001 MST."
.