int cmd() { string *aliases, alias_mess, message; int cols; aliases = keys( this_player()->query_aliases() ); if( !sizeof( aliases ) ) { tell_object( this_player(), "You have no aliases.\n" ); return 1; } message = "\nYou have the following aliases:\n"; // Alphabetize. aliases = sort_array( aliases, (: strcmp :) ); alias_mess = implode( aliases, ", " ); cols = this_player()->query_cols() - 3; message += sprintf( " %-=*s\n", cols, alias_mess ); message += "A total of " + sizeof( aliases ) + " aliases.\n"; tell_object( this_player(), message ); return 1; } /* cmd() */ mixed *query_patterns() { return ({ "", (: cmd() :) }); } /* query_patterns() */