prontera,155,171,5	script	Sample	757,{
if( getgmlevel() < 90 ){
	mes "Which Castle Rewards ?";
	set .@i,select( .menu$ ) - 1;
	if( $woe_claimed[.@i] ){
		mes "Reward claimed by winner guild.";
	}else if( getguildmasterid( getcastledata( .castle_map$[.@i],1 ) ) == getcharid(0) ){
		for( set .@i,0; .@i < $woe_reward_size; set .@i,.@i + 1 )
			getitem $woe_reward[.@i],$woe_reward_amount[.@i];
			set $woe_claimed[.@i],1;
		mes "Done";
	}else{
		mes "You are not guild master from winning guild.";
	}
	close;
}else{
	while( 1 ){
		for( set .@i,0; .@i < $woe_reward_size; set .@i,.@i + 1 )
			mes "^0055FF ~ ^777777"+$woe_reward_amount[.@i]+" x "+getitemname( $woe_reward[.@i] )+"^000000";
		next;
		switch( select( ( $woe_reward_size > 15 )?"":"Add Rewards",( !$woe_reward_size )?"":"Remove Rewards","Close" ) ){
			Case 1:
				do{
					input .@item,0,32767;
					if( !.@item ) close;
				}while( getitemname( .@item ) == "null" );
				mes "how many "+getitemname( .@item )+" ?";
				input .@amount,0,30000;
				if( .@amount ){
					mes "Done, added "+.@amount+" x "+getitemname( .@item );
					set $woe_reward[ $woe_reward_size ],.@item;
					set $woe_reward_amount[ $woe_reward_size ],.@amount;
					set $woe_reward_size,getarraysize( $woe_reward );
				}
				break;
			Case 2:
				mes "Select an item to remove.";
				set .@menu$,"";
				for( set .@i,0; .@i < $woe_reward_size; set .@i,.@i + 1 )
					set .@menu$,.@menu$ + $woe_reward_amount[.@i]+ " x "+getitemname( $woe_reward[.@i] ) +":";
				set .@i,select( .@menu$ ) - 1;
				mes "Are you sure want to remove this ?";
				mes "~ ^FF0000"+$woe_reward_amount[.@i]+" x "+getitemname( $woe_reward[.@i] )+"^000000";
				if( select( "nope","Confirm" ) == 2 ){
					mes "Done...";
					deletearray $woe_reward[.@i],1;
					deletearray $woe_reward_amount[.@i],1;
					set $woe_reward_size,getarraysize( $woe_reward );
				}
				break;
			default: close;
		}
	}
}
close;

OnInit:
set .gm_level,90;
setarray .castle_map$,"prtg_cas01","prtg_cas02","prtg_cas04","prtg_cas05";
set .castle_size,getarraysize( .castle_map$ );
for( set .@i,0; .@i < .castle_size; set .@i,.@i + 1 )
	set .menu$,.menu$ + getcastlename( .castle_map$[.@i] ) +":";
end;

OnAgitEnd:
switch( gettime(4) ){
	Case 0: set $woe_claimed[1],0; break;
	Case 1: set $woe_claimed[2],0; break;
	Case 4: set $woe_claimed[4],0; break;
	Case 6: set $woe_claimed[0],0; break;
	default: break;
}
end;
}