prontera,155,171,5	script	GM Online Lists	436,{
mes "Staffs Online Lists : ^FF0000"+getarraysize( .GM_Name$ )+"^000000 Staffs";
mes "^0000FF_____________________________^000000";
for( set .@i,0; .@i < getarraysize( .GM_Name$ ) ; set .@i,.@i + 1 ){
	getmapxy( .@Map$,.@x,.@y,0,.GM_Name$[.@i] );

	if( checkvending( .GM_Name$[.@i] ) set .@status$,"Vending";
	else if( checkchatting( .GM_Name$[.@i] ) set .@status$,"Chatroom";
	else set .@status$,"ACTIVE";

	if( .GM_Level[.@i] == 99 ) set .@title$,"ADMIN";
	else if( .GM_Level[.@i] >= 90 ) set .@title$,"CO-ADMIN";
	else if( .GM_Level[.@i] >= 60 ) set .@title$,"EVENT GM";
	else if( .GM_Level[.@i] >= 40 ) set .@title$,"POLICE GM";
	else set .@title$,"";

	mes "[ ^FF0000"+.@title$+" ] ^0055FF"+.GM_Name$[.@i]+"^000000";
	mes "Status : ^FF0000"+.@status$+" ^0055FFMap : "+.@Map$+"^000000";
	mes "^0000FF_____________________________^000000";

	}
close;

OnInit:
set .MinGMLevel,40;		// Min. GM Level to Show in Online Lists
end;

OnPCLoginEvent:
if( getgmlevel() < .MinGMLevel ) end;
set .GM_Name$[ getarraysize( .GM_Name$ ) ],strcharinfo(0);
set .GM_Level[ getarraysize( .GM_Level ) ],getgmlevel();
end;

OnPCLogoutEvent:
if( getgmlevel() < .MinGMLevel ) end;
for( set .@i,0; .@i < getarraysize( .GM_Name$ ) ; set .@i,.@i + 1 ){
	if( strcharinfo(0) != .GM_Name$[.@i] ) continue;
	deletearray .GM_Name$[.@i],1;
	deletearray .GM_Level[.@i],1;
	end;
	}
end;
}