Jump to content
  • 0
Haikenz

[R] Poring Catcher for Rounds

Asked by Haikenz

Question

Haikenz Poring

Haikenz

Posted
Posted

Hello, does anyone have this event, Poring Catcher for rounds?

The default is only 1, which when finding the poring already wins...
My intention was a 10 Rounds, every round wins 1 item, and following the same rule as the original ... if you kill the poring with the wrong name, you are expelled from the room

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 1
Haruka Mayumi Santa Poring

Haruka Mayumi

Posted
Posted

Here, if there's an error or something, please comment on my post. i just edited this just now per your request.. Don't forget to Upvote and Answer if this helps you =)

-Credits to owner-(modified) 

//=========== PORING CATCHER MADE ==============\\
//=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\
//= Please Report if you encounter some errors =\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\
//==FUNCTIONS===================================\\
/* GM Can start the event manualy
   GM Can also stop the event manualy
HOW: just PM this npc (npc:pcatch)
The Next Guide Will Be Given by the Manager 	*/
//======= PLEASE DO NOT REMOVE CREDITS =========\\
//==============================================\\
//== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\

-	script	GMCONTROL	-1,{
OnInit:
set $gmcontrol,60;
end;

}
//---------------END OF SETUP-------------------\\

//================ON WHISPER=========================\\
-	script	pcatch	-1,{

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\
//OnInit:
//set $gmcontrol,60;
//end;
//---------------END OF SETUP-------------------\\

OnWhisperGlobal:
if(getgmlevel() >= $gmcontrol) {
mes "^3399FF[Poring Catcher]^000000";	
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Nothing"))
{
	case 1: 
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing START."; 
		input [email protected]$;          
		if ([email protected]$ == "START") 
		{
			donpcevent "Announcer2::OnGMStart"; 
			close;
		}
		mes "Confirmation failed";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing STOP."; 
		input [email protected]$;          
		if ([email protected]$ == "STOP") 
		{
			donpcevent "Announcer2::OnGMStop";
			close;
		}
		mes "Confirmation failed";
		close;
		break;
		
	}
					
	case 3:
	{
		next; mes "^3399FF[Poring Catcher]^000000";
		mes "Good bye"; 
		close;
	}

}
}
}


//====================ANNOUNCER======================\\

-	script	Announcer2	-1,{


OnGMStart:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because there's no players.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnGMStop:

	killmonster "poring_w01.gat","All";
	announce "A Gamemaster has stopped the Poring Catcher Event",0;
	mapwarp "poring_w01.gat","prontera.gat",155,173;
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
	end;



OnClock1200:
OnClock1100:
OnClock1300:
OnClock2300:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because no players found in map.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnInit:
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
}
//---------All Job Registration----------------------------------------
prontera,155,173,0	warp	PoringCatcher	2,2,poring_w01,105,128

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


//---------------------------------------------------------------------
-	script	Poring Banker	-1,{

OnEnable:
mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0;
sleep2 10000;
goto L_Start;
end;
L_Start:
	if(getmapusers("poring_w01") == 0) goto L_None;
	if(getmapusers("poring_w01") >= 1) {

	mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0;
	sleep2 6000;
	mapannounce "poring_w01","Poring Manager: 5",0;
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: 4",0;
	sleep2 4000;
	mapannounce "poring_w01","Poring Manager: 3",0;
	sleep2 3000;
	mapannounce "poring_w01","Poring Manager: 2",0;
	sleep2 2000;
	mapannounce "poring_w01","Poring Manager: 1",0;
	donpcevent "Poringsummoner::OnSummon";
	end;
	}

	L_None:
	donpcevent “poringwin::L_Reset”
	disablenpc "Poring Banker";
	killmonster "poring_w01.gat","All";
	end;
}

//==================SUMMONER OF PORINGS ======================\\
-	script	Poringsummoner	-1,{

OnSummon:
   if(getmapusers("poring_w01") == 0) goto L_2None;
   monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled";
   monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"[email protected]",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
L_2None:
donpcevent “poringwin::L_Reset”
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
end;
}

