//--------------------------------
//	服髪色・髪型変更NPC
//--------------------------------
prontera.gat,148,195,6	script	コーディネーター	71,{
	mes "[コーディネーター]";
	mes "本日のご用件は何でしょうか？";
	mes "尚、服染めに関しての注意ですが";
	mes "転職時には服の色は";
	mes "デフォルトに戻して下さい。";
	mes "男性のローグ・アサシンまたは";
	mes "ハイウィザードは";
	mes "服染めできません。";
	next;
	mes "[コーディーネーター]";
	mes "アカウントにバード・ダンサーか";
	mes "クラウン・ジプシーがいる場合";
	mes "性転換するとログイン不能に";
	mes "なりますので注意してください。";
	next;
	switch (select("髪を染める","散髪する","服を染める","性転換","拡大縮小その1","拡大縮小その2")) {
	case 1:
		mes "[コーディネーター]";
		mes "何色に染めますか？";
		next;
		switch(select("赤","黄","青","緑","紅","紫","白","黒")) {
			case 1:
				setlook 6,8;
				set hairColor,8;
				close;
			case 2:
				setlook 6,1;
				set hairColor,1;
				close;
			case 3:
				setlook 6,5;
				set hairColor,5;
				close;
			case 4:
				setlook 6,4;
				set hairColor,4;
				close;
			case 5:
				setlook 6,3;
				set hairColor,3;
				close;
			case 6:
				setlook 6,2;
				set hairColor,2;
				close;
			case 7:
				setlook 6,6;
				set hairColor,6;
				close;
			case 8:
				setlook 6,7;
				set hairColor,7;
				close;
		}
	case 2:
		mes "[コーディネーター]";
		mes "どの髪型にしますか？";
		mes "種類は0〜23です";
		mes "番号を半角で入力して下さい。";
		input @hairstyle;
		if (@hairstyle>23) {
			mes "入力が不正です。";
			close;
	}
		setlook 1,@hairstyle;
		close;
	case 3:
		if (( sex == 1 && ( class == 12 || class == 17 )) || ( class >= 24 && class <= 29 )){
				mes "[コーディネーター]";
				mes "申し訳ありませんが、";
				mes "あなたの服を染めることはできません。";
				close;
		}
		mes "[コーディネーター]";
		mes "次の5つの中からお選び下さい。";
		next;
		set @fColor,select("デフォルト","その1","その2","その3","その4");
			switch(@fColor) {
				case 1:
					setlook 7,0;
					close;
				case 2:
					setlook 7,1;
					close;
				case 3:
					setlook 7,3;
					close;
				case 4:
					setlook 7,3;
					close;
				case 5:
					setlook 7,4;
					close;
		}
	case 4:
		mes "[コーディネーター]";
		mes "注意事項：性転換を行う前に……、";
		mes "性転換は^ff2222アカウント単位^000000で行われます。";
		mes "^ff2222ダンサー・バード^000000の方は";
		mes "全ての装備品を外してスキルを";
		mes "リセットしておいて下さい。";
		mes "^2222ff全てのキャラクター^000000の服の色は";
		mes "必ずデフォルト（^ff2222０番^000000）に";
		mes "戻しておいて下さい。";
		mes "服の色を戻さないで行うと";
		mes "エラーが出ることがあります。";
		next;
		mes "[コーディネーター]";
		mes "本当に性転換しますか？";
		next;
		if(select( "はい","いいえ",)==2){
			mes "[コーディネーター]";
			mes "了解致しました。";
			close;
		}
		mes "[コーディネーター]";
		mes "完全にログアウトしてから";
		mes "（キャラセレまでは^ff2222×^000000）";
		mes "再度ログインして下さい。";
		mes "それで性転換が完了します。";
			setlook 7,0;
			changesex;
			close;
	case 5: //無料版エフェクト操作
		mes "[コーディネーター]";
		mes "拡大縮小どちらになさいますか？";
		mes "注意事項：エフェクトの操作を行っているだけですので";
		mes "MAP移動等を行いますと元に戻ります。";
		mes "また、他の方からは画面から出るだけで普通の大きさに";
		mes "見えてしまいますので、その辺りをご了承下さい。";
		next;
			if(select("拡大","縮小",)==2){
				gmcommand "@misceffect 421";
				close;
			}
			else{
				gmcommand "@misceffect 423";
				close;
			}
	case 6: //有料版サイズ変更
		mes "[コーディネーター]";
		mes "こちらでは1回^0000cc1M^000000zで拡大縮小を行えます。";
		mes "注・こちらではログアウトするまで効果は持続致します。";
		mes "また、ペットやホムンクルスのサイズ変更も";
		mes "スクリプト上では可能になりますが";
		mes "現段階では見送っていますのでご了承下さい。";
		mes "拡大縮小どちらを選びますか？";
		next;
			if ( zeny <= 1000000 ){
				mes "[コーディネーター]";
				mes "と、思いましたが所持金が足りないようですね。";
				mes "もう一度、お確かめの上ご依頼下さいませ。";
				close;
			}
			switch (select("拡大","縮小","金は払わん！")) {
				case 1:
					changeviewsize 1,1;
					set Zeny,Zeny-1000000;
					close;
				case 2:
					changeviewsize 1,-1;
					set Zeny,Zeny-1000000;
					close;
				case 3:
					mes "[コーディネーター]";
					mes "お引取り下さい。";
					close;
				}
		}
}