Jump to content
  • 0

Poring Catcher BUG Help pls!

Rage Guy

Asked by Rage Guy,

 Share

Question

Rage Guy Poring

Rage Guy

Posted
  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  354
  • Reputation:   3
  • Joined:  02/17/13
  • Last Seen:  
Posted (edited)

First of all thats my bugged script

//= 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;
	if (getitemname($rewarditem) == "null"){
		set $rewarditem, 674;
		set $rewardamount, 4;
	}
    announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;

    getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE

    warp "prontera",155,177;
    hideonnpc "Poring Catcher#evnt2";
    end;
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
	mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
	end;	
OnTimer600000:
	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

after the winner kills the right poring .

ppl never die they could talk  to the gift npc

and take a winner prize to i want  them when some one kill the right poring

every one else die

Edited by SpongeBOB
Link to comment
Share on other sites

20 answers to this question

Recommended Posts

Jaburak Poring

Jaburak

Posted
  • Group:  Members
  • Topic Count:  48
  • Topics Per Day:  0.01
  • Content Count:  1125
  • Reputation:   236
  • Joined:  07/30/12
  • Last Seen:  
Posted 




OnMobKilled:



dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";



percentheal -100,-100;



end;



}





























Link to comment



Share on other sites




















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











am talking about the End t


his one is when some one kill wrong poring ==



i think there is something on


    atcommand "@doommap";


mayby

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











Then remove; atcommand "@doommap";

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











could u make when the player find the real poring


every one on the game go back automatic to prontera city?



if no one was dead so every one can take a prize ==

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 
















- script poringwin -1,{



OnMobKilled:



dispbottom "Poring : مبروك لقد نلت مني ^^";



set PORING,1;



atcommand "@doommap";



killmonster "poring_w01","All";



mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;



mapwarp "poring_w01","prontera",0,0;



hideoffnpc "Poring Catcher#evnt2";



end;



}

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











now he never tell the winner's name



and i dont see the prize o.o

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 
















- script poringwin -1,{



OnMobKilled:



dispbottom "Poring : مبروك لقد نلت مني ^^";



announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all;



getitem $rewarditem, $rewardamount;



set PORING,1;



atcommand "@doommap";



killmonster "poring_w01","All";



mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;



mapwarp "poring_w01","prontera",0,0;



hideoffnpc "Poring Catcher#evnt2";



end;



}





























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











now the prize auto go to the winner ?


cuz


mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;


means come and tell me ur name


for the prize to remove it  .


tell me ^^

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 













now the prize auto go to the winner ?


cuz


mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;


means come and tell me ur name


for the prize to remove it  .


tell me ^^




Yes; the winner will received the prize automatically and warp him/her to prontera.

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











so i remove


mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;


 


and the npc that give this prize?

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











Remove these lines;


hideoffnpc "Poring Catcher#evnt2";



mapannounce "poring_w01","Poring Catcher : تعال و قل لي أسمك",0;



//--------------------------------------------------

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;
	if (getitemname($rewarditem) == "null"){
		set $rewarditem, 674;
		set $rewardamount, 4;
	}
    announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;

    getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE

    warp "prontera",155,177;
    hideonnpc "Poring Catcher#evnt2";
    end;

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











are u sure?



//= 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;
}
    


L_PORING:
    mes "تعال و قل لي اسمك";
    next;
    input .@name$;
    if(.@name$ != strcharinfo(0)) {
        mes "[المهرج]";
        mes "هل انت متئكد ان هذا اسمك ؟";
        close;
    }
    mes "[Poring Catcher]";
    mes "مبروك لقد فذت";
    close2;
    if (getitemname($rewarditem) == "null"){
        set $rewarditem, 674;
        set $rewardamount, 4;
    }
    announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;

    getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE

    warp "prontera",155,177;
    hideonnpc "Poring Catcher#evnt2";
    end;
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
    mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
    end;    
OnTimer600000:
    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 : مبروك لقد نلت مني ^^";
    announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all;
    getitem $rewarditem, $rewardamount;
    set PORING,1;
    atcommand "@doommap";
    killmonster "poring_w01","All";
    mapwarp "poring_w01","prontera",0,0;
    end;
}


-    script    poringlose    -1,{

OnMobKilled:
    dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
    percentheal -100,-100;
    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

 


Like that ?



now the event is not working ==

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











This;


//= 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;
}
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
    mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
    end;    
OnTimer600000:
    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 : مبروك لقد نلت مني ^^";
    announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all;
    getitem $rewarditem, $rewardamount;
    set PORING,1;
    atcommand "@doommap";
    killmonster "poring_w01","All";
    mapwarp "poring_w01","prontera",0,0;
    end;
}


