* Updated "Ph.D Quest" Dialogs.

* Updated "Elemental Potion Creation Quest" to the official one.

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

3 files changed, 835 insertions, 128 deletions

diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 62a2912ce..4a33678fa 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -2,6 +2,8 @@ Date		Added
 ======
 2007/06/20
 	* Reverted wrong fix in Ninja Job quest. [SinSloth]
+	* Updated "Ph.D Quest" Dialogs. [Samuray22]
+	* Updated "Elemental Potion Creation Quest" to the official one. [Samuray22]
 2007/06/19
 	* Fixed Some variables like ".@item", and changed to "@item". [Samuray22]
 	* Fixed another minor bug for Ninja Quest. [Samuray22]
diff --git a/npc/quests/quests_prontera.txt b/npc/quests/quests_prontera.txt
index 07aa12b05..9bcc20c2c 100644
--- a/npc/quests/quests_prontera.txt
+++ b/npc/quests/quests_prontera.txt
@@ -3,7 +3,7 @@
 //===== By: ================================================== 
 //= kobra_k88; L0ne_W0lf
 //===== Current Version: ===================================== 
-//= 1.6
+//= 1.7
 //===== Compatible With: ===================================== 
 //= eAthena SVN
 //===== Description: ========================================= 
@@ -28,6 +28,7 @@
 //= 1.5 Culvert has been rescripted from the ground up. [L0ne_W0lf]
 //= 1.6 Added Gaebolg Family Curse quest. [L0ne_W0lf]
 //= 1.6a Fixed a couple spelling mistakes. [L0ne_W0lf]
+//= 1.7 Updated "Ph.D Quest" Dialogs. [Samuray22]
 //============================================================ 
 
 // Prontera Culvert
