//------------------------------------------------------------------------------
//100%精練成功NPC	by zero
//------------------------------------------------------------------------------
prt_in.gat,63,58,4	script	巨匠クホシナイン	85,{

	//料金(とりあえず10倍にしてるんで、適当に書き換えちゃってください。)
	//防具精練価格
	set @ryokin0,200000;
	//Lv1武器精練価格
	set @ryokin1,5000;
	//Lv2武器精練価格
	set @ryokin2,20000;
	//Lv3武器精練価格
	set @ryokin3,250000;
	//Lv4武器精練価格
	set @ryokin4,500000;

	mes "[巨匠クホシナイン]";
	mes "俺は隣のヤツと違って間違いなく精錬出来る鍛冶屋だ。";
	mes "まぁ、その分、料金はたっぷりと頂くがな。";
	mes "どの装備アイテムを";
	mes "精錬したいのかい？";
	next;
	menu 
		getequipname(1),L_MENU_1,
		getequipname(2),L_MENU_2,
		getequipname(3),L_MENU_3,
		getequipname(4),L_MENU_4,
		getequipname(5),L_MENU_5,
		getequipname(6),L_MENU_6,
		getequipname(7),L_MENU_7,
		getequipname(8),L_MENU_8,
		getequipname(9),L_MENU_9,
		getequipname(10),L_MENU_10;
	L_MENU_1:
		set @part,1;
		if (getequipisequiped(1)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "君の足りない脳みそを";
			mes "精錬してあげようか？";
			goto L_CLOSE;
	L_MENU_2:
		set @part,2;
		if (getequipisequiped(2)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "俺の熱い体で君の体を";
			mes "精錬してあげるわ！";
			goto L_CLOSE;
	L_MENU_3:
		set @part,3;
		if (getequipisequiped(3)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "君の左手をロケットパンチに";
			mes "する腕はないな。";
			goto L_CLOSE;
	L_MENU_4:
		set @part,4;
		if (getequipisequiped(4)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "現代科学技術でも君の右手を";
			mes "ドリルにすることは";
			mes "できないね。";
			goto L_CLOSE;
	L_MENU_5:
		set @part,5;
		if (getequipisequiped(5)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "ローブを持ってないじゃないか！";
			goto L_CLOSE;
	L_MENU_6:
		set @part,6;
		if (getequipisequiped(6)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "君の足の臭いすごいぜ！";
			goto L_CLOSE;
	L_MENU_7:
		set @part,7;
		if (getequipisequiped(7)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "どこにアクセサリーがあるのかい？";
			goto L_CLOSE;
	L_MENU_8:
		set @part,8;
		if (getequipisequiped(8)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "どこにアクセサリーがあるのかい？";
			goto L_CLOSE;
	L_MENU_9:
		set @part,9;
		if (getequipisequiped(9)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "何を精錬しろと言うんだ？";
			mes "他のアイテムの事かい？";
			goto L_CLOSE;
	L_MENU_10:
		set @part,10;
		if (getequipisequiped(10)) goto L_START_1;
			mes "[巨匠クホシナイン]";
			mes "何を精錬しろと言うんだ？";
			mes "他のアイテムの事かい？";
			goto L_CLOSE;
L_START_1:
	if (getequipisenableref(@part)) goto L_START_2;
		mes "[巨匠クホシナイン]";
		mes "このアイテムは精錬不可能だ。";
		goto L_CLOSE;
L_START_2:
	if (getequipisidentify(@part)) goto L_START_3;
		mes "[巨匠クホシナイン]";
		mes "これは未鑑定だから精錬できない。";
		goto L_CLOSE;
L_START_3:
	if (getequiprefinerycnt(@part) < 10) goto L_REFINE_0;
		mes "[巨匠クホシナイン]";
		mes "これ以上は精錬できないぞ。";
		goto L_CLOSE;
L_REFINE_0:
	if (getequipweaponlv(@part) > 0) goto L_REFINE_1;
		mes "[巨匠クホシナイン]";
		mes "君が選んだ装備を精錬するには";
		mes "^ff9999エルニウム^000000と ";
		mes "手数料" + @ryokin0 + "Zenyが必要だな。";
		mes "続けるかい？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
		if ((countitem(985) < 1) || (Zeny < @ryokin0)) goto L_CANCEL_2;
			delitem 985,1;
			set Zeny,Zeny - @ryokin0;
			goto L_REFINE_5;
L_REFINE_1:
	if (getequipweaponlv(@part) > 1) goto L_REFINE_2;
		mes "[巨匠クホシナイン]";
		mes "レベル１の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999プラコン^000000と";
		mes "手数料" + @ryokin1 "Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
		if ((countitem(1010) < 1) || (Zeny < @ryokin1)) goto L_CANCEL_2;
			delitem 1010,1;
			set Zeny,Zeny-@ryokin1;
			goto L_REFINE_5;
L_REFINE_2:
	if (getequipweaponlv(@part) > 2) goto L_REFINE_3;
		mes "[巨匠クホシナイン]";
		mes "レベル2の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999エンベルタコン^000000と";
		mes "手数料" + @ryokin2 + "Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
		if ((countitem(1011) < 1) || (Zeny < @ryokin2)) goto L_CANCEL_2;
			delitem 1011,1;
			set Zeny,Zeny-@ryokin2;
			goto L_REFINE_5;
L_REFINE_3:
	if (getequipweaponlv(@part) > 3) goto L_REFINE_4;
		mes "[巨匠クホシナイン]";
		mes "レベル3の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999オリデオコン^000000と";
		mes "手数料" + @ryokin3 + "Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
		if ((countitem(984) < 1) || (Zeny < @ryokin3)) goto L_CANCEL_2;
			delitem 984,1;
			set Zeny,Zeny-@ryokin3;
			goto L_REFINE_5;
L_REFINE_4:
		mes "[巨匠クホシナイン]";
		mes "レベル4の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999オリデオコン^000000と";
		mes "手数料" + @ryokin4 "Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
		if ((countitem(984) < 1) || (Zeny < @ryokin4)) goto L_CANCEL_2;
			delitem 984,1;
			set Zeny,Zeny-@ryokin4;
L_REFINE_5:
//	if (getequippercentrefinery(@part)<=rand(100)) goto L_REFINE_6;
		mes "[巨匠クホシナイン]";
		mes "カン！ カン！ カン!!";
		successrefitem @part;
		next;
		emotion 21;
		mes "[巨匠クホシナイン]";
		mes "さあ、出来上ったよ！";
		mes "久々に良い物ができた。";
		mes "武具が強くなって君も嬉しいだろ？";
		goto L_CLOSE;
L_CANCEL_2:
	mes "[巨匠クホシナイン]";
	mes "それが君が持ってる全部かい？";
	mes "残念だが、材料が足りないんじゃ";
	mes "仕方がないな。";
	mes "俺はただでやってやるほど";
	mes "心が広くないからな。";
	goto L_CLOSE;
L_CANCEL_3:
	mes "[巨匠クホシナイン]";
	mes "君が嫌なら仕方がないだろう…";
L_CLOSE:
	close;
}