N>help on woe prize giver

[chromus28]

can anyone help me to change this woe prize giver? i want to make this woe prize giver that after woe only guild master can recieve the woe prize? or after woe there will be a room for a guild master only can enter to get the woe prize?

 

brasilis,241,324,5	script	WoE Personell	835,{

OnTouch:
	if(agitcheck() == 0) {
	mes "[WoE Personell]";
	mes "WOE Sched: ";
	mes "~ Saturday(18:00-19:00)";
	mes "   -Kriemheld";
	mes " ";
	mes "~ Monday(18:00-19:00)";
	mes "   -Cyr";
	mes " ";
	mes "~ Tuesday(18:00-19:00)";
	mes "   -Himinn";
	mes " ";
	mes "~ Wednesday(18:00-19:00)";
	mes "   -Swanhild";
	mes " ";
	mes "~ Thursday(18:00-19:00)";
	mes "   -Mardol";
	mes " ";
	mes "~ Friday(18:00-19:00)";
	mes "   -Andlangr";
	menu "Get Prize",cas_prize;
	}
	if(#woeprize == 1) {
	set #woeprize, 0;
	message strcharinfo(0),"WoE is now open!";
	menu "Warp to Castle",cas_warp;
	}
	message strcharinfo(0),"WoE is now open!";
	menu "Warp to Castle",cas_warp;

cas_warp:
	menu "Kriemhield",krim,"Swanhild",swan,"Himinn",him,"Andlangr",andl,"Mardol",mar,"Cyr",cyr;

krim:
	warp "prt_gld",134,65;
	end;
swan:
	warp "prt_gld",239,130;
	end;
him:
	warp "sch_gld",293,100;
	end;
andl:
	warp "sch_gld",288,246;
	end;
mar:
	warp "aru_gld",158,272;
	end;
cyr:
	warp "aru_gld",122,78;
	end;

no_woe:
	message strcharinfo(0),"sorry but WOE is still off";
	close;

cas_prize:
	if(agitcheck() == 1)  goto no_prize;
	else
		if(getcharid(2) == 0) goto no_guild;
		else
		if(strcharinfo(0) == getguildmaster(getcharid(2))) {
		if(#woeprize == 1) goto nomore_prize;
		else
			set @GIDwoe, getcharid(2);
			sleep2 100;
			if($@guildprize$ == getguildname(@GIDwoe)) {
			message strcharinfo(0),"Sorry but you're guild already get your prize";
			}
			if(@GIDwoe == getcastledata("arug_cas01",1)) { goto marprize;
			} else if(@GIDwoe == getcastledata("schg_cas01",1)) { goto himprize;
			} else if(@GIDwoe == getcastledata("prtg_cas01",1)) { goto krimprize;
			} else if(@GIDwoe == getcastledata("arug_cas02",1)) { goto cyrprize;
			} else if(@GIDwoe == getcastledata("prtg_cas02",1)) { goto swanprize;
			} else if(@GIDwoe == getcastledata("schg_cas02",1)) { goto andlprize;
			} else goto no_cas;
				end;
		}
		message strcharinfo(0),"Sorry only GM's are allowed!";
		end;
krimprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guild_masterkrim;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;
himprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guild_masterhim;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;
marprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guild_mastermar;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;
cyrprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guild_mastercyr;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;
swanprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guild_masterswan;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;
andlprize:
	if(strcharinfo(0) == getguildmaster(@GIDwoe)) goto guid_masterandl;
	else
	message strcharinfo(0),"Only Guild Masters can have a prize!";
	end;

guild_masterkrim:
	if ( #woeprizekrim == 1 ) { 
		goto guild_mastermar;
		set #woeprizekrim, 0;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 1000;
	getitem 7074, 1;
	set #woeprize, 1;
	set #woeprizekrim, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;
guild_mastermar:
	if ( #woeprizemar == 1 ) { 
		goto guild_masterhim;
		set #woeprizemar, 0;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 700;
	getitem 7086, 1;
	set #woeprize, 1;
	set #woeprizemar, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;
guild_masterhim:
	if ( #woeprizehim == 1 ) { 
		goto guild_masterswan;
		set #woeprizehim, 0;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 700;
	getitem 7836, 1;
	set #woeprize, 1;
	set #woeprizehim, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;
guild_masterswan:
	if ( #woeprizeswan == 1 ) { 
		goto guild_masterandl;
		set #woeprizeswan, 0;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 800;
	getitem 7086, 1;
	set #woeprize, 1;
	set #woeprizeswan, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;
guild_masterandl:
	if ( #woeprizeandl == 1 ) { 
		goto guild_mastercyr;
		set #woeprizeandl, 1;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 600;
	getitem 7836, 1;
	set #woeprize, 1;
	set #woeprizeandl, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;
guild_mastercyr:
	if ( #woeprizecyr == 1 ) { 
		goto guild_masterkrim;
		set #woeprizecyr, 0;
		end;
	}
	message strcharinfo(0),"There you go brave GuildMaster! Until the next WOE!";
	getitem 674, 550;
	getitem 7089, 1;
	set #woeprize, 1;
	set #woeprizecyr, 1;
	set $@guildprize$, getguildname(@GIDwoe);
	end;

no_prize:
	message strcharinfo(0),"War of Emperium is still running!";
	end;
no_guild:
	message strcharinfo(0),"Sorry but you don't have a guild!";
	end;
no_cas:
	message strcharinfo(0),"Sorry but you don't own a castle";
	end;
nomore_prize:
	message strcharinfo(0),"You have already your prize sir!";
	end;
}
		
brasilis,246,322,5	script	WoE Timer	835,{
OnTouch:
	end;

OnAgitStart:
	if(agitcheck() == 1 | agitcheck2() == 1) {
		stopnpctimer;
		announce "War of Emperium has Begun!",0;
		enablenpc "WoE Timer";
		initnpctimer;
		goto woetimer;
		end;
	}
	delwaitingroom;
	end;

OnAgitEnd:
	stopnpctimer;
	disablenpc "WoE Timer";
	end;

woetimer:
	if((getnpctimer(0)/60000) < 59) {
	delwaitingroom;
	waitingroom "Time Left [00:"+(60-(getnpctimer(0)/60000))+"]",0;
	sleep2 1000;
	goto woetimer;
	end;
	} else
	delwaitingroom;
	stopnpctimer;
	announce "[WoE Timer]: Last 1 Minute!!!",0;
	disablenpc "WoE Timer";
	end;
OnInit:
	disablenpc "WoE Timer";
	end;

}
-	script	WOEprizeDATA	-1,{

OnMon1800:
	set $@woe_cascyr, 1;
	end;
OnMon1900:
	set $@woe_cascyr, 0;
	end;
OnTue1800:
	set $@woe_cashim, 1;
	end;
OnTue1900:
	set $@woe_cashim, 0;
	end;
OnWed1800:
	set $@woe_casswan, 1;
	end;
OnWed1900:
	set $@woe_casswan, 0;
	end;
OnThu1800:
	set $@woe_casmar, 1;
	end;
OnThu1900:
	set $@woe_casmar, 0;
	end;
OnFri1800:
	set $@woe_casand, 1;
	end;
OnFri1900:
	set $@woe_casand, 0;
	end;
OnSat1800:
	set $@woe_caskrim, 1;
	end;
OnSat1900:
	set $@woe_caskrim, 0;
	end;

OnPCLoadMapEvent:
	if ( $@woe_cascyr == 0 ) {
		if ( $@woe_cashim == 0 ) {
			if ( $@woe_casswan == 0 ) {
				if ( $@woe_casmar == 0 ) {
					if ( $@woe_casand == 0 ) {
						if ( $@woe_caskrim == 0 ) {
							end;
							}
								set #woeprizekrim, 0;
								end;
						}
							set #woeprizeandl, 0;
							end;
					}
						set #woeprizemar, 0;
						end;
				}
					set #woeprizeswan, 0;
					end;
			}
				set #woeprizehim, 0;
				end;
		}
			set #woeprizecyr, 0;
			end;
}
brasilis	mapflag	loadevent
							
							

 

help please