/* 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 <config.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; }