//Le Livre d'Ymir http://www.bookofymir.net/
//traduit par Myllena, corrigé par Fern
//===== eAthena Script ======================================= 
//= Priest Quest
//===== By: ================================================== 
//= Translated By: Pgro Team (OwNaGe)(Aegis)
//= Converted by: kobra_k88.
//= Further bugfixed and tested by Lupus
//===== Current Version: ===================================== 
//= 2.6
//===== Compatible With: ===================================== 
//= eAthena  SVN
//===== Description: ========================================= 
//= [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.
//= 1.3 Added Baby Class support, fixed 3 wrong constants bugs [Lupus]
//= 1.5 Fixed possible EXP abuse [Lupus]
//= 1.6 Added a func which prevent advanced classes passing
//= 2nd Job Quests again. It also guides adv classes where
//= to go. [Lupus]
//= 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]
//= 2.3 Several bugfixes with the help of Barron-Monster. [L0ne_W0lf]
//= 2.3a More bug fixes. [L0ne_W0lf]
//= 2.4 Changed Marthilda to Mathilda. [L0ne_W0llf]
//= 2.4a Deleted unused variables. [Samuray22]
//= 2.4b Corrected a Typo error ";;". [Samuray22]
//= 2.5 Added Quest Log commands. [Kisuka]
//= 2.6 Removed the need for use of 'goto.' [L0ne_W0lf]
//==========================================================

