View/Edit #9131:@iverbs

Switch to edit mode.

1:  "Copied from d.Fo (#6570):@iverbs by Everyman (#61) Jun 13 15:14:48 2003"
2:  "$prog:@iverbs #<obj>"
3:  if (player || caller != this)
4:    raise(E_PERM)
5:  endif
6:  dobj = (p = player):my_match_object(argstr)
7:  if (!argstr)
8:    return p:tell("Syntax:  @iverbs #<obj>")
9:  elseif (!$recycler:valid(dobj))
10:   return p:tell("No such object.")
11: elseif (!(verbs = verbs(dobj)))
12:   return p:tell("There are no verbs on ", $string_utils:nn(dobj), ".")
13: endif
14: iverbs = {}
15: for v in (verbs)
16:   fv = $string_utils:first_word(v)[1]
17:   if (w = index(fv, "*"))
18:     fv = fv[1..w - 1] + fv[w + 1..length(fv)]
19:   endif
20:   try
21:     {owner, perms, fvn} = verb_info(dobj, fv)
22:     vargs = verb_args(dobj, fv)
23:   except e (ANY)
24:     {owner, perms, vargs, fvn} = {"#?", "????", {"????", "????", "????"}, v}
25:   endtry
26:   iverbs = {@iverbs, {fv, tostr(owner), perms, $string_utils:from_list(vargs, " "), fvn}}
27:   seconds_left() < 2 ? suspend(0) | 0
28: endfor
29: p:tell($string_utils:center(tostr(" Information for verbs on: ", $string_utils:nn(dobj), " "), p:linelength(), "-", "-"))
30: #6570:tell_columns({15, 5, 5, 17, p:linelength() - 50}, {"verb", "owner", "perms", "arguments", "full verb name"}, iverbs, 1, 1)

[home | help | who | search | setup | code]