//==========================================
// 飛行船クエスト第2部NPC
//------------------------------------------
airplane.gat,236,63,4	script	ヘイルレン	706,{
	switch(AIR_2QUE) {
	case 0:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		if(BaseLevel < 60) {
			mes "[ヘイルレン]";
			mes "飛行船の仕事なら";
			mes "僕に任せな！";
			mes "ヘヘッ。";
			close;
		}
		mes "[ヘイルレン]";
		mes "ん？　乗客の人？";
		mes "こにちわぁ〜";
		next;
		if(select("乗客じゃないよ？","ここで何してるの？")==1) {
			emotion 1;
			mes "[ヘイルレン]";
			mes "乗客じゃないって……乗務員？";
			mes "あれれ〜？　見た事ない顔……";
			mes "まさか、僕がまだ" +(Sex? "兄": "姉")+ "ちゃんたちの";
			mes "顔を覚えられてない!?";
			next;
			mes "[ヘイルレン]";
			mes "…………!!";
			next;
			emotion 0;
			mes "[ヘイルレン]";
			mes "アッ！";
			mes "よく見たら服が";
			mes "全然違うじゃん！";
			mes "僕がまだ小さいからって";
			mes "バカにするなよッ！";
			next;
			mes "[ヘイルレン]";
			mes "びっくりしたなぁ。";
			mes "もぅ〜";
		}
		else {
			mes "[ヘイルレン]";
			mes "見てわからない？";
			mes "甲板の掃除中に決まってるじゃん。";
			mes "僕が一番小っちゃいから、";
			mes "こういう仕事は";
			mes "押し付けられるんだよ。";
			next;
			mes "[ヘイルレン]";
			mes "さてと、";
		}
		mes "掃除をさっさと終わらせて、";
		mes "ケージ姉ちゃんとこに遊びに";
		mes "行こっと。";
		next;
		menu "ケージ……お姉さん？",-;
		mes "[ヘイルレン]";
		mes "ん……？";
		mes "飛行船の中でサイコロゲームを";
		mes "している人、知らない？";
		mes "退屈ならやってみたら？";
		next;
		mes "[ヘイルレン]";
		mes "サイコロを転がして、";
		mes "勝った方がリンゴを取るゲームだよ。";
		mes "あんまり勝ちすぎちゃったから、";
		mes "手に入れたリンゴで商売をする人が";
		mes "近くにいるぐらいだよ。";
		next;
		mes "[ヘイルレン]";
		mes "実はその話、ウソだと思って";
		mes "姉ちゃんに聞いてみたら……";
		mes "本当なんだってさ。";
		mes "すごいよね〜";
		next;
		mes "[ヘイルレン]";
		mes "あ、この話は秘密だった！";
		mes "…………へへ、まいっか。";
		mes "それじゃ、僕はまだ仕事があるから。";
		mes "また今度ね、" +(Sex? "兄": "姉")+ "ちゃん。";
		set AIR_2QUE,1;
		close;
	case 1:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		mes "[ヘイルレン]";
		mes "オッ？";
		mes "前に会った" +(Sex? "兄": "姉")+ "ちゃんだね。";
		mes "こにちわぁ〜っと。";
		mes "今日も熱心に掃除中だ！";
		next;
		emotion 0;
		mes "[ヘイルレン]";
		mes "あ！";
		mes "ちょっと";
		mes "お願いがあるんだけどいいかな？";
		mes "簡単だからさ、ね？";
		next;
		if(select("今忙しくて……ごめん","何？　簡単ならいいけど……")==1) {
			mes "[ヘイルレン]";
			mes "そっか……忙しいならいいよ。";
			mes "掃除を終わらせてから";
			mes "自分でするから……";
			mes "じゃ、僕は掃除を続けるから。";
			close;
		}
		mes "[ヘイルレン]";
		mes "ヘヘッ。サンキューサンキュー。";
		mes "そう難しい事じゃないよ。";
		next;
		mes "[ヘイルレン]";
		mes "定期的に乗務員のみんなに";
		mes "送られてる手紙を、";
		mes "ジュノー空港で僕が集めてるんだ。";
		mes "その中にケージ姉ちゃんへの";
		mes "手紙があってね。";
		next;
		mes "[ヘイルレン]";
		mes "今、掃除で忙しいから";
		mes "僕の代わりにこれを";
		mes "ケージ姉ちゃんに届けてよ。";
		mes "マウォングって人からの手紙だけど、";
		mes "姉ちゃんのお師匠様ということしか";
		mes "僕も知らないよ。";
		next;
		mes "-ヘイルレンから手紙を受けとった-";
		next;
		mes "[ヘイルレン]";
		mes "ケージ姉ちゃんは飛行船の中にいるよ。";
		mes "頼んだよ〜";
		set AIR_2QUE,2;
		close;
	case 2:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		mes "[ヘイルレン]";
		mes "ふぅ……";
		mes "これ、いつ終わるんだ……";
		mes "サッサッサ…………";
		next;
		mes "[ヘイルレン]";
		mes "あ、" +(Sex? "兄": "姉")+ "ちゃん！";
		mes "ケージ姉ちゃんに手紙は渡した？";
		close;
	case 3:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		mes "[ヘイルレン]";
		mes "これ、いつ終わるんだ……";
		mes "サッサッサ…………";
		close;
	case 4:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		mes "[ヘイルレン]";
		mes "あ！　こにちわぁ〜";
		mes "この前頼んだ手紙、ありがとね。";
		next;
		mes "[ヘイルレン]";
		mes "でも、ケージ姉ちゃんに";
		mes "乗客の方に面倒にかけるなって";
		mes "怒られちゃったよ……ちぇっ。";
		next;
		mes "[ヘイルレン]";
		mes "人間関係っていうのは";
		mes "忙しい時はお互いに";
		mes "助け合うことだとは思わない？";
		next;
		if(select("…………","そうだね。助け合わないといけない")==1) {
			mes "[ヘイルレン]";
			mes "どうして何も言わないのさ。";
			mes "もしかして、薄情者？";
			set AIR_2QUE,5;
			close;
		}
		mes "[ヘイルレン]";
		mes "おぉッ！";
		mes "やっぱり" +(Sex? "兄": "姉")+ "ちゃんは話がわかるね！";
		mes "そんな" +(Sex? "兄": "姉")+ "ちゃんには";
		mes "これをあげよう！";
		next;
		mes "[ヘイルレン]";
		mes "ヘヘッ。";
		mes "危ない時にでも使ってよ。";
		mes "それじゃ、僕は掃除をするから。";
		mes "またね〜";
		set AIR_2QUE,5;
		getitem 501,1;
		close;
	case 5:
		mes "[ヘイルレン]";
		mes (Sex? "兄": "姉")+ "ちゃ〜ん。";
		mes "こにちわぁ〜";
		next;
		menu "今日は掃除をしないの？",-;
		mes "[ヘイルレン]";
		mes "僕がいっつも掃除だけ";
		mes "していると思った？";
		mes "僕だってたまには休むよ。";
		next;
		mes "[ヘイルレン]";
		mes "僕にも趣味があるんだ。";
		mes "ジュノーで暮らしている時、";
		mes "隣の家にイボって兄ちゃんがいて、";
		mes "兄ちゃんは本当に何でも作れる";
		mes "万能博士だったんだ。";
		next;
		mes "[ヘイルレン]";
		mes "その兄ちゃんが";
		mes "僕の理想なんだ。";
		mes "僕も不思議な物を";
		mes "いっぱい作って";
		mes "イボ兄ちゃんみたいになりたいんだ。";
		next;
		mes "[ヘイルレン]";
		mes "大賢者バルムント";
		mes "とまでは言わないけど、";
		mes "色んな物を作って、";
		mes "人々に喜ばれたいんだ。";
		mes "夢にしては大きすぎるかな？";
		mes "アハハッ。";
		next;
		menu "大賢者バルムント？",-;
		mes "[ヘイルレン]";
		mes "うん。え？　何？";
		mes "大賢者バルムントを知らない？";
		next;
		mes "[ヘイルレン]";
		mes "うーん……";
		mes "僕も聞いた話だから";
		mes "あまり詳しくは知らないけど……";
		next;
		mes "[ヘイルレン]";
		mes "300年ぐらい前に";
		mes "バルムントっていう人が、";
		mes "たくさんの業績を残したことで";
		mes "大賢者になったんだって。";
		next;
		mes "[ヘイルレン]";
		mes "僕たちが今、";
		mes "こんなに便利な生活していることも";
		mes "み〜んなその人のおかげらしいよ。";
		next;
		mes "[ヘイルレン]";
		mes "だけど、その人はいきなり";
		mes "行方不明になっちゃったんだって。";
		mes "どこにいるのか誰にもわからなくて、";
		mes "やがて、人々の間では";
		mes "伝説のような人になったんだってさ。";
		next;
		mes "[ヘイルレン]";
		mes "こんなとこかな……";
		mes "そういえば、" +(Sex? "兄": "姉")+ "ちゃんは";
		mes "この飛行船の事、";
		mes "よく知ってる？";
		next;
		menu "どうして急に飛行船？",-;
		mes "[ヘイルレン]";
		mes "飛行船はすごく大きくて重いのに、";
		mes "こんなのがどうやって";
		mes "空に飛んでるのか知りたくない？";
		mes "さっきも言ったけど、";
		mes "僕はなんでも作りたいんだ。";
		next;
		mes "[ヘイルレン]";
		mes "だから、僕はこの飛行船について";
		mes "隅々まで知りたいんだ。";
		mes "でも、どうしてもこんな重いのが";
		mes "人を乗せて動けるのか";
		mes "全然わからなくて……うーん……";
		set AIR_2QUE,6;
		close;
	case 6:
		mes "[ヘイルレン]";
		mes (Sex? "兄": "姉")+ "ちゃんは飛行船が";
		mes "どうやって動いてるか";
		mes "知ってる？";
		next;
		if(AIR_1QUE < 7) {
			menu "うーん……私にもわからない",-;
			mes "[ヘイルレン]";
			mes "そっか……";
			mes "やっぱわかんないよね。";
			mes "トロック船長なら";
			mes "知ってるだろうけど";
			mes "聞いてみたら機密だからって";
			mes "教えてくれないんだよ。ちぇっ。";
			next;
			mes "[ヘイルレン]";
			mes (Sex? "兄": "姉")+ "ちゃんからもちょっと";
			mes "聞いてみてくれない？";
			mes "トロック船長が教えてくれないなら、";
			mes "他の船員でもいいからさ。";
			next;
			mes "[ヘイルレン]";
			mes "どうしても知りたいんだ。";
			mes "わかったら、また後で";
			mes "教えてよね！";
			mes "頼んだよ！";
			next;
			mes "-ヘイルレンは私が考える間もなく、";
			mes "話を切り上げて";
			mes "仕事に集中し始めた-";
			close;
		}
		menu "うん……知ってる",-;
		mes "[ヘイルレン]";
		mes "えッ？　本当!?";
		mes "本当に知ってるの!?";
		mes "教えて!!";
		mes "どうやって、こんな大きくて重い";
		mes "飛行船が浮いてるの!?";
		next;
		mes "-ペルロック船長に聞いた話を";
		mes "ユミルの心臓のイミテーションの";
		mes "部分を除いてヘイルレンに教えた-";
		next;
		mes "[ヘイルレン]";
		mes "うん、うん。";
		mes "簡単にいうと、水蒸気を利用して";
		mes "プロペラを回してるんだね。";
		next;
		mes "[ヘイルレン]";
		mes "……でも、この重い飛行船が";
		mes "そんな単純な機械で浮かぶの？";
		mes "もっと、違う何かがあるんじゃ……";
		next;
		mes "[ヘイルレン]";
		mes "本当に聞いたのはそれだけなの？";
		next;
		menu "ルーン機関について教える",-;
		mes "-子供になら事実を教えても";
		mes "問題はないだろうと思い、";
		mes "ルーン機関、つまり";
		mes "ユミルの心臓のイミテーション";
		mes "について話した-";
		next;
		mes "[ヘイルレン]";
		mes "えッ？　本当にそんな物があるの？";
		mes "わ！　ホント？　すごい！";
		mes "……あれ？";
		mes "なんだかユミルって言葉に";
		mes "聞き覚えが……";
		next;
		mes "[ヘイルレン]";
		mes "どっかで聞いたような……";
		mes "う〜ん……";
		mes "ちょっと思い出してみる。";
		set AIR_2QUE,7;
		close;
	case 7:
		mes "[ヘイルレン]";
		mes "うーん……思い出せないや。";
		mes "どっかで聞いたことあるんだけど……";
		mes "どこだったかなぁ……";
		next;
		emotion 0;
		mes "[ヘイルレン]";
		mes "あッ！　思い出した!!";
		mes "それ、ケージ姉ちゃんの所で";
		mes "聞いたんだ！";
		next;
		menu "ケージお姉さんの所？",-;
		mes "[ヘイルレン]";
		mes "うん！";
		mes "姉ちゃんがサイコロゲームする所で";
		mes "いっつもお酒を飲んでいるおじさんが";
		mes "そんなこと言ってた！";
		next;
		if(EIN_3QUE == 11) {
			mes "（そういえばこの前、";
			mes "シドクスさんの頼みを";
			mes "聞いた時に";
			mes "そんな人に会ったことがあった）";
			next;
			mes "（あの人は確か";
			mes "ユミルの心臓の欠片がある";
			mes "アインブロックの";
			mes "研究所所長だった気が……）";
			next;
			mes "（ん？　それなら";
			mes "ユミルの心臓のイミテーションが";
			mes "アインブロック研究所にある";
			mes "ユミルの心臓の欠片に";
			mes "何か関係しているんじゃ？";
			mes "一度調べてみたほうがいいだろう）";
			next;
		}
		mes "[ヘイルレン]";
		mes "とにかく" +(Sex? "兄": "姉")+ "ちゃん。";
		mes "飛行船について教えてくれて";
		mes "ありがとね。";
		mes "安物だけど、これをあげるよ！";
		next;
		mes "[ヘイルレン]";
		mes "ヘヘッ。";
		mes "そう感動する物じゃないよね。";
		mes "それじゃ、僕は仕事があるから。";
		mes "今度またね。";
		mes "ばいば〜い。";
		if(EIN_3QUE == 11)
			set AIR_2QUE,9;
		else
			set AIR_2QUE,8;
		getitem 501,1;
		close;
	case 8:
		mes "[ヘイルレン]";
		mes "ケージ姉ちゃんに";
		mes "その酔ったおじさんについて";
		mes "聞いてみてよ。";
		mes "いっつも来てるから、";
		mes "姉ちゃんなら何か知ってるかも。";
		close;
	default:
		mes "[ヘイルレン]";
		mes "サッサッサ〜";
		mes "お掃除サッサ〜";
		next;
		mes "[ヘイルレン]";
		mes "あ、この前はありがとね。";
		mes "ヘヘッ。";
		mes "僕もいつかはこんな、";
		mes "大きい飛行船を作ってやるんだッ！";
		close;
	}
}

