Авто евент поринги

[GmDen]

Попытался переделать один евент но тут косяк, подскажите в чем может быть проблема. При убийстве не начисляются зени, и не работает проверка на оставшихся мобов.

-	script	FindNpc2	-1,{

OnClock1942:
	set $monster, 0;
	set $hiddenmap2,rand(4);
	if($hiddenmap2 == 0)goto b2;
	if($hiddenmap2 == 1)goto b3;
	if($hiddenmap2 == 2)goto b4;
	if($hiddenmap2 == 3)goto b5;
	if($hiddenmap2 == 4)goto b6;
	end;

b2:
 set $monster, 100;
 monster "prontera.gat",0,0,"Поринг",1002,100,"Poring Event::OnMyMobDeath";
 announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 500 Зени!",0,0x4EEE94;
close;
b3:
 set $monster, 150;
 monster "prontera.gat",0,0,"Поринг",1002,150,"Poring Event::OnMyMobDeath";
 announce "150 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 500 Зени!",0,0x4EEE94;
 close;
b4:
 set $monster, 200;
 monster "prontera.gat",0,0,"Поринг",1002,200,"Poring Event::OnMyMobDeath";
 announce "200 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 500 Зени!",0,0x4EEE94;
 close;
b5:
 set $monster, 300;
 monster "prontera.gat",0,0,"Поринг",1002,300,"Poring Event::OnMyMobDeath";
 announce "300 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 500 Зени!",0,0x4EEE94;
 close;
b6:
 set $monster, 500;
 monster "prontera.gat",0,0,"Поринг",1002,500,"Poring Event::OnMyMobDeath";
 announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 1000 Зени!",0,0x4EEE94;
 close;

OnMyMobDeath:
 set $monster, $monster - 1;
 if($monster== 50) goto left50;
 if($monster== 10) goto left10;
 if($monster== 5) goto left5;
 if($monster== 1) goto left1;
 if($monster > 0) goto la;
 announce ""+strcharinfo(0)+" выиграл, он убил последнего Поринга!",0,0x4EEE94;
 mes "[Дядя Федя]";
 mes "Молодец! Ты победил!";
 mes "Позволь мне преподнести тебе вознаграждение!";
 mes "1 ТЦГ карта присуждются тебе как победителю!";
 getitem 7227,1;
 close;
la:
 set Zeny, Zeny + 1000;
 close;
left50:
 announce "В Пронтере осталось 50 Порингов. За каждого вы получите 5000 Зень!",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000;
 close;
left10:
 announce "В Пронтере осталось 10 Порингов! За каждого вы получите 1000000 Зень",bc_map,0x4EEE94;
 set Zeny, Zeny + 1000000;
 close;
left5:
 announce "Осталось всего 5 Порингов в Пронтере! За каждого вы получите 5000000 Зень",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000000;
 close;
left1:
 announce "Остался последний Поринг! Быстрее! За него вы получите 10000000 Зень",bc_map,0x4EEE94;
 set Zeny, Zeny + 10000000;
 close;
}

Вот исходник в полне норм работает если запускать вручную, даются зени за моба, идет проверка и за последнего главный приз ТЦГ.

prontera.gat,121,161,6	script	Poring Event	909,{
 mes "[Poring Event]";
 emotion 19;
 mes "Пори, Пори! Пори! Пори!";
 next;
 input @gmpass;
 if(@gmpass==210691) goto cor;
 mes "[Poring Event]";
 mes "Пори! Пори! Пори! Попо..";
 emotion 32;
 close;
cor:
 mes "[Poring Event]";
 set $monster, 0;
 mes "Сколько Порингов должны атаковать Пронтеру?";
 next;
 menu "1000",b1,"100",b2,"150",b3,"200",b4,"300",b5,"500",b6;
b1:
 set $monster, 1000;
 monster "prontera.gat",0,0,"Поринг",1002,1000,"Poring_Event::OnMyMobDeath";
 announce "1000 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
b2:
 set $monster, 100;
 monster "prontera.gat",0,0,"Поринг",1002,100,"Poring Event::OnMyMobDeath";
 announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
b3:
 set $monster, 150;
 monster "prontera.gat",0,0,"Поринг",1002,150,"Poring Event::OnMyMobDeath";
 announce "150 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
b4:
 set $monster, 200;
 monster "prontera.gat",0,0,"Поринг",1002,200,"Poring Event::OnMyMobDeath";
 announce "200 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
b5:
 set $monster, 300;
 monster "prontera.gat",0,0,"Поринг",1002,300,"Poring Event::OnMyMobDeath";
 announce "300 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
b6:
 set $monster, 500;
 monster "prontera.gat",0,0,"Поринг",1002,500,"Poring Event::OnMyMobDeath";
 announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;
 announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
 close;
OnMyMobDeath:
 set $monster, $monster - 1;
 if($monster== 50) goto left50;
 if($monster== 10) goto left10;
 if($monster== 5) goto left5;
 if($monster== 1) goto left1;
 if($monster > 0) goto la;
 announce ""+strcharinfo(0)+" выиграл, он убил последнего Поринга!",0,0x4EEE94;
 mes "[Дядя Федя]";
 mes "Молодец! Ты победил!";
 mes "Позволь мне преподнести тебе вознаграждение!";
 mes "10000000 Зени присуждются тебе как победителю!";
 set Zeny, Zeny + 10000000;
 close;
la:
 set Zeny, Zeny + 5000;
 close;
left50:
 announce "В Пронтере осталось 50 Порингов!",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000;
 close;
left10:
 announce "В Пронтере осталось 10 Порингов!",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000;
 close;
left5:
 announce "Осталось всего 5 Порингов в Пронтере!",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000;
 close;
left1:
 announce "Остался последний Поринг! Быстрее!",bc_map,0x4EEE94;
 set Zeny, Zeny + 5000;
 close;
}

[Agasper]

В строке где спавнится моб у тебя прописан скрипт:

Poring Event

А у тебя название скрипта такое:

FindNpc2

Замени эту часть:

"Poring Event::OnMyMobDeath";

На вот эту:

"FindNpc2::OnMyMobDeath";

В 5 кусках ты должен сделать такую замену.