//===== eAthena Script ======================================= 
//= Alchemist Skills Quests
//===== By: ================================================== 
//= Lupus, Reddozen, Samuray22
//===== Current Version: ===================================== 
//= 1.9
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= [Aegis COnversion]
//= Quests for item: Elemental_Create_Book
//===== Additional Comments: ================================= 
//= 1.9 Rescripted to Aegis 10.3 stadards. [L0ne_W0lf]
//============================================================

yuno_in04,33,108,4	script	Pisruik#qsk_al	883,{
	if (BaseJob == Job_Alchemist) {
		if (JobLevel < 40) {
			mes "[Pisruik]";
			mes "^333333*Cough cough*^000000";
			mes "Damn, if only I had";
			mes "a little more money";
			mes "to buy some medicine.";
			mes "I should have stayed";
			mes "home today, but...";
			close;
		}
		if (ALCHE_SK == 0) {
			mes "[Pisruik]";
			mes "^333333*Cough cough*^000000";
			mes "Ugh, there's nothing";
			mes "worse than working when";
			mes "you're supposed to be resting.";
			mes "H-hey! Um, what are you doing?";
			set ALCHE_SK,1;
			next;
			mes "[Pisruik]";
			mes "Q-quit looking at";
			mes "my test results right";
			mes "this inst--oh. Wait.";
			mes "You're not one of the";
			mes "researchers here. Huh.";
			next;
			mes "[Pisruik]";
			mes "Uh... Don't you have";
			mes "anything better to do";
			mes "than to breathe down my";
			mes "back? I'm trying to finish";
			mes "something here! Oh, never";
			mes "mind, I'm just cranky...";
			close;
		}
		else if (ALCHE_SK == 1) {
			mes "[Pisruik]";
			mes "You again? You don't seem";
			mes "to be doing any research here.";
			mes "Is there something you need?";
			mes "Though, I'm afraid I can't be";
			mes "of very much help to you.";
			next;
			if (select("What are you working on?:I don't need anything, thanks.") == 1) {
				mes "[Pisruik]";
				mes "Well, I'm not sure if I can";
				mes "give you all of the details.";
				mes "You see, everyone here is";
				mes "a researcher that can't afford";
				mes "to rent a lab for himself. So we all ended up sharing this one.";
				next;
				mes "[Pisruik]";
				mes "Even though we all pitched";
				mes "in to rent this lab, we're all";
				mes "getting pretty desperate. In";
				mes "fact, a few of us have even";
				mes "stolen work from each other.";
				mes "That's pretty pathetic, huh?";
				next;
				mes "[Pisruik]";
				mes "I guess that's what happens";
				mes "when you're poor and don't";
				mes "have a day job. Things are";
				mes "so bad right now, I can't even";
				mes "afford to get new materials!";
				mes "What can I possibly do?";
				next;
				mes "[Pisruik]";
				mes "Ah, I've got it! You're";
				mes "an adventurer, right?";
				mes "If you're still curious about";
				mes "my research, I'll tell you more";
				mes "about it if you help me out by";
				mes "gathering some supplies for me.";
				next;
				mes "[Pisruik]";
				mes "I guess it couldn't do";
				mes "much harm if you knew what";
				mes "I was working on, anyway.";
				mes "I mean, we'd have to be working";
				mes "on the same project for you to";
				mes "benefit. So, what's your name?";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "I am called "+ strcharinfo(0) +".";
				next;
				set ALCHE_SK,2;
				mes "[Pisruik]";
				mes "Ah, "+ strcharinfo(0) +".";
				mes "Would you please bring";
				mes "^6600005 Yellow Gemstones^000000,";
				mes "^6600004 Empty Potion Bottles^000000,";
				mes "^66000010 Hearts of Mermaids^000000,";
				mes "and ^66000010 Moth Dust^000000?";
				close;
			}
			mes "[Pisruik]";
			mes "If you came here to buy";
			mes "Potion Manuals or something";
			mes "like that, you've come to the";
			mes "wrong guy. Everything you see";
			mes "here is for the completion";
			mes "of a personal project.";
			close;
		}
		else if (ALCHE_SK == 2) {
			mes "[Pisruik]";
			mes "Great you're back!";
			mes "Let's see, you were";
			mes "supposed to bring me";
			mes "4 Empty Potion Bottles...";
			mes "And... And... What else";
			mes "did I ask you to get?";
			next;
			switch(select("5 Yellow Gemstones:5 Blue Gemstones:5 Red Gemstones")) {
			case 1:
				mes "[Pisruik]";
				mes "Right, right!";
				mes "5 Yellow Gemstones.";
				mes "That's what I needed.";
				mes "I'm sure there was more,";
				mes "but what I can't recall exactly... ^FFFFFF ^000000";
				next;
				if (select("10 Hearts of Mermaid:10 Large Jellopies") == 1) {
					mes "[Pisruik]";
					mes "Of course!";
					mes "10 Hearts of Mermaid!";
					mes "How could I forget that?";
					mes "And then, the last thing";
					mes "I asked you for was, um...";
					next;
					if (select("10 Frill:10 Moth Dust") == 1) {
						mes "[Pisruik]";
						mes "No, that can't have";
						mes "been it. I already have";
						mes "plenty of Frills. Hmmm...";
						mes "What am I missing now?";
						close;
					}
					mes "[Pisruik]";
					mes "Right. I was just";
					mes "about to say that.";
					mes "So did you remember";
					mes "to bring me everything?";
					next;
					if (select("No.:Yes!") == 1) {
						if (rand(1,5) == 1) {
							mes "[Pisruik]";
							mes "You didn't...?";
							mes "Oh, just admit it.";
							mes "You don't want to";
							mes "do this for me, right?";
							mes "Don't go wasting your";
							mes "time just for my sake.";
							close;
						}
						mes "[Pisruik]";
						mes "Not yet, huh?";
						mes "Though I hope you can";
						mes "bring me that stuff as";
						mes "soon as possible, you";
						mes "don't have to do it, you";
						mes "know. Yeah, no big deal.";
						close;
					}
					mes "[Pisruik]";
					mes "Really now?";
					mes "Well, let me check";
					mes "what you brought to";
					mes "make sure you didn't";
					mes "forget anything. Hm...";
					next;
					if (countitem(715) > 4 && countitem(1093) > 3 && countitem(950) > 9 && countitem(1057) > 9) {
						delitem 715,5; //Yellow_Gemstone
						delitem 1093,4; //Empty_Potion
						delitem 950,10; //Heart_Of_Mermaid
						delitem 1057,10; //Moth_Dust
						set ALCHE_SK,3;
						mes "[Pisruik]";
						mes "Great, it looks like";
						mes "everything is here.";
						mes "Alright, let me take";
						mes "those. Now, guess what";
						mes "I'll be making with the";
						mes "materials you've brought.";
						next;
						switch(select("Medicine?:Bomb?")) {
						case 1:
							set ALCHE_SK,4;
							mes "[Pisruik]";
							mes "Hahahah, that's right!";
							mes "I'm working on making";
							mes "a new form of medicine.";
							break;
						case 2:
							set ALCHE_SK,4;
							mes "[Pisruik]";
							mes "A bomb? Do I look like";
							mes "a nutcase to you? No, no...";
							mes "I'm developing a new form of";
							mes "medicine. Sure, bombs make";
							mes "good money, but where would";
							mes "I test them? Here? No way!";
							break;
						}
						next;
						mes "[Pisruik]";
						mes "Anyway, this medicine";
						mes "reacts with the human body's";
						mes "digestive enzymes to initiate";
						mes "temporary metabolic changes";
						mes "that artificially stop heat";
						mes "absorption into the body.";
						next;
						mes "[Pisruik]";
						mes "The actual effect of this";
						mes "medicine is that it greatly";
						mes "increases the body's resistance";
						mes "to most forms of heat! However,";
						mes "it will also reduce resistance";
						mes "to cold as a side effect.";
						next;
						mes "[Pisruik]";
						mes "I know my medicine sounds";
						mes "a little weird, but think of";
						mes "the applications! If used in";
						mes "the right situations, this";
						mes "medicine may be quite handy.";
						next;
						mes "[Pisruik]";
						mes "Ah, seeing as you're still";
						mes "here, would you mind helping";
						mes "me again? I need about, hmm,";
						mes "20 Maneater Blossoms. If you";
						mes "could bring them to me, it'd";
						mes "really help me out a lot.";
						next;
						switch(select("Nope, I'm too busy!:Sure, I'll help you.:What's in it for me?")) {
						case 1:
							set ALCHE_SK,5;
							mes "[Pisruik]";
							mes "I guess I'll have to gather";
							mes "those on my own. Alright, well,";
							mes "seeing as we've both gotten";
							mes "what we wanted, I'll suppose";
							mes "your business with me is done.";
							close;
						case 2:
							set ALCHE_SK,6;
							mes "[Pisruik]";
							mes "Thanks, I really";
							mes "appreciate it. While";
							mes "I'm waiting for you,";
							mes "I can start boiling";
							mes "the Clover extract.";
							next;
							select("Clover extract? What's that for?");
							mes "[Pisruik]";
							mes "Well, I need the Clover";
							mes "extract for a compound";
							mes "that I'm going to make with";
							mes "the Maneater Blossoms. I'm";
							mes "kind of weak, so I try not to";
							mes "travel too far when I can.";
							next;
							mes "[Pisruik]";
							mes "Yeah, ever since I was";
							mes "little, I've had a weak";
							mes "heart and bad eyesight.";
							mes "The doctor tells me to avoid";
							mes "stress and hard work, but";
							mes "researching is my life.";
							if (Sex == 0) {
								next;
								mes "[Pisruik]";
								mes "I wonder...";
								mes "If you understand";
								mes "the way I feel, how";
								mes "much I've had to sacrifice";
								mes "for my dream. Heh, anyway...";
							}
							next;
							mes "[Pisruik]";
							mes "I hope you understand that";
							mes "it's too dangerous for me to";
							mes "gather Maneater Blossoms on";
							mes "my own, so if I'm going to get";
							mes "as much help as I can. Thanks";
							mes "again for being cooperative.";
							close;
						case 3:
							mes "[Pisruik]";
							mes "Ha ha ha ha!";
							mes "That's real business";
							mes "like of you! Alright,";
							mes "I may be poor, but if";
							mes "you help me, I'll give you";
							mes "the results of my research.";
							next;
							if (select("Nah, I'm too busy.:Alright, I'll help you.") == 1) {
								set ALCHE_SK,5;
								mes "[Pisruik]";
								mes "I guess I'll have to gather";
								mes "those on my own. Alright, well,";
								mes "seeing as we've both gotten";
								mes "what we wanted, I'll suppose";
								mes "your business with me is done.";
								close;
							}
							set ALCHE_SK,6;
							mes "[Pisruik]";
							mes "Thanks, I really";
							mes "appreciate it. While";
							mes "I'm waiting for you,";
							mes "I can start boiling";
							mes "the Clover extract.";
							next;
							select("Clover extract? What's that for?");
							mes "[Pisruik]";
							mes "Well, I need the Clover";
							mes "extract for a compound";
							mes "that I'm going to make with";
							mes "the Maneater Blossoms. I'm";
							mes "kind of weak, so I try not to";
							mes "travel too far when I can.";
							next;
							mes "[Pisruik]";
							mes "Yeah, ever since I was";
							mes "little, I've had a weak";
							mes "heart and bad eyesight.";
							mes "The doctor tells me to avoid";
							mes "stress and hard work, but";
							mes "researching is my life.";
							if (Sex == 0) {
								next;
								mes "[Pisruik]";
								mes "I wonder...";
								mes "If you understand";
								mes "the way I feel, how";
								mes "much I've had to sacrifice";
								mes "for my dream. Heh, anyway...";
							}
							next;
							mes "[Pisruik]";
							mes "I hope you understand that";
							mes "it's too dangerous for me to";
							mes "gather Maneater Blossoms on";
							mes "my own, so if I'm going to get";
							mes "as much help as I can. Thanks";
							mes "again for being cooperative.";
							close;
						}
					}
					else if (countitem(715) == 0 && countitem(1093) == 0 && countitem(950) == 0 && countitem(1057) == 0) {
						mes "[Pisruik]";
						mes "So you knew what";
						mes "you had to bring, came";
						mes "to remind me what I had";
						mes "forgotten, but didn't bring";
						mes "anything? Weird. Ah well.";
						mes "Come with the stuff next time.";
						close;
					}
					else {
						mes "[Pisruik]";
						mes "Oh, this isn't good, some";
						mes "of the items I asked for are";
						mes "missing. I'm sorry, but Alchemy";
						mes "gets dangerously unpredictable";
						mes "when things aren't used in just";
						mes "the right amounts. Hmmm...";
						next;
						mes "[Pisruik]";
						mes "Well, I can afford to";
						mes "push my deadlines back";
						mes "if you promise to return";
						mes "with the materials I need";
						mes "as soon as you possibly can.";
						close;
					}
				}
				mes "[Pisruik]";
				mes "Large Jellopy?";
				mes "Yes, Large--no.";
				mes "Wait, that doesn't";
				mes "sound right at all.";
				mes "No, it was something";
				mes "else I need you to get.";
				close;
			case 2:
				mes "[Pisruik]";
				mes "Blue Gemstones...?";
				mes "No, that was for the";
				mes "potion that increases";
				mes "tolerance to the Water";
				mes "property, I think. What's";
				mes "wrong with my memory?!";
				close;
			case 3:
				mes "[Pisruik]";
				mes "Red Gemstones...?";
				mes "No, that was for the";
				mes "potion that increases";
				mes "tolerance to the Earth";
				mes "property, I think. What's";
				mes "wrong with my memory?!";
				close;
			}
		}
		else if (ALCHE_SK == 3) {
			mes "[Pisruik]";
			mes "Why did you just leave?";
			mes "You didn't even let me";
			mes "finish talking! Oh well,";
			mes "maybe it's not your fault.";
			mes "Anyway, just so you know,";
			mes "I'm developing a new medicine.";
			set ALCHE_SK,4;
			close;
		}
		else if (ALCHE_SK == 4) {
			//NPC dialogue interrupted
			mes "[Pisruik]";
			mes "Alright, did you";
			mes "want to learn more";
			mes "about the medicine that";
			mes "I'm developing? I mean,";
			mes "that's why you came, right?";
			next;
			if (select("No, thanks.:Yes, please.") == 1) {
				mes "[Pisruik]";
				mes "Alright then.";
				mes "Really? Well, I'm";
				mes "willing to spend the";
				mes "time to explain it to";
				mes "you. After all, you did";
				mes "help me out just then.";
				close;
			}
			mes "[Pisruik]";
			mes "I'm working on a new";
			mes "form of medicine that,";
			mes "hopefully, will be used";
			mes "for the betterment and";
			mes "protection of mankind!";
			next;
			mes "[Pisruik]";
			mes "Anyway, this medicine";
			mes "reacts with the human body's";
			mes "digestive enzymes to initiate";
			mes "temporary metabolic changes";
			mes "that artificially stop heat";
			mes "absorption into the body.";
			next;
			mes "[Pisruik]";
			mes "The actual effect of this";
			mes "medicine is that it greatly";
			mes "increases the body's resistance";
			mes "to most forms of heat! However,";
			mes "it will also reduce resistance";
			mes "to cold as a side effect.";
			next;
			mes "[Pisruik]";
			mes "I know my medicine sounds";
			mes "a little weird, but think of";
			mes "the applications! If used in";
			mes "the right situations, this";
			mes "medicine may be quite handy.";
			next;
			mes "[Pisruik]";
			mes "Ah, seeing as you're still";
			mes "here, would you mind helping";
			mes "me again? I need about, hmm,";
			mes "20 Maneater Blossoms. If you";
			mes "could bring them to me, it'd";
			mes "really help me out a lot.";
			next;
			switch(select("Nope, I'm too busy!:Sure, I'll help you.:What's in it for me?")) {
			case 1:
				set ALCHE_SK,5;
				mes "[Pisruik]";
				mes "I guess I'll have to gather";
				mes "those on my own. Alright, well,";
				mes "seeing as we've both gotten";
				mes "what we wanted, I'll suppose";
				mes "your business with me is done.";
				close;
			case 2:
				set ALCHE_SK,6;
				mes "[Pisruik]";
				mes "Thanks, I really";
				mes "appreciate it. While";
				mes "I'm waiting for you,";
				mes "I can start boiling";
				mes "the Clover extract.";
				next;
				select("Clover extract? What's that for?");
				mes "[Pisruik]";
				mes "Well, I need the Clover";
				mes "extract for a compound";
				mes "that I'm going to make with";
				mes "the Maneater Blossoms. I'm";
				mes "kind of weak, so I try not to";
				mes "travel too far when I can.";
				next;
				mes "[Pisruik]";
				mes "Yeah, ever since I was";
				mes "little, I've had a weak";
				mes "heart and bad eyesight.";
				mes "The doctor tells me to avoid";
				mes "stress and hard work, but";
				mes "researching is my life.";
				if (Sex == 0) {
					next;
					mes "[Pisruik]";
					mes "I wonder...";
					mes "If you understand";
					mes "the way I feel, how";
					mes "much I've had to sacrifice";
					mes "for my dream. Heh, anyway...";
				}
				next;
				mes "[Pisruik]";
				mes "I hope you understand that";
				mes "it's too dangerous for me to";
				mes "gather Maneater Blossoms on";
				mes "my own, so if I'm going to get";
				mes "as much help as I can. Thanks";
				mes "again for being cooperative.";
				close;
			case 3:
				mes "[Pisruik]";
				mes "Ha ha ha ha!";
				mes "That's real business";
				mes "like of you! Alright,";
				mes "I may be poor, but if";
				mes "you help me, I'll give you";
				mes "the results of my research.";
				next;
				if (select("Nah, I'm too busy.:Alright, I'll help you.") == 1) {
					set ALCHE_SK,5;
					mes "[Pisruik]";
					mes "I guess I'll have to gather";
					mes "those on my own. Alright, well,";
					mes "seeing as we've both gotten";
					mes "what we wanted, I'll suppose";
					mes "your business with me is done.";
					close;
				}
				set ALCHE_SK,6;
				mes "[Pisruik]";
				mes "Thanks, I really";
				mes "appreciate it. While";
				mes "I'm waiting for you,";
				mes "I can start boiling";
				mes "the Clover extract.";
				next;
				select("Clover extract? What's that for?");
				mes "[Pisruik]";
				mes "Well, I need the Clover";
				mes "extract for a compound";
				mes "that I'm going to make with";
				mes "the Maneater Blossoms. I'm";
				mes "kind of weak, so I try not to";
				mes "travel too far when I can.";
				next;
				mes "[Pisruik]";
				mes "Yeah, ever since I was";
				mes "little, I've had a weak";
				mes "heart and bad eyesight.";
				mes "The doctor tells me to avoid";
				mes "stress and hard work, but";
				mes "researching is my life.";
				if (Sex == 0) {
					next;
					mes "[Pisruik]";
					mes "I wonder...";
					mes "If you understand";
					mes "the way I feel, how";
					mes "much I've had to sacrifice";
					mes "for my dream. Heh, anyway...";
				}
				next;
				mes "[Pisruik]";
				mes "I hope you understand that";
				mes "it's too dangerous for me to";
				mes "gather Maneater Blossoms on";
				mes "my own, so if I'm going to get";
				mes "as much help as I can. Thanks";
				mes "again for being cooperative.";
				close;
			}
		}
		else if (ALCHE_SK == 5) {
			//refuse bringing Maneater Blossom
			mes "[Pisruik]";
			mes "I'm busy right now.";
			mes "You didn't forget";
			mes "anything did you?";
			mes "If not, you better";
			mes "get going and let";
			mes "me do my work.";
			next;
			if (select("Alright, sorry to bother you.:Can I still help you?") == 1) {
				mes "[Pisruik]";
				mes "Yeah, whatever.";
				mes "Just hurry up and leave";
				mes "so that I can concentrate.";
				close;
			}
			mes "[Pisruik]";
			mes "Huh? What made you";
			mes "change your mind? Well,";
			mes "I can't afford not to accept";
			mes "any help, so I guess that's";
			mes "a \"Yes.\" Yeah, you can help.";
			next;
			mes "[Pisruik]";
			mes "Alright, go and get me";
			mes "20 Maneater Blossoms.";
			mes "If I weren't so sickly, I'd get";
			mes "them myself, but--*Cough* as";
			mes "you can see, I don't feel so well. ^FFFFFF ^000000";
			set ALCHE_SK,6;
			next;
			mes "[Pisruik]";
			if (Sex == 0) {
				mes "I... I really";
				mes "appreciate your";
				mes "willingness to help";
				mes "me in my research...";
			}
			else {
				mes "I hope you get those";
				mes "items to me as soon as";
				mes "you can. And don't flake";
				mes "out on me this time!";
			}
			close;
		}
		else if (ALCHE_SK == 6) {
			if (countitem(1032) > 19) {
				delitem 1032,20; //Blossom_Of_Maneater
				set ALCHE_SK,7;
				mes "[Pisruik]";
				mes "Thanks so much for";
				mes "bringing me these";
				mes "Maneater Blossoms.";
				if (Sex == 0) {
					mes "You don't know how";
					mes "much this means to me~";
				}
				else {
					mes "Now all I have to do";
					mes "is mix these with the";
					mes "Clover extract I prepared.";
				}
				next;
				set ALCHE_SK,9;
				specialeffect 183; //"Pisruik" EF_SUI_EXPLOSION
				mes "[Pisruik]";
				mes "Ah!";
				mes "M-my face!";
				next;
				//...Pretty Boy mode -_-
				mes "[Pisruik]";
				mes "Hey...";
				mes "Are you alright?";
				mes "That was a pretty";
				mes "big explosion...";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Your glasses...";
				mes "They're broken...";
				next;
				if (Sex == 0) {
					mes "^3355FFThe explosion destroyed";
					mes "Pisruik's glasses, revealing";
					mes "the beautiful face of a";
					mes "gorgeous, gorgeous man.^000000";
				}
				else {
					mes "^3355FFThe explosion blew off";
					mes "Pisruik's glasses. Without";
					mes "them, he looks more like";
					mes "a male model than a dorky";
					mes "scientific researcher.^000000";
				}
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Holy crap!";
				mes "You're one";
				mes "good looking guy!";
				next;
				mes "[Pisruik]";
				mes "I c-can't see too";
				mes "well without my glasses.";
				mes "Well, at least I can tell";
				mes "that you're not bleeding.";
				mes "But are you alright?";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Oh, I'm fine.";
				mes "But what are you";
				mes "going to do about";
				mes "your glasses?";
				next;
				mes "[Pisruik]";
				mes "Shoot, you're right.";
				mes "I don't happen to have";
				mes "an extra pair. Hey, can";
				mes "you get me a pair of glasses,";
				mes "the same kind I used to wear?";
				next;
				mes "[Pisruik]";
				mes "I know it's too much";
				mes "to ask you for, but I'm";
				mes "almost blind without them.";
				mes "I can't do very much if I can't";
				mes "even see. I'm really sorry";
				mes "about this, "+ strcharinfo(0) +".";
				close;
			}
			else {
				mes "[Pisruik]";
				mes "Would you come back with";
				mes "20 Maneater Blossoms";
				mes "so that I can finish this";
				mes "medicine I'm working on?";
				mes "Thanks, thanks, I've got";
				mes "to hustle with this project...";
				close;
			}
		}
		else if (ALCHE_SK == 7) {
			set ALCHE_SK,8;
			mes "[Pisruik]";
			mes "Hmmm...";
			mes "Actually, I miscalculated";
			mes "the number of Maneater";
			mes "Blossoms that I need. Would";
			mes "you bring me one more? Sorry,^FFFFFF ^000000 I know it's kind of troublesome...";
			close;
		}
		else if (ALCHE_SK == 8) {
			if (countitem(1032) > 0) {
				delitem 1032,1; //Blossom_Of_Maneater
				set ALCHE_SK,7;
				mes "[Pisruik]";
				mes "Thanks so much!";
				mes "Now I finally have the";
				mes "exact amount of Maneater";
				mes "Blossoms that I'll need.";
				if (Sex == 0) {
					mes "I'm really sorry for putting";
					mes "your through all this trouble.";
				}
				else {
					mes "Finally, I begin the most";
					mes "exciting part of this project!";
				}
				next;
				set ALCHE_SK,9;
				specialeffect 183; //"Pisruik" EF_SUI_EXPLOSION
				mes "[Pisruik]";
				mes "Ah!";
				mes "M-my face!";
				next;
				//...Pretty Boy mode -_-
				mes "[Pisruik]";
				mes "Hey...";
				mes "Are you alright?";
				mes "That was a pretty";
				mes "big explosion...";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Your glasses...";
				mes "They're broken...";
				next;
				if (Sex == 0) {
					mes "^3355FFThe explosion destroyed";
					mes "Pisruik's glasses, revealing";
					mes "the beautiful face of a";
					mes "gorgeous, gorgeous man.^000000";
				}
				else {
					mes "^3355FFThe explosion blew off";
					mes "Pisruik's glasses. Without";
					mes "them, he looks more like";
					mes "a male model than a dorky";
					mes "scientific researcher.^000000";
				}
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Holy crap!";
				mes "You're one";
				mes "good looking guy!";
				next;
				mes "[Pisruik]";
				mes "I c-can't see too";
				mes "well without my glasses.";
				mes "Well, at least I can tell";
				mes "that you're not bleeding.";
				mes "But are you alright?";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "Oh, I'm fine.";
				mes "But what are you";
				mes "going to do about";
				mes "your glasses?";
				next;
				mes "[Pisruik]";
				mes "Shoot, you're right.";
				mes "I don't happen to have";
				mes "an extra pair. Hey, can";
				mes "you get me a pair of glasses,";
				mes "the same kind I used to wear?";
				next;
				mes "[Pisruik]";
				mes "I know it's too much";
				mes "to ask you for, but I'm";
				mes "almost blind without them.";
				mes "I can't do very much if I can't";
				mes "even see. I'm really sorry";
				mes "about this, "+ strcharinfo(0) +".";
				close;
			}
			else {
				mes "[Pisruik]";
				mes "Hmmm...";
				mes "Actually, I miscalculated";
				mes "the number of Maneater";
				mes "Blossoms that I need. Would";
				mes "you bring me one more? Sorry,^FFFFFF ^000000 I know it's kind of troublesome...";
				close;
			}
		}
		else if (ALCHE_SK == 9) {
			mes "^3355FFPisruik is holding his";
			mes "broken glasses, squinting";
			mes "his eyes. It seems he like";
			mes "he really does need them,";
			mes "even if he looks much less";
			mes "dorky without them.^000000";
			next;
			if (select("Let him try a pair of your glasses:Don't give him anything") == 1) {
				if (countitem(2243) > 0) {
					delitem 2243,1; //Spinning_Eyes
					set ALCHE_SK,10;
					//changes the quest steps by deicision.
					mes "["+ strcharinfo(0) +"]";
					mes "Here, why don't you";
					mes "check I'm carrying and";
					mes "see if there's a pair of";
					mes "glasses that you can use?";
					next;
					mes "[Pisruik]";
					mes "Huh? Oh, is that you?";
					mes "Ah, this pair of glasses";
					mes "works! Thanks a lot, now";
					mes "I can see again! Now, let";
					mes "me check the results of the";
					mes "experiment we conducted.";
					next;
					mes "[Pisruik]";
					mes "Okay, the test tube wasn't";
					mes "damaged. Yes, according to";
					mes "these readings, this medicine";
					mes "should be fully functional!";
					mes "I think it was a success!";
					mes "Well, theoretically anyway.";
					next;
					mes "[Pisruik]";
					mes "Hmm, changing the attributes";
					mes "of the human body for certain";
					mes "effects may cause controversy";
					mes "later, but hopefully this thing";
					mes "I've invented will be used for";
					mes "good. Ah, that's right!";
					next;
					mes "[Pisruik]";
					mes "Would you like me to";
					mes "teach you everything I've";
					mes "learned in my research? You";
					mes "should be able to create a new";
					mes "type of potion by making use of";
					mes "the knowledge I can teach you.";
					next;
					if (select("Sure!:No, thanks.") == 1) {
						mes "[Pisruik]";
						mes "Great, "+ strcharinfo(0) +"!";
						mes "I know I can trust you";
						mes "to use this research for";
						mes "good and noble ends. Now,";
						mes "please read this thesis and";
						mes "all of my additional notes...";
						next;
						mes "^3355FFPisruik thoroughly";
						mes "explains the properties";
						mes "of his medicine, the reaction";
						mes "of the human organs to it, as";
						mes "well as a few warnings about";
						mes "the medicine's side effects.^000000";
						next;
						set ALCHE_SK,11;
						getitem 7434,1; //Elemental_Create_Book
						mes "[Pisruik]";
						mes "Well, you should be";
						mes "ready to make your own";
						mes "potions that are a variation";
						mes "of my medicine. But you'll";
						mes "probably need to keep that";
						mes "thesis as a ready reference.";
						next;
						mes "[Pisruik]";
						if (Sex == 1) {
							mes "Hopefully, we'll";
							mes "meet again sometime";
							mes "in the future. Good luck on";
							mes "your journeys, adventurer.";
							mes "*Cough cough* Now... What";
							mes "will be my next project?";
						}
						else {
							mes "Anyway, I need to be";
							mes "working on a new project";
							mes "soon, so I suppose this is";
							mes "where we part ways for now.";
							mes "But I must say, it was truly";
							mes "a great pleasure to meet you...";
						}
						close;
					}
					mes "[Pisruik]";
					mes "R-Really...?";
					mes "Well, if you ever change";
					mes "your mind, feel free to come";
					mes "back for me to teach you.";
					if (Sex == 0) {
						mes "And it's no trouble at all!";
						mes "I really enjoy your company...";
					}
					close;
				}
				else {
					mes "^3355FFUnfortunately, there";
					mes "is nothing in your inventory";
					mes "that seems like a suitable";
					mes "replacement for Pisruik's";
					mes "broken glasses.^000000";
					close;
				}
			}
			mes "["+ strcharinfo(0) +"]";
			mes "Listen, you look so";
			mes "much better when you're";
			mes "not wearing glasses.";
			next;
			mes "[Pisruik]";
			mes "Excuse me,";
			mes "come again?";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "Hahahahhaha~!";
			mes "No-nothing at all!";
			close;
		}
		else if (ALCHE_SK == 10) {
			mes "[Pisruik]";
			mes "So, "+ strcharinfo(0) +",";
			mes "Would you like me to";
			mes "teach you the results";
			mes "of the research I've''";
			mes "been conducting?";
			next;
			if (select("Yes!:No, thanks.") == 1) {
				mes "[Pisruik]";
				mes "Great, "+ strcharinfo(0) +"!";
				mes "I know I can trust you";
				mes "to use this research for";
				mes "good and noble ends. Now,";
				mes "please read this thesis and";
				mes "all of my additional notes...";
				next;
				mes "^3355FFPisruik thoroughly";
				mes "explains the properties";
				mes "of his medicine, the reaction";
				mes "of the human organs to it, as";
				mes "well as a few warnings about";
				mes "the medicine's side effects.^000000";
				next;
				set ALCHE_SK,11;
				getitem 7434,1; //Elemental_Create_Book
				mes "[Pisruik]";
				mes "Well, you should be";
				mes "ready to make your own";
				mes "potions that are a variation";
				mes "of my medicine. But you'll";
				mes "probably need to keep that";
				mes "thesis as a ready reference.";
				next;
				mes "[Pisruik]";
				if (Sex == 1) {
					mes "Hopefully, we'll";
					mes "meet again sometime";
					mes "in the future. Good luck on";
					mes "your journeys, adventurer.";
					mes "*Cough cough* Now... What";
					mes "will be my next project?";
				}
				else {
					mes "Anyway, I need to be";
					mes "working on a new project";
					mes "soon, so I suppose this is";
					mes "where we part ways for now.";
					mes "But I must say, it was truly";
					mes "a great pleasure to meet you...";
				}
				close;
			}
			mes "[Pisruik]";
			mes "R-Really...?";
			mes "Well, if you ever change";
			mes "your mind, feel free to come";
			mes "back for me to teach you.";
			if (Sex == 0) {
				mes "And it's no trouble at all!";
				mes "I really enjoy your company...";
			}
			close;
		}
		else if (ALCHE_SK == 11) {
			if (countitem(7434) == 0) {
				mes "[Pisruik]";
				mes "Uh oh...";
				mes "You lost the thesis";
				mes "I wrote for you? I don't";
				mes "have the time to write";
				mes "another one for you now...";
				close;
			}
			else if (countitem(7434) == 1) {
				mes "[Pisruik]";
				mes "So, how have you been";
				mes "using the potions that";
				mes "I've taught you to make?";
				mes "Hopefully, they'll come";
				mes "in handy in your adventures.";
				close;
			}
			else if (countitem(7434) > 1) {
				mes "[Pisruik]";
				mes "Huh, so copies of my";
				mes "thesis are circulating";
				mes "around in public? Well,";
				mes "I'm sorry, but I don't have";
				mes "time to autograph your copy...";
				close;
			}
		}
		else {
			mes "[Pisruik]";
			mes "Mmm...?";
			mes "Did you need anything";
			mes "in particular? Though,";
			mes "I'm afraid someone in";
			mes "my position won't be";
			mes "much help to you.";
			close;
		}
	}
	else {
		mes "[Pisruik]";
		mes "Mmm...?";
		mes "Did you need anything";
		mes "in particular? Though,";
		mes "I'm afraid someone in";
		mes "my position won't be";
		mes "much help to you.";
		close;
	}
}

