-	script	cordinator	-1,{

//-----------------↓ここは設定必須↓---------------------
set @fuku_color,	553;	//服の色数　パレットが用意出来ていないなら７
set @kami_color,	251;	//髪の色数　同上
set @kami_type,		43;	    //髪の色数　同上

//ここは、カラーパレットがその職に対応しているのならコメントアウトする事。
//　カラーパレットが男アサ・男ローグ非対応の場合
//   	if (Class == 12) goto X01;
//   	if (Class == 17) goto X01;
//　カラーパレットがテコン系非対応の場合
//	if (Class == 24) goto X02;
//	if (Class == 25) goto X02;
//	if (Class == 26) goto X02;
//	if (Class == 27) goto X02;
//　カラーパレットが忍者、ガンスリに非対応の場合
//	if (Class == 28) goto X02;
//	if (Class == 29) goto X02;
//--------------------↑ここまで設定↑--------------------


//--------------------------------------------------------
//ここから服色
goto LStart;
//--カラーパレットが非対応の職がある場合
X01:
	if (Sex != 1) goto LStart;
X02:
	mes "[コーディネーター]";
	mes "あらあら、そこのあなた";
	mes "たまには、その髪の色や";
	mes "髪型を変えてみてはどうかしら？";
	next;
	menu "お願いします",Colt,"結構です。",LEnd2;


//--通常対応
LStart:
	mes "[コーディネーター]";
	mes "あらあら、そこのあなた";
	mes "たまには、その洋服の色や";
	mes "髪型や髪の色を変えてみたら？";
	mes "いまなら無料サービス中よ";
	next;
	menu "いいんですか？",L1,"結構です。",LEnd2;
L1:
	mes "[コーディネーター]";
	mes "ええ、もちろん！";
	mes "お洋服と髪型や髪の色";
	mes "どれが、いいかしら？";
	next;
	menu "服の染色で。",Cols,"髪型変更で。",Colt3,"髪染めで。",Colt2,"やっぱりやめます。",LEnd2,;

//--服の染色
Cols:
	mes "[コーディネーター]";
	mes "はい、ありがとう。";
	mes "服の色は" +@fuku_color+ "色あるの。";
	mes "何番の色がいいかしら？";
	next;
	menu "" +@fuku_color+ "色からランダム",Colrand,"順番に見ていく",Colnom,"やめておきます･･･",LEndtest,;

Colrand:	mes "[コーディネーター]";
		mes "ではいきますよー";
		mes "服の染色をいたします";
		next;	
		set @FUKU_NUM,rand(0,@fuku_color);
		setlook 7,@FUKU_NUM;
		mes "[コーディネーター]";
		mes "これは " +@FUKU_NUM+ "番 の色ですね";
		mes "またのご利用をお待ちしてます。";
		close;
Colnom:
	mes "[コーディネーター]";
	mes "何番から見始める？";
	mes "" +@fuku_color+ "番の次は0番に戻るからね。";
	set @Colnom_e,1;
	input @FUKU_NUM;
	if(@FUKU_NUM > @fuku_color) goto L_FUKU;
	while(@Colnom_e == 1){
		setlook 7,@FUKU_NUM;
		if (@FUKU_NUM != @fuku_color){set @FUKU_NUM1,@FUKU_NUM +1;}else{set @FUKU_NUM1,0;}
		switch(select(
			"次の色 ("+ @FUKU_NUM1 +"番) を見る","この色 ("+@FUKU_NUM+"番) にする")){
				case 1: set @FUKU_NUM,@FUKU_NUM+1;
					if(@FUKU_NUM==(@fuku_color+1)){set @FUKU_NUM,0;}
					goto Colnom_F;
				case 2: set @Colnom_e,2;
			Colnom_F:
			}
	}
	next;
	mes "[コーディネーター]";
	mes "決まったかな？";
	close;
L_FUKU:
		mes "0〜" +@fuku_color+ "の間で決めてくださいね";
		close;

//ここまで服色
//--------------------------------------------------------
//ここから髪色

//ここは服色非対応の職が飛んでくる所
Colt:
	mes "[コーディネーター]";
	mes "はい、ありがとう。";
	mes "髪型変更と髪染め";
	mes "どちらがいいかしら？";
	next;
	menu "髪型変更で。",Colt3,"髪染めを。",Colt2,"やっぱりやめます。",LEnd2,;	


Colt2:
	mes "[コーディネーター]";
	mes "はい、ありがとう。";
	mes "髪染めの色は８色あるの。";
	mes "何色がいいかしら？";
	next;
	menu "赤色",L_Red,"黄色",L_Yellow,"青色",L_Blue,"緑色",L_Green,"紅色",L_Orange,"紫色",L_Purple,"白色",L_White,"黒色",L_Black,"他の色",L_Coltest,"やめる",LEnd2,;
	close;
	L_Red:
		setlook 6,8;
		goto LEnd1;
	L_Yellow:
		setlook 6,1;
		goto LEnd1;
	L_Blue:
		setlook 6,5;
		goto LEnd1;
	L_Green:
		setlook 6,4;
		goto LEnd1;
	L_Orange:
		setlook 6,3;
		goto LEnd1;
	L_Purple:
		setlook 6,2;
		goto LEnd1;
	L_White:
		setlook 6,6;
		goto LEnd1;
	L_Black:
		setlook 6,7;
		goto LEnd1;
	L_Coltest:
		mes "[コーディネーター]";
	mes "あら、気に入った色が無かった？";
	mes "だったら、まだ実験中の染料から";
	mes "選んでみる？";
	next;
	menu "" +@kami_color+ "色からランダム",Kamirand,"順番に見ていく",Kaminom,"やめておきます･･･",LEndtest,;
Kamirand:	mes "[コーディネーター]";
		mes "ではいきますよー？";
		mes "髪の染色をいたします。";
		next;	
		set @KAMI_NUM,rand(0,@kami_color);
		setlook 6,@KAMI_NUM;
		next;
		mes "[コーディネーター]";
		mes "これは " +@KAMI_NUM+ "番 の色ですね";
		mes "またのご利用をお待ちしてます。";
		close;
Kaminom:
	mes "[コーディネーター]";
	mes "何番から見始めますか？";
	mes "" +@kami_color+ "番の次は0番に戻ります。";
	set @Colnom_e,1;
	input @KAMI_NUM;
	if(@KAMI_NUM > @kami_color) goto L_KAMI;
	while(@Colnom_e == 1){
		setlook 6,@KAMI_NUM;
		if (@KAMI_NUM != @kami_color){set @KAMI_NUM1,@KAMI_NUM +1;}else{set @KAMI_NUM1,0;}
		switch(select(
			"次の色 ("+ @KAMI_NUM1 +"番) を見る","この色 ("+ @KAMI_NUM +"番) にする")){
				case 1: set @KAMI_NUM,@KAMI_NUM +1; 
				if(@KAMI_NUM==(@kami_color+1)){set @KAMI_NUM,0;}goto Colnom_K;
				case 2: set @Colnom_e,2;
			Colnom_K:
			}
	}
	next;
	mes "[コーディネーター]";
	mes "決まったかな？";
	close;
L_KAMI:
		mes "0〜" +@kami_color+ "の間で決めてくださいね";
		close;
LEndtest:
	mes "[コーディネーター]";
	mes "やめちゃうの？残念〜。";
		close;
		end;

//ここまで髪色
//--------------------------------------------------------
//ここから髪型

Colt3:
set @hearfa,1;
while(@hearfa == 1){
	mes "[コーディネーター]";
	mes "髪型は"+@kami_type+"種類あるの。";
	mes "1番〜10番と11番〜19番、20番〜23番の中から見るか";
	mes "順番に見るかどっちがいいかしら？";
	next;
	menu "髪型1から10",Colt4,"髪型11から19",Colt5,"髪型20から23",Colt6,"順番に見ていく",Colt7,"やめる",LEnd2,;

//髪型1-10
Colt4:
	mes "[コーディネーター]";
	mes "何番がいいかしら？";
	next;

//髪型1-10♂
	if (sex){
	menu "髪型1",L_hair1,"髪型2",L_hair2,"髪型3",L_hair3,"髪型4",L_hair4,"髪型5",L_hair5,"髪型6",L_hair6,"髪型7",L_hair7,"髪型8",L_hair8,"髪型9",L_hair9,"髪型10",L_hair10,"やめる",LEnd2,;

		L_hair1:
			cutin "hair_m_01",4;
			mes "「死んだ振り」スタイルね。";
			mes "これでいいの？";
			set @htype,1;
			goto L_OK;
		L_hair2:
			cutin "hair_m_02",4;
			mes "「両手剣修練」スタイルね。";
			mes "これでいいの？";
			set @htype,2;
			goto L_OK;
		L_hair3:
			cutin "hair_m_03",4;
			mes "「ナパームビート」スタイルね。";
			mes "これでいいの？";
			set @htype,3;
			goto L_OK;
		L_hair4:
			cutin "hair_m_04",4;
			mes "「ダブルストレイフィング」スタイルね。";
			mes "これでいいの？";
			set @htype,4;
			goto L_OK;
		L_hair5:
			cutin "hair_m_05",4;
			mes "「エンジェラス」スタイルね。";
			mes "これでいいの？";
			set @htype,5;
			goto L_OK;
		L_hair6:
			cutin "hair_m_06",4;
			mes "「プッシュカート」スタイルね。";
			mes "これでいいの？";
			set @htype,6;
			goto L_OK;
		L_hair7:
			cutin "hair_m_07",4;
			mes "「インベナム」スタイルwwww";
			mes "ほんとにwwwwこれでいいの？www";
			set @htype,7;
			goto L_OK;
		L_hair8:
			cutin "hair_m_08",4;
			mes "「ボウリングバッシュ」スタイルね。";
			mes "これでいいの？";
			set @htype,8;
			goto L_OK;
		L_hair9:
			cutin "hair_m_09",4;
			mes "「ベナムダスト」スタイルね。";
			mes "これでいいの？";
			set @htype,9;
			goto L_OK;
		L_hair10:
			cutin "hair_m_10",4;
			mes "「ターンアンデッド」スタイルね。";
			mes "これでいいの？";
			set @htype,10;
			goto L_OK;
//髪型1-10♀
	} else {
	menu "髪型1",R_hair1,"髪型2",R_hair2,"髪型3",R_hair3,"髪型4",R_hair4,"髪型5",R_hair5,"髪型6",R_hair6,"髪型7",R_hair7,"髪型8",R_hair8,"髪型9",R_hair9,"髪型10",R_hair10,"やめる",LEnd2,;
	close;
		R_hair1:
			cutin "hair_f_01",4;
			mes "「応急手当」スタイルね。";
			mes "これでいいの？";
			set @htype,1;
			goto L_OK;
		R_hair2:
			cutin "hair_f_02",4;
			mes "「バッシュ」スタイルね。";
			mes "これでいいの？";
			set @htype,2;
			goto L_OK;
		R_hair3:
			cutin "hair_f_03",4;
			mes "「フロストダイバー」スタイルね。";
			mes "これでいいの？";
			set @htype,3;
			goto L_OK;
		R_hair4:
			cutin "hair_f_04",4;
			mes "「アローシャワー」スタイルね。";
			mes "これでいいの？";
			set @htype,4;
			goto L_OK;
		R_hair5:
			cutin "hair_f_05",4;
			mes "「ヒール」スタイルね。";
			mes "これでいいの？";
			set @htype,5;
			goto L_OK;
		R_hair6:
			cutin "hair_f_06",4;
			mes "「露店開設」スタイルね。";
			mes "これでいいの？";
			set @htype,6;
			goto L_OK;
		R_hair7:
			cutin "hair_f_07",4;
			mes "「ダブルアタック」スタイルね。";
			mes "これでいいの？";
			set @htype,7;
			goto L_OK;
		R_hair8:
			cutin "hair_f_08",4;
			mes "「グロリア」スタイルね。";
			mes "これでいいの？";
			set @htype,8;
			goto L_OK;
		R_hair9:
			cutin "hair_f_09",4;
			mes "「SP回復力向上」スタイルね。";
			mes "これでいいの？";
			set @htype,9;
			goto L_OK;
		R_hair10:
			cutin "hair_f_10",4;
			mes "「フォーマシー」スタイルね。";
			mes "正しくはファーマシーだと思うけど";
			mes "こういう名前なのよねー";
			mes "これでいいの？";
			set @htype,10;
			goto L_OK;
		}

//髪型11-19
Colt5:
	mes "[コーディネーター]";
	mes "何番がいいかしら？";
	next;

//髪型11-19♂
	if (sex){
	menu "髪型11",L_hair11,"髪型12",L_hair12,"髪型13",L_hair13,"髪型14",L_hair14,"髪型15",L_hair15,"髪型16",L_hair16,"髪型17",L_hair17,"髪型18",L_hair18,"髪型19",L_hair19,"やめる",LEnd2;
	close;
		L_hair11:
			cutin "hair_m_11",4;
			mes "「ドラゴノロジー」スタイルね。";
			mes "これでいいの？";
			set @htype,11;
			goto L_OK;
		L_hair12:
			cutin "hair_m_12",4;
			mes "「メイス修練」スタイルね。";
			mes "これでいいの？";
			set @htype,12;
			goto L_OK;
		L_hair13:
			cutin "hair_m_13",4;
			mes "「サンダーストーム」スタイルね。";
			mes "これでいいの？";
			set @htype,13;
			goto L_OK;
		L_hair14:
			cutin "hair_m_14",4;
			mes "「アンコール」スタイルね。";
			mes "これでいいの？";
			set @htype,14;
			goto L_OK;
		L_hair15:
			cutin "hair_m_15",4;
			mes "「グリムトゥース」スタイルね。";
			mes "これでいいの？";
			set @htype,15;
			goto L_OK;
		L_hair16:
			cutin "hair_m_16",4;
			mes "「ブリッツビート」スタイルね。";
			mes "これでいいの？";
			set @htype,16;
			goto L_OK;
		L_hair17:
			cutin "hair_m_17",4;
			mes "「鉱石発見」スタイルね。";
			mes "これでいいの？";
			set @htype,17;
			goto L_OK;
		L_hair18:
			cutin "hair_m_18",4;
			mes "「ファイアピラー」スタイルね。";
			mes "これでいいの？";
			set @htype,18;
			goto L_OK;
		L_hair19:
			cutin "hair_m_19",4;
			mes "「阿修羅覇王拳」スタイルね。";
			mes "これでいいの？";
			set @htype,19;
			goto L_OK;
//髪型11-19♀
	} else {
	menu "髪型11",R_hair11,"髪型12",R_hair12,"髪型13",R_hair13,"髪型14",R_hair14,"髪型15",R_hair15,"髪型16",R_hair16,"髪型17",R_hair17,"髪型18",R_hair18,"髪型19",R_hair19,"やめる",LEnd2;
	close;
		R_hair11:
			cutin "hair_f_11",4;
			mes "「グランドクロス」スタイルね。";
			mes "これでいいの？";
			set @htype,11;
			goto L_OK;
		R_hair12:
			cutin "hair_f_12",4;
			mes "「クローンスキル」スタイルね。";
			mes "これでいいの？";
			set @htype,12;
			goto L_OK;
		R_hair13:
			cutin "hair_f_13",4;
			mes "「気奪」スタイルね。";
			mes "これでいいの？";
			set @htype,13;
			goto L_OK;
		R_hair14:
			cutin "hair_f_14",4;
			mes "「サービスフォーユー」スタイルね。";
			mes "これでいいの？";
			set @htype,14;
			goto L_OK;
		R_hair15:
			cutin "hair_f_15",4;
			mes "「オートカウンター」スタイルね。";
			mes "これでいいの？";
			set @htype,15;
			goto L_OK;
		R_hair16:
			cutin "hair_f_16",4;
			mes "「アンクルスネア」スタイルね。";
			mes "これでいいの？";
			set @htype,16;
			goto L_OK;
		R_hair17:
			cutin "hair_f_17",4;
			mes "「ハンマーフォール」スタイルね。";
			mes "これでいいの？";
			set @htype,17;
			goto L_OK;
		R_hair18:
			cutin "hair_f_18",4;
			mes "「ユピテルサンダー」スタイルね。";
			mes "これでいいの？";
			set @htype,18;
			goto L_OK;
		R_hair19:
			cutin "hair_f_19",4;
			mes "「バイオレントゲイル」スタイルね。";
			mes "これでいいの？";
			set @htype,19;
			goto L_OK;
		}

//髪型20-23
Colt6:
	mes "[コーディネーター]";
	mes "何番がいいかしら？";
	next;

//髪型20-23♂
	if (sex){
	menu "髪型20",L_hair20,"髪型21",L_hair21,"髪型22",L_hair22,"髪型23",L_hair23,"やめる",LEnd2,;
	close;
		L_hair20:
			cutin "hair_m_20",4;
			mes "これは「プティットスタイル」ね。";
			mes "これでいいの？";
			set @htype,20;
			goto L_OK;
		L_hair21:
			cutin "hair_m_21",4;
			mes "「エクスキュージョナースタイル」";
			mes "これでいいの？";
			set @htype,21;
			goto L_OK;
		L_hair22:
			cutin "hair_m_22",4;
			mes "これは「プリンススタイル」ね。";
			mes "これでいいの？";
			set @htype,22;
			goto L_OK;
		L_hair23:
			cutin "hair_m_23",4;
			mes "これは「デビアススタイル」ね。";
			mes "これでいいの？";
			set @htype,23;
			goto L_OK;
//髪型20-23♀
	} else {
	menu "髪型20",R_hair20,"髪型21",R_hair21,"髪型22",R_hair22,"髪型23",R_hair23,"やめる",LEnd2,;
	close;
		R_hair20:
			cutin "hair_f_20",4;
			mes "「スプリングラビットスタイル」ね。";
			mes "これでいいの？";
			set @htype,20;
			goto L_OK;
		R_hair21:
			cutin "hair_f_21",4;
			mes "これは「ハーピースタイル」ね。";
			mes "これでいいの？";
			set @htype,21;
			goto L_OK;
		R_hair22:
			cutin "hair_f_22",4;
			mes "これは「メデューサスタイル」ね。";
			mes "これでいいの？";
			set @htype,22;
			goto L_OK;
		R_hair23:
			cutin "hair_f_23",4;
			mes "これは「イシススタイル」ね。";
			mes "これでいいの？";
			set @htype,23;
			goto L_OK;

Colt7:
	mes "[コーディネーター]";
	mes "何番から見始めますか？";
	mes "" +@kami_type+ "番の次は0番に戻ります。";
	set @Colnom_e,1;
	input @KAMI_TYPE_NUM;
	if(@KAMI_TYPE_NUM > @kami_type) goto L_KAMITYPE;
	while(@Colnom_e == 1){
		setlook 1,@KAMI_TYPE_NUM;
		if (@KAMI_TYPE_NUM != @kami_type){set @KAMI_TYPE_NUM1,@KAMI_TYPE_NUM +1;}else{set @KAMI_TYPE_NUM1,0;}
		switch(select(
			"次の色 ("+ @KAMI_TYPE_NUM1 +"番) を見る","この髪型 ("+ @KAMI_TYPE_NUM +"番) にする")){
				case 1: set @KAMI_TYPE_NUM,@KAMI_TYPE_NUM +1; 
				if(@KAMI_TYPE_NUM==(@kami_type+1)){set @KAMI_TYPE_NUM,0;}goto Colnom_V;
				case 2: set @Colnom_e,2;
				set @hearfa,0;
			Colnom_V:
			}
	}
	next;
	mes "[コーディネーター]";
	mes "決まったかな？";
	close;

L_KAMITYPE:
		mes "0〜" +@kami_type+ "の間で決めてくださいね";
		close;
		}

L_OK:
	menu "選びなおす！",L_no,"ＯＫ！",-,"やっぱやめる！",LEnd2,;
	setlook 1,@htype;
	set @hearfa,0;


//ここまで髪型
//--------------------------------------------------------

LEnd1:
	next;
	mes "[コーディネーター]";
	mes "まぁ、とてもいいわね。";
	mes "また気分が変わったら";
	mes "いつでも私のところへ";
	mes "来てちょうだい";
	mes "待ってるわね。";
	cutin "hair_f_01",255;
	close;


LEnd2:
	next;
	mes "[コーディネーター]";
	mes "あら･･･やめちゃうの？";
	mes "また、いつでもいらしてね。";
	cutin "hair_f_01",255;
	close;
	end;

L_no:
	next;
	cutin "hair_f_01",255;
	}
}



prontera.gat,145,201,3	duplicate(cordinator)	コーディネーター#01	73,
prontera.gat,167,283,3	duplicate(cordinator)	コーディネーター#02	73,
izlude.gat,117,133,3	duplicate(cordinator)	コーディネーター#03	73,
lighthalzen.gat,153,120,5	duplicate(cordinator)	コーディネーター#04	73,
hugel.gat,103,144,3	duplicate(cordinator)	コーディネーター#05	73,

prt_vilg01.gat,89,95,3	duplicate(cordinator)	コーディネーター#06	73,