//==============================================
// vBvBVƻs@Bľs@
// NXg by FPE (2006.6.27)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

//==================================== o  ====================================
//callfunc "MFJA_dye_function01",<~1>,<vNX>,"<C>";
function	script	MFJA_dye_func01	{
	if(countitem(getarg(0))<1 || zeny<2000)
	{
		mes "[Vvv]";
		mes "za"+getarg(2)+"VƩM2000Zenyڤ~AC";
		close;
		end;
	}
	mes "[Vvv]";
	mes "еyAڳoNzVXsm";
	next;
	delitem	getarg(0),1;
	set zeny,zeny-2000;
	setlook	6,getarg(1);
	mes "[Vvv]";
	mes "VnFAsCܾAXAAwUAӡC";
	close;
	end;
}

alberta.gat,111,234,4	script	Vvv	90,{
	mes "[Vvv]";
	mes "w{I";
	mes "izsVvALzo۳ƬVƩM2000ZenyAQVvܡH";
	next;
	menu	"",A01,
		"",A02,
		"Ŧ",A03,
		"",A04,
		"",A05,
		"",A06,
		"զ",A07,
		"¦",A08,
		"",-;

	mes "[Vvv]";
	mes "wUAӡC";
	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,"";
}
//------------------------------------ o  ------------------------------------


//==================================== o  ====================================
alberta.gat,113,234,4	script	vv	90,{
	mes "[vv]";
	mes "v]O@طөʤƪNAQnӧvܡH";
	mes "Cؾvuݭn5000zeny";
	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 "[vv]";
			mes "naAwUAӡC";
			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 "[vv]";
			mes "zwoӾvܡH";
			next;
			switch(select("O","ݬݨLڦ"))
			{
			case 1:
				if(zeny<5000)
				{
					cutin @hair$,255;
					mes "[vv]";
					mes "UȱzBAШBIA¡C";
					close;
					end;
				}
				set zeny,zeny-5000;
				cutin @hair$,255;
				mes "[vv]";
				mes "zAoӾv@wAXAAеyC";
				next;
				setlook	1,@hair_type;
				mes "[vv]";
				mes "zYvnFAwܡH";
				close;
				end;
				break;
			case 2:
				break;
			}
			break;
		}
	}
}
//------------------------------------ o  ------------------------------------


//==================================== A  ====================================
prontera.gat,146,160,5	script	Aˮv	90,{
	mes "[Aˮv]";
	mes "AıoA¤FܡH";
	mes "un400000ZenyڥiHA˱oصM@s";
	next;
	switch(select("٭m","Ĥ@ئ","ĤGئ","ĤTئ","ĥ|ئ"))
	{
		if(zeny<400000)
		{
			mes "[Aˮv]";
			mes "ܩpAUȱzBC";
			mes "wUAӥ{pC";
			close;
			end;
		}
		set zeny,zeny-400000;
		setlook	7,@menu-1;
		mes "[Aˮv]";
		mes "zAwgS~nFC";
		mes "wUAӥ{pC";
		close;
		end;
	}
}
//------------------------------------ A  ------------------------------------


//==================================== V  ====================================
//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),""))
	{	//<VƥNX>,<Vƻ>,<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 "[ڧO]";
					mes "藍_AƤC";
					close;
					end;
				}
			}
		}
		if(zeny<@item[1])
		{
			next;
			mes "[ڧO]";
			mes "藍_Az[uOC";
			close;
			end;
		}
		next;
		mes "[ڧO]";
		mes "oNA" + getitemname(@item[0]) + "C";
		mes "еy";
		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 "[ڧO]";
		mes "ש󧹦FAЦnC";
		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	ڧO	58,{
	mes "[ڧO]";
	mes "ڱMqƬVƬsMs@AAݭnVơH";
	switch(select("s@V","d߬VƦX",""))
	{
	case 3:
		close;
		end;
		break;
	default:
		callfunc "MFJA_dye_func02",@menu;
		break;
	}
}
//------------------------------------ V  ------------------------------------


//====================================   ====================================
geffen_in.gat,139,140,4	script	򴵩Z	121,{
	mes "[򴵩Z]";
	mes "@̳ǥXƾǱMaNOڰաAаݧAnX򷻾H";
	next;
	mes "[򴵩Z]";
	menu	"XM",A01,
		"XVX",A02,
		"X",A03,
		"",-;
	close;
	end;
A01:
	if(countitem(971)<1 || countitem(713)<1 || countitem(970)<1)
	{
		mes "藍_AƤC";
		close;
		end;
	}
	if(zeny<3000)
	{
		mes "SHڴN|ˤFC";
		close;
		end;
	}
	mes "ƨAߧY}uA@U...";
	delitem 971,1;
	delitem 713,1;
	delitem 970,1;
	set zeny,zeny-3000;
	next;
	mes "[򴵩Z]";
	mes "p߫OޤMA٦ơAC";
	getitem 973,1;
	close;
	end;

A02:
	if(countitem(972)<1 || countitem(713)<1 || countitem(970)<1)
	{
		mes "藍_AƤC";
		close;
		end;
	}
	if(zeny<4000)
	{
		mes "SHڴN|ˤFC";
		close;
		end;
	}
	mes "ƨAߧY}uA@U...";
	delitem 972,1;
	delitem 713,1;
	delitem 970,1;
	set zeny,zeny-4000;
	next;
	mes "[򴵩Z]";
	mes "p߫O޲VXA٦ơAC";
	getitem 974,1;
	close;
	end;

A03:
	mes "[M]";
	mes "s1ӡBүSߦĤ1ӡBŲ~1ӡBZeny3000";
	mes "[VX]";
	mes "s1ӡBdǪi}Ĥ1ӡBŲ~1ӡBZeny4000";
	close;
	end;
}
//------------------------------------   ------------------------------------