| … | |
… | |
| 811 | object *op = get_object (); |
811 | object *op = get_object (); |
| 812 | |
812 | |
| 813 | if ((at = type_to_archetype (type)) == NULL) |
813 | if ((at = type_to_archetype (type)) == NULL) |
| 814 | { |
814 | { |
| 815 | LOG (llevError, "Can't clone archetype %d\n", type); |
815 | LOG (llevError, "Can't clone archetype %d\n", type); |
| 816 | free_object (op); |
816 | op->destroy (0); |
| 817 | return NULL; |
817 | return NULL; |
| 818 | } |
818 | } |
| 819 | |
819 | |
| 820 | copy_object (&at->clone, op); |
820 | copy_object (&at->clone, op); |
| 821 | op->instantiate (); |
821 | op->instantiate (); |