prt_church,16,41,4	script	Évêque#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 "[Évêque Paul]";
			mes "Hum...?";
			mes "Ah, je sens que vous êtes un guerrier revenu du Walhalla. Vous avez effectué une renaissance... Nous sommes ici pour vous protéger.";
			next;
			mes "[Évêque Paul]";
			mes "Ne laissez pas le mal conquérir votre âme. Vous avez suffisamment de courage et de puissance pour surmonter les épreuves les plus difficiles. Que Dieu vous bénisse...";
			close;
	}
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			mes "[Évêque Paul]";
			mes "Ah...";
			if (sex)
				mes "C'est si bon de vous revoir, Frère " + strcharinfo(0) + ". Une fois de plus, la grâce de Dieu a permis à nos chemins de se croiser.";
			else
				mes "C'est si bon de vous revoir, Soeur " + strcharinfo(0) + ". La grâce de Dieu vous a de nouveau conduit à moi.";
			next;
			mes "[Évêque Paul]";
			mes "Je suis heureux de voir que vous conduisez les enfants de Dieu vers le droit chemin. Que puis-je faire pour vous aider?";
			next;
			switch(select("Comment va votre santé?:Je souhaite aider un jeune Acolyte.:Père, j'ai besoin de votre aide.")) {
			case 1:
				mes "[Évêque Paul]";
				mes "Merci de vous en inquiéter. Je vais bien, ma santé est bonne. Vous saluerez vos frères et soeurs de ma part?";
				next;
				mes "[Évêque Paul]";
				mes "Souvenez-vous que nous sommes les messagers de Dieu sur cette Terre. Nous devons aider les autres quoi qu'il nous en coûte.";
				close;
			case 2:
				mes "[Évêque Paul]";
				mes "Ah, c'est une bonne idée. Aider les jeunes Acolytes est également l'une des tâches des Prêtres.";
				next;
				mes "[Évêque Paul]";
				mes "Cependant, certaines choses ne peuvent être accomplies que par un Acolyte. Tous les Acolytes doivent accomplir leur épreuve divine par eux-mêmes.";
				next;
				mes "[Évêque Paul]";
				mes "Vous pouvez cependant aider un ami Acolyte au cours de la seconde épreuve, celle de l'entraînement spirituel.";
				next;
				mes "[Évêque Paul]";
				mes "Vous devrez apporter un ^0000FFRosaire^000000 si vous souhaitez accompagner un Acolyte à son entraînement spirituel. Si vous en avez un sur vous, je peux vous envoyer immédiatement dans la zone des épreuves.";
				next;
				mes "[Évêque Paul]";
				mes "Voulez-vous vous rendre dans la zone d'entraînement pour aider un Acolyte?";
				next;
				if (select("Oui.:Pas pour le moment.") == 1) {
					if (countitem(2608) > 0) {
						mes "[Évêque Paul]";
						mes "Je vais maintenant vous envoyer vers la zone d'entraînement des Acolytes. Dites bonjour au Frère Peter de ma part...";
						next;
						mes "[Évêque Paul]";
						mes "J'espère que vous assisterez les Acolytes au mieux dans leur entraînement pour devenir Prêtre.";
						close2;
						warp "job_prist",26,178;
						end;
					}
					mes "[Évêque Paul]";
					mes "Veuillez apporter un ^0000FFRosaire^000000. J'en aurais besoin pour vous envoyer dans la zone d'entraînement.";
					close;
				}
				mes "[Évêque Paul]";
				mes "Je vois, prenez votre temps. Si vous souhaitez revenir, n'oubliez pas d'apporter un ^0000FFRosaire^000000...";
				close;
			case 3:
				mes "[Évêque Paul]";
				mes "Vous devez être fort. Gardez la foi, car vous êtes aimé de Dieu. Je prie pour que les blessures de votre corps guérissent rapidement...";
				next;
				percentheal 90,0;
				mes "[Évêque Paul]";
				mes "Dieu, prends soin de tes enfants. Aide-les à surpasser les difficultés que le destin place sur leur chemin. Rafraîchis leur esprit...";
				next;
				percentheal 0,90;
				mes "[Évêque Paul]";
				mes "J'espère que ma prière a soulagé votre douleur. Maintenant allez, et répandez la sainte parole de Dieu. Que Dieu soit avec vous...";
				close;
			}
		}
		else if (BaseClass == Job_Novice) {
			mes "[Évêque Paul]";
			mes "Que Dieu soit";
			if (sex)
				mes "avec vous, mon frère.";
			else
				mes "avec vous, ma soeur.";
			next;
			mes "[Évêque Paul]";
			mes "Bienvenue dans la Sainte Église de Prontera.";
			mes "Qu'est-ce qui vous amène ici?";
			next;
			switch(select("Je souhaite devenir Acolyte.:Je souhaite devenir Prêtre.:Rien de spécial.")) {
			case 1:
				mes "[Évêque Paul]";
				mes "Oh je vois...";
				mes "Si vous souhaitez devenir Acolyte, rendez-vous dans la pièce de l'autre côté du couloir.";
				break;
			case 2:
				mes "[Évêque Paul]";
				mes "Oh je vois. Cependant, vous devez d'abord devenir Acolyte avant de pouvoir devenir Prêtre. Pour cela, rendez-vous dans la pièce de l'autre côté du couloir.";
				break;
			case 3:
				mes "[Évêque Paul]";
				mes "Vous êtes ici chez vous. Aucun endroit sur Terre n'est plus sûr que ce Sanctuaire.";
				break;
			}
			next;
			mes "[Évêque Paul]";
			mes "Que Dieu vous bénisse.";
			close;
		}
		else {
			mes "[Évêque Paul]";
			mes "Que Dieu soit";
			if (sex)
				mes "avec vous, mon frère.";
			else
				mes "avec vous, ma soeur.";
			next;
			mes "[Évêque Paul]";
			mes "Bienvenue dans la Sainte Église de Prontera.";
			mes "Qu'est-ce qui vous amène ici?";
			next;
			switch(select("Informations à propos des Prêtres.:Rien de spécial.")) {
			case 1:
				mes "[Évêque Paul]";
				mes "Les Prêtres ont l'autorité au sein de l'Église pour pratiquer ou organiser des rituels religieux.";
				next;
				mes "[Évêque Paul]";
				mes "Vous devez d'abord devenir un Acolyte discipliné et suivre des enseignements approfondis, avant de pouvoir être promu au rang de Prêtre.";
				next;
				mes "[Évêque Paul]";
				mes "Quand vous atteignez le Niveau de Métier 40 en tant qu'Acolyte, vous pouvez vous inscrire à la formation pour devenir Prêtre.";
				next;
				mes "[Évêque Paul]";
				mes "Si vous réussissez les épreuves auxquelles vous serez soumis, vos compétences deviendront plus puissantes et plus efficaces, surtout contre les Démons et les Morts-Vivants...";
				next;
				mes "[Évêque Paul]";
				mes "Grâce à vos capacités, vous deviendrez l'un des piliers des groupes d'exploration en donjons.";
				next;
				mes "[Évêque Paul]";
				mes "Notre devoir et notre tâche, en tant que Prêtres, est de nous dévouer pour aider les autres, sans rien attendre en retour.";
				next;
				mes "[Évêque Paul]";
				mes "Il ne faut pas prendre la grosse tête. Être un bon Prêtre relève de votre choix, de votre responsabilité, et de personne d'autre.";
				next;
				mes "[Évêque Paul]";
				mes "Cependant, ne vous laissez pas maltraiter. Ceux que vous aidez vous doivent au moins la politesse. Vous devez également donner le bon exemple, même si vous avez des limites en tant qu'être humain.";
				next;
				mes "[Évêque Paul]";
				mes "J'espère que ces explications vous conviennent. Pourquoi n'iriez-vous pas interroger des Prêtres, pour leur demander de vous raconter comment se déroule leur travail?";
				next;
				break;
			case 2:
				mes "[Évêque Paul]";
				mes "Vous êtes ici chez vous. Aucun endroit sur Terre n'est plus sûr que ce Sanctuaire.";
				next;
				break;
			}
			mes "[Évêque Paul]";
			mes "Bien...";
			mes "Que Dieu vous bénisse.";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		mes "[Évêque Paul]";
		mes "Que Dieu vous bénisse,";
		if (sex)
			mes "mon Frère.";
		else
			mes "ma Soeur.";
		mes "Qu'est-ce qui vous amène ici?";
		next;
		switch(select("Je souhaite devenir Prêtre.:Comment allez-vous, mon Père?")) {
		case 1:
			mes "[Évêque Paul]";
			mes "Je vois. Alors vous souhaitez devenir Prêtre? Dieu sera ravi de votre décision, et il vous bénira.";
			next;
			mes "[Évêque Paul]";
			mes "Je suis l'Évêque Paul Cervantès, en charge de la Paroisse de Prontera.";
			mes "Je suis heureux de rencontrer une personne aussi fervente et dévouée à Dieu.";
			next;
			mes "[Évêque Paul]";
			mes "Si vous choisissez de devenir Prêtre, vous devrez vous soumettre à différentes épreuves. Seuls les Acolytes ayant atteint le Niveau de Métier 40 peuvent prétendre à ces épreuves.";
			next;
			mes "[Évêque Paul]";
			mes "Si vous remplissez ces pré-requis, je vous suggère de vous inscrire pour l'entraînement de Prêtre. Souhaitez-vous vous inscrire maintenant?";
			next;
			if (select("Oui, s'il vous plaît.:J'ai besoin de temps pour y réfléchir...") == 1) {
				if (JobLevel < 40) {
					mes "[Évêque Paul]";
					mes "Vous n'êtes pas qualifié pour vous inscrire. Allez visiter le monde pour élargir vos connaissances et votre expérience.";
					next;
					mes "[Évêque Paul]";
					mes "Vous devez encore apprendre des choses en tant qu'Acolyte. J'attendrai avec un impatience de vous revoir.";
					close;
				}
				if (SkillPoint) {
					mes "[Évêque Paul]";
					mes "Il vous reste des points de compétence à utiliser.";
					close;
				}
				set PRIEST_Q,1;
				setquest 8009;
					mes "[Évêque Paul]";
				if (sex)
					mes "Je vais à présent vous expliquer en quoi consistent les Trois Épreuves de l'Entraînement de Prêtre. Ces épreuves vous apporteront beaucoup de souffrance, mais je suis sûr que vous pouvez les réussir, Frère " + strcharinfo(0) + ".";
				else
					mes "Je vais à présent vous expliquer en quoi consistent les Trois Épreuves de l'Entraînement de Prêtre. Ces épreuves vous apporteront beaucoup de souffrance, mais je suis sûr que vous pouvez les réussir, Soeur " + strcharinfo(0) + ".";
				next;
				mes "[Évêque Paul]";
				mes "La Première Épreuve consiste à effectuer un pèlerinage, afin de rendre visite à trois Prêtres ascètes, dans un ordre très particulier.";
				next;
				mes "[Évêque Paul]";
				mes "La Seconde Épreuve consiste en un entraînement spirituel. Vous devrez résister à la tentation des Démons et des Morts-Vivants.";
				next;
				mes "[Évêque Paul]";
				mes "Pour l'Épreuve Finale, vous devrez proférer votre entière dévotion à Dieu. Vous serez également questionné à propos de votre volonté à vous sacrifier.";
				next;
				mes "[Évêque Paul]";
				mes "Les Acolytes qui auront atteint le Niveau de Métier 50 seront exemptés de la Première Épreuve, le pèlerinage, car ils auront déjà montré leur enthousiasme et leur dévotion.";
				next;
				if (JobLevel == 50) {
					mes "[Évêque Paul]";
					mes "Je peux d'ailleurs voir que vous avez réussi à atteindre le Niveau de Métier 50. Vous êtes un loyal serviteur de Dieu.";
					next;
					mes "[Évêque Paul]";
					mes "Vous pouvez aller directement vers la Seconde Épreuve: l'Entraînement Spirituel. Si vous le souhaitez, vous pouvez vous faire aider d'un Prêtre.";
					next;
					mes "[Évêque Paul]";
					mes "Je n'ai aucun doute concernant votre réussite. Cependant, l'aide d'un Frère ou d'une Soeur peut vous faciliter la tâche.";
					next;
					set PRIEST_Q,5;
					changequest 8009,8011;
					mes "[Évêque Paul]";
					mes "Êtes-vous prêt pour l'Entraînement Spirituel?";
					next;
					if (select("Je suis prêt.:Donnez-moi un instant.") == 1) {
						mes "[Évêque Paul]";
						mes "Bien. Je vous envoie vers la zone d'entraînement. Lorsque vous y serez, veuillez vous adresser à Frère Peter, qui est chargé de l'organisation de cette épreuve.";
						next;
						warp "job_prist",24,180;
						end;
					}
					mes "[Évêque Paul]";
					mes "Pas de problème, vous pouvez prendre tout le temps dont vous avez besoin.";
					mes "Que Dieu vous accorde la force de surpasser vos peurs...";
					close;
				}
				mes "[Évêque Paul]";
				mes "Bien, je vais vous indiquer le chemin que vous devrez parcourir au cours de votre pèlerinage, et les ascètes que vous devrez rencontrer.";
				next;
				mes "[Évêque Paul]";
				mes "Vous devez d'abord rencontrer le Père Rubalkabara. Il se trouve dans les ruines au nord-est de Prontera.";
				next;
				mes "[Évêque Paul]";
				mes "Ensuite, vous devez aller voir Soeur Mathilda. Elle est quelque part non loin de la ville de Morroc, au sud-ouest de Prontera.";
				next;
				mes "[Évêque Paul]";
				mes "Enfin, allez voir le Père Yosuke. Il est au nord-ouest de Prontera.";
				next;
				mes "[Évêque Paul]";
				mes "Je prierai pour que votre voyage se déroule sans problème. Si vous avez besoin d'autres informations, vous pouvez vous adresser à Soeur Cecilia.";
				next;
				mes "[Évêque Paul]";
				mes "Lorsque vous serez de retour de votre pèlerinage, je vous informerai à propos de l'épreuve suivante.";
				next;
				mes "[Évêque Paul]";
				mes "Que Dieu vous bénisse...";
				changequest 8009,8010;
				close;
			}
			mes "[Évêque Paul]";
			mes "Prenez votre temps.";
			mes "Vous serez toujours le bienvenue ici.";
			mes "Que Dieu vous bénisse...";
			close;
		case 2:
			mes "[Évêque Paul]";
			mes "Je vois...";
			mes "Je vais bien, ma santé est bonne. Merci de vous en inquiéter.";
			next;
			mes "[Évêque Paul]";
			if (sex)
				mes "J'espère que vous continuerez votre mission en tant que serviteur de Dieu, mon Frère.";
			else
				mes "J'espère que vous continuerez votre mission en tant que serviteur de Dieu, ma Soeur.";
			next;
			mes "[Évêque Paul]";
			mes "Nos chemins se croiseront peut-être à nouveau.";
			mes "Que Dieu vous bénisse...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "[Évêque Paul]";
		mes "Puis-je vous demander pourquoi vous êtes encore ici? Vous n'avez pas oublié votre pèlerinage, n'est-ce pas?";
		next;
		if (select("Mon père, pourriez-vous me répéter le chemin?:Non non, pas du tout.") == 1) {
			mes "[Évêque Paul]";
			mes "Ah, je vois. Je vais vous répéter le chemin que vous devrez parcourir au cours de votre pèlerinage.";
			next;
			mes "[Évêque Paul]";
			mes "Vous devez d'abord rencontrer le Père Rubalkabara. Il est situé dans les ruines au nord-est de Prontera.";
			next;
			mes "[Évêque Paul]";
			mes "Ensuite, vous devez aller voir Soeur Mathilda. Elle est quelque part non loin de la ville de Morroc, au sud-ouest de Prontera.";
			next;
			mes "[Évêque Paul]";
			mes "Enfin, allez voir le Père Yosuke. Il est au nord-ouest de Prontera.";
			next;
			mes "[Évêque Paul]";
			mes "Je prierai pour que votre voyage se déroule sans problème. Si vous avez besoin d'autres informations, vous pouvez vous adresser à Soeur Cecilia.";
			next;
			mes "[Évêque Paul]";
			mes "Lorsque vous serez de retour de votre pèlerinage, je vous informerai à propos de l'épreuve suivante.";
			next;
			mes "[Évêque Paul]";
			mes "Que Dieu vous bénisse...";
			close;
		}
		mes "[Évêque Paul]";
		mes "Je vois. Mais si vous avez des questions, n'hésitez pas à vous adresser à Soeur Cecilia.";
		next;
		mes "[Évêque Paul]";
		mes "Très bien, dans ce cas je vais prier pour que votre voyage se déroule en sécurité. Que Dieu vous bénisse...";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "[Évêque Paul]";
		mes "Je vois que vous êtes de retour de votre voyage à la rencontre du Père Rubalkabara. Comment va-t-il? Je suis m'inquiète pour sa santé, depuis qu'il est seul là-bas... ";
		next;
		mes "[Évêque Paul]";
		mes "Pour la prochaine étape, vous devez rencontrer Soeur Mathilda. J'attendrai votre retour.";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "[Évêque Paul]";
		mes "Je vois que vous êtes de retour de votre voyage à la rencontre de Soeur Mathilda. Elle a médité sous la chaleur, dans ce désert aride, pendant très longtemps.";
		next;
		mes "[Évêque Paul]";
		mes "Vous devez maintenant aller rencontrer le Père Yosuke. Il fait pénitence quelque part au nord-ouest de Prontera. Cherchez-le, parlez-lui et revenez me voir.";
		close;
	}
	else if (PRIEST_Q == 4) {
		set PRIEST_Q,5;
		changequest 8010,8011;
		mes "[Évêque Paul]";
		mes "Vous avez accompli votre pèlerinage.";
		mes "Toutes mes félicitations.";
		next;
		mes "[Évêque Paul]";
		mes "Il est maintenant temps pour vous de commencer votre entraînement spirituel. Comme je l'ai déjà mentionné, vous pouvez demander à un Prêtre de vous accompagner pour vous aider au cours de cette épreuve.";
		next;
		mes "[Évêque Paul]";
		mes "Même si l'on ne pourra pas vous aider pour toutes les étapes de votre apprentissage, une exception est faite pour l'épreuve de l'entraînement spirituel.";
		next;
		mes "[Évêque Paul]";
		mes "Alors, êtes-vous prêt?";
		next;
		if (select("Je suis prêt.:Donnez-moi un instant.") == 1) {
			mes "[Évêque Paul]";
			mes "Bien. Je vous envoie vers la zone d'entraînement. Lorsque vous y serez, veuillez vous adresser à Frère Peter, qui est chargé de l'organisation de cette épreuve.";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[Évêque Paul]";
		mes "Pas de problème, vous pouvez prendre tout le temps dont vous avez besoin.";
		mes "Que Dieu vous accorde la force de surpasser vos peurs...";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "[Évêque Paul]";
		mes "Vous avez l'air confiant face à l'épreuve de l'entraînement spirituel. Cela signifie que nous pouvons commencer?";
		next;
		if (select("Je suis prêt.:Donnez-moi un instant.") == 1) {
			mes "[Évêque Paul]";
			mes "Bien. Je vous envoie vers la zone d'entraînement. Lorsque vous y serez, veuillez vous adresser à Frère Peter, qui est chargé de l'organisation de cette épreuve.";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[Évêque Paul]";
		mes "Pas de problème, vous pouvez prendre tout le temps dont vous avez besoin.";
		mes "Que Dieu vous accorde la force de surpasser vos peurs...";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "[Évêque Paul]";
		mes "Vous avez l'air épuisé... Cependant vous endurerez bien plus de souffrances lorsque vous serez devenu Prêtre.";
		next;
		mes "[Évêque Paul]";
		mes "Vous devez endurer ces épreuves pour accéder à votre but, à votre rêve. Pourquoi ne pas essayer cet entraînement spirituel à nouveau?";
		next;
		if (select("Je vais réessayer.:Donnez-moi un instant.") == 1) {
			mes "[Évêque Paul]";
			mes "Bien. Je vous envoie vers la zone d'entraînement. Lorsque vous y serez, veuillez vous adresser à Frère Peter.";
			next;
			warp "job_prist",24,180;
			end;
		}
		mes "[Évêque Paul]";
		mes "Pas de problème, vous pouvez prendre tout le temps dont vous avez besoin.";
		mes "Que Dieu vous accorde la force de surpasser vos peurs...";
		close;
	}
	else if (PRIEST_Q == 7) {
		mes "[Évêque Paul]";
		mes "Je suis heureux de voir que vous avez très bien réussi votre entraînement spirituel. Félicitations. Vous êtes maintenant qualifié pour être Prêtre.";
		next;
		mes "[Évêque Paul]";
		mes "Vous devez à présent jurer votre dévotion à Dieu. Adressez-vous à Soeur Cecilia, et ne soyez pas trop nerveux...";
		next;
		mes "[Évêque Paul]";
		mes "Répondez de façon honnête, et écoutez la voix de Dieu qui murmure dans votre coeur.";
		next;
		mes "[Évêque Paul]";
		mes "Très bien...";
		mes "Je vous attends ici.";
		close;
	}
	else if (PRIEST_Q == 8) {
		mes "[Évêque Paul]";
		mes "Hum? Vous n'avez pas encore prêté serment...? Si vous ne prêtez pas serment envers Dieu, vous pourrez être tenté par le mal à n'importe quel instant.";
		next;
		mes "[Évêque Paul]";
		mes "Allez voir Soeur Cecilia et promettez votre dévotion à Dieu. Répondez de façon honnête, et écoutez la voix de Dieu qui murmure dans votre coeur.";
		close;
	}
	else if (PRIEST_Q == 9) {
		if (SkillPoint) {
			mes "[Évêque Paul]";
			mes "Il vous reste des Points de Compétence à répartir, veuillez les utiliser et revenez me voir.";
			close;
		}
		mes "[Évêque Paul]";
		mes "Félicitations, vous avez accompli les trois épreuves nécessaires pour devenir Prêtre. Je vais maintenant vous promouvoir à ce rang.";
		next;
		mes "[Évêque Paul]";
		changequest 8015,8016;
		if (sex)
			mes "Dieu, accorde ton pouvoir à ton serviteur ici présent. Laisse-le propager ton message aux confins de la terre.";
		else
			mes "Dieu, accorde ton pouvoir à ta servante ici présent. Laisse-la propager ton message aux confins de la terre.";
		next;
		mes "[Évêque Paul]";
		mes "Fais de ce serviteur l'instrument de ton travail miraculeux...";
		next;
		set .@joblvl,JobLevel;
		completequest 8016;
		callfunc "Job_Change",Job_Priest;
		callfunc "F_ClearJobVar";		// clears all job variables for the current player
		mes "[Évêque Paul]";
		mes "Vous êtes désormais Prêtre. Je vous félicite, et j'espère que vous viendrez en aide aux autres pour le reste de votre vie.";
		next;
		mes "[Évêque Paul]";
		if (.@joblvl < 50) {
			getitem 1550,1; //Book
			mes "Ce livre est pour vous. J'espère qu'il vous aidera à répandre le message de Dieu sur Terre.";
		}
		else {
			getitem 1551,1; //Bible
			mes "En commémoration de votre promotion, je vous offre cette Bible. Elle éclairera votre chemin vers la justice de Dieu.";
		}
		next;
		mes "[Évêque Paul]";
		mes "Vous avez montré que vous étiez capable de travailler de façon acharnée, et réalisé des progrès admirables au cours de votre quête personnelle vers la sainteté. Je vous souhaite de mener votre vie de Prêtre de façon sincère...";
		close;
	}
}

prt_church,27,24,1	script	Soeur Cecilia	79,{
	mes "[Soeur Cecilia]";
	if (BaseJob != Job_Acolyte) {
		if (BaseJob == Job_Priest) {
			if (sex)
				mes "Que Dieu vous bénisse, mon Frère. Je suis heureuse de voir que vous travaillez dur selon la volonté de Dieu.";
			else
				mes "Que Dieu vous bénisse, ma Soeur. Je suis heureuse de voir que vous travaillez dur selon la volonté de Dieu.";
		}
		else if (Class == Job_Novice) {
			if (sex)
				mes "Que Dieu vous bénisse, mon Frère.";
			else
				mes "Que Dieu vous bénisse, ma Soeur.";
			mes "Vous êtes bienvenue à la Paroisse de Prontera.";
			next;
			mes "[Soeur Cecilia]";
			mes "Oh, vous n'avez pas encore choisi votre futur métier? Pourquoi pas consacrer votre vie à Dieu?";
			next;
			mes "[Soeur Cecilia]";
			mes "Vous pouvez vivre en tant qu'Acolyte accompli, aider les gens dans le besoin.";
			next;
			mes "[Soeur Cecilia]";
			mes "Si vous êtes intéressé, allez parler au Prêtre situé dans la pièce de l'autre côté du couloir. Vous ne regretterez pas votre choix de devenir Acolyte.";
			next;
			mes "[Soeur Cecilia]";
			mes "De plus, si vous atteignez le Niveau de Métier 40 en tant qu'Acolyte, vous pourrez être promu Prêtre.";
			next;
			mes "[Soeur Cecilia]";
			mes "Mais prenez votre temps, et choisissez le métier qui vous correspond le mieux.";
		}
		else {
			if (sex)
				mes "Que Dieu vous bénisse, mon Frère.";
			else
				mes "Que Dieu vous bénisse, ma Soeur.";
			mes "Bienvenue à la Paroisse de Prontera. En quoi puis-je vous aider?";
			next;
			if (select("Informations à propos des Prêtres.:Rien, merci.") == 1) {
				mes "[Soeur Cecilia]";
				mes "Les messagers de Dieu sont connus le nom de Prêtres. Après être devenu Acolyte, vous pourrez vous entraîner dans le but de devenir Prêtre.";
				next;
				mes "[Soeur Cecilia]";
				mes "Les serviteurs de Dieu n'ont pas le droit d'utiliser d'armes contenant des lames. Pour nous, le sens d'une bataille contre un monstre ne réside pas dans la finalité de la mort du monstre, mais dans le salut de son âme.";
				if (BaseJob == Job_Acolyte) {
					next;
					mes "[Soeur Cecilia]";
					mes "Pour vous faire une idée plus précise du métier, vous pourriez rencontrer un Prêtre et lui parler? Si vous êtes intéressé par devenir Prêtre, allez trouver l'Évêque Paul dans la pièce située de l'autre côté du couloir.";
					next;
					mes "[Soeur Cecilia]";
					mes "Il pourra vous en dire plus à propos des prérequis nécessaires, et des informations plus poussées à propos des Prêtres.";
					next;
				}
			}
			mes "[Soeur Cecilia]";
			mes "Je vois. Vous pouvez rester ici pour vous reposer, vous êtes ici chez vous. Aucun endroit au monde n'est plus sûr que le Sanctuaire de Prontera.";
			next;
			mes "[Soeur Cecilia]";
			mes "Que Dieu vous bénisse...";
			close;
		}
	}
	if (PRIEST_Q == 0) {
		if (sex)
			mes "Que Dieu vous bénisse, mon Frère.";
		else
			mes "Que Dieu vous bénisse, ma Soeur.";
		mes "Puis-je vous demander ce qui vous amène ici?";
		next;
		switch(select("Je souhaite devenir Prêtre.:Rien de spécial.")) {
		case 1:
			mes "[Soeur Cecilia]";
			mes "Je vois. Vous avez voué votre vie à Dieu. De nombreux Acolytes souhaitent devenir Prêtres pour continuer leur voyage personnel vers la sainteté.";
			next;
			mes "[Soeur Cecilia]";
			mes "Laissez-moi me présenter. Je suis Cecilia Margarita, et je suis en charge d'une partie de l'apprentissage du métier de Prêtre.";
			next;
			mes "[Soeur Cecilia]";
			mes "J'ai aidé de nombreuses personnes à devenir Prêtres depuis que j'ai rejoint la Paroisse de Prontera. C'est l'une de mes responsabilités principales.";
			next;
			mes "[Soeur Cecilia]";
			mes "Pour devenir Prêtre, vous devrez réussir trois épreuves. Un pèlerinage, un entraînement spirituel, et effectuer un serment de dévotion à Dieu.";
			next;
			mes "[Soeur Cecilia]";
			mes "Si vous souhaitez devenir un serviteur de Dieu, inscrivez-vous à la formation au métier de Prêtre en vous adressant à l'Évêque Paul.";
			next;
			mes "[Soeur Cecilia]";
			mes "Si vous avez un problème ou une question à n'importe quelle étape de votre entraînement, n'hésitez pas à venir me voir. Je vous aiderai du mieux que je peux.";
			close;
		case 2:
			mes "[Soeur Cecilia]";
			mes "Vous pouvez rester ici pour vous reposer, vous êtes ici chez vous. Aucun endroit au monde n'est plus sûr que le Sanctuaire de Prontera. Que Dieu vous bénisse...";
			close;
		}
	}
	else if (PRIEST_Q == 1) {
		mes "Ah, vous avez commencé votre pèlerinage. Faites de votre mieux pour réussir cette première épreuve.";
		next;
		mes "[Soeur Cecilia]";
		mes "Le premier Prêtre que vous devez rencontrer est le Père Rubalkabara. Il est situé dans les ruines au nord-est de Prontera.";
		next;
		mes "[Soeur Cecilia]";
		mes "Voyagez un jour vers le Nord de Prontera, puis continuez trois jours vers l'est, vous atteindrez les ruines.";
		next;
		mes "[Soeur Cecilia]";
		mes "Bien sûr, vous pouvez également faire un jour de marche à l'est, un jour au nord, puis encore deux jours à l'est...";
		next;
		mes "[Soeur Cecilia]";
		mes "Le Père Rubalkabara se trouve à l'entrée des Ruines de Prontera. Soyez prudent. C'est un lieux qui abrite des Chocos assez agressifs.";
		next;
		mes "[Soeur Cecilia]";
		mes "Après avoir rencontré le Père Rubalkabara, veuillez rendre visite à Soeur Mathilda et au Père Yosuke. Vous pourrez me demander où ils se trouvent plus tard, quand vous aurez déjà rendu visite au Père Rubalkabara.";
		next;
		mes "[Soeur Cecilia]";
		mes "Très bien, je vous souhaite bon voyage. J'espère que vous atteindrez votre but sans mal.";
		close;
	}
	else if (PRIEST_Q == 2) {
		mes "Oh, vous avez rencontré le Père Rubalkabara? Il est maintenant temps pour vous de rendre visite à Soeur Mathilda. Elle est située près d'une ville du nom de Morroc.";
		next;
		mes "[Soeur Cecilia]";
		mes "Elle travaille sa discipline religieuse quelque part au nord de Morroc. Si vous cherchez dans cette région, vous la trouverez à coup sûr.";
		next;
		mes "[Soeur Cecilia]";
		mes "Parfois j'aimerais moi aussi pouvoir me dévouer à l'entraînement comme les autres Prêtres, mais il est de mon devoir d'assister les Acolytes qui souhaitent apprendre le métier de Prêtre.";
		next;
		mes "[Soeur Cecilia]";
		mes "Je pense que c'est la volonté de Dieu, et que ce travail est celui qu'il m'a réservé en tant que son serviteur. Je vous souhaite bon voyage.";
		close;
	}
	else if (PRIEST_Q == 3) {
		mes "Le dernier Prêtre que vous devez rencontrer pour accomplir votre pèlerinage est le Père Yosuke. J'ai entendu dire qu'il s'entraînait près d'un lac situé au nord-ouest de Prontera.";
		next;
		mes "[Soeur Cecilia]";
		mes "A partir de Prontera, voyagez un jour vers le nord, puis deux jours vers l'ouest. Vous pouvez également voyager deux jours vers l'ouest, puis un jour au nord, si vous préférez.";
		next;
		mes "[Soeur Cecilia]";
		mes "Bien qu'il reste encore deux épreuves après celle-ci qui vous attendent, j'ai foi en vous, je suis sûre que vous accomplirez votre voyage et que vous deviendrez Prêtre rapidement...";
		close;
	}
	else if (PRIEST_Q == 4) {
		mes "Bienvenue. Vous avez fait preuve d'une grande ténacité et de volonté au cours de cette première épreuve. Veuillez vous adresser à l'Évêque Paul à présent, afin de commencer l'épreuve suivante qui vous conduira à l'apprentissage du métier de Prêtre.";
		next;
		mes "[Soeur Cecilia]";
		if (sex)
			mes "Frère "+ strcharinfo(0) +"...";
		else
			mes "Soeur "+ strcharinfo(0) +"...";
		mes "L'entraînement spirituel est bien plus difficile que le pèlerinage, mais je crois en vous.";
		next;
		mes "[Soeur Cecilia]";
		mes "J'espère que vous trouverez un Prêtre pour vous aider dans cette épreuve. Bonne chance, et gardez la foi.";
		close;
	}
	else if (PRIEST_Q == 5) {
		mes "Oh, vous n'avez pas encore terminé votre entraînement spirituel?";
		next;
		mes "[Soeur Cecilia]";
		mes "Tant que vous gardez la foi et que vous gardez confiance en vous, vous réussirez ce que vous entreprendrez.";
		next;
		mes "[Soeur Cecilia]";
		mes "Veuillez parler au Père Peter pour plus d'informations. C'est un ami proche de l'Évêque Paul, il pourra vous donner de nombreux conseils concernant l'entraînement spirituel.";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "Je comprends que vous ayez traversé une situation très difficile. Cependant, ne succombez jamais à la tentation. Vous devez être capable de résister au mal afin de devenir Prêtre.";
		next;
		mes "[Soeur Cecilia]";
		mes "Si vous connaissez quelqu'un qui est déjà Prêtre, demandez-lui de vous aider pour l'épreuve de l'entraînement spirituel.";
		next;
		mes "[Soeur Cecilia]";
		mes "Que Dieu vous guide et vous accorde sa protection. Lorsque vous aurez terminé votre entraînement, revenez me voir.";
		close;
	}
	else if (PRIEST_Q == 7 || PRIEST_Q == 8) {
		if (PRIEST_Q == 7) {
			if(checkquest(8014) == -1) {
				changequest 8013,8014;
			}
			mes "Bienvenue! Je suis si heureuse que vous soyez "+(sex? "revenu":"revenue")+"! Maintenant, il ne vous reste plus qu'une épreuve à accomplir avant de devenir Prêtre.";
		}
		else if (PRIEST_Q == 8) {
			mes "...";
			next;
			mes "[Soeur Cecilia]";
			mes "Bienvenue.";
			mes "J'espère que vous avez réfléchi à ce que je vous ai dit la dernière fois, et que vous ferez preuve d'une attitude responsable à présent.";
		}
		mes "[Soeur Cecilia]";
		if (sex)
			mes "Frère "+ strcharinfo(0) +"...";
		else
			mes "Soeur "+ strcharinfo(0) +"...";
		mes "Vous allez maintenant commencer votre serment solennel de Prêtrise. Installez-vous confortablement, et répondez simplement avec votre coeur.";
		next;
		mes "[Soeur Cecilia]";
		if (sex)
			mes "Frère "+ strcharinfo(0) +",";
		else
			mes "Soeur "+ strcharinfo(0) +",";
		mes "Souhaitez-vous consacrer votre vie à Dieu?";
		next;
		if (select("Oui.:Non!") == 2) {
			mes "[Soeur Cecilia]";
			mes "Qu...? Comment pouvez-vous me répondre une telle chose? Je suppose que vous n'êtes pas encore prêt à devenir un Prêtre pour l'instant...";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Vous devriez réfléchir et étudier plus longuement les saintes écritures, et revenir quand vous vous sentirez prêt. Vous ne pouvez pas devenir Prêtre si votre esprit est faible.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Utiliserez-vous les saints pouvoirs que Dieu vous accorde pour votre profit personnel, à des fins égoïstes, de destruction ou de convoitise?";
		next;
		if (select("Oui.:Non.") == 1) {
			mes "[Soeur Cecilia]";
			mes "Qu...? Dieu n'accorde pas son pouvoir saint à ceux dont les sentiments ne sont pas justes et purs. Méditez un moment sur vos motivations, puis revenez me voir.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Réfléchissez aux qualités qui font des Prêtres des personnes respectables. Vous ne pouvez pas devenir Prêtre si votre esprit n'est pas en accord avec Dieu.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Aiderez-vous les autres, y compris de parfaits étrangers, en apaisant leurs souffrances?";
		next;
		if (select("Oui.:Non.") == 2) {
			mes "[Soeur Cecilia]";
			mes "Non, non. Ce n'est pas bien. Dieu nous autorise à utilise son pouvoir pour aider ses enfants. Vous devez aider tous ceux qui en auront besoin: c'est votre obligation.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Allez observer les aventuriers qui se battent pour la paix dans notre monde. Ils vous enseigneront que vous devez leur venir en aide.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Accepterez-vous de vous sacrifier pour le bien des autres?";
		next;
		if (select("Oui.:Non.") == 2) {
			mes "[Soeur Cecilia]";
			mes "Comment pouvez-vous répondre non...? Le sacrifice est l'un des principes de base de la Prêtrise. Vous devez faire passer le bien-être des autres avant votre propre sécurité.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Vous devez réfléchir sur l'importance de la douleur et de la souffrance, et au sens du sacrifice. Quand vous comprendrez que vous devez aider ceux qui sont dans le besoin, revenez me voir.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Proférerez-vous sans cesse le message de Dieu sur la place publique, afin que ses enfants entendent toujours raison?";
		next;
		if (select("Oui.:Non.") == 1) {
			mes "[Soeur Cecilia]";
			mes "Non non non... Vous vous trompez. Même si votre devoir est de répandre le message de Dieu, il ne faut jamais l'imposer aux autres.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Souvenez-vous...";
			mes "Vous devez être quelqu'un de moralement saint, faire preuve de maturité et de respect envers tous.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Irez-vous provoquer des monstres afin d'aider vos amis aventuriers?";
		next;
		if (select("Oui.:Non.") == 1) {
			mes "[Soeur Cecilia]";
			mes "Non, il ne faut pas. Provoquer trop de monstres peut vous mettre fortement en danger. Ce genre de comportement est totalement inacceptable.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "Même si vous avez l'impression d'aider vos compagnons aventuriers en faisant cela, de telles actions ne feront que vous apporter un mauvais karma. Réfléchissez à cela sérieusement.";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "Suivrez-vous la volonté de Dieu, quoi qu'il en coûte, même s'il vous demande de mourir pour lui?";
		next;
		if (select("Oui.:Non.") == 2) {
			mes "[Soeur Cecilia]";
			mes "Vous ne pourrez pas devenir Prêtre dans cet état d'esprit. Si c'est la volonté de Dieu que de prendre votre vie en sacrifice dans un but juste, vous devez accomplir la volonté de Dieu, en tant que son serviteur.";
			next;
			set PRIEST_Q,8;
			mes "[Soeur Cecilia]";
			mes "De plus, Dieu a accordé aux Prêtres des pouvoirs de résurrection. Réfléchissez sur le sens de la vie et de la mort, puis revenez me voir.";
			close;
		}
		mes "[Soeur Cecilia]";
		if (sex)
			mes "Frère "+ strcharinfo(0) +"...";
		else
			mes "Soeur "+ strcharinfo(0) +"...";
		mes "Vous avez prouvé votre dévotion envers Dieu. Jurez-vous de suivre ses enseignements pour le reste de votre vie?";
		next;
		if (select("Je le jure.:Non.") == 1) {
			changequest 8014,8015; // Bugfix [NoH]
			set PRIEST_Q,9;
			mes "[Soeur Cecilia]";
			mes "Maintenant que vous avez effectué votre serment de Prêtrise, et accompli les trois épreuves requises pour devenir Prêtre, vous pouvez retourner voir l'Évêque Paul.";
			next;
			mes "[Soeur Cecilia]";
			mes "Souvenez-vous, nous sommes tous frères et soeurs aux yeux de Dieu. Que la paix soit avec vous...";
			close;
		}
		mes "[Soeur Cecilia]";
		mes "...";
		next;
		mes "[Soeur Cecilia]";
		mes "...";
		mes "......";
		next;
		set PRIEST_Q,8;
//		changequest 8014,8015; // Bugfix: ça doit être plus haut [NoH]
		mes "[Soeur Cecilia]";
		mes "Vous êtes arrivé si loin...";
		mes "Pourquoi vouloir tourner le dos à tout cela...?";
		close;
	}
	else if (PRIEST_Q == 9) {
		mes "Félicitations.";
		mes "Vous avez achevé les trois tâches requises pour devenir Prêtre. L'Évêque Paul vous attend.";
		next;
		mes "[Soeur Cecilia]";
		mes "Que la paix soit avec vous...";
		close;
	}
}

// 2nd Test
//==========================================================
job_prist,24,187,4	script	Peter S. Alberto	110,{
	mes "[Père Peter]";
	if (BaseJob == Job_Priest) {
		mes "Bienvenue!";
		if (sex)
			mes "Frère "+ strcharinfo(0) +"!";
		else
			mes "Soeur "+ strcharinfo(0) +"!";
		mes "Je suis ravi de vous revoir!";
		next;
		mes "[Père Peter]";
		mes "Êtes-vous ici pour aider un ami Acolyte pendant l'entraînement spirituel? C'est super~ Je suis sûr que vous ferez du très bon travail.";
		next;
		mes "[Père Peter]";
		mes "Cependant souvenez-vous que ceci n'est pas votre quête, peu importe la bonne volonté que vous avez à aider cet Acolyte.";
		next;
		mes "[Père Peter]";
		mes "Vous pouvez assister votre ami, et alléger sa charge, mais il doit remplir le reste des épreuves seul.";
		next;
		mes "[Père Peter]";
		mes "Alors...";
		mes "Souhaitez-vous le rejoindre pour l'aider?";
		next;
		switch(select("Oui.:Donnez-moi une minute.:J'ai changé d'avis.")) {
		case 1:
			mes "[Père Peter]";
			mes "Allez-y! Quand votre ami Acolyte entrera dans la salle d'entraînement, l'épreuve débutera. Je vous envoie dans la salle à présent.";
			close2;
			warp "job_prist",24,44;
			end;
		case 2:
			mes "[Père Peter]";
			mes "Hum...?";
			mes "Pour quoi faire?";
			mes "Bon, tant que vous arrivez à temps pour aider votre ami, vous faites ce que vous voulez.";
			close;
		case 3:
			mes "[Père Peter]";
			mes "Oh...?";
			mes "Dans ce cas je ne vous retiens pas plus. Que Dieu vous bénisse, prenez soin de vous!";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	if (PRIEST_Q == 5) {
		mes "Bienvenue~!";
		mes "Je vous félicite pour avoir réussi la première épreuve.";
		next;
		mes "[Père Peter]";
		mes "Mon nom est Peter S. Alberto. Savez-vous comment se porte mon ami Paul ces jours-ci?";
		next;
		mes "[Père Peter]";
		mes "Oh, j'oublie toujours qu'il a été promu Évêque. Je suppose que je devrais l'appeler Évêque Paul, ou 'Son Excellence'. Haha~";
		next;
		mes "[Père Peter]";
		mes "Quoi qu'il en soit, laissez-moi vous expliquer brièvement en quoi consiste l'entraînement spirituel que vous allez suivre. A moins que vous soyez déjà familier avec l'entraînement spirituel des Prêtres?";
		next;
		switch(select("En effet, je le suis.:Non, pas vraiment...")) {
		case 1:
			mes "[Père Peter]";
			mes "Haha, vous m'êtes sympathique, vous savez! Mais ré-entendre les informations ne pourra pas vous faire de mal. Mieux vous serez informé, plus vous réussirez cette épreuve facilement!";
			next;
			break;
		case 2:
			mes "[Père Peter]";
			mes "Oh, dans ce cas quelques informations complémentaires vous aideront. Ne vous inquiétez pas.";
			next;
			break;
		}
		mes "[Père Peter]";
		mes "Au cours de vos futurs entraînements spirituels, vous affronterez des créatures maléfiques. Les Morts-Vivants et les Démons ont choisi de servir les ténèbres, ils sont par conséquent nos ennemis!";
		next;
		mes "[Père Peter]";
		mes "Trop de créatures maléfiques errent en ce monde, contre la volonté de Dieu. Des innocents souffrent de leur malveillance.";
		next;
		mes "[Père Peter]";
		mes "En tant que Prêtres, nous avons le devoir d'exterminer toutes ces créatures, et de répandre ainsi l'amour et la paix.";
		next;
		mes "[Père Peter]";
		mes "L'épreuve que vous allez passer testera vos capacités à éliminer le mal. Comme cette épreuve n'est pas aisée, vous pouvez vous faire aider d'un ami Prêtre si vous le souhaitez.";
		next;
		mes "[Père Peter]";
		mes "Si vous connaissez un Prêtre désireux de vous aider, vous pouvez lui demander assistance au cours de cette épreuve. Êtes-vous prêt maintenant?";
		next;
		switch(select("Je suis prêt.:Attendez un instant.:Je veux rentrer chez moi...")) {
		case 1:
			mes "[Père Peter]";
			mes "L'entraînement spirituel va maintenant commencer. C'est très simple: tuez toutes les créatures maléfiques. Ne montrez aucune pitié envers ces créatures de l'ombre!";
			next;
			mes "[Père Peter]";
			mes "Maintenant...";
			mes "Allez-y!";
			close2;
			changequest 8011,8012;
			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 "[Père Peter]";
			mes "Hum? De quoi avez-vous besoin? Bon, il n'y a pas de problème, vous pouvez prendre votre temps.";
			close;
		case 3:
			set PRIEST_Q,6;
			mes "[Père Peter]";
			mes "Comment...?";
			mes "Vous voulez rentrer??";
			next;
			mes "[Père Peter]";
			mes "Je comprends. Je suppose que vous avez de bonnes raisons. Revenez quand vous serez prêt.";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else if (PRIEST_Q == 6) {
		mes "Êtes-vous prêt cette fois-ci?";
		mes "Vous devez impérativement réussir cette épreuve pour pouvoir devenir Prêtre!";
		next;
		mes "[Père Peter]";
		mes "Êtes-vous prêt?";
		next;
		switch(select("Je suis prêt.:Attendez!:Je veux rentrer chez moi...")) {
		case 1:
			mes "[Père Peter]";
			mes "L'entraînement spirituel va maintenant commencer. Pour la gloire de Dieu, la paix sur Terre, et la générosité entre les hommes...";
			next;
			mes "[Père Peter]";
			mes "Allez-y...";
			mes "Tuez ces créatures bâtardes!";
			close2;
			if(checkquest(8012) == -1) {
				changequest 8011,8012;
			}
			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 "[Père Peter]";
			mes "Hum? De quoi avez-vous besoin? Bon, il n'y a pas de problème, vous pouvez prendre votre temps.";
			close;
		case 3:
			mes "[Père Peter]";
			mes "Comment...?";
			mes "Vous voulez rentrer??";
			next;
			mes "[Père Peter]";
			mes "Je comprends. Je suppose que vous avez de bonnes raisons. Revenez quand vous serez prêt.";
			close2;
			warp "prontera",234,318;
			end;
		}
	}
	else {
		mes "Bon retour!";
		close2;
		warp "prontera",234,318;
		end;
	}

OnEnable:
	enablenpc "Peter S. Alberto";
	end;

OnDisable:
	disablenpc "Peter S. Alberto";
	end;
}

job_prist,23,187,1	script	Peter S. Alberto#2	110,{
	mes "[Père Peter]";
	if (BaseJob == Job_Priest) {
		mes "Bienvenue!";
		if (sex)
			mes "Frère "+ strcharinfo(0) +"!";
		else
			mes "Soeur "+ strcharinfo(0) +"!";
		mes "Je suis ravi de vous revoir!";
		next;
		mes "[Père Peter]";
		mes "Êtes-vous ici pour aider un ami Acolyte pendant l'entraînement spirituel? C'est super~ Je suis sûr que vous ferez du très bon travail.";
		next;
		mes "[Père Peter]";
		mes "Un autre Acolyte occupe actuellement le terrain d'entraînement. Vous allez devoir attendre quelques minutes...";
		next;
		mes "[Père Peter]";
		mes "Revenez un peu plus tard. Si cet Acolyte a terminé son entraînement, vous pourrez à votre tour pénétrer dans la zone des épreuves.";
		close;
	}
	if (PRIEST_Q == 5) {
		mes "Veuillez patienter un instant. Un autre Acolyte utilise actuellement le terrain d'entraînement.";
		next;
		mes "[Père Peter]";
		mes "Si vous êtes ici pour l'épreuve afin de devenir Prêtre, veuillez patienter un moment avant de me parler à nouveau.";
		close;
	}
	else if (PRIEST_Q == 6) {
		mes "Veuillez patienter un instant. Un autre Acolyte utilise actuellement le terrain d'entraînement.";
		next;
		mes "[Père Peter]";
		mes "Si vous êtes ici pour l'épreuve afin de devenir Prêtre, veuillez patienter un moment avant de me parler à nouveau.";
		close;
	}
	else {
		mes "Que la paix...";
		mes "...soit avec vous.";
		close2;
		warp "prontera",234,318;
		end;
	}

OnInit:
	disablenpc "Peter S. Alberto#2";
	end;

OnEnable:
	enablenpc "Peter S. Alberto#2";
	end;

OnDisable:
	disablenpc "Peter S. Alberto#2";
	end;
}

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

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

Onm1:
	set .MyMobs,13;
	monster "job_prist",24,52,"Vol",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,52,"Envie de Vertu",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,52,"Jalousie",1015,1,"Z_C#prst::OnMyMobDead";
	end;

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

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

Onm4:
	monster "job_prist",21,82,"Gourmandise",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",27,82,"Cupidité",1015,1,"Z_C#prst::OnMyMobDead";
	end;

Onm5:
	monster "job_prist",24,92,"Désespoir",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",18,92,"Méfiance",1015,1,"Z_C#prst::OnMyMobDead";
	monster "job_prist",30,92,"Peur",1015,1,"Z_C#prst::OnMyMobDead";
	end;

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

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

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

OnTimer301500:
	donpcevent "Zombie_Generator#prst::OnDisable";
	donpcevent "Peter S. Alberto#2::OnDisable";
	donpcevent "Peter S. Alberto::OnEnable";
	end;

OnTimer302000:
	stopnpctimer;
	end;
}

-	script	Z_C#prst	-1,{
	end;

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 "[Père Peter]";
		mes "Quand les apprentis Prêtres pénètrent dans la salle, il leur est accordé cinq minutes pour réussir l'épreuve. Avancez lentement et aidez votre ami Acolyte.";
		next;
		mes "[Père Peter]";
		mes "Quand vous aurez terminé, entrez dans le portail situé à l'extrémité du hall, où vous serez guidés dans la pièce de l'épreuve suivante.";
		next;
		mes "[Père Peter]";
		mes "Souvenez-vous...";
		mes "Cette épreuve doit être terminée en moins de cinq minutes. Bonne chance~";
		close;
	}
	else if (BaseJob == Job_Acolyte){
		mes "[Père Peter]";
		mes "Je vous donne exactement cinq minutes! Avancez lentement, et éliminez tous les Zombies.";
		next;
		mes "[Père Peter]";
		mes "Une fois votre tâche accomplie, pénétrez dans le portail situé au bout de la pièce.";
		close;
	}
	end;
}

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

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

OnEnable:
	enablenpc "Zombie1_1";
	end;

OnDisable:
	disablenpc "Zombie1_1";
	end;
}

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

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

OnEnable:
	enablenpc "Zombie2_1";
	end;

OnDisable:
	disablenpc "Zombie2_1";
	end;
}

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

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

OnEnable:
	enablenpc "Zombie3_1";
	end;

OnDisable:
	disablenpc "Zombie3_1";
	end;
}

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

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

OnEnable:
	enablenpc "Zombie4_1";
	end;

OnDisable:
	disablenpc "Zombie4_1";
}

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

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

OnEnable:
	enablenpc "Zombie5_1";
	end;

OnDisable:
	disablenpc "Zombie5_1";
}

job_prist,24,109,4	script	prst1_1	45,3,3,{
OnTouch:
	set .@mobs,getvariableofnpc(.MyMobs,"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 "Quuoooiii...?";
		mes "Qu'est-ce que tu fais là?";
		next;
		mes "[Deviruchi]";
		mes "Hé, qu'est-ce qu'un prêtre comme toi fais dans un endroit comme celui-ci? Retourne en ville. Tu gaspilles ton temps ici, non?";
		next;
		mes "[Deviruchi]";
		mes "Je me sens de bonne humeur aujourd'hui, je t'épargnerai donc, maintenant va. La prochaine fois que tu viendras, je ne serai pas si clément.";
		close;
	}
	if (BaseClass == Job_Acolyte) {
		mes "[Deviruchi]";
		mes "Oh...";
		mes "Un petit Acolyte...";
		next;
		mes "[Deviruchi]";
		mes "Tu dois être en train de t'entraîner dur pour devenir Prêtre. Amusant, en fait je connais pas mal de serviteurs de Dieu, tu sais? Ils n'arrêtent pas de me dire combien c'est dur de servir Dieu tout le temps. C'est... si ^666666fatiguant^000000 et si ^666666ingrat^000000 comme boulot...";
		next;
		mes "[Deviruchi]";
		mes "Je veux dire, les gens n'arrêtent pas d'aller pleurer dans les toges des Prêtres, demander de l'aide pour un oui ou pour un non. Et qu'est-ce que les Prêtres récoltent en retour? Rien du tout...";
		next;
		mes "[Deviruchi]";
		mes "C'est vraiment tragique, de voir combien les Prêtres sont en fait mal-aimés et exploités.";
		mes "N'importe quel boulot sauf Prêtre, franchement...";
		next;
		mes "[Deviruchi]";
		mes "Ce serait tellement plus facile de choisir un autre métier, tu ne crois pas? Tu peux changer d'avis, il est encore temps...";
		next;
		if (select("C'est vrai, vous avez raison!:Hors de ma vue, démon!") == 1) {
			mes "[Deviruchi]";
			mes "^660000OUI~!^000000 Je veux dire...";
			mes "Très bon choix!";
			next;
			mes "[Deviruchi]";
			mes "Oh...?";
			mes "Tu as vu l'^660000heure^000000?";
			mes "Tu ferais mieux d'y aller.";
			next;
			mes "[Deviruchi]";
			mes "BWAHAHAHAHAHAH!";
			mes "C'EST UNE BOUTADE!";
			close2;
			warp "c_tower2",168,33;
			end;
		}
		mes "[Deviruchi]";
		mes "Hors de ta vue?";
		mes "Je sais que je ne suis pas la créature la plus mignonne qu'il soit, mais bon, tu t'es regardé?";
		next;
		mes "[Deviruchi]";
		mes "Et que dirais-tu de ceci...? C'est assez attrayant, non? Une superbe carte rutilante. En parfait état! Elle est très rare, tu sais. Mes poches en sont pleines à craquer!";
		next;
		cutin "¹Ì½ºÆ®·¹½ºÄ«µå.bmp",4;
		mes "[Deviruchi]";
		mes "Tout le monde rêve de la posséder... Réfléchis-y. Être Prêtre est synonyme de grande souffrance...";
		next;
		if (select("Vous avez raison, je prends la carte!:Silence!") == 1) {
			mes "[Deviruchi]";
			mes "Bon choix!";
			mes "Cette carte peut être tienne...";
			next;
			cutin "¹Ì½ºÆ®·¹½ºÄ«µå.bmp",255;
			mes "[Deviruchi]";
			mes "Théoriquement!";
			mes "BWAHAHAHAHAHAHAHA!";
			mes "Si tu arrives à te la procurer par toi-même!";
			close2;
			warp "mjolnir_05",200,200;
			end;
		}
		cutin "¹Ì½ºÆ®·¹½ºÄ«µå.bmp",255;
		mes "[Deviruchi]";
		mes "Comment...";
		mes "Tu viens de me dire de me taire?";
		mes "Oh mon Dieu...";
		next;
		mes "[Deviruchi]";
		mes "Pardon...";
		mes "Oh ^660000ton^000000 Dieu.";
		mes "Très bien. Continue.";
		mes "Mais tu regretteras ton choix, tôt ou tard!";
		close;
	}
	end;
}

job_prist,168,80,4	script	Doppelganger#prst	1046,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[Doppelganger]";
		mes "Qu'est-ce que tu fais là? Tu as déjà fait ton choix, il n'y a pas de retour possible... jeune Prêtre.";
		next;
		mes "[Doppelganger]";
		mes "Tu n'as plus rien à faire ici. Les Acolytes qui s'entraînent pour devenir Prêtre, ce ne sont pas tes oignons. Maintenant casse-toi d'ici, avant que je devienne violent.";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[Doppelganger]";
		mes "Un instant, Acolyte.";
		mes "Je ne suis pas comme Deviruchi, je ne vais pas mâcher mes mots envers toi.";
		next;
		mes "[Doppelganger]";
		mes "Pourquoi veux-tu devenir Prêtre, sincèrement? C'est un boulot ingrat et peu gratifiant. Si tu veux, je peux te donner la chance de redevenir un Novice. Comme ça tu pourras choisir un métier bien plus attrayant!";
		next;
		mes "[Doppelganger]";
		mes "Bien sûr, tu conserveras tout ce que tu as acquis jusqu'à présent. Alors, qu'en dis-tu...?";
		next;
		if (select("Marché conclus!:Pas question... Doppelganger.") == 1) {
			mes "[Doppelganger]";
			mes "Très bon choix~";
			mes "Je peux te faire redevenir un Novice si c'est ton choix.";
			next;
			mes "[Doppelganger]";
			mes "Mais tu ne reverras plus jamais la lumière du jour!";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[Doppelganger]";
		mes "Je ne crois pas que tu aies bien saisi ce que je peux t'offrir. Réfléchis bien. Je veux dire, c'est ta seule et unique chance d'absoudre tes erreurs passées.";
		next;
		mes "[Doppelganger]";
		mes "Laisse tomber cette idée farfelue de devenir Prêtre. Je ne te le demanderai pas deux fois. Il y a tant d'autres professions bien plus attrayantes... Par exemple Épéiste, comme moi!";
		next;
		if (select("Je ne veux pas devenir Prêtre!:Je ne vous écouterai jamais!") == 1) {
			mes "[Doppelganger]";
			mes "Excellent choix. Ne remets plus jamais les pieds ici. Je peux te faire redevenir un Novice si c'est ton choix.";
			next;
			mes "[Doppelganger]";
			mes "Mais tu ne reverras plus jamais la lumière du jour!";
			close2;
			warp "gef_dun02",210,177;
			end;
		}
		mes "[Doppelganger]";
		mes "Humpf. J'admire ta détermination.";
		mes "D'accord, tu peux passer.";
		mes "Pour cette fois.";
		next;
		mes "[Doppelganger]";
		mes "Mais si jamais nous nous rencontrons à nouveau, je t'assure que... tu ne seras pas du tout heureux de me revoir.";
		close;
	}
}

job_prist,168,115,4	script	Seigneur des Ténèbres#pr	1272,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[Seigneur des Ténèbres]";
		mes "^330033Tout n'est que maléfices, ténèbres et désespoir! Ceux qui t'aiment te trahiront, et seules resteront la douleur et la haine!^000000";
		next;
		mes "[Seigneur des Ténèbres]";
		mes "^330033Choisir de servir Dieu signifie choisir une éternelle souffrance!^000000";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[Seigneur des Ténèbres]";
		mes "^330033Halte, humain.";
		mes "Qui t'a autorisé à passer par ce chemin?^000000";
		next;
		mes "[Seigneur des Ténèbres]";
		mes "^330033Tu veux devenir Prêtre?! Fou! Je ne te laisserai jamais passer. Retourne d'où tu viens, ou tu ne survivras pas à ma colère.^000000";
		next;
		mes "[Seigneur des Ténèbres]";
		mes "^330033Un corps si fragile... Il me sera aisé de le réduire en poussière, en faisant craquer ses petits os un par un.";
		mes "Retourne d'où tu viens, mortel!^000000";
		next;
		if (select("Pitié, épargnez-moi!:Dieu me protègera.") == 1) {
			mes "[Seigneur des Ténèbres]";
			mes "^330033Ne reviens plus jamais!^000000";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[Seigneur des Ténèbres]";
		mes "^330033Force et courage sont inutiles. Face à moi, tu n'es rien. Tes misérables armes ne sont que des jouets comparées à mon pouvoir.^000000";
		next;
		mes "[Seigneur des Ténèbres]";
		mes "^330033D'un simple geste de la main, je peux faire cesser ton existence. Et plus personne ne se souviendra de toi. Tremble devant l'infinie puissance de ma magie!^000000";
		next;
		if (select("Je vous en supplie...!:Je ne te crains pas, créature maléfique!") == 1) {
			mes "[Seigneur des Ténèbres]";
			mes "^330033Ne reviens plus jamais!^000000";
			close2;
			warp "gl_church",145,170;
			end;
		}
		mes "[Seigneur des Ténèbres]";
		mes "^330033Pourquoi...";
		mes "Pourquoi ne me crains-tu pas?!";
		mes "Pour un mortel, tu es plutôt ennuyeux.^000000";
		next;
		mes "[Seigneur des Ténèbres]";
		mes "^330033La prochaine fois que nous nous rencontrerons, je t'escorterai aux portes de la mort, où tu connaîtras d'atroces souffrances jusqu'à ce que je me lasse de tes cris de douleur...^000000";
		close;
	}
}

job_prist,168,150,4	script	Baphomet#prst	736,8,1,{
OnTouch:
	if (BaseJob == Job_Priest) {
		mes "[Baphomet]";
		mes "Je déteste";
		mes "Les Prêtres...";
		next;
		mes "[Baphomet]";
		mes "Je n'ai rien à te dire, serviteur de Dieu. Passe ton chemin.";
		close;
	}
	else if (BaseClass == Job_Acolyte) {
		mes "[Baphomet]";
		mes "Salutations.";
		next;
		mes "[Baphomet]";
		mes "..."+ strcharinfo(0) +".";
		next;
		mes "[Baphomet]";
		mes "Oui, jeune humain,";
		mes "je sais qui tu es.";
		next;
		mes "[Baphomet]";
		mes "Je sais aussi que Deviruchi, Doppelganger et le Seigneur des Ténèbres ont échoué à te convaincre d'abandonner la sainte Église.";
		mes "Je suis ici pour te proposer un marché.";
		next;
		mes "[Baphomet]";
		mes "Je peux t'offrir tout ce que tu veux, le moindre de tes désirs, des trésors ou un infini pouvoir. Ou même des armes, si puissantes qu'aucun humain n'en a jamais portées...";
		next;
		mes "[Baphomet]";
		mes "Que dirais-tu d'une rivière de Zenys? Elle coulerait à flot, si bien qu'une vie ne te suffirait pas à tout dépenser. D'ailleurs, pourquoi compter le temps qu'il te reste à vivre, quand je peux t'offrir gloire, pouvoir et immortalité. Tout ceci peut être à toi.";
		next;
		mes "[Baphomet]";
		mes "Je serai à ton service. Tu deviendras la personne la plus puissante de l'histoire du monde!";
		next;
		mes "[Baphomet]";
		mes "Oublie cette folle idée de servir l'Église. Accepte mon marché, et le monde sera à toi.";
		next;
		if (select("Marché conclus.:Non, Baphomet. Tu as perdu.") == 1) {
			mes "[Baphomet]";
			mes "Tu ne le regretteras pas...";
			next;
			mes "[Baphomet]";
			mes "Suis-moi.";
			mes "Nous allons signer ce contrat dans mon sanctuaire des ténèbres.";
			close2;
			warp "glast_01",200,203;
			end;
		}
		mes "[Baphomet]";
		mes "Pauvre fou d'humain...";
		mes "Tu as fait ton choix. Je te laisse passer, pour cette fois. Cependant, ton entraînement ne sera pas aussi facile que ce que tu crois.";
		next;
		mes "[Baphomet]";
		mes "Je préparerai mon armée pour toi. Un jour viendra où je me délecterai de te voir agoniser de douleur, te contorsionner tandis que mes amis te dévoreront.";
		close;
	}
}

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

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

