//==============================================
// NPC
// д by FPE(2006.6.28)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

//callfunc "MFJA_refine01","<NPC>";
function	script	MFJA_refine01	{
	mes "[" + getarg(0) + "]";
	mes "ֻҪ㽫^FF0000֮ԭʯ^000000^FF0000ԭʯ^000000ңϾͿΪ֮ԼҪ5ԭʯҲа취㡣";
	next;
	menu	"֮",A01,
		"",A02,
		"ѯйʯ",-;

	mes "[" + getarg(0) + "]";
	mes "νʯ...";
	mes "ұѾ˶ʮ꣬ܶĴ˵...ûʵʼ!";
	mes "˵ӵˮء𡢷ԡ";
	next;
	mes "[" + getarg(0) + "]";
	mes "˵ڶұʱʱĻ...ӵʱĳǿ";
	mes "..˵һӵмߵĶұ";
	close;
	end;

A01:
	if(countitem(756)<5)
	{
		mes "[" + getarg(0) + "]";
		mes "...氮ЦҲǸ˵Ҫû5֮ԭʯĻ޷֮";
		close;
		end;
	}
	delitem 756,5;
	getitem 984,1;
	mes "[" + getarg(0) + "]";
	mes "Ҫ֮ӭ´";
	close;
	end;

A02:
	if(countitem(757)< 5)
	{
		mes "[" + getarg(0) + "]";
		mes "...氮Ц";
		mes "ҲǸ˵Ҫû5ԭʯĻ޷";
		close;
		end;
	}
	delitem 757,5;
	getitem 985,1;
	mes "[" + getarg(0) + "]";
	mes "Ҫӭ´";
	close;
	end;
}

//callfunc "MFJA_refine02","<NPC>";
function	script	MFJA_refine02	{
	mes "[" + getarg(0) + "]";
	mes "ǸƷʱҪĽ";
	mes "ȼ1^007777ǿý-ǿһ^000000";
	mes "...ȼ2^007777ǿý-ǿ^000000Ƚ";
	next;
	if((MaxWeight-Weight)<2000)
	{
		mes "[" + getarg(0) + "]";
		mes "ǸĿǰǸ״̬";
		mes "޷ṩ";
		close;
		end;
	}

	switch(select("ǿý-ǿһ- 200","ǿý-ǿ- 1000","ѯû"))
	{
	case 1:
		set @itemid,1010;
		set @value,200;
		mes "[" + getarg(0) + "]";
		mes "ҪһҪ200ZENY";
		break;
	case 2:
		set @itemid,1011;
		set @value,1000;
		mes "[" + getarg(0) + "]";
		mes "ҪһҪ1000ZENY";
		break;
	case 3:
		mes "[" + getarg(0) + "]";
		mes "ʵȼ12ҪĽɣ";
		mes "ӦҲ֪֮...ԭͱȽȡ...";
		close;
		end;
		break;
	}

	switch(select("1","2","5","10",""))
	{
	case 1:
		if(zeny<@value) break;
		set zeny,zeny-@value;
		getitem @itemid,1;
		mes "[" + getarg(0) + "]";
		mes "ˣҪǿýպá";
		close;
		end;
		break;
	case 2:
		if(zeny<2*@value) break;
		set zeny,zeny-2*@value;
		getitem @itemid,2;
		mes "[" + getarg(0) + "]";
		mes "ˣҪǿýպá";
		close;
		end;
		break;
	case 3:
		if(zeny<5*@value) break;
		set zeny,zeny-5*@value;
		getitem @itemid,5;
		mes "[" + getarg(0) + "]";
		mes "ˣҪǿýպá";
		close;
		end;
		break;
	case 4:
		if(zeny<10*@value) break;
		set Zeny,Zeny-10*@value;
		getitem @itemid,10;
		mes "[" + getarg(0) + "]";
		mes "ˣҪǿýպá";
		close;
		end;
		break;
	default:
		mes "[" + getarg(0) + "]";
		mes "Ǻðɣӭ´";
		close;
		end;
		break;
	}

	mes "[" + getarg(0) + "]";
	mes "ԲŶڵĽҲɲʵġ";
	close;
	end;
}

