View/Edit #7854:@verbs @vbs

Name(s): @verbs @vbs

1:  "Copied from //eurotic fo (#4081):@verbs by daredevil (#6612) Nov 18 20:35:55 1997"
2:  set_task_perms(caller_perms())
3:  if (!dobjstr)
4:    if (verb[7] != "(" && verb[length(verb)] != ")")
5:      player:tell("Usage: @verbs &lt;object&gt;")
6:      return
7:    else
8:      dobjstr = verb[8..length(verb) - 1]
9:    endif
10: endif
11: thing = player:my_match_object(dobjstr)
12: if (!$command_utils:object_match_failed(thing, dobjstr))
13:   verbs = {}
14:   i = 1
15:   while ((info = `verb_info(thing, i) ! E_VERBNF, E_PERM') != E_VERBNF)
16:     verbs = {@verbs, info[3] || E_PERM}
17:     i = i + 1
18:   endwhile
19:   player:tell(";verbs(", thing, ") => ", toliteral(verbs))
20: endif
21: "Last modified by Dax (#789) on Thu Nov  8 11:38:34 2001 MST."

Verb arguments: any any any
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Cyberspeed (#7854)

You are not logged in.