inherit "std/object";
void setup () {
set_short("Snowman");
set_long("A wonderfull snowman with glowing eyes made of coal and twigs "
"for ears.\n");
set_name("snowman");
call_out("die",400);
reset_get();
}
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";
}
void die() {
say("The snow man melts into the floor.\n");
dest_me();
}