// corpse.c // Real old. Probably came with the mudlib.n, and probably took some // substantial hacking at TMI-1, though no one put a header on saying so. // Converted to 0.9.0 by Mobydick@TMI-2, 9-22-92, who added this header. #include <mudlib.h> inherit CONTAINER ; #define DECAY_TIME 100 string name; int decay; void prevent_insert() { write("The corpse is too big.\n"); return ; } void create() { ::create() ; name = "noone"; decay = 2; set ("mass", 2000) ; set ("bulk", 250) ; set ("short", "@@query_short") ; set ("capacity", 2000) ; set ("volume", 200) ; set ("prevent_insert", 1); set ("id", ({ "corpse", "remains", "body", "dead body", "corpse of " + name }) ); } void set_name(string str) { name = str; if(name) name = capitalize(name); set_open_long("This is the dead body of " + name + ".\n"); set("id", ({ "corpse", "remains", "body", "dead body", "corpse of " + name }) ); set("cap_name", "@@query_short"); call_out("decay", DECAY_TIME); } void decay() { decay -= 1; if(decay > 0) { call_out("decay", 20); return; } remove() ; } int can_put_and_get() { return 1; } string query_short() { if(decay == 2) return "Corpse of "+name; else return "The somewhat decayed remains of "+name; }