npc_job_wizard.txt

传奇3源程序, 用vc开发的

		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q4:
		mes "[ラウル]";
		mes "4. マジシャンが一番多い街は？";
		next;
		menu "プロンテラ",L_M2_P3_Q5, "モロク",L_M2_P3_Q5, "アルベルタ",L_M2_P3_Q5, "ゲフェン",-;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q5:
		mes "[ラウル]";
		mes "5. INTと関係ないカードは？";
		next;
		menu "アンドレの幼虫カード",L_M2_P3_Q6, "兵隊アンドレカード",-, "子デザートウルフカード",L_M2_P3_Q6, "エルダーウィローカード",L_M2_P3_Q6;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q6:
		mes "[ラウル]";
		mes "6. マジシャンが他の職業に比べて";
		mes "優れている点は？";
		next;
		menu "近接戦闘能力",L_M2_P3_Q7, "回避能力",L_M2_P3_Q7, "ダンス能力",L_M2_P3_Q7, "魔法力",-;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q7:
		mes "[ラウル]";
		mes "7. ジョブレベル40での";
		mes "INTボーナスは？";
		next;
		menu "8",L_M2_P3_Q8, "7",L_M2_P3_Q, "6",L_M2_P3_Q, "5",-;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q8:
		mes "[ラウル]";
		mes "8. マジシャンが装備できないのは？";
		next;
		menu "ナイフ",L_M2_P3_Q9, "キャップ",-, "サンダル",L_M2_P3_Q9, "デュラハンアイ",L_M2_P3_Q9;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q9:
		mes "[ラウル]";
		mes "9. マジシャン転職試験で、";
		mes "混合液3号の触媒になる鉱石は？";
		next;
		menu "イエロージェムストーン",-, "レッドジェムストーン",L_M2_P3_Q10, "ブルージェムストーン",L_M2_P3_Q10, "レッドブラッド",L_M2_P3_Q10;
		set @wizard_t,@wizard_t + 10;
	L_M2_P3_Q10:
		mes "[ラウル]";
		mes "10. 魔法と関係ないカードは？";
		next;
		menu "マルドゥークカード",L_M2_End, "白蓮玉カード",-, "ウィローカード",L_M2_End, "マヤカード",L_M2_End;
		set @wizard_t,@wizard_t + 10;
// ------------------試験終了--------------
	L_M2_End:
		mes "[ラウル]";
		mes "ごくろう。金があるなら、";
		mes "あとでポーションでも飲んでおけ。";
		next;
		mes "[ラウル]";
		mes "おまえの得点は… " + @wizard_t + "点！";
		if (@wizard_t < 100) goto L_Got90;
			set job_wizard_q,5;
			mes "上出来だ。筆記試験合格。";
			if(@wizard_r) mes "一回で合格できなかったが、";
			if(@wizard_r) mes "それは大目に見てやろう。";
			next;
			mes "[ラウル]";
			mes "だがこれで安心するな。";
			mes "まだ最後の試験が残っているぞ。";
			mes "試験の準備をする間、";
			mes "座って休んでいるがいい。";
			close;
	L_Got90:
		if (@wizard_t < 90) goto L_Failed;
			set job_wizard_q,5;
			mes "ふむ、１問だけ間違えてるな。";
			mes "だが見なかったことにしてやろう。";
			if(@wizard_r) mes "一回で合格できなかったが、";
			if(@wizard_r) mes "それも大目に見てやろう。";
			next;
			mes "[ラウル]";
			mes "だがこれで安心するな。";
			mes "まだ最後の試験が残っているぞ。";
			mes "試験の準備をする間、";
			mes "座って休んでいるがいい。";
			close;
	L_Failed:
		set job_wizard_q,4;
		mes "不合格だ。もっと勉強して来い。";
		next;
		mes "[ラウル]";
		mes "まだまだ道は遠いな。";
		mes "そんな低脳ではウィザードになっても";
		mes "生き残れないだろうさ。";
		close;
		end;

//-------------------------------------------------------------------再挑戦
L_PART5:
	if (job_wizard_q != 4) goto L_PART6;
		mes "[ラウル]";
		mes "なんだ？再挑戦するのか？";
		next;
		mes "[ラウル]";
		mes "そんなに平和な生活が嫌いなのか？";
		mes "もう一度俺がその機会を与えてやろう。";
		next;
		mes "[ラウル]";
		mes "一つでも間違えれば諦める事だ。";
		mes "それは素質が無いということだからな。";
		next;
		menu "平和に生きます。",-, "転職試験を続けます。",L_TryYes;

			mes "[ラウル]";
			mes "賢明な判断だな。ゴホッゴホッ";
			mes "ウィザードは難しい職業だ。";
			mes "魔法は本来人間が使うものではないの";
			mes "だから。";
			next;
			mes "[ラウル]";
			mes "塔を降りろ。そして振り返るな。";
			mes "今使える魔法を使って";
			mes "平和に生きることだ。";
			close;
			end;
		L_TryYes:
			mes "[ラウル]";
			mes "ハハハ、ここに馬鹿がいるぞ！";
			mes "お前がどれだけできるか見せて貰おう。";
			next;
			set @wizard_r,1;
			goto L_M2Start;

