//===== eAthena Script ======================================= 
//= Royal Rumble Event
//===== By: ==================================================
//= Masao
//===== Current Version: =====================================
//= 2.0
//===== Compatible With: =====================================
//= Any Athena Version
//===== Description: =========================================
//= Starts an little PvP Event when a total of 10 Players
//= have Signed Up. After that every 30 seconds
//= a new Player will be warped onto the PvP Map until
//= all 10 Players have been warped.
//===== Additional Comments: =================================
//= Version 1.0 [Masao]
//= Verison 1.1 added GM Control Panel & Autostart [Masao]
//= Version 2.0 complete re-script [Masao]
//============================================================
prontera,155,185,4	script	Royal Rumble	946,{

	set .@n$,"[Royal Rumble]";

	if (getgmlevel() >= 40) goto L_GMCP;

	mes .@n$;
	mes "Hello "+strcharinfo(0)+",";
	mes "I'm the Royal Rumble NPC, you can Sign Up here for the Royal Rumble Event!";
	mes "";
	mes "So, would you like to Sign Up?";
	next;
	menu "Yes, please!",-,"Royal Rumble?!",L_R,"No, thanks.",L_E;
	
	if(.rrp == 10)
	{
		mes .@n$;
		mes "I'm sorry but the Event already begun!";
		close;
	}

	set .rrp,.rrp+1;
	set .rra[.rrp],getcharid(3);
	set @rre,1;
	set @rre2,1;
	if(.rrp < 10)
	{
		mes .@n$;
		mes "Allright, you have been signed up. As soon as the Event beginns you'll see an Broadcast.";
		close;
	}
	mes .@n$;
	mes "Allright, you have been signed up. The Event beginns now!";
	close2;
	initnpctimer;
	disablenpc "Royal Rumble";
	announce "The Royal Rumble Event beginns now! The first 2 players will now be warped into the Royal Rumble Arena!",bc_all;
	end;

L_R:
	mes .@n$;
	mes "The Rules are very easy!";
	mes "Just Sign Up to the Game and then wait until a total of 10 Players have Signed Up, as soon as this happens the Game will start.";
	mes "When the Event starts 2 Players will be warped onto an PvP Map, then they fight each other, the loser get warped out and the Winner stays.";
	mes "And after the first 2 Players have been warped in, every 30 Seconds a new Player will be warped onto the Map.";
	mes "As soon as the last player is killed on the Map the Game will end and the last survivor is the Winner!";
	mes "And that's all, have Fun and good Luck!";
	close;

L_E:
	mes .@n$;
	mes "Ok, bye.";
	close;

L_GMCP:
	mes .@n$;
	mes "Hello "+strcharinfo(0)+",";
	mes "what can i do for you?";
	switch(select("Start Event!:End Event.:Set Prize:Cancel")) {
		case 1:
			next;
			mes .@n$;
			mes "Allright, the Event starts now!";
			close2;
			enablenpc "Royal Rumble";
			for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
			{
				if(attachrid(.rra[.@i])){
					if (@rre == 1) {
						set @rre,0;
						set @rre2,0;
						detachrid;
					}
				}
			}
			set .rrp,0;
			deletearray .rra[0],128;
			mapwarp "guild_vs3","prontera",155,185;
			announce "The Royal Rumble Event is Open now!",bc_all;
			end;
		case 2:
			next;
			mes .@n$;
			mes "Allright, the Event ends now!";
			close2;
			disablenpc "Royal Rumble";
			for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
			{
				if(attachrid(.rra[.@i])){
					if (@rre == 1) {
						set @rre,0;
						set @rre2,0;
						detachrid;
					}
				}
			}
			set .rrp,0;
			deletearray .rra[0],128;
			mapwarp "guild_vs3","prontera",155,185;
			announce "The Royal Rumble Event has been ended by an GM!",bc_all;
			end;
		case 3:
			next;
			mes .@n$;
			mes "The current Prize is "+getitemname($rr_id)+", would you like to change it?";
			switch(select("No:Yes")) {
				case 1:
					next;
					mes .@n$;
					mes "Ok, bye.";
					close;
				case 2:
					next;
					mes .@n$;
					mes "Ok, then please insert now the new Item ID";
					input $rr_id;
					next;
					mes .@n$;
					mes "And now the Amount please.";
					input $rr_amount;
					next;
					mes .@n$;
					mes "Allright, so the Prize now is ^008000"+$rr_amount+" "+getitemname($rr_id)+"^000000";
					close;
			}
		case 4:
			next;
			mes .@n$;
			mes "Ok, bye";
			close;
	}

OnPCDieEvent:
	getmapxy .@m$,.@x,.@y,0;
	if(.@m$ == "guild_vs3")
	{
		for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
		{
			if(attachrid(.rra[.@i])){
				if (@rre == 1) {
					set @rre,0;
					warp "prontera",155,185;
				}
				detachrid;
			}
		}
		set .rrp,.rrp-1;
	}
	end;

OnPCLogoutEvent:
	getmapxy .@m$,.@x,.@y,0;
	if(.@m$ == "guild_vs3")
	{
		for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
		{
			if(attachrid(.rra[.@i])){
				if (@rre == 1) {
					set @rre,0;
					save "prontera",155,185;
				}
				detachrid;
			}
		}
		set .rrp,.rrp-1;
	}
	end;

OnPCKillEvent:
	getmapxy .@m$,.@x,.@y,0;
	if(.@m$ == "guild_vs3")
	{
		if(.rrp <= 1)
		{
			for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
			{
				if(attachrid(.rra[.@i])){
					if (@rre == 1) 
					{
						dispbottom "Congratulations "+strcharinfo(0)+"!";
						dispbottom "You won the Royal Rumble Event!";
						dispbottom "Here is your Prize, and see you next time!";
						getitem $rr_id,$rr_amount;
						set @rre,0;
						warp "prontera",155,185;
					}
					detachrid;
					announce strcharinfo(0)+" won this Game of Royal Rumble! Congratulations!",bc_all;
				}
			}
			deletearray .rra[0],128;
		}
	}
	end;

OnTimer1000:
	for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
	{
		if(attachrid(.rra[.@i])){
			if (@rre2 == 1) {
				set @rre2,0;
				warpchar "guild_vs3",0,0,.rra[.@i];
			}
			end;
		}
	}
	end;
OnTimer1100:
	for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
	{
		if(attachrid(.rra[.@i])){
			if (@rre2 == 1) {
				set @ree2,0;
				warpchar "guild_vs3",0,0,.rra[.@i];
			}
			end;
		}
	}
	end;
OnTimer30000:
OnTimer60000:
OnTimer90000:
OnTimer120000:
OnTimer150000:
OnTimer180000:
OnTimer210000:
OnTimer240000:
OnTimer270000:
OnTimer300000:
	for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
	{
		if(attachrid(.rra[.@i])){
			if (@rre2 == 1) {
				set @rre2,0;
				warpchar "guild_vs3",0,0,.rra[.@i];
			}
			end;
		}
	}
	end;

OnClock0400:
OnClock0800:
OnClock1200:
OnClock1600:
OnClock2000:
OnClock0000:
	enablenpc "Royal Rumble";
	for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
	{
		if(attachrid(.rra[.@i])){
			if (@rre == 1) {
				set @rre,0;
				set @rre2,0;
			}
			detachrid;
		}
	}
	set .rrp,0;
	deletearray .rra[0],128;
	mapwarp "guild_vs3","prontera",155,185;
	announce "The Royal Rumble Event starts now! You have 3 Minutes to Sign Up!",bc_all;
	end;
	
OnClock0403:
OnClock0803:
OnClock1203:
OnClock1603:
OnClock2003:
OnClock0003:
	if(.rrp < 10)
	{
		disablenpc "Royal Rumble";
		announce "The Royal Rumble Event is closed now! Since there were not 10 Players the Event will not take place.",bc_all;
		for(set .@i,0;.@i<=.rrp;set .@i,.@i+1)
		{
			if(attachrid(.rra[.@i])){
				if (@rre == 1) {
					set @rre,0;
					set @rre2,0;
				}
				detachrid;
			}
		}
		set .rrp,0;
		deletearray .rra[0],128;
	}
	end;

OnInit:
	disablenpc "Royal Rumble";
	end;
}

//============== Mapflags ====================
guild_vs3	mapflag	nogo
guild_vs3	mapflag	pvp_noguild
guild_vs3	mapflag	pvp_noparty
guild_vs3	mapflag	nobranch
guild_vs3	mapflag	nomemo
guild_vs3	mapflag	nopenalty
guild_vs3	mapflag	noreturn
guild_vs3	mapflag	noteleport
guild_vs3	mapflag	nowarp
guild_vs3	mapflag	nowarpto
guild_vs3	mapflag	noicewall