inherit OBJECT_OBJ; void setup () { set_short("snowwoman"); set_main_plural("snowwomen"); set_long("A wonderful snowwoman with glowing eyes made of coal and twigs "+ "for ears.\n"); set_name("snowwoman"); call_out("die",400); reset_get(); } /* setup() */ string long(string str, int dark) { int i; if ((i=find_call_out("die")) > 300) return ::query_long(); return ::query_long()+"It is "+({ "mostly", "half", "slightly" })[i/100]+ " melted.\n"; } /* long() */ void die() { say("The snowman melts into the floor.\n"); dest_me(); } /* die() */