viewing paste GM Online List | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
//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";
        }
 
OnInit:
set .MinGMLevel,60;             // Min. GM Level to Show in Online Lists
 
OnPCLoginEvent:
if( getgmlevel() < .MinGMLevel ) end;
set .GM_Name$[ getarraysize( .GM_Name$ ) ],strcharinfo(0);
set .GM_Level[ getarraysize( .GM_Level ) ],getgmlevel();
 
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;
        }
}
Viewed 296 times, submitted by unknown.