/* -*- LPC -*- */
/* Online *
* Gototh *
* 08/12/97 */
inherit COMMAND_BASE;
string idle_time(object person) {
int hours, mins, secs;
string s, m, h;
secs = query_idle(person);
mins = secs / 60;
secs %= 60;
hours = mins / 60;
mins %= 60;
s = ("0"+secs)[<2..<1];
m = ("0"+mins)[<2..<1];
if ( !hours ) {
return " (idle: "+m+":"+s+")";
}
h = ("0"+hours)[<2..<1];
return " (idle: "+h+":"+m+":"+s+")";
} /* idle_time() */
mixed cmd() {
object *people, person;
string *cre, *invis, *lord, *high, bing;
cre = ({ });
invis = ({ });
lord = ({ });
high = ({ });
people = filter_array( users(), (: creatorp($1) :) );
people = people - this_player()->query_ignoring( people );
people = sort_array( people,
(: strcmp( $1->query_name(), $2->query_name() ) :) );
foreach( person in people ) {
bing = person->query_cap_name();
if ( query_idle( person ) > 120 ) {
bing += idle_time( person );
}
switch( person->query_invis() ) {
case 0:
cre += ({ bing });
break;
case 1:
invis += ({ bing });
break;
case 2:
lord += ({bing});
break;
default:
high += ({bing});
break;
}
}
if(sizeof(cre)) {
tell_object(this_player(),
"/global/player/events"->convert_message("$I$2=%^GREEN%^"
"Visible%^RESET%^: "+query_multiple_short(cre)+".\n"));
}
if(sizeof(invis)) {
tell_object(this_player(),
"/global/player/events"->convert_message("$I$2=%^CYAN%^"
"Invisible%^RESET%^: "+query_multiple_short(invis)+".\n"));
}
if(sizeof(lord)) {
tell_object(this_player(),
"/global/player/events"->convert_message("$I$2=%^YELLOW%^Lord "
"Invisible%^RESET%^: "+query_multiple_short(lord)+".\n"));
}
if(sizeof(high)) {
tell_object(this_player(),
"/global/player/events"->convert_message("$I$2=%^RED%^ADMIN "
"Invisible%^RESET%^: "+query_multiple_short(high)+".\n"));
}
return 1;
} /* cmd() */
