//==============================================
// ɫ͡Ⱦҩ
// д by FPE (2006.6.27)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

//====================================  ɫ ====================================
//callfunc "MFJA_dye_function01",<Ʒ1>,<ɫ>,"<ɫ>";
function	script	MFJA_dye_func01	{
	if(countitem(getarg(0))<1 || zeny<2000)
	{
		mes "[Ⱦʦ]";
		mes ""+getarg(2)+"ɫȾϺ2000ZenyҲܰ㡣";
		close;
		end;
	}
	mes "[Ⱦʦ]";
	mes "Ժ͸Ⱦµľ";
	next;
	delitem	getarg(0),1;
	set zeny,zeny-2000;
	setlook	6,getarg(1);
	mes "[Ⱦʦ]";
	mes "Ⱦˣµɫʺӭ´";
	close;
	end;
}

alberta.gat,111,234,4	script	Ⱦʦ	90,{
	mes "[Ⱦʦ]";
	mes "ӭ٣";
	mes "ΪȾԱȾϺ2000ZenyȾ";
	next;
	menu	"ɫ",A01,
		"ɫ",A02,
		"ɫ",A03,
		"ɫ",A04,
		"ɫ",A05,
		"ɫ",A06,
		"ɫ",A07,
		"ɫ",A08,
		"ȡ",-;

	mes "[Ⱦʦ]";
	mes "ôӭ´";
	close;
	end;

A01:
	callfunc "MFJA_dye_func01",975,8,"";
A02:
	callfunc "MFJA_dye_func01",976,1,"";
A03:
	callfunc "MFJA_dye_func01",978,5,"";
A04:
	callfunc "MFJA_dye_func01",979,4,"";
A05:
	callfunc "MFJA_dye_func01",980,3,"";
A06:
	callfunc "MFJA_dye_func01",981,2,"";
A07:
	callfunc "MFJA_dye_func01",982,6,"";
A08:
	callfunc "MFJA_dye_func01",983,7,"";
}
//------------------------------------  ɫ ------------------------------------


//====================================   ====================================
alberta.gat,113,234,4	script	ʦ	90,{
	mes "[ʦ]";
	mes "Ҳһּ߸ԻҪķ";
	mes "ÿַֻҪ5000zeny";
	next;
	while(1)
	{
		switch(select("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","ȡ"))
		{
		case 24:
			mes "[ʦ]";
			mes "Ǻðɣӭ´";
			close;
			end;
			break;
		default:
			if(@menu<10) set @hair$,"hair_"+(sex?"m":"f")+"_0"+@menu;
			else set @hair$,"hair_"+(sex?"m":"f")+"_"+@menu;
			set @hair_type,@menu;
			cutin @hair$,4;
			mes "[ʦ]";
			mes "ϲ";
			next;
			switch(select("ǵ","ʽ"))
			{
			case 1:
				if(zeny<5000)
				{
					cutin @hair$,255;
					mes "[ʦ]";
					mes "˿Ľ㣬֧лл";
					close;
					end;
				}
				set zeny,zeny-5000;
				cutin @hair$,255;
				mes "[ʦ]";
				mes "۹ⲻһʺ㣬Ժ";
				next;
				setlook	1,@hair_type;
				mes "[ʦ]";
				mes "ͷˣϲ";
				close;
				end;
				break;
			case 2:
				break;
			}
			break;
		}
	}
}
//------------------------------------   ------------------------------------


//====================================  ɫ ====================================
prontera.gat,146,160,5	script	װʦ	90,{
	mes "[װʦ]";
	mes "㲻·̫";
	mes "ֻҪ400000ZenyҿԸŪûȻһ";
	next;
	switch(select("ԭɫ","һɫ","ڶɫ","ɫ","ɫ"))
	{
		if(zeny<400000)
		{
			mes "[װʦ]";
			mes "ܱǸ˿Ľ㡣";
			mes "ӭ´Сꡣ";
			close;
			end;
		}
		set zeny,zeny-400000;
		setlook	7,@menu-1;
		mes "[װʦ]";
		mes "·Ѿϴˡ";
		mes "ӭ´Сꡣ";
		close;
		end;
	}
}
//------------------------------------  ɫ ------------------------------------


