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