/** * Helpers command, used to display which newbie helpers are online at * the moment or to test if someone offline is a newbie helper. * <p> * Trial version. * <p> * @author Taffyd * @started 23/04/99 7:45PM */ #include <login.h> inherit COMMAND_BASE; int cmd() { object *helpers; string mess; helpers = filter( users(), (: !creatorp($1) && $1->query_property( "newbie helper" ) :) ); switch( sizeof( helpers ) ) { case 0: mess = "There are no newbie helpers logged on at the " "moment.\n"; break; case 1: if ( helpers[ 0 ] == this_player() ) { mess = "You are the only newbie helper logged on at the " "moment.\n"; } else { mess = helpers[ 0 ]->query_short() + " is the only newbie " "helper logged on at the moment.\n"; } break; default: mess = query_multiple_short( helpers->query_short() ) + " are " "newbie helpers.\n"; } tell_object( this_player(), mess ); return 1; } /* cmd() */ int test_helper( string player_name ) { player_name = lower_case( player_name ); if ( LOGIN_OB->test_property( player_name, "newbie helper" ) ) { tell_object( this_player(), capitalize( player_name ) + " is a newbie helper.\n" ); return 1; } tell_object( this_player(), capitalize( player_name ) + " is not a newbie helper.\n" ); return 1; } mixed *query_patterns() { return ({ "", (: cmd :), "<string'name'>", (: test_helper( $4[ 0 ] ) :) }); } /* query_patterns() */