//Le Livre d'Ymir http://www.bookofymir.net/
//traduit Myllena
//===== eAthena Script ======================================= 
//= Alchemist Job Quest
//===== By: ==================================================
//= nestor_zulueta (Fusion), converted by Darkchild
//===== Current Version: ===================================== 
//= 3.0
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= [Aegis Conversion]
//= Job quest for Alchemist classes
//===== Additional Comments: ================================= 
//= 2.5 Rescripted to Aegis 10.3 stadards. [L0ne_W0lf]
//=	No longer uses function "F_BlockHigh"
//= 2.6 Corrected a bug in advanced class checking. [L0ne_W0lf]
//= 2.7 Added missing checkweights. [L0ne_W0lf]
//= 2.8 Fixed minor typo in test section. [L0ne_W0lf]
//= 2.9 Added Quest Log commands. [Kisuka]
//= 3.0 Removed the need for use of 'goto.' [L0ne_W0lf]
//============================================================ 

alde_alche,27,185,5	script	Alchimiste#am	744,{
	mes "[Parmy Gianino]";
	if (Upper == 1) {
		mes "Bienvenue à l'Union des Alchim...";
		mes "I-Impossible! Comment une telle chose a pû se produire?";
		next;
		mes "[Parmy Gianino]";
		mes "Attendez, attendez...";
		mes "Je suis désolée. Je me suis trompée, c'est tout. Vous ressemblez à quelqu'un que j'ai connu. J'ai le sentiment que vous ne m'êtes pas étranger...";
		close;
	}
	if (BaseJob != Job_Merchant) {
		if (BaseJob == Job_Alchemist) {
			mes "Bienvenue, " + strcharinfo(0) + ".";
			mes "L'Union des Alchimistes fonctionne à plein régime aujourd'hui, comme chaque jour!";
			next;
			mes "[Parmy Gianino]";
			mes "Tout le monde est occupé à ses recherches... Récemment, une découverte formidable a été faite dans le domaine des biotechnologies.";
			next;
			mes "[Parmy Gianino]";
			mes "Tout le monde espère que l'étude des biotechnologies conduiront à des résultats positifs. D'ailleurs en parlant de ça, je me demande comment se porte la recherche des Alchimistes qui s'intéressent à la vie artificielle...";
			close;
		}
		else if (BaseClass == Job_Novice) {
			mes "Bienvenue à l'Union des Alchimistes! Nous recrutons des personnes talentueuses ayant des idées novatrices!";
			next;
			mes "[Parmy Gianino]";
			mes "Si vous êtes intéressé"+( sex ? "" : "e" )+" par un travail dans le domaine de la chimie, n'hésitez pas à nous rendre visite lorsque vous aurez acquis quelques diplômes.";
			next;
			mes "[Parmy Gianino]";
			mes "Pour l'instant, vous pouvez songer à passer votre Licence Marchande, qu'en dites-vous?";
			close;
		}
		mes "Bienvenue à l'Union des Alchimistes! Nous recrutons des personnes talentueuses ayant des idées novatrices!";
		next;
		mes "[Parmy Gianino]";
		mes "Si vous connaissez des Marchands exceptionnels, et biens sous tous rapports, faites passer le mot! Ils pourraient être intéressés par l'Alchimie et l'expérimentation~";
		close;
	}
	if (ALCH_Q == 0) {
		mes "Bienvenue à l'Union des Alchimistes. En quoi puis-je vous aider?";
		next;
		switch(select("Je souhaite en savoir plus sur les Alchimistes.:Je souhaite devenir Alchimiste.:Rien, merci.")) {
		case 1:
			mes "[Parmy Gianino]";
			mes "Les Alchimistes étudient et créent de nouvelles substances à partir de matériaux existants. Notre connaissance nous permet de changer les propriétés de certains produits chimiques à un niveau atomique.";
			next;
			mes "[Parmy Gianino]";
			mes "La plupart des gens pensent que notre but final est de créer de l'or, mais ce n'est pas tout à fait exact. En fait nous souhaitons créer de nouveaux médicaments, et des substances tout à fait novatrices.";
			next;
			mes "[Parmy Gianino]";
			mes "Certains d'entre nous effectuent des recherches à propos de la création de la vie, bien que beaucoup considèrent ceci comme le domaine de Dieu. Ce domaine de recherche est difficile, la plupart d'entre nous effectuent des recherches sur des projets moins complexes!";
			next;
			mes "[Parmy Gianino]";
			mes "Si vous êtes intéressé par devenir un Alchimiste, je vous recommande de passer en premier lieu votre Licence Marchande. Devenir un Marchand est une très bonne opportunité pour en apprendre beaucoup à propos des matériaux du monde entier.";
			next;
			mes "[Parmy Gianino]";
			mes "L'apprentissage du métier d'Alchimiste est un vrai challenge, il faut être très intéressé par les expérimentations, la recherche scientifique, et moins en commerce.";
			close;
		case 2:
			mes "[Parmy Gianino]";
			mes "C'est vrai?";
			mes "Je suis ravie de l'entendre!";
			mes "Laissez-moi me présenter, mon nom est Parmy Gianino de l'Union des Alchimistes.";
			next;
			mes "[Parmy Gianino]";
			mes "Si vous décidez de rejoindre notre Union, et d'effectuer votre entraînement au métier d'Alchimiste, vous serez reconnu"+( sex ? "" : "e" )+" en tant que membre de l'Union et vous pourrez contribuer à notre recherche scientifique.";
			next;
			mes "[Parmy Gianino]";
			mes "Mais nous n'acceptons pas n'importe qui!";
			mes "Vous devez faire preuve de ténacité et d'un dévouement sincère envers les différents domaines de la science.";
			next;
			mes "[Parmy Gianino]";
			mes "Il y a également quelques pré-requis à remplir avant de pouvoir rejoindre l'Union des Alchimistes, mais nous discuterons de ceci après que vous ayez rempli votre bulletin d'adhésion.";
			next;
			mes "[Parmy Gianino]";
			mes "Alors, souhaitez-vous vous inscrire à l'Union des Alchimistes?";
			next;
			if (select("S'inscrire.:Plus tard, peut-être.") == 1) {
				if (JobLevel < 40) {
					mes "[Parmy Gianino]";
					mes "Hmmm...";
					mes "Un instant... Je suis désolée, mais vous n'êtes pas assez expérimenté"+( sex ? "" : "e" )+" pour l'instant.";
					next;
					mes "[Parmy Gianino]";
					mes "Vous devez avoir atteint le ^551A8BNiveau de Métier 40^000000 au minimum afin de devenir un Alchimiste. Revenez plus tard, lorsque vous remplirez cette condition, d'accord?";
					close;
				}
				mes "[Parmy Gianino]";
				mes "Très bien, tout a l'air en règle. Maintenant, vous devez payer 50 000 Zenys pour régler les frais d'inscription, et rapporter certains matériaux, avant de pouvoir commencer votre entraînement.";
				next;
				mes "[Parmy Gianino]";
				mes "Ceci dit, si vous apportez un ^551A8BVieux Grimoire^000000 et un ^551A8BMarteau de Forgeron^000000, nous accepterons ceci en tant que substitut aux matériaux que vous devez normalement fournir.";
				next;
				mes "[Parmy Gianino]";
				mes "Maintenant...";
				mes "Veuillez inscrire votre nom, et signez ici, s'il vous plaît.";
				next;
				select(strcharinfo(0));
				mes "[Parmy Gianino]";
				mes "Bien, bien. Maintenant, passons au règlement des frais d'inscription.";
				next;
				if (Zeny < 50000) {
					mes "[Parmy Gianino]";
					mes "Oh. Vous n'avez pas assez d'argent sur vous.";
					mes "Revenez me voir quand vous aurez les 50 000 Zenys, sinon il nous sera impossible de valider votre inscription.";
					close;
				}
				set zeny,zeny-50000;
				mes "[Parmy Gianino]";
				mes "Parfait! Maintenant à propos des matériaux...";
				mes "" + strcharinfo(0);
				mes "vous devez rapporter...";
				switch(rand(1,3)) {
				case 1:
					set ALCH_Q,1;
					setquest 2028;
					mes "^551A8B7 Potions de Furie^000000.";
					break;
				case 2:
					set ALCH_Q,2;
					setquest 2029;
					mes "^551A8B100 Fourneaux Portatifs^000000.";
					break;
				case 3:
					set ALCH_Q,3;
					setquest 2030;
					mes "^551A8B7500 Flèches de Feu^000000.";
				}
				next;
				mes "[Parmy Gianino]";
				mes "Une fois que vous aurez tous ces objets, revenez ici, et nous pourrons commencer votre formation au métier d'Alchimiste.";
				mes "A bientôt~";
				close;
			}
			mes "[Parmy Gianino]";
			mes "Les Marchands talentueux sont toujours les bienvenus ici. Revenez quand vous voulez!";
			close;
		case 3:
			mes "[Parmy Gianino]";
			mes "Hum...";
			mes "N'hésitez pas à revenir me voir si vous avez besoin de quelque chose.";
			close;
		}
	}
	else if (ALCH_Q >= 1 && ALCH_Q <= 3) {
		if (countitem(1006) > 0 && countitem(1005) > 0) {
			mes "Voyons voir~!";
			mes "Vous avez apporté un Vieux Grimoire et un Marteau de Forgeron, c'est parfait.";
			next;
			delitem 1006,1; //Old_Magic_Book
			delitem 1005,1; //Hammer_Of_Blacksmith
			mes "[Parmy Gianino]";
			mes "Très bien, maintenant vous devez apprendre les bases du métier d'Alchimiste: le mode opératoire pour le mélange des produits chimiques et des médicaments.";
			set ALCH_Q,4;
			if(checkquest(2028) != -1) {
				changequest 2028,2031;
			}
			else if(checkquest(2029) != -1) {
				changequest 2029,2031;
			}
			else {
				changequest 2030,2031;
			}
			next;
			mes "[Parmy Gianino]";
			mes "Mais avant cela, allez parler à Raspuchin. Je ne suis pas très sûre de savoir ce dont il va vous parler mais... il souhaite parler à tous les nouveaux arrivants, c'est ainsi.";
			close;
		}
		switch(ALCH_Q) {
		case 1: setarray .@items[0],657,7; break;
		case 2: setarray .@items[0],612,100; break;
		case 3: setarray .@items[0],1752,7500; break;
		}
		if (countitem(.@items[0]) >= .@items[1]) {
			mes "Voyons voir~!";
			mes "On dirait qu'il y a tout! Vous allez pouvoir rejoindre officiellement l'Union des Alchimistes!";
			next;
			delitem .@items[0],.@items[1];
			mes "[Parmy Gianino]";
			mes "Très bien, maintenant vous devez apprendre les bases du métier d'Alchimiste: le mode opératoire pour le mélange des produits chimiques et des médicaments.";
			set ALCH_Q,4;
			if(checkquest(2028) != -1) {
				changequest 2028,2031;
			}
			else if(checkquest(2029) != -1) {
				changequest 2029,2031;
			}
			else {
				changequest 2030,2031;
			}
			next;
			mes "[Parmy Gianino]";
			mes "Mais avant cela, allez parler à Raspuchin. Je ne suis pas très sûre de savoir ce dont il va vous parler mais... il souhaite parler à tous les nouveaux arrivants, c'est ainsi.";
			close;
		}
		mes "Vous n'êtes pas encore prêt?";
		mes "Comme je vous l'ai dit, vous devez rapporter";
		mes "^551A8B"+.@items[1]+" "+getitemname(.@items[0])+"s^000000.";
		next;
		mes "[Parmy Gianino]";
		mes "Une fois que vous aurez tous ces objets, revenez ici, et nous pourrons commencer votre formation au métier d'Alchimiste.";
		mes "A bientôt~";
		close;
	}
	else if (ALCH_Q == 4) {
		mes "Allez parler à M. Raspuchin.";
		mes "Je ne sais pas exactement ce qu'il vous dire, mais il souhaite parler à tous les nouveaux arrivants.";
		next;
		mes "[Parmy Gianino]";
		mes "Je pense qu'il vous posera juste quelques questions simples, ne vous inquiétez pas.";
		close;
	}
	else {
		mes "Ah, je suis désolée mais je suis occupée pour le moment~";
		next;
		mes "[Parmy Gianino]";
		mes "Si vous avez besoin d'une information, allez demander à quelqu'un d'autre, d'accord? Bonne chance~";
		close;
	}
}

