2a4
@verb #7165:"@clone" any none none rdo #7165
@program #7165:"@clone" any none none
if (player != this)
  return $msg:mtell("huh")
endif
dobj = this:my_match_object(dobjstr)
new_object = $recycler:create(parent(dobj))
move(new_object, this)
for x in [1..length(verbs(dobj))]
  add_verb(new_object, verb_info(dobj, x), verb_args(dobj, x))
  set_verb_code(new_object, length(verbs(new_object)), verb_code(dobj, x))
  suspend(0)
endfor
for x in (dobj:all_properties())
  add_property(new_object, x, 0, property_info(dobj, x))
  new_object:("_set_" + x)(dobj:("_get_" + x)())
  suspend(0)
endfor
"Last modified by Dax (#789) on Sun Aug 16 22:16:50 1998 EDT."
.

0