@verb #6570:"@packed @stuffed" none none none rxdo #61
@program #6570:"@packed @stuffed" none none none
"@packed"
"Shows you all the verbs you have packed..."
(p = player):tell(verb, " verbs...")
found_a_verb = 0
for prop in (properties(p))
  if (w = index(prop, "_code"))
    {dobj = prop[w + 5..length(prop)], v = prop[1..w - 1], pvr = tostr(dobj, ":", v)}
    {p:tell("  ", $string_utils:left(prop, 30), "  ", pvr), found_a_verb = 1}
  endif
endfor
found_a_verb == 0 ? p:tell("  No ", verb, " verbs found.") | 0
p:tell("Done.")
.