airplane.gat,33,69,4	script	ケージ#Air	73,{
	switch(AIR_2QUE) {
	default:
		mes "[ケージ]";
		mes "こんにちは。";
		mes "私の名前はケージ。";
		mes "ちょっと退屈してるの。";
		mes "暇つぶしに、私とサクっと軽く";
		mes "サイコロゲームでもしない？";
		close;
	case 2:
		mes "[ケージ]";
		mes "こんにちは。";
		mes "私の名前はケージ。";
		mes "ちょっと退屈してるの。";
		mes "暇つぶしに、私とサクっと軽く";
		mes "サイコロゲームでもしない？";
		next;
		menu "ヘイルレンに頼まれた手紙を渡す。",-;
		mes "[ケージ]";
		mes "ん？　あ……";
		mes "ヘイルレンに頼まれたのね。";
		mes "あの子ったら……";
		mes "言われたことをちゃんと";
		mes "してればいいのに……";
		mes "お客様に迷惑をかけちゃったわね。";
		next;
		mes "[ケージ]";
		mes "あ、そうそう。";
		mes "これ、ありがとう。";
		mes "私はちょっと手紙を読んでるから、";
		mes "何かあったらいつでも言ってね。";
		set AIR_2QUE,3;
		close;
	case 3:
		mes "[ケージ]";
		mes "こんにちは。";
		mes "手紙、ありがとね。";
		mes "何か知りたいことがあったら";
		mes "遠慮なくどうぞ。";
		while('@tolk < 0x7;) {
			next;
			switch(select("ヘイルレンと姉弟なのか聞く","手紙を送ったマウォングについて聞く","飛行船をどう思っているのか聞く")) {
			case 1:
				mes "[ケージ]";
				mes "ヘイルレンと？";
				mes "いいえ、姉弟じゃないわ。";
				mes "私の母方のおじの息子、";
				mes "私と従姉弟ってことかな。";
				next;
				mes "[ケージ]";
				mes "20年前、私のお父さんが";
				mes "アインベフで起きた";
				mes "鉱山爆発事故で死んで以来……";
				mes "一人になった私は";
				mes "ジュノーにある";
				mes "母方のおじの家で育ったの。";
				next;
				mes "[ケージ]";
				mes "そうするうちに偶然、";
				mes "サイコロゲームで";
				mes "人々を楽しませていたのを";
				mes "トロック船長に見込まれて";
				mes "この飛行船に乗る事になったの。";
				next;
				mes "[ケージ]";
				mes "小さい頃から何かを作るのが";
				mes "好きだったヘイルレンは";
				mes "私が飛行船で働くことになった";
				mes "と聞くと、何でもするから";
				mes "飛行船で一緒に働かせてって";
				mes "トロック船長にせがんだのよ。";
				next;
				mes "[ケージ]";
				mes "それで、結局あの子も";
				mes "一緒にきたんです。";
				mes "一度言い出すと聞かない子だから。";
				mes "フフッ。";
				next;
				set '@tolk,'@tolk|0x1;
				break;
			case 2:
				mes "[ケージ]";
				mes "あ、マウォング先生ね。";
				mes "マウォング先生は面白いゲームを";
				mes "たくさん作ることで有名な人よ。";
				mes "そして、私の恩師でもあるの。";
				next;
				mes "[ケージ]";
				mes "私が母方のおじの家にいた時、";
				mes "ある日、";
				mes "村にマウォング先生がきたわ。";
				next;
				mes "[ケージ]";
				mes "当時何一つまともにできなかったし、";
				mes "父さんの死で落ち込んでて……";
				mes "マウォング先生がきたことを聞いても";
				mes "全然関心がなかったわ。";
				next;
				mes "[ケージ]";
				mes "それなのに……";
				mes "偶然にだけど、先生に会ったの。";
				mes "先生は、あの時まで私が忘れていた";
				mes "笑いを取り戻してくれたわ。";
				next;
				mes "[ケージ]";
				mes "マウォング先生と出会って、";
				mes "私の人生にも笑いと幸せがあることが";
				mes "わかったのよ。";
				next;
				mes "[ケージ]";
				mes "その後……";
				mes "私は自分が得た笑いと幸せを";
				mes "以前の私のように落ち込んでいる";
				mes "人たちに伝えようと思って、";
				mes "先生の弟子になったの。";
				next;
				mes "[ケージ]";
				mes "先生には";
				mes "色々なゲームを教えてもらったわ……";
				mes "マウォング先生との縁は";
				mes "こんな風に始まったのよ。";
				next;
				set '@tolk,'@tolk|0x2;
				break;
			case 3:
				mes "[ケージ]";
				mes "大きくて……美しいわ。";
				mes "こんな大きな物体が";
				mes "空を飛び回れるのが";
				mes "本当に不思議で……";
				mes "神秘的に感じるわ。";
				next;
				mes "[ケージ]";
				mes "ここへ来る前から、";
				mes "高い所で世界を眺めながら";
				mes "好きなことをしたいって、";
				mes "いつも考えてたわ。";
				next;
				mes "[ケージ]";
				mes "そうしたらある日、";
				mes "私とサイコロゲームをした";
				mes "トロック船長が、飛行船で";
				mes "一緒に働こうと言ってくれたの。";
				mes "私はすぐに「はい」って答えたわ。";
				next;
				set '@tolk,'@tolk|0x4;
				break;
			}
			if('@tolk < 0x7) {
				mes "[ケージ]";
				mes "他に知りたい事があるならどうぞ。";
			}
		}
		mes "[ケージ]";
		mes "また、ヘイルレンが";
		mes "お客様に迷惑をかけるようだったら、";
		mes "はっきりと断ってね。";
		mes "あの子、すぐ甘えちゃうから。";
		mes "フフッ。";
		next;
		mes "[ケージ]";
		mes "そろそろまた仕事を";
		mes "始めなくちゃ。";
		mes "それじゃ、楽しい一日を！";
		set AIR_2QUE,4;
		close;
	case 8:
		mes "[ケージ]";
		mes "こんにちは。";
		mes strcharinfo(0)+ "さん。";
		mes "飛行船でよくお目にかかりますね。";
		mes "フフッ。";
		mes "何か聞きたいことでもあるの？";
		next;
		menu "酔っ払っている人が誰か聞く",-;
		mes "[ケージ]";
		mes "あぁ、あの人？";
		mes "どうもアインブロックにある";
		mes "研究所の所長さんみたいよ。";
		next;
		mes "[ケージ]";
		mes "いつもお酒を飲んでは";
		mes "私にリンゴが奪われるのが";
		mes "好きって言ってるけど、";
		mes "リンゴを取られると";
		mes "やっぱり落ち込んでるわね。";
		next;
		mes "[ケージ]";
		mes "この前、横にいるリンゴ商人さんから";
		mes "リンゴを沢山買って";
		mes "破産する一歩手前になってたわ。";
		next;
		mes "[ケージ]";
		mes "でも、そんなおじさんのおかげで";
		mes "この仕事が前より";
		mes "もっと好きになれた気がするわ。";
		mes "ありがたいお客さんかしらね。";
		next;
		mes "[ケージ]";
		mes "それにしても、";
		mes "いつも疲れているみたいね。";
		mes "所長さんだし、";
		mes "仕事が大変なのかしら？";
		mes "私が知ってるのはこれぐらいよ。";
		next;
		mes "（うーん……";
		mes "アインブロックの研究所か……";
		mes "一般人は入れない所だから";
		mes "どうも怪しいな……）";
		next;
		mes "（あの人が";
		mes "ユミルの心臓を知っているなら……";
		mes "その研究所に何かが……）";
		next;
		mes "（よし！";
		mes "アインブロックの研究所に";
		mes "行ってみよう。）";
		set AIR_2QUE,9;
		close;
	}
}

