prontera,155,171,5	script	Sample	757,{
if( getgmlevel() < 90 ){
	setcastledata .castle_map$,1,getcharid(2);
	if( select( "Claim Items","Close" ) ){
		if( $woe_claimed ){
			mes "Reward claimed by winner guild.";
		}else if( getguildmasterid( getcastledata( .castle_map$,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,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 > 50 )?"":"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;
set .castle_map$,"prtg_cas01";
end;

OnAgitEnd:
set $woe_claimed,0;
end;
}