prontera.gat,181,124,4	script	設計師	803,{
        mes "[設計師]";
        mes "歡迎光臨!";
        mes "想改變裝扮找我就對啦~";
        mes "需要什麼服務呢??";
	next;
	menu "染頭髮",go1,"剪頭髮",go2,"換衣服",go3,"取消",Quxiao;
	close;

	go1:
	mes "[設計師]";
	mes "歡迎光臨！";
	mes "本店可為您重新染髮，想染髮嗎？";
	mes "特價優惠每次只需 10000 Zeny ~~";
next;
	menu	"熱情奔放的紅色",L_RED,
		"溫柔俏皮的黃色",L_FLO,
		"雅致大方的藍色",L_BLU,
		"聰慧健康的綠色",L_GRN,
		"體貼細膩的澄色",L_ORG,
		"高貴典雅的紫色",L_DES,
		"純潔朦朧的白色",L_BAT,
		"嚴謹莊重的黑色",L_BLK,
		"取消",L_EXT;
	L_RED:
		set @fs,8;
		set @clr$,"紅";
		goto L_CHANGE;
	L_FLO:
		set @fs,1;
		set @clr$,"黃";
		goto L_CHANGE;
	L_BLU:
		set @fs,5;
		set @clr$,"藍";
		goto L_CHANGE;
	L_GRN:
		set @fs,4;
		set @clr$,"綠";
		goto L_CHANGE;
	L_ORG:
		set @fs,3;
		set @clr$,"赤";
		goto L_CHANGE;
	L_DES:
		set @fs,2;
		set @clr$,"紫";
		goto L_CHANGE;
	L_BAT:
		set @fs,6;
		set @clr$,"白";
		goto L_CHANGE;
	L_BLK:
		set @fs,7;
		set @clr$,"黑";
		goto L_CHANGE;
	L_CHANGE:
		if (Zeny < 10000) goto L_NOZENY;
		set Zeny,Zeny -	10000;
		mes "[設計師]";
		mes "請稍後，我這就給您染出新的精彩";
		next;
		setlook	6,@fs;
		mes "[設計師]";
		mes "染好了，新的色彩很適合你嘛，歡迎下次再來。";
		close;
		end;
	L_EXT:
		mes "[設計師]";
		mes "那麼歡迎下次再來。";
		close;
		end;

	go2:
	mes "[設計師]";
	mes "髮型也是一種極具個性化的藝術。";
	mes "想要個完美的髮型嗎？";
	mes "特價優惠每次只需 10000 Zeny ~~";
	next;

	menu	"第 1款式",Fx01,
		"第 2款式",Fx02,
		"第 3款式",Fx03,
		"第 4款式",Fx04,
		"第 5款式",Fx05,
		"第 6款式",Fx06,
		"第 7款式",Fx07,
		"第 8款式",Fx08,
		"第 9款式",Fx09,
		"第10款式",Fx10,
		"第11款式",Fx11,
		"第12款式",Fx12,
		"第13款式",Fx13,
		"第14款式",Fx14,
		"第15款式",Fx15,
		"第16款式",Fx16,
		"第17款式",Fx17,
		"第18款式",Fx18,
		"第19款式",Fx19,
		"第20款式",Fx20,
		"第21款式",Fx21,
		"第22款式",Fx22,
		"第23款式",Fx23,
		"第24款式",Fx24,
		"取消",Quxiao;
Fx01:
	if (SEX== 0) set @haircutin$,"hair_f_01";
	if (SEX== 1) set @haircutin$,"hair_m_01";
	set @hairtype,1;
	goto L_CUTTING;
Fx02:
	if (SEX== 0) set @haircutin$,"hair_f_02";
	if (SEX== 1) set @haircutin$,"hair_m_02";
	set @hairtype,2;
	goto L_CUTTING;
Fx03:
	if (SEX== 0) set @haircutin$,"hair_f_03";
	if (SEX== 1) set @haircutin$,"hair_m_03";
	set @hairtype,3;
	goto L_CUTTING;
Fx04:
	if (SEX== 0) set @haircutin$,"hair_f_04";
	if (SEX== 1) set @haircutin$,"hair_m_04";
	set @hairtype,4;
	goto L_CUTTING;
Fx05:
	if (SEX== 0) set @haircutin$,"hair_f_05";
	if (SEX== 1) set @haircutin$,"hair_m_05";
	set @hairtype,5;
	goto L_CUTTING;
Fx06:
	if (SEX== 0) set @haircutin$,"hair_f_06";
	if (SEX== 1) set @haircutin$,"hair_m_06";
	set @hairtype,6;
	goto L_CUTTING;
Fx07:
	if (SEX== 0) set @haircutin$,"hair_f_07";
	if (SEX== 1) set @haircutin$,"hair_m_07";
	set @hairtype,7;
	goto L_CUTTING;
Fx08:
	if (SEX== 0) set @haircutin$,"hair_f_08";
	if (SEX== 1) set @haircutin$,"hair_m_08";
	set @hairtype,8;
	goto L_CUTTING;
Fx09:
	if (SEX== 0) set @haircutin$,"hair_f_09";
	if (SEX== 1) set @haircutin$,"hair_m_09";
	set @hairtype,9;
	goto L_CUTTING;
Fx10:
	if (SEX== 0) set @haircutin$,"hair_f_10";
	if (SEX== 1) set @haircutin$,"hair_m_10";
	set @hairtype,10;
	goto L_CUTTING;
Fx11:
	if (SEX== 0) set @haircutin$,"hair_f_11";
	if (SEX== 1) set @haircutin$,"hair_m_11";
	set @hairtype,11;
	goto L_CUTTING;
Fx12:
	if (SEX== 0) set @haircutin$,"hair_f_12";
	if (SEX== 1) set @haircutin$,"hair_m_12";
	set @hairtype,12;
	goto L_CUTTING;
Fx13:
	if (SEX== 0) set @haircutin$,"hair_f_13";
	if (SEX== 1) set @haircutin$,"hair_m_13";
	set @hairtype,13;
	goto L_CUTTING;
Fx14:
	if (SEX== 0) set @haircutin$,"hair_f_14";
	if (SEX== 1) set @haircutin$,"hair_m_14";
	set @hairtype,14;
	goto L_CUTTING;
Fx15:
	if (SEX== 0) set @haircutin$,"hair_f_15";
	if (SEX== 1) set @haircutin$,"hair_m_15";
	set @hairtype,15;
	goto L_CUTTING;
Fx16:
	if (SEX== 0) set @haircutin$,"hair_f_16";
	if (SEX== 1) set @haircutin$,"hair_m_16";
	set @hairtype,16;
	goto L_CUTTING;
Fx17:
	if (SEX== 0) set @haircutin$,"hair_f_17";
	if (SEX== 1) set @haircutin$,"hair_m_17";
	set @hairtype,17;
	goto L_CUTTING;
Fx18:
	if (SEX== 0) set @haircutin$,"hair_f_18";
	if (SEX== 1) set @haircutin$,"hair_m_18";
	set @hairtype,18;
	goto L_CUTTING;
Fx19:
	if (SEX== 0) set @haircutin$,"hair_f_19";
	if (SEX== 1) set @haircutin$,"hair_m_19";
	set @hairtype,19;
	goto L_CUTTING;
Fx20:
	if (SEX== 0) set @haircutin$,"hair_f_20";
	if (SEX== 1) set @haircutin$,"hair_m_20";
	set @hairtype,20;
	goto L_CUTTING;
Fx21:
	if (SEX== 0) set @haircutin$,"hair_f_21";
	if (SEX== 1) set @haircutin$,"hair_m_21";
	set @hairtype,21;
	goto L_CUTTING;
Fx22:
	if (SEX== 0) set @haircutin$,"hair_f_22";
	if (SEX== 1) set @haircutin$,"hair_m_22";
	set @hairtype,22;
	goto L_CUTTING;
Fx23:
	if (SEX== 0) set @haircutin$,"hair_f_23";
	if (SEX== 1) set @haircutin$,"hair_m_23";
	set @hairtype,23;
	goto L_CUTTING;
Fx24:
	if (SEX== 0) set @haircutin$,"hair_f_24";
	if (SEX== 1) set @haircutin$,"hair_m_24";
	set @hairtype,24;
	goto L_CUTTING;
L_CUTTING:
	cutin @haircutin$,4;
	mes "[設計師]";
	mes "您喜歡這個髮型嗎？";
	next;
	menu	"是的",-,
		"看看其它款式",go2;
		if (Zeny < 10000) goto L_NOZENY;
		set Zeny,Zeny -	10000;
		cutin @haircutin$,255;
		mes "[設計師]";
		mes "您的眼光不錯嘛，這個髮型一定適合你，請稍後。";
		next;
		setlook	1,@hairtype;
		mes "[設計師]";
		mes "您的頭髮做好了，喜歡嗎？";
		close;
		end;
	L_NOZENY:
		cutin @haircutin$,255;
		mes "[設計師]";
		mes "顧客您的金額不足，請足額支付，謝謝。";
		close;
		end;
Quxiao:
	mes "[設計師]";
	mes "那好吧，歡迎下次再來。";
	close;
	end;

	go3:
	if (class == 12	|| class == 17 ) goto C_ERR_2;
	mes "[設計師]";
	mes "你不覺得衣服太舊了嗎？";
	mes "只要10000Zeny我可以給你弄得煥然一新";
	next;
	menu	"還原色彩",C_CLR1,
		"第一種色",C_CLR2,
		"第二種色",C_CLR3,
		"第三種色",C_CLR4,
		"第四種色",C_CLR5;
	C_CLR1:
		set @clr,0;
		goto C_CHANGE;
	C_CLR2:
		set @clr,1;
		goto C_CHANGE;
	C_CLR3:
		set @clr,2;
		goto C_CHANGE;
	C_CLR4:
		set @clr,3;
		goto C_CHANGE;
	C_CLR5:
		set @clr,4;
		goto C_CHANGE;
	C_CHANGE:
		if(Zeny<10000) goto C_ERR;
		set Zeny,Zeny-10000;
		setlook	7,@clr;
		mes "[設計師]";
		mes "您的衣服已經燙洗好了。";
		mes "歡迎下次再來光臨小店。";
		close;
		end;
	C_ERR:
		mes "[設計師]";
		mes "很抱歉，顧客您的金額不足。";
		mes "歡迎下次再來光臨小店。";
		close;
		end;
	C_ERR_2:
		mes "[設計師]";
		mes "很抱歉，顧客您的職業不能染。";
		mes "歡迎下次再來光臨小店。";
		close;
		end;
}

}