//= Poring Catcher - Auto Event Script
//===== By: ================================================================================
//= Washi - www.EarthBound-RO.com
//===== Compatible With: ====================================================================
//= Any eAthena Version
//===== Description: ========================================================================
//= Single NPC that starts automatically starts every hour.
//===== Additional Comments: ================================================================
//= This script is a combenation of the Dice Event by [Mahina]
//= and the origonal Poring Catcher Event by [Wild Karrd]
//================================================================================
//===========
//= OnMinute - Change this to the minute you would like this script to load. [ LINE 22 ]
//= getitem - Change this to the Item ID of your prize. [ LINE 118 ]
//================================================================================
//===========
- script poring#announcer -1,{
OnInit:
disablenpc "Poring Catcher Warper";
hideonnpc "Poring Catcher#evnt2";
end;
OnMinute30: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR.
OnGMStart:
announce "Poring Catcher : انه الوقت للعب البحث عن البورينج",0;
killmonster "poring_w01","All";
sleep2 10000;
announce "Poring Catcher : توجه الي برونتيرا اذا كنت تريد التسجيل",0;
sleep2 10000;
announce "Poring Catcher : بعد دقيقة 1 سوف يتوقف التسجيل",0;
sleep2 10000;
announce "Poring Catcher : ادخل البوابة الان اذا كنت تريد الدخول",0;
enablenpc "Poring Catcher Warper";
initnpctimer;
end;
OnTimer30000:
announce "Poring Catcher : تبقي 30 ثانية علي نهاية التسجيل",0;
sleep2 5000;
announce "Poring Catcher : توجه الي بورنتيرا سريعا للدخول",0;
end;
OnTimer50000:
announce "Poring Catcher : تبقي 10 ثواني",0;
end;
OnTimer55000:
announce "Poring Catcher : 5.",0;
end;
OnTimer56000:
announce "Poring Catcher : 4.",0;
end;
OnTimer57000:
announce "Poring Catcher : 3.",0;
end;
OnTimer58000:
announce "Poring Catcher : 2.",0;
end;
OnTimer59000:
announce "Poring Catcher : 1.",0;
end;
OnTimer60000:
announce "Poring Catcher : انتهي الوقت",0;
end;
OnTimer61000:
disablenpc "Poring Catcher Warper";
donpcevent "Poring Catcher#evnt2::OnEnable";
stopnpctimer;
end;
}
prontera,147,165,0 warp Poring Catcher Warper 0,0,poring_w01,106,129
//--------------------------------------------------
pvp_n_4-5,101,96,6 script Poring Catcher 909,{
if (getgmlevel()<50)
{
player_here:
mes "^FF0000[Poring Catcher Schedule]^000000";
mes "^0000FF[ 00:30AM ]^000000";
mes "^0000FF[ 04:30AM ]^000000";
mes "^0000FF[ 08:30AM ]^000000";
mes "^0000FF[ 12:30PM ]^000000";
mes "^0000FF[ 04:30PM ]^000000";
mes "^0000FF[ 08:30PM ]^000000";
next;
mes "^FF0000[Poring Catcher]^000000";
mes "Current Prize:";
mes "----------------------";
mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s";
close;
}
gm_only:
if (getgmlevel() < 80) goto player_here;
mes "^FF0000Poring Catcher Warper^000000";
mes "Yes, master?";
mes "What can I do for you today, master?";
next;
switch(select("Start Event:Stop Event:Check Prize:Set Prize:Nothing"))
{
case 1:
next;
mes "^FF0000Poring Catcher^000000";
mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!";
mes "Do you want to start the event?";
next;
switch(select("Yes:Leave"))
{
case 1:
next;
mes "^FF0000Poring Catcher^000000";
mes "Here we go!";
close2;
announce "GM "+strcharinfo(0)+" has started the Poring Catcher Event!",0;
sleep 2000;
donpcevent "poring#announcer::OnGMStart";
end;
case 2:
next;
mes "^FF0000Poring Catcher^000000";
mes "Ok, nothing changed!";
close;
}
case 2:
next;
mes "^FF0000Poring Catcher^000000";
mes "Hello, GM ^008000"+strcharinfo(0)+"^000000!";
mes "Do you want to stop the event?";
mes " ";
mes "^FF0000Note that you can only stop the event if it is already starting.";
mes "If the event is still on the giving of directions, it couldn't be stopped!^000000";
next;
switch(select("Yes:No"))
{
case 1:
next;
mes "^FF0000Poring Catcher^000000";
mes "Close this window to stop the event!";
close2;
goto stopbygm;
case 2:
next;
mes "^FF0000Poring Catcher^000000";
mes "Ok, nothing changed!";
close;
}
case 3:
next;
mes "^FF0000Poring Catcher^000000";
mes "Current Prize :";
mes "-------------------";
mes "^008000"+$rewardamount+" "+getitemname($rewarditem)+"s";
next;
goto gm_only;
case 4:
next;
mes "^FF0000Poring Catcher^000000";
mes "What will be the new reward?";
input .@itemid;
if (getitemname(.@itemid) == "null" || getitemname(.@itemid) == "") {next; mes "^FF0000Poring Catcher^000000"; mes "The item is not found in the database.."; next; goto gm_only; }
set $rewarditem, .@itemid;
next;
mes "^FF0000Poring Catcher^000000";
mes "How many ^008000"+getitemname($rewarditem)+"s^000000 should we give?";
input .@itemamount;
if(.@itemamount <= 0) {next; mes "^FF0000Poring Catcher^000000"; mes "Please input a # greater than 0"; next; goto gm_only; }
set $rewardamount,.@itemamount;
next;
mes "^FF0000Poring Catcher^000000";
mes "So, the winner will get ^008000"+$rewardamount+" "+getitemname($rewarditem)+"s";
next;
goto gm_only;
case 5:
next;
mes "^FF0000Poring Catcher^000000";
mes "Nothing Changed!";
close;
}
stopbygm:
stopnpctimer;
killmonster "poring_w01","All";
announce "Poring Catcher Event was stopped by GM "+strcharinfo(0)+"!",0;
sleep 2000;
mapwarp "poring_w01","prontera",149,160;
end;
}
//--------------------------------------------------
poring_w01,100,127,4 script Poring Catcher#evnt2 715,{
//--------------------------------------------------
mes "[المهرج]";
if(PORING == 1) goto L_PORING;
mes "تعال و قل لي اسمك";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[المهرج]";
mes "هل انت متئكد ان هذا اسم شخصيتك ؟";
close;
}
mes "[المهرج]";
mes "اذهب الي منزلك";
close2;
announce "Poring Catcher : الكل يضحك , "+.@name$+". - هذا اللاعب حاول غش النظام",0;
warp "prontera",155,177;
end;
L_PORING:
mes "تعال و قل لي اسمك";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[المهرج]";
mes "هل انت متئكد ان هذا اسمك ؟";
close;
}
mes "[Poring Catcher]";
mes "مبروك لقد فذت";
close2;
announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;
getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE
set 674,4;
warp "prontera",155,177;
hideonnpc "Poring Catcher#evnt2";
end;
OnEnable:
mapannounce "poring_w01","Poring Catcher : في 5 دقائق . سوف استدعي 100 بورينج مختلف",0;
initnpctimer;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : واحد فقط فيهم هو الحقيقي",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : الحقيقي اسمه [ Poring ] و الباقي جميهم مزورين",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : اذا قتلت البورينج الخاطء سوف يتم طردك من اللعبة",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : أول من يقتل البورينج الحقيقي هو الفائذ",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : هذا فقط هيا بنا نبدء .",0;
goto L_Start;
end;
OnTimer270000:
mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
end;
OnTimer300000:
stopnpctimer;
mapannounce "poring_w01","Poring Catcher : انتهي الوقت لم يجد احد البورينج الحقيقي",0;
atcommand "@doommap";
killmonster "poring_w01","All";
sleep 3000;
mapwarp "poring_w01","prontera",155,177;
end;
L_Start:
mapannounce "poring_w01","Poring Catcher : 5",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 4",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 3",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 2",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 1",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : سوف نبدء الان",0;
areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Pouring",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Proing",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poiring",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poing",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porning",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"PoriNg",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porong",1002,20,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
end;
}
- script poringwin -1,{
OnMobKilled:
dispbottom "Poring : مبروك لقد نلت مني ^^";
set PORING,1;
atcommand "@doommap";
killmonster "poring_w01","All";
mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;
hideoffnpc "Poring Catcher#evnt2";
end;
}
- script poringlose -1,{
OnMobKilled:
dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
warp "prontera",155,177;
end;
}
// -- Mapflags
poring_w01 mapflag nowarp
poring_w01 mapflag nowarpto
poring_w01 mapflag noteleport
poring_w01 mapflag nosave
poring_w01 mapflag nomemo
poring_w01 mapflag nobranch
poring_w01 mapflag noloot
poring_w01 mapflag noskill
poring_w01 mapflag nopenalty
1- the winner after talking to the prize npc , he can talk to him more than 1 time he never Disapear after apearing i want him to disapear and the winner load to prontera .
2- the event only for 5 minuts then the event ends i want it 10
If Any one know the solution of any one of this 2 pls tell me
Question
Rage Guy
I Got Some Problems on my Poring Catcher Script
1- the winner after talking to the prize npc , he can talk to him more than 1 time he never Disapear after apearing i want him to disapear and the winner load to prontera .
2- the event only for 5 minuts then the event ends i want it 10
If Any one know the solution of any one of this 2 pls tell me
Link to comment
Share on other sites
6 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.