Автор: DiS[IP]: Дата: 03.20.2011

[FONT=Courier New][SIZE=3]Юзайте :)[/SIZE][/FONT]

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

// = - [АвтоЭвент] 'Охота на зомби'

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

// = - Скрипт написал DiS[IP] (ICQ:6498906)

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

// = - Описание: 

// = - В опр.время спавнятся зомби.Каждые 30 секунд выводится

// = - аннонс о оставшемся кол-ве монстров.В эвенте побеждает

// = - игрок,который убил больше всех зомби.

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

// = - Если вы хотите разместить где-либо этот скрипт,то не 

// = - забывайте указывать копирайты,уважайте чужой труд.

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



-    script    dis_ev    -1,{

OnMinute00:

announce "[АвтоЭвент]: Эвент 'Охота на зомби' начался!",0,0xDDC433;

sleep 3000;

announce "[АвтоЭвент]: Победит тот,кто убьет больше зомби!",0,0xDDC433;

monster "prontera",0,0,"Зомби",1015,100,"dis_ev::OnDisEv";

set $zombie_ev,100;

initnpctimer;

end;

OnDisEv:

set $zombie_ev,$zombie_ev-1;

set @zkill,@zkill+1;

if(@zkill>$high_zkill){ set $ev_win$,strcharinfo(0); set $high_zkill,@zkill; }

dispbottom "Вы убили "+@zkill+" Зомби";

if($zombie_ev<1){ 

announce "В эвенте победил игрок "+$ev_win$+"!Он убил "+$high_zkill+" Зомби!",0,0xDDC433; 

attachrid(getcharid(3,$ev_win$)); 

getitem 7227,1; 

set $ev_win$,""; 

set $high_zkill,0; 

stopnpctimer; 

end; 

}

end;

OnTimer30000:

announce "[АвтоЭвент]: В пронтере осталось "+$zombie_ev+" Зомби!",0,0xDDC433;

initnpctimer;

end;

OnInit:

set $ev_win$,"";

set $high_zkill,0;

end;

}

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