starter,89,109,6	script	Headgear Socket	525,{
mes "Which Headgear you want to Enchant ?";
mes "Make sure there is no Card / Rune in it.";
mes "10% Maybe Ur Headgear Process Failed.";
next;
setarray .EquipID[0],31018,31019,31020,31021,31022,31023,31024,31025,31026,31027,31028,31029,31030,31051,31052,31053,31054,31055,31056,31057,31058,31059,31060;
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( "Assassin:Monk:Blacksmith:Sage:Hunter:Bard Dancer:Knight:Priest:Crusader:Wizard:Alchemist:Gunslinger:Ninja:Rogue:Soulinker:Taekwondo" )){
	Case 1: setarray .RuneID[0],22000; break;
	Case 2: setarray .RuneID[0],22001; break;
	Case 3: setarray .RuneID[0],22002; break;
	Case 4: setarray .RuneID[0],22003; break;
	Case 5: setarray .RuneID[0],22004; break;
	Case 6: setarray .RuneID[0],22005; break;
	Case 7: setarray .RuneID[0],22006; break;
	Case 8: setarray .RuneID[0],22007; break;
	Case 9: setarray .RuneID[0],22008; break;
	Case 10: setarray .RuneID[0],22009; break;
	Case 11: setarray .RuneID[0],22010; break;
	Case 12: setarray .RuneID[0],22011; break;
	Case 13: setarray .RuneID[0],22012; break;
	Case 14: setarray .RuneID[0],22013; break;
	Case 15: setarray .RuneID[0],22014; break;
	Case 16: setarray .RuneID[0],22015; 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 )+"^000000 CASHPOINTS";
next;
if( select("Confirm:Cancel") == 1 ){
	if( #CASHPOINTS < ( 500 * .@Rune ) ){
		mes "You required "+( 500 * .@Rune )+" CASHPOINTS.";
	}else{
		set #CASHPOINTS,#CASHPOINTS - ( 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;
}