//===== eAthena Script =======================================
//= Poring Killer Mini Game
//===== By: ==================================================
//= DerSD
//===== Current Version: =====================================
//= 1.0.1
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//=
//===== Additional Comments: =================================
//=
//============================================================
prontera.gat,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.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;
}
