2-2 job quest update. Although completable, further testing (and optimizing) required.

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

1 files changed, 1862 insertions, 977 deletions

diff --git a/npc/jobs/2-2/alchemist.txt b/npc/jobs/2-2/alchemist.txt
index cda62e7ce..d56554ace 100644
--- a/npc/jobs/2-2/alchemist.txt
+++ b/npc/jobs/2-2/alchemist.txt
@@ -3,1079 +3,1964 @@
 //===== By: ==================================================
 //= nestor_zulueta (Fusion), converted by Darkchild
 //===== Current Version: ===================================== 
-//= 2.4a
+//= 2.5
 //===== Compatible With: ===================================== 
-//= eAthena 1.0 +
+//= eAthena SVN
 //===== Description: ========================================= 
-//= Alchemist job quest based off of official iRO quest.
+//= [Aegis Conversion]
+//= Job quest for Alchemist classes
 //===== Additional Comments: ================================= 
-//= 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]
+//= 2.5 Rescripted to Aegis 10.3 stadards. [L0ne_W0lf]
+//=	No longer uses function "F_BlockHigh"
 //============================================================ 
 
-
-//==================================================================================================//
-//					Registration and First Test
-//==================================================================================================//
-alde_alche,27,185,4	script	Parmry Gianino	744,{
-	callfunc "F_BlockHigh",Job_Merchant_High,"Merchant High",Job_Creator,"Creator","Parmry Gianino";
-
-	mes "[Parmry Gianino]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-	if(baseJob == Job_Alchemist){
-		mes "Hey there fellow Alchemist.  How's the business going?  Good I hope, well good luck to you.";
+alde_alche,27,185,5	script	Alchemist Guildsman#am	744,{
+	mes "[Parmy Gianino]";
+	if (Upper == 1) {
+		mes "Welcome to the";
+		mes "Alchemist Unio--";
+		mes "I-Impossible! How c-can";
+		mes "something like this happen?";
+		next;
+		mes "[Parmy Gianino]";
+		mes "Wait, wait...";
+		mes "I'm sorry. I was confused,";
+		mes "that's all. You look just like";
+		mes "someone I used to know. ";
+		mes "Still, I get this weird";
+		mes "feeling about you...";
 		close;
 	}
-	mes "Welcome to the Alchemist Union.  Ah, I apologize but I'm busy right now.";
-	close;
-L_Merc:	
-	if(ALCH_Q == 1) goto L_Check;
-	if(ALCH_Q == 2) goto L_Test2;
-	if(ALCH_Q == 3) goto L_Test3;
-	if(ALCH_Q == 4) goto L_Test4;
-	if(ALCH_Q == 5) goto L_Test5;
-	if(ALCH_Q == 6) goto L_Test6;
-	if(ALCH_Q == 7) goto L_GoChange;
-	mes "Welcome to the Alchemist Union.";
-	mes "How may i help you?";
-	next;
-	menu "I would like to learn about Alchemy",-, "I want to become an Alchemist.",L_Start, "Nothing.",M_End;
-
-		mes "[Parmry Gianino]";
-		mes "Alchemists study and create new materials using a variety of existing substances.";
-		mes "They research the atoms of chemicals, and experiment to change the properties of the chemicals.";
-		next;
-		mes "[Parmry Gianino]";
-		mes "Most people think the final goal is to create gold, but that's not the entire truth.";
-		mes "They make anything from simple medicines, to new materials.";
-		next;
-		mes "[Parmry Gianino]";
-		mes "At times, some research the creation of life .... but that's considered god's territory...";
-		mes "That field is so complex, everyone simply researhes for now.";
-		next;
-		mes "[Parmry Gianino]";
-		mes "If you are interested in becoming an Alchemist, I recommend that you gain a lot experience as a Merchant.";
-		mes "Being a merchant is a great opportunity to learn about materials while you deal with them.";
-		next;
-		mes "[Parmry Gianino]";
-		mes "Only you can decide for yourself.";
-		mes "The road to becoming an Alchemist is very challenging.";
-		mes "You will need to focus on experimenting and researching rather than trade.";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
+			mes "Welcome, " + name + ".";
+			mes "The Alchemist Union";
+			mes "is busy today, like always.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Everyone is busy with their";
+			mes "own research, but recently, some headway has been made in the field of biotechnology.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Everyone is hoping that the biotechnological studies will yield positive results. Speaking of which, I wonder how the Alchemists working on artificial life are doing...";
+			close;
+		}
+		else if (BaseClass == Job_Novice) {
+			mes "Welcome to the";
+			mes "Alchemist Union.";
+			mes "We are recruiting";
+			mes "talented people";
+			mes "with novel ideas.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "If you're interested in working with chemistry, visit us later when you become more knowledgable.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Just one thing:";
+			mes "You've got to have";
+			mes "knowledge of items";
+			mes "as a Merchant first.";
+			close;
+		}
+		mes "Welcome to the";
+		mes "Alchemist Union.";
+		mes "We are recruiting";
+		mes "talented people";
+		mes "with novel ideas.";
+		next;
+		mes "[Parmy Gianino]";
+		mes "If you know any exceptional Merchants, by all means, please refer them to us. Those types of people tend to have a talent for Alchemy and experimentation~";
 		close;