//==================REAL PORING FOR WIN======================\\
-	script	poringwin	-1,{

OnMobKilled:
   killmonster "poring_w01.gat","All";
   getitem 7227,1;
   getitem 671, 10;
   announce "Poring Banker: We have a winner for Round”+.round+”! well done " + strcharinfo(0) + ".",0;
   set .round,.round+1;
   if(.round==10){
	atcommand "@doommap";
	warp "SavePoint",0,0;
	set .round,1;
	}else{
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: Round ”+.round+” will start in a few seconds!”,0;
	sleep2 5000;
	donpcevent “Poring Banker::L_Start”
	}
   end;

L_Reset:
	set .round,1;
end;

OnInit:
	set .round,1;
end;
}

//==================DUMY PORINGS FOR LOSERS======================\\
-	script	poringlose	-1,{
OnMobKilled:
   dispbottom "Your out of the game, You did not catch the right Poring !";
   percentheal -99,-99;
   warp "SavePoint",0,0;
   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
  • Upvote 2
Link to comment
Share on other sites
  • 0
hendra814 Poring

hendra814

Posted
Posted
1 hour ago, Haruka Mayumi said:

Here, if there's an error or something, please comment on my post. i just edited this just now per your request.. Don't forget to Upvote and Answer if this helps you =)

-Credits to owner-(modified) 

//=========== PORING CATCHER MADE ==============\\
//=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\
//= Please Report if you encounter some errors =\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\
//==FUNCTIONS===================================\\
/* GM Can start the event manualy
   GM Can also stop the event manualy
HOW: just PM this npc (npc:pcatch)
The Next Guide Will Be Given by the Manager 	*/
//======= PLEASE DO NOT REMOVE CREDITS =========\\
//==============================================\\
//== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\

-	script	GMCONTROL	-1,{
OnInit:
set $gmcontrol,60;
end;

}
//---------------END OF SETUP-------------------\\

//================ON WHISPER=========================\\
-	script	pcatch	-1,{

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\
//OnInit:
//set $gmcontrol,60;
//end;
//---------------END OF SETUP-------------------\\

OnWhisperGlobal:
if(getgmlevel() >= $gmcontrol) {
mes "^3399FF[Poring Catcher]^000000";	
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Nothing"))
{
	case 1: 
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing START."; 
		input [email protected]$;          
		if ([email protected]$ == "START") 
		{
			donpcevent "Announcer2::OnGMStart"; 
			close;
		}
		mes "Confirmation failed";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing STOP."; 
		input [email protected]$;          
		if ([email protected]$ == "STOP") 
		{
			donpcevent "Announcer2::OnGMStop";
			close;
		}
		mes "Confirmation failed";
		close;
		break;
		
	}
					
	case 3:
	{
		next; mes "^3399FF[Poring Catcher]^000000";
		mes "Good bye"; 
		close;
	}

}
}
}


//====================ANNOUNCER======================\\

-	script	Announcer2	-1,{


OnGMStart:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because there's no players.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnGMStop:

	killmonster "poring_w01.gat","All";
	announce "A Gamemaster has stopped the Poring Catcher Event",0;
	mapwarp "poring_w01.gat","prontera.gat",155,173;
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
	end;



OnClock1200:
OnClock1100:
OnClock1300:
OnClock2300:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because no players found in map.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnInit:
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
}
//---------All Job Registration----------------------------------------
prontera,155,173,0	warp	PoringCatcher	2,2,poring_w01,105,128

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


//---------------------------------------------------------------------
-	script	Poring Banker	-1,{

OnEnable:
mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0;
sleep2 10000;
goto L_Start;
end;
L_Start:
	if(getmapusers("poring_w01") == 0) goto L_None;
	if(getmapusers("poring_w01") >= 1) {

	mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0;
	sleep2 6000;
	mapannounce "poring_w01","Poring Manager: 5",0;
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: 4",0;
	sleep2 4000;
	mapannounce "poring_w01","Poring Manager: 3",0;
	sleep2 3000;
	mapannounce "poring_w01","Poring Manager: 2",0;
	sleep2 2000;
	mapannounce "poring_w01","Poring Manager: 1",0;
	donpcevent "Poringsummoner::OnSummon";
	end;
	}

	L_None:
	donpcevent “poringwin::L_Reset”
	disablenpc "Poring Banker";
	killmonster "poring_w01.gat","All";
	end;
}

//==================SUMMONER OF PORINGS ======================\\
-	script	Poringsummoner	-1,{

OnSummon:
   if(getmapusers("poring_w01") == 0) goto L_2None;
   monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled";
   monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"[email protected]",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
L_2None:
donpcevent “poringwin::L_Reset”
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
end;
}

