/* Hiccups@Frontiers, 12/16/96 */
/* Fixes by Haderach, 05 SEP 2005 */
/* RWHO check by Shadyman, 2006-Sep-12 */
#include <lib.h>
#include <privs.h>
#include <daemons.h>
inherit LIB_DAEMON;
mapping instinfo;
mixed instances;
#define SEP repeat_string("*=",39)+"*\n";
static int LevelSort(mixed one, mixed two){
int i1, i2, alpha;
string s1, s2;
if(objectp(one)){
i1 = one->GetLevel();
s1 = one->GetName();
if(creatorp(one)) alpha = 1;
}
if(objectp(two)){
i2 = two->GetLevel();
s2 = two->GetName();
if(creatorp(two)) alpha = 1;
}
if(stringp(one) && sizeof(instinfo) && instinfo[one]){
i1 = instinfo[one]["level"];
s1 = one;
if(instinfo[one]["creator"]) alpha = 1;
}
if(stringp(two) && sizeof(instinfo) && instinfo[two]){
i2 = instinfo[two]["level"];
s2 = two;
if(instinfo[two]["creator"]) alpha = 1;
}
if(alpha) return strcmp(s1, s2);
if(i1 > i2) return -1;
else if(i2 > i1) return 1;
else if(s1 && s2) return strcmp(s1, s2);
return -1;
}
int cmd(string args) {
int p;
string x, tmp="", ret="";
object *obs;
if (args && args[0] == '@') { //If there's an @ in the first arg character, it's an rwho request.
if( sizeof(args) <=1 ) return notify_fail("Get a remote who from where?"); //If there's only an @, tell them to RTFM.
"/cmds/players/rwho"->cmd(args[1..]); //Pass it the mud name without the @
return 1;
} else {
mixed arches, cres, players;
p = 0;
arches = sort_array(filter(users(), (: archp($1) :)),
"LevelSort");
cres = sort_array(filter(users(), (: !archp($1) && creatorp($1):)),
"LevelSort");
players = sort_array(filter(users(), (: !creatorp($1) :)),
"LevelSort");
obs = arches + cres + players;
for (int i=0; i<sizeof(users()); i++) {
string fnm;
if(!obs[i] || !environment(obs[i])) continue;
sscanf(last_string_element(base_name(obs[i]), "/"),"%s.%*s", fnm);
if(fnm && fnm != obs[i]->GetKeyName()) continue;
if(!obs[i]->GetInvis()){
if(archp(obs[i])) tmp+="[%^BLUE%^ARCH%^RESET%^]";
else if(creatorp(obs[i]) ) tmp+="[%^CYAN%^WIZ%^RESET%^]";
else if(avatarp(obs[i]) ) tmp+="[%^GREEN%^AVATAR%^RESET%^]";
else if(high_mortalp(obs[i]) ) tmp+="[%^GREEN%^HIGH MORTAL%^RESET%^]";
else tmp+=sprintf("[%d]", obs[i]->GetLevel() );
if(elderp(obs[i])) tmp+="[%^YELLOW%^ELDER%^RESET%^]";
if(testp(obs[i]) && !archp(obs[i])) tmp+="[%^B_CYAN%^%^BLACK%^TEST%^RESET%^]";
if(ambassadorp(obs[i])) tmp+="[%^YELLOW%^AMBASSADOR%^RESET%^]";
tmp += ": ";
if(sizeof(strip_colours(obs[i]->GetShort())) < 50) {
tmp+=sprintf(" %s", obs[i]->GetShort());
}
else {
tmp+=" "+capitalize(obs[i]->GetKeyName())+ " the Long-Titled.";
}
if(obs[i]->GetSleeping() > 0) tmp+=" (%^YELLOW%^sleeping%^RESET%^) ";
else if (obs[i]->GetProperty("afk")) tmp+=" (%^YELLOW%^afk%^RESET%^)";
else if (query_idle(obs[i])>240 && obs[i]->GetInCombat()!=1) tmp+=" (%^YELLOW%^idle%^RESET%^)";
else if (in_edit(obs[i])) tmp+=" (%^RED%^edit%^RESET%^)";
else if(obs[i]->GetInCombat()) tmp+=" (%^RED%^combat%^RESET%^)";
tmp+="%^RESET%^\n";
p++;
}
}
ret+=center(mud_name());
ret+=SEP;
ret+=tmp;
instances = INSTANCES_D->GetInstances();
if(ENABLE_INSTANCES) instances = ({ "global" });
tmp = INSTANCES_D->GetMyInstanceName();
if(tmp && instances) instances -= ({ tmp });
tmp = "";
foreach(string inst in sort_array(instances, 1)){
mixed guys;
mapping tmpmap;
if(!inst) continue;
arches = ({});
cres = ({});
players = ({});
guys = ({});
instinfo = INSTANCES_D->GetInstData()[inst];
//if(inst == "global") inst = "dev";
tmp += "\n"+center("--- Instance: "+capitalize(inst)+" ---\n");
if(!sizeof(instinfo) || !mapp(instinfo["users"])) continue;
foreach(string name, mapping data in instinfo["users"]){
if(!name) continue;
if(!mapp(data)) continue;
if(data["arch"]) arches += ({ name });
else if(data["creator"]) cres += ({ name });
else players += ({ name });
}
arches = sort_array(arches, "LevelSort");
cres = sort_array(cres, "LevelSort");
players = sort_array(players, "LevelSort");
guys = arches + cres + players;
foreach(string dude in guys){
if(!dude) continue;
tmpmap = instinfo["users"][dude];
if(!sizeof(tmpmap)) continue;
if(tmpmap["status"] < 1) continue;
if(tmpmap["arch"])tmp += "[%^BLUE%^ARCH%^RESET%^]";
else if(tmpmap["creator"]) tmp += "[%^CYAN%^WIZ%^RESET%^]";
else tmp += "["+tmpmap["level"]+"]";
tmp += ": " + tmpmap["title"];
tmp += "%^RESET%^\n";
}
ret += tmp;
}
ret+=SEP;
x="There ";
(p==1) ? x+="is " : x+="are ";
x+=cardinal(p);
(p==1) ? x+=" member " : x+=" members ";
x+="of our reality.\n";
ret+=center(x);
if(check_string_length(ret)) this_player()->eventPrint(""+ret+"");
else print_long_string(this_player(),ret);
return 1;
}
}
void help() {
write("Syntax: <who [@mud]>\n\n"
"Gives you a who list in abbreviated form from this mud or other muds on the I3 or IMC2 network.\n"
);
}