ein_in01.gat,279,25,0	script	#研究所入口	139,1,1,{
	if(AIR_2QUE == 9) {
		mes "（研究所の中を探せば、";
		mes "何か出るかも知れない）";
		close;
	}
}

ein_in01.gat,264,17,0	script	#暗号チェック機	139,1,1,{
	if(AIR_2QUE == 9) {
		mes "（ん!?　これは……？";
		mes "暗号チェック機？";
		mes "……どうやら、";
		mes "暗号がどれだけ正しいか";
		mes "チェックしてくれる機械のようだ）";
		next;
		mes "-暗号チェック機を動かした-";
		set AIR_2QUE,10;
		close;
	}
}

ein_in01.gat,261,35,0	script	#暗号入力機	139,1,1,{
	if(AIR_2QUE == 9 || AIR_2QUE == 10) {
		mes "（ん!?　何かある）";
		next;
		mes "（……どうやら暗号が";
		mes "必要みたいだ）";
		next;
		mes "^FF0000[三桁の数字を合わせる。";
		mes "0を使わず、重複もしない。";
		mes "一回につき3分以内に";
		mes "入力しなければならない。";
		mes "10回間違えた場合、";
		mes "暗号は変更される。]^000000";
		next;
		if(AIR_2QUE == 9) {
			mes "（……と書いている。";
			mes "このまま暗号を合わせるのは";
			mes "とても難しいな……";
			mes "近くに何かないか探してみよう）";
			close;
		}
		mes "（……と書いてある。";
		mes "さっきの暗号チェック機を利用して";
		mes "数字を3個入力してみよう）";
		next;
		mes "[セキュリティシステム]";
		mes "暗号を入力してください。";
		mes "0を使わず重複もしない";
		mes "三個の数字を入力してください。";
		mes "入力範囲を超過する値を入力すると、";
		mes "認証が取り消されます。";
		next;
		set '@cnt,10;
		setarray '@num$[2],"二","三","四","五","六","七","八","九";
		setarray '@list,1,2,3,4,5,6,7,8,9;
		for(set '@i,0; '@i < 3; set '@i,'@i+1) {
			set '@r,rand(getarraysize('@list));
			set '@ans['@i],'@list['@r];
			deletearray '@list['@r],1;
		}
		while(1) {
			input '@temp;
			if('@temp < 100 || '@temp > 999) {
				mes "[セキュリティシステム]";
				mes "入力値の範囲を超過しました。";
				mes "認証は取り消されます。";
				close;
			}
			setarray '@num,'@temp/100,'@temp%100/10,'@temp%100%10;
			if('@num[0] == 0 || '@num[1] == 0 || '@num[2] == 0 || '@num[0] == '@num[1] || '@num[1] == '@num[2] || '@num[0] == '@num[2]) {
				mes "[セキュリティシステム]";
				mes "入力された値に";
				mes "0が入っているか、";
				mes "重複されています。";
				mes "再度入力してください。";
				continue;
			}
			mes "[セキュリティシステム]";
			mes "^FF0000" +strcharinfo(0)+ "^000000様が入力した数値は";
			mes "^0000FF" +'@num[0]+ "," +'@num[1]+ "," +'@num[2]+ "^000000 です。";
			mes "認証結果を表示します。";
			next;
			if('@num[0] == '@ans[0])
				set '@match,'@match+1;
			if('@num[0] == '@ans[1] || '@num[0] == '@ans[2])
				set '@shift,'@shift+1;
			if('@num[1] == '@ans[1])
				set '@match,'@match+1;
			if('@num[1] == '@ans[0] || '@num[1] == '@ans[2])
				set '@shift,'@shift+1;
			if('@num[2] == '@ans[2])
				set '@match,'@match+1;
			if('@num[2] == '@ans[0] || '@num[2] == '@ans[1])
				set '@shift,'@shift+1;
			if('@match == 3)
				break;
			mes "[セキュリティシステム]";
			mes "エラー！";
			mes "暗号が違います。";
			next;
			mes "[暗号チェック機]";
			mes "数字と桁数が合っているのは^FF0000" +'@match+ "^000000個";
			mes "数字だけ合っているのは^FF0000" +'@shift+ "^000000個です。";
			next;
			set '@match,0;
			set '@shift,0;
			set '@cnt,'@cnt-1;
			if('@cnt > 1)
				mes "（チャンスはあと" +'@num$['@cnt]+ "回だ。";
			else if('@cnt == 1)
				mes "（最後のチャンスだ。";
			else {
				mes "（正解は^FF0000" +'@ans[0]+ "^000000,^FF0000" +'@ans[1]+ "^000000,^FF0000" +'@ans[2]+ "^000000";
				mes "だったようだ。";
				mes "しかし、10回の失敗で";
				mes "暗号が変わってしまった。）";
				close;
			}
			mes "暗号チェック機の結果を元に";
			mes "暗号を考えよう。）";
			next;
			continue;
		}
	}
}