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();
}