yuno_in04,22,107,5	script	Irache#qsk_al	740,{
	mes "[Irache]";
	mes "Heh heh heh...!";
	mes "It's done! With this";
	mes "formula, I can melt any";
	mes "substance in the world!";
	mes "Hahahaha! Nothing stands";
	mes "between me and world domi--";
	next;
	mes "[Irache]";
	mes "OWWWW!";
	mes "The secret formula!";
	mes "It's burning through";
	mes "the test tube! I've made";
	mes "it too powerful! Confound it!";
	close;
}

yuno_in04,27,107,4	script	Degas#qsk_al	748,{
	mes "[Degas]";
	mes "It's such a pain working";
	mes "so close to these other";
	mes "scientists. The guy next";
	mes "time is always cackling";
	mes "about taking over the";
	mes "world and whatnot.";
	next;
	mes "[Degas]";
	mes "And this other geek is";
	mes "always coughing. Between";
	mes "the two of them, it's far too";
	mes "noisy to focus on my research!";
	mes "If only I could work in my very^FFFFFF ^000000 own private, secret laboratory...";
	close;
}

yuno_in04,33,106,4	script	Pile of Books#qsk_al	111,{
	mes "^3355FFIt's simply a pile";
	mes "of scattered documents.";
	mes "Although it seems unorganized,";
	mes "it doesn't look like the people";
	mes "here have any trouble finding^FFFFFF ^3355FF what they need when they need it.";
	close;
}

//============================================================ 
// Old changelog
//============================================================ 
//= 1.0 for fully working skills only [Lupus]
//= 1.1 Added more new skill quests for more classes [Lupus]
//= Somehow eA engine doesn't let you keep learn't skill V_V'
//= 1.2 Added to correct locations, correct NPC's, fixed
//= some of the items required and made them into real
//= quests. [Reddozen] 
//= 1.3 Fixed bugs and minor typos. Optimized [Lupus]
//= 1.3a fixed an item ID typo, thx 2Spiritual Kid
//= 1.3b Splitted into different files [DracoRPG]
//= 1.4 Added Creators + Baby Alchemists can pass Bio Ethics
//= 	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]
//= 1.8 Added some missing NPCs from the Laboratory. [Samuray22]
//= 1.8a replaced item "names" with item id [Lupus]
//============================================================