-	M_End:
-		mes "[Parmry Gianino]";
-		mes "Umm... Please say something if you need anything.";
+	}
+	if (ALCH_Q == 0) {
+		mes "Welcome to the";
+		mes "Alchemist Union.";
+		mes "How may I help you?";
+		next;
+		switch(select("I would like to learn about Alchemists.:I want to become an Alchemist.:Nothing.")) {
+		case 1:
+			mes "[Parmy Gianino]";
+			mes "Alchemists study and create new substances and items out of existing materials. Our knowledge allows us to change the properties of chemicals at the atomic level.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Most people think our final goal";
+			mes "is to create gold, but that's not the entire truth. We also want to create things like medicines";
+			mes "and new materials.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "A few of us research the";
+			mes "creation of life, although many of us consider that god's territory. That field is so complex, most of us deal with slightly less complicated projects anyway.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "If you are interested in becoming an Alchemist, I recommend that you first get a lot of experience as a Merchant. Being a Merchant is a great opportunity to learn about materials as you deal with them.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Whether or not you try to become";
+			mes "an Alchemist is your decision. The road to becoming an Alchemist is very challenging, and you'll need to focus on experimentation and research, instead of commerce.";
+			close;
+		case 2:
+			mes "[Parmy Gianino]";
+			mes "Is that so?";
+			mes "Nice to meet you.";
+			mes "My name is Parmy Gianino";
+			mes "of the Alchemist Union.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "If you join our Union and";
+			mes "complete the training, you";
+			mes "will be officially recognized";
+			mes "as an Alchemist and be able";
+			mes "to contribute to our research.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "But we don't accept everyone.";
+			mes "You must have a lot of tenacity";
+			mes "and sincere devotion in exploring";
+			mes "the various fields of science.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "There are a couple";
+			mes "of requirements to join";
+			mes "the Alchemist Union, but";
+			mes "we'll discuss that";
+			mes "after you apply.";
+			next;
+			mes "[Parmy Gianino]";
+			mes "Well then, would";
+			mes "you like to apply";
+			mes "for registration?";
+			next;
+			if (select("I would like to apply.:I'll do it later.") == 1) {
+				if (JobLevel < 40) {
+					mes "[Parmy Gianino]";
+					mes "Hmmm...";
+					mes "Just a moment.";
+					mes "I'm sorry to say that";
+					mes "you're not experienced";
+					mes "enough as a Merchant to";
+					mes "join us right now.";
+					next;
+					mes "[Parmy Gianino]";
+					mes "You must be at least";
+					mes "^551A8BJob Level 40^000000 to become";
+					mes "an Alchemist. Come back";
+					mes "later when you meet the";
+					mes "Job Level requirement, okay?";
+					close;
+				}
+				mes "[Parmy Gianino]";
+				mes "Alright, your application has been accepted. Now, you must pay the 50,000 Zeny application fee and bring some items before you can begin your formal training.";
+				next;
+				mes "[Parmy Gianino]";
+				mes "But if you bring an ^551A8BOld Magic Book^000000 and ^551A8BHammer of Blacksmith^000000,";
+				mes "we will accept that as a substitute for the item requirement.";
+				next;
+				mes "[Parmy Gianino]";
+				mes "Now...";
+				mes "Please sign";
+				mes "the application.";
+				next;
+				select(strcharinfo(0));
+				mes "[Parmy Gianino]";
+				mes "Good, good. Now, if you have";
+				mes "the Zeny for your application fee ready, I will tell you which items you will need to bring. Now, pay attention.";
+				next;
+				if (Zeny < 50000) {
+					mes "[Parmy Gianino]";
+					mes "Uh oh. You don't";
+					mes "seem to have enough Zeny.";
+					mes "Come back to me when you have 50,000 Zeny, otherwise we can't process your application.";
+					close;
+				}
+				set zeny,zeny-50000;
+				mes "[Parmy Gianino]";
+				mes "Let's see.";
+				mes "" + name + "";
+				mes "needs to bring...";
+				switch(rand(1,3)) {
+				case 1:
+					set ALCH_Q,1;
+					mes "^551A8B7 Berserk Potions^000000.";
+					break;
+				case 2:
+					set ALCH_Q,2;
+					mes "^551A8B100 Mini Furnaces^000000.";
+					break;
+				case 3:
+					set ALCH_Q,3;
+					mes "^551A8B7,500 Fire Arrows^000000.";
+				}
+				next;
+				mes "[Parmy Gianino]";
+				mes "Once you've gathered";
+				mes "those items, come back";
+				mes "to me and your training";
+				mes "as an Alchemist will begin.";
+				mes "See you soon~";
+				close;
+			}
+			mes "[Parmy Gianino]";
+			mes "Talented Merchants";
+			mes "are always welcome here.";
+			mes "Please come back soon.";
+			close;
+		case 3:
+			mes "[Parmy Gianino]";
+			mes "Umm...";
+			mes "Please let me know";
+			mes "if you need anything.";
+			close;
+		}
+	}
+	else if (ALCH_Q >= 1 && ALCH_Q <= 3) {
+		if (countitem(1006) > 0 && countitem(1005) > 0) {
+			mes "Well now~!";
+			mes "You've brought an";
+			mes "Old Magic Book and";
+			mes "a Hammer of Blacksmith.";
+			mes "We'll put these items";
+			mes "to good use.";
+			next;
+			delitem 1006,1; //Old_Magic_Book
+			delitem 1005,1; //Hammer_Of_Blacksmith
+			mes "[Parmy Gianino]";
+			mes "Okay, now you need to learn";
+			mes "the basics to being an Alchemist and learn the procedures for mixing chemicals and medicines.";
+			set ALCH_Q,4;
+			next;
+			mes "[Parmy Gianino]";
+			mes "But before all of that, you need to speak to Raspuchin. I'm not really sure what you'll be talking about with him...";
+			next;
+			mes "[Parmy Gianino]";
+			mes "It shouldn't be anything extraordinary, but you're still required to speak to Raspuchin, since apparently he's a part of the Alchemist selection process.";
+			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 "Seems like";
+			mes "you're all ready.";
+			mes "The Union will put";
+			mes "these items to good use.";
+			next;
+			delitem .@items[0],.@items[1];
+			mes "[Parmy Gianino]";
+			mes "Okay, now you need to learn";
+			mes "the basics to being an Alchemist and learn the procedures for mixing chemicals and medicines.";
+			set ALCH_Q,4;
+			next;
+			mes "[Parmy Gianino]";
+			mes "But before all of that, you need to speak to Raspuchin. I'm not really sure what you'll be talking about with him...";
+			next;
+			mes "[Parmy Gianino]";
+			mes "It shouldn't be anything extraordinary, but you're still required to speak to Raspuchin, since apparently he's a part of the Alchemist selection process.";
+			close;
+		}
+		mes "Aren't you ready?";
+		mes "Like I said before,";
+		mes "you must bring";
+		mes "^551A8B"+.@items[1]+" "+getitemname(.@items[0])+"s^000000.";
+		next;
+		mes "[Parmy Gianino]";
+		mes "Come back when you";
+		mes "have prepared the";
+		mes "required items.";
 		close;
-L_Start:
-	mes "[Parmry Gianino]";
-	if(JobLevel < 40) goto L_LowLvl;
-	mes "Is that so? My name is Parmry Gianino of the Alchemist Association.";
-	mes "Nice to meet you.";
-	next;
-	mes "[Parmry Gianino]";
-	mes "If you join our Union and pass some training you will be officially recognized,";
-	mes "as an Alchemist and be able to join our researches.";
-	next;
-	mes "[Parmry Gianino]";
-	mes "But we don't accept everyone.";
-	mes "You must have a lot of effort, tenacity, and be able to devote yourself to research.";
-	next;
-	mes "[Parmry Gianino]";
-	mes "There are a couple of requirements to join the association....";
-	mes "but we'll discuss that after you apply.";
-	next;
-	mes "[Parmry Gianino]";
-	mes "Then, would you like to apply to register?";
-	next;
-	menu "I would like to apply.",M_Apply,"I'll do it later.",-;
-
-		mes "[Parmry Gianino]";
-		mes "If you are a talented Merchant,";
-		mes "you are always welcome here.";
-		mes "Come again soon.";
+	}
+	else if (ALCH_Q == 4) {
+		mes "Go and talk to";
+		mes "Mr. Raspuchin.";
+		mes "He's involved in the";
+		mes "Alchemist selection process, whatever that might mean.";
+		next;
+		mes "[Parmy Gianino]";
+		mes "Hopefully, it";
+		mes "won't be too much of";
+		mes "a problem. I guess he'll just interview you, and ask you";
+		mes "some simple questions.";
 		close;
-	M_Apply:
-		mes "[Parmry Gianino]";
-		mes "Fill out this application form please.....";
+	}
+	else {
+		mes "Ah, I'm sorry, but";
+		mes "I'm busy right now~";
 		next;
-		mes "(you fill out the form and hand it back)";
+		mes "[Parmy Gianino]";
+		mes "Why don't you ask";
+		mes "someone else if you're";
+		mes "not sure who to visit";
+		mes "next? Good luck~";
+		close;
+	}
+}
+
+alde_alche,175,107,3	script	Fastidious Alchemist#am	749,{
+	mes "[Raspuchin Gregory]";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
+			mes "Heeheehee";
+			mes "keheheh~!";
+			mes "Eh? What do you want?!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "You're not here to steal my experimental results or plagiarize my work, are you? How dare you consider intellectual theft!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "You're not, are you?";
+			mes "Well, as a colleague,";
+			mes "let me just warn you";
+			mes "that such tricks aren't";
+			mes "tolerated here in the";
+			mes "Alchemist Union!";
+			close;
+		}
+		else if (BaseClass == Job_Novice) {
+			mes "Heeheehee";
+			mes "keheheh~!";
+			mes "How cute, you've come";
+			mes "all this way just to play...";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "I'll let you";
+			mes "go this time...";
+			mes "But next time, don't";
+			mes "expect to leave so easily...";
+			close;
+		}
+		else {
+			mes "What is it?!";
+			mes "You're curious as";
+			mes "to what I'm doing?";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Heehee";
+			mes "keheheh~!";
+			mes "Why, I'm busy";
+			mes "researching,";
+			mes "of course!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Once this";
+			mes "potion is complete...";
+			mes "You can use it to take";
+			mes "over an entire nation!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Hee hee hee!";
+			mes "Something this";
+			mes "dangerous has to";
+			mes "be kept a secret!";
+			mes "Understand?";
+			close;
+		}
+	}
+	if (ALCH_Q == 0) {
+		mes "Heeheehee";
+		mes "keheheh~!";
+		mes "What do you";
+		mes "want, kid?";
 		next;
-		mes "[Parmry Gianino]";
-		mes "Very good.  In order to join the Alchemist Union you must first pay a ^5533FF50,000^000000 zeny membership fee.";
-		mes "You will also need to bring us a few items as well.";
+		mes "[Raspuchin Gregory]";
+		mes "A Merchant should go and set up shop and vend items. Why are you wandering in a place like this?";
 		next;
-		mes "[Parmry Gianino]";
-		mes "Of course if you bring us an ^5533FFOld Magic Book^000000 and an ^5533FFHammer of Blacksmith^000000...";
-		mes "You won't have to pay the fee.";
+		mes "[Raspuchin Gregory]";
+		mes "Heheheh~!";
+		mes "Go vend somwhere else!";
+		mes "And leave me to my";
+		mes "dark enterprise!";
+		close;
+	}
+	else if (ALCH_Q >= 1 && ALCH_Q <= 3) {
+		mes "Heeheehee";
+		mes "keheheh~!";
+		mes "What do you";
+		mes "want, kid?";
 		next;
-		mes "[Parmry Gianino]";
-		mes "Let's see.... you'll need to  bring us....^5533FF100 Mini Furnaces^000000.";
-		mes "Once you have the Mini Furnaces come back and see me.";
+		mes "[Raspuchin Gregory]";
+		mes "What...?";
+		mes "Learn Alchemy?!";
+		mes "Don't even speak";
+		mes "such nonsense!";
 		next;
-		mes "[Parmry Gianino]";
-		mes "When you come back I will also collect the ^5533FF50,000^000000 zeny fee so don't forget about that either.";
-		mes "See you soon...";
-		set JBLVL, JobLevel; // used to determine what item to get at the end
-		set ALCH_Q,1;
-		close;
-L_LowLvl:
-	mes "You must be at least Job Level 40  to become a Alchemist.";
-	close;
-
-L_Check:
-	mes "Oh, your back already... lets see....";
-	next;
-	mes "[Parmry Gianino]";
-	if(countitem(612) < 100) goto L_NoItems;
-	if(countitem(1005) && countitem(1006)) goto L_Skip;
-	if(zeny < 50000) goto L_NoZeny;
- 	set zeny,zeny - 50000;
-	delitem 612, 100;
-	mes "You have 50,000 zeny...... You brought 100 Mini Furnaces.... Great!";
-	mes "Now you are ready to learn the basics of being an Alchemist.";
-	next;
-
-	L_Cont:
-	mes "[Parmry Gianino]";
-	mes "But before that... ^5533FFRasputin^000000 wants to see you.....";
-	mes "Hmm..... I'm not sure what it could be about....";
-	next;
-	mes "[Parmry Gianino]";
-	mes "You should go visit him now.  Just go down those stairs to my right.  His room is in the SouthEastern corner.";
-	set ALCH_Q,2;
-	close;
-
-	L_NoZeny:
-		mes "You still need to pay the ^FF553350,000^000000 zeny membership fee.";
-		mes "Let me know when you have enough money.";
+		mes "[Raspuchin Gregory]";
+		mes "Even if you tried studying for a thousand years, maybe even more, it'd be useless to you! Forget about it and just worry about your store!";
 		close;
-	L_NoItems:
-		mes "As I mentioned before, you must bring ^FF3355100 Mini Furnaces^000000 to join the union.";
-		mes "Please come back when you are ready...";
+	}
+	else if (ALCH_Q == 4) {
+		mes "Heeheehee";
+		mes "keheheh~!";
+		mes "What do you";
+		mes "want, kid?";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "What...?";
+		mes "Join the Union!?";
+		mes "I don't like it...";
+		mes "I just don't...!";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Nowadays, anyone thinks they can";
+		mes "be Alchemists just by knowing how to mix a few herbs. That's why my interview is necessary.";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Heeheehee";
+		mes "keheheh~!";
+		mes "I plan on weeding out all the dumb and incompetent, and chase them";
+		mes "all away! We don't need morons!";
+		next;
+		if (JobLevel == 50) {
+			mes "[Raspuchin Gregory]";
+			mes "Wait...";
+			mes "Maybe I've";
+			mes "misjudged you.";
+			if (sex == 1) {
+				mes "You might be a pretty boy,";
+				mes "but I can tell you're smart";
+				mes "from your eyes.";
+			}
+			else {
+				mes "Huh. You're a cutie alright,";
+				mes "but I can tell you've got brains.";
+			}
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "You're not just some stupid kid.";
+			mes "I can tell youve gone through some rough times as a Merchant. Excellent. Keh heh heh~";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Fine, just so we don't insult each other's intelligence, I'll just let you pass the interview.";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "So hurry up, become an Alchemist, do some good research, and you might turn out to be of some help to me. Hahahahahaha~!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Now go to Darwin!";
+			mes "He'll teach you how to do the experiments. Just tell him that";
+			mes "I sent you.";
+			set ALCH_Q,6;
+			close;
+		}
+		mes "[Raspuchin Gregory]";
+		mes "Surprised, are you?";
+		mes "Keheheh~ If you thought";
+		mes "becoming an Alchemist was";
+		mes "just a matter of changing";
+		mes "your clothes, then you're";
+		mes "sadly mistaken.";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Now, try solving";
+		mes "all these problems.";
+		mes "Let's see how smart";
+		mes "really are.";
+		next;
+L_AskQuestions:
+		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 "How much do";
+			mes "12 Red Potions,";
+			mes "1 Butterfly Wing";
+			mes "and 5 Fly Wings cost";
+			mes "after a 24 % discount?";
+			next;
+			input .@input;
+			if (.@input != 909) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total weight of";
+			mes "3 Scimiters, 2 Helms";
+			mes "and 1 Long Coat?";
+			next;
+			input .@input;
+			if (.@input != 450) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total defense of";
+			mes "a Biretta, Mantle,";
+			mes "Opera Mask, Ribbon,";
+			mes "Muffler, Boots, and";
+			mes "Ear Muffs?";
+			next;
+			input .@input;
+			if (.@input != 20) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "If you buy 5 Helms";
+			mes "with a 24 % discount";
+			mes "and sell it at 20";
+			mes "how much profit";
+			mes "do you earn?";
+			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 "What is the";
+			mes "total price of";
+			mes "15 Green Potions,";
+			mes "6 Magnifiers and";
+			mes "4 Traps after";
+			mes "a 24 % discount?";
+			next;
+			input .@input;
+			if (.@input != 934) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total weight of";
+			mes "3 Ring Pommel Sabers,";
+			mes "4 Caps, and 2 Boots?";
+			next;
+			input .@input;
+			if (.@input != 550) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total defense of";
+			mes "a Buckler, Long Coat,";
+			mes "Gas Mask, Big Ribbon,";
+			mes "Cute Ribbon, Sakkat,";
+			mes "and Glasses?";
+			next;
+			input .@input;
+			if (.@input != 16) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "How much profit do you";
+			mes "make if you buy Tights";
+			mes "at a 24 % discount and";
+			mes "sell it at 20 % of";
+			mes "the normal price?";
+			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 "What is the";
+			mes "total cost of";
+			mes "6 Red Potions,";
+			mes "7 Green Potions,";
+			mes "and 8 Fly Wings";
+			mes "after a 24 % discount?";
+			next;
+			input .@input;
+			if (.@input != 798) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total weight of";
+			mes "2 Ring Pommel Sabers,";
+			mes "3 Caps, and 3 boots?";
+			next;
+			input .@input;
+			if (.@input != 480) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "What is the";
+			mes "total defense of";
+			mes "a Mirror Shield, Mr. Smile, Leather Jacket, Silk Robe, Wedding Veil, Muffler, and Eye Patch?";
+			next;
+			input .@input;
+			if (.@input != 12) set .@w_point,.@w_point+1;
+			mes "[Raspuchin Gregory]";
+			mes "If you buy 4 Padded Armors";
+			mes "at a 25% discount and sell";
+			mes "them at 20% of the original";
+			mes "price, how much profit would";
+			mes "you make from this sale?";
+			next;
+			if (.@input != 7680) set w_point,w_point+1;
+		}
+		if (.@w_point == 0) {
+			mes "[Raspuchin Gregory]";
+			mes "Ooh...";
+			mes "Excellent! Great!";
+			mes "You got them all correct!?";
+			mes "Keheheh, I have no choice but to acknowledge you...";
+			next;
+		}
+		else if (.@w_point == 1) {
+			mes "[Raspuchin Gregory]";
+			mes "You got one wrong!";
+			mes "But I'll let it slide.";
+			mes "You pass the interview!";
+			next;
+		}
+		else if (.@w_point == 2 && ALCH_Q == 5) {
+			mes "[Raspuchin Gregory]";
+			mes "You've got serious";
+			mes "weaknesses in math,";
+			mes "but I'll let you go this time...";
+			next;
+		}
+		else {
+			set ALCH_Q,5;
+			mes "[Raspuchin Gregory]";
+			mes "Keheheh! Idiot!";
+			mes "Just listening to your";
+			mes "answers is making me feel";
+			mes "stupider! You might as well";
+			mes "have got them all wrong!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "How can a person that";
+			mes "can't even answer all of";
+			mes "these simple questions think";
+			mes "of becoming an Alchemist?!";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Hm...?";
+			mes "Did you get";
+			mes "any right?";
+			next;
+			mes "[Raspuchin Gregory]";
+			mes "Fool! Even if you make one little mistake, everything goes wrong";
+			mes "in Alchemy! Now get out of here!";
+			mes "You make me sick!";
+			close;
+		}
+		mes "[Raspuchin Gregory]";
+		mes "So hurry up, become an Alchemist, do some good research, and you might turn out to be of some help to me. Hahahahahaha~!";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Now go to Darwin!";
+		mes "He'll teach you how to do the experiments. Just tell him that";
+		mes "I sent you.";
+		set ALCH_Q,6;
 		close;
