prontera,155,181,5	script	Sample	757,{
mes "Select an headgear to trade to other colour ..";
set .@give,select( .menu$ ) - 1;

getinventorylist;
mes "I need..";
for( set .@i,0; .@i < .size[.@give]; set .@i,.@i + 1 ){
	set .@item,getd( ".headgear_"+.@give+"["+.@i+"]" );
	mes " ~ "+getitemname( .@item );
	for( set .@x,0; .@x < @inventorylist_count; set .@x,.@x + 1 )
		if( .@item == @inventorylist_id[.@x] ){
			set .@iteminfo,getiteminfo(  .@item,5 );
			if( @inventorylist_refine[.@x] < 10 && ( .@iteminfo & 648 ) == 0 )
				mes "^FF0000( not +10 )^000000";
			else if( countitem( .@item ) > 1 )
				mes "^FF0000( make sure have 1 only )^000000";
			else if( @inventorylist_card1[.@x] || @inventorylist_card2[.@x] || @inventorylist_card3[.@x] || @inventorylist_card4[.@x] )
				mes "^FF0000( remove all cards )^000000";
			else set .@found,.@found + 1;
			break;
		}
}
if( .@found < .size[.@give] ) close;
mes "Select exchange to which ?";
set .@gain,select( .menu$ ) - 1;
for( set .@i,0; .@i < .size[.@give]; set .@i,.@i + 1 )
	delitem getd( ".headgear_"+.@give+"["+.@i+"]" ),1;
for( set .@i,0; .@i < .size[.@gain]; set .@i,.@i + 1 ){
	set .@iteminfo,getiteminfo( getd( ".headgear_"+.@gain+"["+.@i+"]" ),5 );
	if( .@iteminfo & 648 == 0 )
		getitem2 getd( ".headgear_"+.@gain+"["+.@i+"]" ),1,1,10,0,0,0,0,0;
	else
		getitem getd( ".headgear_"+.@gain+"["+.@i+"]" ),1;
}
mes "Exchanged "+.headgear$[.@give]+" to "+.headgear$[.@gain];
close;

OnInit:
// headgear list
setarray .headgear$,"NAME 1","Name 2","Name 3";
setarray .headgear_0,5001,5002,5003;	// set 1
setarray .headgear_1,5004,5005,5006;	// set 2
setarray .headgear_2,5007,5008,5009;	// set 3

set .headgear_size,getarraysize( .headgear$ );
for( set .@i,0; .@i < .headgear_size; set .@i,.@i + 1 ){
	set .menu$,.menu$ + .headgear$[.@i] +":";
	set .size[.@i],getarraysize( getd( ".headgear_"+.@i ) );
}
end;
}