Jump to content
  • 0

Poring Catcher Help!

Rage Guy

Asked by Rage Guy,

 Share

Question

Rage Guy Poring

Rage Guy

Posted
Posted

I Got Some Problems on my Poring Catcher 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;
    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

6 answers to this question

Recommended Posts

Jaburak Drops

Jaburak

Posted
Posted (edited)

Edit:

 

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

To:

 

-    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";
    enablenpc "Poring Catcher#evnt2";
    end;
}

 

You can also try this one; http://rathena.org/board/files/file/2742-poring-catcher/

Edited by Anakid
Rage Guy Poring

Rage Guy

Posted
  • Author
Posted

but the portal apears without any thing just

loadnpc



Can i take the Poring Banker from the other one to my own poring catcher ?

if u know pls tell me how ^^

Jarek Poring

Jarek

Posted
Posted

Here you go:

1) npc never disappeared because wrong line "set 674,4;" - fixed

2) changed event time from 5min to 10min

//= 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 : في 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;

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
Rage Guy Poring

Rage Guy

Posted
  • Author
Posted

Thanks Alot [ Jarek - Anaked



Here you go:
1) npc never disappeared because wrong line "set 674,4;" - fixed
2) changed event time from 5min to 10min

//= 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 : في 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;

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

 

I 'Ve Found New Bug ==

after the winner takes his prize and leaves

if some body still dead the map dont stop making the last annoincment

like " last 30 seconds for the event ends "



And Can I Remove the

 

when the winner win

name is the winner he won 4 mithril coins

i dont want him to say he won what .

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

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...