Jump to content
  • 0

Poring Catcher


JLance

Question


  • Group:  Members
  • Topic Count:  10
  • Topics Per Day:  0.00
  • Content Count:  19
  • Reputation:   0
  • Joined:  09/04/13
  • Last Seen:  

Okay I want to keep the gm control activation of the poring catcher.

 

What i wanna know is how do I make it automatically start every 2hours

Here is the code I've found

 

//=========== 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 .@confirm$;          
		if (.@confirm$ == "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 .@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;
	}

}
}
}


//====================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----------------------------------------
lunette,72,102,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:
	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,20,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Proing",1002,20,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poirng",1002,20,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poing",1002,20,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"I'm not a Poring",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Gnirop",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1113,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Poring",1062,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por|ng",1002,30,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Por1ng",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porong",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P0ring",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"P@ring",1002,25,"poringlose::OnMobKilled";
   monster "poring_w01.gat",0,0,"Porng",1002,25,"poringlose::OnMobKilled";end;
L_2None:
disablenpc "Poring Banker";
killmonster "poring_w01.gat","All";
end;
}

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

OnMobKilled:
   killmonster "poring_w01.gat","All";
   atcommand "@doommap";
   getitem 7227,1;
   getitem 671, 10;
   announce "Poring Banker: We have a winner! well done " + strcharinfo(0) + ".",0;
   warp "SavePoint",0,0;
   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 

 Should I put 

OnClock0000:
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
set .ResetCounter,.ResetCounter+1;
    set .EventON,1;
    set .Timer,1;
    set .Wait,1;
    announce "The Poring Catcher Event will begin in 3 minutes.",bc_all | bc_blue;
    announce "Make your way to Lunette.",bc_all | bc_blue;
    setnpctimer 0;
    initnpctimer;
    end;
OnTimer60000:
    if (.Timer!=1) end;
       announce "The Poring Catcher Event will begin in 3 minutes.",bc_all | bc_blue;
    announce "Make your way to Lunette.",bc_all | bc_blue;
    end;
OnTimer120000:
    if (.Timer!=1) end;
    announce "The Poring Catcher Event will begin in 3 minutes.",bc_all | bc_blue;
    announce "Make your way to Lunette.",bc_all | bc_blue;
    end;
OnTimer180000:
    if (.Timer!=1) end;
    announce "The Poring Catcher Event will begin in 3 minutes.",bc_all | bc_blue;
    announce "Make your way to Lunette.",bc_all | bc_blue;
    set .Timer,0; stopnpctimer;
    setnpctimer 0; initnpctimer;
}

 

after the //==================ANNOUNCER==============
 
 
and do I lack codes? 
PS. Please Correct my OnTimer.
Edited by JLance
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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.

×
×
  • Create New...