//==================REAL PORING FOR WIN======================\\
-	script	poringwin	-1,{

OnMobKilled:
   killmonster "poring_w01.gat","All";
   getitem 7227,1;
   getitem 671, 10;
   announce "Poring Banker: We have a winner for Round”+.round+”! well done " + strcharinfo(0) + ".",0;
   set .round,.round+1;
   if(.round==10){
	atcommand "@doommap";
	warp "SavePoint",0,0;
	set .round,1;
	}else{
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: Round ”+.round+” will start in a few seconds!”,0;
	sleep2 5000;
	donpcevent “Poring Banker::L_Start”
	}
   end;

L_Reset:
	set .round,1;
end;

OnInit:
	set .round,1;
end;
}

//==================DUMY PORINGS FOR LOSERS======================\\
-	script	poringlose	-1,{
OnMobKilled:
   dispbottom "Your out of the game, You did not catch the right Poring !";
   percentheal -99,-99;
   warp "SavePoint",0,0;
   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

got this error on map console

Quote

script error on npc/APEL/Poring Catcher 10 Round.txt line 194
    parse_simpleexpr: unexpected character
   189 :        donpcevent "Poringsummoner::OnSummon";
   190 :        end;
   191 :        }
   192 :
   193 :        L_None:
*  194 :        donpcevent 'Ô'Ç£poringwin::L_ResetÔÇØ
   195 :        disablenpc "Poring Banker";
   196 :        killmonster "poring_w01.gat","All";
   197 :        end;
   198 : }
   199 :
[Error]:
script error on npc/APEL/Poring Catcher 10 Round.txt line 221
    parse_simpleexpr: unexpected character
   216 :    monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
   217 :    monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
   218 :    monster "poring_w01.gat",0,0,"[email protected]",1002,10,"poringlose::OnMobKilled";
   219 :    monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
   220 : L_2None:
*  221 : donpcevent 'Ô'Ç£poringwin::L_ResetÔÇØ
   222 : disablenpc "Poring Banker";
   223 : killmonster "poring_w01.gat","All";
   224 : end;
   225 : }
   226 :
[Error]:
script error on npc/APEL/Poring Catcher 10 Round.txt line 242
    Unexpected newline at string.
   237 :        warp "SavePoint",0,0;
   238 :        set .round,1;
   239 :        }else{
   240 :        sleep2 5000;
   241 :        mapannounce "poring_w01","Poring Manager: Round ÔÇØ+.round+ÔÇØ will start in a few seconds!ÔÇØ,0;
*  242 :        sleep2 5000;
   243 :        donpcevent ÔÇ£Poring Banker::L_StartÔÇØ
   244 :        }
   245 :    end;
   246 :
   247 : L_Reset:

 

Link to comment
Share on other sites
  • 0
Haruka Mayumi Santa Poring

Haruka Mayumi

Posted
Posted (edited)

Okay ill be home in 20 minutes and gonna fix it on my server. i just edited it without trying ^_~

But for now, i saw the errors.. i think this will work now,. i just forgot the terminators =)

  

//=========== PORING CATCHER MADE ==============\\
//=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\
//= Please Report if you encounter some errors =\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\
//==FUNCTIONS===================================\\
/* GM Can start the event manualy
   GM Can also stop the event manualy
HOW: just PM this npc (npc:pcatch)
The Next Guide Will Be Given by the Manager 	*/
//======= PLEASE DO NOT REMOVE CREDITS =========\\
//==============================================\\
//== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\

-	script	GMCONTROL	-1,{
OnInit:
set $gmcontrol,60;
end;

}
//---------------END OF SETUP-------------------\\

//================ON WHISPER=========================\\
-	script	pcatch	-1,{

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\
//OnInit:
//set $gmcontrol,60;
//end;
//---------------END OF SETUP-------------------\\

OnWhisperGlobal:
if(getgmlevel() >= $gmcontrol) {
mes "^3399FF[Poring Catcher]^000000";	
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Nothing"))
{
	case 1: 
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing START."; 
		input [email protected]$;          
		if ([email protected]$ == "START") 
		{
			donpcevent "Announcer2::OnGMStart"; 
			close;
		}
		mes "Confirmation failed";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing STOP."; 
		input [email protected]$;          
		if ([email protected]$ == "STOP") 
		{
			donpcevent "Announcer2::OnGMStop";
			close;
		}
		mes "Confirmation failed";
		close;
		break;
		
	}
					
	case 3:
	{
		next; mes "^3399FF[Poring Catcher]^000000";
		mes "Good bye"; 
		close;
	}

}
}
}


