Автор: Respect: Дата: 04.26.2009

Менеджер

prontera,155,182,3 script Менеджер гильдий 701,{
mes "[Менеджер гильдий]";
mes "Привет, "+strcharinfo(0);
mes "Я менеджер компании поддержки гильдий.";
mes "Что ты хочешь сделать?";
switch(select("Гильдии сервера:Отдать гильдию:Отмена")){

case 1:
next;
deletearray .@namegd$, 128;
deletearray .@lvgd$, 128;
query_sql "select name, guild_lv from guild order by guild_lv desc limit 20",.@namegd$,.@lvgd;

for ( set .@y,0; .@y < getarraysize(.@namegd$); set .@y, .@y + 20) {
mes "[Крендил]";
for ( set .@i, .@y; .@i < (20 + .@y) && .@i < getarraysize(.@namegd$); set .@i, .@i + 1 ) {
mes "^996600"+ (.@i+1) +": ^006699"+ .@namegd$[.@i] +" - ^00AA00"+ .@lvgd[.@i] +" лв^FF0000";
}
}
close;

case 2:
mes "[Менеджер гильдий]";
mes "Эта услуга не бесплатана.";
mes "Чтобы отдать свою гильдию ты должен заплатить 5 000 000з.";
mes "Оба игрока олжны быть в онлайне и состоять в одной гильдии.";
next;
mes "[Крендил]";
mes "Ты все ещё хочешь отдать гильдию?";
switch(select("Да:Нет")){

case 1:
if (zeny < 5000000) {
mes "[Менеджер гильдий]";
mes "У тебя не хватает денег";
break;
}
mes "[Менеджер гильдий]";
mes "Ты уверен?";
switch(select("Да:Нет")){
case 1:
mes "[Менеджер гильдий]";
mes "Хорошо, введи имя игрока, которому ты хочешь отдать гильдию.";
mes "Но будь внимателен, если ты введешь не правельное имя или игрок не будет находитьсяв онлайне и в твоей гильдии, то деньги тебе уже не вернут.";
input @nameforgd$;
next;
mes "[Менеджер гильдий]";
mes "Ты ввел ^006699"+@nameforgd$+"^000000";
mes "Это правельное имя?";
switch(select("Да:Нет")){

case 1:
set zeny,zeny-5000000;
atcommand strcharinfo(0)+"@changegm "+@nameforgd$;
mes "[Менеджер гильдий]";
mes "Готово";
close;

case 2:
mes "[Менеджер гильдий]";
mes "Приятного дня";
close;
}


case 2:
mes "[Менеджер гильдий]";
mes "Приятного дня";
close;
}

case 2:
mes "[Менеджер гильдий]";
mes "Приятного дня";
close;
}

case 3:
mes "[Менеджер гильдий]";
mes "Приятного дня";
close;
}
}

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