* 2-1 Job quest update. Needs in-depth testing.

- Because of a change of variables, players currently undergoing the job change quests may find themselves in a slightly different position in the quest.
- This update reverts the hunter job quest timer BACK to 3 minutes.
* Corrected some Acolyte job quest issues.
- Removed Priest quest specific text from acolyte quest file.
* Bard Pang Voice quest was checking for the wrong variable.


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10973 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 1616 insertions, 1189 deletions

diff --git a/npc/jobs/2-1/priest.txt b/npc/jobs/2-1/priest.txt
index 00c2a1808..5a4c9ab7a 100644
--- a/npc/jobs/2-1/priest.txt
+++ b/npc/jobs/2-1/priest.txt
@@ -5,11 +5,12 @@
 //= Converted by: kobra_k88.
 //= Further bugfixed and tested by Lupus
 //===== Current Version: ===================================== 
-//= 2.1a
+//= 2.2
 //===== Compatible With: ===================================== 
-//= eAthena  1.0
+//= eAthena  SVN
 //===== Description: ========================================= 
-//= Official RO Priest Quest converted from Aegis script.
+//= [Aegis Conversion]
+//= Job Change quest for Priest class.
 //===== Additional Comments: ================================= 
 //= Fully working.  Changed the way Priests enter the test room to help Acos.
 //= Must use this with the included Acolyte quest to work properely.
@@ -21,1416 +22,1842 @@
 //= 2.0 Changed numbers to constants. [Vicious]
 //= 2.1 Merged JFunc [Lupus]
 //= 2.1a Fixed typo [KarLaeda]
+//= 2.2 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
 //==========================================================
 
