inherit OBJECT_OBJ; void setup () { set_short("snowman"); set_long("A wonderful snowman with glowing eyes made of coal and twigs "+ "for ears.\n"); set_name("snowman"); call_out("die",400); reset_get(); } /* setup() */ string long(string str, int dark) { int i; i=find_call_out("die"); if (i > 300 || i < 0) { 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() */