OnEnable:
	donpcevent "Mummy1_1::OnEnable";
	donpcevent "Mummy2_1::OnEnable";
	donpcevent "Mummy3_1::OnEnable";
	end;

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;

Onm3:
	monster "job_prist",90,85,"Mehnes",1041,1;
	monster "job_prist",105,85,"Snepheru",1041,1;
	end;

OnDisable:
	disablenpc "Mummy_Generator";
	killmonsterall "job_prist";
	end;
}

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

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "Mummy_Generator::Onm1";
		donpcevent "Mummy1_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Mummy1_1";
	end;

OnDisable:
	disablenpc "Mummy1_1";
	end;
}

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

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

OnEnable:
	enablenpc "Mummy2_1";
	end;

OnDisable:
	disablenpc "Mummy2_1";
	end;
}

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

OnTouch:
	if (BaseJob == Job_Acolyte) {
		donpcevent "Mummy_Generator::Onm3";
		donpcevent "Mummy3_1::OnDisable";
	}
	end;

OnEnable:
	enablenpc "Mummy3_1";
	end;

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;
		if(checkquest(8012) != -1) {
			changequest 8012,8013;
		}
		warp "prt_church",16,37;
		donpcevent "Mummy_Generator::OnDisable";
	}
	end;
}

// Functions
//==========================================================
function	script	F_FatherRub	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "Ah oui, vous devez être le jeune Acolyte qui souhaite devenir Prêtre.";
			next;
			mes "[Père Rubalkabara]";
			mes "J'ai reçu un message de l'Évêque Paul. Puisque vous avez accompli votre pèlerinage, vous ne devriez pas avoir de mal à devenir Prêtre.";
			next;
			mes "[Père Rubalkabara]";
			mes "Si vous en avez l'occasion, revenez visiter l'abbaye. C'est un lieu sacré consacré à notre Église.";
			next;
			mes "[Père Rubalkabara]";
			mes "Eh bien, je ne vous retiens pas plus longtemps, votre pèlerinage ne fait que commencer. Faites attention à vous au cours de vos voyages.";
			close2;
			savepoint "prt_fild03",361,255;
			set PRIEST_Q,2;
			end;
		}
		else if (PRIEST_Q == 2) {
			mes "Votre pèlerinage ne fait que commencer. J'espère que vous deviendrez un Prêtre accompli très bientôt.";
			close;
		}
		mes "Puis-je vous demander pourquoi vous êtes de retour? Retournez à vos occupations religieuses, s'il vous plaît.";
		close;
	}
	mes "Je ne sais pas ce qui vous amène ici, veuillez m'excuser.";
	close;
}