@@ -147,85 +148,78 @@ prt_fild05,270,212,5	script	Culvert Guardian	105,{
 
 // Ph.D Hat Quest
 //============================================================ 
-prt_in,38,108,4	script	Teacher#01	53,{
-	if(countitem(710) >= 1 && countitem(703) >= 1 && countitem(704) >= 1 && countitem(708) >= 1) goto L_Start;//Items: Illusion Flower, Hinalle, Aloe, Ment,
-	mes "Don't you think.... ^4444FF'flowers'^000000 are pretty?";
-	next;
-	menu "Talk.",-, "End Conversation.",M_End;
-	
-		mes "[Teacher]";
-		mes "When I was young, I didn't play with friends like the other children.  Instead, I spent time studing by myself.";
-		next;
-		mes "[Teacher]";
-		mes "Sometimes I regret that decision.... but it doesn't really matter now.  Through hard work, I was able to finish school earlier than my classmates.";
-		next;
-		mes "[Teacher]";
-		mes "I was very lonely however..... when things got rough I had no one to talk to about my feelings.";
-		next;
-		mes "[Teacher]";
-		mes "Then one day, I found my best friend.";
-		next;
+prt_in,38,108,3	script	Teacher	53,{
+	if(countitem("Illusion_Flower") > 0 && countitem("Hinalle") > 0 && countitem("Aloe") > 0 && countitem("Ment") > 0) {
 		mes "[Teacher]";
-		mes "It was when I saw this pretty flower blooming in an abandoned garden.... I realised that it was just like me and in it, I found my best friend.";
+		mes "My God! The Flower you are holding...";
 		next;
-		mes "[Teacher]";
-		mes "Even though, to others it was just a common flower.... for me this flower meant much more.  This flower gave me the strength to continue my studies.";
-		mes "I could achieve my goals because of her.";
-		next;
-		mes "[Teacher]";
-		mes "So.. now... I am trying to repay to her.  I have started studying Flowers, and It is my goal to cover the whole world in Flowers!";
-		next;
-		mes "[Teacher]";
-		mes "To accomplish my work.. I need a great deal of flowers. Unfortunately because of my studies, I can rarely go outside.";
-		mes "It is really hard to find as many flowers as I need.";
-		next;
-		mes "[Teacher]";
-		mes "I need 1 ^3355FFIllusion Flower^000000 ,1 ^3355FFHinalle^000000,1 ^3355FFAloe^000000 and 1 ^3355FFMent^000000...";
-		mes "If you can bring these flowers to me, I would be willing to give you a special item...";
-		close;
-	
-	M_End:
-		mes "[Teacher]";
-		mes "One of these days I will cover whole world in Flowers!.....";
-		close;
-
-L_Start:
+		switch( select( "Show him the flowers.","Give him the flowers.","Cancel.")) {
+			case 1:
+				mes "[Teacher]";
+				mes "Are those the Flowers I've been looking for...";
+				mes "Would you give them to me?";
+				next;
+				mes "[Teacher]";
+				mes "If you give them to me... I... I will give my precious item...";
+				close;
+			case 2:
+				if(countitem("Illusion_Flower") > 0 && countitem("Hinalle") > 0 && countitem("Aloe") > 0 && countitem("Ment") > 0) {
+					delitem "Illusion_Flower",1;
+					delitem "Hinalle",1;
+					delitem "Aloe",1;
+					delitem "Ment",1;
+					getitem "Ph.D_Hat",1;
+					mes "[Teacher]";
+					mes "Thank you so much! First time in my life someone is nice to me!";
+					mes "I will give you my precious item like I promised you.";
+					mes "This is the cap I wore when I graduated, it is full of my school memory.";
+					mes "Please take it... I hope you would cherish it like me.";
+					close;
+				}
+					mes "[Teacher]";
+					mes "... After a closer look I realized those are not the flowers I want...";
+					mes "Ha! Ha! I have really bad eyesight...";
+					close;
+			case 3:
+				close;
+			}
+	}
 	mes "[Teacher]";
-	mes "Oh... Those Flowers in your hand are....";
-	M_Menu:
+	mes "Those flowers are pretty... Right?";
 	next;
-	menu "Show Flowers",-, "Give Flowers",M_Give, "Cancel",M_End;
-
-		mes "[Teacher]";
-		mes "Ah... How wonderful!! These are definately the 4 kinds of Flowers I was looking for ..";
-		mes "The ^3355FFIllusion Flower, Hinalle, Aloe, and Ment^000000.  Would you give them to me?...";
-		next;
-		mes "[Teacher]";
-		mes "If you do I'd be willing to give you a special item.....";
-		goto M_Menu;
-
-	M_Give:
-		if(countitem(710) < 1 || countitem(703) < 1 || countitem(704) < 1 || countitem(708) < 1) goto L_Cheater;//Items: Illusion Flower, Hinalle, Aloe, Ment,
-		delitem 710,1;//Items: Illusion Flower,
-		delitem 703,1;//Items: Hinalle,
-		delitem 704,1;//Items: Aloe,
-		delitem 708,1;//Items: Ment,
-		mes "[Teacher]";
-		mes "I really, really appreciate what you've done for me!! I trully am grateful! I will give you a very special item as I promised.";
-		emotion e_thx;
-		next;
-		mes "[Teacher]";
-		mes "This is the hat I wore at my Graduation Ceremony.  It is a reminder of my joyfull school days at the University.";
-		mes "Please take it...";
-		getitem 5012,1;//Items: Ph.D Hat,
-		close;
-
-	L_Cheater:
-		mes "[Teacher]";
-		mes "I won't give a special item to a cheater...";
-		mes "Now go away!";
-		emotion e_bzz;
-		close;
+	switch( select( "Continue talking.","Cancel.")) {
+		case 1:
+			mes "[Teacher]";
+			mes "I seldom go out with anyone when I was young, I was studying all the time.";
+			mes "Sometimes I think I've wasted my youth ... But I don't regret it. Because I study hard, I got good education and become who I am today!";
+			next;
+			mes "[Teacher]";
+			mes "But honestly... I feel sad sometimes for not having good friends...";
+			mes "When I get tired of studying... I don't even have a friend to talk to...";
+			mes "Luckily, I found the true friend of my life at last.";
+			next;
+			mes "[Teacher]";
+			mes "When I walked into that garden and saw all the beautiful flowers...";
+			mes "I suddenly feel I am sharing the same fate as these flowers, so they become my best friends ever.";
+			next;
+			mes "[Teacher]";
+			mes "For others, they are just flowers... But for me, they are my source of strength.";
+			mes "I can't have achieved anything without their company.";
+			next;
+			mes "[Teacher]";
+			mes "That's why I start to think about doing something to repay the people who had given me the flowers.";
+			mes "We have done so much research about flowers here... We even want to build a place full of flowers... for a better world!";
+			next;
+			mes "[Teacher]";
+			mes "So... We really need a large amount of flowers...";
+			mes "But I never go out anywhere... It is hard for me to find any!";
+			mes "If you can find me  ^3355FFIllusion Flower^000000, ^3355FFHinalle^000000, ^3355FFAloe^000000 and ^3355FFMent^000000 and bring them to me, I will give you my treasure.";
+			close;
+		case 2:
+			mes "[Teacher]";
+			mes "One day I will use a lot of flowers to make the most pretty place in the world...";
+			close;
+		}
 }
 
 // Gaebolg Family Curse
diff --git a/npc/quests/skills/alchemist_skills.txt b/npc/quests/skills/alchemist_skills.txt
index 7b1b50057..2f0bec125 100644
--- a/npc/quests/skills/alchemist_skills.txt
+++ b/npc/quests/skills/alchemist_skills.txt
@@ -22,69 +22,780 @@
 //= 	Quest too [Lupus]
 //= 1.5 Removed duplicates [Toms] 1.5a fixed typo [Lupus]
 //= 1.6 Moved some NPCs related to Lighthalzen quests. [SinSloth]
+//= 1.7 Updated "Elemental Potion Creation Quest" to the official one. [Samuray22]
 //============================================================
 
 
 //============================================================
 // ALCHEMIST - ELEMENTAL POTION CREATION
 //============================================================
-yuno_in04,33,108,5	script	Pislik	750,{
-	mes "[Pislik]";
-	if(BaseJob != Job_Alchem) goto L_noalche;
-	if(countitem(7434)) goto L_alreadyhave;//Items: Elemental_Potion_Creation_Guide,
-	if(JobLevel<40) goto L_nojob;
-
-	mes "I'll teach you all I know, but";
-	mes "you have to bring me some things";
-	mes "first.";
-	mes "5 Yellow Gemstones,";
-	mes "4 Empty Potion Bottles,";
-	mes "10 Hearts of Mermaid,";
-	mes "10 Moth Dust,";
-	mes "20 Maneater Blossoms and";
-	mes "1 Geek Glasses";
-	next;
-	
-	mes "[Pislik]";
-	mes "Let me check your items.";
-	next;
-	
-	if(countitem(715)<5 || countitem(1093)<4 || countitem(950)<10 || countitem(1057)<10 || countitem(1032)<20 || countitem(2243)<1) goto L_noitems;//Items: Yellow_Gemstone, Empty_Potion_Bottle, Heart_of_Mermaid, Moth_Dust, Maneater_Blossom, Geek_Glasses,
-	delitem 715, 5;//Items: Yellow_Gemstone,
-	delitem 1093, 4;//Items: Empty_Potion_Bottle,
-	delitem 950, 10;//Items: Heart_of_Mermaid,
-	delitem 1057, 10;//Items: Moth_Dust,
-	delitem 1032, 20;//Items: Maneater_Blossom,
-	delitem 2243, 1;//Items: Geek_Glasses,
-	getitem 7434, 1;//Items: Elemental_Potion_Creation_Guide,
-
-	mes "[Pislik]";
-	mes "I see you have what you need,";
-	mes "so I'll give you my manual.";
-	close;
-	
-L_noitems:
-	mes "[Pislik]";
-	mes "You don't have enough items.";
-	mes "Come back when you have all";
-	mes "the required items for me.";
-	close;
-	
-L_noalche:
-	mes "Sorry, but my knowledge is only about alchemy.";
-	mes "I can't help you.";
-	emotion e_gasp;
+yuno_in04,33,108,6	script	Pisruik Quv	883,{
+	if (Class == Job_Alchem || Class == Job_Creator) {
+		if (JobLevel < 40 && Class == Job_Alchem) {
+			mes "[Pisruik]";
+			mes "Achoo!";
+			mes "Sigh";
+			mes "I can't afford the medicine..";
+			mes "You need Job level 40!";
+			close;
+		} else if(ALCHE_SK == 0) {
+			mes "[Pisruik]";
+			mes "Achoo!~";
+			mes "Mixing chemical is so fun~ Achoo!";
+			mes "Oi?";
+			mes "What are you doing looking at other people's experiments!";
+			set ALCHE_SK, 1;
+			next;
+			mes "[Pisruik]";
+			mes "Kids these days..";
+			mes "Sigh..";
+			close;
+		} else if(ALCHE_SK == 1) {
+			mes "[Pisruik]";
+			mes "Hey you are back!";
+			mes "Hmm... it doesn't look like";
+			mes "you are here to steal work";
+			mes "what bring you to ";
+			mes "places like this?";
+			next;
+			switch( select( "What kind of experiment are you conducting?", "Im...well...")) {
+			case 1:
+				mes "[Pisruik]";
+				mes "Can't you tell?";
+				mes "...I guess its no use.";
+				mes "Do you remember how I yelled";
+				mes "last time because you were looking at my work?";
+				next;
+				mes "[Pisruik]";
+				mes "As you can see, this is a shared laboratory.";
+				mes "It's for poor scientists";
+				mes "who can't afford a private lab";
+				mes "We pay a set amount of money to rent";
+				mes "a part of the laboratory";
+				mes "..and I'm one of them.";
+				next;
+				mes "[Pisruik]";
+				mes "Because the space is shared by so many, its scary here.";
+				mes "There are people here who stole work from others";
+				mes "and published them,";
+				mes "and... it gets even worse. But";
+				mes "since we are all poor, we can't do much about it.";
+				next;
+				mes "[Pisruik]";
+				mes "Its not like we have";
+				mes "other means of earning money,";
+				mes "like that alchemist from far, far away";
+				mes "who can earn money by";
+				mes "selling items to villagers.";
+				next;
+				mes "[Pisruik]";
+				mes "Items...";
+				mes "Oh, I know";
+				mes "You are an adventurer right?";
+				mes "What's your name?";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "I am "+strcharinfo(0)+"...";
+				next;
+				mes "[Pisruik]";
+				mes "If you can get me";
+				mes "some items I need for experiments,";
+				mes "I'll tell you what I'm making";
+				mes "Since I know that we won't be doing";
+				mes "experiments in the same area..";
+				next;
+				set ALCHE_SK, 2;
+				mes "[Pisruik]";
+				mes "Thing that I need right now are,";
+				mes "5 Yellow Gemstones,";
+				mes "4 Empty Potion Bottle,";
+				mes "10 Heart of Mermaid,";
+				mes "10 Powder of Butterfly.";
+				mes "So come back when you've got the items.";
+				close;
+			case 2:
+				mes "[Pisruik]";
+				mes "You can buy them at the toolshop.";
+				mes "Things in here are all";
+				mes "personal properties.";
+				close;
+			}
+		} else if(ALCHE_SK == 2) {
+			mes "[Pisruik]";
+			mes "Hey, "+strcharinfo(0)+"";
+			mes "The items that I asked for are...";
+			mes "4 Empty Potion Botles";
+			mes "and... er....";
+			mes "What were they again?";
+			next;
+			switch( select( "5 Yellow Gemstones,", "5 Blue Gemstones,", "5 Red Gemstones,")) {
+			case 1:
+				mes "[Pisruik]";
+				mes "5 Yellow Gemstones";
+				mes "And...";
+				next;
+				switch( select( "10 Heart of Mermaid,", "10 Large Jellopy,")) {
+				case 1:
+					mes "[Pisruik]";
+					mes "10 Heart of Mermaid";
+					mes "And...";
+					next;
+					switch( select( "10 Snake Scales.", "10 Powders of Butterfly")) {
+					case 1:
+						mes "[Pisruik]";
+						mes "Hmmmm no I don't really need that.";
+						mes "I have a friend who gave me a bunch";
+						mes "and I still have some left...";
+						mes "What was it?";
+						close;
+					case 2:
+						mes "[Pisruik]";
+						mes "Yes ,";
+						mes "5 Yellow Gemstones,";
+						mes "4 Empty Potion Bottle,";
+						mes "10 Heart of Mermaid,";
+						mes "10 Powder of Butterfly.";
+						mes "Do you have all of them with you?";
+						next;
+						switch( select( "No.", "Yes!")) {
+						case 1:
+							set .@fhit, rand(1,5);
+							if (.@fhit == 1) {
+								mes "[Pisruik]";
+								mes "If you don't want to do it then tell me.";
+								mes "I'm a busy person too!";
+								close;
+							}
+								mes "[Pisruik]";
+								mes "Hmmm...";
+								mes "If you can, please hurry.";
+								mes "Well, you don't have to do this, you know...";
+								close;
+						case 2:
+							mes "[Pisruik]";
+							mes "Let's see...";
+							next;
+							if (countitem("Yellow_Gemstone") > 4 && countitem("Empty_Potion") > 3 && countitem("Heart_Of_Mermaid") > 9 && countitem("Powder_Of_Butterfly") > 9) {
+								delitem "Yellow_Gemstone", 5;
+								delitem "Empty_Potion", 4;
+								delitem "Heart_Of_Mermaid", 10;
+								delitem "Powder_Of_Butterfly",10;
+								set ALCHE_SK, 3;
+								mes "[Pisruik]";
+								mes "Good.";
+								mes "It doesn't seem like they are in a bad shape...";
+								mes "Well I'll accept them.";
+								mes "Let's see.. hmm";
+								mes "What do you think I am making with all these?";
+								next;
+								switch( select( "Medicine?", "Bomb?")) {
+								case 1:
+									set ALCHE_SK, 4;
+									mes "[Pisruik]";
+									mes "Yes. It's medicine.";
+									goto Alc_Exp;
+								case 2:
+									set ALCHE_SK, 4;
+									mes "[Pisruik]";
+									mes "Bomb? Hahaha. No.";
+									mes "It's a medicine.";
+									next;
+									mes "[Pisruik]";
+									mes "Of course, I could earn a lot of money";
+									mes "by making bombs....BUT";
+									mes "I don't want to end up dead";
+									mes "because one of them blows up";
+									mes "while I'm making it.";
+									next;
+									mes "[Pisruik]";
+									mes "I just don't have";
+									mes "a good place to do experiments.";
+									mes "that's one of the reasons";
+									mes "why we can't make powerful bombs";
+									next;
+									mes "[Pisruik]";
+									mes "Well, not like I want to make it myself.";
+									next;
+									mes "[Pisruik]";
+								}
+							Alc_Exp:								
+								mes "You see,";
+								mes "If this medicine can react";
+								mes "in the body,";
+								next;
+								mes "[Pisruik]";
+								mes "The body's composition changes";
+								mes "very rapidly.";
+								mes "Let's see. For example,";
+								mes "if we are talking about high temperatures..";
+								mes "Originally, human body can't stand";
+								mes "high temperatures.";
+								next;
+								mes "[Pisruik]";
+								mes "Of course we can't stand in fire,";
+								mes "but the reason why when we get burnt";
+								mes "that part of skin dies, is because";
+								mes "a part of body which transports material";
+								mes "gets BBQ'ed and dies.";
+								next;
+								mes "[Pisruik]";
+								mes "It's the same reason why we die";
+								mes "from high fever.";
+								mes "The experiments I'm conducting right now";;
+								mes "will produce medicine";
+								mes "which will make us immune to";
+								mes "getting damaged by heat.";
+								next;
+								mes "[Pisruik]";
+								mes "But there are side effects.";
+								mes "You are going to be weak to";
+								mes "the opposite property.";
+								mes "Not like we can do much about it";
+								mes "since we are doing this mechanically";
+								next;
+								mes "[Pisruik]";
+								mes "'Creating' something implies";
+								mes "that you are ready to take responsibilities";
+								mes "of things that you didn't mean to do";
+								mes "but happens anyways..";
+								next;
+								mes "[Pisruik]";
+								mes "Anyways....";
+								mes "I am going to need one more favor...";
+								mes "because I need.. about 20 of";
+								mes "Maneater Blossom to perform experiments on.";
+								next;
+								mes "[Pisruik]";
+								mes "Could you go get them for me?";
+								next;
+								switch( select( "Sorry.. but I'm busy.", "Yup I'll do them for you.", "What am I going to get in return?")) {
+								case 1:
+									goto L_no;
+								case 2:
+									goto L_do;
+								case 3:
+									goto L_return;
+								}
+							} else {
+								mes "[Pisruik]";
+								mes "You just told me that you would";
+								mes "bring me the items and";
+								mes "you didn't collect any?";
+								mes "Argh...";
+								mes "If you didn't want to do it";
+								mes "you could have told me.";
+								next;
+								mes "[Pisruik]";
+								mes "Nevermind.";
+								mes "I don't care whether if you come or not.";
+								close;
+							}
+						}
+					}
+				case 2:
+					mes "[Pisruik]";
+					mes "Oh, right. Large Jellopy.";
+					mes "...wasn't what I asked for.";
+					mes "I already have enough Large Jellopy";
+					mes "with me right now...";
+					mes "I asked for something else.";
+					close;
+				}
+			case 2:
+				mes "[Pisruik]";
+				mes "Blue Gemstones...";
+				mes "Did I ask for them?";
+				mes "I'm sure that until yesterday I was making";
+				mes "a medicine which would increase immunity to certain elements...";
+				mes "Sigh...how would I continue the research with memory like this?";
+				close;
+			case 3:
+				mes "[Pisruik]";
+				mes "Red Gemstones...";
+				mes "Did I ask for these?";
+				mes "I'm sure that until yesterday I was making";
+				mes "a medicine which would increase immunity to certain elements...";
+				mes "Sigh...how would I continue the research with memory like this?";
+				close;
+			}
+		} else if(ALCHE_SK == 3) {
+			mes "[Pisruik]";
+			mes "?";
+			mes "Where did you wander off to";
+			mes "in the middle of my explanation?";
+			next;
+			set ALCHE_SK, 4;
+			mes "[Pisruik]";
+			mes "I am making a medicine right now.";
+			close;
+		} else if(ALCHE_SK == 4) {//When you stopped listening to his explanation
+			mes "[Pisruik]";
+			mes "I told you that I am making a medicine...";
+			mes "Do you need me to explain ?";
+			next;
+			switch( select( "No", "Yes")) {
+			case 1:
+				mes "[Pisruik]";
+				mes "Well never mind then.";
+				mes "I am really busy right now.";
+				close;
+			case 2:
+				goto L_do;
+			}
+		} else if(ALCHE_SK == 5) { //When you replied "no"
+			mes "[Pisruik]";
+			mes "I told you I'm busy right?";
+			mes "and if you keep wandering around here";
+			mes "without any business";
+			mes "people are going to turn hostile";
+			mes "towards you. Okay?";
+			next;
+			switch( select( "Okay okay.", "I was wondering if I could help.")) {
+			case 1:
+				mes "[Pisruik]";
+				mes "...";
+				mes "Then go already.";
+				close;
+			case 2:
+				mes "[Pisruik]";
+				mes "...I don't know why you changed your mind";
+				mes "But it doesn't matter as long as.";
+				mes "I can continue my research";
+				mes "Cough, Cough";
+				next;
+				mes "[Pisruik]";
+				mes "...Sigh.";
+				mes "If I didn't have any fits";
+				mes "I could finish very quickly...";
+				mes ".....is it asking for too much from my body?.";
+				mes "hahaha...";
+				next;
+				set ALCHE_SK, 6;
+				mes "[Pisruik]";
+				mes "20 Maneater Blossoms.";
+				mes "That's all I need.";
+				if (Sex == 0) {
+					mes "...Please.";
+					mes "It'd be great if you could bring it to me as soon as possible.";
+				}				
+				close;
+			}
+		} else if(ALCHE_SK == 6) { //Second Item
+			if (countitem("Blossom_Of_Maneater") > 19) {
+				delitem "Blossom_Of_Maneater", 20;
+				set ALCHE_SK, 7;
+				mes "[Pisruij]";
+				mes "...Thanks a lot.";
+				if (Sex == 0) {
+					mes "Thanks so much.. Doing all these for me...";
+				}
+				mes "Okay, now if I add these blossoms to the clover brew";
+				mes "Then...";
+				mes "OY...";
+				next;
+				set ALCHE_SK, 9;
+				misceffect 183;
+				mes "[Pisruik]";
+				mes "AHH!";
+				next;
+				mes "[Pisruik]";
+				mes "Are you hurt anywhere?";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "...Your glasses...";
+				mes "They are broken in to pieces...";
+				mes "....";
+				next;
+				if (Sex == 0) {
+					mes " == The glasses he wore fell ==";
+					mes " == and broke into pieces. ==";
+					mes " == It was unbelievable that ==";
+					mes " == The face underneath that glass ==";
+					mes " == was that of a grumpy alchemist... ==";
+				} else {
+					mes " == I could not believe. ==";
+					mes " == the difference between the face ==";
+					mes " == which I was staring into, ==";
+					mes " == and the one I just saw minutes ago ==";
+				}
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "....well.... errr...";
+				next;
+				mes "[Pisruik]";
+				mes "Are you sure you are okay?";
+				mes "Sorry, I can't see well without glasses";
+				mes "So I can't really do anything except for";
+				mes "Checking that there is no blood.";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "...Yeah I'm fine.";
+				mes "But..Your glasses...";
+				next;
+				mes "[Pisruik]";
+				mes "....What am I going to do.";
+				mes "I don't have a spare one right now...";
+				mes "...";
+				next;
+				mes "[Pisruik]";
+				mes "Hey. "+strcharinfo(0)+" ";
+				mes "I'm sorry but could you go and";
+				mes "get me a set of glasses just like the one";
+				mes "I was wearing?";
+				next;
+				mes "[Pisruik]";
+				mes "I can't move without my glasses";
+				mes "So if you could get me a set";
+				mes "I'd be really greatful...";
+				mes "....Truly.";
+				mes "Please?.";
+				close;
+			}
+				mes "[Pisruik]";
+				mes "Hmm...";
+				mes "I need 20 more";
+				mes "Maneater Blossom to do experiment...";
+				next;
+				mes " == Mesmerized in a deep thouht ==";
+				mes " == While looking at the test tube. ==";
+				close;
+		} else if(ALCHE_SK == 7) {
+			set ALCHE_SK, 8;
+			mes "[Pisruik]";
+			mes "...Sigh it's not working as well as I thought it would.";
+			mes "Could you get me another Maneater Blossom?...";
+			mes "Please..?";
+			close;
+		} else if(ALCHE_SK == 8) {
+			if (countitem("Blossom_Of_Maneater") > 0) {
+				delitem "Blossom_Of_Maneater", 1;
+				set ALCHE_SK, 7;
+				mes "[Pisruik]";
+				mes "...Thanks.";
+				if (Sex == 0) {
+					mes "..Looks like I've placed another burden on you.";
+					mes "Sorry.";
+				}
+				mes "Well then, all I have to do is add this and..";
+				mes "Aha!...";
+				next;
+				set ALCHE_SK, 9;
+				donpcevent "Pisruik Quv::OnExplosion";
+				mes "[Pisruik]";
+				mes "AHH!";
+				next;
+				mes "[Pisruik]";
+				mes "Are you hurt anywhere?";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "...Your glasses...";
+				mes "They are broken in to pieces...";
+				mes "....";
+				next;
+				if (Sex == 0) {
+					mes " == The glasses he wore fell ==";
+					mes " == and broke into pieces. ==";
+					mes " == It was unbelievable that ==";
+					mes " == The face underneath that glass ==";
+					mes " == was that of a grumpy alchemist... ==";
+				} else {
+					mes " == I could not believe. ==";
+					mes " == the difference between the face ==";
+					mes " == which I was staring into, ==";
+					mes " == and the one I just saw minutes ago ==";
+				}
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "....well.... errr...";
+				next;
+				mes "[Pisruik]";
+				mes "Are you sure you are okay?";
+				mes "Sorry, I can't see well without glasses";
+				mes "So I can't really do anything except for";
+				mes "Checking that there is no blood.";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "...Yeah I'm fine.";
+				mes "But..Your glasses...";
+				next;
+				mes "[Pisruik]";
+				mes "....What am I going to do.";
+				mes "I don't have a spare one right now...";
+				mes "...";
+				next;
+				mes "[Pisruik]";
+				mes "Hey. "+strcharinfo(0)+" ";
+				mes "I'm sorry but could you go and";
+				mes "get me a set of glasses just like the one";
+				mes "I was wearing?";
+				next;
+				mes "[Pisruik]";
+				mes "I can't move without my glasses";
+				mes "So if you could get me a set";
+				mes "I'd be really greatful...";
+				mes "....Truly.";
+				mes "Please?.";
+				close;
+			}
+			mes "[Pisruik]";
+			mes "Hmm...";
+			mes "I think I could do this";
+			mes "If I had just one more";
+			mes "Maneater Blossom...";
+			next;
+			mes " == Thinks very hard ==";
+			mes " == While looking at the test tube. ==";
+			close;
+		} else if(ALCHE_SK == 9) {
+			mes " == He is squinting at the ==";
+			mes " == Remains of his broken glasses. ==";
+			mes " == It seems like that no matter how you look at it ==";
+			mes " == he looks much, much better ==";
+			mes " == without his glasses. ==";
+			next;
+			switch( select( "Give'Something'.", "Don't give him anything.")) {
+			case 1:
+				if (countitem("Glasses") > 0) {
+					delitem "Glasses", 1;
+					set ALCHE_SK, 10;
+					mes " == I gave him the set of glasses ==";
+					next;
+					mes "[Pisruik]";
+					mes "Hm?";
+					mes "Who? ..A, "+strcharinfo(0)+"?";
+					mes "Thanks.";
+					mes "Let's see...";
+					mes "It did blow up but the test tube didn't break..";
+					next;
+					mes "[Pisruik]";
+					mes "Haha..I was surprized";
+					mes "For no reason then.";
+					mes "Let's see the result...";
+					mes "...";
+					next;
+					mes "[Pisruik]";
+					mes "...Good Good.";
+					mes "I think in theory, I have succeeded.";
+					mes "Although it might have problems";
+					mes "because of the ethics involved with";
+					mes "giving chemicals to";
+					mes "humans for purposes like this..";
+					next;
+					mes "[Pisruik]";
+					mes "It's not like there haven't been";
+					mes "those types of experiments so";
+					mes "I think it'd be fine but.";
+					mes "Oh...right.";
+					mes ""+strcharinfo(0)+".";
+					mes "Would you like to try this?";
+					next;
+					mes "[Pisruik]";
+					mes "You are someone who would like to";
+					mes "go out side and run around";
+					mes "so you will have times when you";
+					mes "can put this to a good use";
+					next;
+					switch( select( "Certainly!", "no...")) {
+					case 1:
+						mes "[Pisruik]";
+						mes "Well then could you read this";
+						mes "Paper over for me?";
+						mes "It was perfect in theory";
+						mes "So I've already submitted my paper,";
+						mes "so this is just a copy";
+						next;
+						mes " == He gave me a long lecture ==";
+						mes " == about dangers and side effects ==";
+						mes " == of the medicine ==";
+						next;
+						set ALCHE_SK, 11;
+						getitem "Elemental_Create_Book", 1;
+						mes "[Pisruik]";
+						mes "...I think that";
+						mes "You can put this to a good use.";
+						mes "You have probably given it a good thought";
+						mes "While collecting the items so";
+						mes "You could understand it better than I do";
+						next;
+						mes "[Pisruik]";
+						if (Sex == 1) {
+							mes "If you visit me again";
+							mes "I'll probably have another favor for you.";
+						} else {
+							mes "...Thanks for being here to talk to me.";
+						}
+						mes "Cough.. Cough";
+						mes "Sigh. Well then, should I get started on the next experiement...";
+						close;
+					case 2:
+						mes "[Pisruik]";
+						mes "....Well too bad.";
+						mes "If you change your mind";
+						mes "Then come back later.";
+						if (Sex == 0) {
+							next;
+							mes " == He looked a lot waner ==";
+							mes " == and a lot more tired ==";
+							mes " == than usual. ==";
+						}
+						close;
+					}
+				}
+				mes " == Don't have much to give to him. ==";
+				close;
+			case 2:
+				mes "["+strcharinfo(0)+"]";
+				mes "...I think you look so much better without glasses...";
+				next;
+				mes "[Pisruik]";
+				mes "Hmm?";
+				mes "What did you just say?";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				mes "Erm.. hahahaha.";
+				mes "Nothing nothing!";
+				close;
+			}
+		} else if(ALCHE_SK == 10) {
+			mes "[Pisruik]";
+			mes "I think in theory it's a success,";
+			mes "Do you want to learn how to make it?";
+			next;
+			switch( select( "Yes!", "No...")) {
+			case 1:
+				mes "[Pisruik]";
+				mes "Well then could you read this";
+				mes "Paper over for me?";
+				mes "It was perfect in theory";
+				mes "So I've already submitted my paper,";
+				mes "so this is just a copy";
+				next;
+				mes " == He gave me a long lecture ==";
+				mes " == about dangers and side effects ==";
+				mes " == of the medicine ==";
+				next;
+				set ALCHE_SK, 11;
+				getitem "Elemental_Create_Book", 1;
+				mes "[Pisruik]";
+				mes "...I think that";
+				mes "You can put this to a good use.";
+				mes "You have probably given it a good thought";
+				mes "While collecting the items so";
+				mes "You could understand it better than I do";
+				next;
+				mes "[Pisruik]";
+				if (Sex == 1) {
+					mes "If you visit me again";
+					mes "I'll probably have another favor for you.";
+				} else {
+					mes "...Thanks for being here to talk to me.";
+				}
+				mes "Cough.. Cough";
+				mes "Sigh. Well then should I get started on the next experiement...";
+				close;
+			case 2:
+				mes "[Pisruik]";
+				mes "....Well too bad.";
+				mes "If you change your mind";
+				mes "Then come back later.";
+				if (Sex == 0) {
+					next;
+					mes " == He looked a lot waner ==";
+					mes " == and a lot more tired ==";
+					mes " == than usual. ==";
+				}
+				close;
+			}
+		} else if(ALCHE_SK == 11) {
+			if (countitem("Elemental_Create_Book") == 0) {
+				mes "[Pisruik]";
+				mes "....I guess,";
+				mes "You haven't found much use for that item.";
+				close;
+			} else if(countitem("Elemental_Create_Book") == 1) {
+				mes "[Pisruik]";
+				mes "Has the item been very helpful to you?";
+				close;
+			} else if(countitem("Elemental_Create_Book") > 1) {
+				mes "[Pisruik]";
+				mes "....";
+				mes "Well....I'm selling these but";
+				mes "It's not like I'll sign the books";
+				mes "if you bring them in truckloads.";
+				close;
+			}
+		}
+		mes "[Pisruik]";
+		mes "?";
+		close;
+	}
+	mes "[Pisruik]";
+	mes "What are you looking at!";
+	mes "Go away!";
 	close;
 
-L_alreadyhave:
-	mes "I've already given you";
-	mes "my Elemental Potion Creation Guide...";
+L_no:
+	set ALCHE_SK, 5;
+	mes "[Pisruik]";
+	mes "Well, too bad.";
+	mes "I guess I'll have to go get them myself...";
+	mes "Well I kept my part of the deal";
+	mes "So, you don't have anymore business with me";
+	mes "right?";
 	close;
 
-L_nojob:
-	mes "Come back when you've learned";
-	mes "more about being an Alchemist.";
+L_do:
+	set ALCHE_SK, 6;
+	mes "[Pisruik]";
+	mes "Thanks a lot.";
+	mes "I'll be waiting for you.";
+	mes "Brewing clovers...";
+	next;
+	switch( select( "Oh, what's that for?")) {
+	case 1:
+	}
+	mes "[Pisruik]";
+	mes "Where do you use this?";
+	mes "Well..its not brewing just clovers...";
+	next;
+	mes "[Pisruik]";
+	mes "It has some herbs in them as well,";
+	mes "I don't have much experiences with adventuring";
+	mes "so I can't get good quality herbs so";
+	mes "I just dig them out from nearby";
+	mes "and use them.";
+	next;
+	mes "[Pisruik]";
+	mes "As you can see I have bad eyesight,";
+	mes "and really bad heart";
+	mes "so I have to avoid working too hard";
+	mes "but these experiments are the only joy for me...";
+	if (Sex == 0) {
+		mes "...I don't know if you understand.";
+	}
+	next;
+	mes "[Pisruik]";
+	mes "I can get herbs myself";
+	mes "But I can't really get";
+	mes "Maneater Blossoms";
+	mes "So I am asking for a favor from you.";
+	mes "Please have a safe trip.";
 	close;
+
+L_return:
+	mes "[Pisruik]";
+	mes "Oh, are you trying to one up me now eh?";
+	mes "Okay. I am a very poor guy but";
+	mes "if I ever succeed with this";
+	mes "I'll teach you the secrets for free.";
+	mes "How's that?";
+	next;
+	switch( select( "Well I'm too busy...", "Well okay then...")) {
+	case 1:
+		goto L_no;
+	case 2:
+		goto L_do;
+	}
 }
 
 //============================================================