* Raw revert of all job files back to r16578, prior to the rewrite in r16579. The updates will be re-applied after more testing is done.

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

1 files changed, 511 insertions, 1051 deletions

diff --git a/npc/jobs/2-2/alchemist.txt b/npc/jobs/2-2/alchemist.txt
index ef50cf60e..fd0f077f5 100644
--- a/npc/jobs/2-2/alchemist.txt
+++ b/npc/jobs/2-2/alchemist.txt
@@ -1,22 +1,27 @@
 //===== rAthena Script ======================================= 
-// Alchemist Job change Quest
-//===== By: ================================================== 
-//= Masao
-//= Credits: Muad_Dib
+//= Alchemist Job Quest
+//===== By: ==================================================
+//= nestor_zulueta (Fusion), converted by Darkchild
 //===== Current Version: ===================================== 
-//= 1.0
+//= 3.0
 //===== Compatible With: ===================================== 
-//= Any rAthena SVN
+//= rAthena SVN
 //===== Description: ========================================= 
-//= [Translated from the Official]
-//= Job change Quest from Merchant -> Alchemist.
+//= [Aegis Conversion]
+//= Job quest for Alchemist classes
 //===== Additional Comments: ================================= 
-//= 1.0 Updated to latest available official file. [Masao]
+//= 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	Alchemist Guildsman	744,{
+alde_alche,27,185,5	script	Alchemist Guildsman#am	744,{
+	mes "[Parmy Gianino]";
 	if (Upper == 1) {
-		mes "[Parmy Gianino]";
 		mes "Welcome to the";
 		mes "Alchemist Unio--";
 		mes "I-Impossible! How c-can";
@@ -31,9 +36,8 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 		mes "feeling about you...";
 		close;
 	}