-L_Skip:
-	mes "Oh, you have an ^5533FFOld Magic Book^000000 and an ^5533FFHammer of Blacksmith^000000........";
-	mes "That means you don't have to pay the membership fee.";
-	next;
-	mes "[Parmry Gianino]";
-	mes "Excellent.  Now I'll just take the Book, Hammer, 100 Mini Furnaces, and you'll be all set to learn the basics of being an Alchemist.";
-	next;
-	delitem 1005,1;
-	delitem 1006,1;
- 	delitem 612, 100;
-	goto L_Cont;
-
-L_Test2:	
-	mes "Go visit ^5533FFRasputin^000000 now!";
-	close;
-L_Test3:	
-	mes "Go visit ^5533FFDarwin^000000 now!";
-	close;
-L_Test4:	
-	mes "Go visit ^5533FFVan Helmont^000000 now!";
-	close;
-L_Test5:	
-	mes "Go visit ^5533FFNicholas Flamel^000000 now!";
-	close;
-L_Test6:	
-	mes "Go back to ^5533FFNicholas Flamel^000000 now!";
-	mes "He still has one more test for you.";
-	close;
-L_GoChange:	
-	mes "Wow you finished all of the tests? Great now you can visit the Headmaster, ^5533FFVincent Carsciallo^000000.";
-	mes "He's the one who will change you into an Alchemist.";
-	close;
-}
-
-
-//==================================================================================================//
-//					2nd Test: Math test :(
-//==================================================================================================//
-alde_alche,175,107,4	script	Rasputin Gregory	749,{
-	mes "[Rasputin Gregory]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-	mes "What is it, kikikiki.  Are you curious about what I do...?";
-	mes "I'll just especially let you know.  You see I... Kekeke..";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Am researching! Once this potion is complete... you will be able to take over an entire country!!";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Kikikikikekekekek.  It's a secret to the people of Prontera.....";
-	close;
-L_Merc:
-	if(ALCH_Q == 2) goto L_Start;
-	if(ALCH_Q == 3) goto L_Done;
-	mes "Kikikikikekekekeke.";
-	mes "What is it! You punk.";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "A Merchant should go and set up a shop...";
-	mes "Why'd you come to a place like this!?";
-	mes "Are you looking for something to scab off?";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Kikiki... Go, leave this place.";
-	mes "Don't loiter ... Kekeke.";
-	close;
-L_Start:
-	if(ALCH_Q2 == 1) goto L_ReTest;
-	if(JobLevel == 50) goto L_Skip;
-	mes "Keke, another dumb one has stumbled into here.";
-	mes "Join the Union?";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "I don't like it... I just don't...!";
-	mes "Everywhere, all joining and being called Alchemist just for knowing how to mix herbs!!!";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Kikiki, so for that reason an interview is necessary!";
-	mes "I plan on scolding all the incompetent ones and chasing them away!!";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "You look dumb founded. It must be pretty crazy.";
-	mes "If you were thinking of just changing clothes you thought wrong... Kekeke..";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Now try solving the problems I give you.";
-	mes "We'll see how smart you are.";
-	next;
-	set @score,0;
-
-	//set of question 1
-	q1:
-		mes "[Rasputin Gregory]";
-		mes "12+23+34+45 =?";
-		next;
-		input @num;
-		if(@num == 114) set @score,@score+10;
-	q2:	
-		mes "[Rasputin Gregory]";
-		mes "1000-36-227-348 =?";
-		next;
-		input @num;
-		if(@num == 389) set @score,@score+10;
-	q3:
-		mes "[Rasputin Gregory]";
-		mes "9765/3/5/7 =?";
-		next;
-		input @num;
-		if(@num == 93) set @score,@score+10; 
-	q4:
-		mes "[Rasputin Gregory]";
-		mes "(2646/7) + (13*28) =?";
-		next;
-		input @num;
-		if(@num == 742) set @score,@score+10;
-	q5:
-		mes "[Rasputin Gregory]";
-		mes "With a 24% discount";
-		mes "How much are 12 Red Potions,";
-		mes "5 Fly Wings, and ";
-		mes "1 Butterfly Wing altogether?";
-		next;
-		input @num;
-		if(@num == 909) set @score,@score+10;
-	q6:
-		mes "[Rasputin Gregory]";
-		mes "What is the total weight of 3 ";
-		mes "Scimiters,";
-		mes "2 Helms and 1 Coat";
-		next;
-		input @num;
-		if(@num == 450) set @score,@score+10;
-	q7:	
-		mes "[Rasputin Gregory]";
-		mes "What is the total defense of ";
-		mes "a Biretta, Mantle, Opera Mask,";
-		mes "Ribbon, ";
-		mes "Muffler, Boots, and Ear Muffs?";
-		next;
-		input @num;
-		if(@num == 20) set @score,@score+10;
-	q8:	
-		mes "[Rasputin Gregory]";
-		mes "If you buy 5 Helms with a 24%";
-		mes "discount and sell it at 20%,";
-		mes "how much do you earn?";
-		next;
-		input @num;
-		if(@num == 8800) set @score,@score+10;
-		goto L_Total;
-
-L_ReTest:
-	mes "What, you want to take the test again?";
-	mes "I thought I told you to leave.";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Well, I'll let you go this one time...";
-	mes "I forgive you ... Kekeke.";
-	mes "Do well this time...";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Now then, answer the question I ask.";
-	mes "Let see how smart you are.";
-	next;
-	set @score,0;
-
-	//set of question 2
-	q11:
-		mes "[Rasputin Gregory]";
-		mes "13+25+37+48=?";
-		next;
-		input @num;
-		if(@num == 123) set @score,@score+10;
-	q12:
-		mes "[Rasputin Gregory]";
-		mes "1000-58-214-416 =?";
-		next;
-		input @num;
-		if(@num == 312) set @score,@score+10;
-	q13:
-		mes "[Rasputin Gregory]";
-		mes "12*24*3=?";
-		next;
-		input @num;
-		if(@num == 864) set @score,@score+10;
-	q14:
-		mes "[Rasputin Gregory]";
-		mes "10530/3/5/2=?";
-		next;
-		input @num;
-		if(@num == 351) set @score,@score+10;
-	q15:
-		mes "[Rasputin Gregory]";
-		mes "(35*19) - (1792/7) =?";
-		next;
-		input @num;
-		if(@num == 409) set @score,@score+10;
-	q16:
-		mes "[Rasputin Gregory]";
-		mes "(2368/8) + (24*17) = ?";
-		next;
-		input @num;
-		if(@num == 704) set @score,@score+10;
-	q17:
-		mes "[Rasputin Gregory]";
-		mes "(2646/7) + (13*28)=?";
-		next;
-		input @num;
-		if(@num == 742) set @score,@score+10;
-	q18:
-		mes "[Rasputin Gregory]";
-		mes "If buying at a 24% discount,";
-		mes "What is the total price of";
-		mes "15 Green Potions,";
-		mes "6 Magnifiers and 4 Traps?";
-		next;
-		input @num;
-		if(@num == 934) set @score,@score+10;
-	q19:
-		mes "[Rasputin Gregory]";
-		mes "What is the total weight of ";
-		mes "3 Ring Pommel Sabers,";
-		mes "4 Caps and 2 Boots?";
-		next;
-		input @num;
-		if(@num == 550) set @score,@score+10;
-	q20:
-		mes "[Rasputin Gregory]";
-		mes "What is the total defense of a ";
-		mes "Buckler, Coat, Gas Mask, Big";
-		mes "Ribbon, Ribbon, Sakkat and";
-		mes "Glasses?";
-		next;
-		input @num;
-		if(@num == 16) set @score,@score+10;
-	q21:
-		mes "[Rasputin Gregory]";
-		mes "How much zeny do you make";
-		mes "if you buy Tights at a 24%";
-		mes "discount and sell it at 20%";
-		mes "of the normal price?";
-		next;
-		input @num;
-		if(@num == 2840) set @score,@score+10;
-L_Total:
-	mes "[Rasputin Gregory]";
-	if(@score < 80) goto L_Failed;
-	set ALCH_Q,3;
-	set ALCH_Q2, 0;
-	mes "Kikiki... I'll let you go.";
-	mes "Do some good research and be of some help to Rasputin... Kikiki!";
-	next;	
-	mes "[Rasputin Gregory]";
-	mes "Well then go! ^5533FFGo to Darwin^000000.";
-	mes "He'll teach you how to do the experiments.";
-	mes "Tell him I sent you.";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Kikikikekeke.";
-	mes "Don't think this is the end of it!";
-	close;
-
-	L_Failed:
-		set ALCH_Q2,1;
-		mes "...Kekeke, you idiot,";
-		mes "I feel dumb asking you all the question!";
-		mes "you got them all wrong!!!";
-		next;
-		mes "[Rasputin Gregory]";
-		mes "How can a person that can't even answer these question think of being an Alchemist!";
-		mes "What? did you get any right?";
-		next;
-		mes "[Rasputin Gregory]";
-		mes "Stupid! If you get one wrong everything is wrong for an Alchemist!";
-		mes "Go! Leave! Get out of here!";
+	}
+	else if (ALCH_Q == 5) {
+		mes "What...?!";
+		mes "You want to take";
+		mes "the test again?!";
+		mes "I thought I told";
+		mes "you to leave!";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "I don't like it...";
+		mes "I don't like this!";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Fine...";
+		mes "I'll try to overlook your pitiful performance last time and give";
+		mes "you another chance. Don't screw";
+		mes "up again, got it?";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Now then,";
+		mes "give me all the";
+		mes "^551A8Bright^000000 answers";
+		mes "this time.";
+		next;
+		goto L_AskQuestions;
+	}
+	else if (ALCH_Q == 6) {
+		mes "What are you doing?";
+		mes "Go and find Darwin now.";
+		next;
+		mes "[Raspuchin Gregory]";
+		mes "Keheheheheheheheh~";
+		mes "Don't think this is the end of it!";
 		close;
-L_Done:
-	mes "What are you doing? Leave already.";
-	mes "Go to ^5533FFDarwin^000000.";
-	mes "He'll teach you how to do the experiments.";
-	mes "Tell him I sent you.";
-	next;
-	mes "[Rasputin Gregory]";
-	mes "Kikikikekeke.";
+	}
+	mes "Keheheheheheheheh~";
 	mes "Don't think this is the end of it!";
 	close;
