King of the Hill Doesn't Work

[awesomazingxed]

Hello everyone. Can anyone help me with this error. 

 

-	script	KoE	-1,{
OnInit:
	disablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	bindatcmd "koe", strnpcinfo(0)+"::Oncommand", 99,99;
	end;
Oncommand:
	if ( compare( .@atcmd_parameters$, "on" ) ) goto L_start;
	else if ( compare( .@atcmd_parameters$, "off" ) ) goto L_end;
	else {
		dispbottom "type - '@koe on' to start the event";
		dispbottom "type - '@koe off' to end the event";
	}
	end;
OnHour12:
L_start:
	gvgon "koe";
	announce "The King of Emperium Hill has begun!", bc_all;
	.start = 1;
	enablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	$koegid = 0;
	donpcevent "::OnRevKoE";
	maprespawnguildid "koe", $koegid, 7;
	monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
	end;		
OnHour13:
L_end:
	gvgoff "koe";
	announce "The King of Emperium Hill is over!", bc_all;
	.start = 0;
	enablenpc "Exit#KoE";
	disablenpc "The King#KoE";
	killmonsterall "koe";
//	maprespawnguildid "koe", $koegid, 6;
	end;
OnEmpDead:
	$koegid = getcharid(2);
	announce "The current King of Emperium Hill is the ["+ strcharinfo(2) +"] guild.", bc_all;
	donpcevent "::OnRevKoE";
	maprespawnguildid "koe", $koegid, 6;
	sleep 500;
	if ( .start )
		monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
	end;
}

// KoE Entrance
phtownall,221,211,4	script	The King#KoE	58,{
    mes "[The King]";
	if ( !getcharid(2) ) {
		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;
    switch( rand(1,4) ){
        case 1:	warp "koe", 50, 88; end;
        case 2:	warp "koe", 88, 50; end;
        case 3:	warp "koe", 50, 11; end;
        case 4:	warp "koe", 11, 50; end;
	}
}

// KoE Exit
koe,49,56,5	script	Exit#KoE	51,{
	mes "[Exit]";
	mes "See ya.";
	if ( getcharid(2) == $koegid )
		getitem 7711, 2; // configure prize here
	close2;
	warp "Save",0,0;
	end;
}

// Flags
koe,49,38,4	script	King of Emperium Hill#1::koe_flag	722,{
	if ( !$koegid ) end;
	mes "[King of Emperium Hill]";
	mes "The Current King of Emperium Hill is the ["+ getguildname($koegid) +"] guild.";
	close;
OnRevKoE:
	flagemblem $koegid;
	end;
}
koe,61,49,6	duplicate(koe_flag)	King of Emperium Hill#2	722
koe,38,49,2	duplicate(koe_flag)	King of Emperium Hill#3	722
koe,49,61,0	duplicate(koe_flag)	King of Emperium Hill#4	722

koe	mapflag	nobranch
koe	mapflag	nomemo
koe	mapflag	nopenalty
koe	mapflag	noreturn
koe	mapflag	nosave	SavePoint
koe	mapflag	noteleport
koe	mapflag	gvg_noparty
koe	mapflag	nowarp
koe	mapflag	nowarpto
koe	mapflag	guildlock

note: I don't know how to check if it's automated or not. I want it to be automated during 12 pm ( server time )

Thank you. 

[Radian]

Try this one.

-	script	KoE	-1,{
OnInit:
	disablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	bindatcmd "koe", strnpcinfo(0)+"::Oncommand", 99,99;
	end;
Oncommand:
	if ( compare( .@atcmd_parameters$, "on" ) ) goto L_start;
	else if ( compare( .@atcmd_parameters$, "off" ) ) goto L_end;
	else {
		dispbottom "type - '@koe on' to start the event";
		dispbottom "type - '@koe off' to end the event";
	}
	end;
OnHour12:
L_start:
	gvgon "koe";
	announce "The King of Emperium Hill has begun!", bc_all;
	set .start = 1;
	enablenpc "The King#KoE";
	disablenpc "Exit#KoE";
	$koegid = 0;
	donpcevent "::OnRevKoE";
	maprespawnguildid "koe", $koegid, 7;
	monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
	end;		
OnHour13:
L_end:
	gvgoff "koe";
	announce "The King of Emperium Hill is over!", bc_all;
	.start = 0;
	enablenpc "Exit#KoE";
	disablenpc "The King#KoE";
	killmonsterall "koe";
//	maprespawnguildid "koe", $koegid, 6;
	end;
OnEmpDead:
	$koegid = getcharid(2);
	announce "The current King of Emperium Hill is the ["+ strcharinfo(2) +"] guild.", bc_all;
	donpcevent "::OnRevKoE";
	maprespawnguildid "koe", $koegid, 6;
	sleep 500;
	if ( .start )
		monster "koe",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
	end;
}

// KoE Entrance
phtownall,221,211,4	script	The King#KoE	58,{
    mes "[The King]";
	if ( !getcharid(2) ) {
		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;
    switch( rand(1,4) ){
        case 1:	warp "koe", 50, 88; end;
        case 2:	warp "koe", 88, 50; end;
        case 3:	warp "koe", 50, 11; end;
        case 4:	warp "koe", 11, 50; end;
	}
}

// KoE Exit
koe,49,56,5	script	Exit#KoE	51,{
	mes "[Exit]";
	mes "See ya.";
	if ( getcharid(2) == $koegid )
		getitem 7711, 2; // configure prize here
	close2;
	warp "Save",0,0;
	end;
}

// Flags
koe,49,38,4	script	King of Emperium Hill#1::koe_flag	722,{
	if ( !$koegid ) end;
	mes "[King of Emperium Hill]";
	mes "The Current King of Emperium Hill is the ["+ getguildname($koegid) +"] guild.";
	close;
OnRevKoE:
	flagemblem $koegid;
	end;
}
koe,61,49,6	duplicate(koe_flag)	King of Emperium Hill#2	722
koe,38,49,2	duplicate(koe_flag)	King of Emperium Hill#3	722
koe,49,61,0	duplicate(koe_flag)	King of Emperium Hill#4	722

koe	mapflag	nobranch
koe	mapflag	nomemo
koe	mapflag	nopenalty
koe	mapflag	noreturn
koe	mapflag	nosave	SavePoint
koe	mapflag	noteleport
koe	mapflag	gvg_noparty
koe	mapflag	nowarp
koe	mapflag	nowarpto
koe	mapflag	guildlock

this one is set at OnHour12: means it will activate on 12:00 server time.