viewing paste GM Online | Athena

Posted on the | Last edited on
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 33 34 35
//============Extraido do Eathena==============
//===========Traduzido por Angelo==============
//=================Artur Vale==================
//===================2013======================
prontera,155,171,5      script  GMs Online      436,{
mes "Staff ONline Agora : ^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 .gmlvl,60;          // Level Minimo de GM para aparecer na Lista
 
OnPCLoginEvent:
if( getgroupid() < .gmlvl ) end;
set .GM_Name$[ getarraysize( .GM_Name$ ) ],strcharinfo(0);
set .GM_Level[ getarraysize( .GM_Level ) ],getgroupid();
 
OnPCLogoutEvent:
if( getgroupid() < .gmlvl ) 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 548 times, submitted by Angelo.