-L_Skip:
-	mes "Hmm... you have a pretty high job level..... I'll be nice today and let you pass.";
-	mes "Next you should go see ^5533FFDarwin^000000.";
-	mes "He'll teach you how to do the experiments.";
-	mes "Tell him I sent you.";
-	set ALCH_Q,3;
-	set ALCH_Q2, 0;
-	close;
 }
 
-
-//==================================================================================================//
-//					3rd Test: Mix some medicine
-//==================================================================================================//
-alde_alche,13,15,8	script	Darwin	750,{
-	mes "[Darwin]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-L_Other:
-	mes "more to lose or gain...";
-	mes "It's always like that...";
-	next;
-	mes "[Darwin]";
-	mes "All I can see through my cursed eyes";
-	mes "are illusions from the past,";
-	mes "Ahahahaha...";
-	next;
+alde_alche,13,15,7	script	Studying Man#am	750,{
+	//set max_max_c,1201;
+	//if (max_max_c == 1) {
+	//	mes "- Wait a minute! -";
+	//	mes "- Currently you are carrying -";
+	//	mes "- too many items with you. -";
+	//	mes "- Please come back again -";
+	//	mes "- after you store some items into kafra storage. -";
+	//	close;
+	//	return
+	//}
 	mes "[Darwin]";
-	mes "There's no such thing as paradise ... is there ?";
-	mes "My love Harmona.... Aah....";
-	close;
-
-L_Merc:
-	if(ALCH_Q == 3) goto L_Start;
-	if(ALCH_Q == 4) goto L_Done;
-	goto L_Other;
-
-L_Start:
-	if(ALCH_Q2 == 1) goto L_Check;
-	mes "...........";
-	mes ".........";
-	mes "....Who is it...";
-	next;
-	mes "[Darwin]";
-	mes "A wolf? Or a human...";
-	mes "You must be looking for something as well.";
-	next;
-	mes "[Darwin]";
-	mes "If you have something precious, be careful.";
-	mes "You may lose something else while while going after another...";
-	next;
-	mes "[Darwin]";
-	mes "..........";
-	next;
-	mes "[Darwin]";
-	mes "... but what brings you here.";
-	mes "Coming to a place like this.";
-	next;
-	menu "I want to learn how to experiment.",M_Exp, "Tell me more about flowers.",M_Flow;
-
-	M_Flow:	
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
+			mes "Ah...";
+			mes "You...";
+			mes "You've become";
+			mes "an Alchemist.";
+			next;
+			mes "[Darwin]";
+			mes "Remember...";
+			mes "In your quest";
+			mes "to make your";
+			mes "dreams come true,";
+			mes "do not lose what";
+			mes "you cherish.";
+			next;
+			mes "[Darwin]";
+			mes "Ah...";
+			mes "Harmona...";
+			mes "My love...";
+			close;
+		}
+		else {
+			mes "When you have";
+			mes "your dreams, you";
+			mes "have everything.";
+			mes "Without them, you have";
+			mes "nothing more to lose.";
+			next;
+			mes "[Darwin]";
+			mes "These cursed eyes...";
+			mes "They've lost sight of";
+			mes "my dreams a long time ago.";
+			mes "Ha ha ha ha...";
+			next;
+			mes "[Darwin]";
+			mes "Does paradise";
+			mes "really exist...?";
+			mes "Not without my love...";
+			mes "Not without Harmona...";
+			close;
+		}
+	}
+	if (ALCH_Q == 6) {
+		mes "...";
+		next;
 		mes "[Darwin]";
-		mes ".......";
+		mes "...";
 		mes "......";
-		mes "...think about your precious things...";
 		next;
 		mes "[Darwin]";
-		mes ".... There is a flower that I faintly remember....";
+		mes "...";
+		mes "......";
+		mes "Who is it...?";
 		next;
+		monster "alde_alche",13,15,"Wolf",1013,1;
+		killmonsterall "alde_alche";
 		mes "[Darwin]";
-		mes "I divulged into researching one thing.....";
-		mes "for the one I love...";
+		mes "A wolf?";
+		mes "Or a human?";
+		mes "You must be seeking";
+		mes "something, are you not?";
 		next;
 		mes "[Darwin]";
-		mes "Lets just say that it was about the relationship between wolf and flowers...";
-		mes "I won't tell you the details.";
+		mes "After all...";
+		mes "Everyone has desires";
+		mes "to fulfill. Be be careful.";
+		mes "Do not be like the wild";
+		mes "wolf drawn to the flowers.";
 		next;
 		mes "[Darwin]";
-		mes "But yes ... it was a flower.";
-		mes "with its shine, it was said to  let you see paradise Illusion Flower...";
+		mes "In your efforts to gain something else, you may end up sacrificing something precious to you.";
 		next;
 		mes "[Darwin]";
-		mes "I made a homunculus.";
-		mes "Nobody believe me. that I made life from a flower!!!";
-		mes "My research!";
+		mes "Cultivating joy and happiness";
+		mes "is much like cultivating flowers.";
+		mes "If something is missing, the";
+		mes "flower will wilt away...";
 		next;
 		mes "[Darwin]";
-		mes "But now, I have nothing left..";
-		mes "It's all over.";
-		mes "Time has stopped at that moment in my life...";
+		mes "What brings you";
+		mes "to this kind of place?";
+		next;
+		switch(select("I want to learn how to experiment.:Tell me more about flowers.:Nothing.")) {
+		case 1:
+			mes "[Darwin]";
+			mes "You wish to";
+			mes "learn Alchemy?";
+			mes "Everything I know,";
+			mes "I've learned for the";
+			mes "sake of making my";
+			mes "dream come true...";
+			next;
+			mes "[Darwin]";
+			mes "I'll teach";
+			mes "you the basics...";
+			mes "But everything you";
+			mes "learn afterwards must";
+			mes "be directed through";
+			mes "your own motivations.";
+			next;
+			mes "[Darwin]";
+			mes "I will teach you";
+			mes "how to make simple";
+			mes "medicine. So please";
+			mes "bring the following";
+			mes "materials right away.";
+			next;
+			mes "[Darwin]";
+			mes "^551A8B3 Medicine Bowls^000000,";
+			mes "^551A8B3 Empty Bottles^000000,";
+			mes "^551A8B1 Red Herb^000000,";
+			mes "^551A8B1 Yellow Herb^000000 and";
+			mes "^551A8B1 White Herb^000000.";
+			set ALCH_Q,7;
+			next;
+			mes "[Darwin]";
+			mes "Once you have";
+			mes "prepared everything,";
+			mes "return to me.";
+			close;
+		case 2:
+			mes "[Darwin]";
+			mes "Flowers...?";
+			mes "In the darkest";
+			mes "recesses of my mind,";
+			mes "there is a blossum";
+			mes "that I faintly remember...";
+			next;
+			mes "[Darwin]";
+			mes "For the one that";
+			mes "I love, I put all";
+			mes "of my efforts into";
+			mes "researching that one thing.";
+			next;
+			mes "[Darwin]";
+			mes "I won't tell you the details,";
+			mes "but I was basically researching";
+			mes "the relationship between";
+			mes "wolves and flowers.";
+			next;
+			mes "[Darwin]";
+			mes "But yes...";
+			mes "It was a flower.";
+			mes "With its shine, it was said";
+			mes "to let you see paradise.";
+			mes "The ^551A8BIllusion Flower^000000...";
+			next;
+			mes "[Darwin]";
+			mes "I even made";
+			mes "a Homunculus,";
+			mes "but no one believed that I could create new life from a flower...";
+			next;
+			mes "[Darwin]";
+			mes "Then...";
+			mes "Well, some other things happened, and now I have nothing left. Time no longer has any meaning for me.";
+			next;
+			mes "[Darwin]";
+			mes "Ahh...";
+			mes "Harmona...";
+			mes "Where have you gone?";
+			mes "I hope you're in a field";
+			mes "of beautiful flowers...";
+			close;
+		case 3:
+			mes "[Darwin]";
+			mes "Consider what";
+			mes "is most precious";
+			mes "to you. It cannot";
+			mes "be protected if you";
+			mes "do not recognize it.";
+			close;
+		}
+	}
+	else if (ALCH_Q == 7) {
+		mes "...";
+		mes "......";
 		next;
 		mes "[Darwin]";
-		mes "Aag... Harmona, in the beautiful fields of flowers,";
-		mes "where have you gone....";
-		close;
-	M_Exp:
+		mes "...";
+		mes "......";
+		mes "Who is it...?";
+		next;
 		mes "[Darwin]";
-		mes "You want to learn Alchemy...";
-		mes "All the knowledge I possess..";
-		mes "I made to make my dreams come true...";
+		mes "Ah...";
+		mes "You are the one who";
+		mes "wishes to learn Alchemy.";
+		mes "Have you prepared everything?";
+		next;
+		if (countitem(710) > 0) {
+			mes "[Darwin]";
+			mes "Wait.";
+			mes "That Illusion Flower.";
+			mes "How did you get that?";
+			next;
+			mes "[Darwin]";
+			mes "Where did you find it?!";
+			mes "The flower that slowly";
+			mes "blooms under the";
+			mes "moonlight?";
+			mes "It's beautiful...!";
+			next;
+			mes "[Darwin]";
+			mes "Th-That flower...";
+			mes "Please let me see it.";
+			mes "The Illusion Flower!";
+			mes "Uwaaaaaaah!!";
+			next;
+			mes "[Darwin]";
+			mes "Would you be so kind";
+			mes "as to let me have this flower?";
+			mes "I'm sure that this is the Moonlight Flower that I've been seeking!";
+			next;
+			if (select("Sorry, I can't give it to you.:I brought it to give to you.") == 1) {
+				mes "[Darwin]";
+				mes "I understand.";
+				mes "You can't give";
+				mes "such a precious";
+				mes "flower to just anyone.";
+				mes "Well... It's okay.";
+				next;
+				mes "[Darwin]";
+				mes "It just brought back old memories. I shouldn't have asked in the first place. In any case, please bring what is needed for the experiment.";
+				next;
+				mes "[Darwin]";
+				mes "Please leave that flower";
+				mes "somewhere else. It brings";
+				mes "back too many memories...";
+				close;
+			}
+			mes "[Darwin]";
+			mes "Are you";
+			mes "serious?!";
+			mes "Thank you!";
+			mes "Such a precious flower.";
+			mes "Ah, Harmona, my love...";
+			next;
+			mes "[Darwin]";
+			mes "Yes...";
+			mes "I shall repay you for this.";
+			mes "I shall plant all of my knowledge of Alchemy directly into your mind...";
+			next;
+			mes "[Darwin]";
+			mes "Open your eyes wide,";
+			mes "and look into my eyes!!";
+			mes "Don't stop until the end!!";
+			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*Gasp...*^000000";
+			mes "You are now";
+			mes "an Alchemist!!";
+			mes "Go to the Union";
+			mes "and cast away the last";
+			mes "vestiges of Merchant life!!";
+			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 "Seems like you have everything ready. As promised, I will teach you how to make simple medicine.";
+			next;
+			mes "[Darwin]";
+			mes "First, prepare the Medicine Bowl. Then, you put the Herbs inside, like this, and slowly crush them.";
+			next;
+			mes "[Darwin]";
+			mes "Pour small amounts";
+			mes "of clean water and stir";
+			mes "the mixture until it thickens.";
+			mes "Afterwards, add some more Herbs.";
+			next;
+			mes "[Darwin]";
+			mes "That's how you make it. If you think you have enough, gently pour the mixture into an empty bottle.";
+			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 "There you go,";
+			mes "it's complete.";
+			mes "Now, make some medicine";
+			mes "using the simple procedure";
+			mes "I just explained to you.";
+			set w_point,0;
+			next;
+			switch(select("Prepare the Medicine Bowl.:Put the Medicine Bowl on your head.:Kick the Medicine Bowl.")) {
+			case 1:
+				break;
+			case 2:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "What...?";
+				next;
+				break;
+			case 3:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "No!";
+				next;
+				break;
+			}
+			switch(select("Put some dirt in the Medicine Bowl.:Put some Herbs in the Medicine Bowl.:Put a Harp in the Medicine Bowl.")) {
+			case 1:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "...Eh!?";
+				mes "That's not";
+				mes "medicine!";
+				next;
+				break;
+			case 2:
+				break;
+			case 3:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "A Harp?";
+				mes "And how would";
+				mes "you do that?";
+				next;
+				break;
+			}
+			switch(select("Crush the Herbs.:Crush the Medicine Bowl.:Crush Darwin's foot.")) {
+			case 1:
+				break;
+			case 2:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Wh-What are";
+				mes "you doing!?";
+				next;
+				break;
+			case 3:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Agh...!";
+				mes "What do you";
+				mes "think you're";
+				mes "doing?!";
+				next;
+				break;
+			}
+			switch(select("Spray clean water.:Drink clean water.:Pour clean water.")) {
+			case 1:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Huh?";
+				mes "What are you doing?";
+				next;
+				break;
+			case 2:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "W-wait...";
+				mes "Are you";
+				mes "taking a break?";
+				next;
+				break;
+			case 3:
+				break;
+			}
+			switch(select("Continue crushing the Herbs.:Continue eating the Herbs.:Continue dancing and singing.")) {
+			case 1:
+				break;
+			case 2:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Eat the Herbs?";
+				mes "I think you need";
+				mes "to focus on the";
+				mes "task at hand...";
+				next;
+				break;
+			case 3:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Singing and";
+				mes "dancing? Alchemists";
+				mes "don't do that, have";
+				mes "you gone crazy?";
+				next;
+				break;
+			}
+			switch(select("Put noodles in and fry it.:Pour it in an empty bottle.:Hold the Medicine Bowl and drink it.")) {
+			case 1:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "We're Alchemists,";
+				mes "not restaurant chefs.";
+				next;
+				break;
+			case 2:
+				break;
+			case 3:
+				set .@w_point,.@w_point+1;
+				mes "[Darwin]";
+				mes "Huh...";
+				mes "Pretty sloppy...";
+				next;
+				break;
+			}
+			if (.@w_point > 0) {
+				mes "[Darwin]";
+				mes "...";
+				mes "......";
+				next;
+				mes "[Darwin]";
+				mes "You messed up the mixture";
+				mes "since you didn't follow the procedure! Get some more ingredients so you can try it";
+				mes "again until you get it right.";
+				close;
+			}
+			getitem 501,1; //Red_Potion
+			getitem 503,1; //Yellow_Potion
+			getitem 504,1; //White_Potion
+			mes "[Darwin]";
+			mes "Good job.";
+			mes "It came out pretty well considering it's your first time. Go ahead and keep the medicines that you've just made.";
+			set ALCH_Q,8;
+			next;
+			mes "[Darwin]";
+			mes "Now, go into the next room";
+			mes "and speak to Van Helmont to";
+			mes "continue your training.";
+			next;
+			mes "[Darwin]";
+			mes "Never forget...";
+			mes "You must always protect";
+			mes "what is most precious to you.";
+			close;
+		}
+		else {
+			mes "[Darwin]";
+			mes "Have you forgotten";
+			mes "what you need to bring?";
+			mes "Let me remind you once";
+			mes "again. You must come";
+			mes "back with...";
+			next;
+			mes "[Darwin]";
+			mes "^551A8B3 Medicine Bowls^000000,";
+			mes "^551A8B3 Empty Bottle^000000,";
+			mes "^551A8B1 Red Herb^000000,";
+			mes "^551A8B1 Yellow Herb^000000 and";
+			mes "^551A8B1 White Herb^000000.";
+			next;
+			mes "[Darwin]";
+			mes "Come back";
+			mes "when you are";
+			mes "ready...";
+			close;
+		}
+	}
+	else if (ALCH_Q == 8) {
+		mes "I said to go";
+		mes "to Van Helmont.";
+		mes "I'd like to teach you";
+		mes "more, but I can't.";
 		next;
 		mes "[Darwin]";
-		mes "I'll teach you the basics...";
-		mes "but you must determine your own wishes.";
+		mes "Aah...";
+		mes "Harmona, my love.";
+		mes "I can't even see the flower anymore. My soul quietly";
+		mes "withers as well..";
+		close;
+	}
+	else if (ALCH_Q == 40) {
+		mes "I have already given you all of my knowledge and have nothing more";
+		mes "to teach you.";
 		next;
 		mes "[Darwin]";
-		mes "So, here are the basics.";
-		mes "This is how you make simple medicine...";
-		mes "Prepare some stuff...";
+		mes "Go to the second floor and talk to speak to our Union Leader. Once";
+		mes "you do that, your life as an Alchemist will begin.";
+		close;
+	}
+	else {
+		mes "When you have";
+		mes "your dreams, you";
+		mes "have everything.";
+		mes "Without them, you have";
+		mes "nothing more to lose.";
 		next;
 		mes "[Darwin]";
-		mes "^5533FF3 Medicine Bowls";
-		mes "3 Empty Bottles";
-		mes "1 Red Herb";
-		mes "1 Yellow Herb";
-		mes "1 White Herb^000000";
+		mes "These cursed eyes...";
+		mes "They've lost sight of";
+		mes "my dreams a long time ago.";
+		mes "Ha ha ha ha...";
 		next;
 		mes "[Darwin]";
-		mes "Once you have prepared all the items... come here.";
-		set ALCH_Q2, 1;
-		close;
-
-L_Check:
-	mes "...........";
-	mes ".........";
-	mes "...Who is it....";
-	next;
-	mes "[Darwin]";
-	mes "Ah You're the one that wants to learn Alchemy...";
-	mes "So did you prepare everything?";
-	next;
-	if(countitem(7134) < 3 || countitem(713) < 3 || countitem(507) < 1 || countitem(508) < 1 || countitem(509) < 1) goto L_NotEnuf;
-	delitem 7134,3;
-	delitem 713,3;
-	delitem 507,1;
-	delitem 508,1;
-	delitem 509,1;
-	mes "[Darwin]";
-	mes "Seems like you have everything ready.";
-	mes "As i promised, I'll teach you how to make medicine";
-	next;
-	mes "[Darwin]";
-	mes "First, prepare the Medicine Bowl then put the Herbs inside like this.";
-	mes "And you slowly crush them.";
-	next;
-	mes "[Darwin]";
-	mes "Pour small amounts of clean water and stirr until it become thick, ";
-	mes "then add some more Herbs.";
-	next;
-	mes "[Darwin]";
-	mes "That's how you make it if you think you have enough, ";
-	mes "gently pour it into an empty bottle";
-	next;
-	mes "[Darwin]";
-	mes "There you go, its complete.";
-	mes "This time, do as I showed you.";
-	mes "It should be easy since its so simple.";
-	next;
-	mes "[Darwin]";
-	mes "... even though you don't have one?";
-	next;
-	set @score,0;
-	menu "Prepare the medicine bowl",-, "Wear the medicine bowl on the head",M_0, "Kick the medicine bowl",M_0;
-
-		set @score,@score+10;
-	M_0:
-
-	menu "Put the sand into the medicine bowl",M_1, "Put the herbs into the medicine bowl",-, "Put the harp into the medicine bowl",M_1;
-
-		set @score,@score+10;
-	M_1:
-
-	menu "Smash the herbs",-, "Smash the medicine bowl",M_2, "Smash the Tarosia's foots",M_2;
-
-		set @score,@score+10;
-	M_2:
-
-	menu "Spray the water",M_3, "Drink the water",M_3, "Pour in the water",-;
-
-		set @score,@score+10;
-	M_3:
-
-	menu "Continue to smash the herbs",-, "Continues to eat the herbs",M_4, "Continues to dance and sing",M_4;
-
-		set @score,@score+10;
-	M_4:
-
-	menu "Put in the noodles and fry it",M_5, "Put into the Empty Bottle",-, "Raise the medicine bowl and drink it",M_5;
-
-		set @score,@score+10;
-	M_5:
-
-	mes "[Darwin]";
-	if(@score < 60) goto L_Failed;
-	mes "... Good job. It came out prettywell considering it's your first time...";
-	mes "As a souvenier, take these.";
-	getitem 501,1;
-	getitem 503,1;
-	getitem 504,1;
-	set ALCH_Q,4;
-	set ALCH_Q2,0;
-	next;
-	mes "[Darwin]";
-L_Done:
-	mes "Go to ^5533FFVan Helmont^000000 in the next room...";
-	mes "He'll teach you more details.";
-	mes "Go learn from him.";
-	next;
-	mes "[Darwin]";
-	mes "Don't forget...";
-	mes "You must protect what is trully precious to you.....";
-	close;
-
-	L_Failed:
-		mes "... You messed up all the ingredients.";
-		mes "... Go bring some more.";
+		mes "Does paradise";
+		mes "really exist...?";
+		mes "Not without my love...";
+		mes "Not without Harmona...";
 		close;
-L_NotEnuf:
-	mes "[Darwin]";
-	mes "...You must've forgotten the materials to bring.";
-	mes "I'll tell you again.";
-	mes "Don't forget them this time.";
-	next;
-	mes "[Darwin]";
-	mes "^5533FF3 Medicine Bowls";
-	mes "3 Empty Bottles";
-	mes "1 Red Herb";
-	mes "1 Yellow Herb";
-	mes "1 White Herb^000000";
-	next;
-	mes "[Darwin]";
-	mes "Come back when you are ready...";
-	close;	
+	}
 }
 
