/* /daemon/services/who.c
* from the Nightmare IV LPC Library
* handles the Intermud 3 who service
* created by Descartes of Borg 950623
* Modified for Discworld by Turrican 1-11-95
*/
#define SERVICE_WHO
void eventReceiveWhoReply(mixed *packet) {
string *list, *who;
object ob;
if( file_name(previous_object()) != INTERMUD_D ) return;
if( !packet[5] || !(ob = find_player(packet[5])) ) return;
list = ({ "Remote who information from " + packet[2] + ":" });
foreach(who in packet[6])
if (who[1] > 0)
list += ({ who[0] + " (Idle for " + who[1] + " second"+(who[1]>1?"s":"")+"): " + who[2] });
else
list += ({ who[0] + " (Not Idle): " + who[2] });
ob->more_string(implode(list, "\n")+"\n", "Who");
}
string query_status(object ob) {
switch((string)ob->query_object_type()) {
case " ":
return "Player";
case "C":
return "Creator";
case "A":
return "Creator playing";
case "L":
return "Lord";
case "X":
return "Logging in";
case "H":
return "HighLord";
default:
return "Unknown";
}
}
void eventReceiveWhoRequest(mixed *packet) {
mixed *msg;
if( file_name(previous_object()) != INTERMUD_D ) return;
msg = map(filter(users(), (: !((int)$1->query_invis()) :)),
(: ({ (string)$1->query_cap_name(), query_idle($1),
query_status($1) }) :));
INTERMUD_D->eventWrite(({ "who-reply", 5, mud_name(), 0, packet[2],
packet[3], msg }));
}
void eventSendWhoRequest(string mud, string who) {
INTERMUD_D->eventWrite(({ "who-req", 5, mud_name(), who, mud, 0 }));
}