Switch to edit mode.
Name(s): accessible_verbs1: " accessible_verbs(object) => a list of verb names (or E_PERM) regardless of readability of object"
2: set_task_perms(caller_perms())
3: thing = args[1]
4: verbs = {}
5: i = 1
6: while ((info = `verb_info(thing, i) ! ANY') != E_VERBNF)
7: verbs = {@verbs, info ? info[3] | E_PERM}
8: i = i + 1
9: endwhile
10: return verbs
11: "Last modified by Vladmir (#3936) on Fri Dec 31 11:12:27 2004 MST."