//Merchant Quest for Athena by RoVeRT
//Modify by Robert 蝴蝶君 2004-3-13 Mail:robert_st@21cn.com

alberta_in.gat,53,43,6	script	商人公會(huì)會(huì)員	86,{
	set @TEMP,0;
	mes "[會(huì)員 曼修]";
	if(Test_MER==2) goto JobMercQE2;
	if((Test_MER==10) || (Test_MER==9)) goto JobMerQE10o9;
	if(((Test_MER==8) || (Test_MER==7)) & (Test_MER != 0)) goto JobMerQE8o7aN0;
	if((Test_MER <= 6) & (Test_MER != 0)) goto JobMerQLE6aN0;
	mes "請(qǐng)問有什么事情嗎？";
	next;
	menu "轉(zhuǎn)職成為商人。",M0,"詢問有關(guān)商人的事項(xiàng)。",M1,"詢問有關(guān)轉(zhuǎn)職為商人的條件。",M2,"放棄。",MEnd;

	M0:
		if(Class==5) goto JobMer;
		if((Class !=5) & (Class !=0)) goto JNMaJNN;
		mes "[會(huì)員 曼修]";
		mes "你想成為商人嗎？...";
		next;
		if(JobLevel < 10) goto NotLvl;
		mes "[會(huì)員 曼修]";
		mes "很好，那么，請(qǐng)?jiān)谶@份申請(qǐng)書上簽名，并且備妥加入商人公會(huì)的入會(huì)費(fèi)用1000金幣。";
		mes "啊~你要是現(xiàn)在手頭上不方便的話，可以先繳交500金幣保證金，馀款部分等到轉(zhuǎn)職考試考完后再交也可以。";
		mes "怎么樣？你要現(xiàn)在加入嗎？";
		next;
		menu "加入。",M00,"不，我考慮看看┅",M0End;

		M00:
			set Test_MER,0;
			set Test_MER2,0;
			set Test_MER3,0;

			mes "[會(huì)員 曼修]";
			mes "名字叫... " + strcharinfo(0) + " ...";
			mes "這份申請(qǐng)書必須和會(huì)費(fèi)一起交出去，你想要怎么繳納會(huì)費(fèi)呢？";
			next;
			menu "1000金幣一次付清。",M000,"分期付款，先繳交500金幣。",M001,"放棄。",M00End;

			M000:
				mes "[會(huì)員 曼修]";
				if(Zeny >= 1000) goto Zeny1k;
				mes "看你的表情好像有點(diǎn)困難，你也可以采用分期付款，先繳交500金幣，你好好考慮一下吧！";
				close;

				Zeny1k:
					set Zeny,Zeny-1000;
					set Test_MER,4;
					mes "看一看，是1000金幣沒錯(cuò)。";
					goto M00Cont;
			M001:
				mes "[會(huì)員 曼修]";
				if(Zeny >= 500) goto Zeny05k;
				mes "...你不要擺出一副'我也不想一毛錢都沒有'的表情嘛，快點(diǎn)去籌錢吧！";
				close;

				Zeny05k:
					set Zeny,Zeny-500;
					set Test_MER,3;
					mes "看一看，是500金幣沒錯(cuò)。好吧！雖然分期付款并不是個(gè)好習(xí)慣...";
					goto M00Cont;
			M00End:
				mes "[會(huì)員 曼修]";
				mes "準(zhǔn)備好后，歡迎你隨時(shí)來找我！";
				close;
		M0End:
			mes "[會(huì)員 曼修]";
			mes "你現(xiàn)在沒有錢是嗎？等籌好錢再來吧！";
			close;
		M00Cont:
		next;
		mes "[會(huì)員 曼修]";
		mes "很好，你已經(jīng)填妥公會(huì)加入申請(qǐng)書，我會(huì)幫你送出去的，那么，現(xiàn)在就讓我來為你說明轉(zhuǎn)職考試的相關(guān)事項(xiàng)吧！對(duì)了，在那之前有一點(diǎn)我必須要提醒你。";
		mes "商人注重商譽(yù)，不要欺騙別人，知道嗎？";
		next;
		set @TEMP,rand(4);
		mes "[會(huì)員 曼修]";
		if(@TEMP == 1)
		goto R0;
		if(@TEMP == 2)
		goto R1;
		if(@TEMP == 3)
		goto R2;
		else(@TEMP == 4)
		goto R3;
		R0:
			mes "到倉庫去取物品，然后將它送到普隆德拉的舊劍士公會(huì)去，交給卡普拉公司普隆德拉支部總負(fù)責(zé)人就可以了。";
			set @TEMP,rand(2);
			goto R00;

			R00:
				if(@TEMP !=0) goto R01;
				mes "物品統(tǒng)一編號(hào)：2485741.";
				set Test_MER2,1;
				next;
				goto M00Cont1;
			R01:
				mes "物品統(tǒng)一編號(hào)：2328137.";
				set Test_MER2,2;
				next;
				goto M00Cont1;
		R1:
			mes "到倉庫去取物品，然后將它送到吉芬的魔法學(xué)校去，交給那里的服務(wù)員就可以了。";
			set @TEMP,rand(2);
			goto R10;

			R10:
				if(@TEMP !=0) goto R10;
				mes "物品統(tǒng)一編號(hào)：2989396.";
				set Test_MER2,3;
				next;
				goto M00Cont1;
			R11:
				mes "物品統(tǒng)一編號(hào)：2191737.";
				set Test_MER2,4;
				next;
				goto M00Cont1;
		R2:
			mes "到倉庫去取物品，然后將它送到夢(mèng)羅克的染料制造廠去，交給茲巴杜力師傅就可以了。";
			set @TEMP,rand(2);
			goto R20;

			R20:
				if(@TEMP !=0) goto R21;
				mes "物品統(tǒng)一編號(hào)：3012685.";
				set Test_MER2,5;
				next;
				goto M00Cont1;
			R21:
				mes "物品統(tǒng)一編號(hào)：3487372.";
				set Test_MER2,6;
				next;
				goto M00Cont1;
		R3:
			mes "到倉庫去取物品，然后將它送到依斯魯?shù)脥u去，交給卡普拉職員就可以了。";
			set @TEMP,rand(2);
			goto R30;

			R30:
				if(@TEMP !=0) goto R31;
				mes "物品統(tǒng)一編號(hào)：3318702.";
				set Test_MER2,7;
				next;
				goto M00R3;
			R31:
				mes "物品統(tǒng)一編號(hào)：3543625.";
				set Test_MER2,8;
				next;
				goto M00R3;

				M00R3:
					next;
					mes "[會(huì)員 曼修]";
					mes "另外... (這是我私人的請(qǐng)求，當(dāng)你將物品交給對(duì)方時(shí)，請(qǐng)把這封信也交給他。別忘記咯~麻煩你了~~)";
					getitem 1072,1;
					next;
					goto M00Cont1;
		M00Cont1:
			mes "[會(huì)員 曼修]";
			mes "記住這個(gè)編號(hào)，到倉庫去告訴倉庫管理員你的目的地和統(tǒng)一編號(hào)，他就會(huì)把東西拿出來給你，千萬要記得喔！";
			mes "倉庫是由我為中心，右手邊那間房間就是了。";
			next;
			mes "[會(huì)員 曼修]";
			mes "事情辦完后回到這里來，把收據(jù)交回拿物品的那個(gè)倉庫去，然后再來找我就可以了。";
			mes "那么，路上小心！";
			close;

	M1:
		mes "[會(huì)員 曼修]";
		mes "商人？簡(jiǎn)單的說就是藉由賣東西來賺錢的人。";
		mes "雖然既不太會(huì)打架，也沒有特別的攻擊或回復(fù)技能，但可以用低廉的價(jià)格買進(jìn)并以高價(jià)賣出所擁有的商品。";
		next;
		mes "[會(huì)員 曼修]";
		mes "雖然商人有一招金錢攻擊的技能，但是很浪費(fèi)，所以請(qǐng)你考慮清楚再使用。除了劍、權(quán)杖或是雙手劍等以外的武器才能使用，當(dāng)然啦！買賣這些東西是沒有問題的。";
		mes "嗯，簡(jiǎn)單來說，商人呢，就是個(gè)可以賺很多錢的職業(yè)，知道了嗎？";
		close;
	M2:
		mes "[會(huì)員 曼修]";
		mes "具備三個(gè)條件才可以成為商人。";
		next;
		mes "[會(huì)員 曼修]";
		mes "第一，雖然說商人就是藉由買賣物品賺錢的人，但是基本技能等級(jí)最少還是要達(dá)到9級(jí)以上才可以。";
		next;
		mes "[會(huì)員 曼修]";
		mes "第二，加入商人公會(huì)的入會(huì)費(fèi)要1000金幣，真想成為商人的話，這點(diǎn)小錢應(yīng)該難不倒你吧！嗯~";
		next;
		mes "[會(huì)員 曼修]";
		mes "第三，你還必須通過基本體力與方向感的轉(zhuǎn)職測(cè)驗(yàn)，我會(huì)要你到某個(gè)指定的村落去送東西給某個(gè)特定的人，到時(shí)候再看你的正確性來決定是否讓你轉(zhuǎn)職。";
		close;
	MEnd:
		close;

		JobMer:
			mes "[會(huì)員 曼修]";
			mes ".....? 你說什么啊？你已經(jīng)是商人啦！你該不會(huì)是在跟我開玩笑吧？！";
			close;
		JNMaJNN:
			mes "[會(huì)員 曼修]";
			mes "我們商人公會(huì)最討厭的就是那種腳踏兩條船做兼職工作的人了。";
			mes "我指的就是那種白天身分是商人，晚上則變成盜賊做出偷竊的行為之類的。我最痛恨這樣的人了~";
			next;
			mes "[會(huì)員 曼修]";
			mes "嗯，雖然我話多了點(diǎn)，但只是想讓你知道，我們不需要已經(jīng)有別的職業(yè)的人。";
			close;
		NotLvl:
			mes "[會(huì)員 曼修]";
			mes "但是，要成為商人的話，基本技能等級(jí)最少也要達(dá)到9級(jí)以上才行。";
			mes "雖然商人這個(gè)職業(yè)只跟錢有接觸，但是最少還是得要有基本的技能不是嗎？";
			close;

	JobMercQE2:
		set Test_MER,0;
		set Test_MER2,0;
		set Test_MER3,0;

		mes "名字是"+ strcharinfo(0) +"....";
		mes "你的轉(zhuǎn)職考試不合格，你已經(jīng)知道吧？你的紀(jì)錄會(huì)被消失。你愿意申請(qǐng)就再問問我吧。";
		close;

	JobMerQE10o9:
		if(Sex == 0) goto jobmercqE10a9L;
		mes "啊！ " + strcharinfo(0) + " 先生。";
		goto JobMerQE10a9Cont;

		jobmercqE10a9L:
			mes "啊！ " + strcharinfo(0) + " 小姐。";
			goto JobMerQE10a9Cont;

		JobMerQE10a9Cont:
		mes "有個(gè)好消息告訴你。";
		if(Test_MER==10) goto JobMerQE10;
		if(Test_MER==9) goto JobMerQE9;

		JobMerQE10:
			mes "你的轉(zhuǎn)職考試已經(jīng)合格了，商人公會(huì)總會(huì)已經(jīng)承認(rèn)你的商人資格，并且讓你正式加入商人公會(huì)。";
			goto JobMerQua;

		JobMerQE9:
			mes "你的轉(zhuǎn)職考試已經(jīng)合格了，商人公會(huì)總會(huì)已經(jīng)承認(rèn)你的商人資格，并且讓你正式加入商人公會(huì)。";
			mes "那么就只剩下有關(guān)會(huì)費(fèi)馀款的部分了，你應(yīng)該已經(jīng)準(zhǔn)備好了吧？";
			next;
			menu "付馀款500金幣。",M0JobMerQE9,"放棄。",EndJobMerQE9;

			M0JobMerQE9:
				mes "[會(huì)員 曼修]";
				if(Zeny < 500) goto M0jobmercE9NZ;
				set Zeny,Zeny-500;
				mes "嗯，500金幣剛好！";
				goto JobMerQua;

				M0JobMerQE9NZ:
					mes "都已經(jīng)到了這個(gè)地步了，居然發(fā)生這種沒錢付的問題，想當(dāng)商人的人怎么可以這么不講信用呢！你快點(diǎn)去想想辦法吧！";
					goto EndJobMerQE9;

			EndJobMerQE9:
				mes "[會(huì)員 曼修]";
				mes "怎么了？有什么問題嗎？";
				close;

		JobMerQua:
			mes "按下一個(gè)鈕看看吧！";
			next;
			mes "[會(huì)員 曼修]";
			mes "恭喜你成為商人！";
			releaseall;
			JobChange 5;
			mes "再次真心的恭喜你成為我們商人公會(huì)的一員，希望你往后仍持續(xù)參與我們的活動(dòng)！";
			next;
			if(Test_MER2==7 || Test_MER2==8 && Test_MER3==9) 
					goto JobMerQ2E7o8;
			if(Test_MER2==7 || Test_MER2==8 && Test_MER3==8) 
			mes "[會(huì)員 曼修]";
			mes "(什么，你把信給忘了。好吧，那也沒辦法，辛苦你了。)";
			goto JobMerQua1;

		JobMerQ2E7o8:
			mes "[會(huì)員 曼修]";
			mes "(雖然沒多少錢，但這是我的心意，算是謝謝你送信來給我，下次還要麻煩你了~)";
			set Zeny,Zeny+100;
			goto JobMerQua1;

			JobMerQua1:
				set Test_MER,0;
				set Test_MER2,0;
				set Test_MER3,0;

				next;
				mes "[會(huì)員 曼修]";
				mes "為了要達(dá)成占有全世界通貨量20%的遠(yuǎn)大目標(biāo)，我們需要像你這樣熱血的青年！";
				mes "話雖如此，重點(diǎn)還是想要多賺點(diǎn)錢啦！你也是知道的嘛！是不是~";
				close;
	JobMerQE8o7aN0:
		mes "啊，"+ strcharinfo(0) +"。那么快就回來了嗎？看起來好像你還沒有完成我交給你的任務(wù)吧？趕緊出發(fā)吧！";
		close;
	JobMerQLE6aN0:
		mes "哦？你忘記了你的路線和物品編號(hào)嗎？那好吧，我再告訴你一次。";
		if((Test_MER2==1) | (Test_MER2==2)) goto JobMerQ2E1oE2;
		if((Test_MER2==3) | (Test_MER2==4)) goto JobMerQ2E3oE4;
		if((Test_MER2==5) | (Test_MER2==6)) goto JobMerQ2E5oE6;
		if((Test_MER2==7) | (Test_MER2==8)) goto JobMerQ2E7oE8;

		JobMerQ2E1oE2:
			mes "到倉庫去取物品，然后將它送到普隆德拉的舊劍士公會(huì)去，交給卡普拉公司普隆德拉支部總負(fù)責(zé)人就可以了。";
			if(Test_MER2==2) goto JobMerQ2E2;
			mes "物品統(tǒng)一編號(hào)：2485741.";
			goto JobMerQ2Cont;

			JobMerQ2E2:
				mes "物品統(tǒng)一編號(hào)：2328137.";
				goto JobMerQ2Cont;

		JobMerQ2E3oE4:
			mes "到倉庫去取物品，然后將它送到吉芬的魔法學(xué)校去，交給那里的服務(wù)員就可以了。";
			if(Test_MER2==4) goto JobMerQ2E4;
			mes "物品統(tǒng)一編號(hào)：2989396";
			goto JobMerQ2Cont;

			JobMerQ2E4:
				mes "物品統(tǒng)一編號(hào)：2191737.";
				goto JobMerQ2Cont;

		JobMerQ2E5oE6:
			mes "到倉庫去取物品，然后將它送到夢(mèng)羅克的染料制造廠去，交給茲巴杜力師傅就可以了。";
			if(Test_MER2==6) goto JobMerQ2E6;
			mes "物品統(tǒng)一編號(hào)：3012685.";
			goto JobMerQ2Cont;

			JobMerQ2E6:
				mes "物品統(tǒng)一編號(hào)：3487372.";
				goto JobMerQ2Cont;

		JobMerQ2E7oE8:
			mes "到倉庫去取物品，然后將它送到依斯魯?shù)脥u去，交給卡普拉職員就可以了。";
			if(Test_MER2==8) goto JobMerQ2E8;
			mes "物品統(tǒng)一編號(hào)：3318702.";
			goto JobMerQ2Cont;

			JobMerQ2E8:
				mes "物品統(tǒng)一編號(hào)：3543625.";
				goto JobMerQ2Cont;

		JobMerQ2Cont:
			mes "倉庫是由我為中心，右手邊那間房間就是了。";
			if((Test_MER2==7) | (Test_MER2==8)) goto JobMerQ2ContE7o8;
			goto JobMerQ2Cont1;

			JobMerQ2ContE7o8:
				mes "另外... (這封信也拜托你了~~)";
				goto JobMerQ2Cont1;

		JobMerQ2Cont1:
			next;
			mes "[會(huì)員 曼修]";
			mes "記住這個(gè)編號(hào)，到倉庫去告訴倉庫管理員你的目的地和統(tǒng)一編號(hào)，他就會(huì)把東西拿出來給你，千萬要記得喔！";
			mes "事情辦完后回到這里來，把收據(jù)交回拿物品的那個(gè)倉庫去，然后再來找我就可以了。";
			mes "那么，路上小心。";
			close;
}

