// ---------------------------------
// - ˾ תְű - 
//===================================
// 汾2.4a
//===================================

prt_church,16,41,4	script	ߵȼ ˾#prst	60,{
	if (Upper == 1 && .@AllowHPAssist != 1) {
		mes "[˹ ]";
		mes "µ֮ϵ˰";
		mes "¡ûעҸ";
		next;
		mes "[˹ ]";
		mes "ҪϵĿ";
		mes "Ѿӵսʤ";
		mes "Ը....";
		close;
	}
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			mes "[˹ ]";
			mes "Ը㣬˾ֽ";
			mes "ּ⣬ٴ...";
			next;
			mes "[˹ ]";
			mes "֪ǷһŮ֮·";
			mes "Ϊʲô?";
			next;
			switch(select("·˳߸к:һλ:ĺ࣬ϣܰ")) {
			case 1:
				mes "[˹ ]";
				mes "Ҳĺܺ";
				mes "Ҹĵʺ";
				next;
				mes "[˹ ]";
				mes "Ǽ˾ּ";
				mes "ϣǲҪʱҪΧ...";
				close;
			case 2:
				mes "[˹ ]";
				mes "....ܺõ뷨";
				mes "̵£ҲǼ˾ǵ鰡";
				next;
				mes "[˹ ]";
				mes "еĹ̶ܰ";
				mes "Ϊ£Ҫĥ";
				next;
				mes "[˹ ]";
				mes "ڶ̡ħС";
				mes "Խ뿼";
				mes "ΪҪһУ";
				mes "Ҫһ^3051FD^000000";
				next;
				mes "[˹ ]";
				mes "µħ?";
				next;
				if (select("ǵģһᾡ:һٹ") == 1) {
					if (countitem(2608) > 0) {
						mes "[˹ ]";
						mes "ôҾʹ㵽µг";
						mes "ʺð";
						next;
						mes "[˹ ]";
						mes "ϣúý̵öԷΪü˾";
						close2;
						warp "job_prist",26,178;
						end;
					}
					mes "[˹ ]";
					mes "...û^3051FD^000000";
					next;
					mes "[˹ ]";
					mes "ҪһȥæĻ";
					mes "׼^3051FD^000000ٹ";
					close;
				}
				mes "[˹ ]";
				mes "ǵģ׼";
				mes "ϣܹ׼^3051FD^000000ٻ";
				close;
			case 3:
				mes "[˹ ]";
				mes "Ͱ....Ů";
				mes "ڴָ֮ʹ˵ľ";
				next;
				mes "[˹ ]";
				mes "...Զǣ...";
				mes "ǵĲκ澳ܹᶨҡ...";
				next;
				mes "[˹ ]";
				mes "Ůܿ...";
				mes "Ϣɣϣܹ˺۲...";
				percentheal 90,0;
				next;
				percentheal 0,90;
				mes "[˹ ]";
				mes "ӦǺö";
				mes "ٻȥһˣּ...";
				mes "Ը...";
				close;
			}
		}
		else if (BaseClass == Job_Novice) {
			mes "[˹ ]";
			mes "Ը㣬...";
			mes "¡ʥ";
			mes "ʲô?";
			next;
			switch(select("תְɷ:תְ^5533FF˾^000000:ֻһ")) {
			case 1:
				mes "[˹ ]";
				mes "...תְɷµ?";
				mes "תְҪķȥ...";
				break;
			case 2:
				mes "[˹ ]";
				mes "...Ҫ˾֮ǰҪ";
				mes "תְķȥʾͿ...";
				break;
			case 3:
				mes "[˹ ]";
				mes "ﵱԼļһúϢ֮뿪....";
				mes "ʥǱκһطȫĳ";
				break;
			}
			next;
			mes "[˹ ]";
			mes "Ը....";
			close;
		}
		else {
			mes "[˹ ]";
			mes "Ը㣬ֽ";
			mes "¡ʥ";
			mes "ʲô?";
			next;
			switch(select("ҹڼ˾:ֻ")) {
			case 1:
				mes "[˹ ]";
				mes "ν˾Ǵּ";
				mes "תְ֮Ŭкõĳɹ...";
				next;
				mes "[˹ ]";
				mes "ΪµJobLv40ϣ";
				mes "֮ͨͿתְ";
				mes "ԵõڶħתȸǿҲ...";
				next;
				mes "[˹ ]";
				mes "֮ڳСԹκεطΪҪĽɫ";
				mes "Ǽ˾ʹΪ˱˶Ŭ";
				next;
				mes "[˹ ]";
				mes "ļ˾Ͳǿ";
				mes "Ϊ˾˵Ըѡ...";
				next;
				mes "[˹ ]";
				mes "ܱŻõκرȥ";
				mes "ԵģܰҲҪòĸлԷ";
				next;
				mes "[˹ ]";
				mes "ﲻ֪˵겻ϸ";
				mes "ֱӼ˾֮ٺúõĸ...";
				next;
				mes "[˹ ]";
				mes "Ը...";
				next;
				break;
			case 2:
				mes "[˹ ]";
				mes "ﵱһϢ";
				mes "ʥñκεطȫ";
				next;
				mes "[˹ ]";
				mes "Ը....";
				next;
				break;
			}
			mes "[˹ ]";
			mes "Well...";
			mes "May God";
			mes "bless you.";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		mes "[˹ ]";
		mes "ʲô?";
		next;
		switch(select("תְɼ˾:ֻʺ")) {
		case 1:
			mes "[˹ ]";
			mes "...ϣΪ˾...";
			mes "Ҳףľ";
			next;
			mes "[˹ ]";
			mes "¡ħ̣";
			mes "ķ˹˹";
			mes "벻ҪŸɵ";
			next;
			mes "[˹ ]";
			mes "ҪתְΪ˾Ҫͨ";
			mes "֮ǰȰְҵȼ40ϲ";
			next;
			mes "[˹ ]";
			mes "Ϊ˷УȽתְ";
			mes "ھҪתְ?";
			next;
			if (select("ǵģҪʼ˾:ٿǿ") == 1) {
				if (JobLevel < 40) {
					mes "[˹ ]";
					mes "źڻܳΪһ˾...";
					mes "ȵأ";
					next;
					mes "[˹ ]";
					mes "˾Ǽ˾Ƿ£иԵʹ...";
					mes "ϣʱʱٹһ";
					close;
				}
				if (SkillPoint) {
					mes "[˹ ]";
					mes "ȵ...㻹ûѧļҪѧ";
					mes "ȰҪļѧ֮ٹ...";
					close;
				}
				set PRIEST_Q,1;
				mes "[˹ ]";
				mes "ܺãôҾ͸ڼ˾";
				mes "Ȼ̺ʹ࣬ϣܹ˳˷" +strcharinfo(0)+ "";
				next;
				mes "[˹ ]";
				mes "Ϊ˳Ϊ˾ҪȥѲ";
				mes "ȥеλ񸸣֮ٻͺ";
				next;
				mes "[˹ ]";
				mes "ڶħ";
				mes "νħҪ߶ħսʤջ";
				next;
				mes "[˹ ]";
				mes "Ƿ׵Լ";
				mes "ǿΪ˾ˣҴּԸ";
				next;
				mes "[˹ ]";
				mes "ְҵȼ50ϵķ£ͿʡѲĿ";
				mes "ʾѾ൱Ŭ...";
				next;
				if (JobLevel == 50) {
					mes "[˹ ]";
					mes "ְҵȼѾ50˰";
					mes "";
					mes "ҿ൱ʵķ";
					next;
					mes "[˹ ]";
					mes "ôϽħа";
					mes "ħǲܸ˾ͬе";
					next;
					mes "[˹ ]";
					mes "ɵĿ˷";
					mes "˾ֵһеĻĸ";
					next;
					mes "[˹ ]";
					mes "ôھͿʼħ?";
					set PRIEST_Q,5;
					next;
					if (select("뿪ʼ:׼һٹ") == 1) {
						mes "[˹ ]";
						mes "õģ㵽ħеĵطȥ";
						next;
						mes "[˹ ]";
						mes "֮ȥѯʹħе";
						next;
						warp "job_prist",24,180;
						end;
					}
					mes "[˹ ]";
					mes "ðɣú׼֮ٹ";
					mes "ϣתְ˳";
					close;
				}
				mes "[˹ ]";
				mes "ôҾ͸Ѳ˳";
				mes "Ҫȥ¡³ٻ";
				next;
				mes "[˹ ]";
				mes "ǼŮٻ";
				mes "ס¡Ϸ޿˴";
				next;
				mes "[˹ ]";
				mes "ȥ˹";
				mes "˵˹¡";
				next;
				mes "[˹ ]";
				mes "ôһ·С";
				mes "ĻͣȥʫŮ";
				mes "Ѳ֮ٸһغϵ";
				next;
				mes "[˹ ]";
				mes "Ը...";
				close;
			}
			mes "[˹ ]";
			mes "úõϢ";
			mes "Ҳӭʥðݷ";
			mes "Ըϵ۱";
			close;
		case 2:
			mes "[˹ ]";
			mes "...ҹĺܺ";
			mes "ΪǧҪʹ";
			mes "ϣһָʾĵ·";
			next;
			mes "[˹ ]";
			mes "ϣԺٹݷãϣ´ܸҹֵõϢ";
			mes "Ը...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "[˹ ]";
		mes "?ô?";
		mes "ѵѲ?";
		next;
		if (select("˼ٸһ˳:!ô!") == 1) {
			mes "[˹ ]";
			mes "ѽ...һοʼоĻ鷳";
			mes "ٸһ˳ϣܼѲ˳";
			next;
			mes "[˹ ]";
			mes "Ȼ³";
			mes "¡";
			next;
			mes "[˹ ]";
			mes "һҪŮ";
			mes "¡Ϸ޿˴";
			next;
			mes "[˹ ]";
			mes "˹";
			mes "¡";
			next;
			mes "[˹ ]";
			mes "ô·С";
			mes "Ҫ֪ϸݵĻʫŮ";
			mes "Ѳ֮ٸһغϵ";
			next;
			mes "[˹ ]";
			mes "Ը...";
			close;
		}
		mes "[˹ ]";
		mes "";
		mes "ʵĻڵʫŮ";
		next;
		mes "[˹ ]";
		mes "ǾϿ·С";
		mes "Ը";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "[˹ ]";
		mes "Ѿ³˰";
		mes "·;ôңԶ";
		next;
		mes "[˹ ]";
		mes "ȻҪȥŮ";
		mes "¡Ϸ޿˴";
		mes "ôͰ";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "[˹ ]";
		mes "ѾŮ";
		mes "ɳĮŬе...";
		next;
		mes "[˹ ]";
		mes "Ҫȥ˹";
		mes "λΣյҪȥ";
		close;
	}
	else if (PRIEST_Q == 4) {
		set PRIEST_Q,5;
		mes "[˹ ]";
		mes "Ѿ˹";
		mes "ϲ˳ɵһ׶εѲ";
		next;
		mes "[˹ ]";
		mes "ڿʼڶ׶εħ";
		mes "ҸղҲ˵ħвܸļ˾һ";
		next;
		mes "[˹ ]";
		mes "Ȼܹȫ̶ܰм˾ֵðٺò";
		mes "ôھҪʼħ?";
		next;
		if (select("뿪ʼ:׼һٹ") == 1) {
			set PRIEST_Q,5;
			mes "[˹ ]";
			mes "õģ㵽ħеĵطȥ";
			next;
			mes "[˹ ]";
			mes "֮ȥѯʹħе";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[˹ ]";
		mes "ðɣú׼֮ٹ";
		mes "ϣתְ˳";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "[˹ ]";
		mes "Ѿ׼ýħ˰";
		mes "ôǾͿʼ?";
		next;
		if (select("Ҫʼ:׼Ժ") == 1) {
			mes "[˹ ]";
			mes "õģ㵽ħеĵطȥ";
			next;
			mes "[˹ ]";
			mes "֮ȥѯʹħе";
			close2;
			warp "job_prist",24,180;
			end;
		}
		mes "[˹ ]";
		mes "ðɣú׼֮ٹ";
		mes "ϣתְ˳";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "[˹ ]";
		mes "㿴൱ƣ...";
		mes "㵱ϼ˾֮пܻƣ";
		mes "ͲҪ׷";
		mes "ҪҪսһ?";
		next;
		if (select("!սһ:׼һٹ") == 1) {
			mes "[˹ ]";
			mes "õ㵽ħеĵطȥ";
			next;
			mes "[˹ ]";
			mes "ҵ֮æ";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[˹ ]";
		mes "ðɣú׼֮ٹ";
		mes "ϣתְ˳";
		close;
	}
	else if (PRIEST_Q == 7) {
		mes "[˹ ]";
		mes "ܸ˳ħУ";
		mes "սʤջԼѾԳƵһ˾";
		next;
		mes "[˹ ]";
		mes "ȥʫŮԼ";
		mes "ֻҪĵԼƽʱ뷨شͿ";
		next;
		mes "[˹ ]";
		mes "ôڴתְ";
		mes "·С...";
		close;
	}
	else if (PRIEST_Q == 8) {
		mes "[˹ ]";
		mes "Ϊʲô...Ϊʲô?";
		mes "ûԼ?";
		mes "Ϊ˾㣬̬û׼õĻ׻ܵħջ...";
		next;
		mes "[˹ ]";
		mes "ٻȥʫŮ";
		mes "ȻȷԼ";
		mes "ҪȻĻΪĻ̬׼ãһᱨȥһѲ";
		next;
		mes "[˹ ]";
		mes "·С";
		mes "ּ⣬ϸ...";
		close;
	}
	else if (PRIEST_Q == 9) {
		if (SkillPoint) {
			mes "[˹ ]";
			mes "һ...Ϊ㻹ûѧļҪѧϰ";
			mes "رļѧ...";
			close;
		}
		mes "[˹ ]";
		mes "ϲ㣬Ѿȫ";
		mes "ھתְΪ˾";
		next;
		mes "[˹ ]";
		mes "...Ըȫܴǰλͽ";
		mes "͸λͽǿ־";
		mes "չԼ޵Ĺٰ...";
		next;
		mes "[˹ ]";
		mes "ϣܹΪֵõ쵼";
		mes "Ըܰ漣...";
		next;
		set .@joblvl,JobLevel;
		callfunc "Job_Change",Job_Priest;
		callfunc "F_ClearJobVar";
		mes "[˹ ]";
		mes "ѾΪһλ˾";
		mes "ϲ";
		mes "ԸӽԺȫµ̬";
		next;
		mes "[˹ ]";
		mes "Ȼ...Ϊ˼תְɹһ";
		if (.@joblvl < 50) {
			getitem 1550,1; //Book
			mes "ڴּ㣬Ȿṩر֪ʶ";
		}
		else {
			getitem 1551,1; //Bible
			mes "ڴּ㣬Ȿʥṩر֪ʶ";
		}
		next;
		mes "[˹ ]";
		mes "ôǾʹ˽תְʽ";
		mes "...";
		mes "ϿȥҪߵ·...";
		close;
	}
}

prt_church,27,24,1	script	׵ Ů	79,{
	mes "[ʫ Ů]";
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			if(Sex == 1) mes "Ը㣬˾";
			if(Sex == 0) mes "Ը㣬˾";
			mes "ϣҲʵһ";
		}
		else if (Class == Job_Novice) {
			mes "Ը㣬ֵܽ";
			mes "¡ʥûӭ";
			next;
			mes "[ʫ Ů]";
			mes "ûѡְҵ? ڴʥְпǹ?";
			mes "Ϊ°˻ţһ";
			next;
			mes "[ʫ Ů]";
			mes "Ҫתְɷ£ѯ^5533FF򷿼^000000";
			mes "ĻţҲûбĸ";
			next;
			mes "[ʫ Ů]";
			mes "ΪŬ֮󣬵ȵְҵȼ 40ʱ";
			mes "Ҳתְɼ˾";
			next;
			mes "[ʫ Ů]";
			mes "ĿǰǳѧߣĿپ";
		}
		else {
			mes "¡ãҪΪЩʲô?";
			next;
			if (select("ҹ^0000FF˾^000000:ֻ.") == 1) {
				mes "[ʫ Ů]";
				mes "ν^0000FF˾^000000Ǵּʹ.";
				mes "ȳѧҪתְ^0000FF^000000֮.ھɳΪ^0000FF˾^000000";
				next;
				mes "[ʫ Ů]"; 
				mes "ʥְϸֹЯ.";
				mes "ϾħĿĲΪɱ .";
				next;
				mes "[ʫ Ů]";
				mes "Ȼ,^0000FF˾^000000ֱѯò ,...";
				mes "ҪҪλ淿˹ ?";
				next;
				mes "[ʫ Ů]";
				mes "ܱҸϸش.";
				mes "㵽ķѯ˹ 񸸺.";
				next;
			}
			mes "[ʫ Ů]";
			mes "ô, Ը...";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		mes "Ը...";
		mes "ʲô?";
		next;
		switch(select("תְΪ˾:ûʲô")) {
		case 1:
			mes "[ʫ Ů]";
			mes "תְΪ˾?";
			mes "ܶҲתְΪ˾";
			next;
			mes "[ʫ Ů]";
			mes "ҵֽʵ 㿨";
			mes "ǸתְŮ";
			mes "ϣܰתְ";
			next;
			mes "[ʫ Ů]";
			mes "ΪⳤģԿܶתְΪ˾";
			mes "ڻΪ˾";
			next;
			mes "[ʫ Ů]";
			mes "ҪתְΪ˾뾭׶ε";
			mes "ʥѲħСԼʽ...ſԳΪ˾";
			next;
			mes "[ʫ Ů]";
			mes "Ҫתְȥ˹";
			mes "ڿԽתְ";
			next;
			mes "[ʫ Ů]";
			mes "֮¾Ұ";
			mes "һᾡܵ";
			close;
		case 2:
			mes "[ʫ Ů]";
			mes "Ϣ";
			mes "ʥöԵ˵һĵطϢ";
			next;
			mes "[ʫ Ů]";
			mes "´ʱϣֵܸõϢ";
			mes "Ը...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "[ʫ Ů]";
		mes "ѾʼѲʽ˰ɣȻ಻ϣܼ";
		mes "һҪľ³";
		next;
		mes "[ʫ Ů]";
		mes "λ¡ĵط";
		mes "һΣξͻῴ";
		next;
		mes "[ʫ Ů]";
		mes "Դڿ";
		mes "ȻҲһΣһ...߾Ϳ";
		next;
		mes "[ʫ Ů]";
		mes "סкܶ";
		mes "żҲֺɫɿ˵ĺħ";
		next;
		mes "[ʫ Ů]";
		mes "Ҫȥ³񸸺ٻŮȻȥ˹񸸾Ϳ";
		mes "ȻҲ;ȷһ";
		next;
		mes "[ʫ Ů]";
		mes "ô·С";
		mes "ʹͷҲҪ";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "Ѿ³";
		mes "θҪȥŮ";
		mes "Ůλ޿˵һ丽";
		next;
		mes "[ʫ Ů]";
		mes "˵޿˶һ";
		mes "Ӧ...ϸҾͻҵõ";
		next;
		mes "[ʫ Ů]";
		mes "ȻҲһȥУ";
		mes "Ŀǰˣ";
		mes "Ҳһּ֮";
		next;
		mes "[ʫ Ů]";
		mes "·С";
		mes "ȻЩ൫㲻ҪΪ۶˽?";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "˹ٻͿ";
		mes "¡˵ں";
		next;
		mes "[ʫ Ů]";
		mes "һΣξͺ";
		mes "ҽ߱ȽϿ죬Ƚһ";
		next;
		mes "[ʫ Ů]";
		mes "ȻѲʽתְлûн";
		mes "һ·Сڴ˳...";
		close;
	}
	else if (PRIEST_Q == 4) {
		mes "ӭ";
		mes "·Ϻ?";
		mes "ȥ֮һ׶ε";
		next;
		mes "[ʫ Ů]";
		mes "Ȼħк࣬һ˳";
		mes "ȻҲ㣬ұЭ²";
		next;
		mes "[ʫ Ů]";
		mes "Эоͺ";
		mes "ô·С!";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "㻹ûȥħ?";
		mes "Ҳܸй©еϸ...";
		next;
		mes "[ʫ Ů]";
		mes "ֻܽҪȫ׼κ鶼벻Ի";
		mes "ֻҪԼ";
		next;
		mes "[ʫ Ů]";
		mes "Ҫ֪ϸ飬ȥѯгı";
		mes "˹Ҳ൱еˣָ";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "к?";
		mes "㲻Ҫ׷";
		mes "ҪսʤκԻܵü˾";
		next;
		mes "[ʫ Ů]";
		mes "м˾ǰĻһͬ";
		mes "ǿ԰еħеĵһ׶";
		next;
		mes "[ʫ Ů]";
		mes "Ը...";
		mes "ħн֮ٹ";
		close;
	}
	else if (PRIEST_Q == 7) {
		mes "!";
		mes "Ѿ˳ˣѾתְ׶";
		next;
		mes "[ʫ Ů]";
		mes "ôΪʽתְΪļ˾ǿʼԼʽ";
		mes "ʵشҵ";
		next;
L_AskQuestions:
		mes "[ʫ Ů]";
		mes "ǿʼ";
		next;
		mes "[ʫ Ů]";
		mes "ӽԺԸ⽫һ?";
		next;
		if (select("ǵ:ǵ") == 2) {
			set PRIEST_Q,8;
			mes "[ʫ Ů]";
			mes "ô...ô˵...";
			mes "ƺȱΪ˾̬...";
			next;
			mes "[ʫ Ů]";
			mes "㾭˼֮ٹ";
			mes "Ŀǰܵջ";
			close;
		}
		mes "[ʫ Ů]";
		mes "ıԼ?";
		next;
		if (select(":") == 1) {
			set PRIEST_Q,8;
			mes "[ʫ Ů]";
			mes "ǲе";
			mes "˾ܲΪı";
			mes "ôᱧ뷨˾?";
			next;
			mes "[ʫ Ů]";
			mes "ٶ˼˾ӦеĴ̬ٹ";
			mes "뷨ֻܵ׵Ӱ";
			close;
		}
		mes "[ʫ Ů]";
		mes "սлΪ˱˶ʹԼ?";
		next;
		if (select(":") == 2) {
			mes "[ʫ Ů]";
			set PRIEST_Q,8;
			mes "ǲе";
			mes "Ǽ˾ӵеΪ˰˶ʹõ...";
			mes "ʲôǶҪİæ...";
			next;
			mes "[ʫ Ů]";
			mes "ȥ￴һ°...";
			mes "ͻ˽Щʲô...";
			close;
		}
		mes "[ʫ Ů]";
		mes "Ϊ˰ˣԼҲϧ?";
		next;
		if (select(":") == 2) {
			mes "[ʫ Ů]";
			mes "...";
			mes "ּⲻ";
			mes "СҶɴǼΰ";
			next;
			mes "[ʫ Ů]";
			mes "ȥٿνٹ";
			mes "Ǽ˵ѵ...";
			set PRIEST_Q,8;
			close;
		}
		mes "[ʫ Ů]";
		mes "ڴͱһһֱϴƵ?";
		next;
		if (select(":") == 1) {
			mes "[ʫ Ů]";
			mes "ǲе";
			mes "ֻǼ˾ҲӰ쵽";
			mes "Ҳ";
			next;
			mes "[ʫ Ů]";
			mes "㴫ּ⣬ҪŶ...";
			set PRIEST_Q,8;
			close;
		}
		mes "[ʫ Ů]";
		mes "һϹһ߰˵ս?";
		next;
		if (select(":") == 1) {
			mes "[ʫ Ů]";
			mes "ǺΣյ";
			mes "ǻӰ쵽˵";
			mes "ħǶħ...ľٶǲ̵";
			next;
			mes "[ʫ Ů]";
			mes "ϿǰˣʵǶµ";
			mes "һ뵽ôǸ÷";
			set PRIEST_Q,8;
			close;
		}
		mes "[ʫ Ů]";
		mes "᲻˳ּ棬˳ּ?";
		next;
		if (select(":") == 2) {
			mes "[ʫ Ů]";
			mes "ĻܳΪ˾";
			mes "Ƕݵ...ʹּҲҪ˳ּ";
			next;
			mes "[ʫ Ů]";
			mes "Ǽ˾и";
			mes "ٿһ˵ʲô";
			set PRIEST_Q,8;
			close;
		}
		mes "[ʫ Ů]";
		mes "Ǿͼ֤ĳŵ";
		mes "㷢˵Ļ";
		next;
		if (select("ҷ:Ҫ") == 1) {
			set PRIEST_Q,9;
			mes "[ʫ Ů]";
			mes "ôǾͽʽ";
			mes "㵽˹תְΪ˾";
			next;
			mes "[ʫ Ů]";
			mes "㲻۵κεطҲҪм...";
			mes "Ƕֵ...";
			mes "ϣᱣ...";
			close;
		}
		mes "[ʫ Ů]";
		mes "....";
		next;
		mes "[ʫ Ů]";
		mes "...׼";
		mes "㻹תְΪ˾";
		next;
		mes "[ʫ Ů]";
		mes "ô...ҪѲ...";
		mes "ҪĺҰ";
		next;
		mes "[ʫ Ů]";
		mes "ϣᱣ...";
		set PRIEST_Q,8;
		close;
	}
	else if (PRIEST_Q == 8) {
		mes "....";
		next;
		mes "[ʫ Ů]";
		mes "";
		mes "ϣʵ˵...";
		next;
		mes "[ʫ Ů]";
		mes "ϣܴڵ...";
		mes "ϣʵ˵һ";
		next;
		goto L_AskQuestions;
	}
	else if (PRIEST_Q == 9) {
		mes "ȫжѾ...";
		mes "ȥ˹תְΪ˾";
		next;
		mes "[ʫ Ů]";
		mes "ϣ";
		close;
	}
}

// 2nd Test
//==========================================================
job_prist,24,187,4	script		110,{
	mes "[]";
	if (BaseJob == Job_Priest) {
		mes "Ը";
		next;
		mes "[]";
		mes "˾...";
		mes "зҪ?";
		mes "ܺãĵػ";
		mes "ţһܹúõذ˵";
		next;
		mes "[]";
		mes "Ҫмһ飬";
		mes "²תְ";
		mes "мŶǸǰ!";
		next;
		mes "[]";
		mes "ô...ھҪȥ?";
		next;
		switch (select("ھͽȥ:ٵһ:Ҫȥ")) {
		case 1:
			mes "[]";
			mes "ܺ!";
			mes "һȥͿʼȥ";
			mes "ҲԻһµʱ...!";
			close2;
			warp "job_prist",24,44;
			end;
		case 2:
			mes "[]";
			mes "?㻹Ҫ׼Щʲô?";
			mes "ûϵʱ䵽ٽȥͺ";
			close;
		case 3:
			mes "[]";
			mes "?Ȼȥ";
			mes "ԺҪԵĻ";
			mes "ϣ!!";
			mes "·С!";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	if (PRIEST_Q == 5) {
		mes "ϣ㣬ӭ!";
		mes "Ҫȹϲ˳ͨ˵һε";
		next;
		mes "[]";
		mes "ҵֽ S.޶";
		mes "˹Ǹһ?";
		next;
		mes "[]";
		mes "ѾΪˣӦóƺΪ˹Ŷ...";
		mes "ɲǸһһӶֻǸ񸸵";
		mes "!";
		next;
		mes "[]";
		mes "˶ѾˣҾ͸˵һ¹ħк";
		mes "Ӧ˽ħа?";
		next;
		if(select("ǵģ˽:һ̫˽...")==1) {
			mes "[]";
			mes "㻹ͦ!";
			mes "㻹һ˵ȽϺ";
			mes "Ҳ˵˽ȫ˹!";
		}
		else {
			mes "[]";
			mes "?ôҪϸ˵";
			mes "ܻ֮ڲ֪Ҳħ";
		}
		next;
		mes "[]";
		mes "νħУħ";
		mes "ν֣ǲϵȵȶħĳƺ";
		next;
		mes "[]";
		mes "кܶħﶼΪּڵ";
		mes "Щħﾭ۸Щϰ";
		next;
		mes "[]";
		mes "Ǽ˾񣬾Ҫϵ!";
		mes "ΨΪƽ!";
		next;
		mes "[]";
		mes "Ӧ˽νħ˰?";
		mes "ҪΪ˾";
		mes "...Ϊзǳѣ";
		mes "ļ˾һħ";
		next;
		mes "[]";
		mes "ʶļ˾ǰҲһȥ";
		mes "ôԿʼ?";
		next;
		switch(select("ʼ:һ:Ҫȥ")) {
		case 1:
			mes "[]";
			mes "ôھͿʼħ";
			mes "׵ֻҪѳֵħȫͿ";
			next;
			mes "[]";
			mes "зΪ׶ΣҪС";
			mes "ôȥ!";
			close2;
			warp "job_prist",24,44;
			donpcevent "ħ#prst::OnEnable";
			donpcevent "::OnDisable";
			donpcevent "#2::OnEnable";
			end;
		case 2:
			set PRIEST_Q,6;
			mes "[]";
			mes "?Ҫ׼һ?";
			mes "ûϵȵʱ䵽ٽȥͿ";
			close;
		case 3:
			set PRIEST_Q,6;
			mes "[]";
			mes "ʲô??";
			mes "Ÿ˵Ҫȥ?";
			mes "ûʲô...Ҳǵ";
			next;
			mes "[]";
			mes "ţΪǵһεĹϵŻȽϺ";
			mes "Ժ㹻ʱٻ";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else if (PRIEST_Q == 6) {
		mes "Are you ready this time?";
		mes "Complete this trial quickly,";
		mes "and become a Priest!";
		next;
		mes "[]";
		mes "Are you ready then?";
		next;
		switch(select("I'm ready.:Please hold on.:I want to go back.")) {
		case 1:
			mes "[]";
			mes "Now, let the spiritual training begin. For the glory of God, for peace on earth, and goodwill towards all men...";
			next;
			mes "[]";
			mes "Go...";
			mes "Kill those";
			mes "misbegotten creatures!";
			close2;
			warp "job_prist",24,44;
			donpcevent "ħ#prst::OnEnable";
			donpcevent "::OnDisable";
			donpcevent "#2::OnEnable";
			end;
		case 2:
			mes "[]";
			mes "Hm? What is it you need?";
			mes "Well, no problem. You can";
			mes "afford to take your time.";
			close;
		case 3:
			mes "[]";
			mes "What...?";
			mes "You wanna go back??";
			next;
			mes "[]";
			mes "I understand. I suppose you have some important reason or business that you must attend to. Come back whenever you can.";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else {
		mes "Go back!";
		close2;
		warp "prontera",234,318;
		end;
	}

OnEnable:
	enablenpc "";
	end;

OnDisable:
	disablenpc "";
	end;
}

job_prist,23,187,1	script	#2	110,{
	mes "[]";
	if (BaseJob == Job_Priest || PRIEST_Q == 5 || PRIEST_Q == 6) {
		mes "ڽħ";
		mes "㻹ǹһ";
		next;
		mes "[]";
		mes "þͻй";
		mes "Ƚ֮ȥ";
		close;
	}
	else {
		mes "ƽͬ";
		close2;
		warp "prontera",234,318;
		end;
	}

OnInit:
	disablenpc "#2";
	end;

OnEnable:
	enablenpc "#2";
	end;

OnDisable:
	disablenpc "#2";
	end;
}

-	script	ħ#prst	110,{
OnInit:
	disablenpc "ħ#prst";
	end;

OnEnable:
	donpcevent "Zombie1_1::OnEnable";
	donpcevent "Zombie2_1::OnEnable";
	donpcevent "Zombie3_1::OnEnable";
	donpcevent "Zombie4_1::OnEnable";
	donpcevent "Zombie5_1::OnEnable";
	initnpctimer;
	end;

Onm1:
	set .MyMobs,13;
	monster "job_prist",24,52,"ȱ",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,52,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,52,"",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm2:
	monster "job_prist",21,62,"ŭ",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",27,62,"Թ",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm3:
	monster "job_prist",24,72,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,72,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,72,"",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm4:
	monster "job_prist",21,82,"Ұ",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",27,82,"̰",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm5:
	monster "job_prist",24,92,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,92,"",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,92,"ֲ",1015,1,"Z_C#prst::OnMyMobDead";
	end;

OnDisable:
	disablenpc "ħ#prst";
	killmonsterall "job_prist";
	end;

OnTimer300000:
	areawarp "job_prist",8,34,39,109,"prontera",234,318;
	end;

OnTimer300500:
	donpcevent "ħ#prst::OnDisable";
	end;

OnTimer301500:
	donpcevent "ħ#prst::OnDisable";
	donpcevent "#2::OnDisable";
	donpcevent "::OnEnable";
	end;

OnTimer302000:
	stopnpctimer;
	end;
}

-	script	Z_C#prst	-1,{
	end;

OnMyMobDead:
	set getvariableofnpc(.MyMobs,"ħ#prst"),getvariableofnpc(.MyMobs,"ħ#prst") - 1;
	end;
}

job_prist,24,44,0	script	Zombie Info	-1,1,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[]";
		mes "Ӧ߽뿼֮ʼ";
		mes "Э";
		next;
		mes "[]";
		mes "Խ¸͵ͻִһħ";
		next;
		mes "[]";
		mes "סħ֮";
		close;
	}
	else if (BaseJob == Job_Acolyte){
		mes "[]";
		mes "ӽԳʼֻ5ӵʱ! ֻ5ӶŶ!ǰ֮ʬ.";
		close;
	}
	end;
}

job_prist,24,52,0	script	Zombie1_1	-1,14,1,{
OnInit:
	disablenpc "Zombie1_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ#prst::Onm1";
		donpcevent "Zombie1_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie1_1";
	end;

OnDisable:
	disablenpc "Zombie1_1";
	end;
}

job_prist,21,62,0	script	Zombie2_1	-1,17,1,{
OnInit:
	disablenpc "Zombie2_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ#prst::Onm2";
		donpcevent "Zombie2_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie2_1";
	end;

OnDisable:
	disablenpc "Zombie2_1";
	end;
}

job_prist,24,72,0	script	Zombie3_1	-1,14,1,{
OnInit:
	disablenpc "Zombie3_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ#prst::Onm3";
		donpcevent "Zombie3_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie3_1";
	end;

OnDisable:
	disablenpc "Zombie3_1";
	end;
}

job_prist,21,82,0	script	Zombie4_1	-1,17,1,{
OnInit:
	disablenpc "Zombie4_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ#prst::Onm4";
		donpcevent "Zombie4_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie4_1";
	end;

OnDisable:
	disablenpc "Zombie4_1";
}

job_prist,24,92,0	script	Zombie5_1	-1,14,1,{
OnInit:
	disablenpc "Zombie5_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ#prst::Onm5";
		donpcevent "Zombie5_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Zombie5_1";
	end;

OnDisable:
	disablenpc "Zombie5_1";
}

job_prist,24,109,4	script	prst1_1	45,3,3,{
OnTouch:
	set .@mobs,getvariableofnpc(.MyMobs,"ħ#prst");
	if (BaseJob == Job_Priest) warp "job_prist",168,17;
	else if (BaseClass == Job_Acolyte && .@mobs < 1) {
		warp "job_prist",168,17;
		donpcevent "ħ#prst::OnDisable";
		donpcevent "#2::OnDisable";
		donpcevent "::OnEnable";
		donpcevent "ħ#prst::OnDisable";
	}
	end;
}

// 3rd Test
//==========================================================
job_prist,168,45,4	script	Сħ#prst	1109,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[Сħ]";
		mes "ߣΪʲô˾ֵط?... ڴ";
		mes "ʱ˷ڲҪϣȤ?";
		next;
		mes "[Сħ]";
		mes "Сħرһ";
		mes "´ĻͲ";
		close;
	}
	if (BaseClass == Job_Acolyte) {
		mes "[Сħ]";
		mes "Ŷ~ ⲻ^0000FF^000000? Ǻܾöû? .";
		mes "׼ҪתְΪ^0000FF˾^000000...";
		next;
		mes "[Сħ]";
		mes "Һ˽·. Ƕôడ.";
		mes "ҾᵽֵطǸֵ.";
		next;
		mes "[Сħ]";
		mes "бҪôѵĵ·? .";
		mes "Ҳкܶĺְҵ. ?";
		next;
		mes "[Сħ]";
		mes "ڴҲ, ѨҲ, .";
		mes "ȴûа... Ц?";
		next;
		mes "[Сħ]";
		mes "ѵøһĵҸ... 㻹Ƿĺ.";
		mes "Ի, Ҳ.";
		next;
		if (select("ð, ҾҪ:ħ, ʧ") == 1) {
			mes "[Сħ]";
			mes ", ѡͶ! ԺҲ!";
			mes "ȻѾתְ, Ҿһ.";
			next;
			mes "[Сħ]";
			mes "ѼҵѰ! !";
			close2;
			warp "c_tower2",168,33;
			end;
		}
		mes "[Сħ]";
		mes ", ú? µҪ. .";
		mes "㲻Ҫ. ˵һ.";
		next;
		mes "[Сħ]";
		mes "ҪڷתְĻ, Ҿһǳ.";
		mes "ⱲӶѵõ.";
		next;
		cutin "Eݵƻ",4;
		mes "[Сħ]";
		mes "лõŷǿĿƬŶ?";
		mes "ٿ. Ҫתְ֮ں...";
		next;
		if (select("ѿƬ!!:ʧ!ħ!") == 1) {
			mes "[Сħ]";
			mes ", Ȼһ. ѡú!";
			mes "ҾͰصĿƬ͸!";
			next;
			mes "[Сħ]";
			mes "ɲ͸Ŷ. .";
			mes "Ŭҿ!";
			close2;
			warp "mjolnir_05",200,200;
			end;
		}
		cutin "Eݵƻ",255;
		mes "[Сħ]";
		mes ", Ƣͦǿ... ټȥ.";
		mes "һ, ܲվŻȥ.";
		next;
		mes "[Сħ]";
		mes "һڵٶȻص߰... !";
		close;
	}
	end;
}

job_prist,168,80,4	script	#prst	1046,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[]";
		mes "޴... ûʲôô";
		mes "㲻ܷ? ֲҪתְ";
		next;
		mes "[]";
		mes "Ϊһûϣķ£ûҪô";
		mes "Ҫʱ˷û";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[]";
		mes "Ǳŵ^0000FF^000000. һ˵仰.";
		next;
		mes "[]";
		mes "Ϊʲô^0000FF˾^000000?";
		mes "ҿʺһ.";
		next;
		mes "[]";
		mes "ԸĻ, ҿҵٸһλ.";
		mes "ڱسѧ, ֻҪԸ⻹ѡְҵ.";
		next;
		mes "[]";
		mes "Ȼĵȼֵı.";
		mes "ⲻһܺõ? ֻҪԸ, ҿϰ.";
		next;
		if (select("ϣ԰!:ħ, ʧ") == 1) {
			mes "[]";
			mes "ѡĺ.";
			mes "ҾԸصѧߵĽ׶ΰ.";
			next;
			mes "[]";
			mes "︴Ҫپܳһʱ!!";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[]";
		mes "ƺ̫˽ҵ˼... ٺúõ뿴.";
		mes "һѵõĴûŶ.";
		next;
		mes "[]";
		mes "Ȼ, ֻҪ㿪˵һ뵱^0000FF˾^000000Ϳ.";
		mes "ôͿԴְҵ, һʿΰ?";
		next;
		if (select("ҲתְΪ^0000FF˾^000000!:ħ, ʧ!") == 1) {
			mes "[]";
			mes "ѡ. ҲҪصط.";
			mes "ԸΪѧ߰.";
			next;
			mes "[]";
			mes "︴Ҫپһκܳʱ";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[]";
		mes "ܺ... ҽͷһ.";
		next;
		mes "[]";
		mes "ԺҿĻ, Ҿͻʹȥ.";
		close;
	}
}

job_prist,168,115,4	script	ڰ֮#prst	1272,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[ڰ֮]";
		mes "һʹ;!!";
		mes "һܵҪ˱ķŭ!";
		next;
		mes "[ڰ֮]";
		mes "֮, һٶȳΪĵ֮ٻȥ!";
		mes "̵!";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[ڰ֮]";
		mes "վס, .";
		mes "ǵõ˭Ҿ!";
		next;
		mes "[ڰ֮]";
		mes "ҪתְΪ^0000FF˾^000000^0000FF^000000. 㲻ܾ,";
		mes "ȥ. ҪȻҾ̰ɱ.";
		next;
		mes "[ڰ֮]";
		mes "ϻҪ... ҪӰҵϢ, ȥ!";
		next;
		if (select("֪. һ:ħ, ʧ") == 1) {
			mes "[ڰ֮]";
			mes "ҲҪ!";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[ڰ֮]";
		mes "㲻ٳǿ, ûõ.";
		mes "ֻҪһСָͷ, Ϳ԰ʬ.";
		next;
		mes "[ڰ֮]";
		mes "޵ĺڰħԸ֮ǰ, ȥ!";
		next;
		if (select("ѽ, 㲻Ҫɱ:ħ, ʧ!") == 1) {
			mes "[ڰ֮]";
			mes "ҲҪ!";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[ڰ֮]";
		mes "ľĻǲ... Ը㶼鷳.";
		next;
		mes "[ڰ֮]";
		mes "Ҫٳǰ, Ҿͻ㳢һݵʹ.";
		close;
	}
}

job_prist,168,150,4	script	ͷ#prst	736,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[ͷ]";
		mes "鷳^0000FF˾^000000...";
		next;
		mes "[ͷ]";
		mes "ûʲôø˵. ȥ.";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[ͷ]";
		mes "......?";
		next;
		mes "[ͷ]";
		mes "'ħԼ'Ȥ?";
		next;
		mes "[ͷ]";
		mes "ҿԸϵĲƸ";
		mes "....";
		next;
		mes "[ͷ]";
		mes "һλְ";
		mes "...";
		next;
		mes "[ͷ]";
		mes ", ֻҪԸĻ, ʱٻ.";
		mes "һе˶ẦΪ, ҲôҼס.";
		next;
		if (select("ҴӦ:ȥħ!") == 1) {
			mes "[ͷ]";
			mes "ôǾǩԼ...";
			mes "ǾԲڵ...";
			next;
			mes "[ͷ]";
			mes "ȥڵĵط.";
			mes "ǩԼ.";
			close2;
			warp "glast_01",200,203;
			end;
		}
		mes "[ͷ]";
		mes "...ǿҵľ..";
		mes "һ㱨...";
		next;
		mes "[ͷ]";
		mes "ҿصΪ׼ħ...";
		mes "㻹ԳŶ.";
		next;
		mes "[ͷ]";
		mes "ô, ͹ȥ";
		close;
	}
}

job_prist,168,180,4	script	prst2_1	45,3,3,{
OnTouch:
	if (BaseJob == Job_Priest) warp "job_prist",98,40;
	else if (BaseClass == Job_Acolyte) {
		warp "job_prist",98,40;
		donpcevent "ħ2::OnEnable";
	}
	end;
}

// 4th Test
//==========================================================
job_prist,1,2,1	script	ħ2	110,1,1,{
OnInit:
	disablenpc "ħ2";
	end;

OnEnable:
	donpcevent "ħ3::OnEnable";
	donpcevent "Mummy2_1::OnEnable";
	donpcevent "ħ4::OnEnable";
	end;

Onm1:
	monster "job_prist",90,55,"̰",1041,1;
	monster "job_prist",105,55,"",1041,1;
	end;

Onm2:
	monster "job_prist",90,70,"",1041,1;
	monster "job_prist",105,70,"",1041,1;
	end;

Onm3:
	monster "job_prist",90,85,"ŭ",1041,1;
	monster "job_prist",105,85,"¼",1041,1;
	end;

OnDisable:
	disablenpc "ħ2";
	killmonsterall "job_prist";
	end;
}

job_prist,90,55,0	script	ħ3	-1,15,1,{
OnInit:
	disablenpc "ħ3";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ2::Onm1";
		donpcevent "ħ3::OnDisable";
	}
	end;

OnEnable:
	enablenpc "ħ3";
	end;

OnDisable:
	disablenpc "ħ3";
	end;
}

job_prist,90,70,0	script	Mummy2_1	-1,15,1,{
OnInit:
	disablenpc "Mummy2_1";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ2::Onm2";
		donpcevent "Mummy2_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Mummy2_1";
	end;

OnDisable:
	disablenpc "Mummy2_1";
	end;
}

job_prist,90,85,0	script	ħ4	-1,15,1,{
OnInit:
	disablenpc "ħ4";
	end;

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "ħ2::Onm3";
		donpcevent "ħ4::OnDisable";
	}
	end;

OnEnable:
	enablenpc "ħ4";
	end;

OnDisable:
	disablenpc "ħ4";
	end;
}

job_prist,98,105,4	script	prst3_1	45,3,3,{
OnTouch:
	if (BaseJob == Job_Priest) {
		warp "prt_church",15,36;
		end; 
	}
	else if (BaseClass == Job_Acolyte) {
		set PRIEST_Q,7;
		warp "prt_church",16,37;
		donpcevent "ħ2::OnDisable";
	}
	end;
}

// Functions
//==========================================================
function	script	F_FatherRub	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "ϣΪ˾ķ°...";
			mes "Ѿнӵ˹Ϣ";
			mes "ϾʼѲŬΪ˾";
			next;
			mes "[ ³]";
			mes "´лĻ޵Ժ...";
			mes "νǵĽ̳ʥ";
			next;
			mes "[ ³]";
			mes "ô¸Ѳȥ";
			close2;
			savepoint "prt_fild03",361,255;
			set PRIEST_Q,2;
			end;
		}
		else if (PRIEST_Q == 2) {
			mes "Ͽ쵽һѲȥ";
			mes "һ·С";
			close;
		}
		mes "Ϊʲôֻص?";
		mes "Ͽȥ";
		close;
	}
	mes "Ƿ㵽ʲô?";
	close;
}

function	script	F_MotherMart	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "߰?";
			mes "֮ǰҪȼһλ";
			next;
			mes "[Ů ]";
			mes "'˹ ''ʫ Ů'ɣԸ..";
			close;
		}
		else if (PRIEST_Q == 2) {
			mes "Ƿ߰?";
			mes "Զ~";
			mes "Ǽ˾Ҫּ";
			next;
			mes "[Ů ]";
			mes "Ϊ˾֮ҲһҪ޿˴Ľ";
			mes "ʱнǽų...";
			next;
			mes "[Ů ]";
			mes "ôѲ...";
			mes "Ը...";
			close2;
			savepoint "moc_fild07",35,355;
			set PRIEST_Q,3;
			end;
		}
		else if (PRIEST_Q == 3) {
			mes "Ҫͣڴˣȥ...";
			close;
		}
		mes "Ϊʲôֻص?";
		mes "ȥа";
		close;
	}
	mes "Ƿ㵽ʲô?";
	close;
}

function	script	F_FatherYos	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 2 || PRIEST_Q == 1) {
			mes "ţǷ߰";
			mes "Զ";
			next;
			mes "[ Լ˹]";
			mes "֮ǰҪȼһλ";
			mes "һ仰Ҵط";
			next;
			mes "[ Լ˹]";
			mes "صȷȥ";
			close;
		}
		else if (PRIEST_Q == 3) {
			mes "ţǼ˾߰";
			mes "Զ";
			next;
			mes "[ Լ˹]";
			mes "Ϊ˲ü˾裬";
			mes "һҪȥ";
			next;
			mes "[ Լ˹]";
			mes "صȥ";
			mes "Ѳ";
			mes "һ·";
			mes "ȥҲҪСŶ";
			close2;
			savepoint "prt_fild00",206,230;
			set PRIEST_Q,4;
			end;
		}
		else if (PRIEST_Q == 4) {
			mes "ûؽ?";
			mes "Ҫһ?";
			close;
		}
		mes "Ҫ";
		mes "ϿΪ˾";
		close;
	}
	mes "Ƿ㵽ʲô?";
	close;
}

