-	script	Enchant Girl	112,{
	mes .@npc_name$ = "[^0080FF"+ strnpcinfo(1) +"^000000]";
	mes "I can enchant Quest Armor with some orb";
	setarray .@q_armor, 62001, 62002, 62003;
	for (.@i = 0; .@i < getarraysize(.@q_armor); .@i++)
	{
		if (countitem(.@q_armor[.@i]))
			.@menu$ = .@menu$ + getitemname(.@q_armor[.@i]) +":";
		else
			.@menu$ = .@menu$ + ":"
	}
	.@s = select(.@menu$)-1;
	clear;
	mes .@npc_name$;
	mes "Alright i will enchant it now please don't move";
	progressbar 3, 0xFFFFFF;
	.@q_orb = rand(62101, 62105);
	clear;
	mes .@npc_name$;
	if (countitem(.@q_armor[.@s]))
	{
		delitem .@q_armor[.@s], 1;
		getitem2 <item id>,<amount>,<identify>,<refine>,<attribute>,<card1>,<card2>,<card3>,<card4>{,<account ID>};
		getitem2 .@q_armor[.@s], 1, 1, 0, 0, 0, 0, 0, .@q_orb;
		mes "Congratulation now your "+ getitemname(.@q_armor[.@s]) +" has "+ getitemname(.@q_orb) +" inside it";
		close;
	}
	mes "Where is the armor "+ getitemname(.@q_armor[.@s]);
	close;
}