King of the Hill (Automated)

[awesomazingxed]

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

I don't know if this one is automated, but if not how cak i make it automated? Thanks in advance. 

[Radian]

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

I don't know if this one is automated, but if not how cak i make it automated? Thanks in advance. 

 

 

look for this

L_start:

and add something like this

OnHour07:
L_start:

meaning it will start at 7:00 am on your server time.

 

 

now lets go to when will it ends.

 

look for this

L_end:

and then it will look like this

OnHour08:
L_end: