npc_job_wizard.txt

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

//Translated by yoshiki
//Athena Conversion by RoVeRT
//============== ウィザーズギルド：カトリーヌ?メディチ ===================
//================== 登録、試験１（アイテム収集）など =====================
gef_tower.gat,111,37,4	script	魔術師ギルド関係者	70,{

// ---------------------------------------------------------------JOBの確認
   	if (Class == 2) goto L_PART2;
		if (Class == 9) goto L_IsWizard;
		if (Class == 0) goto L_IsNovice;
		goto L_IsOther;
		L_IsWizard:
			if (Sex != 1) goto L_IsFemale;
				mes "[カトリーヌ]";
				mes "同じウィザードの君は何か御用かしら？";
				mes "用事がないなら帰ってね。";
				next;
				mes "[カトリーヌ]";
				mes "もちろんデートのお誘いなら別だけどね";
				mes "フフッ";
				close;
				end;
			L_IsFemale:
				mes "[カトリーヌ]";
				mes "ウィザードが私たちに何か御用かしら？";
				mes "用事がないなら帰ってね。";
				next;
				mes "[カトリーヌ]";
				mes "ボーイフレンドが出来たら連れてきてね";
				mes "フフッ";
				close;
				end;
		L_IsNovice:
			mes "[ギルド職員]";
			mes "あらあら、小さなノービスさんね！";
			mes "可愛い～！　でも、ここは";
			mes "ウィザードの転職所なのよ～！";
			next;
			mes "[ギルド職員]";
			mes "もし魔法に興味があったら";
			mes "^0000FFマジシャンギルド^000000に行ってね。";
			goto L_OtherJobBye;
		L_IsOther:
			mes "[ギルド職員]";
			mes "うん？わざわざこんなところまで";
			mes "何の御用かしら？";
			mes "用がなければ帰ってね。";
			mes "ここはウィザードの転職所なの。";
	L_OtherJobBye:
		next;
		mes "[ギルド職員]";
		mes "気をつけて降りてね！";
		close;
		end;
// --------------------------------------------------------------------登録
L_PART2:

	if (job_wizard_q != 0) goto L_PART3;
		mes "[ギルド職員]";
		mes "あら、わざわざこんなところまで";
		mes "何の御用かしら？";
		mes "ウィザードになりにきたのよね？";
		next;
		menu "もちろん！",L_BeWiz,"なんでもないです",-;
	
			mes "[ギルド職員]";
			mes "え、なんでもないの？";
			close;
			end;
		
	L_BeWiz:
		mes "[ギルド職員]";
		mes "まあそうよね。";
		mes "理由がないのに来るわけないか。";
		mes "私がガイドするからね！";
		next;
		mes "[ギルド職員]";
		mes "私の名前はカトリーヌ?メディチよ。";
		mes "私も初心者ウィザードなの。";
		mes "気軽にカトリーヌって読んでね。";
		next;
		mes "[カトリーヌ]";
		mes "ウィザードの希望者は多いんだけど、";
		mes "試験に落ちる人も多いの。";
		next;
		mes "[カトリーヌ]";
		mes "転職にはジョブレベルが40以上必要よ。";
		mes "それ未満だと、まだ十分な魔力が";
		mes "身についていないの。";
		next;
		mes "[カトリーヌ]";
		mes "じゃあ、試験について教えるよ。";
		mes "申し込む？";
		next;
		menu "はい,申し込みます",L_SignUp,"もうちょっと考えます",-;
		
			mes "[カトリーヌ]";
			mes "OK、じゃあ、ゆっくり考えて。";
			mes "いつでも受け付けてるからね。";
			close;
			end;
		
	L_SignUp:
		if (JobLevel >= 40) goto L_SkPointChk;
			mes "[カトリーヌ]";
			mes "あら、言ったでしょう、";
			mes "ジョブレベルが40以上は必要だって。";
			mes "忘れてたのかな？";
			next;
			mes "[カトリーヌ]";
			mes "急がなくていいから、";
			mes "もっと勉強してきてね。";
			mes "ジョブレベルが40になったら";
			mes "受けさせてあげるからね。";
			close;
			end;
	L_SkPointChk:
		if (SkillPoint == 0) goto L_StartTest;
			mes "[カトリーヌ]";
			mes "転職条件はいいんだけど、";
			mes "まだスキルポイントが残ってるみたいよ";
			mes "全て使ってからまた申し込んでね。";
			close;
			end;
	L_StartTest:
		mes "[カトリーヌ]";
		mes "OK、申込書は確かに受け取ったよ。";
		mes "あなたの名前は " +strcharinfo(0) + "で合ってるよね？";
		next;
		mes "[カトリーヌ]";
		mes "ウィザード転職試験は3段階よ。";
		mes "１つめは魔法アイテム収集。";
		mes "２つめは筆記試験。";
		mes "３つめは実技試験よ。";
		next;
		mes "[カトリーヌ]";
		mes "ジョブレベル50の人は最初の試験を";
		mes "免除されるわ。";
		mes "もう十分に努力してるからね。";
		next;
		
		if (JobLevel < 50) goto L_Under50;
			mes "[カトリーヌ]";
			mes "わぁ、あなたジョブレベル50!?";
			mes "努力したのね、感動したわ。";
			next;
			mes "[カトリーヌ]";
			mes "OK、ジョブレベル50と記録しておくわ。";
			mes "最初の試験は免除されるけど、";
			mes "まだ２つ残ってるからね。";
			next;
			mes "[カトリーヌ]";
			mes "じゃあ、隅にいるおじさんに話し掛けて";
			mes "試験を受けてね。";
			mes "かなり難しいから十分に注意してね。";
			set job_wizard_q,3;
			close;
			end;
					
	L_Under50:
		mes "[カトリーヌ]";
		mes "じゃあ、申し込みは受け付けたから";
		mes "最初の試験について教えるわよ。";
		mes "よく覚えてね。";
		next;
		mes "[カトリーヌ]";
		mes "最初のテストは魔法アイテム収集よ。";
		mes "メモをとるとかして覚えて！";
		next;

		set @wizard_m1,rand(2);
		mes "[カトリーヌ]";
		mes "あなたが集めてくるアイテムは…";
		if (@wizard_m1 == 1) goto L_OtherItems;
			set job_wizard_q,1;
			mes "レッドジェムストーン、10個";
			mes "ブルージェムストーン、10個";
			mes "イエロージェムストーン、10個";
			goto L_AfterItems;
		L_OtherItems:
			set job_wizard_q,2;
			mes "クリスタルブルー、5個";
			mes "イエローライブ、5個";
			mes "レッドブラッド、5個";
			mes "ウィンドオブヴェルデュール、5個";
	L_AfterItems:
		mes "そんなに難しくないわよね？";
		next;
		mes "[カトリーヌ]";
		mes "じゃあ、いってきて！";
		mes "ここで待ってるから。";
		close;
		end;
//----------------------------------------------------------試験１(ジェム)
L_PART3:
	if (job_wizard_q != 1) goto L_PART4;
		mes "[カトリーヌ]";
		mes "アイテム全部もってきたの？";
		mes "じゃあ見せて…";
		next;
		if ((countitem("Red_Gemstone") < 10) || (countitem("Blue_Gemstone") < 10) || (countitem("Yellow_Gemstone") < 10)) goto L_ShortItem1;
			mes "[カトリーヌ]";
			mes "バッチリね！よく手に入れたわ！";
			mes "これらはギルドで有効に使うからね。";
			next;
			delitem "Red_Gemstone",10;
			delitem "Blue_Gemstone",10;
			delitem "Yellow_Gemstone",10;
			set job_wizard_q,3;
			mes "[カトリーヌ]";
			mes "おめでとう、最初の試験は合格よ。";
			mes "でも気を緩めるのは早いわよ！";
			mes "まだ２つ残ってるんだからね！";
			next;
			mes "じゃあ、隅にいるおじさんに話し掛けて";
			mes "試験を受けてね。";
			mes "かなり難しいから十分に注意してね。";
			close;
			end;
	L_ShortItem1:
		mes "[カトリーヌ]";
		mes "まだ揃ってないみたいね。";
		next;
		mes "[カトリーヌ]";
		mes "上がってくるのは大変だったと思うけど";
		mes "残りのアイテムを集めてきてね！";
		next;
		mes "[カトリーヌ]";
		mes "レッドジェムストーン、10個";
		mes "ブルージェムストーン、10個";
		mes "イエロージェムストーン、10個";
		mes "ちゃんと覚えて全部持ってきてね！";
		close;
		end;
//--------------------------------------------------------試験１(属性原石)
L_PART4:
	if (job_wizard_q != 2) goto L_PART5;
		mes "[カトリーヌ]";
		mes "アイテム全部もってきたの？";
		mes "じゃあ見せて…";
		next;
		if ((countitem("Crystal_Blue") < 5) || (countitem("Yellow_Live") < 5) || (countitem("Bloody_Red") < 5) && (countitem("Wind_Of_verdure") < 5)) goto L_ShortItem2;
			mes "[カトリーヌ]";
			mes "バッチリね！よく手に入れたわ！";
			mes "これらはギルドで有効に使うからね。";
			next;
			delitem "Crystal_Blue",5;
			delitem "Yellow_Live",5;
			delitem "Bloody_Red",5;
			delitem "Wind_Of_verdure",5;
			set job_wizard_q,3;
			mes "[カトリーヌ]";
			mes "おめでとう、最初の試験は合格よ。";
			mes "でも気を緩めるのは早いわよ！";
			mes "まだ２つ残ってるんだからね！";
			next;
			mes "じゃあ、隅にいるおじさんに話し掛けて";
			mes "試験を受けてね。";
			mes "かなり難しいから十分に注意してね。";
			close;
			end;
	L_ShortItem2:
		mes "[カトリーヌ]";
		mes "まだ揃ってないみたいね。";
		next;
		mes "[カトリーヌ]";
		mes "上がってくるのは大変だったと思うけど";
		mes "残りのアイテムを集めてきてね！";
		next;
		mes "[カトリーヌ]";
		mes "クリスタルブルー、5個";
		mes "イエローライブ、5個";
		mes "レッドブラッド、5個";
		mes "ウィンドオブヴェルデュール、5個";
		mes "ちゃんと覚えて全部持ってきてね！";
		close;
		end;

//--------------------------------------------------------------試験２の前
L_PART5:
	if (job_wizard_q != 3) goto L_PART6;
		mes "[カトリーヌ]";
		mes "あら？おじさんには会った？";
		mes "アイテムを取ってきただけじゃあ";
		mes "ウィザードにはなれないよ。";
		next;
		mes "[カトリーヌ]";
		mes "まだ２つの試験が残ってるわよ。";
		mes "待ってるから早く受けてきてね。";
		close;
		end;

//--------------------------------------------------------------試験２失敗
L_PART6:
	if (job_wizard_q != 4) goto L_PART7;
		mes "[カトリーヌ]";
		mes "ええ！？試験に落ちちゃったの！？";
		mes "ウィザードになりたいのなら、";
		mes "あのくらいは通らないとだめよ。";
		next;
		mes "[カトリーヌ]";
		mes "うーん、先輩の私がヒントを";
		mes "あげようか？　のどが渇いたから、";
		mes "代わりにリンゴジュースを頂戴。";
		next;
		menu "ヒントを下さい",L_YesHint, "一人で解いて見せます！",-;

			mes "[カトリーヌ]";
			mes "その意気よ！　ウィザードなら";
			mes "やっぱり一人で解かなくちゃね！";
			goto L_ContHint;

		L_YesHint:
			if (countitem("Apple_Juice") < 1) goto L_HaveJuice;
				mes "[カトリーヌ]";
				mes "ヒントが欲しいなら、リンゴジュースを";
				mes "持ってきてね！";
				mes "無いなら一人で考えて。";
				goto L_ContHint;
		L_HaveJuice:
			delitem "Apple_Juice",1;
			mes "カトリーヌ";
			mes "ああおいしい、リンゴジュースは";
			mes "最高ね。ズズーッ";
			next;
			mes "[カトリーヌ]";
			mes "じゃあヒントを教えるよ。";
			next;
			mes "[カトリーヌ]";
			mes "おじさんの出す問題は大きく分けて";
			mes "３種類。魔法に関する問題、";
			mes "モンスターに関する問題、そして";
			mes "マジシャンに関する問題よ。";
			next;
			mes "[カトリーヌ]";
			mes "どの問題が出題されるかはおじさんの";
			mes "気分次第。おじさんもちゃんと髭を";
			mes "剃って髪を切ればすれば素敵なのに。";
			mes "絶対にしないでしょうけど…。";
			next;
			mes "[カトリーヌ]";
			mes "[Cartlin]";
			mes "えーと、魔法に関する問題は、";
			mes "君が覚えた魔法にかかわることよ。";
			next;
			mes "[カトリーヌ]";
			mes "たぶん、君が覚えてない魔法に関する";
			mes "問題も出題されるわ。それらは";
			mes "他のマジシャンに訊いてみて。";
			next;
			mes "[カトリーヌ]";
			mes "呪文を唱えると調べられるらしいわ。";
			mes "その呪文は… www.ragnarokonline.jp";
			mes "ちょっと変わってるわよね。";
			mes "どうするのか私にはよくわからないわ。";
			mes "もっといい呪文もたくさんあるそうよ。";
			next;
			mes "[カトリーヌ]";
			mes "モンスターに関する問題は、";
			mes "直接戦ってみて経験で知るのが";
			mes "一番いいけど、";
			next;
			mes "[カトリーヌ]";
			mes "プロンテラに大きな図書館がある";
			mes "でしょ？";
			mes "そこにはたくさんの情報があるわ。";
			mes "そこで勉強するのもいい方法ね。";
			next;
			mes "[カトリーヌ]";
			mes "で、最後にマジシャンに関する問題。";
			mes "これは誰も教えてくれないでしょうね…";
			mes "だって君がマジシャンだからね。";
			next;
			mes "[カトリーヌ]";
			mes "人は自分自身もよくわからないんだから";
			mes "他人が君のことを知るのは難しい";
			mes "でしょ。";
	L_ContHint:
		next;
		mes "[カトリーヌ]";
		mes "それじゃあ頑張って！";
		mes "試験官のおじさんが待ってるよ！";
		close;
		end;

//--------------------------------------------------------------試験２成功
L_PART7:
	if (job_wizard_q != 5) goto L_PART8;
		mes "[カトリーヌ]";
		mes "フフ、ここで聞いてたよ。";
		mes "よく頑張ったね。";
		next;
		mes "[カトリーヌ]";
		mes "まだ最後の試験が残ってるわ！";
		mes "それを終わらせれば、";
		mes "ウィザードになれるわよ！";