//-----------------------------------------------------------------最終試験
L_PART6:
	if (job_wizard_q != 5) goto L_PART7;
		mes "[ラウル]";
		mes "十分に休んだな？";
		mes "じゃあ最後の試験を始めよう。";
		next;
		mes "[ラウル]";
		mes "試験についての簡単な説明を聞くか？";
		mes "まあ聞いても難しいことには変わりは";
		mes "ないが。";
		next;
		menu "いえ、いいです。",-, "聞いてみます。",L_YesHear;
			mes "[ラウル]";
			mes "無謀な奴だな。まあ行って来い！";
			mes "死んでも死体は片付けんからな。";
			next;
			set job_wizard_q,6;
			savepoint "geffen.gat",120,107;
			mes "[ラウル]";
			mes "では願いどおり、すぐに送ってやろう。";
			mes "好きなように暴れまわって来い！";
			next;
			warp "job_wiz.gat",57,154;
			end;
	L_YesHear:
		mes "[ラウル]";
		mes "マジメな奴だな。よし、説明しよう。";
		mes "いくら難しくても、言われた通りに";
		mes "すれば受かることができる。";
		next;
		mes "[ラウル]";
		mes "試験は３段階にわけられている。";
		mes "水の部屋、地の部屋、火の部屋という";
		mes "順に進んでいく。";
		next;
		mes "[ラウル]";
		mes "それぞれの部屋ではその部屋の属性の";
		mes "モンスターが登場する。";
		mes "属性に合った魔法を使えば、難なく";
		mes "倒すことができるだろう。";
		next;
		mes "[ラウル]";
		mes "制限時間以内に全てのモンスターを倒し";
		mes "門番モンスターを倒せば、次の部屋に";
		mes "行くことが出来る。";
		next;
		mes "[ラウル]";
		mes "出口を出れば試験は終了だ。";
		mes "成功したら魔法のマスターである";
		mes "ウィザードにしてやろう。";
		next;
		mes "[ラウル]";
		mes "恐ろしいという顔だな？";
		mes "まだ遅くは無い。";
		mes "今諦めれば故郷に返してやるぞ？";
		next;
		menu "試験を受けます。",-, "恐ろしいので帰ります。",L_Scared;
			set job_wizard_q,6;
			savepoint "geffen.gat",120,107;
			mes "[ラウル]";
			mes "勇敢な奴だな。";
			mes "願い道理始めてやる！";
			next;
			warp "job_wiz.gat",57,154;
			end;
	L_Scared:
		set job_wizard_q,6;
		mes "[ラウル]";
		mes "賢い判断だ。";
		mes "お前にはそっちのほうがあっている。";
		mes "平和に静かに暮らすがよい！";
		next;
		warp "geffen.gat",120,110;
		end;
//-----------------------------------------------------------最終試験再試験
L_PART7:
	if (job_wizard_q != 6) goto L_PART8;
		set @wizard_t,0;
		mes "[ラウル]";
		mes "また試験を受けたいのか？";
		mes "そんなに魔法がすきなのか？";
		next;
		mes "[ラウル]";
		mes "お前は失敗したから、筆記試験も行う。";
		mes "嫌なら最終試験は受けさせん。";
		next;
		mes "[ラウル]";
		mes "さあ、始めるぞ。ククッ";
		next;
