Поринг Эвент

[Volody]

НПЦ который выпускает порингов в пронту. За каждого убитого поринга игрок получает 5к
Тот кто убивает последнего поринга получает 10кк.
Предлагаю поставить данного НПЦ, запаролить его и что бы Админ или эвентер активировал его 1-2 раза в день, либо автоматизировать данный процесс. Вместо последнего приза в 10кк можно поставить 10 ТЦГ.

Код: Выделить всё

//===== eAthena Script ======================================= 
//= Poring Killer Mini Game
//===== By: ================================================== 
//= DerSD
//===== Current Version: ===================================== 
//= 1.0.1
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//=
//===== Additional Comments: ================================= 
//=
//============================================================ 
 
prontera.gat,164,164,3	script	Strange Dog	81,{
	mes "[Strange Dog]";
	emotion 19;
	mes "Гав! Гав! Гав!";
	next;
	input @gmpass;
	if(@gmpass==1992) goto cor;
	mes "[Strange Dog]";
	mes "Гаааф! Гаф! Гаф! Пфф..";
	emotion 32;
	close;
cor:
	mes "[Strange Dog]";
	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,"Strange Dog::OnMyMobDeath";
	announce "1000 Порингов атаковали Пронтеру!",0,0x4EEE94;
	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
	close;
b2:
	set $monster, 100;
	monster "prontera.gat",0,0,"Поринг",1002,100,"Strange Dog::OnMyMobDeath";
	announce "100 Порингов атаковали Пронтеру!",0,0x4EEE94;
	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
	close;
b3:
	set $monster, 150;
	monster "prontera.gat",0,0,"Поринг",1002,150,"Strange Dog::OnMyMobDeath";
	announce "150 Порингов атаковали Пронтеру!",0,0x4EEE94;
	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
	close;
b4:
	set $monster, 200;
	monster "prontera.gat",0,0,"Поринг",1002,200,"Strange Dog::OnMyMobDeath";
	announce "200 Порингов атаковали Пронтеру!",0,0x4EEE94;
	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
	close;
b5:
	set $monster, 300;
	monster "prontera.gat",0,0,"Поринг",1002,300,"Strange Dog::OnMyMobDeath";
	announce "300 Порингов атаковали Пронтеру!",0,0x4EEE94;
	announce "За каждого убитого вы получаете 5000 Зени!",0,0x4EEE94;
	close;
b6:
	set $monster, 500;
	monster "prontera.gat",0,0,"Поринг",1002,500,"Strange Dog::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;
}

[Chao0s Jr]

Против.

[The Factor of Fear]

Идея хорошая) Что бы появлялись поринги и один поринг был с лутом....например не 10 тцг, а 5) И кто убьёт именно этого поринга, тот и выйграл) А не последнего)

[Volody]

Идея хорошая) Что бы появлялись поринги и один поринг был с лутом....например не 10 тцг, а 5) И кто убьёт именно этого поринга, тот и выйграл) А не последнего)

ну или так....