prontera,155,181,5  script  Sample  757,{
mes "Which Armor you want to Enchant ?";
mes "Make sure there is no Card / Rune in it.";
next;
setarray .EquipID[0],2301,2302,2303,2304,2305,2306,2307,2308,2309,2310;
for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 )
    set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":";
set .@Equip,select( .@EquipMenu$ ) - 1;
if( !countitem( .EquipID[.@Equip] ) ){
    mes "You didnt have this Equipment with you.";
    close;
}
for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 )
    set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":";
set .@Rune,select( .@RuneMenu$ ) - 1;
mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
next;
if( select("Confirm:Cancel") == 1 ){
    if( !countitem( .RuneID[.@Rune] ) ){
        mes "Sorry you didnt have the "+getitemname( .RuneID[.@Rune] )+" with you.";
    }else{
        delitem .EquipID[.@Equip],1;
        delitem .RuneID[.@Rune],1;  
        getitem2 .EquipID[.@Equip],1,1,0,0,0,0,0,.RuneID[.@Rune];
        mes "Done.";
        mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000";
        mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
    }
}
close;
}