/* -*- LPC -*- */ /* * $Locker: $ * $Id: guildl_ist.c,v 1.1 1998/01/06 05:25:41 ceres Exp $ * $Log: guildl_ist.c,v $ * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ inherit "/cmds/base"; int cmd(string arg) { object ob; mapping guilds; string guild, *fields; guilds = ([ ]); foreach(ob in users()) { if(ob->query_creator()) continue; if(!ob->query_guild_ob()) { guilds["none"]++; } else { fields = explode((string)ob->query_guild_ob(), "/"); guilds[fields[2]]++; } } write("Guild memberships:\n"); foreach(guild in keys(guilds)) printf(" %s: %d\n", guild, guilds[guild]); return 1; }