@verb #8084:"dump_primitive" this none this rxdo #55
@program #8084:"dump_primitive" this none this
caller_perms() == #8084 || raise(E_PERM)
{what} = args
output = {}
for x in [1..length(verbs(what))]
  avstr = ";add_verb(" + tostr(what) + ", "
  vi = verb_info(what, x)
  if (vi[1].wizard)
    avstr = avstr + "{#55, "
  else
    avstr = avstr + "{#60, "
  endif
  avstr = tostr(avstr, toliteral(vi[2..$])[2..$], ", ", toliteral(verb_args(what, x)), "); ")
  output = {@output, avstr}
  output = {@output, tostr(";set_verb_code(", what, ", ", x, ", ", toliteral(verb_code(what, x)), ");")}
endfor
player:tell($html_utils:literal_text(output))
"Last modified by Lao-Tzu (#8084) on Fri Oct  4 13:55:11 2002 MDT."
.