//====================ANNOUNCER======================\\

-	script	Announcer2	-1,{


OnGMStart:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because there's no players.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnGMStop:

	killmonster "poring_w01.gat","All";
	announce "A Gamemaster has stopped the Poring Catcher Event",0;
	mapwarp "poring_w01.gat","prontera.gat",155,173;
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
	end;



OnClock1200:
OnClock1100:
OnClock1300:
OnClock2300:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because no players found in map.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnInit:
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
}
//---------All Job Registration----------------------------------------
prontera,155,173,0	warp	PoringCatcher	2,2,poring_w01,105,128

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


//---------------------------------------------------------------------
-	script	Poring Banker	-1,{

OnEnable:
mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0;
sleep2 10000;
goto L_Start;
end;
L_Start:
	if(getmapusers("poring_w01") == 0) goto L_None;
	if(getmapusers("poring_w01") >= 1) {

	mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0;
	sleep2 6000;
	mapannounce "poring_w01","Poring Manager: 5",0;
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: 4",0;
	sleep2 4000;
	mapannounce "poring_w01","Poring Manager: 3",0;
	sleep2 3000;
	mapannounce "poring_w01","Poring Manager: 2",0;
	sleep2 2000;
	mapannounce "poring_w01","Poring Manager: 1",0;
	donpcevent "Poringsummoner::OnSummon";
	end;
	}

	L_None:
	donpcevent “poringwin::L_Reset”;
	disablenpc "Poring Banker";
	killmonster "poring_w01.gat","All";
	end;
}

//==================SUMMONER OF PORINGS ======================\\
-	script	Poringsummoner	-1,{

OnSummon:
   if(getmapusers("poring_w01") == 0) goto L_2None;
   monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled";
   monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"[email protected]",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
L_2None:
donpcevent “poringwin::L_Reset”;
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
end;
}

//==================REAL PORING FOR WIN======================\\
-	script	poringwin	-1,{

OnMobKilled:
   killmonster "poring_w01.gat","All";
   getitem 7227,1;
   getitem 671, 10;
   announce "Poring Banker: We have a winner for Round”+.round+”! well done " + strcharinfo(0) + ".",0;
   set .round,.round+1;
   if(.round==10){
	atcommand "@doommap";
	warp "SavePoint",0,0;
	set .round,1;
	}else{
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: Round ”+.round+” will start in a few seconds!”,0;
	sleep2 5000;
	donpcevent “Poring Banker::L_Start”;
	}
   end;

L_Reset:
	set .round,1;
end;

OnInit:
	set .round,1;
end;
}

//==================DUMY PORINGS FOR LOSERS======================\\
-	script	poringlose	-1,{
OnMobKilled:
   dispbottom "Your out of the game, You did not catch the right Poring !";
   percentheal -99,-99;
   warp "SavePoint",0,0;
   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

 

Edited by Haruka Mayumi
Link to comment
Share on other sites
  • 0
hendra814 Poring

hendra814

Posted
Posted
12 minutes ago, Haruka Mayumi said:

Okay ill be home in 20 minutes and gonna fix it on my server. i just edited it without trying ^_~

But for now, i saw the errors.. i think this will work now,. i just forgot the terminators =)

  

//=========== PORING CATCHER MADE ==============\\
//=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\
//= Please Report if you encounter some errors =\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\
//==FUNCTIONS===================================\\
/* GM Can start the event manualy
   GM Can also stop the event manualy
HOW: just PM this npc (npc:pcatch)
The Next Guide Will Be Given by the Manager 	*/
//======= PLEASE DO NOT REMOVE CREDITS =========\\
//==============================================\\
//== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\
//===== https://www.facebook.com/ShogsGfx ======\\
//==============================================\\

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\

-	script	GMCONTROL	-1,{
OnInit:
set $gmcontrol,60;
end;

}
//---------------END OF SETUP-------------------\\