//==================================== Ⱦ  ====================================
//callfunc "MFJA_dye_function02",<>;
function	script	MFJA_dye_func02	{
	deletearray @item[0],16;
	set @type,getarg(0);
	switch(select(getitemname(975),getitemname(976),getitemname(978),getitemname(979),getitemname(980),getitemname(981),getitemname(982),getitemname(983),"ȡ"))
	{	//<Ⱦϴ>,<Ⱦϼ۸>,<item1>,<num1>,<item2>,<num2>,<item3>,<num3>,<item4>,<num4>,<item5>,<num5>,<item6>,<num6>,<item7>,<num8>
	case 1:
		setarray @item,975,3000,507,30,973,1,713,1,0,0,0,0,0,0,0,0;
		break;
	case 2:
		setarray @item,976,3000,508,30,973,1,713,1,0,0,0,0,0,0,0,0;
		break;
	case 3:
		setarray @item,978,3000,510,30,973,1,713,1,0,0,0,0,0,0,0,0;
		break;
	case 4:
		setarray @item,979,3000,510,5,507,20,508,20,973,1,974,1,713,1,0,0;
		break;
	case 5:
		setarray @item,980,3000,507,20,508,20,973,1,974,1,713,1,0,0,0,0;
		break;
	case 6:
		setarray @item,981,3000,510,10,507,30,973,1,974,1,713,1,0,0,0,0;
		break;
	case 7:
		setarray @item,982,3000,509,30,973,1,713,1,0,0,0,0,0,0,0,0;
		break;
	case 8:
		setarray @item,983,3000,507,30,508,30,510,5,511,30,973,1,974,1,713,1;
		break;
	default:
		close;
		end;
		break;
	}

	if(@type==1)
	{
		for(set @i,0;@i<7;set @i,@i+1)
		{
			if(@item[@i*2+2] && @item[@i*2+3])
			{
				if(countitem(@item[@i*2+2])<@item[@i*2+3])
				{
					next;
					mes "[ȰͶ]";
					mes "Բ𣬲ϲ";
					close;
					end;
				}
			}
		}
		if(zeny<@item[1])
		{
			next;
			mes "[ȰͶ]";
			mes "ԲļӹѲ";
			close;
			end;
		}
		next;
		mes "[ȰͶ]";
		mes "Ͱ" + getitemname(@item[0]) + "";
		mes "Ե";
		for(set @i,0;@i<7;set @i,@i+1)
		{
			if(@item[@i*2+2] && @item[@i*2+3])
				delitem @item[@i*2+2],@item[@i*2+3];
		}
		set zeny,zeny-@item[1];
		next;
		mes "[ȰͶ]";
		mes "ˣպá";
		getitem @item[0],1;
		close;
		end;
	}

	if(@type==2)
	{
		next;
		mes getitemname(@item[0]);
		for(set @i,0;@i<7;set @i,@i+1)
			if(@item[@i*2+2] && @item[@i*2+3]) mes getitemname(@item[@i*2+2]) + @item[@i*2+3] + "";
		mes @item[1] + " Zeny";
		close;
		end;
	}
}

morocc_in.gat,145,99,4	script	ȰͶ	58,{
	mes "[ȰͶ]";
	mes "רŴȾоҪʲôȾϣ";
	switch(select("Ⱦ","ѯȾϺϳ","ȡ"))
	{
	case 3:
		close;
		end;
		break;
	default:
		callfunc "MFJA_dye_func02",@menu;
		break;
	}
}
//------------------------------------ Ⱦ  ------------------------------------


//==================================== ҩ  ====================================
geffen_in.gat,139,140,4	script	Ī˹̹	121,{
	mes "[Ī˹̹]";
	mes "ܳĻѧרҾҪϳʲôܼ";
	next;
	mes "[Ī˹̹]";
	menu	"ϳкͼ",A01,
		"ϳɻϼ",A02,
		"ϳ˵",A03,
		"ȡ",-;
	close;
	end;
A01:
	if(countitem(971)<1 || countitem(713)<1 || countitem(970)<1)
	{
		mes "Բ𣬲ϲ";
		close;
		end;
	}
	if(zeny<3000)
	{
		mes "ûǮҾͲŪˡ";
		close;
		end;
	}
	mes "㹻ʧһ...";
	delitem 971,1;
	delitem 713,1;
	delitem 970,1;
	set zeny,zeny-3000;
	next;
	mes "[Ī˹̹]";
	mes "Сıкͼһ£ݰݡ";
	getitem 973,1;
	close;
	end;

A02:
	if(countitem(972)<1 || countitem(713)<1 || countitem(970)<1)
	{
		mes "Բ𣬲ϲ";
		close;
		end;
	}
	if(zeny<4000)
	{
		mes "ûǮҾͲŪˡ";
		close;
		end;
	}
	mes "㹻ʧһ...";
	delitem 972,1;
	delitem 713,1;
	delitem 970,1;
	set zeny,zeny-4000;
	next;
	mes "[Ī˹̹]";
	mes "Сıܻϼһ£ݰݡ";
	getitem 974,1;
	close;
	end;

A03:
	mes "[кͼ]";
	mes "ƾ1ҩˮ1ƿ1Zeny3000";
	mes "[ϼ]";
	mes "ƾ1ղҩˮ1ƿ1Zeny4000";
	close;
	end;
}
//------------------------------------ ҩ  ------------------------------------