function	script	refinemain	{
	disable_items;
	set .@features,getarg(1);
	mes "[" + getarg(0) + "]";
	mes "ข้าเป็นช่างตีบวกอุปกรณ์";
	mes "ข้าสามารถตีอุปกรณ์ให้เจ้าได้ทุกชนิด";
	mes "บอกมาเลยว่าให้ข้าจัดการอุปกรณ์     ชิ้นไหน ? ";
	next;

	setarray .@position$[1], "ส่วนหัว","ส่วนเกราะ","มือซ้าย","มือขวา","ผ้าคลุม","ส่วนเท้า","เครื่องประดับ 1","เครื่องประดับ 2","ส่วนหู","ส่วนปาก";
	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(!getequipisequiped(.@part)) {
		mes "[" + getarg(0) + "]";
		mes"เจ้าไม่ได้สวมใส่";
		mes"สิ่งนี้";
		mes"ข้าไม่สามารถตีให้เจ้าได้";
		emotion e_an;
		close;
	}
	//Check if the item is refinable...
	if(!getequipisenableref(.@part)) {
		mes "[" + getarg(0) + "]";
		mes"ข้าไม่คิดว่าข้าสามารถ";
		mes"ตีสิ่งนี้ให้เจ้าได้ ...";
		close;
	}
	//Check to see if the items is already +10
	if(getequiprefinerycnt(.@part) >= 10) {
		mes "[" + getarg(0) + "]";
		mes"ข้าไม่สามารถตี";
		mes"เพิ่มเติมได้ ";
		close;
	}
	set .@refineitemid, getequipid(.@part); // save id of the item
	set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
	switch(getequipweaponlv(.@part)){
	case 0: 	//Refine Armor
		set .@price,2000;
		set .@material,985;
		set .@safe,4;
		break;
	case 1: 	//Refine Level 1 Weapon
		set .@price,50;
		set .@material,1010;
		set .@safe,7; 
		break;
	case 2: 	//Refine Level 2 Weapon
		set .@price,200;
		set .@material,1011;
		set .@safe,6; 
		break;
	case 3: 	//Refine Level 3 Weapon
		set .@price,5000;
		set .@material,984;
		set .@safe,5; 
		break;
	case 4: 	//Refine Level 4 Weapon
		set .@price,20000;
		set .@material,984;
		set .@safe,4; 
		break;
	case 5: 	//Refine other stuff?
		set .@price,2000;
		set .@material,985;
		set .@safe,4; 
		break;
	}
	if(.@features != 1) {
		mes "[" + getarg(0) + "]";
		mes "สิ่งจำเป็นที่ต้องใช้ในการตี";
		mes "1 ^003366"+getitemname(.@material)+"^000000 and";
		mes "ค่าบริการ " + .@price + " Zeny.";
		mes"เจ้าต้องการจะตีอีกไหม ?";
		next;
		if(select("ใช่:ไม่ใช่") == 2){
			mes "[" + getarg(0) + "]";
			mes "กลับมาได้ทุกเมื่อที่เจ้าต้องการ";
			close;
		}
		if(getequippercentrefinery(.@part) < 100) {
			mes "[" + getarg(0) + "]";
			mes"โอ้ ! ถ้าข้าทำต่อไป";
			mes"อาจมีความเสี่ยงเสียหายได้";
			switch(.@material) {
			case 985:
				mes "ไอเท็มอาจถูกทำลาย ! นั่นหมายความว่า   ^FF0000อุปกรณ์สวมใส่^000000, และ^FF0000การ์ดที่ใส่^000000 หรืออะไรที่อยู่ในอุปกร์สวมใส่ ^FF0000จะหายไป^000000.";				break;
			default:
				mes "ไอเท็มอาจถูกทำลาย นั่นหมายความว่า  ^FF0000จะสูญเสียอาวุธ^000000 และ ^FF0000การ์ดที่ใส่อยู่^000000";
				break;
			}
			next;
			mes "["+getarg(0)+"]";
			mes"เมื่อการตีบวกพิดพลาด";
			mes"จะไม่ได้รับมันกลับคืนมา";
			mes "^FF0000อุปกรณ์จะหายไป^000000 ตลอดกาล";
			mes"เจ้ายังต้องการที่จะตีมันอีกไหม ?";
			next;
			if(select("Yes:No") == 2){
				mes "[" + getarg(0) + "]";
				mes"เจ้าตกลง...";
				mes"ข้าอาจทำสำเร็จ แต่บางครั้งข้าอาจทำพลาด.";
				close;
			}
		}
		if((countitem(.@material) < 1) || (Zeny < .@price)) {
			mes "[" + getarg(0) + "]";
			mes"ดูเหมือนว่าเจ้าจะไม่ได้มี";
			mes"Zeny และ "+getitemname(.@material)+" เพียงพอ";
			mes"ไปหาของมาให้ครบและ";
			mes"กลับมาได้ทุกเมื่อที่ต้องการข้า.";
			close;
		}
		set Zeny,Zeny-.@price;
		delitem .@material,1;
		if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
			mes "[" + getarg(0) + "]";
			mes"ดูที่นี่ ...เจ้าไม่ได้มีรายการใดๆ...";
			close;
		}
		if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
			mes "[" + getarg(0) + "]";
			emotion e_an;
			mes"เจ้าคิดว่าข้าโง่รึไง !";
			mes"เจ้าเปลี่ยนรายการในขณะที่ข้าไม่ได้มอง!!";
			close;
		}
		if(getequippercentrefinery(.@part) <= rand(100)) {
			failedrefitem .@part;
			mes "[" + getarg(0) + "]";
			emotion (!rand(5))?e_cash:e_omg;
			set .@lose,rand(1,3);
			if (.@lose == 1) {
				mes "โอ้ พระ เจ้า !!";
				mes"ข้าขอโทษ .";
				mes"อุปกรณชิ้นนี้ได้ถูกทำลายลงแล้ว ...";
			} else if(.@lose == 2) {
				mes "โอ้ พระ เจ้า !!";
				mes"ข้าขอโทษ .";
				mes"อุปกรณชิ้นนี้ได้ถูกทำลายลงแล้ว ...";
			} else {
				mes "โอ้ พระ เจ้า !!";
				mes"ข้าขอโทษ .";
				mes"อุปกรณชิ้นนี้ได้ถูกทำลายลงแล้ว ...";
			}
			close;
		}
		mes "["+getarg(0)+"]";

		if( getequiprefinerycnt(.@part) > 8 )
		{
			announce "อัพเกรดอุปกรณ์ : ผู้เล่น [ "+strcharinfo(0)+" ] ได้ตีบวก "+getequipname(.@part)+" ขึ้น +"+(getequiprefinerycnt(.@part)+1)+ ติด",bc_all,0x99FF00;
		}
		successrefitem .@part;
		emotion e_heh;
		set .@win,rand(1,3);
		if (.@win == 1) {
			mes "ยินดีด้วย!";
			mes "ฮ่า ฮ่า ฮ่า";
			mes "มันถูกเสริมพลังอย่างปลอดภัย";
		} else if(.@win == 2) {
			mes "ยินดีด้วย!";
			mes "ฮ่า ฮ่า ฮ่า";
			mes "มันถูกเสริมพลังอย่างปลอดภัย";
		} else {
			mes "ยินดีด้วย!";
			mes "ฮ่า ฮ่า ฮ่า";
			mes "มันถูกเสริมพลังอย่างปลอดภัย";
		}
		close;
	}