-	if ((Class != Job_Baby_Merchant) && (Class != Job_Merchant)) {
-		if (Class == Job_Baby_Alchemist || Class == Job_Alchemist) {
-			mes "[Parmy Gianino]";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
 			mes "Welcome, " + strcharinfo(0) + ".";
 			mes "The Alchemist Union";
 			mes "is busy today, like always.";
@@ -46,8 +50,7 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			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;
 		}
-		if (Class == Job_Baby || Class == Job_Novice) {
-			mes "[Parmy Gianino]";
+		else if (BaseClass == Job_Novice) {
 			mes "Welcome to the";
 			mes "Alchemist Union.";
 			mes "We are recruiting";
@@ -64,7 +67,6 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			mes "as a Merchant first.";
 			close;
 		}
-		mes "[Parmy Gianino]";
 		mes "Welcome to the";
 		mes "Alchemist Union.";
 		mes "We are recruiting";
@@ -76,12 +78,11 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 		close;
 	}
 	if (ALCH_Q == 0) {
-		mes "[Parmy Gianino]";
 		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.")) {
+		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.";
@@ -176,21 +177,23 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 					mes "Come back to me when you have 50,000 Zeny, otherwise we can't process your application.";
 					close;
 				}
-				set Zeny, Zeny - 50000;
+				set zeny,zeny-50000;
 				mes "[Parmy Gianino]";
 				mes "Let's see.";
-				mes "" + strcharinfo(0) + "";
+				mes "" + strcharinfo(0);
 				mes "needs to bring...";
-				set .@alche_m1, rand(1,3);
-				if (.@alche_m1 == 1) {
+				switch(rand(1,3)) {
+				case 1:
 					set ALCH_Q,1;
 					setquest 2028;
 					mes "^551A8B7 Berserk Potions^000000.";
+					break;
+				case 2:
 					set ALCH_Q,2;
 					setquest 2029;
 					mes "^551A8B100 Mini Furnaces^000000.";
-				}
-				else {
+					break;
+				case 3:
 					set ALCH_Q,3;
 					setquest 2030;
 					mes "^551A8B7,500 Fire Arrows^000000.";
@@ -217,9 +220,8 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			close;
 		}
 	}
-	if (ALCH_Q == 1) {
-		if ((countitem(1006) > 0) && (countitem(1005) > 0)) {
-			mes "[Parmy Gianino]";
+	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";
@@ -233,28 +235,15 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			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;
-			changequest 2028,2031;
-			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;
-		}
-		if (countitem(657) > 6) {
-			mes "[Parmy Gianino]";
-			mes "Seems like";
-			mes "you're all ready.";
-			mes "The Union will put";
-			mes "these items to good use.";
-			next;
-			delitem 657,7; //Berserk_Potion
-			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;
-			changequest 2028,2031;
+			if(checkquest(2028) != -1) {
+				changequest 2028,2031;
+			}
+			else if(checkquest(2029) != -1) {
+				changequest 2029,2031;
+			}
+			else {
+				changequest 2030,2031;
+			}
 			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...";
@@ -263,114 +252,31 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			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 "[Parmy Gianino]";
-		mes "Aren't you ready?";
-		mes "Like I said before,";
-		mes "you must bring";
-		mes "^551A8B7 Berserk Potions^000000.";
-		next;
-		mes "[Parmy Gianino]";
-		mes "Come back when you";
-		mes "have prepared the";
-		mes "required items.";
-		close;
-	}
-	if (ALCH_Q == 2) {
-		if ((countitem(1006) > 0) && (countitem(1005) > 0)) {
-			mes "[Parmy Gianino]";
-			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;
-			changequest 2029,2031;
-			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(612) > 99) {
-			mes "[Parmy Gianino]";
+		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 612,100; //Portable_Furnace
+			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;
-			changequest 2029,2031;
-			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 "[Parmy Gianino]";
-		mes "Aren't you ready?";
-		mes "Like I said before,";
-		mes "you must bring";
-		mes "^551A8B100 Mini Furnaces^000000.";
-		next;
-		mes "[Parmy Gianino]";
-		mes "Come back when you";
-		mes "have prepared the";
-		mes "required items.";
-		close;
-	}
-	if (ALCH_Q == 3) {
-		if ((countitem(1006) > 0) && (countitem(1005) > 0)) {
-			mes "[Parmy Gianino]";
-			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;
-			changequest 2030,2031;
-			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;
-		}
-		if (countitem(1752) > 7499) {
-			mes "[Parmy Gianino]";
-			mes "Seems like";
-			mes "you're all ready.";
-			mes "The Union will put";
-			mes "these items to good use.";
-			next;
-			delitem 1752,7500; //Fire_Arrow
-			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;
-			changequest 2030,2031;
+			if(checkquest(2028) != -1) {
+				changequest 2028,2031;
+			}
+			else if(checkquest(2029) != -1) {
+				changequest 2029,2031;
+			}
+			else {
+				changequest 2030,2031;
+			}
 			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...";
@@ -379,11 +285,10 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 			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 "[Parmy Gianino]";
 		mes "Aren't you ready?";
 		mes "Like I said before,";
 		mes "you must bring";
-		mes "^551A8B7500 Fire Arrows^000000.";
+		mes "^551A8B"+.@items[1]+" "+getitemname(.@items[0])+"s^000000.";
 		next;
 		mes "[Parmy Gianino]";
 		mes "Come back when you";
@@ -391,8 +296,7 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 		mes "required items.";
 		close;
 	}
-	if (ALCH_Q == 4) {
-		mes "[Parmy Gianino]";
+	else if (ALCH_Q == 4) {
 		mes "Go and talk to";
 		mes "Mr. Raspuchin.";
 		mes "He's involved in the";
@@ -405,22 +309,23 @@ alde_alche,27,185,5	script	Alchemist Guildsman	744,{
 		mes "some simple questions.";
 		close;
 	}
-	mes "[Parmy Gianino]";
-	mes "Ah, I'm sorry, but";
-	mes "I'm busy right now~";
-	next;
-	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;
+	else {
+		mes "Ah, I'm sorry, but";
+		mes "I'm busy right now~";
+		next;
+		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	749,{
-	if ((Class != Job_Baby_Merchant) && (Class != Job_Merchant)) {
-		if (Class == Job_Baby_Alchemist || Class == Job_Alchemist) {
-			mes "[Raspuchin Gregory]";
+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?!";
@@ -437,8 +342,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "Alchemist Union!";
 			close;
 		}
-		if (Class == Job_Baby || Class == Job_Novice) {
-			mes "[Raspuchin Gregory]";
+		else if (BaseClass == Job_Novice) {
 			mes "Heeheehee";
 			mes "keheheh~!";
 			mes "How cute, you've come";
@@ -451,34 +355,34 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "expect to leave so easily...";
 			close;
 		}
-		mes "[Raspuchin Gregory]";
-		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;
+		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 "[Raspuchin Gregory]";
 		mes "Heeheehee";
 		mes "keheheh~!";
 		mes "What do you";
@@ -494,8 +398,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 		mes "dark enterprise!";
 		close;
 	}
-	if ((ALCH_Q == 1) || (ALCH_Q == 2) || (ALCH_Q == 3)) {
-		mes "[Raspuchin Gregory]";
+	else if (ALCH_Q >= 1 && ALCH_Q <= 3) {
 		mes "Heeheehee";
 		mes "keheheh~!";
 		mes "What do you";
@@ -511,469 +414,133 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 		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;
 	}
-	if (ALCH_Q == 4) {
-		mes "[Raspuchin Gregory]";
-		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;
-			changequest 2031,2032;
-			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;
-		set .@alche_s, rand(1,3);
-		set @w_point,0;
-		if (.@alche_s == 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;
-			}
-		}
-		if (.@alche_s == 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;
-			}
-		}
-		if (.@alche_s == 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) = ?";
+	else if ((ALCH_Q == 4) || (ALCH_Q == 5)) {
+		if (ALCH_Q == 4) {
+			mes "Heeheehee";
+			mes "keheheh~!";
+			mes "What do you";
+			mes "want, kid?";
 			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?";
+			mes "What...?";
+			mes "Join the Union!?";
+			mes "I don't like it...";
+			mes "I just don't...!";
 			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?";
+			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;
-			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 "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 "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;
-			input .@input;
-			if (.@input != 7680) {
-				set @w_point,@w_point + 1;
+			else {
+				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.";
 			}
 		}
-		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;
-		}
-		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 {
-			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!";
+		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 "How can a person that";
-			mes "can't even answer all of";
-			mes "these simple questions think";
-			mes "of becoming an Alchemist?!";
+			mes "I don't like it...";
+			mes "I don't like this!";
 			next;
 			mes "[Raspuchin Gregory]";
-			mes "Hm...?";
-			mes "Did you get";
-			mes "any right?";
+			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 "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 "Now then,";
+			mes "give me all the";
+			mes "^551A8Bright^000000 answers";
+			mes "this time.";
 		}
-		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;
-		changequest 2031,2032;
-		close;
-	}
-	if (ALCH_Q == 5) {
-		mes "[Raspuchin Gregory]";
-		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;
-		set .@alche_s, rand(1,3);
-		set @w_point,0;
-		if (.@alche_s == 1) {
+		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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			if (.@input != 742) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "How much do";
 			mes "12 Red Potions,";
@@ -982,9 +549,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "after a 24 % discount?";
 			next;
 			input .@input;
-			if (.@input != 909) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 909) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total weight of";
@@ -992,9 +557,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "and 1 Long Coat?";
 			next;
 			input .@input;
-			if (.@input != 450) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 450) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total defense of";
@@ -1004,71 +567,53 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "Ear Muffs?";
 			next;
 			input .@input;
-			if (.@input != 20) {
-				set @w_point,@w_point + 1;
-			}
+			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 "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;
-			}
-		}
-		if (.@alche_s == 2) {
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			if (.@input != 742) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total price of";
@@ -1078,9 +623,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "a 24 % discount?";
 			next;
 			input .@input;
-			if (.@input != 934) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 934) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total weight of";
@@ -1088,9 +631,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "4 Caps, and 2 Boots?";
 			next;
 			input .@input;
-			if (.@input != 550) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 550) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total defense of";
@@ -1100,9 +641,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "and Glasses?";
 			next;
 			input .@input;
-			if (.@input != 16) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 16) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "How much profit do you";
 			mes "make if you buy Tights";
@@ -1111,53 +650,39 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "the normal price?";
 			next;
 			input .@input;
-			if (.@input != 8520) {
-				set @w_point,@w_point + 1;
-			}
-		}
-		if (.@alche_s == 3) {
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			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;
-			}
+			if (.@input != 742) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total cost of";
@@ -1167,9 +692,7 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "after a 24 % discount?";
 			next;
 			input .@input;
-			if (.@input != 798) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 798) set .@w_point,.@w_point+1;
 			mes "[Raspuchin Gregory]";
 			mes "What is the";
 			mes "total weight of";
@@ -1177,31 +700,25 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "3 Caps, and 3 boots?";
 			next;
 			input .@input;
-			if (.@input != 480) {
-				set @w_point,@w_point + 1;
-			}
+			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;
-			}
+			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 "at a 24% discount and sell";
 			mes "them at 20% of the original";
 			mes "price, how much profit would";
 			mes "you make from this sale?";
 			next;
 			input .@input;
-			if (.@input != 7680) {
-				set @w_point,@w_point + 1;
-			}
+			if (.@input != 7680) set w_point,w_point+1;
 		}
-		if (@w_point == 0) {
+		if (.@w_point == 0) {
 			mes "[Raspuchin Gregory]";
 			mes "Ooh...";
 			mes "Excellent! Great!";
@@ -1209,14 +726,14 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 			mes "Keheheh, I have no choice but to acknowledge you...";
 			next;
 		}
-		if (@w_point == 1) {
+		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;
 		}
-		if (@w_point == 2) {
+		else if (.@w_point == 2 && ALCH_Q == 5) {
 			mes "[Raspuchin Gregory]";
 			mes "You've got serious";
 			mes "weaknesses in math,";
@@ -1257,10 +774,10 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 		mes "He'll teach you how to do the experiments. Just tell him that";
 		mes "I sent you.";
 		set ALCH_Q,6;
+		changequest 2031,2032;
 		close;
 	}
-	if (ALCH_Q == 6) {
-		mes "[Raspuchin Gregory]";
+	else if (ALCH_Q == 6) {
 		mes "What are you doing?";
 		mes "Go and find Darwin now.";
 		next;
@@ -1269,14 +786,13 @@ alde_alche,175,107,3	script	Fastidious Alchemist	749,{
 		mes "Don't think this is the end of it!";
 		close;
 	}
-	mes "[Raspuchin Gregory]";
 	mes "Keheheheheheheheh~";
 	mes "Don't think this is the end of it!";
 	close;
 }
 
-alde_alche,13,15,7	script	Studying Man	750,{
-	if (checkweight(1201,3) == 0) {
+alde_alche,13,15,7	script	Studying Man#am	750,{
+	if (checkweight(1201,1) == 0) {
 		mes "- Wait a minute! -";
 		mes "- Currently you are carrying -";
 		mes "- too many items with you. -";
@@ -1284,9 +800,9 @@ alde_alche,13,15,7	script	Studying Man	750,{
 		mes "- after you store some items into kafra storage. -";
 		close;
 	}
-	if ((Class != Job_Baby_Merchant) && (Class != Job_Merchant)) {
-		if (Class == Job_Baby_Alchemist || Class == Job_Alchemist) {
-			mes "[Darwin]";
+	mes "[Darwin]";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
 			mes "Ah...";
 			mes "You...";
 			mes "You've become";
@@ -1306,28 +822,28 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			mes "My love...";
 			close;
 		}
-		mes "[Darwin]";
-		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;
+		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 "[Darwin]";
 		mes "...";
 		next;
 		mes "[Darwin]";
@@ -1340,7 +856,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 		mes "Who is it...?";
 		next;
 		monster "alde_alche",13,15,"Wolf",1013,1;
-		killmonster "alde_alche","Studying Man::OnMyMobDead";
+		killmonsterall "alde_alche";
 		mes "[Darwin]";
 		mes "A wolf?";
 		mes "Or a human?";
@@ -1367,7 +883,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 		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.")) {
+		switch(select("I want to learn how to experiment.:Tell me more about flowers.:Nothing.")) {
 		case 1:
 			mes "[Darwin]";
 			mes "You wish to";
@@ -1459,8 +975,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			close;
 		}
 	}
-	if (ALCH_Q == 7) {
-		mes "[Darwin]";
+	else if (ALCH_Q == 7) {
 		mes "...";
 		mes "......";
 		next;
@@ -1577,10 +1092,9 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			mes "and cast away the last";
 			mes "vestiges of Merchant life!!";
 			set ALCH_Q,40;
-			changequest 2033,2034;
 			close;
 		}
-		if ((countitem(7134) > 2) && (countitem(713) > 2) && (countitem(507) > 0) && (countitem(508) > 0) && (countitem(509) > 0)) {
+		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;
@@ -1607,27 +1121,27 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			mes "Now, make some medicine";
 			mes "using the simple procedure";
 			mes "I just explained to you.";
-			set @w_point,0;
+			set w_point,0;
 			next;
-			switch (select("Prepare the Medicine Bowl.:Put the Medicine Bowl on your head.:Kick the Medicine Bowl.")) {
+			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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "What...?";
 				next;
 				break;
 			case 3:
-				set @w_point,@w_point + 1;
+				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.")) {
+			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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "...Eh!?";
 				mes "That's not";
@@ -1637,7 +1151,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			case 2:
 				break;
 			case 3:
-				set @w_point,@w_point + 1;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "A Harp?";
 				mes "And how would";
@@ -1645,18 +1159,18 @@ alde_alche,13,15,7	script	Studying Man	750,{
 				next;
 				break;
 			}
-			switch (select("Crush the Herbs.:Crush the Medicine Bowl.:Crush Darwin's foot.")) {
+			switch(select("Crush the Herbs.:Crush the Medicine Bowl.:Crush Darwin's foot.")) {
 			case 1:
 				break;
 			case 2:
-				set @w_point,@w_point + 1;
+				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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "Agh...!";
 				mes "What do you";
@@ -1665,16 +1179,16 @@ alde_alche,13,15,7	script	Studying Man	750,{
 				next;
 				break;
 			}
-			switch (select("Spray clean water.:Drink clean water.:Pour clean water.")) {
+			switch(select("Spray clean water.:Drink clean water.:Pour clean water.")) {
 			case 1:
-				set @w_point,@w_point + 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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "W-wait...";
 				mes "Are you";
@@ -1684,11 +1198,11 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			case 3:
 				break;
 			}
-			switch (select("Continue crushing the Herbs.:Continue eating the Herbs.:Continue dancing and singing.")) {
+			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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "Eat the Herbs?";
 				mes "I think you need";
@@ -1697,7 +1211,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 				next;
 				break;
 			case 3:
-				set @w_point,@w_point + 1;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "Singing and";
 				mes "dancing? Alchemists";
@@ -1706,9 +1220,9 @@ alde_alche,13,15,7	script	Studying Man	750,{
 				next;
 				break;
 			}
-			switch (select("Put noodles in and fry it.:Pour it in an empty bottle.:Hold the Medicine Bowl and drink it.")) {
+			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;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "We're Alchemists,";
 				mes "not restaurant chefs.";
@@ -1717,14 +1231,14 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			case 2:
 				break;
 			case 3:
-				set @w_point,@w_point + 1;
+				set .@w_point,.@w_point+1;
 				mes "[Darwin]";
 				mes "Huh...";
 				mes "Pretty sloppy...";
 				next;
 				break;
 			}
-			if (@w_point > 0) {
+			if (.@w_point > 0) {
 				mes "[Darwin]";
 				mes "...";
 				mes "......";
@@ -1755,28 +1269,29 @@ alde_alche,13,15,7	script	Studying Man	750,{
 			mes "what is most precious to you.";
 			close;
 		}
-		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 {
+			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;
+		}
 	}
-	if (ALCH_Q == 8) {
-		mes "[Darwin]";
+	else if (ALCH_Q == 8) {
 		mes "I said to go";
 		mes "to Van Helmont.";
 		mes "I'd like to teach you";
@@ -1789,8 +1304,7 @@ alde_alche,13,15,7	script	Studying Man	750,{
 		mes "withers as well..";
 		close;
 	}
-	if (ALCH_Q == 40) {
-		mes "[Darwin]";
+	else if (ALCH_Q == 40) {
 		mes "I have already given you all of my knowledge and have nothing more";
 		mes "to teach you.";
 		next;
@@ -1799,31 +1313,32 @@ alde_alche,13,15,7	script	Studying Man	750,{
 		mes "you do that, your life as an Alchemist will begin.";
 		close;
 	}
-	mes "[Darwin]";
-	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;
+	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;
+	}
 }
 
-alde_alche,79,19,5	script	Experiment Expert	748,{
-	if ((Class != Job_Baby_Merchant) && (Class != Job_Merchant)) {
-		if (Class == Job_Baby_Alchemist || Class == Job_Alchemist) {
-			mes "[Van Helmont]";
+alde_alche,79,19,5	script	Experiment Expert#am	748,{
+	mes "[Van Helmont]";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
 			mes "What do you want?";
 			mes "I'm busy!! Don't";
 			mes "bother me and get";
@@ -1838,25 +1353,25 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 			mes "Reading science journals and performing experiments. That's what Alchemy is all about. Now, let me get back to work!";
 			close;
 		}
-		mes "[Van Helmont]";
-		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;
+		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 "[Van Helmont]";
 		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;
@@ -1949,8 +1464,7 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 		mes "I going to do?!";
 		close;
 	}
-	if (ALCH_Q == 9) {
-		mes "[Van Helmont]";
+	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]";
@@ -1982,34 +1496,20 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 		mes "check what you've";
 		mes "learned.";
 		next;
-		set @w_point,0;
-		if (molgenstain == 3) {
+		if(MISC_QUEST & 4) {
 			mes "[Van Helmont]";
 			mes "Which item is not";
 			mes "necessary to make";
 			mes "a Counteragent?";
 			next;
-			switch (select("Karvodailnirol:Detrimindexta:Alcohol")) {
-			case 1:
-				break;
-			case 2:
-			case 3:
-				set @w_point,@w_point + 1;
-			}
+			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;
-			switch (select("Karvodailnirol:Detrimindexta:Alcohol")) {
-			case 1:
-				set @w_point,@w_point + 1;
-			case 2:
-				break;
-			case 3:
-				set @w_point,@w_point + 1;
-			}
-			if (@w_point > 0) {
+			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.";
@@ -2044,14 +1544,12 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 			mes "a Counteragent?";
 			next;
 			select("Feather:Sticky Mucus:Animal Gore");
-			set @w_point,@w_point + 1;
 			mes "[Van Helmont]";
 			mes "What item do";
 			mes "you need to make";
 			mes "a Mixture?";
 			next;
 			select("Monster Feed:Ancient Lips:Rotten Bandage");
-			set @w_point,@w_point + 1;
 			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;
@@ -2060,8 +1558,7 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 			close;
 		}
 	}
-	if (ALCH_Q == 20) {
-		mes "[Van Helmont]";
+	else if (ALCH_Q == 20) {
 		mes "What...?";
 		mes "I thought I told you to";
 		mes "talk to Nicholas next door?";
@@ -2071,28 +1568,29 @@ alde_alche,79,19,5	script	Experiment Expert	748,{
 		mes "and you need to finish becoming an Alchemist. Come on, get moving!";
 		close;
 	}
-	mes "[Van Helmont]";
-	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;
+	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	122,{
+alde_alche,101,184,4	script	Master Alchemist#am	122,{
 	cutin "job_alche_vincent",2;
+	mes "[Vincent Carsciallo]";
 	if (Upper == 1) {
-		mes "[Vincent Carsciallo]";
 		mes "You have transcended...";
 		mes "Excellent, excellent.";
 		next;
@@ -2103,9 +1601,8 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 		cutin "",255;
 		end;
 	}
-	if ((Class != Job_Baby_Merchant) && (Class != Job_Merchant)) {
-		if (Class == Job_Baby_Alchemist || Class == Job_Alchemist) {
-			mes "[Vincent Carsciallo]";
+	if (BaseJob != Job_Merchant) {
+		if (BaseJob == Job_Alchemist) {
 			mes "Welcome!";
 			mes "So how is your";
 			mes "research coming along?";
@@ -2116,12 +1613,8 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 			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!";
-			close2;
-			cutin "",255;
-			end;
 		}
-		if (Class == Job_Baby || Class == Job_Novice) {
-			mes "[Vincent Carsciallo]";
+		else if (BaseClass == Job_Novice) {
 			mes "Hm...";
 			mes "A Novice?";
 			mes "You shouldn't be";
@@ -2131,27 +1624,24 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 			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.";
-			close2;
-			cutin "",255;
-			end;
 		}
-		mes "[Vincent Carsciallo]";
-		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.";
+		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 "[Vincent Carsciallo]";
 		mes "Hmm...?";
 		mes "A Merchant?";
 		mes "Are you interested";
@@ -2171,18 +1661,16 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 		cutin "",255;
 		end;
 	}
-	if (ALCH_Q == 40) {
+	else if (ALCH_Q == 40) {
 		if (JobLevel < 40) {
 			set ALCH_Q,0;
-			mes "[Vincent Carsciallo]";
 			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 != 0) {
-			mes "[Vincent Carsciallo]";
+		if (SkillPoint) {
 			mes "Ah, you're almost";
 			mes "ready to become an";
 			mes "Alchemist, but you must";
@@ -2198,86 +1686,62 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 			cutin "",255;
 			end;
 		}
-		mes "[Vincent Carsciallo]";
+		if(checkquest(2039) != -1) {
+			changequest 2039,2040;
+		}
 		mes "Ah, well done.";
 		mes "I can see that you";
 		mes "have learned all of";
 		mes "the basics of Alchemy.";
 		next;
-		if (JobLevel == 50) {
-			set ALCH_Q,0;
-			changequest 2034,2040;
-			changequest 2039,2040;
-			completequest 2040;
-			if(Class == Job_Baby_Merchant){
-				jobchange Job_Baby_Alchemist;
-			} else {
-				jobchange Job_Alchemist;
-			}
-			mes "[Vincent Carsciallo]";
-			mes "Henceforth, you are";
-			mes "now a member of our";
-			mes "illustrious Union.";
-			mes "I hope you learn a lot...";
-			next;
-			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.";
-			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;
-		}
 		set ALCH_Q,0;
-		changequest 2034,2040;
-		changequest 2039,2040;
 		completequest 2040;
-		if(Class == Job_Baby_Merchant){
-			jobchange Job_Baby_Alchemist;
-		} else {
-			jobchange Job_Alchemist;
-		}
+		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;
-		set .@alche_m2, rand(1,6);
-		if (.@alche_m2 == 1) {
-			getitem 7127,1; //Alcol_Create_Book
-		}
-		else if (.@alche_m2 == 2) {
-			getitem 7128,1; //FireBottle_Create_Book
-		}
-		else if (.@alche_m2 == 3) {
-			getitem 7129,1; //Acid_Create_Book
-		}
-		else if (.@alche_m2 == 4) {
-			getitem 7130,1; //Plant_Create_Book
-		}
-		else if (.@alche_m2 == 5) {
-			getitem 7131,1; //Mine_Create_Book
+
+		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 {
-			getitem 7144,1; //Normal_Potion_Book
+			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.";
 		}
-		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";
@@ -2289,23 +1753,24 @@ alde_alche,101,184,4	script	Master Alchemist	122,{
 		cutin "",255;
 		end;
 	}
-	mes "[Vincent Carsciallo]";
-	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;
+	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;
+	}
 }
 
-alde_alche,145,19,1	script	Chief Researcher	57,{
-	if (checkweight(1201,3) == 0) {
+alde_alche,145,19,1	script	Chief Researcher#am	57,{
+	if (checkweight(1201,1) == 0) {
 		mes "- Wait a minute! -";
 		mes "- Currently you are carrying -";
 		mes "- too many items with you. -";
@@ -2313,7 +1778,7 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 		mes "- after you store some items into kafra storage. -";
 		close;
 	}
-	if ((ALCH_Q > 19) && (ALCH_Q < 22)) {
+	if (ALCH_Q > 19 && ALCH_Q < 22) {
 		if (ALCH_Q == 20) {
 			mes "[Nicholas Flamel]";
 			mes "Ooh...";
@@ -2341,83 +1806,54 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 		mes "choose the word";
 		mes "that is ^551A8BIN^000000 the puzzle.";
 		next;
-		set .@alche_puz, rand(1,3);
-		if (.@alche_puz == 1) {
+		switch(rand(1,3)) {
+		case 1:
 			mes "t m y a n y e o b n e g p r i";
 			next;
-			set @alch_q, 0;
-			if (select("Brake:Brass:Bug:Broken:Brigan?") == 5) {
-				set @alch_q, @alch_q + 10;
-			}
-			mes "o n c u d a p j l e r s v m u";
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
-			next;
-		}
-		if (.@alche_puz == 2) {
+			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;
-			set @alch_q, 0;
-			if (select("packman:sunshine:ragnarok:wonderland:frost") == 1) {
-				set @alch_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
-			next;
-		}
-		else {
+			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;
-			set @alch_q, 0;
-			if (select("tiger:wolf:pumpkin:tripped:tore") == 1) {
-				set @alch_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
+			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_q, @alch_q + 10;
-			}
-			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_q > 30) {
+		if (.@alch_t > 30) {
 			set ALCH_Q,22;
 			mes "Excellent job!";
 			next;
@@ -2435,23 +1871,27 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 			mes "^551A8Bplenty of room in your inventory^000000.";
 			close;
 		}
-		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;
+		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;
+
+		}
 	}
-	if (ALCH_Q == 22) {
-		if ((MaxWeight - Weight) < 1370) {
+	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.";
@@ -2492,7 +1932,7 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 		mes "one piece.";
 		close;
 	}
-	if (ALCH_Q == 23) {
+	else if (ALCH_Q == 23) {
 		mes "[Nicholas Flamel]";
 		mes "Didn't I say to";
 		mes "go to Juno and help";
@@ -2500,7 +1940,7 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 		mes "their Alchemy research?";
 		close;
 	}
-	if (ALCH_Q == 24) {
+	else if (ALCH_Q == 24) {
 		set ALCH_Q,40;
 		changequest 2038,2039;
 		mes "[Nicholas Flamel]";
@@ -2519,24 +1959,44 @@ alde_alche,145,19,1	script	Chief Researcher	57,{
 		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;
 	}
-	if ((ALCH_Q == 40) && (Class == Job_Baby_Merchant || Class == Job_Merchant)) {
+	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;
 	}
-	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;
+	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;
+	}
 }
 
-alde_alche,19,171,0	warp	alche#3	1,1,aldebaran,68,56
-alde_alche,42,171,0	warp	alche#4	1,1,aldebaran,56,68
\ No newline at end of file
+//============================================================ 
+// 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]