-
-//==================================================================================================//
-//					4th Test: Learn from Morgenstein
-//==================================================================================================//
-alde_alche,79,19,4	script	Van Helmont	748,{
-	mes "[Van Helmont]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-L_Other:
-	mes "Just a little ... yes, a little bit more ....";
-	mes "agh, just a little bit more and it would've been done!";
-	next;
-	mes "[Van Helmont]";
-	mes "Why, why another failure!!!";
-	mes "Nothing was wrong!";
-	mes "Why! Why!";
-	next;
-	mes "[Van Helmont]";
-	mes "Does that mean I have to get more materials...";
-	mes "But I should be able to complete it one day....Heeh...";
-	close;
-L_Merc:
-	if(ALCH_Q == 4) goto L_Start;
-	if(ALCH_Q == 5) goto L_Done;
-	goto L_Other;
-L_Start:
-	if(ALCH_Q2 == 1) goto L_Check;
-	mes "Arrrrgh... Why does this formula just stop... What's wrong.";
-	mes "Theoretically it's all correct...";
-	mes "I'm sure it's because there is an error in the formula";
-	mes "somewhere...";
-	next;
-	mes "[Van Helmont]";
-	mes "That's it, I pour it here and it should stop... but this is the formula that solution doesn't stop flowing.";
-	mes " How could I make  such a stupid mistake... when did I switch these...";
-	next;
-	mes "[Van Helmont]";
-	mes "Yes, that's it. I just need to fix this part.";
-	mes "No need to start over.";
-	mes "I just have to fix it...";
-	mes "....But, wait. wait.";
-	next;
+alde_alche,79,19,5	script	Experiment Expert#am	748,{
 	mes "[Van Helmont]";
-	mes ".....................";
-	next;
-	mes "[Van Helmont]";
-	mes "....Who are you?";
-	next;
-	menu "I want to become an Alchemist.",-,".....",M_Bye;
-
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
+			mes "What do you want?";
+			mes "I'm busy!! Don't";
+			mes "bother me and get";
+			mes "on your way.";
+			next;
+			mes "[Van Helmont]";
+			mes "Now, come on...";
+			mes "You'll never get";
+			mes "any research completed if you just slack off. Go out and learn all that you can.";
+			next;
+			mes "[Van Helmont]";
+			mes "Reading science journals and performing experiments. That's what Alchemy is all about. Now, let me get back to work!";
+			close;
+		}
+		else {
+			mes "Just a little...";
+			mes "A little bit more...";
+			mes "Nooo! Just a little";
+			mes "bit more and it";
+			mes "would've been done!";
+			next;
+			mes "[Van Helmont]";
+			mes "Why...?!";
+			mes "Why, another failure?!";
+			mes "My calculations were";
+			mes "all correct! W-Wait...!";
+			next;
+			mes "[Van Helmont]";
+			mes "Perhaps, if I capacitated the thermal flux by using the neutronic gradient, it just might work...!";
+			close;
+		}
+	}
+	if (ALCH_Q == 8) {
+		mes "Arrrrgh...!";
+		mes "Why isn't this formula working? What's wrong? In theory, it's all correct, but there must be an error in the formula somewhere...";
+		next;
 		mes "[Van Helmont]";
-		mes "Oh, I see....";
-		mes "Haha you want to learn Alchemy in world like this, what a funny merchant... hmmm.";
+		mes "I pour it in here, and it should stop. Wait, this is the wrong solution! How could I make such";
+		mes "a dumb mistake?! When did these";
+		mes "get switched?!";
 		next;
 		mes "[Van Helmont]";
-		mes "Well, that's nice, but I have a very urgent experiment I must tend to.";
-		mes "So don't get in the way.";
+		mes "Okay, okay...";
+		mes "I just need to fix this part.";
+		mes "No need to start over. I just";
+		mes "need to fix it... But wait. Wait...";
 		next;
-		menu "Teach me something.",-,"..........",M_Bye;
-
+		mes "[Van Helmont]";
+		mes ".................";
+		next;
+		mes "[Van Helmont]";
+		mes "Um...";
+		mes "Who are you?";
+		next;
+		if (select("I want to become an Alchemist.:.......") == 2) {
+			mes "[Van Helmont]";
+			mes "Hmm...?";
+			mes "What, did you just want to watch? Fine, fine, but do it quietly and leave right when you're done.";
+			next;
+			mes "[Van Helmont]";
+			mes "Stay out of my way and don't go around touching stuff. There might be some volatile materials, so it'd be dangerous to have any accidents.";
+			close;
+		}
+		mes "[Van Helmont]";
+		mes "You...?";
+		mes "An Alchemist?";
+		mes "What a funny Merchant.";
+		next;
+		mes "[Van Helmont]";
+		mes "Well, that's nice, but I have very urgent experiments that require";
+		mes "my attention, so don't get";
+		mes "in the way.";
+		next;
+		if (select("Teach me something.:...") == 1) {
 			mes "[Van Helmont]";
-			mes "Argh... didn't I just tell you not to bother me?";
-			mes "Why can't you understand when I say something!";
+			mes "Argh...!";
+			mes "Didn't I just tell you not to bother me? What's so hard to understand about that?";
 			next;
 			mes "[Van Helmont]";
-			mes "Ok, I'll give you an assignment.";
-			mes "Go study and come back. Let's see.";
-			mes "What would be good... Hmm...";
+			mes "Fine, fine. I'll give you an assignment. Learn something";
+			mes "new and come back. Let's see.";
+			mes "What would be good...";
 			next;
 			mes "[Van Helmont]";
-			mes "Oh, I got it. Go learn from ^5533FFMorgenstein^000000. Learn how to make a ^009500Counteragent^000000 and ^FF3355Mixture^000000.";
-			mes "You can find him in ^5533FFGeffen^000000.";
+			mes "Okay, I got it.";
+			mes "Go learn how to make";
+			mes "a Counteragent and Mixture";
+			mes "from Molgenstein.";
 			next;
 			mes "[Van Helmont]";
-			mes "You don't need to bring what you made. But just go watch how he makes medicine and stuff.";
-			mes "Got it?";
+			mes "You don't need to bring anything. Just go watch him at work and have him tell you how he makes those solutions. Got it?";
 			next;
 			mes "[Van Helmont]";
+			set ALCH_Q,9;
 			mes "Well then, see you later.";
-			mes "You'd be best off going as soon as you can.";
-			set ALCH_Q2,1;
+			mes "You'd better get going as";
+			mes "soon as you can.";
 			close;
-	M_Bye:
+		}
+		mes "[Van Helmont]";
+		mes "...";
+		next;
 		mes "[Van Helmont]";
-		mes "If you don't have business here just go away. Ok!!!";
+		mes "...";
+		mes "......";
+		next;
+		mes "[Van Helmont]";
+		mes "...";
+		mes "......";
+		next;
+		mes "[Van Helmont]";
+		mes "So if I recalibrate the combustion rate of this compound, that should negate any cohesive tendencies in this particle flux...";
+		next;
+		mes "[Van Helmont]";
+		mes "But what am I going to do";
+		mes "about all of this spontaneous";
+		mes "crystallization?! I can't very well remove this matrix, I need it for the catalyst to reach the triple point.";
+		next;
+		mes "[Van Helmont]";
+		mes "Damn!";
+		mes "What am";
+		mes "I going to do?!";
 		close;
-L_Check:	
-	if((MISC_QUEST & 4)==0) goto L_NotRdy; //this's a Morgenstein Quest check
-	mes "Yes, cut the Tentacle..";
-	mes "and mix some Sticky Mucus,";
-	mes "Jellopy solution in the test tube Darn, where did the Medicine Bowl go...";
-	next;
-	mes "[Van Helmont]";
-	mes "Did I use them all.. At a time like this, grrr. I wonder if Nicholas has any left.";
-	mes "Ganfunnit... what a pain.";
-	mes "....but, wait. wait.";
-	next;
-	mes "[Van Helmont]";
-	mes "Ah, you're that merchant from before. So.. did you learn anything?";
-	mes "I didn't send you there to play.";
-	next;
-	mes "[Van Helmont]";
-	mes "Let me ask you a couple of questions. Answer how you heard and learned.";
-	next;
-	set @score,0;
-
-	Q_1a:
+	}
+	else if (ALCH_Q == 9) {
+		mes "Alright, if I make an incision here in the Tentacle, and add a Jellopy and Sticky Mucus solution into the... Where the hell did my Medicine Bowl go?";
+		next;
 		mes "[Van Helmont]";
-		mes "What item is required to form the Counteragent?";
+		mes "Did I use them all at a time like this?! I wonder if Nicholas has any left. Ugh, what a pain. Wait. Wait a minute...";
 		next;
-		menu "Feather",-,"Sticky Mucus",-,"Animal Blood",-;
-
-	Q_1b:
 		mes "[Van Helmont]";
-		mes "Which of the following item is not required in forming the Counteragent?";
+		mes "...";
 		next;
-		menu "Karvodailnirol",-,"Detrimindexta",Q_2a,"Alchol",Q_2a;
-
-			set @score,@score+10;
-
-	Q_2a:
 		mes "[Van Helmont]";
-		mes "What item is required to form the Mixture?";
+		mes "...";
+		mes "......";
+		mes "Who are you?";
 		next;
-		menu "Monster's Feed",-,"Lip of Ancient Fish",-,"Rotten Bandage",-;
-
-	Q_2b:
+		if (select("I want to become an Alchemist?:.......") == 2) {
+			mes "[Van Helmont]";
+			mes "Hmm...?";
+			mes "What, did you just want to watch? Fine, fine, but do it quietly and leave right when you're done.";
+			next;
+			mes "[Van Helmont]";
+			mes "Stay out of my way and don't go around touching stuff. There might be some volatile materials, so it'd be dangerous to have any accidents.";
+			close;
+		}
 		mes "[Van Helmont]";
-		mes "Which of the following item is not required in the process of forming the Mixture?";
+		mes "Ah, of course. The Merchant from before. So what did you learn from Molgenstein? I didn't just send you there for fun, you know.";
 		next;
-		menu "Karvodailnirol",L_Result,"Detrimindexta",-,"Alchol",L_Result;
-
-			set @score,@score+10;
-
-L_Result:
-	mes "[Van Helmont]";
-	if(@score < 20) goto L_Failed;
-	mes "Hmm, you learned well. Ok, now you know some stuff about medicine?";
-	mes "Eh?";
-	mes "I know, you must have a lot to say but let me continue with my experiment.";
-	next;
-	mes "[Van Helmont]";
-	mes "Go out and to the room next to here.  ^5533FFNicholas^000000 probably has more to teach you than me.";
-	set ALCH_Q,5;
-	set ALCH_Q2,0;
-	close;
-
-	L_Failed:
-		mes "...Be honest. You don't know,";
-		mes "do you? I thought I told you to go learn from Morgenstein...";
+		mes "[Van Helmont]";
+		mes "Let me ask you";
+		mes "some questions to";
+		mes "check what you've";
+		mes "learned.";
+		next;
+		if(MISC_QUEST & 4) {
+			mes "[Van Helmont]";
+			mes "Which item is not";
+			mes "necessary to make";
+			mes "a Counteragent?";
+			next;
+			if (select("Karvodailnirol:Detrimindexta:Alcohol") != 1) set .@w_point,.@w_point+1;
+			mes "[Van Helmont]";
+			mes "What item is not";
+			mes "necessary to make";
+			mes "a Mixture?";
+			next;
+			if (select("Karvodailnirol:Detrimindexta:Alcohol") != 2) set .@w_point,.@w_point+1;
+			if (.@w_point > 0) {
+				mes "[Van Helmont]";
+				mes "Weren't you listening to Molgenstein at all? Maybe you";
+				mes "have to watch him make it again.";
+				next;
+				mes "[Van Helmont]";
+				mes "If you can't tell the exact items that you need in an experiment,";
+				mes "you might end up hurting yourself!";
+				close;
+			}
+			mes "[Van Helmont]";
+			mes "Good, you've learned well.";
+			mes "Okay, now you know something about experimentation. You're done here, so now I can continue with my experiments.";
+			next;
+			mes "[Van Helmont]";
+			mes "Go out and find the room next";
+			mes "to this one and talk to Nicholas. He'll continue your training.";
+			next;
+			set ALCH_Q,20;
+			mes "[Van Helmont]";
+			mes "What are you";
+			mes "still doing here?";
+			mes "Go! We both have";
+			mes "more important";
+			mes "things to do!";
+			close;
+		}
+		else {
+			mes "[Van Helmont]";
+			mes "What item do";
+			mes "you need to make";
+			mes "a Counteragent?";
+			next;
+			select("Feather:Sticky Mucus:Animal Gore");
+			mes "[Van Helmont]";
+			mes "What item do";
+			mes "you need to make";
+			mes "a Mixture?";
+			next;
+			select("Monster Feed:Ancient Lips:Rotten Bandage");
+			mes "[Van Helmont]";
+			mes "Be honest. You don't know, do you?! Didn't I say to go to Molgenstein and have him teach you?!";
+			next;
+			mes "[Van Helmont]";
+			mes "Don't even think about coming back until you talk to him! Now stop bothering me and get out of here!";
+			close;
+		}
+	}
+	else if (ALCH_Q == 20) {
+		mes "What...?";
+		mes "I thought I told you to";
+		mes "talk to Nicholas next door?";
 		next;
 		mes "[Van Helmont]";
-		mes "Don't even think about coming back before you've learned for sure!";
-		mes "Stop bothering me and leave!";
+		mes "I need to continue my research,";
+		mes "and you need to finish becoming an Alchemist. Come on, get moving!";
 		close;
-L_NotRdy:
-	mes "Didn't I tell you to visit Morgenstein in Geffen!?!";
-	mes "He is a wise man! You should go to him!";
-	close;
-L_Done:
-	mes "What are you doing? Go out and to the room next to here.  ^5533FFNicholas^000000 probably has more to teach you than me.";
-	mes "I have no more business with you.";
-	close;
-
+	}
+	else {
+		mes "Just a little...";
+		mes "A little bit more...";
+		mes "Nooo! Just a little";
+		mes "bit more and it";
+		mes "would've been done!";
+		next;
+		mes "[Van Helmont]";
+		mes "Why...?!";
+		mes "Why, another failure?!";
+		mes "My calculations were";
+		mes "all correct! Wait...";
+		next;
+		mes "[Van Helmont]";
+		mes "Perhaps, if I capacitated the thermal flux by using the neutronic gradient, it just might work...";
+		close;
+	}
 }
 
