poring catcher

//=========== 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=========================\\
prontera,166,207,6	script	Poring Catcher Manager	909,{
if(getgroupid() >= $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 .@confirm$;
		if (.@confirm$ == "START" && !agitcheck())
		{
			donpcevent "Announcer2::OnGMStart";
			close;
		}
		mes "Confirmation failed. Either START text is wrong or WOE is on";
		close;
		break;
	}
	case 2:
	{
		next;
		mes "^3399FF[Poring Catcher]^000000";
		mes "Please confirm by typing STOP.";
		input .@confirm$;
		if (.@confirm$ == "STOP")
		{
			donpcevent "Announcer2::OnGMStop";
			close;
		}
		mes "Confirmation failed";
		close;
		break;

	}

	case 3:
	{
		next; mes "^3399FF[Poring Catcher]^000000";
		mes "Good bye";
		close;
	}

	}
}

	mes "...";
	close;

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


}


//====================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, enter the warp portal at [PRONTERA 168 209].",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be [3]OracleRO Cards",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:
	if (agitcheck()) end;
	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, enter the warp portal at [PRONTERA 168 209].",0;
	enablenpc "PoringCatcher";
	sleep 2000;
	announce "(Poring Manager) : Prize: will be [3]OracleRO Cards",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,168,209,0	warp	PoringCatcher	2,2,poring_w01,98,104

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


//---------------------------------------------------------------------
-	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:
	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",98,104,"Poring",1002,1,"poringwin::OnMobKilled";
   monster "poring_w01.gat",98,104,"Pouring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Proing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Poirng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Poing",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"I'm not a Poring",1002,5,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Gnirop",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Poring U",1113,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Poring Me",1062,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Por|ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Por1ng",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Porong",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"P0ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"P@ring",1002,10,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Pring",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Proing",1002,1,"poringlose::OnMobKilled";
   monster "poring_w01.gat",98,104,"Porng",1002,1,"poringlose::OnMobKilled";
   set $poringtimer,120;
   //end;

   Poringtimer:
	sleep2 1000;
	set $poringtimer,$poringtimer-1;
	if($poringcatcherwin == 0 && $poringtimer <=0 ) goto L_2None;
   	if($poringcatcherwin == 1 && $poringtimer <=0 ) goto L_3None;
	if($poringtimer == 60 ) mapannounce "poring_w01","Poring Manager: 1 min left",0;
	if($poringtimer <= 30 ) mapannounce "poring_w01","Poring Manager: "+$poringtimer+" seconds left",0;
	goto Poringtimer;


L_2None:
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
mapannounce "poring_w01","Poring Manager: Nobody won. Everyone will be warped back to prontera",0;
sleep2 10000;
mapwarp	"poring_w01","prontera",156,180;
end;

L_3None:
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
mapannounce "poring_w01","Poring Manager: Everyone will be warped back to prontera",0;
sleep2 10000;
mapwarp	"poring_w01","prontera",156,180;
end;


}

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

OnMobKilled:
   killmonster "poring_w01.gat","All";
   atcommand "@doommap";
   getitem 30000,1;
//   getitem 671, 10;
	set $poringcatcherwin,1;
   announce "Poring Banker: We have a winner! well done " + strcharinfo(0) + ". Players in the map will be warped back to prontera in 10 seconds..",0;
  //mapwarp "<from map>","<to map>",<x>,<y>;
	sleep2 10000;
	mapwarp	"poring_w01","prontera",156,180;
   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