67 lines
2.0 KiB
C
67 lines
2.0 KiB
C
/* Hiccups@Frontiers, 12/16/96 */
|
|
/* Fixes by Haderach, 05 SEP 2005 */
|
|
/* RWHO check by Shadyman, 2006-Sep-12 */
|
|
|
|
#include <lib.h>
|
|
#include <privs.h>
|
|
|
|
inherit LIB_DAEMON;
|
|
|
|
#define SEP repeat_string("*=",37)+"*<br>";
|
|
|
|
varargs string gateway(int strip_html) {
|
|
int p;
|
|
string x, tmp="", ret="";
|
|
object *obs;
|
|
|
|
p = 0;
|
|
obs=users();
|
|
|
|
for (int i=0; i<sizeof(users()); i++) {
|
|
if(!obs[i] || !environment(obs[i])) continue;
|
|
if(obs[i]->GetKeyName() != last_string_element(base_name(obs[i]),"/")) continue;
|
|
if(!obs[i]->GetInvis()) {
|
|
if(archp(obs[i])) tmp+="[ARCH]";
|
|
else if(creatorp(obs[i]) ) tmp+="[WIZ]";
|
|
else if(avatarp(obs[i]) ) tmp+="[AVATAR]";
|
|
else if(high_mortalp(obs[i]) ) tmp+="[HIGH MORTAL]";
|
|
else tmp+=sprintf("[%d]", obs[i]->GetLevel() );
|
|
if(elderp(obs[i])) tmp+="[ELDER]";
|
|
if(ambassadorp(obs[i])) tmp+="[AMBASSADOR]";
|
|
tmp += ": ";
|
|
if(sizeof(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+=" (sleeping) ";
|
|
else if (obs[i]->GetProperty("afk")) tmp+=" (afk)";
|
|
else if (query_idle(obs[i])>240 && obs[i]->GetInCombat()!=1) tmp+=" (idle)";
|
|
else if (in_edit(obs[i])) tmp+=" (edit)";
|
|
else if(obs[i]->GetInCombat()) tmp+=" (combat)";
|
|
tmp+="<br>";
|
|
p++;
|
|
}
|
|
}
|
|
if(!strip_html){
|
|
ret+="<center>"+mud_name()+"</center><br>";
|
|
}
|
|
else {
|
|
ret+=mud_name()+"\n";
|
|
}
|
|
ret+=SEP;
|
|
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.<br>";
|
|
ret+=center(x);
|
|
if(strip_html){
|
|
ret = replace_string(ret,"<br>","\n");
|
|
}
|
|
return ret;
|
|
}
|