function	script	F_MotherMart	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "Hum...";
			mes "On dirait que vous êtes un apprenti Prêtre, n'est-ce pas?";
			next;
			mes "[Mère Mathilda]";
			mes "Cependant, à cet instant de votre pèlerinage, je ne suis pas celle à qui vous devriez rendre visite.";
			next;
			mes "[Mère Mathilda]";
			mes "Peut-être devriez-vous demander confirmation à l'Évêque Paul ou à Soeur Cecilia. Bien, que Dieu soit avec vous...";
			close;
		}
		else if (PRIEST_Q == 2) {
			mes "Ah, êtes-vous un apprenti Prêtre...?";
			mes "Bienvenue!";
			next;
			mes "[Mère Mathilda]";
			mes "Nous autres les Prêtres répandons le message de Dieu aux peuples de cette Terre.";
			next;
			mes "[Mère Mathilda]";
			mes "Une fois devenu un Prêtre accompli, vos voyages vous mèneront sûrement aux Pyramides de Morroc. J'espère que vous pourrez y libérer les Morts-Vivants du mal qui les lient à ce lieu.";
			next;
			mes "[Mère Mathilda]";
			mes "Bon, eh bien...";
			mes "Je prierai Dieu pour que vous voyages se déroulent sans encombres.";
			close2;
			savepoint "moc_fild07",35,355;
			set PRIEST_Q,3;
			end;
		}
		else if (PRIEST_Q == 3) {
			mes "Vous avez encore un long entraînement à suivre.";
			close;
		}
		mes "Puis-je vous demander pourquoi vous êtes de retour? Retournez à vos occupations religieuses, s'il vous plaît.";
		close;
	}
	mes "Que Dieu";
	mes "soit avec vous...";
	close;
}