//================ON WHISPER=========================\\
-	script	pcatch	-1,{

//====LEVEL OF GM CAN CONTROL THE EVENT=========\\
//OnInit:
//set $gmcontrol,60;
//end;
//---------------END OF SETUP-------------------\\

OnWhisperGlobal:
if(getgmlevel() >= $gmcontrol) {
mes "^3399FF[Poring Catcher]^000000";	
mes "Hello GameMaster!";
mes "What do you want to do?";
switch(select("Start Event:Stop Event:Nothing"))
{
	case 1: 
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing START."; 
		input [email protected]$;          
		if ([email protected]$ == "START") 
		{
			donpcevent "Announcer2::OnGMStart"; 
			close;
		}
		mes "Confirmation failed";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing STOP."; 
		input [email protected]$;          
		if ([email protected]$ == "STOP") 
		{
			donpcevent "Announcer2::OnGMStop";
			close;
		}
		mes "Confirmation failed";
		close;
		break;
		
	}
					
	case 3:
	{
		next; mes "^3399FF[Poring Catcher]^000000";
		mes "Good bye"; 
		close;
	}

}
}
}


//====================ANNOUNCER======================\\

-	script	Announcer2	-1,{


OnGMStart:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because there's no players.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnGMStop:

	killmonster "poring_w01.gat","All";
	announce "A Gamemaster has stopped the Poring Catcher Event",0;
	mapwarp "poring_w01.gat","prontera.gat",155,173;
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
	end;



OnClock1200:
OnClock1100:
OnClock1300:
OnClock2300:
	killmonster "poring_w01.gat","All";
	announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0;
	sleep 3000;
	announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0;
	sleep 2000;
	announce "(Poring Manager) : The portal is going to close in one minute.",0;  
	sleep 60000;
	announce "(Poring Manager) : The portal has been closed.",0;
	disablenpc "PoringCatcher";
	if(getmapusers("poring_w01") == 0) 
	{
		disablenpc "Poring Banker";
		announce "Event Poring Catcher didn't start because no players found in map.",0;
		end;
	}

	donpcevent "Poring Banker::OnEnable";
	end;

OnInit:
	disablenpc "Poring Banker";
	disablenpc "PoringCatcher";
}
//---------All Job Registration----------------------------------------
prontera,155,173,0	warp	PoringCatcher	2,2,poring_w01,105,128

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


//---------------------------------------------------------------------
-	script	Poring Banker	-1,{

OnEnable:
mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0;
sleep2 10000;
mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0;
sleep2 10000;
goto L_Start;
end;
L_Start:
	if(getmapusers("poring_w01") == 0) goto L_None;
	if(getmapusers("poring_w01") >= 1) {

	mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0;
	sleep2 6000;
	mapannounce "poring_w01","Poring Manager: 5",0;
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: 4",0;
	sleep2 4000;
	mapannounce "poring_w01","Poring Manager: 3",0;
	sleep2 3000;
	mapannounce "poring_w01","Poring Manager: 2",0;
	sleep2 2000;
	mapannounce "poring_w01","Poring Manager: 1",0;
	donpcevent "Poringsummoner::OnSummon";
	end;
	}

	L_None:
	donpcevent “poringwin::L_Reset”;
	disablenpc "Poring Banker";
	killmonster "poring_w01.gat","All";
	end;
}

//==================SUMMONER OF PORINGS ======================\\
-	script	Poringsummoner	-1,{

OnSummon:
   if(getmapusers("poring_w01") == 0) goto L_2None;
   monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled";
   monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"[email protected]",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end;
L_2None:
donpcevent “poringwin::L_Reset”;
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
end;
}

//==================REAL PORING FOR WIN======================\\
-	script	poringwin	-1,{

OnMobKilled:
   killmonster "poring_w01.gat","All";
   getitem 7227,1;
   getitem 671, 10;
   announce "Poring Banker: We have a winner for Round”+.round+”! well done " + strcharinfo(0) + ".",0;
   set .round,.round+1;
   if(.round==10){
	atcommand "@doommap";
	warp "SavePoint",0,0;
	set .round,1;
	}else{
	sleep2 5000;
	mapannounce "poring_w01","Poring Manager: Round ”+.round+” will start in a few seconds!”,0;
	sleep2 5000;
	donpcevent “Poring Banker::L_Start”;
	}
   end;

L_Reset:
	set .round,1;
end;

OnInit:
	set .round,1;
end;
}

//==================DUMY PORINGS FOR LOSERS======================\\
-	script	poringlose	-1,{
OnMobKilled:
   dispbottom "Your out of the game, You did not catch the right Poring !";
   percentheal -99,-99;
   warp "SavePoint",0,0;
   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

 

Still got the same error.

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.

×
Go to question listing
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and Privacy Policy.

  I accept