alde_alche,175,107,3	script	Alchimiste#am2	749,{
	mes "[Raspuchin Gregory]";
	if (BaseJob != Job_Merchant) {
		if (BaseJob == Job_Alchemist) {
			mes "Heeheehee";
			mes "keheheh~!";
			mes "Eh bien? Qu'est-ce que vous voulez?!";
			next;
			mes "[Raspuchin Gregory]";
			mes "J'espère que vous n'êtes pas ici pour voler mes résultats ou plagier mon travail, espèce de voleur d'idées!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Oh, vous êtes un"+( sex ? "" : "e" )+" collègue, n'est-ce pas? Eh bien, considérez ce que je vous ai dit comme un avertissement. Je ne laisserai jamais une telle chose se produire au sein de l'Union des Alchimistes!";
			close;
		}
		else if (BaseClass == Job_Novice) {
			mes "Heeheehee";
			mes "keheheh~!";
			mes "Comme c'est mignon, tu es venu"+( sex ? "" : "e" )+" jusqu'ici pour jouer...";
			next;
			mes "[Raspuchin Gregory]";
			mes "Je te laisse partir pour cette fois... Mais la prochaine fois, n'espère pas t'en tirer aussi facilement...";
			close;
		}
		else {
			mes "Qu'est-ce qu'il y a?!";
			mes "Encore un curieux qui se demande ce que je fais?";
			next;
			mes "[Raspuchin Gregory]";
			mes "Heehee";
			mes "keheheh~!";
			mes "Eh bien, je suis occupé à mes recherches, là, vous voyez!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Une fois que cette potion sera terminée... On pourra l'utiliser pour détruire une nation toute entière!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Hee hee hee!";
			mes "Quelque chose d'aussi dangereux doit rester secret, vous comprenez?";
			close;
		}
	}
	if (ALCH_Q == 0) {
		mes "Heeheehee";
		mes "keheheh~!";
		mes "Qu'est-ce que tu veux, gamin?";
		next;
		mes "[Raspuchin Gregory]";
		mes "Un Marchand n'est bon qu'à flâner dans les boutiques! Qu'est-ce que tu fais à errer dans un endroit pareil?";
		next;
		mes "[Raspuchin Gregory]";
		mes "Heheheh~!";
		mes "Vas voir ailleurs si j'y suis, et laisse moi travailler en paix!";
		close;
	}
	else if (ALCH_Q >= 1 && ALCH_Q <= 3) {
		mes "Heeheehee";
		mes "keheheh~!";
		mes "Qu'est-ce que tu veux, gamin?";
		next;
		mes "[Raspuchin Gregory]";
		mes "Quoi...?";
		mes "Apprendre l'Alchimie?! Laisse-moi rire!";
		next;
		mes "[Raspuchin Gregory]";
		mes "Même si tu étudiais pendant des milliers d'années, ça te serait inutile! Oublie ça, et préoccupes-toi plutôt de ton commerce!";
		close;
	}
	else if ((ALCH_Q == 4) || (ALCH_Q == 5)) {
		if (ALCH_Q == 4) {
			mes "Heeheehee";
			mes "keheheh~!";
			mes "Qu'est-ce que tu veux, gamin?";
			next;
			mes "[Raspuchin Gregory]";
			mes "Quoi...?";
			mes "Rejoindre l'Union!?";
			mes "Je ne crois pas que tu en sois capable...";
			next;
			mes "[Raspuchin Gregory]";
			mes "De nos jours, les gens pensent que s'ils savent mélanger quelques herbes ils peuvent prétendre à devenir Alchimistes. C'est n'importe quoi! C'est pour ça que je demande à parler à tous les nouveaux arrivants dans l'Union.";
			next;
			mes "[Raspuchin Gregory]";
			mes "Heeheehee";
			mes "keheheh~!";
			mes "Les crétins et les incompétents n'ont par leur place ici!";
			next;
			if (JobLevel == 50) {
				mes "[Raspuchin Gregory]";
				mes "Mais...";
				mes "Peut-être que tu es moins bête que ce que tu en as l'air.";
				if (sex == 1) {
					mes "Je semble déceler un peu d'intelligence dans ton regard.";
				}
				else {
					mes "Peut-être qu'il y a quelques cellules grises opérationnelles dans cette jolie boîte crânienne.";
				}
				next;
				mes "[Raspuchin Gregory]";
				mes "Ta formation de Marchand t'a sans doute aidé à devenir un peu plus intelligent. Excellent. Keh heh heh~";
				next;
				mes "[Raspuchin Gregory]";
				mes "Très bien, mon jugement étant infaillible, je sens que tu feras un bon Alchimiste.";
				next;
				mes "[Raspuchin Gregory]";
				mes "Dépêche-toi un peu, la recherche n'attend pas. Et qui sait, je pourrais peut-être t'embaucher comme stagiaire dès que tu auras ton diplôme d'Alchimiste. Hahahahahaha~!";
				next;
				mes "[Raspuchin Gregory]";
				mes "Maintenant vas voir Darwin!";
				mes "Il t'enseignera comment on conduit une expérience. Dis-lui juste que c'est moi qui t'envoie.";
				set ALCH_Q,6;
				close;
			}
			else {
				mes "[Raspuchin Gregory]";
				mes (sex?"Surpris":"Surprise")+"?";
				mes "Keheheh~ Si tu croyais qu'on pouvait devenir Alchimiste juste en claquant des doigts, tu te fourres le doigt dans l'oeil jusqu'au coude!";
				next;
				mes "[Raspuchin Gregory]";
				mes "Maintenant, résous ces petits problèmes de mathématiques, et nous verrons si tu es aussi "+(sex?"intelligent":"intelligente")+" que tu sembles le penser.";
				}
		}
		else if (ALCH_Q == 5) {
			mes "Quoi...?!";
			mes "Tu veux repasser le test?!";
			mes "Je croyais t'avoir dit de partir!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Je n'aime pas ça...";
			mes "Non, je n'aime pas ça du tout!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Très bien...";
			mes "Je vais essayer de faire abstraction de tes réponses pitoyables de la dernière fois, et te donner une autre chance. Ne la gâche pas, c'est compris?";
			next;
			mes "[Raspuchin Gregory]";
			mes "Très bien, maintenant tu as intérêt à mes donner des réponses ^551A8Bréfléchies^000000.";
		}
		switch(rand(1,3)) {
		case 1:
			mes "[Raspuchin Gregory]";
			mes "12 + 23 + 34 + 45 = ?";
			next;
			input .@input;
			if (.@input != 114) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "1000 - 36 - 227 - 348 = ?";
			next;
			input .@input;
			if (.@input != 389) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "14 * 17 * 3 = ?";
			next;
			input .@input;
			if (.@input != 714) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "9765 / 3 / 5 / 7 = ?";
			next;
			input .@input;
			if (.@input != 93) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(47 * 28) - (1376 / 4) = ?";
			next;
			input .@input;
			if (.@input != 972) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(2646 / 7) + (13 * 28) = ?";
			next;
			input .@input;
			if (.@input != 742) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien coûteront";
			mes "12 Potions Rouges,";
			mes "1 Aile de Papillon";
			mes "et 5 Ailes de Mouche";
			mes "après une remise de 24 % ?";
			next;
			input .@input;
			if (.@input != 909) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien pèsent";
			mes "3 Cimeterres, 2 Heaumes";
			mes "et 1 Long Blouson?";
			next;
			input .@input;
			if (.@input != 450) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Quelle est la défense totale conférée par";
			mes "une Calotte, un Manteau,";
			mes "un Masque d'Opéra, un Ruban,";
			mes "un Cache-Nez [1], des Bottes,";
			mes "et des Cache-Oreilles?";
			next;
			input .@input;
			if (.@input != 20) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Si tu achètes 5 Heaumes";
			mes "avec une remise de 24 %";
			mes "et que tu les revends 20 % moins cher que leur prix normal, quelle est la marge de bénéfice?";
			next;
			input .@input;
			if (.@input != 8800) set .@w_point,.@w_point+1;
			break;
		case 2:
			mes "[Raspuchin Gregory]";
			mes "13 + 25 + 37 + 48 = ?";
			next;
			input .@input;
			if (.@input != 123) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "1000 - 58 - 214 - 416 = ?";
			next;
			input .@input;
			if (.@input != 312) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "12 * 24 * 3 = ?";
			next;
			input .@input;
			if (.@input != 864) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "10530 / 3 / 5 / 2 = ?";
			next;
			input .@input;
			if (.@input != 351) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(35 * 19) - (1792 / 7) = ?";
			next;
			input .@input;
			if (.@input != 409) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(2368 / 8) + (24 * 17) = ?";
			next;
			input .@input;
			if (.@input != 704) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(2646 / 7) + (13 * 28) = ?";
			next;
			input .@input;
			if (.@input != 742) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien coûteront";
			mes "15 Potions Vertes,";
			mes "6 Loupes et";
			mes "4 Pièges";
			mes "après une remise de 24 % ?";
			next;
			input .@input;
			if (.@input != 934) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien pèsent";
			mes "3 Francisques,";
			mes "4 Chapeaux, et 2 Bottes?";
			next;
			input .@input;
			if (.@input != 550) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Quelle est la défense totale conférée par";
			mes "une Rondache, un Long Blouson,";
			mes "un Masque-à-Gaz, un Gros Ruban,";
			mes "un Petit Ruban, un Sakkat,";
			mes "et des Lunettes?";
			next;
			input .@input;
			if (.@input != 16) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Si tu achètes des Justaucorps";
			mes "avec une remise de 24 %";
			mes "et que tu les revends 20 % moins cher que leur prix normal, quelle est la marge de bénéfice?";
			next;
			input .@input;
			if (.@input != 8520) set .@w_point,.@w_point+1;
			break;
		case 3:
			mes "[Raspuchin Gregory]";
			mes "12 + 23 + 34 + 45 = ?";
			next;
			input .@input;
			if (.@input != 114) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "1000 - 58 - 214 - 416 = ?";
			next;
			input .@input;
			if (.@input != 312) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "14 * 17 * 3 = ?";
			next;
			input .@input;
			if (.@input != 714) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "10530 / 3 / 5 / 2 = ?";
			next;
			input .@input;
			if (.@input != 351) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(47 * 28) - (1376 / 4) = ?";
			next;
			input .@input;
			if (.@input != 972) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "(2646 / 7) + (13 * 28) = ?";
			next;
			input .@input;
			if (.@input != 742) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien coûteront";
			mes "6 Potions Rouges,";
			mes "7 Potions Vertes,";
			mes "et 8 Ailes de Mouche";
			mes "après une remise de 24 % ?";
			next;
			input .@input;
			if (.@input != 798) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Combien pèsent";
			mes "2 Francisques,";
			mes "3 Chapeaux, et 3 paires de Bottes?";
			next;
			input .@input;
			if (.@input != 480) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Quelle est la défense totale conférée par";
			mes "un Bouclier Scintillant, un Visage Souriant, une Veste, une Robe de Soie, un Voile de Mariée, un Cache-Nez [1], et un Cache Oeil?";
			next;
			input .@input;
			if (.@input != 12) set .@w_point,.@w_point+1;
			mes "[Raspuchin Gregory]";
			mes "Si tu achètes 4 Armures Matelassées";
			mes "avec une remise de 24 %";
			mes "et que tu les revends 20 % moins cher que leur prix normal, quelle est la marge de bénéfice?";
			next;
			input .@input;
			if (.@input != 7680) set w_point,w_point+1;
		}
		if (.@w_point == 0) {
			mes "[Raspuchin Gregory]";
			mes "Ooh...";
			mes "Excellent! Super!";
			mes "Toutes les réponses sont correctes!";
			mes "Keheheh, je n'ai pas d'autre choix que de m'incliner...";
			next;
		}
		else if (.@w_point == 1) {
			mes "[Raspuchin Gregory]";
			mes "Vous avez une réponse fausse! On va dire que ça ira pour cette fois!";
			next;
		}
		else if (.@w_point == 2 && ALCH_Q == 5) {
			mes "[Raspuchin Gregory]";
			mes "Vous avez de sérieuses lacunes en mathématiques, mais pour cette fois-ci, ça ira...";
			next;
		}
		else {
			set ALCH_Q,5;
			mes "[Raspuchin Gregory]";
			mes "Keheheh! Idiot!";
			mes "Rien que d'entendre tes réponses, je ressens la stupidité qui se dégage de toi!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Comment est-ce possible de ne même pas pouvoir répondre à des questions aussi simples, alors que tu prétends vouloir devenir un Alchimiste?!";
			next;
			mes "[Raspuchin Gregory]";
			mes "Hum...?";
			mes "Eh bien, qu'est-ce que tu attends?";
			next;
			mes "[Raspuchin Gregory]";
			mes "Casse-toi d'ici, tu me rends malade!";
			close;
		}
		mes "[Raspuchin Gregory]";
		mes "Dépêche-toi un peu, la recherche n'attend pas. Et qui sait, je pourrais peut-être t'embaucher comme stagiaire dès que tu auras ton diplôme d'Alchimiste. Hahahahahaha~!";
		next;
		mes "[Raspuchin Gregory]";
		mes "Maintenant vas voir Darwin!";
		mes "Il t'enseignera comment on conduit une expérience. Dis-lui juste que c'est moi qui t'envoie.";
		set ALCH_Q,6;
		changequest 2031,2032;
		close;
	}
	else if (ALCH_Q == 6) {
		mes "Qu'est-ce que tu fais?";
		mes "Je t'ai dit d'aller voir Darwin maintenant.";
		next;
		mes "[Raspuchin Gregory]";
		mes "Keheheheheheheheh~";
		mes "Ne crois pas que ce soit déjà terminé!";
		close;
	}
	mes "Keheheheheheheheh~";
	mes "Ne crois pas que ce soit déjà terminé!";
	close;
}

