Автор: ????: Дата: 02.11.2009

Очень хороший и удобный отловщик Гмов )

prontera,145,174,4 script ГМ детектор 864,{ 

L_gmcheck: 

if (getgmlevel() == 99) { goto L_edit; } 



L_start: 

mes "[GM Status Checker]"; 

mes "Статус ГМ'ов-сервера:"; 

if (getarraysize($GM_Status$) == 0) { mes "No GM has been added to this list."; close; } 

set .loop,0; 



L_display: 

if (getmapxy(.mapname$,.x,.y,0,$GM_Status$[.loop]) == 0) { mes "- "+$GM_Status$[.loop]+": ^00FF00Online^000000"; } else { mes "- "+$GM_Status$[.loop]+": ^FF0000Offline^000000"; } 

set .loop,.loop + 1; 

if (.loop >= getarraysize($GM_Status$)) { close; } 

goto L_display; 



L_edit: 

mes "[GM Status Checker]"; 

mes "Привет,босс.Чего хочешь-то?"; 

menu "Покажи ГМов",-,"Добавить ГМ в лист.",L_add,"Удалить ГМ!",L_remove; 

next; 

goto L_start; 



L_add: 

next; 

mes "[GM Status Checker]"; 

mes "Введи имя"; 

input .GM$; 

mes "Ты уверен "+.GM$+" в имени и что хочешь его добавить?"; 

menu "Да",-,"Нет",L_add; 

setarray $GM_Status$[getarraysize($GM_Status$)],.GM$; 

mes "ГМ "+.GM$+" успешно добавлен."; 

set .GM$,""; 

next; 

goto L_edit; 



L_remove: 

next; 

mes "[GM Status Checker]"; 

mes "Введи имя ГМ"; 

input .GM$; 

mes "Ты уверен "+.GM$+" что хочешь удалить его??"; 

menu "Да",-,"Нет",L_add; 

set .loop,0; 

goto L_remove2; 



L_remove2: 

if ($GM_Status$[.loop] == .GM$) { deletearray $GM_Status$[.loop],1; } 

set .loop,.loop + 1; 

if (.loop > getarraysize($GM_Status$)) { mes "GM named "+.GM$+" has been removed."; next; goto L_edit; } 

goto L_remove2; 

}

Автор: : Дата: 01.01.1970