//------------------------------------------------------------------------------
//一応、会話のみ本鯖に似せてありますが、本人が確認したのではなく
//友人の証言とSSからの作成なので実際とかなり食い違う可能性があります。
//また、髪型を変える場合のNPC会話は全て私の脳内仕様です。
//自鯖向けに作ったため、お金やアイテムの要求はない設定になっています。
//
//髪型を変える場合、男女とも8番と9番の髪型が変更されないバグが残っています。
//こちらで解決でき次第再アップしますが、どなたか解決できたのなら
//掲示板で知らせて頂くか、再アップなさってください。
//
//転載や修正は御自由にしてくださって構いませんが
//その場合、あなたのお名前を下記に追記して頂ければ幸いです。
//-----------------------------------------------------------------------------
//初期あっぷ	05/03/09	byNoName
//-----------------------------------------------------------------------------


prontera.gat,164,173,4	script	ベロニカ	115,{
	mes "[ベロニカ]";
	mes "髪型を変えに";
	mes "いらっしゃったのでしょう";
	mes "さあ、どうぞこちらへ";
	mes "おこしください。";
	mes "さて、どういたしましょうか？";
	mes "男女とも8,9番の髪型に変更できません。";
	mes "8,9の髪型になりたい人はGMに言って下さい。";
	next;
	menu "ヘアースタイルを見る",L_1,"ヘアースタイルを変える。",L_2,"やっぱやめる",L_END;
L_1:
if(sex==1) goto L_M1;
	mes "[ベロニカ]";	//♀キャラの場合の会話。
	mes "ヘアースタイルは19種類ございます。";
	mes "どれをお見せしましょうか？";
	mes "1から19までのご希望の髪型の番号を";
	mes "おっしゃってください。";
	mes "特に見たい番号が無ければ";
	mes "0をお選び下さい。";
	input @lf;
if(@lf==0) goto L_END;
if(@lf==1) goto L_v1;
if(@lf==2) goto L_v2;
if(@lf==3) goto L_v3;
if(@lf==4) goto L_v4;
if(@lf==5) goto L_v5;
if(@lf==6) goto L_v6;
if(@lf==7) goto L_v7;
if(@lf==8) goto L_v8;
if(@lf==9) goto L_v9;
if(@lf==10) goto L_v10;
if(@lf==11) goto L_v11;
if(@lf==12) goto L_v12;
if(@lf==13) goto L_v13;
if(@lf==14) goto L_v14;
if(@lf==15) goto L_v15;
if(@lf==16) goto L_v16;
if(@lf==17) goto L_v17;
if(@lf==18) goto L_v18;
if(@lf==19) goto L_v19;
if(@lf>19) goto L_err;

L_v1:
	cutin "hair_f_01",4;
	goto L_END;

L_v2:
	cutin "hair_f_02",4;
	goto L_END;

L_v3:
	cutin "hair_f_03",4;
	goto L_END;

L_v4:
	cutin "hair_f_04",4;
	goto L_END;

L_v5:
	cutin "hair_f_05",4;
	goto L_END;

L_v6:
	cutin "hair_f_06",4;
	goto L_END;

L_v7:
	cutin "hair_f_07",4;
	goto L_END;

L_v8:
	cutin "hair_f_08",4;
	goto L_END;

L_v9:
	cutin "hair_f_09",4;
	goto L_END;

L_v10:
	cutin "hair_f_10",4;
	goto L_END;

L_v11:
	cutin "hair_f_11",4;
	goto L_END;

L_v12:
	cutin "hair_f_12",4;
	goto L_END;

L_v13:
	cutin "hair_f_13",4;
	goto L_END;

L_v14:
	cutin "hair_f_14",4;
	goto L_END;

L_v15:
	cutin "hair_f_15",4;
	goto L_END;

L_v16:
	cutin "hair_f_16",4;
	goto L_END;

L_v17:
	cutin "hair_f_17",4;
	goto L_END;

L_v18:
	cutin "hair_f_18",4;
	goto L_END;

L_v19:
	cutin "hair_f_19",4;
	goto L_END;

L_M1:
	mes "[ベロニカ]";	//♂キャラの場合の会話。
	mes "ヘアースタイルは19種類ございます。";
	mes "どれをお見せしましょうか？";
	mes "1から19までのご希望の髪型の番号を";
	mes "おっしゃってください。";
	mes "特に見たい番号が無ければ";
	mes "0をお選び下さい。";
	input @lm;
if(@lm==0) goto L_END;
if(@lm==1) goto L_m1;
if(@lm==2) goto L_m2;
if(@lm==3) goto L_m3;
if(@lm==4) goto L_m4;
if(@lm==5) goto L_m5;
if(@lm==6) goto L_m6;
if(@lm==7) goto L_m7;
if(@lm==8) goto L_m8;
if(@lm==9) goto L_m9;
if(@lm==10) goto L_m10;
if(@lm==11) goto L_m11;
if(@lm==12) goto L_m12;
if(@lm==13) goto L_m13;
if(@lm==14) goto L_m14;
if(@lm==15) goto L_m15;
if(@lm==16) goto L_m16;
if(@lm==17) goto L_m17;
if(@lm==18) goto L_m18;
if(@lm==19) goto L_m19;
if(@lm>19) goto L_err;

L_m1:
	cutin "hair_m_01",4;
	goto L_END;

L_m2:
	cutin "hair_m_02",4;
	goto L_END;

L_m3:
	cutin "hair_m_03",4;
	goto L_END;

L_m4:
	cutin "hair_m_04",4;
	goto L_END;

L_m5:
	cutin "hair_m_05",4;
	goto L_END;

L_m6:
	cutin "hair_m_06",4;
	goto L_END;

L_m7:
	cutin "hair_m_07",4;
	goto L_END;

L_m8:
	cutin "hair_m_08",4;
	goto L_END;

L_m9:
	cutin "hair_m_09",4;
	goto L_END;

L_m10:
	cutin "hair_m_10",4;
	goto L_END;

L_m11:
	cutin "hair_m_11",4;
	goto L_END;

L_m12:
	cutin "hair_m_12",4;
	goto L_END;

L_m13:
	cutin "hair_m_13",4;
	goto L_END;

L_m14:
	cutin "hair_m_14",4;
	goto L_END;

L_m15:
	cutin "hair_m_15",4;
	goto L_END;

L_m16:
	cutin "hair_m_16",4;
	goto L_END;

L_m17:
	cutin "hair_m_17",4;
	goto L_END;

L_m18:
	cutin "hair_m_18",4;
	goto L_END;

L_m19:
	cutin "hair_m_19",4;
	goto L_END;

L_2:
if(sex==2) goto L_F1;
	mes "[ベロニカ]";	//ヘアカットする場合＠♂
	mes "ヘアカットするのですね!!";
	mes "やっと私の出番だわ…";
	mes "さぁ、どの髪型にするの？";
	mes "早く選んでちょうだい！";
	next;
	input @cm;

if(@cm==0) goto L_END;
if(@cm==1) goto L_cm1;
if(@cm==2) goto L_cm2;
if(@cm==3) goto L_cm3;
if(@cm==4) goto L_cm4;
if(@cm==5) goto L_cm5;
if(@cm==6) goto L_cm6;
if(@cm==7) goto L_cm7;
if(@cm==8) goto L_cm8;
if(@cm==9) goto L_cm9;
if(@cm==10) goto L_cm10;
if(@cm==11) goto L_cm11;
if(@cm==12) goto L_cm12;
if(@cm==13) goto L_cm13;
if(@cm==14) goto L_cm14;
if(@cm==15) goto L_cm15;
if(@cm==16) goto L_cm16;
if(@cm==17) goto L_cm17;
if(@cm==18) goto L_cm18;
if(@cm==19) goto L_cm19;
if(@cm>19) goto L_err;

L_cm1:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,01;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm2:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,02;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm3:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,03;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm4:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,04;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm5:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,05;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm6:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,06;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm7:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,07;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm8:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,08;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm9:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,08;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm10:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,10;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm11:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,11;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm12:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,12;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm13:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,13;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm14:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,14;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm15:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,15;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm16:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,16;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm17:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,17;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm18:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,18;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cm19:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 1,19;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_F1:
					//ヘアカット＠♀
if(@cf==0) goto L_END;
if(@cf==1) goto L_cf1;
if(@cf==2) goto L_cf2;
if(@cf==3) goto L_cf3;
if(@cf==4) goto L_cf4;
if(@cf==5) goto L_cf5;
if(@cf==6) goto L_cf6;
if(@cf==7) goto L_cf7;
if(@cf==8) goto L_cf8;
if(@cf==9) goto L_cf9;
if(@cf==10) goto L_cf10;
if(@cf==11) goto L_cf11;
if(@cf==12) goto L_cf12;
if(@cf==13) goto L_cf13;
if(@cf==14) goto L_cf14;
if(@cf==15) goto L_cf15;
if(@cf==16) goto L_cf16;
if(@cf==17) goto L_cf17;
if(@cf==18) goto L_cf18;
if(@cf==19) goto L_cf19;
if(@cf>19) goto L_err;


L_cf1:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,01;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf2:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,02;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf3:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,03;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf4:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,04;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf5:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,05;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf6:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,06;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf7:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,07;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf8:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,08;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf9:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,09;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf10:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,10;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf11:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,11;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf12:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,12;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf13:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,13;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf14:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,14;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf15:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,15;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf16:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,16;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf17:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,17;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf18:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,18;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_cf19:
	mes "わかったわ。";
	mes "わたしに任せて…！";
	next;
	setlook 0,19;
	mes "さぁ、終わったわ";
	mes "どう？気に入った？";
	next;
	goto L_END;

L_err:
	next;
	mes "1〜19の番号を入力してください！";
	goto L_END;

L_END:
	close;
	end;
//OnInit:
//	waitingroom "バグ直しました。",0;
//	end;
}