View/Edit #7165:@clone

Switch to edit mode.

1:  if (player != this)
2:    return $msg:mtell("huh")
3:  endif
4:  dobj = this:my_match_object(dobjstr)
5:  new_object = $recycler:create(parent(dobj))
6:  move(new_object, this)
7:  for x in [1..length(verbs(dobj))]
8:    add_verb(new_object, verb_info(dobj, x), verb_args(dobj, x))
9:    set_verb_code(new_object, length(verbs(new_object)), verb_code(dobj, x))
10:   suspend(0)
11: endfor
12: for x in (dobj:all_properties())
13:   add_property(new_object, x, 0, property_info(dobj, x))
14:   new_object:("_set_" + x)(dobj:("_get_" + x)())
15:   suspend(0)
16: endfor
17: "Last modified by Dax (#789) on Sun Aug 16 22:16:50 1998 EDT."

[home | help | who | search | setup | code]