////////////////////////////////////////////////////////////////
//===== eAthena Script =======================================//
//= GM Status Checker ( deutsch ) //
//===== By: ==================================================//
//= Zafer //
//===== Current Version: =====================================//
//= 1.0 //
//===== Description: =========================================//
//= Zeigt an welche Gms ( wenn eingetragen ) On/Off sind //
//============================================================//
////////////////////////////////////////////////////////////////
prontera,126,192,8 script Gm Status Checker 871,{
set @npcname$,"[GM Status Checker]";
if ( getgmlevel() >= 99 ) {
switch ( select ( "ГМ Статус Онлайн","Добавить ГМа","Удалить ГМа" ) ) {
case 1:
for ( set @a,0; @a <= getarraysize($a_gms$); set @a,@a +1 ) {
if ( @a == 0 ) { mes "^CC0033GM Status------------^000000"; }
if ( $a_gms$[@a] == "" ) { mes "^CC0033GM Status------------^000000"; close;}
if ( getmapxy (.gm_map$,.gm_x,.gm_y,0,$a_gms$[@a] ) == 0 ) { mes "^CC0033|^000000 - "+$a_gms$[@a]+": ^00FF00Online^000000";} else { mes "^CC0033|^000000 - " +$a_gms$[@a]+": ^FF0000Offline^000000";}
if( @a == getarraysize($a_gms$) ) { mes "^CC0033GM Status------------^000000"; }
}
close;
case 2:
mes @npcname$;
mes "Вы хотите добавить ГМа в список онлайна?";
next;
announce "Mit \" exit \" Идёт обновление GM Status Online.",bc_blue|bc_self;
input @input$;
if ( @input$ == "exit" ) || ( @input$ == "Exit" ) {close;}
next;
mes @npcname$;
mes "Вы точно уверены ^CC0033"+@input$+"^000000 что хотите добавить Гма в список онлайна?";
next;
if ( select ( "Нет.","Да." ) !=1 ) {
set $a_gms$[getarraysize($a_gms$)],@input$;
mes @npcname$;
mes "^CC0033"+@input$+"^000000 ГМ был успешно добавлен в список онлайна.";
close;
} else {
close;
}
case 3:
mes @npcname$;
mes "Вы хотите уделать ГМа из списка онлайна?";
next;
announce "Mit \" exit \" Идёт обновление GM Status Online.",bc_blue|bc_self;
input @input$;
if ( @input$ == "exit" ) || ( @input$ == "Exit" ) {close;}
next;
mes "Вы точно уверены ^CC0033"+@input$+"^000000 что хотите удалить Гма из списка онлайна?";
next;
if ( select ( "Нет.","Да." ) !=1 ) {
for ( set @a,0; @a <= getarraysize($a_gms$); set @a, @a+1 ) {
if ( @input$ == $a_gms$[@a] ) { deletearray $a_gms$[@a],1; mes @npcname$; mes ""+@input$+" ГМ был успешно удалён со списка онлайна"; close; }
}
mes @npcname$;
mes @input$+" ГМ небыл найден";
close;
}
}
}
if ( getgmlevel() < 99 ) {
for ( set @a,0; @a <= getarraysize($a_gms$); set @a,@a +1 ) {
if ( @a == 0 ) { mes "^CC0033GM Status------------^000000"; }
if ( $a_gms$[@a] == "" ) { mes "^CC0033GM Status------------^000000"; close;}
if ( getmapxy (.gm_map$,.gm_x,.gm_y,0,$a_gms$[@a] ) == 0 ) { mes "^CC0033|^000000 - "+$a_gms$[@a]+": ^00FF00Online^000000";} else { mes "^CC0033|^000000 - " +$a_gms$[@a]+": ^FF0000Offline^000000";}
if( @a == getarraysize($a_gms$) ) { mes "^CC0033GM Status------------^000000"; }
}
close;
}
}