alde_alche,13,15,7	script	Étudiant::Etudiant#am	750,{
	if (checkweight(1201,1) == 0) {
		mes "Attendez! Vous portez bien trop de choses sur vous, regardez comme vous courbez l'échine! Si vous ne voulez pas attraper un lumbago, vous devriez déposer tout ce qui ne vous est pas utile dans votre Stock Kafra.";
		close;
	}
	mes "[Darwin]";
	if (BaseJob != Job_Merchant) {
		if (BaseJob == Job_Alchemist) {
			mes "Ah...";
			mes "Vous...";
			mes "Vous êtes devenu un Alchimiste.";
			next;
			mes "[Darwin]";
			mes "Souvenez-vous...";
			mes "Dans la quête qui fera devenir vos rêves une réalité, prenez soin de ce que vous chérissez.";
			next;
			mes "[Darwin]";
			mes "Ah...";
			mes "Harmona...";
			mes "Mon amour...";
			close;
		}
		else {
			mes "Quand vous avez encore des rêves, vous n'avez besoin de rien d'autre. Sans eux, vous n'aurez plus rien à perdre.";
			next;
			mes "[Darwin]";
			mes "Ces yeux maudits...";
			mes "Ils ont perdu de vue mes rêves depuis longtemps.";
			mes "Ha ha ha ha...";
			next;
			mes "[Darwin]";
			mes "Est-ce que le paradis existe vraiment...?";
			mes "Pas sans mon amour...";
			mes "Pas sans Harmona...";
			close;
		}
	}
	if (ALCH_Q == 6) {
		mes "...";
		next;
		mes "[Darwin]";
		mes "...";
		mes "......";
		next;
		mes "[Darwin]";
		mes "...";
		mes "......";
		mes "Qui êtes-vous...?";
		next;
		monster "alde_alche",13,15,"--ja--",1013,1;
		killmonsterall "alde_alche";
		mes "[Darwin]";
		mes "Un loup?";
		mes "Ou un humain?";
		mes "Vous devez chercher quelque chose, non?";
		next;
		mes "[Darwin]";
		mes "Après tout...";
		mes "Tout le monde a des désirs qu'il souhaite combler. Soyez prudent. Ne soyez pas comme le loup sauvage au milieu des fleurs.";
		next;
		mes "[Darwin]";
		mes "Dans vos efforts, ne laissez pas ce qui vous est précieux être sacrifié.";
		next;
		mes "[Darwin]";
		mes "Cultiver la joie et le bonheur, c'est un peu comme cultiver des fleurs. Si quelque chose manque, les fleurs faneront et périront...";
		next;
		mes "[Darwin]";
		mes "Qu'est-ce qui vous amène ici?";
		next;
		switch(select("Je souhaite apprendre l'Alchimie.:Parlez-moi des fleurs.:Rien.")) {
		case 1:
			mes "[Darwin]";
			mes "Vous souhaitez apprendre l'Alchimie?";
			mes "Tout ce que je sais, je l'ai appris dans le but de faire de mes rêves une réalité...";
			next;
			mes "[Darwin]";
			mes "Je vais vous apprendre les bases...";
			mes "Mais tout ce que vous apprendrez ici devra être utilisé à bon escient.";
			next;
			mes "[Darwin]";
			mes "Je vais vous apprendre comment fabriquer un médicament simple. Nous allons avoir besoin de plusieurs matériaux.";
			next;
			mes "[Darwin]";
			mes "^551A8B3 Bols d'Alchimiste^000000,";
			mes "^551A8B3 Bouteilles Vides^000000,";
			mes "^551A8B1 Herbe Rouge^000000,";
			mes "^551A8B1 Herbe Jaune^000000 et";
			mes "^551A8B1 Herbe Blanche^000000.";
			set ALCH_Q,7;
			changequest 2032,2033;
			next;
			mes "[Darwin]";
			mes "Lorsque vous aurez tout ceci, revenez me voir.";
			close;
		case 2:
			mes "[Darwin]";
			mes "Les fleurs...?";
			mes "Dans le recoin le plus noir de mon esprit, survit une fleur dont mon souvenir est fugace...";
			next;
			mes "[Darwin]";
			mes "Pour celle que j'aime, j'ai consacré de nombreux efforts dans mes recherches.";
			next;
			mes "[Darwin]";
			mes "Mes recherches... portaient sur la relation entre les loups et les fleurs.";
			next;
			mes "[Darwin]";
			mes "Mais oui...";
			mes "C'était une fleur.";
			mes "Ses couleurs, son éclat, on aurait dit qu'elle venait tout droit du paradis.";
			mes "La ^551A8BFleur de l'Illusion^000000...";
			next;
			mes "[Darwin]";
			mes "J'ai créé un Homoncule,";
			mes "mais personne n'a cru que je pouvais créer une nouvelle vie à partir d'une fleur...";
			next;
			mes "[Darwin]";
			mes "Puis...";
			mes "D'autres choses se sont produites, et maintenant je n'ai plus rien. Le temps qui passe n'a plus aucun sens pour moi.";
			next;
			mes "[Darwin]";
			mes "Ahh...";
			mes "Harmona...";
			mes "Où es-tu partie?";
			mes "J'espère que tu es dans un champ de fleurs magnifiques...";
			close;
		case 3:
			mes "[Darwin]";
			mes "Accordez un grand intérêt à ce qui vous est précieux. Si vous ne pouvez pas le reconnaître, vous ne pourrez pas le protéger.";
			close;
		}
	}
	else if (ALCH_Q == 7) {
		mes "...";
		mes "......";
		next;
		mes "[Darwin]";
		mes "...";
		mes "......";
		mes "Qui êtes-vous...?";
		next;
		mes "[Darwin]";
		mes "Ah...";
		mes "Vous êtes celui qui souhaite apprendre l'Alchimie.";
		mes "Avez-vous apporté tout ce dont nous avons besoin?";
		next;
		if (countitem(710) > 0) {
			mes "[Darwin]";
			mes "Attendez.";
			mes "Cette fleur... On dirait une Fleur de l'Illusion.";
			mes "Comment l'avez-vous obtenue?";
			next;
			mes "[Darwin]";
			mes "Où l'avez-vous trouvée?!";
			mes "Elle ne fleurit que sous la lumière du clair de lune?";
			mes "Elle est si belle...!";
			next;
			mes "[Darwin]";
			mes "Cette... fleur...";
			mes "Laissez-moi la toucher, s'il vous plaît!";
			mes "Uwaaaaaaah!!";
			next;
			mes "[Darwin]";
			mes "Je vous en supplie, seriez-vous assez aimable et me donneriez-vous cette fleur?";
			mes "Je suis certain qu'il s'agit de la Fleur du clair de Lune que je cherche depuis si longtemps!";
			next;
			if (select("Désolé, je ne peux pas vous la donner.:Je l'ai apportée spécialement pour vous.") == 1) {
				mes "[Darwin]";
				mes "Je comprends.";
				mes "On ne peut pas donner une fleur aussi précieuse.";
				mes "Eh bien... je comprends.";
				next;
				mes "[Darwin]";
				mes "C'est juste que ça m'a rappelé des vieux souvenirs. Je n'aurais pas dû vous la demander ainsi.";
				next;
				mes "[Darwin]";
				mes "Est-ce que vous pouvez la mettre ailleurs? Elle me rappelle trop de choses...";
				close;
			}
			mes "[Darwin]";
			mes "Vous êtes sérieux?!";
			mes "Merci!";
			mes "Une fleur si précieuse...";
			mes "Ah, Harmona, mon amour...";
			next;
			mes "[Darwin]";
			mes "Oui...";
			mes "Je dois vous remercier pour ceci.";
			mes "Je vais transférer toutes mes connaissances de l'Alchimie directement dans votre esprit...";
			next;
			mes "[Darwin]";
			mes "Ouvrez grand vos yeux, et ne quittez pas les miens du regard!!";
			mes "Ne clignez des yeux sous aucun prétexte!!";
			next;
			mes "Lorem ipsum dolor sit amet,";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			mes "Aenean fermentum ullamcorper.";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			mes "Aenean fermentum ullamcorper.";
			mes "Vestibulum ante ipsum primis in";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			mes "Aenean fermentum ullamcorper.";
			mes "Vestibulum ante ipsum primis in";
			mes "faucibus orci luctus et ultrices";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			mes "Aenean fermentum ullamcorper.";
			mes "Vestibulum ante ipsum primis in";
			mes "faucibus orci luctus et ultrices";
			mes "posuere cubilia Curae; Morbi";
			next;
			mes "Lorem ipsum dolor sit amet,";
			mes "consectetuer adipiscing elit.";
			mes "Aenean fermentum ullamcorper.";
			mes "Vestibulum ante ipsum primis in";
			mes "faucibus orci luctus et ultrices";
			mes "posuere cubilia Curae; Morbi";
			mes "massa, fermentum vitae...";
			next;
			delitem 710,1; //Illusion_Flower
			mes "[Darwin]";
			mes "^666666*Ah...*^000000";
			mes "Vous êtes maintenant prêt à devenir Alchimiste!!";
			mes "Allez à l'Union et dites adieu à votre vie de Marchand!!";
			changequest 2033,2040; // Bugfix: faut pas oublier de changer de quête si on prend ce raccourci. [NoH]
			set ALCH_Q,40;
			close;
		}
		else if (countitem(7134) > 2 && countitem(713) > 2 && countitem(507) > 0 && countitem(508) > 0 && countitem(509) > 0) {
			mes "[Darwin]";
			mes "On dirait que vous avez tout ce qu'il faut. Comme promis, je vais vous enseigner comment fabriquer un médicament très simple.";
			next;
			mes "[Darwin]";
			mes "Tout d'abord, préparez le mortier. Oui, le petit bol en porcelaine dans lequel nous allons moudre les herbes. Bien, placez-y les herbes, comme ceci, et écrasez-les doucement.";
			next;
			mes "[Darwin]";
			mes "Verser une petite quantité d'eau distillée, et remuez le mélange jusqu'à ce que cela forme une pâte homogène et épaisse.";
			mes "Puis, ajouter à nouveau quelques herbes.";
			next;
			mes "[Darwin]";
			mes "Voilà, comme ceci. Quand vous avez terminé d'homogénéiser le mélange, verser délicatement le tout dans une bouteille vide prévue à cet effet.";
			delitem 7134,3; //Medicine_Bowl
			delitem 713,3; //Empty_Bottle
			delitem 507,1; //Red_Herb
			delitem 508,1; //Yellow_Herb
			delitem 509,1; //White_Herb
			next;
			mes "[Darwin]";
			mes "Et voilà, c'est terminé.";
			mes "Maintenant c'est à vous. Fabriquez le médicament comme je viens de vous le montrer.";
			set w_point,0;
			next;
			switch(select("Préparer le mortier.:Poser le mortier sur votre tête.:Frapper le mortier.")) {
			case 1:
				break;
			case 2:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Comment...?";
				next;
				break;
			case 3:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Non!";
				next;
				break;
			}
			switch(select("Mettre de la poussière dans le mortier.:Mettre des herbes dans le mortier.:Mettre une harpe dans le mortier.")) {
			case 1:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "...Hein!?";
				mes "Ce n'est pas ainsi que vous allez fabriquer un médicament!";
				next;
				break;
			case 2:
				break;
			case 3:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Une harpe?";
				mes "Mais d'où vous sortez cet instrument?";
				next;
				break;
			}
			switch(select("Écraser les herbes.:Écraser le mortier.:Écraser les pieds de Darwin.")) {
			case 1:
				break;
			case 2:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Que... Qu'est-ce que vous faites!?";
				next;
				break;
			case 3:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Agh...!";
				mes "Qu'est-ce que vous faites?!";
				next;
				break;
			}
			switch(select("Vaporiser de l'eau distillée.:Boire de l'eau distillée.:Verser de l'eau distillée.")) {
			case 1:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Hum?";
				mes "Qu'est-ce que vous faites?";
				next;
				break;
			case 2:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Attendez...";
				mes "Qu'est-ce que vous faites?";
				next;
				break;
			case 3:
				break;
			}
			switch(select("Continuer de moudre les herbes.:Continuer de manger les herbes.:Continuer de chanter et danser.")) {
			case 1:
				break;
			case 2:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Vous mangez les herbes?";
				mes "Je crois que vous devriez vous reconcentrer sur votre tâche...";
				next;
				break;
			case 3:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Chanter et danser? Les Alchimistes ne font pas ça, êtes-vous devenu fou?";
				next;
				break;
			}
			switch(select("Ajouter les nouilles et frire le tout.:Verser dans une bouteille vide.:Boire le contenu du mortier.")) {
			case 1:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Nous sommes des Alchimistes, pas des chefs gastronomiques.";
				next;
				break;
			case 2:
				break;
			case 3:
				set .@w_point,.@w_point+1;
				mes "[Darwin]";
				mes "Hum...";
				mes "Ce doit être savoureux...";
				next;
				break;
			}
			if (.@w_point > 0) {
				mes "[Darwin]";
				mes "...";
				mes "......";
				next;
				mes "[Darwin]";
				mes "Vous avez fait n'importe quoi, vous n'avez pas suivi le mode opératoire correctement! Allez chercher à nouveau tous les ingrédients, vous réessayerez tant que vous n'y serez pas arrivé!";
				close;
			}
			getitem 501,1; //Red_Potion
			getitem 503,1; //Yellow_Potion
			getitem 504,1; //White_Potion
			mes "[Darwin]";
			mes "Beau travail.";
			mes "C'est vraiment bien réussi, étant donné que c'était votre première fois. Vous pouvez garder ce que vous venez de fabriquer, cela vous fera un souvenir.";
			set ALCH_Q,8;
			changequest 2033,2035;
			next;
			mes "[Darwin]";
			mes "Maintenant, allez voir Van Helmont pour continuer votre apprentissage.";
			next;
			mes "[Darwin]";
			mes "Et n'oubliez pas...";
			mes "Vous devez protéger ce qui vous est précieux.";
			close;
		}
		else {
			mes "[Darwin]";
			mes "Avez-vous oublié ce que vous deviez apporter?";
			mes "Il vous faudra...";
			next;
			mes "[Darwin]";
			mes "^551A8B3 Bols d'Alchimiste^000000,";
			mes "^551A8B3 Bouteilles Vides^000000,";
			mes "^551A8B1 Herbe Rouge^000000,";
			mes "^551A8B1 Herbe Jaune^000000 et";
			mes "^551A8B1 Herbe Blanche^000000.";
			next;
			mes "[Darwin]";
			mes "Revenez quand vous serez prêt...";
			close;
		}
	}
	else if (ALCH_Q == 8) {
		mes "Je vous ai dit d'aller voir Van Helmont.";
		mes "J'aimerais vous en apprendre plus, mais cela m'est impossible.";
		next;
		mes "[Darwin]";
		mes "Aah...";
		mes "Harmona, mon amour.";
		mes "Je ne peux même plus voir la fleur. Mon âme dépérit silencieusement...";
		close;
	}
	else if (ALCH_Q == 40) {
		mes "Je vous ai déjà apporté toute la connaissance que je possédais, je n'ai plus rien à vous apprendre.";
		next;
		mes "[Darwin]";
		mes "Allez au premier étage et parlez au Chef de l'Union. Une fois que ce sera fait, votre vie en tant qu'Alchimiste pourra commencer.";
		close;
	}
	else {
		mes "Quand vous avez encore des rêves, vous n'avez besoin de rien d'autre. Sans eux, vous n'aurez plus rien à perdre.";
		next;
		mes "[Darwin]";
		mes "Ces yeux maudits...";
		mes "Ils ont perdu de vue mes rêves depuis longtemps.";
		mes "Ha ha ha ha...";
		next;
		mes "[Darwin]";
		mes "Est-ce que le paradis existe vraiment...?";
		mes "Pas sans mon amour...";
		mes "Pas sans Harmona...";
		close;
	}
}

