setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; set .@menu$,""; for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) { if( getequipisequiped(.@i) ) set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; set .@menu$, .@menu$ + ":"; } set .@part,select(.@menu$); if(!getequipisenableref(.@part)) { // checks the item if not refine-able mes "[" + getarg(0) + "]"; mes "I don't think I can"; mes "refine this item at all..."; close; }// write the lines you want to execute if the item is refine-able below this this line