inherit "/obj/armour"; #include <move_failures.h> void setup(){ set_name("pendant"); set_short("butterfly lover's pendant"); add_adjective(({"butterfly", "lovers", "lover's"})); set_long("A finely wrought enamel pendant in brilliant hues of blue " "and green has two silver filigree wings. Each wing is dotted with tiny " "peridots and emeralds. When the pendant is opened, it splits in half. " "The pendant drops from a silver filigree chain. A second matching chain " "is included. Open the pendant to create two necklaces, one for each lover.\n"); set_type("necklace"); add_property("no recycling", 1); set_value(12000); } int do_open(){ object left, right; add_succeeded_mess("$N split$s the pendant in two, then connect$s the chain " "cunningly crafted inside onto the other half.\n",({})); left=clone_object("/obj/armour"); left->set_name("pendant"); left->set_short("butterfly left wing lovers pendant"); left->set_long("A finely wrought enamel pendant drops from a silver filigree chain. The " "intricate left wing of a butterfly is fashioned of silver filigree dotted " "with tiny peridots and emeralds. Your lover wears the right wing of the " "butterfly to symbolize your shared love.\n"); left->set_short("butterfly left wing lover's pendant"); left->add_property("no recycling", 1); left->add_adjective(({"butterfly", "left", "wing","lovers", "lover's"})); left->set_type("necklace"); left->set_value(0); left->move(environment(this_player())); if(left->move(this_player()) != MOVE_OK) write("You drop the left wing pendant.\n"); right=clone_object("/obj/armour"); right->set_name("pendant"); right->set_short("butterfly right wing lovers pendant"); right->set_long("A finely wrought enamel pendant drops from a silver filigree chain. The " "intricate right wing of a butterfly is fashioned of silver filigree dotted " "with tiny peridots and emeralds. Your lover wears the left wing of the " "butterfly to symbolize your shared love.\n"); right->set_short("butterfly right wing lover's pendant"); right->add_adjective(({"butterfly", "right", "wing","lovers", "lover's"})); right->set_type("necklace"); right->set_value(0); right->add_property("no recycling",1); right->move(environment(this_player())); if(right->move(this_player()) != MOVE_OK) write("You drop the right wing pendant.\n"); move("/room/rubbish"); return 1; } void init(){ add_command("open", "<direct:object>"); add_command("split", "<direct:object>", (:do_open():)); }