alde_alche,79,19,5	script	Alchimiste#am3	748,{
	mes "[Van Helmont]";
	if (BaseJob != Job_Merchant) {
		if (BaseJob == Job_Alchemist) {
			mes "Qu'est-ce que vous voulez?";
			mes "Je suis occupé!! Ne me dérangez pas, ne restez pas dans le passage!";
			next;
			mes "[Van Helmont]";
			mes "Vous ne réussirez jamais dans la science si vous ne vous donnez pas à fond dans ce que vous entreprenez!";
			next;
			mes "[Van Helmont]";
			mes "Il ne faut pas oublier de garder un esprit ouvert, lire des publications scientifiques et continuer des expériences. Voilà ce que c'est, l'Alchimie. Maintenant, laissez-moi travailler!";
			close;
		}
		else {
			mes "Encore un peu...";
			mes "Encore un tout petit peu...";
			mes "Nooon! J'y étais presque!";
			next;
			mes "[Van Helmont]";
			mes "Pourquoi...?!";
			mes "Pourquoi ça ne fonctionne pas?!";
			mes "Mes calculs étaient pourtant corrects! A... Attends...!";
			next;
			mes "[Van Helmont]";
			mes "Peut-être que si je redirige ce flux thermal en utilisant le gradient neutronique, ça pourrait fonctionner...!";
			close;
		}
	}
	if (ALCH_Q == 8) {
		mes "Arrrrgh...!";
		mes "Pourquoi est-ce que cette formule ne fonctionne pas? Qu'est-ce qui cloche? En théorie, tout est correct, mais il doit y avoir une erreur dans la formule quelque part...";
		next;
		mes "[Van Helmont]";
		mes "Si j'ajoute ce composant, la réaction devrait s'arrêter. Non, ce n'est pas le bon produit! Comment ai-je pu faire une erreur aussi grossière?! Quand ai-je interchangé ces deux bouteilles?!";
		next;
		mes "[Van Helmont]";
		mes "D'accord, dans ce cas...";
		mes "Je dois juste réparer cette partie. Pas besoin de recommencer du début. Je dois juste arranger ça... Mais...";
		next;
		mes "[Van Helmont]";
		mes ".................";
		next;
		mes "[Van Helmont]";
		mes "Hum...";
		mes "Qui êtes-vous?";
		next;
		if (select("Je souhaite devenir Alchimiste.:.......") == 2) {
			mes "[Van Helmont]";
			mes "Hum...?";
			mes "Quoi, vous voulez simplement regarder? D'accord, d'accord, mais restez silencieux et partez dès que vous aurez terminé.";
			next;
			mes "[Van Helmont]";
			mes "Ne restez pas dans mon chemin, et surtout ne touchez à rien. Je manipule des composés volatils relativement dangereux, je ne voudrais pas qu'il arrive un accident.";
			close;
		}
		mes "[Van Helmont]";
		mes "Vous...?";
		mes "Un Alchimiste?";
		mes "Quel drôle de Marchand avons-nous là.";
		next;
		mes "[Van Helmont]";
		mes "Eh bien, c'est très bien pour vous, mais j'ai des expériences urgentes qui nécessitent toute mon attention, alors ne restez pas dans la passage, voulez-vous?";
		next;
		if (select("Enseignez-moi quelque chose?:...") == 1) {
			mes "[Van Helmont]";
			mes "Argh...!";
			mes "Je viens de vous dire de ne pas me déranger! C'est trop difficile à comprendre?";
			next;
			mes "[Van Helmont]";
			mes "Bien, bien, je vais vous donner quelque chose à faire: allez apprendre quelque chose par vous-même, et revenez me voir après. Par exemple...";
			next;
			mes "[Van Helmont]";
			mes "Très bien, je sais.";
			mes "Allez apprendre à faire des Antiagents et des Mixtures. Molgenstein pourra vous apprendre ça.";
			next;
			mes "[Van Helmont]";
			mes "Vous n'avez pas besoin de rapporter quoi que ce soit, allez simplement regarder Molgenstein pendant son travail, et notez bien comment il prépare ses solutions. C'est compris?";
			next;
			mes "[Van Helmont]";
			set ALCH_Q,9;
			changequest 2035,2036;
			mes "Bien, à plus tard.";
			mes "Allez, allez, du balai! Je n'ai pas que ça à faire!";
			close;
		}
		mes "[Van Helmont]";
		mes "...";
		next;
		mes "[Van Helmont]";
		mes "...";
		mes "......";
		next;
		mes "[Van Helmont]";
		mes "...";
		mes "......";
		next;
		mes "[Van Helmont]";
		mes "Si je recalibre le taux de combustion de ce composé, cela devrait annuler les interactions cohésives dans le flux de particules...";
		next;
		mes "[Van Helmont]";
		mes "Mais que ferai-je du phénomène de cristallisation spontanée?! Je ne peux pas retirer toute la matrice, j'en ai besoin pour la catalyse afin d'atteindre le point triple.";
		next;
		mes "[Van Helmont]";
		mes "Bon sang!";
		mes "Qu'est-ce que je vais faire?!";
		close;
	}
	else if (ALCH_Q == 9) {
		mes "Très bien, si je fais une incision sur cette tentacule, et que j'ajoute de la poudre de jellopy et du mucus collant dans cette solution... Où est passé mon mortier?";
		next;
		mes "[Van Helmont]";
		mes "J'étais pourtant certain de l'avoir posé là?! Je me demande si Nicholas peut m'en prêter un en attendant. Rha, quelle plaie. Attends. Attends une minute...";
		next;
		mes "[Van Helmont]";
		mes "...";
		next;
		mes "[Van Helmont]";
		mes "...";
		mes "......";
		mes "Qui êtes-vous?";
		next;
		if (select("Le Marchand qui souhaite devenir Alchimiste?:.......") == 2) {
			mes "[Van Helmont]";
			mes "Hum...?";
			mes "Quoi, vous voulez simplement regarder? D'accord, d'accord, mais restez silencieux et partez dès que vous aurez terminé.";
			next;
			mes "[Van Helmont]";
			mes "Ne restez pas dans mon chemin, et surtout ne touchez à rien. Je manipule des composés volatils relativement dangereux, je ne voudrais pas qu'il arrive un accident.";
			close;
		}
		mes "[Van Helmont]";
		mes "Ah, bien sûr. Le petit Marchand de l'autre jour. Alors, qu'avez-vous appris de Molgenstein? Je ne vous ai pas envoyé là-bas pour le plaisir, vous savez.";
		next;
		mes "[Van Helmont]";
		mes "Laissez-moi vous poser quelques questions, histoire de vérifier ce que vous avez appris.";
		next;
		if(MISC_QUEST & 4) {
			mes "[Van Helmont]";
			mes "Quel composé n'entre pas dans la composition d'un Antiagent?";
			next;
			if (select("Karvodailnirol:Détrimindexta:Alcool") != 1) set .@w_point,.@w_point+1;
			mes "[Van Helmont]";
			mes "Quel composé n'entre pas dans la composition d'une Mixture?";
			next;
			if (select("Karvodailnirol:Détrimindexta:Alcool") != 2) set .@w_point,.@w_point+1;
			if (.@w_point > 0) {
				mes "[Van Helmont]";
				mes "Vous n'avez rien écouté à ce que Molgenstein vous a dit, ou quoi?";
				next;
				mes "[Van Helmont]";
				mes "Retournez le voir, et faites plus attention cette fois-ci! Si vous ne connaissez pas précisément la composition d'une solution, vous risquez de provoquer un accident!";
				close;
			}
			mes "[Van Helmont]";
			mes "Très bien, vous avez été attentif.";
			mes "Voilà, vous avez appris comment fabriquer certaines solutions chimiques. Je n'ai rien à vous dire de plus, je retourne donc à mes expériences.";
			next;
			mes "[Van Helmont]";
			mes "Allez, du balai!";
			mes "Allez donc parler à Nicholas. Il s'occupera de la suite de votre apprentissage.";
			next;
			set ALCH_Q,20;
			changequest 2036,2037;
			mes "[Van Helmont]";
			mes "Qu'est-ce que vous faites encore ici?";
			mes "Dehors! Nous avons tous deux d'importantes choses à faire, n'est-ce pas?!";
			close;
		}
		else {
			mes "[Van Helmont]";
			mes "Quel composé n'entre pas dans la composition d'un Antiagent?";
			next;
			select("Plume:Morve:Sang de Bête");
			mes "[Van Helmont]";
			mes "Quel composé n'entre pas dans la composition d'une Mixture?";
			next;
			select("Nourriture pour Monstre:Lèvres Antiques:Pansement Purulent");
			mes "[Van Helmont]";
			mes "Soyez honnête. Vous ne savez pas répondre, c'est tout. Ne vous ai-je pas dit d'aller voir Molgenstein pour apprendre à fabriquer des solutions chimiques?!";
			next;
			mes "[Van Helmont]";
			mes "Ne pensez même pas à revenir ici tant que vous ne serez pas allé lui parler! Maintenant arrêtez de me déranger de sortez d'ici!";
			close;
		}
	}
	else if (ALCH_Q == 20) {
		mes "Quoi...?";
		mes "Je croyais vous avoir dit d'aller parler à Nicholas?";
		next;
		mes "[Van Helmont]";
		mes "Je dois continuer mes recherches, et vous devez apprendre l'Alchimie. Allez, du balai!";
		close;
	}
	else {
		mes "Encore un peu...";
		mes "Encore un tout petit peu...";
		mes "Nooon! J'y étais presque!";
		next;
		mes "[Van Helmont]";
		mes "Pourquoi...?!";
		mes "Pourquoi ça ne fonctionne pas?!";
		mes "Mes calculs étaient pourtant corrects! A... Attends...!";
		next;
		mes "[Van Helmont]";
		mes "Peut-être que si je redirige ce flux thermal en utilisant le gradient neutronique, ça pourrait fonctionner...!";
		close;
	}
}