/////Waste of Time Test
		mes "[ラウル]";
		mes "1. 存在しないモンスターは？";
		next;
		menu "マンティス",L_M3_Q2, "ギザミベラ",-, "ガイアス",L_M3_Q2, "キャラメル",L_M3_Q2;
		set @wizard_t,@wizard_t + 20;
	L_M3_Q2:
		mes "[ラウル]";
		mes "2. 動物種族ではないモンスターは？";
		next;
		menu "ヨーヨー",L_M3_Q3, "ビッグフット",L_M3_Q3, "メタルラ",L_M3_Q3, "ゼロム",-;
		set @wizard_t,@wizard_t + 20;
	L_M3_Q3:
		mes "[ラウル]";
		mes "3. 詠唱反応でないモンスターは？";
		next;
		menu "マリナ",-, "ビタタ",L_M3_Q4, "スコーピオン",L_M3_Q4, "ガイアス",L_M3_Q4;
		set @wizard_t,@wizard_t + 20;
	L_M3_Q4:
		mes "[ラウル]";
		mes "4. マリンスフィアに使うなら、";
		mes "どの魔法が一番良い？";
		next;
		menu "コールドボルト",L_M3_Q5, "ファイヤーボルト",L_M3_Q5, "ライトニングボルト",-, "ストーンカース",L_M3_Q5;
		set @wizard_t,@wizard_t + 20;
	L_M3_Q5:
		mes "[ラウル]";
		mes "5. 移動できるモンスターは？";
		next;
		menu "ヒドラ",L_M3_Q6, "マンドラゴラ",L_M3_Q6, "天下大将軍",L_M3_Q6, "フリルドラ",-;
		set @wizard_t,@wizard_t + 20;
	L_M3_Q6:
		mes "[ラウル]";
		mes "正解していれば、もう筆記試験は";
		mes "行わない。";
		next;
		mes "[ラウル]";
		mes "お前の得点は" + @wizard_t + "点だ。";
		if (@wizard_t < 100) goto L_Got80;
			mes "そんなに賢いのに何故試験に落ちた？";
			next;
			goto L_Retry3;
	L_Got80:
		if (@wizard_t < 80) goto L_Failed2;
			mes "ククッ、だいたい合ってるな。";
			mes "最終試験の再挑戦を許可しよう。";
			goto L_Retry3;
			next;
	L_Failed2:
		mes "不合格だ！もっと勉強して来い！";
		next;
		mes "[ラウル]";
		mes "お前はウィザードには向かないな。";
		mes "不合格になる理由を考えたか？";
		close;
		end;
	L_Retry3:
		menu "始めてください！",-, "もう一度試験の説明をして下さい.",L_Explain3R;
			mes "[ラウル]";
			mes "今度は死んでも助けてやらんからな。";
			mes "また不合格になっても私に泣きついて";
			mes "くるんじゃないぞ。ククッ";
			next;
			percentheal 100,100;
			mes "[ラウル]";
			mes "最終試験場に送ろう。";
			mes "好きなように暴れて来い！";
			next;
			warp "job_wiz.gat",57,154;
			end;
	L_Explain3R:
		mes "[ラウル]";
		mes "ゴホッ、では説明しよう。";
		mes "いくら難しくても、言われた通りに";
		mes "すれば受かることができる。";
		next;
		mes "[ラウル]";
		mes "試験は３段階にわけられている。";
		mes "水の部屋、地の部屋、火の部屋という";
		mes "順に進んでいく。";
		next;
		mes "[ラウル]";
		mes "それぞれの部屋ではその部屋の属性の";
		mes "モンスターが登場する。";
		mes "属性に合った魔法を使えば、難なく";
		mes "倒すことができるだろう。";
		next;
		mes "[ラウル]";
		mes "制限時間以内に全てのモンスターを倒し";
		mes "門番モンスターを倒せば、次の部屋に";
		mes "行くことが出来る。";
		next;
		mes "[ラウル]";
		mes "出口を出れば試験は終了だ。";
		mes "成功したら魔法のマスターである";
		mes "ウィザードにしてやろう。";
		next;
		mes "[ラウル]";
		mes "恐ろしいという顔だな？";
		mes "まだ遅くは無い。";
		mes "今諦めれば故郷に返してやるぞ？";
		next;
		menu "試験を受けます。",-, "恐ろしいので帰ります。",L_Scared2;
		
			percentheal 100,100;
			mes "[ラウル]";
			mes "またお前を転送するはめにならんことを";
			mes "祈る。合格してこい。";
			next;
			warp "job_wiz.gat",57,154;
			end;
	L_Scared2:
		mes "[ラウル]";
		mes "賢い判断だ。";
		mes "お前にはそっちのほうがあっている。";
		mes "平和に静かに暮らすがよい！";
		next;
		warp "geffen.gat",120,110;
		end;

//---------------------------------------------------------------------合格
L_PART8:
	if (job_wizard_q != 7) goto L_QuitScript;
		mes "[ラウル]";
		mes "何のようだ？";
		mes "もし望むなら、また試験を";
		mes "受けさせてやるぞ。ククッ";
		next;
		mes "[ラウル]";
		mes "早く行ってウィザードになれ。";
		mes "だが気をつけろ！";
		mes "魔法は身を滅ぼすものだ。";
		close;

L_QuitScript:
	end;
}


//================== アリーナ ==================


//======== 戦闘進行要員
job_wiz.gat,50,165,4	script	戦闘進行要員::jobwiz_wroom	700,{
	mes "[戦闘進行要員]";
	mes "ウィザード最終試験場へようこそ！";
	mes "試験待機ルームに入ってください。";
	next;
	mes "[戦闘進行要員]";
	mes "他の方が試験中の場合は、しばらく";
	mes "お待ちください。";
	mes "進行状況がマップ全体に報告されるので";
	mes "終わり次第始めます。";
	next;
	mes "[戦闘進行要員]";
	mes "一人当たりだいたい5分から10分程度";
	mes "必要になります。";
	mes "試験場から出たい場合は再接続して";
	mes "下さい。";
	close;
	end;
OnInit:
	waitingroom "試験待機所",20,"jobwiz_wroom::OnStart",1;
	end;
OnStart:
	disablewaitingroomevent;
	warpwaitingpc "job_wiz.gat",114,169;
	set $@jobwiz_pid,$@warpwaitingpc[0];
	if( attachrid($@jobwiz_pid)==0 ) goto L_Error;
		set $@jobwiz_pname$,strcharinfo(0);
		donpcevent "jobwiz_water::OnStart";
		end;
L_Error:
	enablewaitingroomevent;
	end;
OnEnable:
	enablewaitingroomevent;
	end;