payon,163,200,3	script	競技研究師	4_M_KY_HEAD,{
	.part = EQI_HEAD_TOP;
	disable_items;
	mes "["+strnpcinfo(1)+"]";
	mes "您好，我是負責將戰魂頭盔附魔強化的附魔師";
	mes "請問您想要強化哪個戰魂頭盔呢？";
	next;
	if(getequipid(.part) == -1)
	{
		mes "["+strnpcinfo(1)+"]";
		mes "您沒有裝備任何道具.";
		close;
	}
	for ( .@j = 0; .@j < getarraysize(.HeadID); .@j++ )
		if ( .HeadID[.@j] == getequipid(.@part) )
			.@index = (.@j+1);
	if ( !.@index )
		.@index = -1;
	if(.@index == -1)
	{
		mes "["+strnpcinfo(1)+"]";
		mes "這項裝備無法附魔.";
		close;
	}
	.@index = .@index - 1;
	.@nameid = getequipid(.part);
	.@refine_cnt = getequiprefinerycnt(.part);
	setarray .@card, getequipcardid(.part,0), getequipcardid(.part,1), getequipcardid(.part,2), getequipcardid(.part,3);
	setarray .@OptID[0],getequiprandomoption(.part,0,ROA_ID),getequiprandomoption(.part,1,ROA_ID),getequiprandomoption(.part,2,ROA_ID),getequiprandomoption(.part,3,ROA_ID),getequiprandomoption(.part,4,ROA_ID);
	setarray .@OptVal[0],getequiprandomoption(.part,0,ROA_VALUE),getequiprandomoption(.part,1,ROA_VALUE),getequiprandomoption(.part,2,ROA_VALUE),getequiprandomoption(.part,3,ROA_VALUE),getequiprandomoption(.part,4,ROA_VALUE);
	setarray .@OptParam[0],getequiprandomoption(.part,0,ROA_PARAM),getequiprandomoption(.part,1,ROA_PARAM),getequiprandomoption(.part,2,ROA_PARAM),getequiprandomoption(.part,3,ROA_PARAM),getequiprandomoption(.part,4,ROA_PARAM);
	switch(select("執行附魔","重置附魔","職業附魔升階(第二洞)"))
	{
		case 1:
			if(.@card[2] == 0 && .@card[3] == 0)
			{
				.@itemid = 1000228;
				.@item_amount = 10;
				.@Zeny = 100000;
				.@slot = 3;
				setarray .@Enchant,4700,4701,4702,4710,4711,4712,4720,4721,4722,4730,4731,4732,4740,4741,4742,4750,4751,4752;
				.@card[3] = .@Enchant[rand(getarraysize(.@Enchant))];
			}
			else if(.@card[3] > 0 && .@card[2] == 0)
			{
				.@itemid = 1000228;
				.@item_amount = 15;
				.@Zeny = 150000;
				.@slot = 2;
				setarray .@Enchant,4700,4701,4702,4703,4710,4711,4712,4713,4720,4721,4722,4723,4730,4731,4732,4733,4740,4741,4742,4743,4750,4751,4752,4753;
				.@card[2] = .@Enchant[rand(getarraysize(.@Enchant))];
			}
			else if(.@card[1] == 0 && .@card[2] > 0 && .@card[3] > 0)
			{
				.@itemid = 1000228;
				.@item_amount = 20;
				.@Zeny = 200000;
				.@slot = 1;
				setarray .@Enchant,4811,4810,4832,4833,4818,4817,4815,4814,4863,4864,.EnchantStage_1[.@index];
				.@card[1] = .@Enchant[rand(getarraysize(.@Enchant))];
			}
			else
			{
				mes "["+strnpcinfo(1)+"]";
				mes "這項裝備已經無法再附魔了。";
				close;
			}

			mes "["+strnpcinfo(1)+"]";
			mes "==============================";
			mes "- 附魔操作: 第 "+(.@slot+1)+" 洞 附魔";
			mes "- 附魔價格: "+(.@Zeny)+"z";
			mes "- 需求道具: "+getitemname(.@itemid)+" x "+.@item_amount;
			mes "- 成功機率: 100%";
			mes "==============================";
			if (select("^0000FF確定附魔^000000","取消") == 1)
			{
				if(Zeny < .@Zeny)
				{
					mes "["+strnpcinfo(1)+"]";
					mes "金錢不足"+.@Zeny;
					close;
				}
				if(countitem(.@itemid) < .@item_amount)
				{
					mes "["+strnpcinfo(1)+"]";
					mes getitemname(.@itemid)+"不足"+.@item_amount;
					close;
				}
				Zeny -= .@Zeny;
				delitem .@itemid,.@item_amount;
				delequip .part;
				specialeffect2 154;
				mes "["+strnpcinfo(1)+"]";
				mes "第 "+.@slot+" 洞,附魔成功 -> "+getitemname(.@card[.@slot])+"!";
				getitem3 .@nameid,1,1,.@refine_cnt,0,.@card[0],.@card[1],.@card[2],.@card[3],.@OptID,.@OptVal,.@OptParam;
			}
			break;
		case 2:
			if(.@card[1] == 0 || .@card[2] == 0 || .@card[3] == 0)
			{
				mes "["+strnpcinfo(1)+"]";
				mes "這個裝備還可以繼續附魔，無法重置。";
				close;
			}
			.@itemid = 1000228;
			.@item_amount = 50;
			.@Zeny = 500000;
			mes "["+strnpcinfo(1)+"]";
			mes "==============================";
			mes "- 重置價格: "+(.@Zeny)+"z";
			mes "- 需求道具: "+getitemname(.@itemid)+" x "+.@item_amount;
			mes "==============================";
			next;
			if (select("^FF0000確定重置^000000","取消") == 1)
			{
				if(Zeny < .@Zeny)
				{
					mes "["+strnpcinfo(1)+"]";
					mes "金錢不足"+.@Zeny;
					close;
				}
				if(countitem(.@itemid) < .@item_amount)
				{
					mes "["+strnpcinfo(1)+"]";
					mes getitemname(.@itemid)+"不足"+.@item_amount;
					close;
				}
				Zeny -= .@Zeny;
				delitem .@itemid,.@item_amount;
				delequip .part;
				getitem3 .@nameid,1,1,.@refine_cnt,0,.@card[0],0,0,0,.@OptID,.@OptVal,.@OptParam;
				specialeffect2 EF_PHARMACY_OK;
				mes "["+strnpcinfo(1)+"]";
				mes getitemname(.@nameid)+"重置完成。";
			}
			break;
		case 3:
			if(inarray(.EnchantStage_1,.@card[1]) > -1)
			{
				.@itemid = 1000228;
				.@item_amount = 50;
				.@Zeny = 500000;
				.@rate = 25;
				.@stage = 1;
			}
			else if(inarray(.EnchantStage_2,.@card[1]) > -1)
			{
				.@itemid = 1000228;
				.@item_amount = 100;
				.@Zeny = 1000000;
				.@rate = 5;
				.@stage = 2;
			}
			else if(inarray(.EnchantStage_3,.@card[1]) > -1)
			{
				mes "["+strnpcinfo(1)+"]";
				mes "您的職業附魔已經達到最高階.";
				close;
			}
			else if(.@rate == 0)
			{
				mes "["+strnpcinfo(1)+"]";
				mes "您必須附魔職業專屬道具才可以進行升階.";
				close;
			}
			if(Zeny < .@Zeny)
			{
				mes "["+strnpcinfo(1)+"]";
				mes "金錢不足"+.@Zeny;
				close;
			}
			if(countitem(.@itemid) < .@item_amount)
			{
				mes "["+strnpcinfo(1)+"]";
				mes getitemname(.@itemid)+"不足"+.@item_amount;
				close;
			}
			mes "["+strnpcinfo(1)+"]";
			mes "==============================";
			mes "- 升階操作: 第 "+.@stage+" -> "+(.@stage+1)+" 階段";
			mes "- 升階價格: "+F_InsertComma(.@Zeny)+"z";
			mes "- 需求道具: "+getitemname(.@itemid)+" x "+.@item_amount;
			mes "- 成功機率: "+.@rate+"%";
			mes "==============================";
			next;
			if (select("^009900確定升階^000000","取消") == 1)
			{
				Zeny -= .@Zeny;
				delitem .@itemid,.@item_amount;
				delequip .part;
				if (rand(1,100) < .@rate)
				{
					.@card[1] = .@card[1]+1;
					specialeffect2 154;
					mes "["+strnpcinfo(1)+"]";
					mes "附魔升階成功, Lv."+(.@stage+1)+"!";
				}
				else
				{
					if (.@stage == 2)
					{
						specialeffect2 155;
						.@card[1] = .@card[1]-1;
						mes "["+strnpcinfo(1)+"]";
						mes "附魔升階失敗, 已降為 Lv.1!";
					}
					else
					{
						mes "["+strnpcinfo(1)+"]";
						mes "附魔升階失敗, 保持最低附魔等級 Lv.1";
					}
				}
				getitem3 .@nameid,1,1,.@refine_cnt,0,.@card[0],.@card[1],.@card[2],.@card[3],.@OptID,.@OptVal,.@OptParam;
				break;
			}
			end;
	}
	end;

Oninit:
	setarray .HeadID[0],		400024,	400025,	400026,	400027,	400028,	400029,	400030,	400031,	400032,	400033,	400034,	400035,	400036,	400037,	400038,	400039,	400040,	400041,	400042;
	setarray .EnchantStage_1[0],	300022,	300025,	300028,	300031,	300034,	300037,	300040,	300043,	300046,	300049,	300052,	300055,	300058,	300061,	300064,	300067,	300070,	300073;
	setarray .EnchantStage_2[0],	300023,	300026,	300029,	300032,	300035,	300038,	300041,	300044,	300047,	300050,	300053,	300056,	300059,	300062,	300065,	300068,	300071,	300074;
	setarray .EnchantStage_3[0],	300024,	300027,	300030,	300033,	300036,	300039,	300042,	300045,	300048,	300051,	300054,	300057,	300060,	300063,	300066,	300069,	300072,	300075;
	waitingroom strnpcinfo(0),0;
	end;
}