-
-//*********************************************************************************************************************************************************************************\\
-//============================================ Father Thomas: Job changer, Test 1 =============================================\\
-//*********************************************************************************************************************************************************************************\\
-prt_church,16,41,4	script	Father Thomas	60,{
-	callfunc "F_BlockHigh",Job_Acolyte_High,"Acolyte High",Job_High_Priest,"High Priest","Father Thomas";
-
-	mes "[Father Thomas]";
-	if(BaseJob == Job_Acolyte) goto L_Start;
-	if(BaseJob == Job_Novice){
-		mes "May God bless you, child.  This is the Prontera Church.  What are you here for?";
-		next;
-		menu "I want to become an Acolyte.",-, "I want to become a ^5533FFPriest^000000.",M_0b, "I'm just walking around.",M_0End;
-
-			mes "[Father Thomas]";
-			mes "Haha.. so you want to become an Acolyte eh? To apply to become an Acolyte, please go to the room opposite of here.";
+prt_church,16,41,4	script	High Bishop#prst	60,{
+	// Uncomment the following 'if' statement to allow High Priests to assist Acolytes with the job change quest.
+	// Officially High Priests are blocked from helping by an indiscriminate check if you are a transcended character.
+	//if (Class == Job_High_Priest) set .@AllowHPAssist,1;
+	if (Upper == 1 && .@AllowHPAssist != 1) {
+			mes "[Bishop Paul]";
+			mes "Hm...?";
+			mes "Ah, I sense that you are a warrior that has been to Valhalla. You who have been reborn... We are here to look after you.";
+			next;
+			mes "[Bishop Paul]";
+			mes "Do not let evil conquer your soul. You have enough courage and power to overcome the hardest situation. May God bless you...";
 			close;
-		M_0b:
-			mes "[Father Thomas]";
-			mes "Haha...in order to become a priest you must first become an Acolyte.  To become an Acolyte, go to the room opposite of here.";
+	}
+	if (BaseClass != Job_Acolyte || BaseJob == Job_Priest) {
+		if (BaseJob == Job_Priest) {
+			mes "[Bishop Paul]";
+			mes "Ah...";
+			if (sex)
+				mes "It is good to see you again, Brother " + strcharinfo(0) + ". Once again, God's grace has caused our paths to cross.";
+			else
+				mes "It is good to see you once again, Sister " + strcharinfo(0) + ". The grace of God has brought you once more before me.";
+			next;
+			mes "[Bishop Paul]";
+			mes "I'm pleased to see that you are continuing to lead the children of God on the right path. Is there anything I can help you with today?";
+			next;
+			switch(select("How is your health?:I want to help this Acolyte.:Father, I need your help.")) {
+			case 1:
+				mes "[Bishop Paul]";
+				mes "Thank you for your concern. I'm doing fine and am in good health. Please give my regards to your brothers and sisters.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Keep in mind that we are God's messengers on this Earth. Always remember that we must always help others.";
+				close;
+			case 2:
+				mes "[Bishop Paul]";
+				mes "Ah, that's a good idea. Helping young Acolytes should also be one of a Priest's priorities.";
+				next;
+				mes "[Bishop Paul]";
+				mes "However, there are certain things that an Acolyte must do alone. All Acolytes must complete their divine test by themselves.";
+				next;
+				mes "[Bishop Paul]";
+				mes "I hope you will assist your Acolyte friend in the second test, the spiritual training.";
+				next;
+				mes "[Bishop Paul]";
+				mes "You need to bring ^0000FF1 Rosary^000000 in order to accompany an Acolyte in spiritual training. If you have one of those, I can send you to the test area now.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Do you wish to help him out during the spiritual training?";
+				next;
+				if (select("Yes, I do.:Give me a second.") == 1) {
+					if (countitem(2608) > 0) {
+						mes "[Bishop Paul]";
+						mes "I will now send you to the training place for Acolytes. Please send my regards to Brother Peter...";
+						next;
+						mes "[Bishop Paul]";
+						mes "I hope you will assist this Acolyte in becoming a Priest.";
+						close2;
+						warp "job_prist",26,178;
+						end;
+					}
+					mes "[Bishop Paul]";
+					mes "Unfortunately you didn't bring a ^0000FFRosary^000000. You need one of those in order to be in the testing area.";
+					close;
+				}
+				mes "[Bishop Paul]";
+				mes "I see, take your time. Don't forget to bring a ^0000FFRosary^000000...";
+				close;
+			case 3:
+				mes "[Bishop Paul]";
+				mes "You must be strong. Have faith, as you are loved by God. I pray the wounds of the body are healed soon...";
+				next;
+				percentheal 90,0;
+				mes "[Bishop Paul]";
+				mes "God, please look after your poor children. Help them overcome their hardships and difficulties. Refresh their spirits...";
+				next;
+				percentheal 0,90;
+				mes "[Bishop Paul]";
+				mes "I hope my invocation has eased your pain. Now please go forth and spread God's message. May God be with you...";
+				close;
+			}
+		}
+		else if (BaseClass == Job_Novice) {
+			mes "[Bishop Paul]";
+			mes "May God be";
+			if (sex)
+				mes "with you, brother.";
+			else
+				mes "with you, sister.";
+			next;
+			mes "[Bishop Paul]";
+			mes "You are in";
+			mes "the Sanctuary.";
+			mes "What brings you here?";
+			next;
+			switch(select("I want to be an Acolyte.:I want to be a Priest.:Nothing, really.")) {
+			case 1:
+				mes "[Bishop Paul]";
+				mes "Oh I see...";
+				mes "If you wish to become an Acolyte, please visit the other room.";
+				break;
+			case 2:
+				mes "[Bishop Paul]";
+				mes "Oh I see. However, you must first become an Acolyte before becoming a Priest. Please visit the other room.";
+				break;
+			case 3:
+				mes "[Bishop Paul]";
+				mes "Please make yourself at home. On Earth, nowhere is safer than this Sanctuary.";
+				break;
+			}
+			next;
+			mes "[Bishop Paul]";
+			mes "May God bless you.";
 			close;
-		M_0End:
-			mes "[Father Thomas]";
-			mes "Please feel free to rest here.  The church is a sanctuary for all those, who seek to escape the outside world.";
+		}
+		else {
+			mes "[Bishop Paul]";
+			mes "May God be";
+			if (sex)
+				mes "with you, brother.";
+			else
+				mes "with you, sister.";
 			next;
-			mes "[Father Thomas]";
-			mes "May God be with you in your thoughts and prayers.";
+			mes "[Bishop Paul]";
+			mes "What brings you here";
+			mes "to Prontera Sanctuary?";
+			next;
+			switch(select("Information about Priests.:Nothing.")) {
+			case 1:
+				mes "[Bishop Paul]";
+				mes "Priests have the authority to perform and administer religious rites.";
+				next;
+				mes "[Bishop Paul]";
+				mes "You must first be thoroughly disciplined as an Acolyte before you can be promoted to the position of Priest.";
+				next;
+				mes "[Bishop Paul]";
+				mes "When you reach Acolyte Job level 40, you will be able to apply for the Priest test.";
+				next;
+				mes "[Bishop Paul]";
+				mes "If you pass the test, you will be able to use more powerful skills that will be effective against Demon and Undead creatures...";
+				next;
+				mes "[Bishop Paul]";
+				mes "With all of your ability, you will play an important role in towns and dungeons.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Our duty and obligation as Priests is to devote ourselves to helping others without expecting reward.";
+				next;
+				mes "[Bishop Paul]";
+				mes "As we help others, we must not expect to treat us in a similar fashion. To be a great Priest is your choice and responsibility, not anyone else's.";
+				next;
+				mes "[Bishop Paul]";
+				mes "However, those who receive should be polite. You should give an outstanding example, but you should also have your limits as a human.";
+				next;
+				mes "[Bishop Paul]";
+				mes "I hope I explained enough of the class. Why don't you go outside and talk to some of the other Priests if you want to learn more about our way of life?";
+				next;
+				break;
+			case 2:
+				mes "[Bishop Paul]";
+				mes "Please make yourself at home. Nowhere on Earth is safer than the Prontera Sanctuary.";
+				next;
+				break;
+			}
+			mes "[Bishop Paul]";
+			mes "Well...";
+			mes "May God";
+			mes "bless you.";
 			close;
+		}
 	}
-	if(BaseJob == Job_Priest){
-		mes "God bless you, child.  You are here again because you listened to God's orders.";
-		next;
-		mes "[Father Thomas]";
-		mes "I don't know if God's sons and daughters are going on the path of light or the path of darkness... I can only pray for the best.";
-		next;
-		mes "[Father Thomas]";
-		mes "So why are you here today?";
+	if (PRIEST_Q == 0) {
+		mes "[Bishop Paul]";
+		mes "May God bless";
+		if (sex)
+			mes "you, Brother.";
+		else
+			mes "you, Sister.";
+		mes "What brings";
+		mes "you to me?";
 		next;
-		menu "I just wanted to see how you were.",-, "I'm here to help the Acolytes.",M_1b, "Life is really hard... I was wondering if you could help.",M_1End;
-
-			mes "[Father Thomas]";
-			mes "Oh, well I'm fine thank you.  Please send my regards to all of the other Priests, and Priestess.";
-			next;
-			mes "[Father Thomas]";
-			mes "We, the ones who follow the devine path, are here for one reason.... to obey Gods orders.";
-			mes "If you come across anyone who needs help, please remember to assist them in any way you can...";
-			close;
-		M_1b:
-			mes "[Father Thomas]";
-			mes "Oh...thats a great idea! Since you're a priest, you can't forget that you have to help the Acolytes when they need it.";
-			emotion e_ic;
+		switch(select("I want to be a Priest.:How are you, Father?")) {
+		case 1:
+			mes "[Bishop Paul]";
+			mes "I see. So you wish to be a Priest. God will be delighted by your decision and will bless you.";
 			next;
-			mes "[Father Thomas]";
-			mes "Even so, you must be carefull not to do everyting for them.  It is important that they gain their own experiences through training ";
+			mes "[Bishop Paul]";
+			mes "I am Bishop Paul Cervantes, and am in charge of the Prontera Parish.";
+			mes "I am glad to meet a person as eager and devoted to God such as yourself.";
 			next;
-			mes "[Father Thomas]";
-			mes "In order to go in and help you'll need a ^5533FFROSARY^000000.";
-			mes "There will be 3 trials for the Acolyte to face, but in only 2 of them will your assistance be needed.";
+			mes "[Bishop Paul]";
+			mes "If you set your mind on becoming a Priest, you must undergo several tests. Only Acolytes who reach job level 40 are qualified for testing.";
 			next;
-			mes "[Father Thomas]";
-			mes "Are you prepared to help?";
+			mes "[Bishop Paul]";
+			mes "If you satisfy the requirements, I suggest that you apply for the Priest job first. Do you wish to apply now?";
 			next;
-			menu "Yes, i will help them with all my might.",-, "I will come back later.",sM_1End;
-
-				mes "[Father Thomas]";
-				if (countitem(2608) < 1){
-					mes "Hmm... it doesn't look like you have a ^5533FFROSARY^000000 with you.";
+			if (select("Yes, I do.:I need some time to think about it...") == 1) {
+				if (JobLevel < 40) {
+					mes "[Bishop Paul]";
+					mes "You are not yet qualified to be a Priest. Please go out into the world and broaden your experiences.";
 					next;
-					mes "[Father Thomas]";
-					mes "If you want to help the Acolytes, you must first get a ^5533FFROSARY^000000.";
-					mes "Please come back when you have one.";
+					mes "[Bishop Paul]";
+					mes "There are still things that you must learn as an Acolyte. However, I look forward to meeting you again very soon.";
+					close;
+				}
+				if (SkillPoint) {
+					mes "[Bishop Paul]";
+					mes "You have skill points left.";
+					mes "I strongly recommend that you use all of these skill points before you apply for the Priest job change test.";
 					close;
 				}
-				mes "Very well then.  I will send you to an Acolyte in just a moment.";
+				set PRIEST_Q,1;
+					mes "[Bishop Paul]";
+				if (sex)
+					mes "Now I will explain the Three Trials of Priesthood. These tribulations will bring you much suffering, but I hope you can complete them, Brother " + strcharinfo(0) + ".";
+				else
+					mes "Now I will explain the Three Trials of Priesthood. These tribulations will bring you much suffering, but I hope you can complete them, Sister " + strcharinfo(0) + ".";
 				next;
-				mes "[Father Thomas]";
-				mes "I hope you will also take this opportunity to teach them what it means to be a good Priest.";
+				mes "[Bishop Paul]";
+				mes "For the First Trial, you will make a pilgrimage, and visit three acscetic Priests in a specific order.";
 				next;
-				if((getareausers("job_prist", 8, 34, 39,109)) == 1) warp "job_prist", 24, 44;
-				if((getareausers("job_prist", 160, 14, 175, 178)) == 1) warp "job_prist", 98, 40;
-				if((getareausers("job_prist", 90, 34, 105,105)) == 1) warp "job_prist", 168, 17;
-				mes "[Father Thomas]";
-				mes "Hmm........ wait a minute..... let me check my list.... Either no one is taking the test right now, or another Priest is already helping out.";
-				mes "In any case please check with me again later.";
-				close;
-			sM_1End:
-				mes "[Father Thomas]";
-				mes "Oh, alright.  Just remember to bring a ^5533FFFROSARY^000000 when you come back.";
+				mes "[Bishop Paul]";
+				mes "The Second Trial will consist of spiritual training. You must resist the temptations of Demons and the Undead.";
+				next;
+				mes "[Bishop Paul]";
+				mes "In the Final Trial, you will promise your devotion to God. Your willingness to sacrifice yourself will also be questioned.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Acolytes that have reached Job Level 50 will be exempt from the First Trial, the pilgrimage, as they have already demonstrated their enthusiasm and devotion.";
+				next;
+				if (JobLevel == 50) {
+					mes "[Bishop Paul]";
+					mes "I can see the great effort you have exerted to reach job level 50. You have been a loyal servant to God.";
+					next;
+					mes "[Bishop Paul]";
+					mes "Now, you may go directly go to the Second Trial: Spiritual Training. For this training, you may bring a Priest with you.";
+					next;
+					mes "[Bishop Paul]";
+					mes "I have no doubt that you will do a good job by yourself. However, it will be easier with the aid of a Brother or Sister that has already become a Priest.";
+					next;
+					set PRIEST_Q,5;
+					mes "[Bishop Paul]";
+					mes "Well, are you ready for the Spiritual Training?";
+					next;
+					if (select("I am ready.:Give me a minute.") == 1) {
+						mes "[Bishop Paul]";
+						mes "Good. I will send you to the training ground. When you get there, please speak to Brother Peter who is in charge of the training.";
+						next;
+						warp "job_prist",24,180;
+						end;
+					}
+					mes "[Bishop Paul]";
+					mes "No problem, take your time.";
+					mes "May God give you the strength to overcome your fears...";
+					close;
+				}
+				mes "[Bishop Paul]";
+				mes "Well, let me tell you the order of the ascetic Priests that you must visit for your pilgrimage.";
+				next;
+				mes "[Bishop Paul]";
+				mes "First, please visit Father";
+				mes "Rubalkabara who is Northeast";
+				mes "of the Prontera Ruins.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Second, please visit Sister Mathilda. She is located in";
+				mes "an area near Morroc, Southwest of Prontera.";
+				next;
+				mes "[Bishop Paul]";
+				mes "The third Priest you must visit is Father Yosuke. He is in a field Northwest of Prontera.";
+				next;
+				mes "[Bishop Paul]";
+				mes "Well then, I wish you a safe journey. If you have any questions, please ask Sister Cecilia.";
+				next;
+				mes "[Bishop Paul]";
+				mes "When you return from your pilgrimage, I will let you know";
+				mes "of the next test.";
+				next;
+				mes "[Bishop Paul]";
+				mes "May God";
+				mes "bless you...";
 				close;
-
-		M_1End:
-			mes "[Father Thomas]";
-			mes "Keep up the good work.  I will ask God to ease your pain.";
+			}
+			mes "[Bishop Paul]";
+			mes "Please take your time.";
+			mes "You are always welcomed.";
+			mes "May God bless you...";
+			close;
+		case 2:
+			mes "[Bishop Paul]";
+			mes "I see...";
+			mes "I am doing fine";
+			mes "and am in good health.";
+			mes "Thank you for asking.";
+			next;
+			mes "[Bishop Paul]";
+			if (sex)
+				mes "I hope you will continue to go on your mission as God's servant, brother.";
+			else
+				mes "I hope you will continue to go on your mission as God's servant, sister.";
+			next;
+			mes "[Bishop Paul]";
+			mes "Hopefully, our paths";
+			mes "will cross again.";
+			mes "May God bless you...";
+			close;
+		}
+	}
+	else if (PRIEST_Q == 1) {
+		mes "[Bishop Paul]";
+		mes "May I ask you the reason you're still here? You didn't forget your pilgrimage, did you?";
+		next;
+		if (select("Sorry father, I need to check the order.:No no no, not at all.") == 1) {
+			mes "[Bishop Paul]";
+			mes "Ah, I see. I will let you know the order of pilgrimage again, and hope that you will have a safe journey.";
+			next;
+			mes "[Bishop Paul]";
+			mes "First, meet Father Rubalkabara. He's at the Northeast of the Prontera ruins.";
+			next;
+			mes "[Bishop Paul]";
+			mes "Then, remember to meet Sister Mathilda. She's somewhere near the town of Morroc, Southwest of Prontera.";
 			next;
-			mes "[Father Thomas]";
-			mes "God, one of your children is suffering.  Please use your powers, to heal the wounds on this battered body.....";
+			mes "[Bishop Paul]";
+			mes "And lastly, please seek out Father Yosuke. He is in the a field Northwest of Prontera.";
 			next;
-			mes "[Father Thomas]";
-			mes "Please look after us, so that under any condition we will be able to think clearly and maintain our faith";
-			percentheal 100,100;
+			mes "[Bishop Paul]";
+			mes "Well then, I shall pray for your safe journey. If you want more information, please ask Sister Cecilia.";
 			next;
-			mes "[Father Thomas]";
-			mes "You should be feeling better now.  Please stay on the path to rightousness and may God bless you.";
+			mes "[Bishop Paul]";
+			mes "When you get back from the pilgrimage, I will let you know the next test.";
+			next;
+			mes "[Bishop Paul]";
+			mes "May God bless you...";
 			close;
+		}
+		mes "[Bishop Paul]";
+		mes "I see. But still, if you have any questions, you may wish to ask Sister Cecilia. She will address any of your concerns.";
+		next;
+		mes "[Bishop Paul]";
+		mes "Well then, I shall pray for your safe journey. May God bless you...";
+		close;
 	}
-	mes "May God bless you my child.";
-	next;
-	mes "[Father Thomas]";
-	mes "Please feel free to rest, the church is the safest place in this world.";
-	next;
-	mes "[Father Thomas]";
-	mes "I hope God will bless you.";
-	close;
-
-L_Start:
-	if (PRIEST_Q == 1) goto L_Test1;
-	if (PRIEST_Q == 2) goto L_Test2;
-	if (PRIEST_Q == 3) goto L_Test3;
-	if (PRIEST_Q == 4) goto L_Change;
-	mes "God bless you, child.  What brings you here?";
-	next;
-	menu "I want to become a priest.",M_2a, "Can you please tell me about Priests.",M_2b, "I just wanted to see how you were doing.",M_2End;
-
-	M_2a:
-		mes "[Father Thomas]";
-		mes "Oh... so you want to become a priest?  God bless you for your determination.";
+	else if (PRIEST_Q == 2) {
+		mes "[Bishop Paul]";
+		mes "I see you have returned from your meeting with Father Rubalkabara. How is he doing? I am worried about his health, since he's been there all alone... ";
 		next;
-		mes "[Father Thomas]";
-		mes "I'm Father Thomas.  I'm in charge of protecting Prontera from the evil spirits that plague the lands of Rune Midgard.";
+		mes "[Bishop Paul]";
+		mes "For your next quest, you should meet Sister Mathilda. I shall be awaiting your safe return.";
+		close;
+	}
+	else if (PRIEST_Q == 3) {
+		mes "[Bishop Paul]";
+		mes "I see that you have returned from your journey to meet Sister Mathilda. She has been meditating in the hot, dry desert for a long time.";
 		next;
-		mes "[Father Thomas]";
-		mes "Please fill out this application form so that I can review your qualifications for becoming a Priest.";
+		mes "[Bishop Paul]";
+		mes "Finally, it is now time for you to meet Father Yosuke. He is doing penance somewhere around a field Northwest of Prontera. Please seek him out, and then return here to me.";
+		close;
+	}
+	else if (PRIEST_Q == 4) {
+		set PRIEST_Q,5;
+		mes "[Bishop Paul]";
+		mes "You've accomplished";
+		mes "your pilgrimage.";
+		mes "Congratulations.";
 		next;
-		mes "(you fill out the form and hand it back)";
+		mes "[Bishop Paul]";
+		mes "Now it is time to begin your spiritual training. As I mentioned before, you may bring a Priest to help you during this training.";
 		next;
-		mes "[Father Thomas]";
-		if (JobLevel < 40) goto sL_LowLvl;
-		if (JobLevel == 50) goto sL_HighLvl;
-		mes "Ah, very good " + strcharinfo(0) + ".  Let me now tell you about the tasks you will have to fullfill in order to become a Priest.";
+		mes "[Bishop Paul]";
+		mes "Although you cannot receive their help throughout all of the testing, they can at least help you during the spiritual training.";
 		next;
-		mes "[Father Thomas]";
-		mes "The first task will be to find and speak with 3 very wise Clerics.  They are located in various parts of Rune Midgard.";
+		mes "[Bishop Paul]";
+		mes "Well, are you ready for";
+		mes "the spiritual training?";
 		next;
-		mes "[Father Thomas]";
-		mes "The second task will consist of 3 trials.  In the first trial you must face the undead.";
-		mes "The second trial will test your ability to resist temptation and avoid corruption.  The third trial you will have to figure out for yourself.";
+		if (select("I'm ready.:Give me a minute.") == 1) {
+			mes "[Bishop Paul]";
+			mes "Good. I will send you to the training ground. When you get there, please speak to Brother Peter who is in charge of the training.";
+			next;
+			warp "job_prist",24,180;
+			end;
+		}
+		mes "[Bishop Paul]";
+		mes "No problem,";
+		mes "take your time.";
+		mes "May God grant you";
+		mes "the strength to";
+		mes "overcome your fears...";
+		close;
+	}
+	else if (PRIEST_Q == 5) {
+		mes "[Bishop Paul]";
+		mes "You seem confident about the spiritual training. Shall we begin?";
 		next;
-		mes "[Father Thomas]";
-		mes "After you finish the 2 tasks, there will be a final test with Sister Cecile.  Pass it and you can become a Priest.";
+		if (select("I'm ready.:Give me a minute.") == 1) {
+			mes "[Bishop Paul]";
+			mes "Good. I will send you to the training ground. When you get there, please speak to Brother Peter who is in charge of the training.";
+			next;
+			warp "job_prist",24,180;
+			end;
+		}
+		mes "[Bishop Paul]";
+		mes "No problem,";
+		mes "take your time.";
+		mes "May God grant you";
+		mes "the strength to";
+		mes "overcome your fears...";
+		close;
+	}
+	else if (PRIEST_Q == 6) {
+		mes "[Bishop Paul]";
+		mes "You look tired and exhausted. However, you must endure even more suffering once you become a Priest.";
 		next;
-		mes "[Father Thomas]";
-		set JBLVL, 40;
-		goto L_Test1;
-
-		sL_LowLvl:
-			mes "I'm sorry but you cannot become a Priest at this moment.  You need to have a job level of at least 40.";
+		mes "[Bishop Paul]";
+		mes "Please endure these trials for the sake of your dream. Why don't you challenge the spiritual training again?";
+		next;
+		if (select("I'll try again.:Give me a minute.") == 1) {
+			mes "[Bishop Paul]";
+			mes "Good. I will send you to the training ground. Please ask for help from Brother Peter.";
 			next;
-			mes "[Father Thomas]";
-			mes "Please strengthen your faith in God by performing more good deeds.";
-			mes "I hope when the time is right, you'll be back... I will be waiting for you here.";
+			warp "job_prist",24,180;
+			end;
+		}
+		mes "[Bishop Paul]";
+		mes "No problem,";
+		mes "take your time.";
+		mes "May God grant you";
+		mes "the strength to";
+		mes "overcome your fears...";
+		close;
+	}
+	else if (PRIEST_Q == 7) {
+		mes "[Bishop Paul]";
+		mes "I am glad that you've done well with the spiritual training. Congratulations. You are now qualified to be called a Priest.";
+		next;
+		mes "[Bishop Paul]";
+		mes "Now, you must go and swear your devotion to God with Sister Cecilia. Don't be nervous...";
+		next;
+		mes "[Bishop Paul]";
+		mes "Just answer honestly, and listen to the voice of God that speaks quietly in your heart.";
+		next;
+		mes "[Bishop Paul]";
+		mes "Well then...";
+		mes "I will be here";
+		mes "waiting for you.";
+		close;
+	}
+	else if (PRIEST_Q == 8) {
+		mes "[Bishop Paul]";
+		mes "Hmm? You haven't made your oath yet...? Without the conviction of an oath to God, you may be tempted by evil at anytime.";
+		next;
+		mes "[Bishop Paul]";
+		mes "You should go to sister Cecilia and promise your devotion to God. Return here with honor, and listen to the voice of God that speaks quietly in your heart.";
+		close;
+	}
+	else if (PRIEST_Q == 9) {
+		if (SkillPoint) {
+			mes "[Bishop Paul]";
+			mes "You have remaining skills points. Please use these skill points to upgrade your skills, and then return to me.";
+			close;
+		}
+		if (JobLevel == 50) {
+			mes "[Bishop Paul]";
+			mes "Congratulations, you have completed the trials required of all Priests. Let me promote you to the position of Priest right away.";
+			next;
+			mes "[Bishop Paul]";
+			mes "God, grant your power to your servant standing before you.";
+			if (sex)
+				mes "Let him send your message throughout the ends of the earth.";
+			else
+				mes "Let her send your message throughout the ends of the earth.";
+			next;
+			mes "[Bishop Paul]";
+			mes "Make this servant of yours an instrument of your miraculous works...";
+			next;
+			set .@joblvl,JobLevel;
+			callfunc "Job_Change",Job_Priest;
+			callfunc "F_ClearJobVar";		// clears all job variables for the current player
+			mes "[Bishop Paul]";
+			mes "Now you are born again as a Priest. I congratulate you, and hope you will greatly help other people for the rest of your life.";
+			next;
+			mes "[Bishop Paul]";
+			if (.@joblvl < 50) {
+				getitem 1550,1; //Book
+				mes "This book is for you. I hope it will aid you in spreading God's message on earth.";
+			}
+			else {
+				getitem 1551,1; //Bible
+				mes "In commemoration of your job change, I am giving you a bible. This will lighten your way to the path of righteousness.";
+			}
+			next;
+			mes "[Bishop Paul]";
+			mes "You've shown great effort, and have made admirable progress in your personal quest for holiness. Please lead your life as a sincere Priest...";
 			close;
+		}
+	}
+}
 
-		sL_HighLvl:
-			mes "Wow, your already at job lvl 50.  I'm amazed at your dedication and hard work!";
-			emotion e_gasp;
+prt_church,27,24,1	script	Sister Cecilia	79,{
+	mes "[Sister Cecilia]";
+	if (BaseClass != Job_Acolyte || BaseJob == Job_Priest) {
+		if (BaseJob == Job_Priest) {
+			if (sex)
+				mes "May god bless you, brother. It brings my heart joy to see that you working hard to carry out the will of God.";
+			else
+				mes "May god bless you, sister. It brings my heart joy to see that you working hard to carry out the will of God.";
+		}
+		else if (Class == Job_Novice) {
+			if (sex)
+				mes "May god bless you, brother.";
+			else
+				mes "May god bless you, sister.";
+			mes "Prontera parish welcomes you.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "Oh, you haven't chosen a job yet? Why don't you consider devoting your life to God?";
+			next;
+			mes "[Sister Cecilia]";
+			mes "You can lead a fulfilling life as an Acolyte, helping out other people in need.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "If you're interested, please ask the Priest in the other room. You won't ever regret the choice to become an Acolyte.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "When you reach Job level 40 as an Acolyte, you can be promoted to a Priest.";
 			next;
-			mes "[Father Thomas]";
-			mes "Because of this I will allow you to skip the first task.  How about we start the second task instead?";
+			mes "[Sister Cecilia]";
+			mes "But please...";
+			mes "Take your time, and decide what job will be the best for you.";
+		}
+		else {
+			if (sex)
+				mes "May god bless you, brother.";
+			else
+				mes "May god bless you, sister.";
+			mes "Welcome to Prontera parish. How may I help you?";
 			next;
-			mes "[Father Thomas]";
-			mes "I believe with your power, you can overcome this task easily...";
-			mes "But if you work with a Priest, i think you will learn more and do a lot better.";
+			if (select("Tell me more about Priests.:Nothing.") == 1) {
+				mes "[Sister Cecilia]";
+				mes "Messengers of God are usually known as Priests. After becoming an Acolyte, you can train with the goal of becoming a Priest.";
+				next;
+				mes "[Sister Cecilia]";
+				mes "Servants of God are prohibited to use weapons based on blades. For us, the meaning of battle with monsters is not in the killing, but in the enlightening of their souls.";
+				if (BaseJob == Job_Acolyte) {
+					next;
+					mes "[Sister Cecilia]";
+					mes "Well, it will be better that you meet Priests for yourself and speak with them. If you are ready to become a Priest, speak with Bishop Paul in this room.";
+					next;
+					mes "[Sister Cecilia]";
+					mes "I believe he can give you specific requirement information about the Priest class. Yes, I think it's a good idea.";
+					next;
+				}
+			}
+			mes "[Sister Cecilia]";
+			mes "I see. Well, feel free to relax and make yourself at home. Nowhere on earth is safer than the Prontera Sanctuary.";
 			next;
-			mes "[Father Thomas]";
-			set PRIEST_Q, 2;
-			set JBLVL, 50;
-			goto L_Test2;
-	M_2b:
-		mes "[Father Thomas]";
-		mes "Priests are also followers of God.  They are highly trained and are much more powerful than Acolytes.";
+			mes "[Sister Cecilia]";
+			mes "May God bless you...";
+			close;
+		}
+	}
+	if (PRIEST_Q == 0) {
+		if (sex)
+			mes "May God bless you, brother.";
+		else
+			mes "May God bless you, sister.";
+		mes "May I ask what brings you here?";
 		next;
-		mes "[Father Thomas]";
-		mes "To become a priest, you must have at least a job lvl 40.  You will then have to pass a series of tests in order to prove yourself.";
+		switch(select("I wish to become a Priest.:Nothing.")) {
+		case 1:
+			mes "[Sister Cecilia]";
+			mes "I see. You've devoted yourself to God. Many Acolytes wish to become Priests to continue on their personal journey towards holiness.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "Let me introduce myself. I am Cecilia Margarita, and I am in charge of part of the Priest job change process.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "I've been supporting many people in becoming Priests ever since I joined the Prontera Parish. That is one of my main responsibilities.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "In order to become a Priest, you must complete 3 trials. A pilgrimage, a session of spiritual training, and an oath of devotion to God.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "If you wish to become a servant of God, please apply for the Priest job with Bishop Paul, and complete all 3 trials.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "If you experience a problem during any of your trials, feel free to visit me. I will help you as much as I can.";
+			break;
+		case 2:
+			mes "[Sister Cecilia]";
+			mes "Make yourself at home. I insist that you recover and take a rest in this Sanctuary. May God bless you...";
+			close;
+			break;
+		}
+	}
+	else if (PRIEST_Q == 1) {
+		mes "Ah, you've started your pilgrimage. Please do your best to accomplish this first trial.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "The first Priest you must meet is Father Rubalkabara. He is in the ruins Northeast of Prontera.";
 		next;
-		mes "[Father Thomas]";
-		mes "If you become a Priest, you will become very important to evey other job class.";
+		mes "[Sister Cecilia]";
+		mes "Travel one field North from Prontera, and then three fields East, and you will arrive at the ruins.";
 		next;
-		mes "[Father Thomas]";
-		mes "You must NEVER help someone for any sort of profit or self gain.  To be a Priest is to be selfless.";
+		mes "[Sister Cecilia]";
+		mes "Of course, you can also head 1 field East from Prontera, then go 1 field north, and then go 2 fields East...";
 		next;
-		mes "[Father Thomas]";
-		mes "We Priest have only one objective, and that is to help others...";
+		mes "[Sister Cecilia]";
+		mes "Father Rubalkabara will be at the entrance of the Prontera Ruins. Be careful. That place is a habitat for aggressive Chocos.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "After meeting Father Rubalkabara, please visit Sister Mathilda and Father Yosuke. You can check your quest progress with me if you have any questions later.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "Well then, have a good journey. Please don't give up to short lived tribulations, and I hope that you accomplish your goals.";
 		close;
-	M_2End:
-		mes "[Father Thomas]";
-		mes "Oh is that the case?... Well I'm fine thank you.";
-		mes "Please don't forget your duties as an Acolyte, and be carefull not to stray off the path to salvation.";
+	}
+	else if (PRIEST_Q == 2) {
+		mes "Oh, you've met Father Rubalkabara. Now it's time for you to visit Sister Mathilda. She is near a town named Morroc.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "She has been training her religious discipline somewhere in a field North of Morroc. If you look around that field, you will be able to find her.";
 		next;
-		mes "[Father Thomas]";
-		mes "I hope you will visit again soon, and please tell me how the other Acolytes are doing.  May God be by your side...";
+		mes "[Sister Cecilia]";
+		mes "Of course, sometimes I want to devote myself to training like those other Priests, but I have my duty to assist those Acolytes applying for the Priest job.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "But I believe this is God's will, and that this is the work he has intended me to do as his servant. Have a safe journey, and come back safely.";
 		close;
-
-
-
-L_Test1:
-	if (PRIEST_Q2 == 1) goto L_NotDone1a;
-	if (PRIEST_Q2 == 2) goto L_NotDone1b;
-	if (PRIEST_Q2 == 3) goto L_NotDone1c;
-	if (PRIEST_Q2 == 4) goto L_Done1;
-	mes "Okay, let me tell you what you have to do for the first task.";
-	next;
-	mes "[Father Thomas]";
-	mes "First you will have to find ^5533FFFather Rubalkubara^000000, he is located 1 map North and 2 maps East of Prontera, near St. Capitolina Abbey.";
-	next;
-	mes "[Father Thomas]";
-	mes "Next you will have to find ^5533FFMother Matilda^000000.  She is located somewhere 1 map North of Morroc.";
-	next;
-	mes "[Father Thomas]";
-	mes "Last but not least, you will have to find ^5533FFFather Yosuke^000000.";
-	mes "I heard that Father Yosuke is often seen on an tiny island 2 maps West and 1 map North of Prontera.";
-	next;
-	mes "[Father Thomas]";
-	mes "Please becareful on your journey. If you have any questions you may speak with me again.";
-	mes "Remeber to check back with me when you have completed the first task.";
-	next;
-	mes "[Father Thomas]";
-	mes "May God Be with you...";
-	set PRIEST_Q, 1;
-	set PRIEST_Q2, 1;
-	close;
-
-	L_NotDone1a:
-		mes "What? Why are you still here? Did you forget the first task?";
+	}
+	else if (PRIEST_Q == 3) {
+		mes "Now, the final Priest that you must meet is Father Yosuke. I've heard that he is training near a lake located Northwest of Prontera.";
 		next;
-		menu "Yes, can you please tell me about the first task again?",sM_3a, "NO! how can I forget.",sM_3End;
-
-		sM_3a:
-			mes "[Father Thomas]";
-			mes "Hmm... if you're having trouble with this task, I fear that you will have an even harder time with the others....";
+		mes "[Sister Cecilia]";
+		mes "From Prontera, travel one field North, and then two fields towards the West. You may also travel two fields West first, and then travel one field to the North.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "Although there are still two trials awaiting you, I have faith that you will be able to accomplish your goal of becoming a Priest...";
+		close;
+	}
+	else if (PRIEST_Q == 4) {
+		mes "Welcome. You demonstrated great effort to accomplish your first trial. Now, speak to Bishop Paul so that you can begin your next trial on your path to Priesthood.";
+		next;
+		mes "[Sister Cecilia]";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +"...";
+		else
+			mes "Sister "+ strcharinfo(0) +"...";
+		mes "The spiritual training is much more difficult than the pilgrimage, but I believe in you.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "I hope that you find someone who has already become a Priest to help during the spiritual training. Good luck, and have faith.";
+		close;
+	}
+	else if (PRIEST_Q == 5) {
+		mes "Oh, you haven't finished the spiritual training yet?";
+		next;
+		mes "[Sister Cecilia]";
+		mes "I cannot let you know the specific details, but as long as you believe in yourself and have faith in all that is good, you will succeed.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "Please speak to Father Peter in the test hall for more details. He is a close friend of Bishop Paul and may give you some useful tips for the spiritual training.";
+		close;
+	}
+	else if (PRIEST_Q == 6) {
+		mes "Yes, I understand that you've been through a really difficult situation. However, do not give up and succumb to temptation. You must be able to resist evil to become a Priest.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "If you know somebody who has already become a Priest, ask them to help you during your spiritual training.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "May God give you guidance and protection. When you complete your training, please come back to me.";
+		close;
+	}
+	else if (PRIEST_Q == 7) {
+		mes "Welcome! I'm so glad to see you've come back! Now, there is one last trial left for you to complete.";
+		next;
+L_AskQuestions:
+		mes "[Sister Cecilia]";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +"...";
+		else
+			mes "Sister "+ strcharinfo(0) +"...";
+		mes "We will now begin your formal oath for the Priesthood. Make yourself comfortable, and just answer with your heart.";
+		next;
+		mes "[Sister Cecilia]";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +",";
+		else
+			mes "Sister "+ strcharinfo(0) +",";
+		mes "Are you willing";
+		mes "to give your life to God?";
+		next;
+		if (select("Yes.:No!") == 2) {
+			mes "[Sister Cecilia]";
+			mes "Aw...? How could you give me that kind of answer? I assume you're not ready to be a Priest yet...";
 			next;
-			mes "[Father Thomas]";
-			mes "Please visit ^5533FFFather Rubalkubara^000000.  He is located 1 map North and 2 maps East of Prontera near St. Capitolina Abbey.";
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "You should reflect a little more on the teachings of holiness and come back later. You can't be a Priest if your spirit is weak.";
 			close;
-
-		sM_3End:
-			mes "[Father Thomas]";
-			mes "Oh if you have any questions, please speak with Sister Cecila near the entrance.";
+		}
+		mes "[Sister Cecilia]";
+		mes "Will you take advantage of the holy abilities given by God for selfish, destructive or greedy ends?";
+		next;
+		if (select("Yes.:No.") == 1) {
+			mes "[Sister Cecilia]";
+			mes "Aw...? God won't grant you the power of holiness if your goals aren't just and pure. Meditate on your motivations for a while, and then come back to me.";
+			next;
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Think about the qualities that make Priests people of respect. You can't be a Priest if your spirit is not in accordance with God.";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		mes "Will you help aid others, even complete strangers, in battles by easing their suffering?";
+		next;
+		if (select("Yes.:No.") == 2) {
+			mes "[Sister Cecilia]";
+			mes "No, no. You've got the wrong idea. God authorizes us to use his power to support his children. You must help people in danger: it is your obligation.";
+			next;
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Go and observe the adventurers that are fighting for peace in this world. They will teach you what you must do in order to help them.";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		mes "Are you willing to sacrifice yourself for the sake of others?";
+		next;
+		if (select("Yes.:No.") == 2) {
+			mes "[Sister Cecilia]";
+			mes "How can you say no...? That's one of the basic principles of Priesthood. You must value the welfare of others over your own safety.";
+			next;
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Go and think about the value of suffering and the meaning of sacrifice. When you think you understand more about helping those in need, come back to me.";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		mes "Will you repeatly say the same phrase in public in order to send God's message to his children?";
+		next;
+		if (select("Yes.:No.") == 1) {
+			mes "[Sister Cecilia]";
+			mes "No no no... You've got it wrong. Even though your purpose is to spread God's message, no one will eagerly accept what you say when you spam text.";
 			next;
-			mes "[Father Thomas]";
-			mes "Please hurry and becareful on your journey.  May the lord look down and smile upon you....";
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Remember...";
+			mes "You must be a moral person, and display maturity and respect to other players. This kind of attitude applies for all classes,";
+			mes "I believe.";
 			close;
-	L_NotDone1b:
-		mes "Hmmm??";
-		emotion e_what;
+		}
+		mes "[Sister Cecilia]";
+		mes "Will you lure many monsters to help your party members level up?";
 		next;
-		mes "[Father Thomas]";
-		mes "Have you gone to see ^5533FFMother Marthilda^000000 yet?  She can be found near Morroc in the Sogart Desert.";
-		mes "Even though Morroc is far away, I know you will be able to find her.";
+		if (select("Yes.:No.") == 1) {
+			mes "[Sister Cecilia]";
+			mes "No, you won't. Luring many monsters does more harm than good. There is no exception. That behavior is totally unacceptable.";
+			next;
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Even if it looks like you are aiding your party members, such action results in bad karma. Please reflect on that for a while.";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		mes "Will you follow God, no matter what it takes, even if he demands you to kill yourself?";
+		next;
+		if (select("Yes.:No.") == 2) {
+			mes "[Sister Cecilia]";
+			mes "With that spirit, you can't be a Priest. If it is God's will to sacrifice yourself for a good purpose, you must carry out God's will as his servant.";
+			next;
+			set PRIEST_Q,8;
+			mes "[Sister Cecilia]";
+			mes "Besides, God has also given Priests the resurrection power. Think about the meaning of life and death again, and then come back to me.";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +"...";
+		else
+			mes "Sister "+ strcharinfo(0) +"...";
+		mes "You have demonstrated your devotion to God. Will you swear to adhere to his teachings for the rest of your days?";
+		next;
+		if (select("I do.:No.") == 1) {
+			set PRIEST_Q,9;
+			mes "[Sister Cecilia]";
+			mes "Now, you have completed your oath of Priesthood and accomplished all three trials required to become a Priest.";
+			next;
+			mes "[Sister Cecilia]";
+			mes "Now go to Bishop Paul. And remember, we are all brothers and sisters in the eyes of God. Peace be with you...";
+			close;
+		}
+		mes "[Sister Cecilia]";
+		mes "...";
+		next;
+		mes "[Sister Cecilia]";
+		mes "...";
+		mes "......";
+		next;
+		set PRIEST_Q,8;
+		mes "[Sister Cecilia]";
+		mes "You've come so far...";
+		mes "Why would you want";
+		mes "to throw this all away...?";
 		close;
-		
-	L_NotDone1c:
-		mes "Have you seen Mother Marthilda in Morroc? In that case you must now go see ^5533FFFather Yosuke^000000.";
-		mes "He is located on tiny island 2 maps West and 1 map North of Prontera.  You must go and speak with him!.";
+	}
+	else if (PRIEST_Q == 8) {
+		mes "...";
+		next;
+		mes "[Sister Cecilia]";
+		mes "Welcome back.";
+		mes "I hope that you've reflected on what you've said last time, and that you now have the attitude to become a Priest.";
+		next;
+		goto L_AskQuestions;
+	}
+	else if (PRIEST_Q == 9) {
+		mes "Congratulations.";
+		mes "You've completed all three trials required for the Priesthood. Bishop Paul is now waiting for you.";
+		next;
+		mes "[Sister Cecilia]";
+		mes "Peace be with you...";
 		close;
-		
-	L_Done1:
-		mes "So you spoken with all of the Clerics? Good job, you just completed the first task.";
-		next;
-		mes "[Father Thomas]";
-		mes "Now lets start the second task.  Be prepared to face great evils.. If you want, you can ask a Priest to assist you with this test.";
-		set PRIEST_Q, 2;
-		set PRIEST_Q2, 0;
-		next;
-		mes "[Father Thomas]";
-
-L_Test2:
-	if(PRIEST_Q2 == 1) goto L_ReTest2;
-	if(PRIEST_Q2 == 2) goto L_Done2;
-	mes "So are you ready to start the second task?";
-	M_Menu:
-	next;
-	menu "Yes, lets start.",M_4a, "Let me get ready, i'll be back later.",M_4End;
-                                             	            
-	M_4a:
-		mes "[Father Thomas]";
-		mes "Very well.  Let me send you to ^5544FFFather Peter^000000. Once there speak to him about the second task.";
-		next;
-		set PRIEST_Q2, 1;
-		warp "job_prist", 24, 180;
-		savepoint "prt_church", 16, 37;
+	}
+}
+
+// 2nd Test
+//==========================================================
+job_prist,24,187,4	script	Peter S. Alberto	110,{
+	mes "[Father Peter]";
+	if (BaseJob == Job_Priest) {
+		mes "Welcome!";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +"!";
+		else
+			mes "Sister "+ strcharinfo(0) +"!";
+		mes "So good to see you again!";
+		next;
+		mes "[Father Peter]";
+		mes "Are you here to help an Acolyte friend for the spiritual training? That's great~ I think you'll do a good job.";
+		next;
+		mes "[Father Peter]";
+		mes "Remember, no matter how much you want to help this Acolyte, this is not your quest.";
+		next;
+		mes "[Father Peter]";
+		mes "You may assist and lighten your friend's burden, but you take upon this task for yourself.";
+		next;
+		mes "[Father Peter]";
+		mes "So...";
+		mes "Are you gonna help him right now?";
+		next;
+		switch(select("Yes, I am.:Give me a minute.:I changed my mind.")) {
+		case 1:
+			mes "[Father Peter]";
+			mes "Go for it! As your Acolyte enters, the test will begin. Now, I will send you to the testing area.";
+			close2;
+			warp "job_prist",24,44;
+			end;
+		case 2:
+			mes "[Father Peter]";
+			mes "Hm...?";
+			mes "What for?";
+			mes "Well, so long as you arrive in time to help your friend, it will be okay.";
+			close;
+		case 3:
+			mes "[Father Peter]";
+			mes "Oh...?";
+			mes "Then please,";
+			mes "go ahead. God bless";
+			mes "you, and take care!";
+			close2;
+			warp "prontera",234,318;
+			end;
+		}
+	}
+	if (PRIEST_Q == 5) {
+		mes "Welcome~!";
+		mes "I congratulate you";
+		mes "for passing the first trail.";
+		next;
+		mes "[Father Peter]";
+		mes "My name is";
+		mes "Peter S. Alberto.";
+		mes "How is my buddy Paul?";
+		mes "Is he doing alright";
+		mes "these days?";
+		next;
+		mes "[Father Peter]";
+		mes "Oh, I keep forgetting that he was promoted to Bishop. I think I'm supposed to call him Bishop Paul, or 'His Excellency.' Haha~";
+		next;
+		mes "[Father Peter]";
+		mes "Anyway, let me give you a brief explanation of the spiritual training. Are you familiar with what the spiritual training is for Priests?";
+		next;
+		switch(select("Yes, I do.:Sorry...")) {
+		case 1:
+			mes "[Father Peter]";
+			mes "Haha, I like you! But it never hurts to have too much information. The more well informed you are, the more easily you'll pass the test!";
+			next;
+			break;
+		case 2:
+			mes "[Father Peter]";
+			mes "Oh, no need to be sorry. I'm here to give you the information you need anyway. So, don't worry.";
+			next;
+			break;
+		}
+		mes "[Father Peter]";
+		mes "In spiritual training, you will be defeating evil creatures. Creatures of the Undead and Demons are all evil. In choosing to serve darkness, they are our enemies!";
+		next;
+		mes "[Father Peter]";
+		mes "There are too many evil creatures that roam this world against the will of God. Innocents suffer as a result of their malignance.";
+		next;
+		mes "[Father Peter]";
+		mes "We, as Priests, are obligated to exterminate all those creatures, thus spreading love and peace.";
+		next;
+		mes "[Father Peter]";
+		mes "This training will test your ability to eliminate evil. Since this trial is pretty difficult to be accomplished by yourself,";
+		mes "I recommend getting help from a Priest if you can.";
+		next;
+		mes "[Father Peter]";
+		mes "If you are close to a Priest, you'd better ask him to assist you during this trial. Now, are you ready?";
+		next;
+		switch(select("I'm ready.:Please hold on.:I want to go back.")) {
+		case 1:
+			mes "[Father Peter]";
+			mes "Now, let the spiritual training begin. It's simple. Just kill them all. Show no mercy to the creatures of darkness!";
+			next;
+			mes "[Father Peter]";
+			mes "Now...";
+			mes "Go for it!";
+			close2;
+			warp "job_prist",24,44;
+			donpcevent "Zombie_Generator#prst::OnEnable";
+			donpcevent "Peter S. Alberto::OnDisable";
+			donpcevent "Peter S. Alberto#2::OnEnable";
+			end;
+		case 2:
+			set PRIEST_Q,6;
+			mes "[Father Peter]";
+			mes "Hm? What is it you need?";
+			mes "Well, no problem. You can";
+			mes "afford to take your time.";
+			close;
+		case 3:
+			set PRIEST_Q,6;
+			mes "[Father Peter]";
+			mes "What...?";
+			mes "You wanna go back??";
+			next;
+			mes "[Father Peter]";
+			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 if (PRIEST_Q == 6) {
+		mes "Are you ready this time?";
+		mes "Complete this trial quickly,";
+		mes "and become a Priest!";
+		next;
+		mes "[Father Peter]";
+		mes "Are you ready then?";
+		next;
+		switch(select("I'm ready.:Please hold on.:I want to go back.")) {
+		case 1:
+			mes "[Father Peter]";
+			mes "Now, let the spiritual training begin. For the glory of God, for peace on earth, and goodwill towards all men...";
+			next;
+			mes "[Father Peter]";
+			mes "Go...";
+			mes "Kill those";
+			mes "misbegotten creatures!";
+			close2;
+			warp "job_prist",24,44;
+			donpcevent "Zombie_Generator#prst::OnEnable";
+			donpcevent "Peter S. Alberto::OnDisable";
+			donpcevent "Peter S. Alberto#2::OnEnable";
+			end;
+		case 2:
+			mes "[Father Peter]";
+			mes "Hm? What is it you need?";
+			mes "Well, no problem. You can";
+			mes "afford to take your time.";
+			close;
+		case 3:
+			mes "[Father Peter]";
+			mes "What...?";
+			mes "You wanna go back??";
+			next;
+			mes "[Father Peter]";
+			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;
-		
-	M_4End:
-		mes "[Father Thomas]";
-		mes "Okay, please get ready and come back soon.  I hope you will be able to make it through the trials without many problems.";
-		close;
+	}
+
+OnEnable:
+	enablenpc "Peter S. Alberto";
+	end;
+
+OnDisable:
+	disablenpc "Peter S. Alberto";
+	end;
+}
 
-	L_ReTest2:
-		mes "You look really tired... but guess what, you'll be even more tired when you've become a Priest.";
-		mes "Please don't give up.  Do you want to try the task again?";
-		goto M_Menu;
-		
-	L_Done2:
-		mes "Great job.  If have endured all of the trials and have passed the second test.";
-		mes "If you can pass the last test, I trully belive that you will be one of the best Priests ever!";
-		next;
-		mes "[Father Thomas]";
-		mes "Now, for the final test, please go speak with ^5533FFSister Cecile^000000.  Once you have passed it come see me.";
-		next;
-		mes "[Father Thomas]";
-		mes "I'll be waiting here.  Good luck my child.";
-		set PRIEST_Q, 3;
-		set PRIEST_Q2, 0;
+job_prist,23,187,1	script	Peter S. Alberto#2	110,{
+	mes "[Father Peter]";
+	if (BaseJob == Job_Priest) {
+		mes "Welcome!";
+		if (sex)
+			mes "Brother "+ strcharinfo(0) +"!";
+		else
+			mes "Sister "+ strcharinfo(0) +"!";
+		mes "So good to see you!";
+		next;
+		mes "[Father Peter]";
+		mes "Are you here to help an Acolyte friend for the spiritual training? That's great~ I think you'll do a good job.";
+		next;
+		mes "[Father Peter]";
+		mes "Well, another Acolyte is in the training ground right now. You'll need to wait a little bit longer...";
+		next;
+		mes "[Father Peter]";
+		mes "Please come back a little later. If this acolyte's done with the training, I will send you to the training area.";
+		close;
+	}
+	if (PRIEST_Q == 5) {
+		mes "Please hold on for a while. Another acolyte is in the training ground right now.";
+		next;
+		mes "[Father Peter]";
+		mes "If you want to take the test, please wait a while and talk to me again.";
 		close;
+	}
+	else if (PRIEST_Q == 6) {
+		mes "Please hold on for a while. Another acolyte is in the training ground right now.";
+		next;
+		mes "[Father Peter]";
+		mes "If you want to take the test, please wait a while and talk to me again.";
+		close;
+	}
+	else {
+		mes "Peace...";
+		mes "Be with you.";
+		close2;
+		warp "prontera",234,318;
+		end;
+	}
 
-L_Test3:
-	mes "Go speak with ^5533FFSister Cecile^000000 and complete the last test.";
-	next;
-	mes "[Father Thomas]";
-	mes "Good luck.  I'll be waiting to hear the good news..";
-	close;
+OnInit:
+	disablenpc "Peter S. Alberto#2";
+	end;
 
+OnEnable:
+	enablenpc "Peter S. Alberto#2";
+	end;
 
-L_Change:
-	if (SkillPoint > 0) mes "Wait.  You must use up your skill points in order to become a Priest.";
-	if (SkillPoint > 0) close;
-	mes "Congratulations! You have just completed all of the tests.  I can now turn you into a Priest.";
-	emotion e_no1;
-	next;
-	mes "[Father Thomas]";
-	mes "God, please endow "+strcharinfo(0)+" with the strength and courage to fight evil and help mankind.";
-	next;
-	callfunc "Job_Change",Job_Priest;
-	mes "[Father Thomas]";
-	mes "You are now a Priest.  As a Priest, you can now help a lot of people in the name of God.";
-	next;
-	if (JBLVL != 50) getitem 1550, 1;
-	if (JBLVL == 50) getitem 1551, 1;
-	callfunc "F_ClearJobVar";		// clears all job variables for the current player
-	mes "[Father Thomas]";
-	mes "Here, take this book as a reward for successfully completing the tests.  This book will help you understand more about God.";
-	next;
-	mes "[Father Thomas]";
-	mes "I hope you can help serve as a role model for young Acolytes all over Rune Midgard.";
-	mes "Please be a good Priest and help bring peace to this world!";
-	close;
+OnDisable:
+	disablenpc "Peter S. Alberto#2";
+	end;
 }
 
+-	script	Zombie_Generator#prst	110,{
+OnInit:
+	disablenpc "Zombie_Generator#prst";
+	end;
 
-//----------------------------------------------------------------------------------------------------------------------------------------------------------\\
-//					Test 1					              \\
-//********************************************************************************************************************************\\
-// Function: Father Rubalkabara --------------------------------------------------------------------------
-function	script	F_FatherRub	{
-	if(PRIEST_Q == 1 && PRIEST_Q2==1) goto L_Test;
-	if(PRIEST_Q==1 && PRIEST_Q2 > 1) goto L_Done;
-	mes "It's good to see you again.  I expect all is well? Continue on your path of helping others and serving God, and let us pray for humanities salvation.";
-	close;
+OnEnable:
+	donpcevent "Zombie1_1::OnEnable";
+	donpcevent "Zombie2_1::OnEnable";
+	donpcevent "Zombie3_1::OnEnable";
+	donpcevent "Zombie4_1::OnEnable";
+	donpcevent "Zombie5_1::OnEnable";
+	initnpctimer;
+	end;
 
-L_Test:
-	mes "Ah hello there....";
-	next;
-	mes "[Father Rubalkabara]";
-	mes "What's this? You're here because you wish to serve God in an even greater capacity?";
-	emotion e_what;
-	next;
-	menu "Yes, I believe Priesthood is the right path.",-, "No, not really.... just came to say hi.",M_No;
-
-		mes "[Father Rubalkabara]";
-		mes "Haha! Very good.  We need more people like yourself in order for this world to survive the evils that haunt it.";
-		emotion e_no1;
-		next;
-		mes "[Father Rubalkabara]";
-		mes "Because of your pure heart I will give you my blessing child.  Please meet with ^5533FFMother Marthilda^000000 next.";
-		next;
-		mes "[Father Rubalkabara]";
-		mes "You can find her in the map just north of the town of Morroc.  Have a safe journey and good luck on becoming a Priest.";
-		set PRIEST_Q2, 2;
-		close;
-	M_No:
-		mes "[Father Rubalkabara]";
-		mes "Oh... well then... hello to you too.  Although it is nice to see a servant of God such as yourself, I'm a little busy right now so if you don't mind.....";
-		emotion e_swt;
-		close;
+Onm1:
+	set .MyMobs,13;
+	monster "job_prist",24,52,"Theft",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",18,52,"Want of Virtue",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",30,52,"Jealousy",1015,1,"Z_C#prst::OnMyMobDead";
+	end;
 
-L_Done:
-	mes "Please see ^5533FFMother Marthilda^000000 next.  Good luck with your journey to becoming a Priest";
-	close;
-}
+Onm2:
+	monster "job_prist",21,62,"Fury",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",27,62,"Envy",1015,1,"Z_C#prst::OnMyMobDead";
+	end;
 
-// Function: Mother Marthilda  --------------------------------------------------------------------------
-function	script	F_MotherMart	{
+Onm3:
+	monster "job_prist",24,72,"Arrogance",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",18,72,"Lewdness",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",30,72,"Sloth",1015,1,"Z_C#prst::OnMyMobDead";
+	end;
 
-	if(PRIEST_Q==1 && PRIEST_Q2==2) goto L_Test;
-	if(PRIEST_Q==1 && PRIEST_Q2 > 2) goto L_Done;
-	mes "Oh my... It's been a while since I've seen you.  My how you've grown.  It's nice to see one of God servants continuing to improve.";
-	mes "I wish you continued success child, and always remember to have faith.";
-	close;
+Onm4:
+	monster "job_prist",21,82,"Gluttony",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",27,82,"Greed",1015,1,"Z_C#prst::OnMyMobDead";
+	end;
 
-L_Test:
-	mes "Ah, you're here for the Priest test aren't you?  I must say, you did a very good job in comming all this way.";
-	next;
-	mes "[Mother Marthilda]";
-	mes "That shows that you have true faith! It is my pleasure to allow you to continue on with your test.";
-	next;
-	mes "[Mother Marthilda]";
-	mes "You must now go see ^5533FFFather Yosuke^000000.  He is 1 map North and 2 maps West of Prontera.  I'm sure you will make a fine Priest!";
-	set PRIEST_Q2, 3;
-	close;
+Onm5:
+	monster "job_prist",24,92,"Despair",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",18,92,"Distrust",1015,1,"Z_C#prst::OnMyMobDead";
+	monster "job_prist",30,92,"Fear",1015,1,"Z_C#prst::OnMyMobDead";
+	end;
 
-L_Done:
-	mes "To complete your task you must go find ^5533FFFather Yosuke^000000.  Please be carefull and remeber to pray.";
-	close;
-}
+OnDisable:
+	disablenpc "Zombie_Generator#prst";
+	killmonsterall "job_prist";
+	end;
 
-// Function: Father Yosuke --------------------------------------------------------------------------
-function	script	F_FatherYos	{
+OnTimer300000:
+	areawarp "job_prist",8,34,39,109,"prontera",234,318;
+	end;
 
-	if(PRIEST_Q==1 && PRIEST_Q2==3) goto L_Test;
-	if(PRIEST_Q==1 && PRIEST_Q2==4) goto L_Done;
-	mes "Just because you're a servant of God doesn't mean you can come here and bother me.  Please leave...";
-	close;
+OnTimer300500:
+	donpcevent "Zombie_Generator#prst::OnDisable";
+	end;
 
-L_Test:
-	mes "Hmm...? Did you need something? Oh the Priest test..... are you sure you're up for that?";
-	emotion e_what;
-	next;
-	mes "[Father Yosuke]";
-	mes "Meh, very well.  I will let you pass.  Go back to the church and speak with Father Thomas.  Your duty here as been fulfilled";
-	set PRIEST_Q2, 4;
-	close;
+OnTimer301500:
+	donpcevent "Zombie_Generator#prst::OnDisable";
+	donpcevent "Peter S. Alberto#2::OnDisable";
+	donpcevent "Peter S. Alberto::OnEnable";
+	end;
 
-L_Done:
-	mes "Ugh? What are you still doing here...? I said to go back to the church.... I'm very busy right now....";
-	emotion e_what;
-	close;
+OnTimer302000:
+	stopnpctimer;
+	end;
 }
 
+-	script	Z_C#prst	-1,{
+	end;
 
-//**********************************************************************************************************************************************************************************\\
-//================================================== Father Peter: Test 2 ====================================================\\
-//**********************************************************************************************************************************************************************************\\
-job_prist,24,186,4	script	Father Peter	110,{
-
-L_Start:
-	mes "[Father Peter]";
-	mes "God bless you!! Welcome back!";
-	mes "First i want to congratulated you for passing the first level.";
-	next;
-	mes "[Father Peter]";
-	mes "My name is Peter.";
-	mes "Hows, Thomas these days?";
-	next;
-	mes "[Father Peter]";
-	mes "Oh, so he's a father now eh? hahah...";
-	mes "I think i should call him Father Thomas!";
-	next;
-	mes "[Father Peter]";
-	mes "So you know why your here right?  Your next test will be to overcome a series of trials involving the darkest of evils.";
-	mes "Do you understand what this means?";
-	next;
-	menu "Yes, I do.",-, "No, I don't quite know it..?",M_1b;
+OnMyMobDead:
+	set getvariableofnpc(.MyMobs,"Zombie_Generator#prst"),getvariableofnpc(.MyMobs,"Zombie_Generator#prst") - 1;
+	end;
+}
 
+job_prist,24,44,0	script	Zombie Info	-1,1,1,{
+OnTouch:
+	if (BaseJob == Job_Priest) {
 		mes "[Father Peter]";
-		mes "Wow, your' pretty smart, but i think its better for you to listen to the things i got to say.";
-		mes "heheh!";
-		goto L_Cont;
-	M_1b:
-		mes "[Father Peter]";
-		mes "Oh, is that so, i think i'll need to explain it to you.";
-		mes "After listening to what i have to say, i think you'll understand.";
-
-	L_Cont:
-	next;
-	mes "[Father Peter]";
-	mes "What is overcoming evil? its basically destroying it.";
-	mes "What is evil? its basically devil, ghosts etc...";
-	next;
-	mes "[Father Peter]";
-	mes "There's a lot of evil in this world.";
-	mes "The evil usually tease people that prey to God.";
-	next;
-	mes "[Father Peter]";
-	mes "We priests are supposed to get rid of all the evil!";
-	mes "thats the only way we can bring peace to this world!";
-	next;
-	mes "[Father Peter]";
-	mes "If you are trully dedicated, then these trials should not pose that great of a challenge.";
-	mes "Even so, I you feel it necessary you may ask a Priest to assist you in this test.";
-	next;
-	mes "[Father Peter]";
-	mes "Well, can we start now?";
-	M_Menu:
-	next;
-	menu "Yes.",M_2a, "Wait a minute.",M_2b, "I want to go back to town.",M_2c;
-
-	M_2a:
+		mes "When the Priest applicant enters, 5 minutes will be given to complete this trial. Proceed slowly and help your Acolyte.";
+		next;
 		mes "[Father Peter]";
-		mes "Okay, just enter the waiting room.";
-		close;
-
-	M_2b:
+		mes "Enter through the warp at the end of the hall, where you will be lead to the next test hall.";
+		next;
 		mes "[Father Peter]";
-		mes "Oh you need to get ready eh?";
-		mes "No problem you can start the quest when your ready.";
+		mes "Remember...";
+		mes "This trial must be";
+		mes "completed within";
+		mes "5 minutes. Best of luck~";
 		close;
-	M_2c:
+	}
+	else if (BaseJob == Job_Acolyte){
 		mes "[Father Peter]";
-		mes "What? you want to go back? but you just arrived?";
-		mes ".....";
+		mes "I will give you exactly 5 minutes! You must proceed slowly and eliminate the Zombies.";
 		next;
 		mes "[Father Peter]";
-		mes "Maybe because its your first time thats why your scared.";
-		mes "You can come back when you get more courage.";
-		next;
-		warp "prt_church", 16, 37;
+		mes "Slay all the zombies and go through the warp at the end of the hall. Make sure that you kill them all.";
 		close;
-
-OnInit:
-	waitingroom "Priest Test Waiting Room",8,"Father Peter::OnStart",1;
-	end;
-OnStart:
-	set $@PrstUsers, getareausers("job_prist", 8, 34, 39,109);
-	set $@PrstUsers, $@PrstUsers + getareausers("job_prist", 160, 14, 175, 178);
-	set $@PrstUsers, $@PrstUsers + getareausers("job_prist", 90, 34, 105,105);
-	if($@PrstUsers > 0) end;				// stops the rest of the script from running if there is already another player taking the test
-
-	if((getwaitingroomstate(33)) == 0) end;			// stops the rest of the script from running if there is no one in the waiting room
-	disablenpc "prst1_1";	//disables the exit warp
-	disablenpc "prst2_1";
-	warpwaitingpc "job_prist", 24, 44;
-	killmonsterall "job_prist";
-	donpcevent "PrstTest2_1::OnStart";
+	}
 	end;
 }
 
-
-//----------------------------------------------------------------------------------------------------------------------------------------------------------\\
-//				Test 2, Part 1: Kill the Zombies				              \\
-//********************************************************************************************************************************\\
-job_prist,1,1,1	script	PrstTest2_1	-1,{
-
-OnStart:
-	set $@PrstRm, 1;		//used to determine what areawarp and areaannounce to use
-	enablenpc "Zombie1_Trig";
-	enablenpc "Zombie2_Trig";
-	enablenpc "Zombie3_Trig";
-	enablenpc "Zombie4_Trig";
-	enablenpc "Zombie5_Trig";
-	set $@mob, 13;
-	initnpctimer;
+job_prist,24,52,0	script	Zombie1_1	-1,14,1,{
+OnInit:
+	disablenpc "Zombie1_1";
 	end;
 
-OnMobDead:
-	set $@mob, $@mob - 1;
-	if($@mob > 0) end;
-
-	enablenpc "prst1_1";
-	areaannounce "job_prist",8,34,39,109,"[Father Peter]: Well done my child.  Enter the warp to start the next test.",8;
-	initnpctimer "prst1_1";		//starts a 30 sec timer.  this will warp the player even if they don't enter the warp to keep the test going
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Zombie_Generator#prst::Onm1";
+		donpcevent "Zombie1_1::OnDisable";
+	}
 	end;
 
-OnTimer500:
-	areaannounce "job_prist",8,34,39,109,"[Father Peter]: In order to pass this trial, you will have to kill all of the zomibes that appear.",8;
-	end;
-OnTimer2500:
-	stopnpctimer;
-	initnpctimer "TimerPrst";		// starts the 5 min test timer
-	areaannounce "job_prist",8,34,39,109,"[Father Peter]: Move slowly and take your time.",8;
+OnEnable:
+	enablenpc "Zombie1_1";
 	end;
-}
 
-// These hidden warps spawn the monsters when you walk
-// First set  of Zombies------------------------------------------------------------
-job_prist,23,52,1	script	Zombie1_Trig	139,16,0,{
-
-	monster "job_prist",24,52,"Robbery",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",18,52,"Evilness",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",30,52,"Jealousy",1015,1,"PrstTest2_1::OnMobDead";
-	disablenpc "Zombie1_Trig";		//disables the npc so that it can't spawn the monsters more than once
+OnDisable:
+	disablenpc "Zombie1_1";
 	end;
 }
 
-// Second set  of Zombies----------------------------------------------------
-job_prist,23,62,1	script	Zombie2_Trig	139,16,0,{
-
-	monster "job_prist",21,62,"Anger",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",27,62,"Wonderness",1015,1,"PrstTest2_1::OnMobDead";
-	disablenpc "Zombie2_Trig";
+job_prist,21,62,0	script	Zombie2_1	-1,17,1,{
+OnInit:
+	disablenpc "Zombie2_1";
 	end;
-}
-
-// Third set  of Zombies--------------------------------------------------------
-job_prist,23,72,1	script	Zombie3_Trig	139,16,0,{
 
-	monster "job_prist",24,72,"Cockyness",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",18,72,"Slutty",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",30,72,"Lazyness",1015,1,"PrstTest2_1::OnMobDead";
-	disablenpc "Zombie3_Trig";
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Zombie_Generator#prst::Onm2";
+		donpcevent "Zombie2_1::OnDisable";
+	}
 	end;
-}
 
-// Fourth set  of Zombies--------------------------------------------------------
-job_prist,23,82,1	script	Zombie4_Trig	139,16,0,{
+OnEnable:
+	enablenpc "Zombie2_1";
+	end;
 
-	monster "job_prist",21,82,"Greed",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",27,82,"Greedyness",1015,1,"PrstTest2_1::OnMobDead";
-	disablenpc "Zombie4_Trig";
+OnDisable:
+	disablenpc "Zombie2_1";
 	end;
 }
 
-// Fifth set of Zombies ---------------------------------------------------------
-job_prist,23,92,1	script	Zombie5_Trig	139,16,0,{
-
-	monster "job_prist",24,92,"Faithless",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",18,92,"Non-believer",1015,1,"PrstTest2_1::OnMobDead";
-	monster "job_prist",30,92,"Scaryness",1015,1,"PrstTest2_1::OnMobDead";
-	disablenpc "Zombie5_Trig";
+job_prist,24,72,0	script	Zombie3_1	-1,14,1,{
+OnInit:
+	disablenpc "Zombie3_1";
 	end;
-}
 
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Zombie_Generator#prst::Onm3";
+		donpcevent "Zombie3_1::OnDisable";
+	}
+	end;
 
-// End warp for 1st part of test--------------------------------------------------------------------
-job_prist,24,109,1	script	prst1_1	45,3,3,{
+OnEnable:
+	enablenpc "Zombie3_1";
+	end;
 
-	if(BaseJob == Job_Priest) end;		//If a Priest friend steps on the warp nothing happens.  Need the aco to step on the warp.
-OnTimer30000:
-	stopnpctimer;
-	areawarp "job_prist",8,34,39,109,"job_prist",168,17;
-	killmonsterall "job_prist";
-	donpcevent "PrstTest2_2::OnStart";
+OnDisable:
+	disablenpc "Zombie3_1";
 	end;
 }
 
-
-//----------------------------------------------------------------------------------------------------------------------------------------------------------\\
-//				Test 2, Part 1: Resist Temptation			              \\
-//********************************************************************************************************************************\\
-job_prist,1,1,0	script	PrstTest2_2	-1,{
-
-OnStart:
-	enablenpc "Devi_Trig";		//enables these npc's just in case they were disabled by a previous tester
-	enablenpc "Deviruchi";
-	enablenpc "Doppel_Trig";
-	enablenpc "Doppel";
-	enablenpc "Dark_Trig";
-	enablenpc "Dark Lord";
-	enablenpc "Bapho_Trig";
-	enablenpc "Baphomet";
-	set $@PrstRm, 2;
-	set $PRIEST_Q3, 0;
-	initnpctimer;
+job_prist,21,82,0	script	Zombie4_1	-1,17,1,{
+OnInit:
+	disablenpc "Zombie4_1";
 	end;
 
-OnCheck:
-	set $PRIEST_Q3, $PRIEST_Q3 + 1;	//this counter checks to see if the player spoke with each devil and answered the questions
-	if($PRIEST_Q3 < 4) end;
-
-	enablenpc "prst2_1";
-	areaannounce "job_prist", 160, 14, 175, 178, "[Father Peter]: Excellent! You have shown great courage! Use the warp to move on to the next room.",8;
-	initnpctimer "prst2_1";		//starts a 30 sec timer.  this will warp the player even if they don't enter the warp to keep the test going
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Zombie_Generator#prst::Onm4";
+		donpcevent "Zombie4_1::OnDisable";
+	}
 	end;
 
-OnTimer500:
-	stopnpctimer;
-	areaannounce "job_prist", 160, 14, 175, 178, "[Father Peter]: This trial will test the strength of your will and your commitment to God!",8;
+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;
 
-// Deviruchi ------------------------------------------------------------------------
-job_prist,168,45,4	script	Deviruchi	738,{
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Zombie_Generator#prst::Onm5";
+		donpcevent "Zombie5_1::OnDisable";
+	}
+	end;
 
-OnStart:
-	if(BaseJob == Job_Acolyte) goto L_Aco;
+OnEnable:
+	enablenpc "Zombie5_1";
+	end;
 
-L_Priest:
-	mes "[Deviruchi]";
-	mes "Hey, whats priest like you doing in a place like this? go back to town. You like wasting you time here eh?";
-	next;
-	mes "[Deviruchi]";
-	mes "I feel happy today, so i'll spare you, now go.  Next time you come, I'm gonna take to you down.";
-	close;
+OnDisable:
+	disablenpc "Zombie5_1";
+}
 
-L_Aco:
-	mes "[Deviruchi]";
-	mes "Hey, isn't that a acolyte? i haven't seen one in ages.  Looks like you're going to become a priest soon...";
-	next;
-	mes "[Deviruchi]";
-	mes "I can tell how sad it is to become a servant of God.  I think its weird that you're here.";
-	next;
-	mes "[Deviruchi]";
-	mes "The path your walking is going to be difficult.  Isn't there better jobs you can be?";
-	next;
-	mes "[Deviruchi]";
-	mes "Doesn't matter if its in a town, in a cave, all the people always asks you to help them.  Itsn't funny that they never helped you?";
-	next;
-	mes "[Deviruchi]";
-	mes "I'll give you an advice, you should give up now.  The tests will be hard, and the path you're gonna walk will be difficult.";
-	next;
-	menu "Yea, I'm going to give up.",-, "Devil, Be gone NOW!.",M_1a;
+job_prist,24,109,4	script	prst1_1	45,3,3,{
+OnTouch:
+	set .@mobs,getvariableofnpc(.MyMobs,"Zombie_Generator#prst");
+	if (BaseJob == Job_Priest) warp "job_prist",168,17;
+	else if (BaseClass == Job_Acolyte && .@mobs < 1) {
+		warp "job_prist",168,17;
+		donpcevent "Zombie_Generator#prst::OnDisable";
+		donpcevent "Peter S. Alberto#2::OnDisable";
+		donpcevent "Peter S. Alberto::OnEnable";
+		donpcevent "Zombie_Generator#prst::OnDisable";
+	}
+	end;
+}
 
+// 3rd Test
+//==========================================================
+job_prist,168,45,4	script	Deviruchi#prst	1109,8,1,{
+OnTouch:
+	if (BaseJob == Job_Priest) {
 		mes "[Deviruchi]";
-		mes "Yeap thats a good choice, you don't have to come to this place again! Since you decided to give up, i'll give you a present.";
+		mes "Whaaaaat...?";
+		mes "What are you";
+		mes "doing back here?";
 		next;
 		mes "[Deviruchi]";
-		mes "I'll let you meet my friends...FOR FREE  HAHAHAHAH!";
+		mes "Well, look who's the ^660000BMOC^000000 now. That's '^660000B^000000ig ^660000M^000000an ^660000O^000000n ^660000C^000000ampus,' if you didn't know. By the way, I was being sarcastic. You know, if you didn't notice.";
 		next;
-		warp "c_tower2", 168, 33;
-		end;
-	M_1a:
 		mes "[Deviruchi]";
-		mes "Oh.. I'm so scared..hahaha.  Don't be like this, listen to what i have to say.";
+		mes "Are you really";
+		mes "happy being a Priest?";
+		mes "There's no possible way.";
+		next;
+		mes "[Deviruchi]";
+		mes "Alright, alright, for old time's sake, I'll let you pass me. But only this once. But I better not catch you again! This is evil turf, you hear?!";
+		close;
+	}
+	if (BaseClass == Job_Acolyte) {
+		mes "[Deviruchi]";
+		mes "Why...";
+		mes "Hello little Aco.";
 		next;
 		mes "[Deviruchi]";
-		mes "If you give up now, i'll give you a nice gift.  This gift is so hard to find.";
+		mes "You must be here training hard to be a Priest. Funny, I know a lot of God's servants, actually. They tell me that it's really tough serving that God guy all the time. So... So ^666666tiring^000000 and ^666666unrewarding^000000.";
 		next;
-		cutin "�̽�Ʈ����ī��.bmp",4;
 		mes "[Deviruchi]";
-		mes "Do you think you can find a card like that? Decide now, don't regret when you become a priest...";
+		mes "I mean, people are always crying to Priests for help no matter where they are. And Priests never get anything in return...";
 		next;
-		menu "I accept your card.",-, "Devil, Be GONE!!",sM_1a;
-
+		mes "[Deviruchi]";
+		mes "It's tragic really, how unappreciated Priests are.";
+		mes "It's so clear that any job is better. Anything at all...";
+		next;
+		mes "[Deviruchi]";
+		mes "Wouldn't life be so much easier if you weren't a Priest? And it'd be so easy. All you'd have to do is quit right now...";
+		next;
+		if (select("You're right, I quit!:Out of my sight, demon!") == 1) {
 			mes "[Deviruchi]";
-			mes "Hahaha all the human beings are like this, good choice! Okay, let me give you this card!";
+			mes "^660000YES~!^000000 I mean...";
+			mes "Good for you!";
 			next;
-			cutin "�̽�Ʈ����ī��.bmp",255;
 			mes "[Deviruchi]";
-			mes "Well, too bad i can't give it to you.  Go look for it YOURSELF!";
+			mes "Oh...?";
+			mes "Look at the ^660000time^000000.";
+			mes "You better get going.";
 			next;
-			warp "mjolnir_05", 200, 200;
+			mes "[Deviruchi]";
+			mes "BWAHAHAHAHAHAH!";
+			mes "GET THE JOKE!?";
+			close2;
+			warp "c_tower2",168,33;
 			end;
-		sM_1a:
-			cutin "�̽�Ʈ����ī��.bmp",255;
+		}
+		mes "[Deviruchi]";
+		mes "Out of your sight?";
+		mes "I guess I'm not the";
+		mes "cutest thing you've";
+		mes "ever seen, huh?";
+		next;
+		mes "[Deviruchi]";
+		mes "But how about this...? Now, isn't this an attractive sight? A nice, shiny new card. Mint condition. Not too many people have this you know. But I happen to have soooo many, my pockets hurt.";
+		next;
+		cutin "�̽�Ʈ����ī��Ebmp",4;
+		mes "[Deviruchi]";
+		mes "Isn't it everyone's dream to have one of these? Think about it, being a Priest can only bring you suffering...";
+		next;
+		if (select("You're right, I'll take it!:Silence!") == 1) {
 			mes "[Deviruchi]";
-			mes "Wow, your one tough acolyte, if you keep denying you better becareful.";
-			mes "I will be watching, I'll see if you can become a good priest or not.";
+			mes "Good choice!";
+			mes "This card can";
+			mes "can be yours...";
 			next;
+			cutin "�̽�Ʈ����ī��Ebmp",255;
 			mes "[Deviruchi]";
-			mes "One day, you'll regret and want to come back to me!";
-			disablenpc "Devi_Trig";	//disables the trigger npc so you don't accidentally activate it again
-			disablenpc "Deviruchi";
-			donpcevent "PrstTest2_2::OnCheck";
-			close;
+			mes "Theoretically!";
+			mes "BWAHAHAHAHAHAHAHA!";
+			mes "Go and earn it yourself!";
+			close2;
+			warp "mjolnir_05",200,200;
+			end;
+		}
+		cutin "�̽�Ʈ����ī��Ebmp",255;
+		mes "[Deviruchi]";
+		mes "Did...";
+		mes "Did you just tell";
+		mes "me to shut up?";
+		mes "Oh my God...";
+		next;
+		mes "[Deviruchi]";
+		mes "Sorry...";
+		mes "Oh ^660000your^000000 God.";
+		mes "Fine, get going.";
+		mes "But you'll regret";
+		mes "your decision later!";
+		close;
+	}
+	end;
 }
 
-// Doppelganger ------------------------------------------------------------------------------
-job_prist,168,80,4	script	Doppelganger::Doppel	739,{
-
-OnStart:
-	if(BaseJob == Job_Acolyte) goto L_Aco;
-
-L_Priest:
-	mes "[Doppelganger]";
-	mes "What good is it to be here?.";
-	mes "Are you this bored? you're already a priest why are you here?.";
-	next;
-	mes "[Doppelganger]";
-	mes "You don't need to help these acolytes, go home.";
-	mes "You're doing something that is wasting your time, leave now.";
-	close;
-L_Aco:
-	mes "[Doppelganger]";
-	mes "Hey, Acolyte wait, listen to what i have to say.";
-	next;
-	mes "[Doppelganger]";
-	mes "You came here because you want to become a priest eh?";
-	mes "I don't think you should become a priest.";
-	next;
-	mes "[Doppelganger]";
-	mes "If you want, i can use my powers to let you start over again.";
-	mes "You can become a novice again, and you can choose what job you want to be.";
-	next;
-	mes "[Doppelganger]";
-	mes "Well, the job you choose depends on your level hhehe.";
-	mes "Isn't this a good deal? if you want i can help you right now.";
-	next;
-	menu "I hope you can help me!",-, "Devil Be gone!",M_1b;
-
+job_prist,168,80,4	script	Doppelganger#prst	1046,8,1,{
+OnTouch:
+	if (BaseJob == Job_Priest) {
 		mes "[Doppelganger]";
-		mes "Yes thats a good choice.";
-		mes "Let me turn you into a novice now.";
+		mes "What are you doing here? You've already made your choice, there's no going back... Priest.";
 		next;
 		mes "[Doppelganger]";
-		mes "You know it takes a long time to ressurect when you DIE!!";
+		mes "Besides, this is none of your business. Whether or not this Acolyte becomes a Priest isn't up to you. Now get out of here, before I get violent.";
+		close;
+	}
+	else if (BaseClass == Job_Acolyte) {
+		mes "[Doppelganger]";
+		mes "Hold on there, Acolyte.";
+		mes "I'm not like Deviruchi,";
+		mes "so I won't mince";
+		mes "words with you.";
 		next;
-		warp "gef_dun02", 210, 177;
-		end;
-	M_1b:
 		mes "[Doppelganger]";
-		mes "I don't think you understand what i mean.";
-		mes "This is one of the best things that can happen to you.";
+		mes "Now, why would you want to become a Priest? It's such a worthless, thankless job. If you want, I'll give you the chance to become a Novice. Then you can become something much better!";
 		next;
 		mes "[Doppelganger]";
-		mes "You just need to tell me that you don't want to become a priest.";
-		mes "If you do that, i can turn you into any job you want, you want to become a swordman like me?";
+		mes "Of course, I'll let you redistribute your stat points by your base level. Now, isn't that a sweet deal...?";
 		next;
-		menu "I don't want to become a priest!",-, "Devil, Be GONE!",sM_1b;
-
+		if (select("Deal, Deal!:No deal... Doppelganger.") == 1) {
 			mes "[Doppelganger]";
-			mes "good choice, you don't need to come back here anymore.";
-			mes "okay, let me turn you into a novice now...";
+			mes "Good choice~";
+			mes "I shall return your";
+			mes "job to a Novice";
+			mes "as you wish.";
 			next;
 			mes "[Doppelganger]";
-			mes "You know its takes a long time to ressurect when you DIE??!!";
-			next;
-			warp "gef_dun02", 210, 177;
-			end;
-		sM_1b:
+			mes "Now go!!";
+			mes "Never step into";
+			mes "the light again!";
+			close2;
+			warp "gef_dun02",210,177;
+			end;;
+		}
+		mes "[Doppelganger]";
+		mes "I don't think you understood what I just offered. Think about it again. I mean, this is your one and only chance to undo your life mistakes. I mean, becoming an Acolyte?";
+		next;
+		mes "[Doppelganger]";
+		mes "Just don't become a Priest. I won't ask you more than once. Then you can choose a better job... perhaps a Swordman like me.";
+		next;
+		if (select("I don't want to be a Priest!:I'll never listen to you!") == 1) {
 			mes "[Doppelganger]";
-			mes "okay fine, i'll spare you today.";
+			mes "Excellent choice. Now, never return to this place. I shall return your job to Novice as you wish.";
 			next;
 			mes "[Doppelganger]";
-			mes "If i see you next time, I'm gonna make you die painfully.";
-			disablenpc "Doppel_Trig";
-			disablenpc "Doppel";
-			donpcevent "PrstTest2_2::OnCheck";
-			close;
+			mes "Now go!!";
+			mes "Never step into";
+			mes "the light again!";
+			close2;
+			warp "gef_dun02",210,177;
+			end;
+		}
+		mes "[Doppelganger]";
+		mes "Hmpf. I admire";
+		mes "your determination.";
+		mes "Okay, you can pass.";
+		mes "For now.";
+		next;
+		mes "[Doppelganger]";
+		mes "But if by chance we meet again,";
+		mes "I assure you... You won't be happy at all to see me.";
+		close;
+	}
 }
 
-// Dark Lord -------------------------------------------------------------------------------
-job_prist,168,115,4	script	Dark Lord	737,{
-
-OnStart:
-	if(BaseJob == Job_Acolyte) goto L_Aco;
-
-L_Priest:
-	mes "[Dark Lord]";
-	mes "Let you feel hatred and anger!!";
-	mes "Let you feel how it feels when your friend betrays you!";
-	next;
-	mes "[Dark Lord]";
-	mes "Stay here, and train with us and next; until you are strong enough then you can go back!";
-	mes "Stay with us and learn to curse!";
-	close;
-L_Aco:
-	mes "[Dark Lord]";
-	mes "Stop right there human!.";
-	mes "Whose permission do you have to pass through here!";
-	next;
-	mes "[Dark Lord]";
-	mes "If you want to become a priest, you can't pass through here,";
-	mes "Go now, before i kill you.";
-	next;
-	mes "[Dark Lord]";
-	mes "Even more annoying than ants you humans, leave and stop bothering me!";
-	next;
-	menu "I'm sorry, please spare me.",-, "Devil, Be GONE!.",M_1c;
-
+job_prist,168,115,4	script	Dark Lord#prst	1272,8,1,{
+OnTouch:
+	if (BaseJob == Job_Priest) {
 		mes "[Dark Lord]";
-		mes "Don't come here again!";
+		mes "^330033All is doom, darkness and despair! Those who love you will betray you, and all that will be left is grieving and fury!^000000";
 		next;
-		warp "gl_church", 145, 170;
-		end;
-	M_1c:
 		mes "[Dark Lord]";
-		mes "Don't try to act like a tough guy.";
-		mes "I can cut u in many pieces with my pinky.";
+		mes "^330033To choose to become a servant of God is to choose eternal pain!";
+		mes "I shall personally see to that, mortal.^000000";
+		close;
+	}
+	else if (BaseClass == Job_Acolyte) {
+		mes "[Dark Lord]";
+		mes "^330033Halt, human.";
+		mes "Who has granted";
+		mes "you passage?^000000";
 		next;
 		mes "[Dark Lord]";
-		mes "Before i use my dark powers on you, leave!";
+		mes "^330033You still wish to become a Priest?! Fool! Then, I shall not let you pass. Go back. Otherwise, you will not survive.^000000";
 		next;
-		menu "Please, Spare me.",-, "Devil, BE GONE!",sM_1c;
-
+		mes "[Dark Lord]";
+		mes "^330033It would be so easy for me to snap your fragile body in twain and grind your bones to dust.";
+		mes "Now, go back mortal!^000000";
+		next;
+		if (select("I'm so sorry. Spare me!:God will protect me.") == 1) {
 			mes "[Dark Lord]";
-			mes "Don't appear here again!";
-			next;
-			warp "gl_church", 145, 170;
+			mes "^330033Don't ever come back!^000000";
+			close2;
+			warp "gl_church",145,170;
 			end;
-		sM_1c:
-			mes "[Dark Lord]";
-			mes "So you decided to stay eh? you pesky human, killing you will dirty my hands.";
-			next;
+		}
+		mes "[Dark Lord]";
+		mes "^330033It is no use to feign strength and courage. You are completely helpless before me. Your skills are laughable, and your weapons are but mere toys compared to my power.^000000";
+		next;
+		mes "[Dark Lord]";
+		mes "^330033With just a wave of my hand, you will cease to exist. And no one will remember you. Tremble before the might of my infinite magic!^000000";
+		next;
+		if (select("I beg you, don't...!:Begone, vile fiend!") == 1) {
 			mes "[Dark Lord]";
-			mes "If i see you again, I'm gonna kill you.";
-			disablenpc "Dark_Trig";
-			disablenpc "Dark Lord";
-			donpcevent "PrstTest2_2::OnCheck";
-			close;
+			mes "^330033Don't ever come back!^000000";
+			close2;
+			warp "gl_church",145,170;
+			end;
+		}
+		mes "[Dark Lord]";
+		mes "^330033Why...";
+		mes "Why don't you fear me?!";
+		mes "For a frail mortal, you";
+		mes "are quite annoying.^000000";
+		next;
+		mes "[Dark Lord]";
+		mes "^330033When next we meet, I will shall escort you to a realm of suffering where you shall spend years immersed in excruciating pain.";
+		mes "Mark my words...^000000";
+		close;
+	}
 }
 
-// Baphomet -----------------------------------------------------------------------------
-job_prist,168,150,4	script	Baphomet	736,{
-
-OnStart:
-	if(BaseJob == Job_Acolyte) goto L_Aco;
-
-L_Priest:
-	mes "[Baphomet]";
-	mes "Annoying Priests...";
-	next;
-	mes "[Baphomet]";
-	mes "I have nothing to talk to you about, leave now.";
-	close;
-L_Aco:
-	mes "[Baphomet]";
-	mes "Hey, Human.";
-	next;
-	mes "[Baphomet]";
-	mes "You interested in a deal?";
-	next;
-	mes "[Baphomet]";
-	mes "I can get you all the rich and fame in this world.";
-	mes "Infinite money and weapons which no humans have...";
-	next;
-	mes "[Baphomet]";
-	mes "Also, if you want, you can always summon me.";
-	mes "If you did that, everyone will be afraid of you hahahaha.";
-	next;
-	mes "[Baphomet]";
-	mes "I think you should give up being a priest and just accept my deal.";
-	mes "If you accept my deal, the world is yours.";
-	next;
-	menu"I give up being a priest.",-, "Devil be GONE!",M_1d;
-
+job_prist,168,150,4	script	Baphomet#prst	736,8,1,{
+OnTouch:
+	if (BaseJob == Job_Priest) {
 		mes "[Baphomet]";
-		mes "Okay, let us sign the contract...";
-		mes "you will not forget this...";
-		next;	
+		mes "I hate";
+		mes "Priests...";
+		next;
 		mes "[Baphomet]";
-		mes "You go find where i live.";
-		mes "When your there, come and sign the contract.";
+		mes "I don't have any business with you, servant of God. Just pass through.";
+		close;
+	}
+	else if (BaseClass == Job_Acolyte) {
+		set name,PcName;
+		mes "[Baphomet]";
+		mes "Greetings.";
+		next;
+		mes "[Baphomet]";
+		mes "..."+ strcharinfo(0) +".";
+		next;
+		mes "[Baphomet]";
+		mes "Yes, human,";
+		mes "I know who you are.";
+		next;
+		mes "[Baphomet]";
+		mes "I also know that Deviruchi, Doppelganger and the Dark Lord have all failed to convince you to turn away from the Priesthood.";
+		mes "Now, I stand before";
+		mes "you to offer a deal.";
 		next;
-		warp "glast_01", 200, 203;
-		end;
-	M_1d:
 		mes "[Baphomet]";
-		mes "Okay fine, i'll leave.";
-		mes "But, you won't leave that easily.";
+		mes "I can grant you any treasure you desire and infinite power at your fingertips. Powerful weapons that humans have never before seen...";
 		next;
 		mes "[Baphomet]";
-		mes "I already set up a lot of evil stuff for you...";
-		mes "I want to see how long you can last.";
+		mes "Mountains of zeny that you cannot possibly hope to spend in a lifetime. Though, who's to say that your lifespan should be limited? Fame, power, immortality: It can all be yours.";
 		next;
 		mes "[Baphomet]";
-		mes "OKay go now.";
-		disablenpc "Bapho_Trig";
-		disablenpc "Baphomet";
-		donpcevent "PrstTest2_2::OnCheck";
+		mes "I will be yours to summon at anytime. All other humans will dread making you their enemy. You will become the most powerful person in all of history!";
+		next;
+		mes "[Baphomet]";
+		mes "Cease this foolishness of pursuing the Priesthood. Make a contract with me. The entire world is yours for the taking.";
+		next;
+		if (select("Deal.:No, Baphomet. You lose.") == 1) {
+			mes "[Baphomet]";
+			mes "Then we shall form a contract. You won't ever regret this moment...";
+			next;
+			mes "[Baphomet]";
+			mes "Follow me.";
+			mes "We will make the";
+			mes "contract in my";
+			mes "sanctum of darkness.";
+			close2;
+			warp "glast_01",200,203;
+			end;
+		}
+		mes "[Baphomet]";
+		mes "Foolish human...";
+		mes "You have made your choice. I will leave you alone for now, then. However, your training won't be as easy as you think.";
+		next;
+		mes "[Baphomet]";
+		mes "I shall be preparing my troops for you. The day will come when I shall enjoy watching you writhe in agony as my fiends slowly devour you.";
 		close;
+	}
 }
 
-
-// These hidden warps trigger the npcs when you get near them
-// Deviruchi Trigger --------------------------------------------------------------------
-job_prist,167,40,1	script	Devi_Trig	139,8,0,{
-
-	doevent "Deviruchi::OnStart";
+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 "Mummy_Generator::OnEnable";
+	}
 	end;
 }
-// Doppleganger Trigger --------------------------------------------------------------------
-job_prist,167,77,1	script	Doppel_Trig	139,8,0,{
 
-	doevent "Doppel::OnStart";
+// 4th Test
+//==========================================================
+job_prist,1,2,1	script	Mummy_Generator	110,1,1,{
+OnInit:
+	disablenpc "Mummy_Generator";
 	end;
-}
-// Dark Lord Trigger --------------------------------------------------------------------
-job_prist,167,112,1	script	Dark_Trig	139,8,0,{
 
-	doevent "Dark Lord::OnStart";
+OnEnable:
+	donpcevent "Mummy1_1::OnEnable";
+	donpcevent "Mummy2_1::OnEnable";
+	donpcevent "Mummy3_1::OnEnable";
 	end;
-}
-// Baphomet Trigger --------------------------------------------------------------------
-job_prist,167,145,1	script	Bapho_Trig	139,8,0,{
 
-	doevent "Baphomet::OnStart";
+Onm1:
+	monster "job_prist",90,55,"Khamoz",1041,1;
+	monster "job_prist",105,55,"Amocsis",1041,1;
 	end;
-}
 
+Onm2:
+	monster "job_prist",90,70,"Mentuhoteph",1041,1;
+	monster "job_prist",105,70,"Akenaten",1041,1;
+	end;
 
-// End warp for 2nd part of test ---------------------------------------------------------
-job_prist,168,180,0	script	prst2_1	45,3,3,{
+Onm3:
+	monster "job_prist",90,85,"Mehnes",1041,1;
+	monster "job_prist",105,85,"Snepheru",1041,1;
+	end;
 
-	if(BaseJob == Job_Priest) end;		//If a Priest friend steps on the warp nothing happens.  Need the Aco to step on the warp.
-OnTimer30000:
-	set $@PrstRm, 3;
-	set $PRIEST_Q3, 0;
-	enablenpc "Mummy1_Trig";		//enables the floor triggers for the next test
-	enablenpc "Mummy2_Trig";
-	enablenpc "Mummy3_Trig";
-	stopnpctimer;
-	initnpctimer "prst3_1";
-	areawarp "job_prist", 160, 14, 175, 178, "job_prist", 98, 40;
+OnDisable:
+	disablenpc "Mummy_Generator";
+	killmonsterall "job_prist";
 	end;
 }
 
+job_prist,90,55,0	script	Mummy1_1	-1,15,1,{
+OnInit:
+	disablenpc "Mummy1_1";
+	end;
 
-//----------------------------------------------------------------------------------------------------------------------------------------------------------\\
-//				Test 2, Part 3: Make it to the exit 			               \\
-//******************************************************************************************************************************* *\\
-// First set of Mummies --------------------------------------------------------
-job_prist,97,50,0	script	Mummy1_Trig	139,8,1,{
-
-	monster "job_prist", 93, 55, "ca", 1041,1;
-	monster "job_prist", 102, 55, "ah", 1041,1;
-	disablenpc "Mummy1_Trig";
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Mummy_Generator::Onm1";
+		donpcevent "Mummy1_1::OnDisable";
+	}
 	end;
-}
-// Second set of Mummies --------------------------------------------------------
-job_prist,97,65,0	script	Mummy2_Trig	139,8,1,{
 
-	monster "job_prist", 93, 70, "men", 1041,1;
-	monster "job_prist", 102, 70, "ahke", 1041,1;
-	disablenpc "Mummy2_Trig";
+OnEnable:
+	enablenpc "Mummy1_1";
 	end;
-}
-// Third set of Mummies --------------------------------------------------------
-job_prist,97,80,0	script	Mummy3_Trig	139,8,1,{
 
-	monster "job_prist", 93, 85, "mea", 1041,1;
-	monster "job_prist", 102, 85, "sne", 1041,1;
-	disablenpc "Mummy3_Trig";
+OnDisable:
+	disablenpc "Mummy1_1";
 	end;
 }
 
+job_prist,90,70,0	script	Mummy2_1	-1,15,1,{
+OnInit:
+	disablenpc "Mummy2_1";
+	end;
 
-// End warp for 3rd part of test ----------------------------------------------
-job_prist,98,105,0	script	prst3_1	45,2,2,{
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Mummy_Generator::Onm2";
+		donpcevent "Mummy2_1::OnDisable";
+	}
+	end;
 
-	if(BaseJob == Job_Priest) end;		//If a Priest friend steps on the warp nothing happens.  Need the Aco to step on the warp.
-	stopnpctimer "TimerPrst";
-	areawarp "job_prist", 90, 34, 105, 105, "prt_church",16, 37;
-	set PRIEST_Q2, 2;
-	killmonsterall "job_prist";
-	donpcevent "Father Peter::OnStart";
+OnEnable:
+	enablenpc "Mummy2_1";
 	end;
 
-OnTimer500:
-	stopnpctimer;
-	areaannounce "job_prist",  90, 34, 105,105, "[Father Peter]: This is the last trial you must face my child.  Have faith, I know you can pass it!",8;
+OnDisable:
+	disablenpc "Mummy2_1";
 	end;
 }
 
-
-//----------------------------------------------------------------------------------------------------------------------------------------------------------\\
-//					Timer					              \\
-//********************************************************************************************************************************\\
-job_prist,1,1,0	script	TimerPrst	-1,{
-
-OnTimer3000:
-	areaannounce "job_prist",8,34,39,109,"[Father Peter]: You will have 5 minutes to pass all 3 trials starting now.",8;
-	end;
-OnTimer33000:
-	donpcevent "Father Peter::OnStart";
-	end;
-OnTimer63000:
-	set $@PrstTime$, "You have 4 minutes left!";
-	donpcevent "Father Peter::OnStart";
-	goto AnnouncePrst;
-OnTimer93000:
-	donpcevent "Father Peter::OnStart";
-	end;
-OnTimer123000:
-	set $@PrstTime$, "You have 3 minutes left!";
-	donpcevent "Father Peter::OnStart";
-	goto AnnouncePrst;
-OnTimer153000:
-	donpcevent "Father Peter::OnStart";
-	end;
-OnTimer183000:
-	set $@PrstTime$, "You have 2 minutes left!";
-	donpcevent "Father Peter::OnStart";
-	goto AnnouncePrst;
-OnTimer213000:
-	donpcevent "Father Peter::OnStart";
-	end;
-OnTimer243000:
-	set $@PrstTime$, "You have 1 minute left!";
-	donpcevent "Father Peter::OnStart";
-	goto AnnouncePrst;
-OnTimer273000:
-	set $@PrstTime$, "You have 30 seconds left!";
-	donpcevent "Father Peter::OnStart";
-	goto AnnouncePrst;
-OnTimer293000:
-	set $@PrstTime$, "You have 10 seconds left!";
-	goto AnnouncePrst;
+job_prist,90,85,0	script	Mummy3_1	-1,15,1,{
+OnInit:
+	disablenpc "Mummy3_1";
 	end;
-OnTimer2970000:
-	set $@PrstTime$, "You have 5 seconds left.";
-	goto AnnouncePrst;
+
+OnTouch:
+	if (BaseClass == Job_Acolyte || BaseJob != Job_Priest) {
+		donpcevent "Mummy_Generator::Onm3";
+		donpcevent "Mummy3_1::OnDisable";
+	}
 	end;
-OnTimer302000:
-	set $@PrstTime$, "Time is up. You failed the test.";
-	goto AnnouncePrst;
-OnTimer306000:
-	stopnpctimer;
-	if($@PrstRm==1) areawarp "job_prist",8,34,39,109,"prt_church",16, 37;
-	if($@PrstRm==2) areawarp "job_prist",160, 14, 175, 178,"prt_church",16, 37;
-	if($@PrstRm==3) areawarp "job_prist", 90, 34, 105,105,"prt_church",16, 37;
-	killmonsterall "job_prist";
-	donpcevent "Father Peter::OnStart";
+
+OnEnable:
+	enablenpc "Mummy3_1";
 	end;
 
-AnnouncePrst:
-	if($@PrstRm==1) areaannounce "job_prist",8,34,39,109,"[Father Peter]: "+$@PrstTime$+".",8;
-	if($@PrstRm==2) areaannounce "job_prist",160, 14, 175, 178, "[Father Peter]: "+$@PrstTime$+".",8;
-	if($@PrstRm==3) areaannounce "job_prist",  90, 34, 105,105, "[Father Peter]: "+$@PrstTime$+".",8;
+OnDisable:
+	disablenpc "Mummy3_1";
 	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 "Mummy_Generator::OnDisable";
+	}
+	end;
+}
 
-
-//**********************************************************************************************************************************************************************************\\
-//================================================= Sister Cecile: Test 3 =====================================================\\
-//**********************************************************************************************************************************************************************************\\
-prt_church,27,24,4	script	Sister Cecile	79,{
-	mes "[Sister Cecile]";
-	if(BaseJob == Job_Priest) goto L_Prst;
-	if(BaseJob == Job_Acolyte) goto L_Aco;
-	if(BaseJob == Job_Novice) goto L_Nov;
-
-L_Other:
-	mes "This is the Prontera Church, what can I help you with?";
-	next;
-	menu "Please tell me about priests.",-, "I'm just walking around.",M_End0;
-
-		mes "[Sister Cecile]";
-		mes "Priests are servants of God.  They have special powers that allow them to help anyone in need of assistance.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Because they are followers of God, they cannot use swords and many other types of weapons.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Of course, if you want to know more about priests, you should speak with one personally.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Please stay here for as long as you wish.  The church is a sanctuary for all those who seek it.";
-		close;
-	M_End0:
-		mes "[Sister Cecile]";
-		mes "Please Relax, wondering around can be tiring.";
+// Functions
+//==========================================================
+function	script	F_FatherRub	{
+	if (PRIEST_Q != 0) {
+		if (PRIEST_Q == 1) {
+			mes "Ah yes, so you're the young Acolyte who wishes to become a Priest.";
+			next;
+			mes "[Father Rubalkabara]";
+			mes "I've received the message from Bishop Paul. Since you made the pilgrimage, I hope you accomplish your goal of becoming a Priest.";
+			next;
+			mes "[Father Rubalkabara]";
+			mes "Also, if you have a chance, please visit this abbey again. It's a sacred place for our Church.";
+			next;
+			mes "[Father Rubalkabara]";
+			mes "Well then, please head to your next destination for your pilgrimage. Be safe in your travels.";
+			close2;
+			savepoint "prt_fild03",361,255;
+			set PRIEST_Q,2;
+			end;
+		}
+		else if (PRIEST_Q == 2) {
+			mes "Please be hurry to the next destination for your pilgrimage. I hope you become a Priest soon.";
+			close;
+		}
+		mes "May I ask why you have returned? Please go back and continue your religious practice.";
 		close;
-
-L_Nov:
-	mes "God bless you, my child. The Prontera Church welcomes you.";
-	next;
-	mes "[Sister Cecile]";
-	mes "Have you choose your job yet? Do you want to be one of God's helpers?";
-	mes "Becoming an Acolyte and helping people is very good thing.";
-	next;
-	mes "[Sister Cecile]";
-	mes "If you want to become an Acolyte, speak to ^5533FFFather Mareusis^000000 in the room across the hall.";
-	next;
-	mes "[Sister Cecile]";
-	mes "Once you've reached job level 40 as an Acolyte, you can come back here and become a Priest.";
-	next;
-	mes "[Sister Cecile]";
-	mes "Since you are still a novice, think carefully about what job you wish to take.";
-	close;
-
-L_Prst:
-	if(sex == 1) mes "God bless you, brother priest.";
-	if(sex == 0) mes "God bless you, sister priest.";
-	mes "I wish you all the best.  Keep your faith strong and remeber that God loves all, and so should you.";
+	}
+	mes "I have no idea what brought you here, but please excuse me.";
 	close;
+}
 
-L_Aco:
-	if(PRIEST_Q == 1) goto L_Test1;
-	if(PRIEST_Q == 2) goto L_Test2;
-	if(PRIEST_Q == 3) goto L_Start;
-	if(PRIEST_Q == 4) goto L_Done;
-	if(sex == 1) mes "God bless you, brother.";
-	if(sex == 0) mes "God bless you, sister.";
-	mes "Why are you here?";
-	next;
-	menu "I want to become a priest.",-, "I'm just wondering around.",M_End1;
-
-		mes "[Sister Cecile]";
-		mes "Oh so you want to become a priest?";
-		mes "A lot of acolytes want to become priests.";
-		next;
-		mes "[Sister Cecile]";
-		mes "My name is Sister Cecile, I'm responsible for helping acolytes become priests.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Because I was born and raised here, I've seen a lot of people become Priests over the years.";
-		mes "Thats why i like to help people become priests now.";
-		next;
-		mes "[Sister Cecile]";
-		mes "In order to become a priest, you will have to fullfill 3 tasks.  If you want to change your job now, you can go talk to Father Thomas,";
-		next;
-		mes "[Sister Cecile]";
-		mes "If you encounter any problems with any of the tasks, come talk to me and I might be able to help.";
-		close;
-	M_End1:
-		mes "[Sister Cecile]";
-		mes "Please relax and take a break.  The church should feel like your home.";
-		close;
-
-L_Start:
-	if(PRIEST_Q2 == 1) goto L_ReTest;
-	mes "Good job, you successfully completed the second quest...!";
-	mes "You are now really close to becoming a priest.";
-	next;
-	mes "[Sister Cecile]";
-	if(sex==1) mes "If you want to become a priest, the last step is to answer my questions honestly.";
-	if(sex==0) mes "If you want to become a priestess, the last step is to answer my questions honestly.";
-	mes "Please be honest and answer my question.";
-	next;
-	mes "[Sister Cecile]";
-	mes "Okay let me ask you some questions.";
-	set PRIEST_Q2, 1;
-	next;
-L_Test3:
-	mes "[Sister Cecile]";
-	mes "From today on, do you wish to help the God for all eternity?";
-	next;
-	menu "Yes.",M_2a, "No.",-;
-
-		mes "[Sister Cecile]";
-		mes "Why..Why would you say that?...";
-		mes "I don't think your suitable to become a priest...";
-		next;
-		mes "[Sister Cecile]";
-		mes "please come back when you really want to become a priest.";
-		mes "You can't become a priest right now.";
-		close;
-
-	M_2a:
-
-	mes "[Sister Cecile]";
-	mes "Will you use God's power for your own profit?";
-	next;
-	menu "Yes",-, "No.",M_2b;
-
-		mes "[Sister Cecile]";
-		mes "No, that doesn't work, if you use God's power to do what you wish, you're just like a thief.";
-		mes "How can you become a good priest if you think like that?";
-		next;
-		mes "[Sister Cecile]";
-		mes "Please come back when you make up your mind.";
-		mes "Those thoughts are the things that corrupt people.";
-		close;
-
-	M_2b:
-
-
-	mes "[Sister Cecile]";
-	mes "Will you help others in battle when they need help?";
-	next;
-	menu "Yes.",M_2c, "No.",-;
-
-		mes "[Sister Cecile]";
-		mes "Thats wrong, when someone needs help, we will do our best to help them.";
-		mes "It doesn't matter who that person is, our job is to help everyone.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Go walk around.";
-		mes "and you should learn something.";
-		close;
-	M_2c:
-
-	mes "[Sister Cecile]";
-	mes "Will you sacrifice yourself for others?";
-	next;
-	menu "Yes.",M_2d, "No.",-;
-
-		mes "[Sister Cecile]";
-		mes "No, thats not what God thinks.";
-		mes "If we can sacrafice ourselves for something that helps the world, its worth it.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Go and think about sacraficing.";
-		mes "Sacraficing is thing thats easy to say, but hard to do.";
-		close;
-	M_2d:
-
-	mes "[Sister Cecile]";
-	mes "Will you talk bad to people you meet?";
-	next;
-	menu "Yes.",-, "No.",M_2e;
-
-		mes "[Sister Cecile]";
-		mes "That is not right, priests are supposed to help people.";
-		mes "If you talk bad, you don't deserver to be a priest.";
-		next;
-		mes "[Sister Cecile]";
-		mes "even if your God's best servant.";
-		mes "You don't have the right to bad-talk.";
-		close;
-
-	M_2e:
-
-	mes "[Sister Cecile]";
-	mes "Will you bring any kind of devil to help others in battle?";
-	next;
-	menu "Yes.",-, "No.",M_2f;
-
-		mes "[Sister Cecile]";
-		mes "You can't do that.";
-		mes "It doesn't matter if the devil is good or bad, priests should never talk to a devil .";
-		next;
-		mes "[Sister Cecile]";
-		mes "Even though it looks like you did a good thing, but it was a really bad thing.";
-		mes "Please go think about it.";
-		close;
-
-	M_2f:
-
-	mes "[Sister Cecile]";
-	mes "If God wants to you to live or die, will you listen to him?";
-	next;
-	menu "Yes.",M_2g, "No.",-;
-
-		mes "[Sister Cecile]";
-		mes "If your like that you can't become a priest.";
-		mes "If God wants you to die, you have to listen to him.";
-		next;
-		mes "[Sister Cecile]";
-		mes "And we priest have the skill to Resurrect ourselves.";
-		mes "Please go and think about what death means to you.";
-		close;
-	M_2g:
-
-	mes "[Sister Cecile]";
-	mes "I just witness what you said.";
-	mes "Lastly, please promise that you'll remember the things you said today.";
-	next;
-	menu "I promise.",-, "No.",M_2No;
-
-		mes "[Sister Cecile]";
-		mes "Now, you passed all the tests.";
-		mes "Please go talk to Father Thomas to become a priest.";
-		next;
-		mes "[Sister Cecile]";
-		mes "Please remember the things you said today.";
-		mes "God bless you...";
-		set PRIEST_Q, 4;
-		set PRIEST_Q2, 0;
-		close;
-
-	M_2No:
-		mes "[Sister Cecile]";
-		mes "..............";
-		next;
-		mes "[Sister Cecile]";
-		mes "No not yet, your still wondering if you want to become a priest or not.";
-		mes "You can't become a priest right now.";
-		next;
-		mes "[Sister Cecile]";
-		mes "I think you should go do the self-disipline test again...";
-		mes "When you're ready, come back here.";
-		next;
-		mes "[Sister Cecile]";
-		mes "God bless you...";
+function	script	F_MotherMart	{
+	if (PRIEST_Q != 0) {
+		if (PRIEST_Q == 1) {
+			mes "Hmm...";
+			mes "It seems you're";
+			mes "training to become";
+			mes "a Priest.";
+			next;
+			mes "[Mother Marthilda]";
+			mes "However, at this point in your pilgrimage, I am not the person that you should be visiting.";
+			next;
+			mes "[Mother Marthilda]";
+			mes "Perhaps you should ask Bishop Paul or Sister Cecilia once again. Well, may God be with you...";
+			close;
+		}
+		else if (PRIEST_Q == 2) {
+			mes "Ah, are you";
+			mes "a Priest trainee...?";
+			mes "Welcome!";
+			next;
+			mes "[Mother Marthilda]";
+			mes "We Priests are obliged to spread the message of God to";
+			mes "the peoples of the Earth.";
+			next;
+			mes "[Mother Marthilda]";
+			mes "After you become a Priest, your travels may take you to the Morroc Pyramids. I hope that you may release the Undead there from the evil to which they are bound.";
+			next;
+			mes "[Mother Marthilda]";
+			mes "Well then...";
+			mes "I shall pray to";
+			mes "God for safety";
+			mes "on your journey.";
+			close2;
+			savepoint "moc_fild07",35,355;
+			set PRIEST_Q,3;
+			end;
+		}
+		else if (PRIEST_Q == 3) {
+			mes "Please leave soon, and";
+			mes "continue your training.";
+			close;
+		}
+		mes "May I ask you the reason you came back? Please continue your training.";
 		close;
-
-L_ReTest:
-	mes ".............";
-	next;
-	mes "[Sister Cecile]";
-	mes "...Oh your back.";
-	mes "I hope you can be honest this time.";
-	next;
-	mes "[Sister Cecile]";
-	mes "I hope i can sense your sincere...";
-	mes "Please answer me honestly.";
-	next;
-	mes "[Sister Cecile]";
-	mes "Okay, lets start.";
-	next;
-	goto L_Test3;
-
-L_Test1:
-	mes "Oh, so you already started the self-disipline test, good job.";
-	close;
-
-L_Test2:
-	if(PRIEST_Q2 == 1) goto L_Test2a;
-	mes "You didn't start the second quest yet?.";
-	mes "Well, i can't give u any specific details about this task.";
-	next;
-	mes "[Sister Cecile]";
-	mes "I can only tell you to be well-prepared and to not get seduced by anything...";
-	mes "You must trust in yourself in order to complete the second quest.";
-	next;
-	mes "[Sister Cecile]";
-	mes "If you want more specific details go talk to the priest in the training ground.";
-	mes "Father Thomas is a very nice person, he'll help you too.";
-	close;
-
-L_Test2a:
-	mes "Training is hard, but don't give up.";
-	mes "You must overcome anything in order to be a good priest.";
-	next;
-	mes "[Sister Cecile]";
-	mes "If there's experienced priest, you can ask them to help you train.";
-	mes "They might be able to help you pass the first level of the second task.";
-	next;
-	mes "[Sister Cecile]";
-	mes "God bless you...";
-	mes "When you complete the second quest, come back here.";
+	}
+	mes "May God";
+	mes "be with you...";
 	close;
+}
 
-L_Done:
-	mes "Congratulations on finishing the tests.  Please see Father Thomas so that he can make you a Priest.";
+function	script	F_FatherYos	{
+	if (PRIEST_Q != 0) {
+		if (PRIEST_Q == 1) {
+			mes "Hmm...";
+			mes "A Priest trainee, eh?";
+			next;
+			mes "[Father Yosuke]";
+			mes "Well, you got the wrong person. If you're supposed to meet up with me at all, it'd be later.";
+			next;
+			mes "[Father Yosuke]";
+			mes "But that's your own fault.";
+			mes "Now, go back to Church, kid.";
+			close;
+		}
+		else if (PRIEST_Q == 2) {
+			mes "Hmm...";
+			mes "A Priest trainee, eh?";
+			next;
+			mes "[Father Yosuke]";
+			mes "Well, you got the wrong person. If you're supposed to meet up with me at all, it'd be later.";
+			next;
+			mes "[Father Yosuke]";
+			mes "But that's your own fault. Go back to Church.";
+			close;
+		}
+		else if (PRIEST_Q == 3) {
+			mes "Hmm.";
+			mes "A Priest";
+			mes "trainee, eh? ";
+			mes "Welcome.";
+			next;
+			mes "[Father Yosuke]";
+			mes "I won't say";
+			mes "anything more.";
+			mes "Just devote your";
+			mes "life to God.";
+			next;
+			mes "[Father Yosuke]";
+			mes "Now go back to church.";
+			mes "Hereby, the first of";
+			mes "your trials is now";
+			mes "completed.";
+			close2;
+			savepoint "prt_fild00",206,230;
+			set PRIEST_Q,4;
+			end;
+		}
+		else if (PRIEST_Q == 4) {
+			mes "I told you to go back to church.";
+			mes "Or do you want to live with me here for the rest of your life...?";
+			close;
+		}
+		mes "Just go be a Priest. This isn't a playground for kids.";
+		close;
+	}
+	mes "...Acolyte, you don't have any business with me here.";
 	close;
 }
 
-//==============================================================================
-// mapflag
-//==============================================================================
-job_prist	mapflag	nomemo
-job_prist	mapflag	noteleport
-job_prist	mapflag	nosave	SavePoint
-job_prist	mapflag	nopenalty
-job_prist	mapflag	nobranch
-job_prist	mapflag	noexp
-job_prist	mapflag	noloot