+alde_alche,101,184,4	script	Master Alchemist#am	122,{
+	cutin "job_alche_vincent",2;
+	mes "[Vincent Carsciallo]";
+	if (Upper != 0) {
+		mes "You have transcended...";
+		mes "Excellent, excellent.";
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "You don't belong here.";
+		mes "Go and explore the wide world, my friend.";
+		close2;
+		cutin "",255;
+		end;
+	}
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
+			mes "Welcome!";
+			mes "So how is your";
+			mes "research coming along?";
+			next;
+			mes "[Vincent Carsciallo]";
+			mes "At times you get results that are unexpected from an experiment. Although these may be setbacks in your research, such results can also lead to new discoveries.";
+			next;
+			mes "[Vincent Carsciallo]";
+			mes "If you discover something new,";
+			mes "come and tell us. Don't forget that we are all working together to unlock the mysteries of science!";
+		}
+		else if (BaseClass == Job_Novice) {
+			mes "Hm...";
+			mes "A Novice?";
+			mes "You shouldn't be";
+			mes "playing in a place";
+			mes "like this.";
+			next;
+			mes "[Vincent Carsciallo]";
+			mes "There are a lot of volatile chemicals and dangerous";
+			mes "materials in this building. It'd be a lot better if you just played outside.";
+		}
+		else {
+			mes "Hmm...?";
+			mes "What's an adventurer";
+			mes "doing here in the";
+			mes "Alchemist Union?";
+			next;
+			mes "[Vincent Carsciallo]";
+			mes "I'm afraid there's";
+			mes "not much we can offer";
+			mes "you here if you're not";
+			mes "a member of our Union.";
+		}
+		close2;
+		cutin "",255;
+		end;
+	}
+	if (ALCH_Q == 0) {
+		mes "Hmm...?";
+		mes "A Merchant?";
+		mes "Are you interested";
+		mes "in learning Alchemy?";
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "This is the Alchemist Union.";
+		mes "We research and experiment with many different substances in order to create new materials without using magic.";
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "Someday, we hope to unlock";
+		mes "the secret of life, as well as the other mysteries of science.";
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "After being traveling as a Merchant for a long time, you must have developed some scientific curiosity. If you'd like to learn Alchemy, why don't you try joining the Alchemist Union?";
+		close2;
+		cutin "",255;
+		end;
+	}
+	else if (ALCH_Q == 40) {
+		if (JobLevel < 40) {
+			set ALCH_Q,0;
+			mes "Hmm...you don't seem to be qualified yet.";
+			mes "Remember, you must reach at least job level 40 to become an Alchemist.";
+			close2;
+			cutin "",255;
+			end;
+		}
+		if (SkillPoint) {
+			mes "Ah, you're almost";
+			mes "ready to become an";
+			mes "Alchemist, but you must";
+			mes "first allocate your unused";
+			mes "Skill Points.";
+			next;
+			mes "[Vincent Carsciallo]";
+			mes "Talk to me again";
+			mes "once you have spent";
+			mes "all of your extra";
+			mes "Skill Points.";
+			close2;
+			cutin "",255;
+			end;
+		}
+		mes "Ah, well done.";
+		mes "I can see that you";
+		mes "have learned all of";
+		mes "the basics of Alchemy.";
+		next;
+		set ALCH_Q,0;
+		set .@jlevel,JobLevel;
+		callfunc "Job_Change",Job_Alchemist;
+		callfunc "F_ClearJobVar";
+		mes "[Vincent Carsciallo]";
+		mes "Henceforth, you are";
+		mes "now a member of our";
+		mes "illustrious Union.";
+		mes "I hope you learn a lot...";
+		next;
 
-//==================================================================================================//
-//				Test 5 & 6: Word Scramble, Help the Baijin Bros.
-//==================================================================================================//
-alde_alche,145,19,4	script	Nicholas Flamel	57,{
-	mes "[Nicholas Flamel]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-L_Other:
-	mes "Lorem ipsum dolor sit amet,";
-	mes "consectetuer adipiscing elit.";
-	mes "Vivamus sem. Sed metus lacus, viverra id, rutrum eget, rhoncus sit amet, lectus.";
-	mes "Suspendisse sit amet urna in nisl frigilla faucibus.";
-	mes "Nulla scelerisque eros....";
-	mes "......mumblemumble........";
-	close;
-L_Merc:
-	if(ALCH_Q == 5) goto L_Start;
-	if(ALCH_Q == 6) goto L_Start2;
-	if(ALCH_Q == 7) goto L_Done;
-	goto L_Other;
-L_Start:
-	if(ALCH_Q2 == 1) goto L_ReTest;
-	mes "Ooh... you're the Merchant that wants to become an Alchemist?";
-	mes "But you know... not anyone can become an Alchemist.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "The Union doesn't like those that just want to become Alchemist without a clear goal.";
-	mes "So... to see if you qualify, I'll test how smart you are.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "As you can see, Alchemist must memorize many equations,";	
-	mes "chemical equations and a lot of other information.";
-	mes "If you're not at a certain level..";
-	mes "it's actually pretty tough.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "The idea is to prevent those that are going to be useless Alchemists from joining the union!";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Ok... Here go the questions!";
-	mes "This is to test your concentration so that you won't get confused when looking at charts.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Find the words from the group of letters. They can be made by using some or all the letters given";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "You pass if you choose the word that is 'IN' the puzzle.";
-	next;
+		if (.@jlevel == 50) {
+			getitem 7133,1; //Slim_Potion_Create_Book
+			mes "[Vincent Carsciallo]";
+			mes "Let me give you";
+			mes "something special.";
+			mes "You can use this to";
+			mes "begin your life";
+			mes "of research.";
+		}
+		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 "And...";
+			mes "Here's a little";
+			mes "something to help";
+			mes "you begin your";
+			mes "research.";
+		}
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "I'll see";
+		mes "you later then...";
+		mes "Remember to carry";
+		mes "yourself with pride";
+		mes "as an Alchemist!";
+		close2;
+		cutin "",255;
+		end;
+	}
+	else {
+		mes "Ah...";
+		mes "I believe you've";
+		mes "already registered";
+		mes "for training to become";
+		mes "an Alchemist.";
+		next;
+		mes "[Vincent Carsciallo]";
+		mes "Please listen to the";
+		mes "other Alchemists and follow their instructions carefully. You will learn much from them.";
+		close2;
+		cutin "",255;
+		end;
+	}
+}
 
