inherit "/std/book_dir"; #define DEAD_PAGES "/save/books/dead/dead_page" void setup() { int i, max; seteuid(getuid()); add_property("dead usable", 1); set_short("dark brown book"); set_name("book"); add_adjective( ({ "dark", "brown", "dead", "death", "dieing" }) ); set_long("The book has some writing " "burnt into the dark brown leather cover.\n"); add_read_mess("Introduction to death, or what to " "do when your blood runs out", 0, "general", 0 ); set_book_language("general"); set_book_dir(DEAD_PAGES); set_open_page(0); } /* setup() */ void recovery_from_death() { call_out((: tell_object($1, the_short()+" crumbles and vanishes " "mysteriously.\n") :), 1, previous_object()); call_out("dest_me", 2); } /* recovery_from_death() */ mixed query_static_auto_load() { return 0; } mixed query_dynamic_auto_load() { return 0; } mixed query_auto_load() { return 0; } void check_location() { if (environment() && !environment()->query_property("dead") && !environment()->query_creator()) { say(the_short()+" vanishes suddenly and randomly.\n"); call_out("dest_me", 1); } } /* check_location() */ varargs int move(object dest, string mess1, string mess2) { ::move(dest, mess1, mess2); call_out("check_location", 1); } /* move() */