//callfunc "MFJA_refine03","<NPC>";
function	script	MFJA_refine03	{
	mes "[" + getarg(0) + "]";
	mes "רŶߵҿΪװĿеƷҪװĿеһƷأ";
	next;
	switch(select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10)))
	{
		set @part,@menu;
		if(getequipisequiped(@part)) break;
		mes "[" + getarg(0) + "]";
		mes "ҪҪҰͷԶεôһ㰡";
		close;
		end;
		break;
	}

	if(getequipisenableref(@part)==0)
	{
		mes "[" + getarg(0) + "]";
		mes "װ޷";
		close;
		end;
	}
	if(getequipisidentify(@part)==0)
	{
		mes "[" + getarg(0) + "]";
		mes "ΪδԲܾ";
		close;
		end;
	}
	if(getequiprefinerycnt(@part)>=10)
	{
		mes "[" + getarg(0) + "]";
		mes "װѾεߵȼ޷ٶ..";
		close;
		end;
	}

	switch(getequipweaponlv(@part))
	{
	case 0:
		mes "[" + getarg(0) + "]";
		mes "ҪѡװҪ^ff9999^000000Լ2000ҡ";
		mes "ȷҪ";
		next;
		if(select("","ȡ")==2)
		{
			mes "[" + getarg(0) + "]";
			mes "Ǻðɣӭ´";
			close;
			end;
		}
		if(getequippercentrefinery(@part)!=100)
		{
			mes "[" + getarg(0) + "]";
			mes "װѾκܶ˵...ҪټεĻܻร";
			next;
			mes "[" + getarg(0) + "]";
			mes "Ҫ𻵵ĻɾͲܼʹˣĿƬҲ^ff0000ȫʧ^000000";
			next;
			mes "[" + getarg(0) + "]";
			mes "ңװҲʧŶȷҪ";
			next;
			if(select("","ȡ")==2)
			{
				mes "[" + getarg(0) + "]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
				end;
			}
		}
		if(countitem(985)<1 || zeny<2000)
		{
			mes "[" + getarg(0) + "]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ";
			close;
			end;
		}
		delitem 985,1;
		set zeny,zeny-2000;
		break;
	case 1:
		mes "[" + getarg(0) + "]";
		mes "Ҫȼ1";
		mes "ҪεĻҪ^ff9999ǿý-ǿһ^000000Լ50ҡ";
		mes "Ҫ";
		next;
		if(select("","ȡ")==2)
		{
			mes "[" + getarg(0) + "]";
			mes "Ǻðɣӭ´";
			close;
			end;
		}
		if(getequippercentrefinery(@part)!=100)
		{
			mes "[" + getarg(0) + "]";
			mes "װѾκܶ˵...ҪټεĻܻร";
			next;
			mes "[" + getarg(0) + "]";
			mes "Ҫ𻵵ĻɾͲܼʹˣĿƬҲ^ff0000ȫʧ^000000";
			next;
			mes "[" + getarg(0) + "]";
			mes "ңװҲʧŶȷҪ";
			next;
			if(select("","ȡ")==2)
			{
				mes "[" + getarg(0) + "]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
				end;
			}
		}
		if(countitem(1010)<1 || zeny<50)
		{
			mes "[" + getarg(0) + "]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ";
			close;
			end;
		}
		delitem 1010,1;
		set zeny,zeny-50;
		break;
	case 2:
		mes "[" + getarg(0) + "]";
		mes "Ҫȼ2";
		mes "ҪεĻҪ^ff9999ǿý-ǿ^000000Լ200ҡ";
		mes "Ҫ";
		next;
		if(select("","ȡ")==2)
		{
			mes "[" + getarg(0) + "]";
			mes "Ǻðɣӭ´";
			close;
			end;
		}
		if(getequippercentrefinery(@part)!=100)
		{
			mes "[" + getarg(0) + "]";
			mes "װѾκܶ˵...ҪټεĻܻร";
			next;
			mes "[" + getarg(0) + "]";
			mes "Ҫ𻵵ĻɾͲܼʹˣĿƬҲ^ff0000ȫʧ^000000";
			next;
			mes "[" + getarg(0) + "]";
			mes "ңװҲʧŶȷҪ";
			next;
			if(select("","ȡ")==2)
			{
				mes "[" + getarg(0) + "]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
				end;
			}
		}
		if(countitem(1011)<1 || zeny<200)
		{
			mes "[" + getarg(0) + "]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ";
			close;
			end;
		}
		delitem 1011,1;
		set zeny,zeny-200;
		break;
	case 3:
		mes "[" + getarg(0) + "]";
		mes "Ҫȼ3";
		mes "ҪεĻҪ^ff9999֮^000000Լ2500ҡ";
		mes "Ҫ";
		next;
		if(select("","ȡ")==2)
		{
			mes "[" + getarg(0) + "]";
			mes "Ǻðɣӭ´";
			close;
			end;
		}
		if(getequippercentrefinery(@part)!=100)
		{
			mes "[" + getarg(0) + "]";
			mes "װѾκܶ˵...ҪټεĻܻร";
			next;
			mes "[" + getarg(0) + "]";
			mes "Ҫ𻵵ĻɾͲܼʹˣĿƬҲ^ff0000ȫʧ^000000";
			next;
			mes "[" + getarg(0) + "]";
			mes "ңװҲʧŶȷҪ";
			next;
			if(select("","ȡ")==2)
			{
				mes "[" + getarg(0) + "]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
				end;
			}
		}
		if(countitem(984)<1 || zeny<2500)
		{
			mes "[" + getarg(0) + "]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ";
			close;
			end;
		}
		delitem 984,1;
		set zeny,zeny-2500;
		break;
	case 4:
		mes "[" + getarg(0) + "]";
		mes "Ҫȼ4";
		mes "ҪεĻҪ^ff9999֮^000000Լ20000ҡ";
		mes "Ҫ";
		next;
		if(select("","ȡ")==2)
		{
			mes "[" + getarg(0) + "]";
			mes "Ǻðɣӭ´";
			close;
			end;
		}
		if(getequippercentrefinery(@part)!=100)
		{
			mes "[" + getarg(0) + "]";
			mes "װѾκܶ˵...ҪټεĻܻร";
			next;
			mes "[" + getarg(0) + "]";
			mes "Ҫ𻵵ĻɾͲܼʹˣĿƬҲ^ff0000ȫʧ^000000";
			next;
			mes "[" + getarg(0) + "]";
			mes "ңװҲʧŶȷҪ";
			next;
			if(select("","ȡ")==2)
			{
				mes "[" + getarg(0) + "]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
				end;
			}
		}
		if(countitem(984)<1 || zeny<20000)
		{
			mes "[" + getarg(0) + "]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ";
			close;
			end;
		}
		delitem 984,1;
		set zeny,zeny-20000;
		break;
	}

	if(getequippercentrefinery(@part)<=rand(100))
	{
		mes "[" + getarg(0) + "]";
		mes "ϣϣϣ";
		failedrefitem @part;
		next;
		emotion 4;
		mes "[" + getarg(0) + "]";
		mes "ȿȿȿȿȿȿȣ";
		next;
		mes "[" + getarg(0) + "]";
		mes "...";
		mes "ڶεĹˡ";
		mes "......͸߹";
		close;
		end;
	}
	mes "[" + getarg(0) + "]";
	mes "ϣϣϣ";
	successrefitem @part;
	next;
	emotion 18;
	mes "[" + getarg(0) + "]";
	mes "ȥɣѾˡþûγʵˣǿһҲܸ˰ɣ";
	close;
	end;
}

