//_______ _______ ______
//|     __|     __|   __ \
//|    |  |    |  |   __ <
//|_______|_______|______/
//Good German Bread


turbo_room,88,117,5	script	War Event Warper	780,{


if( Class == 4049 ){
mes "[^00FF00War Event Warper^000000]";
	mes "Soul Linkers are not allowed to watch. Please change your avatar.";
	close;
	end;
}

	set .@n$,"[^00FF00War Event Warper^000000]";

	setarray .@menu$[0],"GvG Map 1",
					"GvG Map 2",
					"GvG Map 3",
					"GvG Map 4",
					"GvG Map 5",
					"GvG Map 6",
					"GvG Map 7",
					"PvP Map - A (No1PK)",
					"PvP Map - B (No1PK)";

//added by me

	if (gettimetick(2) - OB_time < 43200) goto free_ent;

	mes .@n$;
	mes "Hello, I can warp you to any Event Map you choose to watch.";
	mes "Once inside you will be in ^0000FFOBSERVER MODE^000000 in complete hide, muted and some other capabilities disabled.";
	next;
	mes .@n$;
	mes "^FF0000NOTE:^000000 You must be without a ^FF0000Cart^000000, ^FF0000Falcon^000000, ^FF0000Guild^000000, ^FF0000Party^000000 and must have ^FF0000no item equipped^000000 or in ^FF0000inventory^000000 except for POD/s to enter.";
	next;
	mes .@n$;
	mes "Though going inside is not for free of course.";
	mes "I will need ^0000FFOne (1) POD Ticket^000000 as entrance fee valid for ^0000FFTwelve (12) hours^000000.";
	next;
	mes .@n$;
	mes "You can enter unlimited times and to different event maps but only within ^0000FFTwelve (12) hours^000000 or you must pay again. Just be sure to use the same character that paid the entrance fee or you will be charged once more.";
	mes "You will be kicked out of the map every one (1) hour to refresh but never worry, you may just re-enter again through me for free just as long as its within your ^0000FFtwelve (12) hour window^000000.";
	next;
	goto entobserve;

free_ent:
	mes .@n$;
	mes "Welcome back...";
	mes "Entrance is ^0000FFFREE^000000 for you for twelve (12) hours from the time you paid.";
	next;

entobserve:
	mes .@n$;
	mes "Let's go...";
	mes "Please choose the map you wish to enter to...";
	next;
	set .@menu_d$,"";
	for (set .@i,0; .@i < getarraysize($maps$); set .@i, .@i +1 )
		set .@menu_d$, .@menu_d$ +":^0000FF?^000000 "+ .@menu$[.@i] + "(^FF0000" + getmapusers($maps$[.@i]) + "^000000)";
	set .@menu_d$,.@menu_d$ +":^FF0000?^000000 Close";
	set .@m, select ( .@menu_d$ ) - 2;

	if (.@m == (getarraysize(.@menu$))) close;

	//if a player is in a party or guild he can not enter
	if (strcharinfo(1) != "" || strcharinfo(2) != "") {
		mes .@n$;
		mes (strcharinfo(1) != "") ? "I'm sorry, but you need to ^FF0000leave your Party^000000 to enter." : "I'm sorry, but you need to ^FF0000leave your Guild^000000 to enter.";
		close;
	}

	if (checkcart() != 0) {
		mes .@n$;
		mes "I'm sorry, but you need to ^FF0000turn off your Cart^000000 to enter.";
		close;
	}

	//pet check
	if (petstat(PET_LEVEL) != 0) {
		mes .@n$;
		mes "Sorry, pets are not allowed inside the areana.";
		close;
	}

	if (Weight > 0) {
		mes .@n$;
		mes "You are heavy, please get rid of ALL your ^FF0000Equipped Items and Inventory^000000 except for ^FF0000POD/s^000000 to enter.";
		close;
	}

	if (checkfalcon() != 0) {
		mes .@n$;
		mes "I'm sorry, but you need to get rid of your ^FF0000Falcon^000000 to enter.";
		close;
	}

// my addition
if( (getcharid(3) == 2320617) || (getcharid(3) == 2018036) || (getcharid(3) == 2087421)) goto closed2;

	if (gettimetick(2) - OB_time > 43200) {

		mes .@n$;
		mes "Do you want to enter into: ^FF0000" + .@menu$[.@m] + "^000000?";
		mes "You will need a ^FF0000100,000,000 Zeny^000000 to enter.";
		next;

		if (select("^FF0000?^000000 No, what a rip-off!","^00FF00?^000000 Sure I'll pay, I wanna watch!") == 2 ) {

			if ( Zeny < 100000000 && gettimetick(2) - OB_time > 43200) {
				mes .@n$;
				mes "I'm sorry, but you will need a ^FF0000100,000,000 Zeny^000000 to enter.";
				close;
			}

			set Zeny,Zeny - 100000000;
			mes .@n$;
			mes "Paid...";
			mes "You still have ^777777"+Zeny+" Zeny^000000 remaining in inventory.";
			mes "Please hit 'Close'.";
			logmes strcharinfo(0)+ " HAS PAID TO ENTER THE ARENA " + .@menu$[.@m];
			set OB_time,gettimetick(2);

		} else {
			mes .@n$;
			mes "Ok. bye then.";
			close;

		}
	}

closed2:
	close2;
	warp $maps$[.@m],0,0;
	set OS_warp,1;
	sleep2 3600000;
	getmapxy(.@current_map$,.@current_x,.@current_y,0);
	for (set .@i,0; .@i < getarraysize($maps$); set .@i, .@i +1 )

		if (.@current_map$ == $maps$[.@i]) goto L_warpOut;
	end;

L_warpOut:
	warp "Save",0,0;
	end;


OnInit:
setarray $maps$[0],"guild_vs1",
				"guild_vs2",
				"guild_vs3",
				"guild_vs4",
				"guild_vs5",
				"guild_vs1-1",
				"guild_vs2-1",
				"pvp_2vs2",
				"poring_w02";
end;
}



//auto @mute2

-	script	auto_mute2	-,{

	OnPCLoadMapEvent:

		getmapxy(.@current_map$,.@current_x,.@current_y,0);

		for (set .@i,0; .@i < getarraysize($maps$); set .@i, .@i +1 )

			if (.@current_map$ == $maps$[.@i] && getgmlevel() < 9 && OS_warp) {

				set OS_warp,0;
				goto L_autoMute;

			}

		end;

	L_autoMute:

		atcommand "@mute2 120 "+strcharinfo(0);

		end;

}