-	Q_1:
-		set @score,0;
+alde_alche,145,19,1	script	Chief Researcher#am	57,{
+	//set max_max_c,1201;
+	//if (max_max_c == 1) {
+	//	mes "- Wait a minute! -";
+	//	mes "- Currently you are carrying -";
+	//	mes "- too many items with you. -";
+	//	mes "- Please come back again -";
+	//	mes "- after you store some items into kafra storage. -";
+	//	close;
+	//}
+	if (ALCH_Q > 19 && ALCH_Q < 22) {
+		if (ALCH_Q == 20) {
+			mes "[Nicholas Flamel]";
+			mes "Ooh...";
+			mes "You're the upstart";
+			mes "Merchant that wants";
+			mes "to become an Alchemist?";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Not just anyone can become an Alchemist, you know. You've got to have motivation and clear goals and a strong sense of focus.";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Alchemists must memorize many chemical equations, scientific laws and a lot of other information. It's actually pretty tough.";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "If you can't focus, you'll be confused later when you look at Alchemy charts. My test will judge your ability to do just that.";
+			next;
+		}
 		mes "[Nicholas Flamel]";
-		mes "s m i e x b w u n e n t a g l r";
+		mes "Find the words scrambled";
+		mes "in the group of letters I give you. They can be made by using some";
+		mes "or all of the letters.";
 		next;
-		menu "tiger",-,"wolf",Q_2,"pumpkin",Q_2,"tripped",Q_2;
-
-			set @score,@score+10; 
-
-	Q_2:
 		mes "[Nicholas Flamel]";
-		mes "n i e g b o p d s o a u w r v";
+		mes "You pass if you";
+		mes "choose the word";
+		mes "that is ^551A8BIN^000000 the puzzle.";
 		next;
-		menu "bash",Q_3,"provoke",Q_3,"endure",-,"stun",Q_3,"abracadabra",Q_3;
-
-			set @score,@score+10; 
+		switch(rand(1,3)) {
+		case 1:
+			mes "t m y a n y e o b n e g p r i";
+			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 "Ah, you finished.";
+		mes "Now, let's see...";
+		if (.@alch_t > 30) {
+			set ALCH_Q,22;
+			mes "Excellent job!";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Great, you found all of those hidden words. With that kind of concentration, you should have no problem memorizing information.";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Come back in a little bit while";
+			mes "I prepare the next assignment";
+			mes "for your training.";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Oh, and before you talk to";
+			mes "me again, make sure you have";
+			mes "^551A8Bplenty of room in your inventory^000000.";
+			close;
+		}
+		else {
+			set ALCH_Q,21;
+			mes "^666666*Gasp!*^000000 H-horrible!";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Judging from these results, you obviously have a problem with concentrating.";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "If you can't even solve these easy word puzzles, how can you keep track of your experiments and research?";
+			next;
+			mes "[Nicholas Flamel]";
+			mes "Why don't you relax";
+			mes "and rest a bit before";
+			mes "you take the test again?";
+			close;
 
-	Q_3:
+		}
+	}
+	else if (ALCH_Q == 22) {
+		set .@now_weight,MaxWeight-Weight;
+		if (.@now_weight < 1370) {
+			mes "[Nicholas Flamel]";
+			mes "Whoa...";
+			mes "You're carrying too much stuff! First, put some of your things in Kafra Storage.";
+			close;
+		}
 		mes "[Nicholas Flamel]";
-		mes "l r m g r e x t a v i n e d e";
+		mes "Alright...";
+		mes "For your next";
+		mes "assignment, you'll";
+		mes "need to travel to ^551A8BJuno^000000.";
 		next;
-		menu "alberta",Q_4,"latifoliate",Q_4,"crimson",Q_4,"maple",Q_4,"evergreen",-;
-
-			set @score,@score+10; 
-
-	Q_4:
-		mes "[Nicholas Flamel] ";
-		mes "r o e h n r o m c a i n p t t";
-		next;
-		menu "forgemerchant",L_Score,"potionmerchant",-,"dcmerchant",L_Score,"vendingmerchant",L_Score;
-	
-			set @score,@score+10; 
-L_Score:
-	if(@score < 40) goto L_Failed;
-	set ALCH_Q,6;
-	set ALCH_Q2,0;
-	mes "[Nicholas Flamel]";
-	mes "You seem to be done.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Let's see.";
-	mes "...Good job. Excellent.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Somehow you found all of them.";
-	mes "With that kind of concentration, you should easily be able to read the medicine dictionaries.";
-	mes "Let's see... next is..";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Come back in a little bit. Get organized too..";
-	close;
-
-	L_Failed:
 		mes "[Nicholas Flamel]";
-		mes "Hmmm... You failed!";
-		mes "Get your glasses maybe you can pass next time wearing those.";
-		set ALCH_Q2,1;
+		mes "There, you'll need to talk to ^551A8BBain^000000 and ^551A8BBajin^000000. Those two are doing Alchemy research with the Sages";
+		mes "in Juno. You'll learn something by assisting them with their project.";
+		next;
+		mes "[Nicholas Flamel]";
+		mes "Come back here to me after you";
+		mes "help them out. They'll need all of these items to continue their experiments.";
+		next;
+		set ALCH_Q,23;
+		mes "[Nicholas Flamel]";
+		mes "1 Mixture,";
+		mes "5 Burnt Tree,";
+		mes "5 Fine Sand,";
+		mes "3 Rough Oridecon";
+		mes "and 3 Rough Elunium.";
+		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 "Alright.";
+		mes "Have a safe trip";
+		mes "and come back in";
+		mes "one piece.";
 		close;
-L_ReTest:
-	mes "Hmmm you returned.";
-	mes "Well will see if you changed."; 
-	next;
-	goto Q_1;	
-
-L_Start2:
-	if(ALCH_Q2 > 0) goto L_Check2;
-	mes "Next, you have to go somewhere.";
-	mes "Go to ^5533FF'The Forgotten City of Yuno'^000000 and meet the ^FF3355Bain and Bajin^000000 brothers who are researching alchemy with the Sages there.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Go help out and come back Here, take these... it will help you get close to them.";
-	next;
-	getitem 974,1;
-	getitem 7068,5;
-	getitem 7043,5;
-	getitem 756,3;
-	getitem 757,3;
-	mes "[Nicholas Flamel]";
-	mes "1 Mixture";
-	mes "5 Burnt Tree";
-	mes "5 Fine Sand ";
-	mes "3 Rough Oridecon ";
-	mes "3 Rough Elunium";
-	set ALCH_Q2,1;
-	next;
-	mes "[Nicholas Flamel]";
-	mes "Have a safe trip.";
-	mes "It's Yuno. Come back in one piece.";
-	close;
-L_Check2:
-	if(ALCH_Q2 < 2) goto L_NotDone;
-	set ALCH_Q, 7;
-	set ALCH_Q2, 0;
-	mes "Ooh! Well done on such a long  trip.";
-	mes "I got a message saying that the Bain and Bajin brothers were happy about your visit.";
-	next;
-	mes "[Nicholas Flamel]";
-	mes "You must have successfully helped them.";
-	mes "If you're good enough to be of help to the brothers... ok, I think you qualify.";
-	next;
-	mes "[Nicholas Flamel]";
-L_Done:
-	mes "Go to the Union Leader on the 2nd floor!";
-	mes "Congratulations. You'll change jobs soon!";
-	close;
-
-	L_NotDone:
-		mes "Bain and Bajin brothers are in Yuno go help them.";
+	}
+	else if (ALCH_Q == 23) {
+		mes "[Nicholas Flamel]";
+		mes "Didn't I say to";
+		mes "go to Juno and help";
+		mes "Bain and Bajin with";
+		mes "their Alchemy research?";
 		close;
-
-}
-
-
-//==================================================================================================//
-//					Job Changer
-//==================================================================================================//
-alde_alche,101,184,4	script	Vincent Carsciallo	122,{
-	mes "[Vincent Carsciallo]";
-	if(baseJob == Job_Merchant) goto L_Merc;
-	if(baseJob == Job_Alchemist){
-		mes "How Alchemy going? Make sure to be careful and think about safety at all times.";
-		mes "I wouldn't want you blowing yourself up or anything.....";
+	}
+	else if (ALCH_Q == 24) {
+		set ALCH_Q,40;
+		mes "[Nicholas Flamel]";
+		mes "Ah, you're back!";
+		mes "I just got a message from Bain";
+		mes "and Bajin. They let me know that they were very happy with your assistance.";
+		next;
+		mes "[Nicholas Flamel]";
+		mes "If you were good enough";
+		mes "to help out those brothers,";
+		mes "you definitely qualify to be";
+		mes "an Alchemist.";
+		next;
+		mes "[Nicholas Flamel]";
+		mes "Good work!";
+		mes "All you have to do now is speak to the Union Leader on the 2nd floor! Congratulations, you'll become an Alchemist very soon!";
 		close;
 	}
-	mes "Hmmm? What may a civilian have to do here?";
-	next;
-	mes "[Vincent Carsciallo]";
-	mes "There's nothing amusing. Don't wander and leave.";
-	close;
-L_Merc:
-	if(ALCH_Q == 7) goto L_Change;
-	mes "Hmmm? A merchant.";
-	mes "Are you interested in Alchemy?";
-	next;
-	mes "[Vincent Carsciallo]";
-	mes "This is the Alchemist Union.";
-	mes "We research many different substances.";
-	mes "Our goal is to make something new without the power of magic.";
-	next;
-	mes "[Vincent Carsciallo]";
-	mes "Create new life, and study how to live long and not die ...";
-	mes "We also make new materials out of existing ones...";
-	mes "These are just some of the things we do.";
-	next;
-	mes "[Vincent Carsciallo]";
-	mes "After being a Merchant for a long time ";
-	mes "you start to become interested in everything.";
-	mes "If you would like to learn Alchemy as well,";
-	mes "try joining our Union.";
-	close;
-L_Change:
-	if(skillpoint){
-		mes "Please use all your skill point before talking to me.";
+	else if (ALCH_Q == 40 && BaseJob == Job_Merchant) {
+		mes "[Nicholas Flamel]";
+		mes "All you have to do now is speak to the Union Leader on the 2nd floor! Congratulations, you'll become an Alchemist very soon!";
+		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*Mumble Mumble*^000000";
 		close;
 	}
-	mes "Oh, Ok. You joined and learned the basics, too. Well done.";
-	next;
-	set @gift,JBLVL;
-	callfunc "Job_Change",Job_Alchemist;
-	callfunc "F_ClearJobVar";
-	emotion e_grat;
-	mes "[Vincent Carsciallo]";
-	mes "From now on, you are also a member of the Union as an Alchemist.";
-	mes "I hope you learn a lot...";
-	next;
-	if(@gift==50)
-		getitem 7133,1;
-	else
-		getitem 7127,1;
-	mes "[Vincent Carsciallo]";
-	mes "Here's a little something. ";
-	mes "Use it to start off with some research.";
-	next;
-	mes "[Vincent Carsciallo]";
-	mes "I'll see you later then...";
-	mes "Be proud of being an Alchemist!";
-	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]