// ----------
alberta_in.gat,21,63,5	script	ŵ	84,{ callfunc "MFJA_refine01",strnpcinfo(1); }
alberta_in.gat,13,71,4	script	˹	86,{ callfunc "MFJA_refine02",strnpcinfo(1); }
alberta_in.gat,28,58,4	script	׵	85,{ callfunc "MFJA_refine03",strnpcinfo(1); }

// ----- ¡ -----
prt_in.gat,63,69,4	script		84,{ callfunc "MFJA_refine01",strnpcinfo(1); }
prt_in.gat,56,68,4	script	Խ	86,{ callfunc "MFJA_refine02",strnpcinfo(1); }
prt_in.gat,63,60,4	script		85,{ callfunc "MFJA_refine03",strnpcinfo(1); }

// ----- ޿ -----
morocc_in.gat,72,32,4	script	Ƕ	85,{ callfunc "MFJA_refine01",strnpcinfo(1); }
morocc_in.gat,63,32,4	script	ɳ	85,{ callfunc "MFJA_refine02",strnpcinfo(1); }
morocc_in.gat,73,38,4	script		85,{ callfunc "MFJA_refine03",strnpcinfo(1); }

// -----  -----
payon_in01.gat,6,47,4	script	Ľ	88,{ callfunc "MFJA_refine01",strnpcinfo(1); }
payon_in01.gat,13,47,4	script	ɵ	88,{ callfunc "MFJA_refine02",strnpcinfo(1); }
payon_in01.gat,6,50,4	script		88,{ callfunc "MFJA_refine03",strnpcinfo(1); }

// ----- ŵ -----
yuno_in01.gat,164,27,4	script	˼	84,{ callfunc "MFJA_refine01",strnpcinfo(1); }
yuno_in01.gat,171,27,4	script		86,{ callfunc "MFJA_refine02",strnpcinfo(1); }
yuno_in01.gat,171,21,4	script	˼	85,{ callfunc "MFJA_refine03",strnpcinfo(1); }