alde_alche,101,184,4	script	Maître Alchimiste#am	122,{
	cutin "job_alche_vincent",2;
	mes "[Vincent Carsciallo]";
	if (Upper == 1) {
		mes "Vous êtes allés au Walhalla...";
		mes "Excellent, excellent.";
		next;
		mes "[Vincent Carsciallo]";
		mes "Pourquoi perdre votre temps ici? Allez explorer le vaste monde, mon ami.";
		close2;
		cutin "",255;
		end;
	}
	if (BaseJob != Job_Merchant) {
		if (BaseJob == Job_Alchemist) {
			mes "Bienvenue!";
			mes "Alors, comment se portent vos recherches?";
			next;
			mes "[Vincent Carsciallo]";
			mes "Parfois on peut obtenir des résultats totalement inattendus après une expérience. De tels résultats peuvent même parfois conduire à de nouvelles découvertes absolument fascinantes.";
			next;
			mes "[Vincent Carsciallo]";
			mes "Si vous découvrez quelque chose de nouveau, n'hésitez pas à venir nous en faire part. N'oubliez pas que nous travaillons tous ensemble dans le but de percer les mystères de la science!";
		}
		else if (BaseClass == Job_Novice) {
			mes "Hum...";
			mes "Un Novice?";
			mes "Vous ne devriez pas jouer ici.";
			next;
			mes "[Vincent Carsciallo]";
			mes "Nous manipulons des composés volatils assez dangereux dans ce bâtiment. Vous devriez aller jouer dehors, ce serait plus prudent.";
		}
		else {
			mes "Hum...?";
			mes "Que fait un aventurier dans le bâtiment de l'Union des Alchimistes?";
			next;
			mes "[Vincent Carsciallo]";
			mes "J'ai bien peur que vous ne trouviez rien de palpitant ici, si vous n'êtes pas un membre de notre Union.";
		}
		close2;
		cutin "",255;
		end;
	}
	if (ALCH_Q == 0) {
		mes "Hum...?";
		mes "Un Merchant?";
		mes "Êtes-vous intéressé par l'apprentissage de l'Alchimie?";
		next;
		mes "[Vincent Carsciallo]";
		mes "Vous êtes ici dans le bâtiment qui héberge l'Union des Alchimistes.";
		mes "Nous effectuons des recherches et conduisons des expériences sur différentes substances, dans le but de créer de nouveaux matériaux sans avoir recours à la magie.";
		next;
		mes "[Vincent Carsciallo]";
		mes "Un jour, nous espérons même percer le secret de la vie, ainsi que d'autres mystères de la science.";
		next;
		mes "[Vincent Carsciallo]";
		mes "Parcourir le monde en tant que Marchand doit avoir développé votre curiosité scientifique! Si vous souhaitez apprendre l'Alchimie, pourquoi ne pas rejoindre l'Union des Alchimistes?";
		close2;
		cutin "",255;
		end;
	}
	else if (ALCH_Q == 40) {
		if (JobLevel < 40) {
			set ALCH_Q,0;
			mes "Hum... Vous n'avez pas l'air d'être suffisamment qualifié. Souvenez-vous, vous devez atteindre au minimum le Niveau de Métier 40 afin de débuter votre apprentissage de l'Alchimie.";
			close2;
			cutin "",255;
			end;
		}
		if (SkillPoint) {
			mes "Ah, il vous reste des Points de Compétence à attribuer!";
			close2;
			cutin "",255;
			end;
		}
		if(checkquest(2039) != -1) {
			changequest 2039,2040;
		}
		mes "Ah, très bon travail.";
		mes "Je peux voir que vous avez appris toutes les bases de l'Alchimie!";
		next;
		set ALCH_Q,0;
		completequest 2040;
		set .@jlevel,JobLevel;
		callfunc "Job_Change",Job_Alchemist;
		callfunc "F_ClearJobVar";
		mes "[Vincent Carsciallo]";
		mes "Désormais vous êtes un membre de notre illustre Union.";
		mes "J'espère que vous poursuivrez votre apprentissage...";
		next;

		if (.@jlevel == 50) {
			getitem 7133,1; //Slim_Potion_Create_Book
			mes "[Vincent Carsciallo]";
			mes "Laissez-moi vous faire cadeau de quelque chose qui vous sera utile dans vos recherches.";
		}
		else {
			switch(rand(1,6)) {
			case 1:
				getitem 7127,1; //Alcol_Create_Book
				break;
			case 2:
				getitem 7128,1; //FireBottle_Create_Book
				break;
			case 3:
				getitem 7129,1; //Acid_Create_Book
				break;
			case 4:
				getitem 7130,1; //Plant_Create_Book
				break;
			case 5:
				getitem 7131,1; //Mine_Create_Book
				break;
			case 6:
				getitem 7144,1; //Normal_Potion_Book
			}
			mes "[Vincent Carsciallo]";
			mes "Et...";
			mes "Voici un petit quelque chose qui vous sera utile dans vos recherches.";
		}
		next;
		mes "[Vincent Carsciallo]";
		mes "Revenez quand vous voulez...";
		mes "Vous pouvez être fier d'être un Alchimiste!";
		close2;
		cutin "",255;
		end;
	}
	else {
		mes "Ah...";
		mes "Vous venez de vous inscrire pour apprendre le métier d'Alchimiste?";
		next;
		mes "[Vincent Carsciallo]";
		mes "Écoutez bien ce que les membres de l'Union vous diront, et écoutez leurs instructions attentivement. Vous apprendrez beaucoup de nos membres.";
		close2;
		cutin "",255;
		end;
	}
}

