Автор: dimjke: Дата: 03.10.2010

Написали со знакомым как-то этот автоэвент, но он так и не заработал.
Суть эвента заключается в том, чтобы истребить как можно больше монстров за определенное время.
Помогите найти ошибку в скрипте. Заранее благодарю за помощь!

- script MonsterSpawn -1,{
OnInit:
setarray $maps$[0],"prt_fild08","cmd_fild04","gef_fild07","pay_fild01","hu_fild06","ra_fild12","yuno_fild03","um_fild02","hu_fild06","ein_fild08";
// уникальный АЙДИ проводимого эвента
set $EVENT_UNIC,0;
set $@EVENT_LEADER[0],0,0;
end;
OnClock1000:
initnpctimer;
set $EVENT_UNIC,gettimetick(2);
OnTimer0:
set .@town1$,$maps$[rand(getarraysize($maps$))];
if(.@town1$=="prt_fild08"){set .@town2$,"prt_fild08";}
if(.@town1$=="cmd_fild04"){set .@town2$,"cmd_fild04";}
if(.@town1$=="gef_fild07"){set .@town2$,"gef_fild07";}
if(.@town1$=="pay_fild01"){set .@town2$,"pay_fild01";}
if(.@town1$=="hu_fild06"){set .@town2$,"hu_fild06";}
if(.@town1$=="ra_fild12"){set .@town2$,"ra_fild12";}
if(.@town1$=="yuno_fild03"){set .@town2$,"yuno_fild03";}
if(.@town1$=="um_fild02"){set .@town2$,"um_fild02";}
if(.@town1$=="hu_fild06"){set .@town2$,"hu_fild06";}
if(.@town1$=="ein_fild08"){set .@town2$,"ein_fild08";}
announce "[Истребление] Срочно нужно уничтожить популяцию монстров на локации "+.@town2$+"!",0,0xFF99FF;
set $mob,200;
monster .@town1$,0,0,"[Event] Poring",1002,$mob,"MonsterSpawn::OnAEDead";
end;
OnTimer300000:
announce "[Истребление] Поторопитесь! У вас осталось около 5минут! Локация: "+.@town2$+".",0;
end;
OnTimer600000:
stopnpctimer;
killmonster ".@town1$","$mob";
announce "[Истребление] Время вышло, победителей не оказалось!.",0;
end;

OnAEDead:
set $mob,$mob-1;
attachrid killerid;
if(kill_poring_unic_id != $EVENT_UNIC)
{
set porings_killed,0;
set kill_poring_unic_id,$EVENT_UNIC;
}
set porings_killed,porings_killed+1;
if(porings_killed > $@EVENT_LEADER[1])
{
set $@EVENT_LEADER[1],porings_killed;
set $@EVENT_LEADER[0],getcharid(3);
}
detachrid();
if ($mob == 0)
{
stopnpctimer;
attachrid($@EVENT_LEADER[0]);
announce "У нас герой: "+strcharinfo(0)+" уничтожил "+$@EVENT_LEADER[1]+" монстров!",8;
getitem 7227,1;
detachrid;
}
announce "На карте осталось " + $mob + " монстров.",bc_all,0x00ff00;
end;
}

Автор: biogirl: Дата: 03.10.2010

на http://eathena.ws/board/ ищи

Автор: dimjke: Дата: 03.10.2010

Цитата biogirl;20801]на [url]http://eathena.ws/board/[/url:
ищи

Автор: biogirl: Дата: 03.10.2010

у меня стоял раньше этот ивент только для новисов, кто быстрее убьёт 20 порингов тому приз, я его переводила с англ, так что я уверена что он гдет там есть

Автор: Sanasol: Дата: 03.10.2010

http://rus-ea.ru/showthread.php?t=711 пример. т.е. почти готовый. Как ни смотрел твой скрипт так и не понял ничего.

Написали со знакомым как-то этот автоэвент, но он так и не заработал.
Суть эвента заключается в том, чтобы истребить как можно больше монстров за определенное время.

Помогите найти ошибку в скрипт

е. Заранее благодарю за помощь!

Автор: dimjke: Дата: 03.10.2010

Мне надо никто быстрее, а кто больше всего убьет монстров за ~10 минут =/

Автор: Sanasol: Дата: 03.10.2010

Я же написал почти готовый. Изменить надо пару строк.

Автор: biogirl: Дата: 03.10.2010

Саш ну у меня стоит твой всё норм работает "_"