// 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