prontera,164,163,3	script	Socket	614,{
mes "Which Armor you want to Enchant ?";
mes "Make sure there is no Card / Rune in it.";
mes "10% Maybe Ur Armor Process Failed.";
next;
setarray .EquipID[0],2351,2349,2375,2374,2345,2353,2347,2357,2364,2398,2322;
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;
}
mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000";
switch( select( "Strength:Intelligent:Dexterity:Agility:Vitality:Luck" )){
	Case 1: setarray .RuneID[0],4700,4701,4702; break;
	Case 2: setarray .RuneID[0],4710,4711,4712; break;
	Case 3: setarray .RuneID[0],4720,4721,4722; break;
	Case 4: setarray .RuneID[0],4730,4731,4732; break;
	Case 5: setarray .RuneID[0],4740,4741,4742; break;
	Case 6: setarray .RuneID[0],4750,4751,4752; break;
}
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";
mes "Cost : ^FF0000"+( 500 * .@Rune )+" x "+getitemname( 7539 )+"^000000";
next;
if( select("Confirm:Cancel") == 1 ){
	if( countitem( 7539 ) < ( 500 * .@Rune ) ){
		mes "You required "+( 500 * .@Rune )+" x "+getitemname( 7539 );
	}else{
		delitem 7539,( 500 * .@Rune );
		delitem .EquipID[.@Equip],1;
		if( rand(100) < 10 ){
			mes "Sorry Enchant Process Failed. Both Equipment and CASHPOINTS lost.";
		}else{
			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;
}