prontera,151,192,4  script  Kafra   895,{
 
.@Name$ = "[^00BFFFKafra^000000]";
.@Player$ = strcharinfo(0);
if(.EventOn == 1){ .@EventOn$ = "^00FF00On^000000";} else { .@EventOn$ = "^FF0000Off^000000";}
if(getgmlevel() == 99){
    mes .@Name$;
    mes "How can I help you today "+.@Player$+"?"," ","Event is currently "+.@EventOn$;
        switch(select("Start Event:Stop Event:Check Event:Reset Event:Spawn Boss")){
        case 1:
            .EventOn = 1;
            next;
            mes .@Name$;
            mes "Event has been turned on.";
            monster "prontera",0,0,"Quest Poring",2698,1000,"Kafra::OnPoringKilled";
            close2;
            break;
        case 2:
            .EventOn = 0;
            next;
            mes .@Name$;
            mes "Event has been turned off.";
            killmonster "prontera","Kafra::OnPoringKilled";
            close;
            break;
        case 3:
            next;
            goto NPC;
            break;
        case 4:
            $Poring = 0;
            .EventOn = 0;
            killmonster "prontera","Kafra::OnPoringKilled";
            next;
            mes .@Name$;
            mes "Event has been reset.";
            close;
            break;
        case 5:
            $Poring = 9999;
            break;
        close;
}
}
 
NPC:
if(.EventOn = 1){
if($Poring >= 10000){
    cutin "kh_elly01",1;
    mes .@Name$;
    mes "Welcome "+.@Player$+", What can I help you with today?";
            switch(select("^FFD700"+$Poring+"/10,000^000000:Participating in Event")){
            case 1:
                next;
                cutin "kh_elly02",1;
                mes .@Name$;
                mes "Congratulations "+.@Player$+", Thanks to the efforts of everyone we have kept the ^FA8072Poring^000000 population in check!";
                close2;
                cutin "",255;
                end;
                break;
            case 2:
                next;
                cutin "kh_elly02",1;
                mes .@Name$;
                mes "To participate in this event just kill as many ^FA8072Porings^000000 as you can."," ", "After 100 ^FA8072Porings^000000 have been slain something cool will happen!";
                close2;
                cutin "",255;
                end;
                break;
            }
} else {
    cutin "kh_elly01",1;
    mes .@Name$;
    mes "Welcome "+.@Player$+", What can I help you with today?";
            switch(select("^FF0000"+$Poring+"/10,000^000000:Participating in Event")){
            case 1:
                close2;
                cutin "",255;
                end;
                break;
            case 2:
                next;
                cutin "kh_elly02",1;
                mes .@Name$;
                mes "To participate in this event just kill as many ^FA8072Porings^000000 as you can."," ", "After 100 ^FA8072Porings^000000 have been slain something cool will happen!";
                close2;
                cutin "",255;
                end;
                break;
            }
}}else{
                cutin "kh_elly04",1;
                mes .@Name$;
                mes "I'm sorry "+.@Player$+", but there is no event going on right now.";
                close2;
                cutin "",255;
                end;}
    
 
OnMinute30:
    if(.EventOn = 1 && $Poring >= 10000)
    end;
    if(.EventOn = 1)
    killmonster "prontera","Kafra::OnPoringKilled";
    monster "prontera",0,0,"Quest Poring",2698,1000,"Kafra::OnPoringKilled";
    announce "Kafra: Another wave of Porings have arrived!",bc_all;
    end;
    
OnPoringKilled:
    $Poring++;
    if($Poring == 100){ announce "Kafra: The first 100 Porings have been slain! Next update | 250 Porings Slain",bc_all;}
    if($Poring == 250){ announce "Kafra: 250 Porings have been slain! Next update | 500 Porings Slain",bc_all;}
    if($Poring == 500){ announce "Kafra: 500 Porings have been slain! Next update | 1,000 Porings Slain",bc_all;}
    if($Poring == 1000){ announce "Kafra: Amazing! 1,000 Porings have been slain! Next update | 2,500 Porings Slain",bc_all;}
    if($Poring == 2500){ announce "Kafra: Unbelievable! 2,500 Porings have been slain! Next update at: 5000 Porings Slain",bc_all;}
    if($Poring == 5000){ announce "Kafra: We're half way there! 5,000 Porings have been slain! Next update at: 10,000 Porings Slain",bc_all;}
    if($Poring == 10000){ announce "Kafra: Please come back to Prontera! We're under attack!",bc_all; killmonster "prontera","Kafra::OnPoringKilled";}{
    monster "prontera",155,180,"King Poring",2538,1,"Kafra::OnEventOver";}
    end;
OnEventOver:
end;
}