alde_alche,145,19,1	script	Chercheur#am	57,{
	if (checkweight(1201,1) == 0) {
		mes "Attendez! Vous portez bien trop de choses sur vous, regardez comme vous courbez l'échine! Si vous ne voulez pas attraper un lumbago, vous devriez déposer tout ce qui ne vous est pas utile dans votre Stock Kafra.";
		close;
	}
	if (ALCH_Q > 19 && ALCH_Q < 22) {
		if (ALCH_Q == 20) {
			mes "[Nicholas Flamel]";
			mes "Ooh...";
			mes "Vous êtes le jeune Marchand qui veut devenir Alchimiste?";
			next;
			mes "[Nicholas Flamel]";
			mes "N'importe qui ne peut pas prétendre à devenir Alchimiste, vous savez. Il faut faire preuve de motivation, de ténacité, et d'une grande capacité de concentration.";
			next;
			mes "[Nicholas Flamel]";
			mes "Les Alchimistes doivent mémoriser de nombreuses équations chimiques, des formules mathématiques, des lois scientifiques, et tout un tas d'autres informations. C'est assez difficile, vous savez.";
			next;
			mes "[Nicholas Flamel]";
			mes "Si vous ne savez pas vous concentrer, vous serez très vite perdu quand vous chercherez dans les tables de l'alchimie. Je vais vous faire passer un petit test, pour juger de votre capacité de concentration.";
			next;
		}
		mes "[Nicholas Flamel]";
		mes "Retrouvez les mots mélangés parmi les groupes de lettres que je vais vous donner. Les mots peuvent être composés de tout, ou partie des lettres.";
		next;
		mes "[Nicholas Flamel]";
		mes "Retrouvez le mot caché dans le ^551A8Bpuzzle^000000.";
		next;
		switch(rand(1,3)) {
		case 1:
			mes "t m y a n y e o b n e g p r i"; // Faudra traduire tout ça un jour...
			next;
			if (select("Brake:Brass:Bug:Broken:Brigan?") == 5) set .@alch_t,.@alch_t+10;
			mes "o n c u t a p j l e r s v m u";
			next;
			if (select("vendor:storage:weapon:simple:streetshop") == 1) set .@alch_t,.@alch_t+10;
			mes "t v a r m e g p h e u b o y l";
			next;
			if (select("molasses:party:leader:sweets:treacle") == 2) set .@alch_t,.@alch_t+10;
			mes "q z a h n a i n b r d p t n c";
			next;
			if (select("partisan:partizan:pato:paros:pack") == 2) set .@alch_t,.@alch_t+10;
			break;
		case 2:
			mes "m p d i c f a r o g n k w a s";
			next;
			if (select("packman:sunshine:ragnarok:wonderland:frost") == 1) set .@alch_t,.@alch_t+10;
			mes "g b n o p r e f a r e t a s k";
			next;
			if (select("purple:smoker:ragnarok:bolt:burnt wood") == 3) set .@alch_t,.@alch_t+10;
			mes "u g n i s j e k c e o g n d p";
			next;
			if (select("scab:kinship:donate:source:opening") == 5) set .@alch_t,.@alch_t+10;
			mes "r o e h n r o m c a i n p t t";
			next;
			if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) set .@alch_t,.@alch_t+10;
			break;
		case 3:
			mes "s m i e x b w u n e t a g l r";
			next;
			if (select("tiger:wolf:pumpkin:tripped:tore") == 1) set .@alch_t,.@alch_t+10;
			mes "n i e g b o p d s o a u w r v";
			next;
			if (select("bash:provoke:endure:stun:abracadabra") == 3) set .@alch_t,.@alch_t+10;
			mes "l r m g r e x t a v i n e d e";
			next;
			if (select("alberta:latifoliate:crimson:maple:evergreen") == 5) set .@alch_t,.@alch_t+10;
			mes "r o e h n r o m c a i n p t t";
			next;
			if (select("forgemerchant:potionmerchant:dcmerchant:vendingmerchant:battlemerchant") == 2) set .@alch_t,.@alch_t+10;
			break;
		}
		mes "[Nicholas Flamel]";
		mes "Nous avons terminé.";
		mes "Voyons voir...";
		if (.@alch_t > 30) {
			set ALCH_Q,22;
			mes "Excellent!";
			next;
			mes "[Nicholas Flamel]";
			mes "Super, vous avez trouvé tous les mots cachés. Avec de telles aptitudes, vous n'aurez aucun mal à mémoriser les informations.";
			next;
			mes "[Nicholas Flamel]";
			mes "Revenez dans un moment, je vais préparer votre prochaine épreuve pour votre apprentissage.";
			next;
			mes "[Nicholas Flamel]";
			mes "Oh, ne restez pas là, allez vous balader. Et revenez ^551A8Bléger^000000!";
			close;
		}
		else {
			set ALCH_Q,21;
			mes "^666666*Ah mon dieu!*^000000 C'est h-horrible!";
			next;
			mes "[Nicholas Flamel]";
			mes "A en juger par vous résultats, vous avez visiblement un gros problème de concentration.";
			next;
			mes "[Nicholas Flamel]";
			mes "Si vous n'êtes même pas capable de résoudre de simples puzzles de mots, comment pourrez-vous consigner l'avancement de vos recherches?";
			next;
			mes "[Nicholas Flamel]";
			mes "Pourquoi n'iriez-vous pas vous reposer un peu, avant de revenir passer le test?";
			close;

		}
	}
	else if (ALCH_Q == 22) {
		set .@now_weight,MaxWeight-Weight;
		if (.@now_weight < 1370) {
			mes "[Nicholas Flamel]";
			mes "Attendez! Vous portez bien trop de choses sur vous, regardez comme vous courbez l'échine! Si vous ne voulez pas attraper un lumbago, vous devriez déposer tout ce qui ne vous est pas utile dans votre Stock Kafra.";
			close;
		}
		mes "[Nicholas Flamel]";
		mes "Très bien...";
		mes "Pour votre prochaine épreuve, vous devrez vous rendre à ^551A8BYuno^000000.";
		next;
		mes "[Nicholas Flamel]";
		mes "Là-bas, trouvez ^551A8BBain^000000 et ^551A8BBajin^000000. Ce sont tous deux des chercheurs en Alchimie pour le compte de l'Académie des Sages.";
		mes "Vous les assisterez dans leur projet, ce sera très instructif.";
		next;
		mes "[Nicholas Flamel]";
		mes "Revenez me voir après avoir terminé votre apprentissage auprès d'eux. D'ailleurs, ils m'ont fait part de leur besoin de certains matériaux, je vais vous les remettre.";
		next;
		set ALCH_Q,23;
		changequest 2037,2038;
		mes "[Nicholas Flamel]";
		mes "1 Mixture,";
		mes "5 Arbres Calcinés,";
		mes "5 poignées de Sable Fin,";
		mes "3 Oridecons Bruts";
		mes "et 3 Eluniums Bruts.";
		getitem 974,1; //Mixture
		getitem 7068,5; //Burn_Tree
		getitem 7043,5; //Fine_Sand
		getitem 756,3; //Oridecon_Stone
		getitem 757,3; //Elunium_Stone
		next;
		mes "[Nicholas Flamel]";
		mes "Très bien.";
		mes "Remettez-leur bien tous ces matériaux, et faites bon voyage!";
		close;
	}
	else if (ALCH_Q == 23) {
		mes "[Nicholas Flamel]";
		mes "Ne vous ai-je pas dit d'aller à Yuno pour aider Bain et Bajin dans leurs recherches?";
		close;
	}
	else if (ALCH_Q == 24) {
		set ALCH_Q,40;
		changequest 2038,2039;
		mes "[Nicholas Flamel]";
		mes "Ah, vous êtes de retour!";
		mes "Je viens de recevoir un message de Bain et Bajin. Ils me font savoir qu'ils ont été ravis de l'aide que vous leur avez apportée.";
		next;
		mes "[Nicholas Flamel]";
		mes "Si vous avez pu aider des Alchimistes aussi talentueux que ces deux frères, c'est que vous êtes parfaitement qualifié pour devenir vous-même un Alchimiste!";
		next;
		mes "[Nicholas Flamel]";
		mes "C'est du bon travail!";
		mes "Maintenant il ne vous reste plus qu'à aller parler au Maître de l'Union des Alchimistes, au premier étage! Félicitations, vous allez bientôt devenir Alchimiste!";
		close;
	}
	else if (ALCH_Q == 40 && BaseJob == Job_Merchant) {
		mes "[Nicholas Flamel]";
		mes "Maintenant il ne vous reste plus qu'à aller parler au Maître de l'Union des Alchimistes, au premier étage! Félicitations, vous allez bientôt devenir Alchimiste!";
		close;
	}
	else {
		mes "[Nicholas Flamel]";
		mes "Lorem ipsum dolor sit amet,";
		mes "consectetuer adipiscing elit.";
		mes "Vivamus sem. Sed metus";
		mes "lacus, viverra id, rutrum eget,";
		mes "rhoncus sit amet, lectus.";
		next;
		mes "[Nicholas Flamel]";
		mes "Suspendisse sit amet urna in";
		mes "nisl fringilla faucibus. Nulla scelerisque eros...";
		mes "^666666*Marmonne Marmonne*^000000";
		close;
	}
}

