//===== eAthena Script ======================================= 
//= Alchemist Skills Quests
//===== By: ================================================== 
//= Lupus, Reddozen, Samuray22
//===== Current Version: ===================================== 
//= 1.8a
//===== Compatible With: ===================================== 
//= eAthena Revision 3800+
//===== Description: ========================================= 
//= Temp quests for new skills for 2nd classes
//===== Additional Comments: ================================= 
//= 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]
//============================================================


//============================================================
// ALCHEMIST - ELEMENTAL POTION CREATION
//============================================================
yuno_in04,33,108,6	script	Pisruik Quv	883,{
	if (Class == Job_Alchemist || Class == Job_Creator) {
		if (JobLevel < 40 && Class == Job_Alchemist) {
			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(715) > 4 && countitem(1093) > 3 && countitem(950) > 9 && countitem(924) > 9) {
								delitem 715, 5;
								delitem 1093, 4;
								delitem 950, 10;
								delitem 924,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(1032) > 19) {
				delitem 1032, 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(1032) > 0) {
				delitem 1032, 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(2203) > 0) {
					delitem 2203, 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 7434, 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 7434, 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(7434) == 0) {
				mes "[Pisruik]";
				mes "....I guess,";
				mes "You haven't found much use for that item.";
				close;
			} else if(countitem(7434) == 1) {
				mes "[Pisruik]";
				mes "Has the item been very helpful to you?";
				close;
			} else if(countitem(7434) > 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_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_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;
	}
}

yuno_in04,22,107,3	script	Irahae	740,{
	mes "[Irahae]";
	mes "....";
	mes ".....";
	mes "Ha Ha";
	mes "I've finally made it,";
	mes "A cursed chemical which";
	mes "Can dissolve anything...";
	next;
	mes "[Irahae]";
	mes "....But test tube isn't melting...";
	mes "Did I fail again.";
	close;
}

yuno_in04,27,107,4	script	Degas	748,{
	mes "[Degas]";
	mes "Ugh, only if I had money";
	mes "Person next to me always mutters about curses.";
	mes "And the other four-eyed idiot";
	mes "Always coughs. Sigh";
	next;
	mes "[Degas]";
	mes "Only if I had some money";
	mes "I wouldn't have to go through this.";
	mes "Sigh...";
	close;
}

yuno_in04,33,106,4	script	Pile of Books	111,{
	mes "== There is a messy pile of ==";
	mes "== Books and papers lying around. ==";
	mes "== But the owner of the table still ==";
	mes "== manages to find things that are needed. ==";
	close;
}

//============================================================
// ALCHEMIST - Bio Ethics Quest (Homunculi Skill Branch)
//============================================================

//=====================Requires Bug Testing=====================
lhz_in01,46,125,6	script	Rekenber Guard	867,{
	mes "[Rekenber Guard]";
	if(isequipped(2241) && isequipped(2243)){
		mes "......................";
		next;
		switch(select("Nice day, huh?","Cancel")){
			case 1:
				mes "[Rekenber Guard]";
				mes "...";
				close2;
				warp "lhz_in01",282,172;
				end;
				break;
			case 2:
				close;
				break;
		}
	}
	else{
		mes "...";
		close;
	}
}

lhz_in01,199,137,8	script	Scientist#2	865,{
	mes "[Scientist]";
	mes "Whoa whoa~!";
	mes "Please! Don't";
	mes "touch anything!";
	mes "I'm dealing with highly";
	mes "volatile chemicals here!";
	close;
}
lhz_in01,204,138,6	script	Keshibien	750,{
	if(bioeth >= 2){
		//Unofficial text
		mes "[Keshibien]";
		mes "Hello there~";
		mes "Are you looking for";
		mes "more information about";
		mes "homunculus?";
		next;
		mes "[Keshibien]";
		mes "I shouldn't say";
		mes "anything, but look";
		mes "for someone named";
		mes "Bringel in Lighthalzen.";
		if(bioeth == 2) set bioeth,3;
		close;
		//Unofficial text end
	}
	mes "[Keshibien]";
	mes "Hello there~";
	mes "You must be from";
	mes "Rune-Midgarts, right?";
	mes "It's nice to meet you.";
	next;
	mes "[Keshibien]";
	mes "I hear that the";
	mes "Alchemists from";
	mes "over there are pretty";
	mes "skilled. I wonder if I'll";
	mes "ever get the change to";
	mes "collaborate with any of them...";
	close;
}
lhz_in01,203,123,8	script	Scientist#3	750,{
	mes "[Scientist]";
	mes "Alright. Pull one test";
	mes "tube out of the machine,";
	mes "replace the other test";
	mes "tube over here and then";
	mes "clean the first test tube?";
	next;
	mes "[Scientist]";
	mes "Or do I clean the test tube,";
	mes "put it into the machine and";
	mes "then replace the other one?";
	mes "I'm so confused with this";
	mes "procedure! If only I didn't";
	mes "lose the instructions...";
	close;
}
lhz_in01,221,131,3	script	Scientist#4	865,{
	mes "[Scientist]";
	mes "It takes so long for";
	mes "this device to process";
	mes "all the data and give me";
	mes "the results. Still, the wait";
	mes "heightens my anticipation...";
	close;
}
lhz_in01,218,141,0	script	Alchemist#2	98,{
	mes "[Alchemist]";
	mes "Out of all humans,";
	mes "I believe Kellasus is";
	mes "the one who has come";
	mes "closest to discovering";
	mes "the secrets of life. He";
	mes "never fails to amaze me...";
	next;
	mes "[Alchemist]";
	mes "I'm also impressed by the";
	mes "fact that he doesn't let his";
	mes "work keep him from being the";
	mes "best father and husband that";
	mes "he can for his family. He's";
	mes "an example for all of us.";
	next;
	mes "[Alchemist]";
	mes "Kellasus really is";
	mes "an amazing person.";
	mes "There isn't one Alchemist";
	mes "that I know who doesn't look";
	mes "up to him in the realms of";
	mes "both science and personal life.";
	close;
}
lhz_in01,224,140,8	script	Kellasus	57,{
	if(MISC_QUEST&64){
		mes "[Kellasus]";
		mes "I already taught you";
		mes "skills of the homunculus...";
		if(getskilllv(238) == 0 && BaseJob == Job_Alchemist) skill 238,1,0;
		close;
	}
	switch(bioeth){
	case 4:
		mes "[Kellasus]";
		mes "...You're really hard to handle.";
		mes "I don't think I should";
		mes "teach you biotechnology.";
		mes "Besides that, you know";
		mes "nothing about homunculus!";
		next;
		menu "I've learned that",-;
		mes "[Kellasus]";
		mes "Oh really?";
		mes "I will have to test you";
		mes "on your knowledge of";
		mes "homunculus then.";
		next;
		mes "[Kellasus]";
		mes "First question.";
		mes "What is the skill that lets the";
		mes "homunculus stay in peace?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Vaporize"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "That's right. Second question.";
		mes "What is the item";
		mes "that is required to";
		mes "summon or create";
		mes "a homunculus?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Embryo"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "Correct. But this is not the end yet.";
		mes "What is the name";
		mes "of a skill";
		mes "that could let you";
		mes "revive a homunculus?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Homunculus Resurrection"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "After all these discussions,";
		mes "I won't teach anyone";
		mes "the skills of homunculus.";
		mes "The decision is final";
		mes "and that's it!";
		set bioeth,5;
		close;
		break;
	case 5:
		mes "[Kellasus]";
		mes "After all these discussions,";
		mes "I won't teach anyone";
		mes "the skills of homunculus.";
		mes "The decision is final";
		mes "and that's it!";
		close;
		break;
	case 6:
	//Unofficial text and story -.-;
		mes "[Kellasus]";
		mes "Oh it's you again? You're really determined.";
		mes "Well most of the Alchemist";
		mes "are people who never";
		mes "let go of their dreams";
		next;
		menu "Let's talk about others",-;
		mes "[Kellasus]";
		mes "You've spoke to my son?";
		mes "What did he say?";
		next;
		mes "[Kellasus]";
		mes "...";
		next;
		mes "[Kellasus]";
		mes "He wants me to get back? Okay, well...";
		mes "I guess you've deserved it.";
		mes "Here you are, secrets of homunculus are yours now~";
		if(BaseJob == Job_Alchemist) skill 238,1,0;
		set MISC_QUEST,MISC_QUEST|64;
		set bioeth,0;
		close;
	default:
		break;
	}
	switch(@keltalk){
	case 1:
	//No official text to put here, so I just repeated first text
		mes "[Kellasus]";
		mes "Hmm. Who decides what";
		mes "is right and wrong? What is";
		mes "meant to be known and what";
		mes "secrets were never intended";
		mes "for mankind to understand?";
		set @keltalk,2;
		close;
		break;
	case 2:
		mes "[Kellasus]";
		mes "Haven't I told you not to come back again?";
		mes "Please leave now!";
		mes "No matter what you do.";
		mes "I won't teach you anything about homunculus";
		set @keltalk,3;
		set bioeth,1;
		close;
		break;
	case 3:
		mes "[Kellasus]";
		mes "Haven't I told you not to come back again?";
		mes "Please leave now!";
		mes "No matter what you do.";
		mes "I won't teach you anything about homunculus";
		close;
		break;
	default:
		mes "[Kellasus]";
		mes "Hmm. Who decides what";
		mes "is right and wrong? What is";
		mes "meant to be known and what";
		mes "secrets were never intended";
		mes "for mankind to understand?";
		if(BaseJob == Job_Alchemist) set @keltalk,1;
		close;
		break;
	}
}
lhz_in01,217,121,6	script	Repairman	851,{
	mes "[Repairman]";
	mes "No wonder these things";
	mes "break all the time! These";
	mes "machines have been totally";
	mes "abused! Ugh, there's no";
	mes "appreciation for all of this";
	mes "convenient technology...";
	next;
	mes "[Repairman]";
	mes "Yeah, all of this lab";
	mes "equipment is really sensitive,";
	mes "not to mention expensive. If";
	mes "you ever handle this stuff, you";
	mes "need to be extra cautious.";
	close;
}
lhz_in01,225,122,4	script	Skrajiad	754,{
	mes "[Skrajiad]";
	mes "Alchemy is wondrous...";
	mes "It incorporates every";
	mes "science and many other";
	mes "fields of knowledge that";
	mes "it's not enough to be jack";
	mes "of all trades... No...";
	next;
	mes "[Skrajiad]";
	mes "In a sense, you must";
	mes "be a master of all trades";
	mes "to be proficient in Alchemy";
	mes "But it's incredibly rewarding to";
	mes "those of us who never stop asking";
	mes "how and why our world works.";
	if(bioeth == 1) set bioeth,2;
	close;
}
lhz_in02,269,273,4	script	Bringel	709,{
//Unofficial Text
	if(bioeth == 3){
		mes "[Bringel]";
		mes "Oh, you're here to learn about Homunculus?";
		mes "Well, I can't really help you...";
		next;
		mes "[Bringel]";
		mes "However, I've heard about a skill named";
		mes "Homunculus Resurrection.";
		mes "It seems it is a very important thing";
		mes "for people working on them.";
		set bioeth,4;
		close;
	}
	mes "[Bringel]";
	mes "Isn't this hotel great?";
	mes "I can relax on the couch";
	mes "And not care about what I";
	mes "did in the past...";
	close;
}
lhz_in03,106,34,4	script	Golin	706,{
//Unofficial text
	if(bioeth == 5){
		mes "[Golin]";
		mes "Did you see my";
		mes "daddy at the lab?";
		mes "Tell him I said hi!";
		set bioeth,6;
		close;
	}
	mes "[Golin]";
	mes "Where's daddy?";
	mes "I really want";
	mes "daddy to come back";
	mes "from the lab.";
	close;
}
