arcadia,145,237,5	script	Woe Rewarder	837,{

	function GetReward;

	if ( agitcheck() ) goto L_woeon;
	menu
	//	"Neuschwanstein",L_aldeg_cas01,
	//	"Hohenschwangau",L_aldeg_cas02,
		"Nuenberg",L_aldeg_cas03,
	//	"Wuerzburg",L_aldeg_cas04,
	//	"Rothenburg",L_aldeg_cas05,
	//	"Repherion",L_gefg_cas01,
	//	"Eeyolbriggar",L_gefg_cas02,
		"Yesnelph",L_gefg_cas03,
	//	"Bergel",L_gefg_cas04,
	//	"Mersetzdeitz",L_gefg_cas05,
	//	"Bright Arbor",L_payg_cas01,
		"Scarlet Palace",L_payg_cas02,
	//	"Holy Shadow",L_payg_cas03, // Saturday
	//	"Sacred Altar",L_payg_cas04, // Sunday
	//	"Bamboo Grove Hill",L_payg_cas05,
		"Kriemhild",L_prtg_cas01; // Monday
	//	"Swanhild",L_prtg_cas02, // Tuesday
	//	"Fadhgridh",L_prtg_cas03, // Wednesday
	//	"Skoegul",L_prtg_cas04, // Thursday
	//	"Gondul",L_prtg_cas05 // Friday

L_aldeg_cas01:
	if ( getcastledata( "aldeg_cas01", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[1] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[1], 1;
	close;
L_aldeg_cas02:
	if ( getcastledata( "aldeg_cas02", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[2] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[2], 1;
	close;
L_aldeg_cas03:
	if ( getcastledata( "aldeg_cas03", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[3] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[3], 1;
	close;
L_aldeg_cas04:
	if ( getcastledata( "aldeg_cas04", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[4] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[4], 1;
	close;
L_aldeg_cas05:
	if ( getcastledata( "aldeg_cas05", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[5] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[5], 1;
	close;

L_gefg_cas01:
	if ( getcastledata( "gefg_cas01", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[6] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[6], 1;
	close;
L_gefg_cas02:
	if ( getcastledata( "gefg_cas02", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[7] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[7], 1;
	close;
L_gefg_cas03:
	if ( getcastledata( "gefg_cas03", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[8] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[8], 1;
	close;
L_gefg_cas04:
	if ( getcastledata( "gefg_cas04", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[9] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[9], 1;
	close;
L_gefg_cas05:
	if ( getcastledata( "gefg_cas05", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[10] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[10], 1;
	close;

L_payg_cas01:
	if ( getcastledata( "payg_cas01", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[11] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[11], 1;
	close;
L_payg_cas02:
	if ( getcastledata( "payg_cas02", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[12] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[12], 1;
	close;
L_payg_cas03:
	if ( getcastledata( "payg_cas03", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[13] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[13], 1;
	close;
L_payg_cas04:
	if ( getcastledata( "payg_cas04", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[14] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[14], 1;
	close;
L_payg_cas05:
	if ( getcastledata( "payg_cas05", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[15] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[15], 1;
	close;

L_prtg_cas01:
	if ( getcastledata( "prtg_cas01", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[16] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[16], 1;
	close;
L_prtg_cas02:
	if ( getcastledata( "prtg_cas02", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[17] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[17], 1;
	close;
L_prtg_cas03:
	if ( getcastledata( "prtg_cas03", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[18] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[18], 1;
	close;
L_prtg_cas04:
	if ( getcastledata( "prtg_cas04", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[19] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[19], 1;
	close;
L_prtg_cas05:
	if ( getcastledata( "prtg_cas05", 1) != getcharid(2) ) goto L_not_owner;
	if ( $castle_claimed[20] ) goto L_claimed;
	if ( getguildmasterid( getcharid(2) ) != getcharid(0) ) goto L_not_gm;
	mes "Receiving the reward for this castle";
	GetReward;

	set $castle_claimed[20], 1;
	close;

L_woeon:
	mes "A war is currently in progress";
	mes "If your guild owned a castle ask your guild master to see me to claim the reward";
	close;
L_not_owner:
	mes "Your guild failed to take this castle";
	mes "If your guild owned a castle ask your guild master to claim reward from me";
	close;
L_claimed:
	mes "Your guild already received the reward for this castle";
	close;
L_not_gm:
	mes "Ask your guild master to see me";
	close;
OnAgitEnd:
	switch ( gettime(4) ) {
		case 1: set $castle_claimed[16], 0; break; // Kriem - Mon
		case 3: set $castle_claimed[3], 0; break; // Nuen - Wed
		case 5: set $castle_claimed[8], 0; break; // Yesnelph - Fri
		case 6: set $castle_claimed[12], 0; break; // Scarlet - Sat
	}
	end;

	function GetReward
	{
		set #CASHPOINTS, #CASHPOINTS + 100;
		dispbottom "Received 100 Celery Credits.";
		dispbottom "You have " + #CASHPOINTS + " Celery Credits!";

		announce "Guild Leader " + strcharinfo(0) +  " has received 100 Celery Credits for this week's WoE.",0;
	}

OnInit:
	waitingroom " WoE Information",0;
	end;

}