Автор: Jake: Дата: 06.07.2010

Вот эвент, там напускаются злобные поринги и за них вроде как дают деньги, мапа ошибок не выдаёт, нпц появляется, но при вводе кол-ва порингов он фырчит и отшивает..Мб я не так пользуюсь?

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

//= Poring Killer Mini Game

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

//= DerSD

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

//= 1.0.1

//===== Compatible With: ===================================== 

//= eAthena SVN

//===== Description: ========================================= 

//=

//===== Additional Comments: ================================= 

//=

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

 

prontera,120,168,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",0,0,"Поринг",1002,1000,"Poring_Event::OnMyMobDeath";

	announce "1000 Порингов атаковали Пронтеру!",0,0x4EEE94;

	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;

	close;

b2:

	set $monster, 100;

	monster "prontera",0,0,"Поринг",1002,100,"Poring Event::OnMyMobDeath";

	announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;

	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;

	close;

b3:

	set $monster, 150;

	monster "prontera",0,0,"Поринг",1002,150,"Poring Event::OnMyMobDeath";

	announce "150 Порингов атаковали Пронтеру!",0,0x4EEE94;

	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;

	close;

b4:

	set $monster, 200;

	monster "prontera",0,0,"Поринг",1002,200,"Poring Event::OnMyMobDeath";

	announce "200 Порингов атаковали Пронтеру!",0,0x4EEE94;

	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;

	close;

b5:

	set $monster, 300;

	monster "prontera",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 + 5000000;

	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;

}

Автор: Jake: Дата: 06.07.2010

Ёмана, видно это всё, я не знал про пароль) спасибо!