prt_in.gat,63,58,4	script	メルグレン	82,{
	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エルニウム4個^000000と ";
		mes "手数料80000Zenyが必要だな。";
		mes "続けるかい？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
			if (getequippercentrefinery(@part) == 100) goto L_0_SUB;
				mes "[メルグレン]";
				mes "俺じゃこれ以上精錬できないな";
				mes "これ以上精錬したいなら";
				mes "ほかの奴に頼んでくれ";
			goto L_CLOSE;
	L_0_SUB:
		if ((countitem(985) < 4) || (Zeny < 80000)) goto L_CANCEL_2;
			goto L_REFINE_5;
L_REFINE_1:
	if (getequipweaponlv(@part) > 1) goto L_REFINE_2;
		mes "[メルグレン]";
		mes "レベル１の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999プラコン7個^000000と";
		mes "手数料3500Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
			if (getequippercentrefinery(@part) == 100) goto L_1_SUB;
				mes "[メルグレン]";
				mes "俺じゃこれ以上精錬できないな";
				mes "これ以上精錬したいなら";
				mes "ほかの奴に頼んでくれ";
			goto L_CLOSE;
	L_1_SUB:
		if ((countitem(1010) < 7) || (Zeny < 3500)) goto L_CANCEL_2;
			goto L_REFINE_6;
L_REFINE_2:
	if (getequipweaponlv(@part) > 2) goto L_REFINE_3;
		mes "[メルグレン]";
		mes "レベル2の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999エンベルタコン6個^000000と";
		mes "手数料12000Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
			if (getequippercentrefinery(@part) == 100) goto L_2_SUB;
				mes "[メルグレン]";
				mes "俺じゃこれ以上精錬できないな";
				mes "これ以上精錬したいなら";
				mes "ほかの奴に頼んでくれ";
			goto L_CLOSE;
	L_2_SUB:
		if ((countitem(1011) < 6) || (Zeny < 12000)) goto L_CANCEL_2;
			goto L_REFINE_7;
L_REFINE_3:
	if (getequipweaponlv(@part) > 3) goto L_REFINE_4;
		mes "[メルグレン]";
		mes "レベル3の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999オリデオコン5個^000000と";
		mes "手数料125000Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
			if (getequippercentrefinery(@part) == 100) goto L_3_SUB;
				mes "[メルグレン]";
				mes "俺じゃこれ以上精錬できないな";
				mes "これ以上精錬したいなら";
				mes "ほかの奴に頼んでくれ";
			goto L_CLOSE;
	L_3_SUB:
		if ((countitem(984) < 5) || (Zeny < 125000)) goto L_CANCEL_2;
			goto L_REFINE_8;
L_REFINE_4:
		mes "[メルグレン]";
		mes "レベル4の武器を精錬したいのかい？";
		mes "精錬するため、 ^ff9999オリデオコン4個^000000と";
		mes "手数料200000Zenyが必要だな。";
		mes "続けるのか？";
		next;
		menu "はい",-,"いいえ",L_CANCEL_3;
			if (getequippercentrefinery(@part) == 100) goto L_4_SUB;
				mes "[メルグレン]";
				mes "俺じゃこれ以上精錬できないな";
				mes "これ以上精錬したいなら";
				mes "ほかの奴に頼んでくれ";
			goto L_CLOSE;
	L_4_SUB:
		if ((countitem(984) < 4) || (Zeny < 200000)) goto L_CANCEL_2;
			goto L_REFINE_9;

L_REFINE_5:		//防具
		mes "[メルグレン]";
		mes "カン！ カン！ カン!!";
		next;
				successrefitem @part;
				delitem 985,1;
				set Zeny,Zeny-20000;
			if (getequippercentrefinery(@part) == 100)goto L_5_SUB;
				goto L_REFINE_10;
		L_5_SUB:
				delitem 985,1;
				set Zeny,Zeny-20000;
				successrefitem @part;
			if (getequippercentrefinery(@part) == 100)goto L_6_SUB;
				goto L_REFINE_10;
		L_6_SUB:
				delitem 985,1;
				set Zeny,Zeny-20000;
				successrefitem @part;
			if (getequippercentrefinery(@part) == 100)goto L_7_SUB;
				goto L_REFINE_10;
		L_7_SUB:
				delitem 985,1;
				set Zeny,Zeny-20000;
				successrefitem @part;
				goto L_REFINE_10;
			

L_REFINE_6:		//Lv1武器
		mes "[メルグレン]";
		mes "カン！ カン！ カン!!";
		next;

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_8_SUB;
				goto L_REFINE_10;
		L_8_SUB:

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_9_SUB;
				goto L_REFINE_10;
		L_9_SUB:

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_10_SUB;
				goto L_REFINE_10;
		L_10_SUB:

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_11_SUB;
				goto L_REFINE_10;
		L_11_SUB:

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_12_SUB;
				goto L_REFINE_10;
		L_12_SUB:
				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
			if (getequippercentrefinery(@part) == 100)goto L_25_SUB;
				goto L_REFINE_10;
		L_25_SUB:

				successrefitem @part;
				delitem 1010,1;
				set Zeny,Zeny-500;
				goto L_REFINE_10;




L_REFINE_7:		//Lv2武器
		mes "[メルグレン]";
		mes "カン！ カン！ カン!!";
		next;
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
			if (getequippercentrefinery(@part) == 100)goto L_13_SUB;
				goto L_REFINE_10;
		L_13_SUB:
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
			if (getequippercentrefinery(@part) == 100)goto L_14_SUB;
				goto L_REFINE_10;
		L_14_SUB:
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
			if (getequippercentrefinery(@part) == 100)goto L_15_SUB;
				goto L_REFINE_10;
		L_15_SUB:
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
			if (getequippercentrefinery(@part) == 100)goto L_16_SUB;
				goto L_REFINE_10;
		L_16_SUB:
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
			if (getequippercentrefinery(@part) == 100)goto L_17_SUB;
				goto L_REFINE_10;
		L_17_SUB:
				successrefitem @part;
				delitem 1011,1;
				set Zeny,Zeny-2000;
				goto L_REFINE_10;



L_REFINE_8:		//LV3武器
		mes "[メルグレン]";
		mes "カン！ カン！ カン!!";
		next;
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-25000;
			if (getequippercentrefinery(@part) == 100)goto L_18_SUB;
				goto L_REFINE_10;
		L_18_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-25000;
			if (getequippercentrefinery(@part) == 100)goto L_19_SUB;
				goto L_REFINE_10;
		L_19_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-25000;
			if (getequippercentrefinery(@part) == 100)goto L_20_SUB;
				goto L_REFINE_10;
		L_20_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-25000;
			if (getequippercentrefinery(@part) == 100)goto L_21_SUB;
				goto L_REFINE_10;
		L_21_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-25000;
				goto L_REFINE_10;


L_REFINE_9:		//LV4武器
		mes "[メルグレン]";
		mes "カン！ カン！ カン!!";
		next;
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-50000;
			if (getequippercentrefinery(@part) == 100)goto L_22_SUB;
				goto L_REFINE_10;
		L_22_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-50000;
			if (getequippercentrefinery(@part) == 100)goto L_23_SUB;
				goto L_REFINE_10;
		L_23_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-50000;
			if (getequippercentrefinery(@part) == 100)goto L_24_SUB;
				goto L_REFINE_10;
		L_24_SUB:
				successrefitem @part;
				delitem 984,1;
				set Zeny,Zeny-50000;
				goto L_REFINE_10;


L_REFINE_10:
		emotion 21;
		mes "[メルグレン]";
		mes "さあ、出来上ったよ！";
		mes "久々に良い物ができた。";
		mes "あまった材料は返しておいたぜ";
		mes "武具が強くなって君も嬉しいだろ？";
		goto L_CLOSE;
L_CANCEL_1:
	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;
}