//============================================================ 
// Old changelog
//============================================================ 
//= v1.0 Working.
//= npc/quests/counteragent_mixture.txt Also Needed
//= npc/quests/quests_yuno.txt Also Needed [Darkchild]
//= v1.1 Fixed some minor bugs.  Optimized some lines. Re-organized the script a bit. 
//= Giving Parmry NPC, Hammer and Old Book now waves the 50000 fee. (based of mRO website)
//= Having a joblvl of 50 allows you to skip Rasputin's test. (based of mRO website) [kobra_k88]
//= 1.2 fixed a few typos (have to hunt more) [Lupus]
//= 1.3 Added Baby Class Support [Lupus]
//= 1.6 Added a func which prevent advanced classes passing
//= 2nd Job Quests again. It also guides adv classes where
//= to go. [Lupus]
//= 1.6a fixed some wrong answers, thanks to zlider for info [Lupus]
//= 2.0 Changed numbers to constants. [Vicious]
//= 2.2 Got rid of 'al_morgen' var. Now uses (MISC_QUEST & 4) [Lupus]
//= 2.3 Optimized, changed job numbers to constants. Fixed some spelling [Lupus]
//= 2.4 Added alternative prizes according to JobLevel [Lupus]
//= 2.4a Fixed 2 wrong answers in Rasputin's test [Lupus]