-    script    poringlose    -1,{

OnMobKilled:
    dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
    percentheal -100,-100;
    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


























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











i didnt try the event yet but when i just used @reloadscript


the manual poring catcher starter


has disapeared == he was on pvp_n_4-5



now the time came and the event didn't work it stoped working 100% ==



any help pls?

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











Sorry, it's really hard to understand the language in your script. But try this one;


//= 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;
	if (getitemname($rewarditem) == "null"){
		set $rewarditem, 674;
		set $rewardamount, 4;
	}
    announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;

    getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE

    warp "prontera",155,177;
    hideonnpc "Poring Catcher#evnt2";
    end;
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
    mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
    end;    
OnTimer600000:
    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 : مبروك لقد نلت مني ^^";
    announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all;
    getitem $rewarditem, $rewardamount;
    set PORING,1;
    atcommand "@doommap";
    killmonster "poring_w01","All";
    mapwarp "poring_w01","prontera",0,0;
    end;
}


-    script    poringlose    -1,{

OnMobKilled:
    dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
    percentheal -100,-100;
    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

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











am going to try it now but


thise lang is arabic xD


if any thing u couldn't read copy it to me then


i will translate



not working to ==

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











Final;


//= 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,{
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
	mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
	end;	
OnTimer600000:
	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 : مبروك لقد نلت مني ^^";
    announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all;
    getitem $rewarditem, $rewardamount;
    set PORING,1;
    atcommand "@doommap";
    killmonster "poring_w01","All";
    mapwarp "poring_w01","prontera",0,0;
    end;
}


-	script	poringlose	-1,{

OnMobKilled:
    dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
    percentheal -100,-100;
    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

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











not working ==


but written the error on line 17



wait i coppyied something wrong i will try again



not working ==

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Jaburak


Poring









Jaburak




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 48

    • 

  • 
 Topics Per Day:
 0.01

    • 

  • 
 Content Count:
 1125

    • 

  • 
 Reputation:
 

 236


    • 

  • 
 Joined:
 07/30/12

    • 

  • 
 Last Seen:
 

    • 

    














    









Posted 











Srsly? It works fine on my test server.

























Link to comment



Share on other sites



















    

  • 


    • 

  • 


    • 

  • 


    • 











Rage Guy


Poring









Rage Guy




Posted 







    

    

  • 
 Group:
 Members

    • 

  • 
 Topic Count:
 113

    • 

  • 
 Topics Per Day:
 0.03

    • 

  • 
 Content Count:
 354

    • 

  • 
 Reputation:
 

 3


    • 

  • 
 Joined:
 02/17/13

    • 

  • 
 Last Seen:
 

    • 

    














    

  • Author
    • 









Posted 











i sware its not working with me .


but i made a idea


xD i made the prize man that say talk to me


 -1


and i removing his annoincment and i used some of ur ideas


and it worked xD


 



Done


//= 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	-1,{

//--------------------------------------------------

    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;
	if (getitemname($rewarditem) == "null"){
		set $rewarditem, 674;
		set $rewardamount, 4;
	}
    announce "Poring Catcher : لدينا فائذ, "+.@name$+". with "+$rewardamount+" "+getitemname($rewarditem)+"s",0;

    getitem $rewarditem, $rewardamount; // SET THE 20085 TO THE ITEM ID OF YOUR PRIZE

    warp "prontera",155,177;
    hideonnpc "Poring Catcher#evnt2";
    end;
    
OnEnable:
    mapannounce "poring_w01","Poring Catcher : في 10 دقائق . سوف استدعي 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;

OnTimer570000:
	mapannounce "poring_w01","Poring Catcher : الوقت يمر . تبقي 30 ثانية",0;
	end;	
OnTimer600000:
	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 : مبروك لقد نلت مني ^^";
    announce strcharinfo(0)+" فاذ في مسابقة البحث عن البورينج",bc_all;
    getitem 674, 4;
    set PORING,1;
    atcommand "@doommap";
    killmonster "poring_w01","All";
    mapwarp "poring_w01","prontera",156,180;
    hideoffnpc "Poring Catcher#evnt2";
    end;
}

-	script	poringlose	-1,{

OnMobKilled:
    dispbottom "Poring Catcher : واهاهاه. يا لك من فاشل - انا لست البورينج الحقيقي";
    warp "prontera",156,180;
    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



Thanks Alottttttttttttttttttttttttttttttttttt. Anakid sorry for wasting ur time with me ^^

























Link to comment



Share on other sites
























Join the conversation



You can post now and register later.
If you have an account, sign in now to post with your account.



















Guest






    

  • 


    • 













 Answer this question...





×
  Pasted as rich text.   Paste as plain text instead








  Only 75 emoji are allowed.








×
  Your link has been automatically embedded.   Display as a link instead
















×
  Your previous content has been restored.   Clear editor








×
  You cannot paste images directly. Upload or insert images from URL.















×










    

  • 

    

    

    

    • 

  • 


    • 















  Share





















Go to question listing




























×



    


















×



    

  • Create New...
    •