//Credits to Emistry
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] );
    mes "[ Lv ^63D1F4"+.GM_Level[.@i]+"^000000 ] ^FF0000@ ^0000FF"+.GM_Name$[.@i]+"^000000";
    mes "Location : ^0000FF"+.Map$+"^000000";
    mes "^0000FF_____________________________^000000";
    }
close;
 
OnInit:
set .MinGMLevel,60;     // 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;
}