// http://www.eathena.ws/board/index.php?showtopic=252735

quiz_02,46,378,6	script	Fabre Puncher	715,{
	if (getgmlevel() < 60) {
		if ($@febrecheck != 1) {
			mes "[Fabre Puncher]";
			mes "Hello, im under orders to only activate this great event when a GM says so.";
			close2;
		} else {
			mes "[Fabre Puncher]";
			mes "Would you like to join this event?";
			menu "Yes!",-,"No.",-;
				if (@menu == 2) close;
				close2;
				set @points, 0;
				atcommand "@option 0 0 0";
				warp "pvp_n_1-2",0,0;
				end;
		}
		
	}
	else {
		mes "[Fabre Puncher]";
		mes "Would you like to start this event?";
		if(select("Yes:No") == 1){
			if ($@febrecheck != 1) {
				mes "[Fabre Puncher]";
				mes "Starting Event.";
				initnpctimer;
				set $@febrecheck,1;
			} else {
				mes "[Fabre Puncher]";
				mes "Event is already in progress. Would you like to start anew?";
				if(select("Yes:No") == 1){
				initnpctimer;
				set $@febrecheck,1;
				}
			}
		}
		close;
	}

OnHour00:
	if ($@febrecheck != 1) {
		initnpctimer;
		set $@febrecheck,1;
	}

OnTimer10000:
	announce "Fabre Punch : It's time to play some Fabre Puncher!",0;
	killmonsterall "pvp_n_1-2";
	end;

OnTimer20000:
	announce "Fabre Punch : Please make your way to the Event Waiting Room.",0;
	end;

OnTimer30000:
	announce "Fabre Punch : After one minute, I will not allow anymore players to enter.",0;
	end;

OnTimer40000:
	announce "Fabre Punch : Talk to me now if you want to join.",0;
	end;

OnTimer50000:
	announce "Fabre Punch : Last 30 seconds.",0;
	end;

OnTimer65000:
	announce "Fabre Punch : Hurry to the Event Room if you want to join.",0;
	end;

OnTimer70000:
	announce "Fabre Punch : Last 10 seconds.",0;
	end;

OnTimer75000:
	announce "Fabre Punch : 5.",0;
	end;

OnTimer76000:
	announce "Fabre Punch : 4.",0;
	end;

OnTimer77000:
	announce "Fabre Punch : 3.",0;
	end;

OnTimer78000:
	announce "Fabre Punch : 2.",0;
	end;

OnTimer79000:
	announce "Fabre Punch : 1.",0;
	end;

OnTimer80000:
	announce "Fabre Punch : Time's up.",0;
	end;

OnTimer81000:
	mapannounce "pvp_n_1-2","Fabre Punch : I will be summoning 60 different Fabre.",0;
	end;

OnTimer90000:
	mapannounce "pvp_n_1-2","Fabre Punch : Every correct Fabre gives u 2 points.",0;
	end;

OnTimer100000:
	mapannounce "pvp_n_1-2","Fabre Punch : The correct Fabre is called [ Fabre ], all the other Fabre have different names.",0;
	end;

OnTimer110000:
	mapannounce "pvp_n_1-2","Fabre Punch : Take your time because if you kill the wrong Fabre, you will get -2 points.",0;
	end;

OnTimer120000:
	mapannounce "pvp_n_1-2","Fabre Punch : The highest points in this game will win",0;
	end;

OnTimer121000:
	mapannounce "pvp_n_1-2","Fabre Punch : That's it.. Now let's play...",0;
	mapannounce "pvp_n_1-2","Fabre Punch Event : 5",0;
	end;

OnTimer122000:
	mapannounce "pvp_n_1-2","Fabre Punch Event : 4",0;
	end;

OnTimer123000:
	mapannounce "pvp_n_1-2","Fabre Punch Event : 3",0;
	end;

OnTimer124000:
	mapannounce "pvp_n_1-2","Fabre Punch Event : 2",0;
	end;

OnTimer125000:
	mapannounce "pvp_n_1-2","Fabre Punch Event : 1",0;
	end;

OnTimer126000:
	mapannounce "pvp_n_1-2","Fabre Punch Event : Lets Do This!",0;
	monster "pvp_n_1-2",0,0,"Fabreo",1007,10,"Fabre Puncher::OnWrongKill";
	monster "pvp_n_1-2",0,0,"Fabres",1007,10,"Fabre Puncher::OnWrongKill";
	monster "pvp_n_1-2",0,0,"Fabre",1007,30,"Fabre Puncher::OnRightKill";
	monster "pvp_n_1-2",0,0,"Im not a Fabre",1007,10,"Fabre Puncher::OnWrongKill";
	monster "pvp_n_1-2",0,0,"Fabreo",1007,10,"Fabre Puncher::OnWrongKill";
	monster "pvp_n_1-2",0,0,"Fabres",1007,10,"Fabre Puncher::OnWrongKill";
	end;

OnRightKill:
	set @points,@points+2;
	if (@points > $Fabrehighscore) {
		set $FabrePunchName$,strcharinfo(0);
		set $Fabrehighscore,@points;
	}
	dispbottom "You have "+@points+" points";
	if(mobcount("pvp_n_1-2","Fabre Puncher::OnRightKill") == 0) {
		mapannounce "pvp_n_1-2","All right fabres were killed, thanks and bye",0;
		set $@febrecheck,0;
		killmonsterall "pvp_n_1-2";
		mapwarp "pvp_n_1-2","prontera",153,176;
	}
	end;

OnWrongKill:
	if (@points > 1) { set @points,@points-2; }
	dispbottom "You have "+@points+" points";
	end;
}

prontera,153,176,2	script	FabrePrize Claimer	715,{

	if ($FabrePunchName$ == strcharinfo(0)) {
		mes "[FabrePrize Claimer]";
		mes "Congragulations "+strcharinfo(0)+" you've managed to kill the most right fabres with a total score of "+$Fabrehighscore1;
		getitem 671,1;
		set $FabrePunchName$,"";
		set $Fabrehighscore,0;
		set .@prizecheck,1;
		close;
	} else {
		mes "[FabrePrize Claimer]";
		mes "I'm sorry but I only give prizes to the winner of the Fabre Game. Feel free to see me again when you win.";
	close;
	}
	end;
}

// -- Mapflags
pvp_n_1-2	mapflag	nowarp
pvp_n_1-2	mapflag	nowarpto
pvp_n_1-2	mapflag	noteleport
pvp_n_1-2	mapflag	nosave
pvp_n_1-2	mapflag	nomemo
pvp_n_1-2	mapflag	nobranch
pvp_n_1-2	mapflag	noloot
pvp_n_1-2	mapflag	noskill
pvp_n_1-2	mapflag	nopenalty