function	script	F_FatherYos	{
	if (PRIEST_Q != 0) {
		if (PRIEST_Q == 1) {
			mes "Hum...";
			mes "Un apprenti Prêtre, c'est bien ça?";
			next;
			mes "[Père Yosuke]";
			mes "Eh bien vous vous adressez à la mauvaise personne. Si on vous a dit de venir me voir, ce sera sûrement pour plus tard.";
			next;
			mes "[Père Yosuke]";
			mes "Retournez à l'Église de Prontera, jeune enfant.";
			close;
		}
		else if (PRIEST_Q == 2) {
			mes "Hum...";
			mes "Un apprenti Prêtre, c'est bien ça?";
			next;
			mes "[Père Yosuke]";
			mes "Eh bien vous vous adressez à la mauvaise personne. Si on vous a dit de venir me voir, ce sera sûrement pour plus tard.";
			next;
			mes "[Père Yosuke]";
			mes "Retournez à l'Église de Prontera, jeune enfant.";
			close;
		}
		else if (PRIEST_Q == 3) {
			mes "Hum...";
			mes "Un apprenti Prêtre, c'est bien ça?";
			mes "Bienvenue.";
			next;
			mes "[Père Yosuke]";
			mes "Je ne vous dirai rien de plus que: restez dévoué à Dieu toute votre vie, et vous accomplirez la mission divine.";
			next;
			mes "[Père Yosuke]";
			mes "Maintenant retournez à l'Église de Prontera. La première épreuve est terminée.";
			close2;
			savepoint "prt_fild00",206,230;
			set PRIEST_Q,4;
			end;
		}
		else if (PRIEST_Q == 4) {
			mes "Je vous ai dit de retourner à l'Église de Prontera. Ou bien souhaitez-vous vous installer ici...?";
			close;
		}
		mes "Ne perdez pas de temps à bavasser. Ce lieu n'est pas un terrain de jeu.";
		close;
	}
	mes "...Jeune Acolyte, vous n'avez plus rien à faire ici.";
	close;
}