try this
prontera,155,181,5 script Sample 757,{
setarray .KahoID[1],5013,32016,32017,32018,32019,32020,32021,32022,32023;
set @Menu$,"";
for( set .@k,1; .@k < getarraysize( .KahoID ); set .@k,.@k + 1 ){
set @Menu$,@Menu$ + ""+(countitem2(.KahoID[.@k],1,0,0,0,0,0,0)?"^0000FF":"^00FF00")+""+getitemname( .KahoID[.@k] )+"^000000"+":";
}
mes "Which Kaho you would use to Trade to other Kaho ?";
mes "^FF0000Important Notice :^000000";
mes "^00FF00Green Colour ^000000= Not Available";
mes "^0000FFBlue Colour ^000000= Available";
next;
set @Trade, select( @Menu$ );
if( !countitem2( .KahoID[@Trade],1,0,0,0,0,0,0 ) ){
mes "^FF0000FAILED Reason:^000000";
mes "Didnt have ^0000FF"+getitemname( .KahoID[@Trade] )+"^000000 ?";
mes "Removed All ^0000FFCARD^000000 ?";
mes "Already ^0000FFDe-Refined^000000 ?";
close;
}
next;
mes "So, you are going to trade your's ^FF0000"+getitemname( .KahoID[@Trade] )+"^000000 into what Kaho ?";
mes "^00FF00Green Colour ^000000= Desired LKH ?";
mes "^0000FFBlue Colour ^000000= Your Current LKH";
next;
set @TradeTo, select( @Menu$ );
getitem2 .KahoID[@TradeTo],1,1,10,0,0,0,0,0;
unequip EQI_HEAD_TOP;
delitem .KahoID[@Trade],1;
mes "Done... You have changed your ^0000FF"+getitemname( .KahoID[@Trade] )+"^000000 to ^FF0000"+getitemname( .KahoID[@TradeTo] )+"^000000.";
close;
}
add in more Item Here
setarray .KahoID[1],5013,32016,32017,32018,32019,32020,32021,32022,32023;