prontera,155,181,5	script	Sample	757,{
if( getgmlevel() < .gm_level ){
	mes "I only serve GM.";
}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";
		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 .@guild_id,getcastledata( .castle_map$,1 );
set .guild_leader_name$,getguildmaster( .@guild_id );

if( isloggedin( getcharid( 3,.guild_leader_name$ ),getcharid( 0,.guild_leader_name$ ) ) ){
	for( set .@x,0; .@x < $woe_reward_size; set .@x,.@x + 1 )
		getitem $woe_reward[.@x],$woe_reward_amount[.@x],.@aid[.@i];
}
end;
}