inherit "/cmds/base";
int cmd() {
object *players;
int compressed;
if ( compressedp( this_player() ) ) {
tell_object( this_player(), "You are currently using MCCP to "
"connect to " + mud_name() + ".\n" );
}
else {
tell_object( this_player(), "You are not currently using MCCP to "
"connect to " + mud_name() + ". Please read 'help compression' for "
"more information about MCCP.\n" );
}
players = filter( users(), (: !$1->query_login_ob() &&
reference_allowed( $1, $(this_player()) ) :) );
compressed = sizeof( filter( players, (: compressedp :) ) );
tell_object( this_player(), "%^BOLD%^$C$" + query_num( compressed, 1000 ) +
" users (" + ((compressed * 100) / sizeof(players)) + "%) are "
"currently using MCCP and " + query_num(sizeof(players) - compressed, 1000) + " users (" + (((sizeof(players) - compressed) * 100) / sizeof(players)) + "%) are uncompressed.%^RESET%^\n" );
return 1;
} /* cmd() */
mixed *query_patterns() {
return ({ "", (: cmd :) });
} /* query_patterns() */
