@verb #6570:"@code" any none none rxd #2633
@program #6570:"@code" any none none
"@code <obj>:<verb>"
"This verb takes a verb reference and prints out the code to verb <verb>, in a format free of line numbers, among other things. Ideally suited for code-swiping."
argstr ? ovl = $code_utils:parse_verbref(argstr) | (ovl = 0)
if (ovl == 0)
  return player:tell("Syntax:  @code &lt;obj&gt;:&lt;verb-name&gt;")
endif
{dobj, v} = {@ovl}
dobj = (p = player):my_match_object(dobj)
if (!$recycler:valid(dobj))
  return p:tell("No such object.")
elseif (!($code_utils:find_verb_named(dobj, v) != -1))
  return p:tell("No such verb.")
endif
code = {tostr("@program ", dobj, ":", v), @verb_code(dobj, v), "."}
index(code[$ - 1], "Last Modified By") ? code = {@code[1..$ - 2], "."} | 0
for line in (code)
  p:tell(line)
endfor
"Last modified by Dax (#789) on Thu Nov  8 11:53:55 2001 MST."
.