-   script  KoE -1,{
OnInit:
    disablenpc "The King#KoE";
    sleep 1;
    disablenpc "gefg02-1";
    disablenpc "gefg01-1";
    end;
 
OnWhisperGlobal:
    if ( getgmlevel() < 99 ) end;
    else if ( compare ( @whispervar0$, "on" ) ) goto L_start;
    else if ( compare ( @whispervar0$, "off" ) ) goto L_end;
    else end;
 
L_start:
OnClock2000:
if(gettime(4) == 0 || gettime(4) == 6) end;
    announce "The King of Emperium Hill has begun!", 0;
    set .koe_start, 1;
    enablenpc "The King#KoE";
    disablenpc "Reward#KoE";
    set $koegid, 0;
    donpcevent "::OnRevKoE";
    maprespawnguildid "gefg_cas01", $koegid, 6;
    monster "gefg_cas01",197,182,"EMPERIUM",1288,1,"KoE::OnEmpDead";
end;
 
L_end:
OnClock2100:
if(gettime(4) == 0 || gettime(4) == 6) end;
    announce "The King of Emperium Hill is over!", 0;
    set .koe_start, 0;
    disablenpc "The King#KoE";
    killmonsterall "gefg_cas01";
    donpcevent "Reward#KoE::Onresetreward";
end;
 
OnEmpDead:
    set $koegid, getcharid(2);
    announce "The current King of Emperium Hill is the [" + strcharinfo(2) + "] guild.", 0;
    donpcevent "::OnRevKoE";
    maprespawnguildid "gefg_cas01", $koegid, 6;
    sleep 500;
    if ( .koe_start )
        monster "gefg_cas01",197,182,"EMPERIUM",1288,1,"KoE::OnEmpDead";
    end;
}
 
// KoE Entrance
prontera,155,191,4  script  The King#KoE    58,{
    mes "[The King]";
    if ( getcharid(2) == 0 ) {
        mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000.";
        close;
    }
    mes "Hello.";
    mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?";
    if ( select ( "Yes", "No" ) == 2 ) close;
    warp "z_agit",168,17;
    end;
}
 
// KoE Reward
prontera,151,191,5  script  Reward KOE#KoE  51,{
    mes "[Reward]";
    if ( getvariableofnpc( .koe_start, "KoE" ) ) {
        mes "King of Emperium Hill event is currently running";
        close;
    }
    if ( getcharid(2) == $koegid ) {
        set .@size, getarraysize(.koe_prize);
        for ( set .@i, 0; .@i < .@size; set .@i, .@i +1 ) {
            if ( .koe_prize[.@i] == getcharid(0) ) {
                mes "You already received the rewards";
                close;
            }
        }
        mes "Congratulation on becoming the winner of ^FF0000King of Emperium Hill Tournament^000000";
        getitem 501, 1; // configure prize here
 
        set .koe_prize[ getarraysize(.koe_prize) ], getcharid(0);
    }
    else {
        mes "Your guild is not the winner of King of Emperium Hill event";
    }
    close;
Onresetreward:
    deletearray .koe_prize;
    end;
}
 
 
gefg_cas01,28,157,4 script  King of Emperium Hill#1::custom_koe_flag    722,{
    set .@gid, $koegid;
    if ( .@gid == 0 ) end;
    mes "[King of Emperium Hill]";
    mes "The Current King of Emperium Hill is the ["+ getguildname(.@gid) +"] guild.";
    close;
OnRevKoE:
    flagemblem $koegid;
    end;
}
gefg_cas01,22,156,5 duplicate(custom_koe_flag)  King of Emperium Hill#2 722
gefg_cas01,68,185,3 duplicate(custom_koe_flag)  King of Emperium Hill#3 722
gefg_cas01,17,171,5 duplicate(custom_koe_flag)  King of Emperium Hill#4 722
gefg_cas01,59,16,4  duplicate(custom_koe_flag)  King of Emperium Hill#5 722
gefg_cas01,64,16,4  duplicate(custom_koe_flag)  King of Emperium Hill#6 722
 
gefg_cas01  mapflag gvg
gefg_cas01  mapflag nobranch
gefg_cas01  mapflag nomemo
gefg_cas01  mapflag nopenalty
gefg_cas01  mapflag noreturn
gefg_cas01  mapflag nosave  SavePoint
gefg_cas01  mapflag noteleport
gefg_cas01  mapflag gvg_noparty
gefg_cas01  mapflag nowarp
gefg_cas01  mapflag nowarpto
 
z_agit  mapflag gvg
z_agit  mapflag nobranch
z_agit  mapflag nomemo
z_agit  mapflag nopenalty
z_agit  mapflag noreturn
z_agit  mapflag nosave  SavePoint
z_agit  mapflag noteleport
z_agit  mapflag gvg_noparty
z_agit  mapflag nowarp
z_agit  mapflag nowarpto
 
z_agit,168,179,0    warp    #to_gef_castle  1,1,gefg_cas01,99,178