/* -*- LPC -*- */
/*
* $Locker: $
* $Id: who.c,v 1.62 2003/07/25 18:11:56 pinkfish Exp $
*
*/
/* who command, trial out by Turrican for a commands daemon. */
#include <clubs.h>
#include <playtesters.h>
#include <config.h>
inherit "/cmds/base";
#include <player.h>
string who_string(int width, int cre, int verbose, string name);
string who_line(object ob, int cre, int width);
mapping _nationalities;
void create() {
string file;
object ob;
::create();
_nationalities = ([ ]);
foreach(file in get_dir("/std/nationality/*.c")) {
ob = find_object("/std/nationality/" + file);
if(ob && ob->query_name()) {
_nationalities[ob->query_name()] = base_name(ob);
}
}
}
/**
* This is used by the other who commands to do the object mapping
* to figure out who to include in the list.
* @param tarr the array to get the filtered list from
* @param name the name of the guilds to filter on
* @param no_cres do not include any creators
* @return the array of filtered objects
*/
object *filter_users(object *tarr, string name, int no_cres) {
string *guilds;
string guild;
string start_guild;
string *domains;
object *ret_arr;
object *arr;
int not_tag;
name = lower_case(name);
name = replace(name, ({"assassins", "assassin",
"priests", "priest",
"thieves", "thief",
"warriors", "warrior",
