/** * Health command by Ceres * @change Rewritten completely, Sandoz, 2001, though it's still not good. */ #define CONV(x) CAP( TP->convert_message(x) ) inherit COMMAND_BASE; /** @ignore yes */ int cmd( object *who ) { object person; string health, ret; if( TP->check_dark( (int)ENV(TP)->query_light() ) ) { add_failed_mess("You cannot see well enough to examine someone's " "health.\n"); return 0; } ret = ""; foreach( person in who ) { if( person->query_property("dead") ) { if( person == TP ) ret += "You appear to be dead.\n"; else ret += CONV( person->one_short() )+" appears to be dead.\n"; } else if( health = person->health_string( person, 1 ) ) { if( person == TP ) ret += replace_string( health, "$who$ is", "You are")+"\n"; else ret += replace_string( health, "$who$", CONV( person->one_short() ) )+"\n"; } else { ret += person->one_short()+" is so unhealthy "+person->HE+" " "has forgotten how healthy "+person->HE+" is.\n"; } } add_succeeded_mess( ({ ret, "$N studies $I.\n" }), who ); return 1; } /* cmd() */ /** @ignore yes */ mixed query_patterns() { return ({"<indirect:living:here>", (: cmd($1) :) }); } /* query_patterns() */