@verb #7165:"process" any none none rdo #7165
@program #7165:"process" any none none
player == this && player.wizard || raise(E_PERM)
spec = $code_utils:parse_verbref(args[1])
o = this:match_object(spec[1])
code = verb_code(o, spec[2])
ch = 0
for x in [1..length(code)]
  oldcode = code[x]
  while (m = match(code[x], "object_bytes(%([a-zA-Z0-9_]+%))"))
    ch = 1
    code[x][m[1]..m[2]] = tostr(code[x][m[3][1][1]..m[3][1][2]], ":object_bytes()")
  endwhile
  code[x] != oldcode && player:tell(x, ": ", oldcode, " => ", code[x])
endfor
if (ch && $command_utils:yes_or_no("Confirm?", 1))
  set_verb_code(o, spec[2], code)
  player:tell("Verb code changed.")
else
  player:tell("Verb code not changed.")
endif
"Last modified by manta (#7165) on Sat Sep 12 21:34:17 1998 EDT."
.