-	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