alberta_in.gat,28,29,2	script	商人工會(huì)會(huì)員	83,{
	set S_FLAG,0;

	mes "[會(huì)員 凱力]";
	mes "有什么事情嗎？";
	next;
	menu "為了轉(zhuǎn)職考試而來。",M0,"為了打工而來。",M1,"沒事。",MEnd;

	M0:
		mes "[會(huì)員 凱力]";
		if(Class==5) goto JobMer;
		if((Test_MER==10) | (Test_MER==9) | (Test_MER==2)) goto JobMerQE10oE9oE2;
		if((Test_MER==8) | (Test_MER==7)) goto JobMerQE8oE7;
		if(((Test_MER==6) | (Test_MER==5)) & ((countitem(1081)==0) | (countitem(1082)==0) | (countitem(1083)==0))) goto JobMerQE6oE5aBoxE0;
		if(((Test_MER==6) | (Test_MER==5)) & ((countitem(1081) !=0) | (countitem(1082) !=0) | (countitem(1083) !=0))) goto JobMerQE6oE5aBoxNE0;

		mes "啊，這樣啊？讓我看看，你的名字是"+ strcharinfo(0) +" ....";
		if(Test_MER==0) goto M0JobMerQE0;
		mes "噢，名單上有你的名字。那么請(qǐng)把東西給我吧！";
		mes "選擇正確的目的地。";
		goto M0Cont;

		M0JobMerQE0: