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

Название: Евент менеджер (Event Manager)
Описание: НПЦ)



Тип: Помощь в проведение евентов
Скрипт:

//===== eAthena Script =======================================

//= Event Manager

//===== By: ==================================================

//= Мяфк

//===== Current Version: =====================================

//= 1.8

//=============================================================

//= version 1.7 теперь вы не решаете, давать игроку приз или нет, а он автоматически даётся и объявляется на весь мир. Теперь сначало идёт проверка есть ли в онлайне этот игрок, затем объявляется на весь мир!

//= version 1.8 теперь можно установить время до исчезания НПЦ.

//============================================================

prontera,164,163,4    script    Event Manager    932,{

if(getgmlevel()<39) goto nogm;

mes "Привет ты наверно Гм или Евентор";

mes "Ты можеш включать евенты, выбери что надо";

menu "Включить/Выключить Ангелов",-,"Объявить на весь мир",L_Mir;

next;

menu "Выключение",-,"Включение",L_Vkl;

mes "Введи имя НПЦ которого хочеш выключить";

input @vikl$;

disablenpc ""+@vikl$+"";

close;



L_Vkl:

mes "Введи имя НПЦ которого хочеш включить";

input @vkl$;

enablenpc ""+@vkl$+"";

mes "Хочешь ли ты установить время выключения нпц?";

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

mes "Введи время в минутах";

input $@time;

set @totaltime, $@time*60000;

announce "В пронтере появился NPC - "+@vkl$+"",0;

announce "Евент начался! НПЦ "+@vkl$+" исчезнет через "+$@time+" минут",0;

sleep2 @totaltime;

announce "Нпц исчезло, приятного евента!",0;

disablenpc ""+@vkl$+"";

stopnpctimer;

end;



L_Mir:

mes "Ты можеш объявить на весь мир";

menu "Насчёт пряток",-,"Кто победитель",L_Win,"Какой евент",L_Eve;

mes "Пиши какой го";

input @input$;

announce "Евент прятки начался, ищите Гма в @go "+@input$+"",0;

close;



L_Eve:

mes "Вводите евент";

input @input$;

announce "Евент "+@input$+" начался, Идите к Ангелу в пронтере",0;

close;



L_Win:

mes "Вводи какой евент, затем кто победил, затем id приза, затем кол-во";

input @event$;

input @name$;

input $@item;

input $@amount;

if (getmapxy(@map$,@x,@y,0,@name$) != 0) {

next;

mes ""+@name$+" нет в онлайне!";

} else {

announce "Евент "+@event$+" победил(а) "+@name$+", id приза "+$@item+" кол-во "+$@amount+"",0;

next;

set $@user$,strcharinfo(0);

attachrid(getcharid(3,@name$));

getitem $@item,$@amount;

attachrid(getcharid(3,$@user$));

message strcharinfo(0)+", Вы победили! Вам прислали приз!";

attachrid(getcharid(3,$@user$));

close;

}



qu:

close;



nogm:

mes "Ты не Гм и не Евентор!";

close;

}

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