//==============================================
// 耐久度修補員
// Made by FPE(2006.9.15)
// Jathena++ BBS: http://www.foxofice.net/bbs
//----------------------------------------------

prt_in.gat,61,54,2	script	耐久度修補員	63,{
	mes "[耐久度修補員]";
	mes "我是專門為客人修理裝備耐久度/最大耐久度的，但是要收取一定的費用哦~";
	next;
	mes "[耐久度修補員]";
	mes "裝備耐久度會在戰斗過程中損耗。";
	mes "在人物死亡的時候，是損耗所有裝備的耐久度為最大耐久度的5%。";
	mes "一旦耐久度損耗完畢，裝備就會變為損壞狀態，并且會損耗^0000ff最大耐久度^000000。";
	next;
	mes "[耐久度修補員]";
	mes "損壞了的裝備可以通過修復繼續使用。";
	mes "但是如果不修復耐久度和最大耐久度的話，裝備很快就會再次損壞，所以修復耐久度和最大耐久度是很有必要的。";
	mes "裝備最大的耐久度，可以恢復至^0000ff這種物品^000000的最大耐久度";
	next;
	mes "[耐久度修補員]";
	mes "你要修復耐久度/最大耐久度嗎？";
	next;
	if(select("修復裝備耐久度","修復裝備最大耐久度")==1)
	{
		//判斷是否沒有任何裝備
		for(set @i,1; @i<11; set @i,@i+1)
		{
			if(getequipid(@i)>0) break;
			if(@i==10)
			{
				mes "[耐久度修補員]";
				mes "你身上沒有任何裝備。";
				close;
				end;
			}
		}

		switch(select(	(getequipid(1)>0)?(itemid2name(getequipid(1)) + "(" + geteqdure(1) + "->" + geteqmaxdure(1) + ")"):"",
				(getequipid(2)>0)?(itemid2name(getequipid(2)) + "(" + geteqdure(2) + "->" + geteqmaxdure(2) + ")"):"",
				(getequipid(3)>0)?(itemid2name(getequipid(3)) + "(" + geteqdure(3) + "->" + geteqmaxdure(3) + ")"):"",
				(getequipid(4)>0)?(itemid2name(getequipid(4)) + "(" + geteqdure(4) + "->" + geteqmaxdure(4) + ")"):"",
				(getequipid(5)>0)?(itemid2name(getequipid(5)) + "(" + geteqdure(5) + "->" + geteqmaxdure(5) + ")"):"",
				(getequipid(6)>0)?(itemid2name(getequipid(6)) + "(" + geteqdure(6) + "->" + geteqmaxdure(6) + ")"):"",
				(getequipid(7)>0)?(itemid2name(getequipid(7)) + "(" + geteqdure(7) + "->" + geteqmaxdure(7) + ")"):"",
				(getequipid(8)>0)?(itemid2name(getequipid(8)) + "(" + geteqdure(8) + "->" + geteqmaxdure(8) + ")"):"",
				(getequipid(9)>0)?(itemid2name(getequipid(9)) + "(" + geteqdure(9) + "->" + geteqmaxdure(9) + ")"):"",
				(getequipid(10)>0)?(itemid2name(getequipid(10)) + "(" + geteqdure(10) + "->" + geteqmaxdure(10) + ")"):"",
				"^ff0000耐久度全修復^000000"
				))
		{
		case 11:
			set @pay,0;
			for(set @i,1; @i<11; set @i,@i+1)
			{
				if(@i==4 && getequipid(4))
				{
					if(getequipid(@i) && getiteminfo(getequipid(@i),13)==34) continue;
				}

				if(getequipid(@i)) set @pay,@pay + ( (geteqmaxdure(@i)-geteqdure(@i))*12/10 );
			}
			mes "[耐久度修補員]";
			if(@pay<=0)
			{
				mes "裝備不需要修復";
				close;
				end;
			}
			mes "修復所有耐久度需要" + @pay + "zeny";
			if(zeny < @pay)
			{
				mes "等你有足夠金錢的時候再來找我吧";
				close;
				end;
			}
			mes "你要馬上修復嗎？";
			next;
			if(select("馬上修復","不要修復")==2)
			{
				close;
				end;
			}

			mes "[耐久度修補員]";
			set zeny,zeny-@pay;
			for(set @i,1; @i<11; set @i,@i+1)
			{
				if(getequipid(@i)) seteqdure @i,geteqmaxdure(@i);
			}
			mes "修理完畢！";
			emotion 18;
			close;
			end;
			break;
		default:
			set @i,@menu;
			set @pay,( (geteqmaxdure(@i)-geteqdure(@i))*12/10 );
			mes "[耐久度修補員]";
			if(@pay<=0)
			{
				mes "這件裝備不需要修復";
				close;
				end;
			}

			mes "修復這個需要" + @pay + "zeny";
			if(zeny < @pay)
			{
				mes "等你有足夠金錢的時候再來找我吧";
				close;
				end;
			}

			mes "你要馬上修復嗎？";
			next;
			if(select("馬上修復","不要修復")==2)
			{
				close;
				end;
			}

			mes "[耐久度修補員]";
			set zeny,zeny-@pay;
			seteqdure @i,geteqmaxdure(@i);
			mes "修理完畢！";
			emotion 18;
			close;
			end;
			break;
		}
	}

	//判斷是否沒有任何裝備
	for(set @i,1; @i<11; set @i,@i+1)
	{
		if(getequipid(@i)>0) break;
		if(@i==10)
		{
			mes "[耐久度修補員]";
			mes "你身上沒有任何裝備。";
			close;
			end;
		}
	}

	switch(select(	(getequipid(1)>0)?(itemid2name(getequipid(1)) + "(" + geteqmaxdure(1) + "->" + getitemmaxdure(getequipid(1),geteqlv(1)) + ")"):"",
			(getequipid(2)>0)?(itemid2name(getequipid(2)) + "(" + geteqmaxdure(2) + "->" + getitemmaxdure(getequipid(2),geteqlv(2)) + ")"):"",
			(getequipid(3)>0)?(itemid2name(getequipid(3)) + "(" + geteqmaxdure(3) + "->" + getitemmaxdure(getequipid(3),geteqlv(3)) + ")"):"",
			(getequipid(4)>0)?(itemid2name(getequipid(4)) + "(" + geteqmaxdure(4) + "->" + getitemmaxdure(getequipid(4),geteqlv(4)) + ")"):"",
			(getequipid(5)>0)?(itemid2name(getequipid(5)) + "(" + geteqmaxdure(5) + "->" + getitemmaxdure(getequipid(5),geteqlv(5)) + ")"):"",
			(getequipid(6)>0)?(itemid2name(getequipid(6)) + "(" + geteqmaxdure(6) + "->" + getitemmaxdure(getequipid(6),geteqlv(6)) + ")"):"",
			(getequipid(7)>0)?(itemid2name(getequipid(7)) + "(" + geteqmaxdure(7) + "->" + getitemmaxdure(getequipid(7),geteqlv(7)) + ")"):"",
			(getequipid(8)>0)?(itemid2name(getequipid(8)) + "(" + geteqmaxdure(8) + "->" + getitemmaxdure(getequipid(8),geteqlv(8)) + ")"):"",
			(getequipid(9)>0)?(itemid2name(getequipid(9)) + "(" + geteqmaxdure(9) + "->" + getitemmaxdure(getequipid(9),geteqlv(9)) + ")"):"",
			(getequipid(10)>0)?(itemid2name(getequipid(10)) + "(" + geteqmaxdure(10) + "->" + getitemmaxdure(getequipid(10),geteqlv(10)) + ")"):""
			))
	{
		set @i,@menu;
		set @pay,( (getitemmaxdure(getequipid(@i),geteqlv(@i))-geteqmaxdure(@i)) *4 );
		mes "[耐久度修補員]";
		if(@pay<=0)
		{
			mes "這件裝備不需要修復";
			close;
			end;
		}

		mes "修復這個需要" + @pay + "zeny";
		if(zeny < @pay)
		{
			mes "等你有足夠金錢的時候再來找我吧";
			close;
			end;
		}

		mes "你要馬上修復嗎？";
		next;
		if(select("馬上修復","不要修復")==2)
		{
			close;
			end;
		}

		mes "[耐久度修補員]";
		set zeny,zeny-@pay;
		seteqmaxdure @i,getitemmaxdure(getequipid(@i),geteqlv(@i));
		mes "修理完畢！";
		emotion 18;
		close;
		end;
	}
}