//===== eAthena Script =======================================
//= Alchemist Job Quest
//===== By: ==================================================
//= nestor_zulueta (Fusion)
//= converted by Darkchild
//===== Current Version: =====================================
//= 1.6a
//===== Compatible With: =====================================
//= eAthena 1.0 +
//===== Description: =========================================
//= Alchemist job quest based off of official iRO quest.
//===== Additional Comments: =================================
//= v1.0 Working.
//= npc/quests/counteragent_mixture.txt Also Needed
//= npc/quests/quests_yuno.txt Also Needed [Darkchild]
//= v1.1 Fixed some minor bugs. Optimized some lines. Re-organized the script a bit.
//= Giving Parmry NPC, Hammer and Old Book now waves the 50000 fee. (based of mRO website)
//= Having a joblvl of 50 allows you to skip Rasputin's test. (based of mRO website) [kobra_k88]
//= 1.2 fixed a few typos (have to hunt more) [Lupus]
//= 1.3 Added Baby Class Support [Lupus]
//= 1.6 Added a func which prevent advanced classes passing
//= 2nd Job Quests again. It also guides adv classes where
//= to go. [Lupus]
//= 1.6a fixed some wrong answers, thanks to zlider for info [Lupus]
//============================================================
//==================================================================================================//
// Registration and First Test
//==================================================================================================//
alde_alche.gat,27,185,4 script Parmry Gianino 744,{
callfunc "F_BlockHigh",29,"Merchant High",42,"Creator","Parmry Gianino";
mes "[Parmry Gianino]";
if(BaseJob == 5) goto L_Merc;
if(BaseJob == Job_Alchem) goto L_Alch;
L_Other:
mes "Welcome to the Alchemist Union. Ah, I apologize but I'm busy right now.";
close;
L_Alch:
mes "Hey there fellow Alchemist. How's the business going? Good I hope, well good luck to you.";
close;
L_Merc:
if(ALCH_Q == 1) goto L_Check;
if(ALCH_Q == 2) goto L_Test2;
if(ALCH_Q == 3) goto L_Test3;
if(ALCH_Q == 4) goto L_Test4;
if(ALCH_Q == 5) goto L_Test5;
if(ALCH_Q == 6) goto L_Test6;
if(ALCH_Q == 7) goto L_GoChange;
mes "Welcome to the Alchemist Union.";
mes "How may i help you?";
next;
menu "I would like to learn about Alchemey",M_Learn, "I want to become an Alchemist.",L_Start, "Nothing.",M_End;
M_Learn:
mes "[Parmry Gianino]";
mes "Alchemists study and create new materials using a variety of existing substances.";
mes "They research the atoms of chemicals, and experiment to change the properties of the chemicals.";
next;
mes "[Parmry Gianino]";
mes "Most people think the final goal is to create gold, but that's not the entire truth.";
mes "They make anything from simple medicines, to new materials.";
next;
mes "[Parmry Gianino]";
mes "At times, some research the creation of life .... but that's considered god's territory...";
mes "That field is so complex, everyone simply researhes for now.";
next;
mes "[Parmry Gianino]";
mes "If you are interested in becoming an Alchemist, I recommend that you gain a lot experience as a Merchant.";
mes "Being a merchant is a great opportunity to learn about materials while you deal with them.";
next;
mes "[Parmry Gianino]";
mes "Only you can decide for yourself.";
mes "The road to becoming an Alchemist is very challenging.";
mes "You will need to focus on experimenting and researching rather than trade.";
close;
M_End:
mes "[Parmry Gianino]";
mes "Umm... Please say something if you need anything.";
close;
L_Start:
mes "[Parmry Gianino]";
if(JobLevel < 40) goto L_LowLvl;
mes "Is that so? My name is Parmry Gianino of the Alchemist Association.";
mes "Nice to meet you.";
next;
mes "[Parmry Gianino]";
mes "If you join our Union and pass some training you will be officially recognized,";
mes "as an Alchemist and be able to join our researches.";
next;
mes "[Parmry Gianino]";
mes "But we dont accept everyone.";
mes "You must have a lot of effort, tenacity, and be able to devote yourself to research.";
next;
mes "[Parmry Gianino]";
mes "There are a couple of requirements to join the association....";
mes "but we'll discuss that after you apply.";
next;
mes "[Parmry Gianino]";
mes "Then, would you like to apply to register?";
next;
menu "I would like to apply.",M_Apply,"I'll do it later.",-;
mes "[Parmry Gianino]";
mes "If you are a talented Merchant,";
mes "you are always welcome here.";
mes "Come again soon.";
close;
M_Apply:
mes "[Parmry Gianino]";
mes "Fill out this application form please.....";
next;
mes "(you fill out the form and hand it back)";
next;
mes "[Parmry Gianino]";
mes "Very good. In order to join the Alchemist Union you must first pay a ^5533FF50,000^000000 zeny membership fee.";
mes "You will also need to bring us a few items as well.";
next;
mes "[Parmry Gianino]";
mes "Of course if you bring us an ^5533FFOld Magic Book^000000 and an ^5533FFHammer of Blacksmith^000000...";
mes "You won't have to pay the fee.";
next;
mes "[Parmry Gianino]";
mes "Let's see.... you'll need to bring us....^5533FF100 Mini Furnaces^000000.";
mes "Once you have the Mini Furnaces come back and see me.";
next;
mes "[Parmry Gianino]";
mes "When you come back I will also collect the ^5533FF50,000^000000 zeny fee so don't forget about that either.";
mes "See you soon...";
set ALCH_Q,1;
close;
L_LowLvl:
mes "You must be at least Job Level 40 to become a Alchemist.";
close;
L_Check:
mes "Oh, your back already... lets see....";
next;
mes "[Parmry Gianino]";
if(countitem(612) < 100) goto L_NoItems;
if(countitem(1005) > 0 && countitem(1006) > 0) goto L_Skip;
if(zeny < 50000) goto L_NoZeny;
set zeny,zeny - 50000;
delitem 612, 100;
mes "You have 50,000 zeny...... You brought 100 mini furnaces.... Great!";
mes "Now you are ready to learn the basics of being an Alchemist.";
next;
L_Cont:
mes "[Parmry Gianino]";
mes "But before that... ^5533FFRasputin^000000 wants to see you.....";
mes "Hmm..... I'm not sure what it could be about....";
next;
mes "[Parmry Gianino]";
mes "You should go visit him now. Just go down those stairs to my right. His room is in the SouthEastern corner.";
set ALCH_Q,2;
close;
L_NoZeny:
mes "You still need to pay the ^FF553350,000^000000 zeny membership fee.";
mes "Let me know when you have enough money.";
close;
L_NoItems:
mes "As I mentioned before, you must bring ^FF3355100 Mini Furnaces^000000 to join the union.";
mes "Please come back when you are ready...";
close;
L_Skip:
mes "Oh, you have an ^5533FFOld Magic Book^000000 and an ^5533FFHammer of Blacksmith^000000........";
mes "That means you don't have to pay the membership fee.";
next;
mes "[Parmry Gianino]";
mes "Excellent. Now I'll just take the Book, Hammer, 100 mini furnaces, and you'll be all set to learn the basics of being an Alchemist.";
next;
delitem 1005,1;
delitem 1006,1;
delitem 612, 100;
goto L_Cont;
L_Test2:
mes "Go visit ^5533FFRasputin^000000 now!";
close;
L_Test3:
mes "Go visit ^5533FFDarwin^000000 now!";
close;
L_Test4:
mes "Go visit ^5533FFVan Helmont^000000 now!";
close;
L_Test5:
mes "Go visit ^5533FFNicholas Flamel^000000 now!";
close;
L_Test6:
mes "Go back to ^5533FFNicholas Flamel^000000 now!";
mes "He still has one more test for you.";
close;
L_GoChange:
mes "Wow you finished all of the tests? Great now you can visit the Headmaster, ^5533FFVincent Carsciallo^000000.";
mes "He's the one who will change you into an Alchemist.";
close;
}
//==================================================================================================//
// 2nd Test: Math test :(
//==================================================================================================//
alde_alche.gat,175,107,4 script Rasputin Gregory 749,{
mes "[Rasputin Gregory]";
if(BaseJob == 5) goto L_Merc;
L_Other:
mes "What is it, kikikiki. Are you curious about what I do...?";
mes "I'll just especially let you know. You see I... Kekeke..";
next;
mes "[Rasputin Gregory]";
mes "Am researching! Once this potion is complete... you will be able to take over an entire country!!";
next;
mes "[Rasputin Gregory]";
mes "Kikikikikekekekek. It's a secret to the people of Prontera.....";
close;
L_Merc:
if(ALCH_Q == 2) goto L_Start;
if(ALCH_Q == 3) goto L_Done;
mes "Kikikikikekekekeke.";
mes "What is it! You punk.";
next;
mes "[Rasputin Gregory]";
mes "A Merchant should go and set up a shop...";
mes "Why'd you come to a place like this!?";
mes "Are you looking for something to scab off?";
next;
mes "[Rasputin Gregory]";
mes "Kikiki... Go, leave this place.";
mes "Dont loiter ... Kekeke.";
close;
L_Start:
if(ALCH_Q2 == 1) goto L_ReTest;
if(JobLevel == 50) goto L_Skip;
mes "Keke, another dumb one has stumbled into here.";
mes "Join the Union?";
next;
mes "[Rasputin Gregory]";
mes "I don't like it... I just don't...!";
mes "Everywhere, all joining and being called Alchemist just for knowing how to mix herbs!!!";
next;
mes "[Rasputin Gregory]";
mes "Kikiki, so for that reason an interview is necessary!";
mes "I plan on scolding all the incompetent ones and chasing them away!!";
next;
mes "[Rasputin Gregory]";
mes "You look dumb founded. It must be pretty crazy.";
mes "If you were thinking of just changing clothes you thought wrong... Kekeke..";
next;
mes "[Rasputin Gregory]";
mes "Now try solving the problems I give you.";
mes "We'll see how smart you are.";
next;
set @score,0;
//set of question 1
q1:
mes "[Rasputin Gregory]";
mes "12+23+34+45 =?";
next;
input @num;
if(@num == 114) set @score,@score+10;
q2:
mes "[Rasputin Gregory]";
mes "1000-36-227-348 =?";
next;
input @num;
if(@num == 389) set @score,@score+10;
q3:
mes "[Rasputin Gregory]";
mes "9765/3/5/7 =?";
next;
input @num;
if(@num == 93) set @score,@score+10;
q4:
mes "[Rasputin Gregory]";
mes "(2646/7) + (13*28) =?";
next;
input @num;
if(@num == 742) set @score,@score+10;
q5:
mes "[Rasputin Gregory]";
mes "With a 24% discount";
mes "How much are 12 Red Potions,";
mes "5 Fly Wings, and ";
mes "1 Butterfly Wing altogether?";
next;
input @num;
if(@num == 909) set @score,@score+10;
q6:
mes "[Rasputin Gregory]";
mes "What is the total weight of 3 ";
mes "Scimiters,";
mes "2 Helms and 1 Coat";
next;
input @num;
if(@num == 450) set @score,@score+10;
q7:
mes "[Rasputin Gregory]";
mes "What is the total defense of ";
mes "a Biretta, Mantle, Opera Mask,";
mes "Ribbon, ";
mes "Muffler, Boots, and Ear Muffs?";
next;
input @num;
if(@num == 19) set @score,@score+10;
q8:
mes "[Rasputin Gregory]";
mes "If you buy 5 Helms with a 24%";
mes "discount ";
mes "and sell it at 20%, how much do you";
mes "earn?";
next;
input @num;
if(@num == 1760) set @score,@score+10;
goto L_Total;
L_ReTest:
mes "What, you want to take the test again?";
mes "I thought I told you to leave.";
next;
mes "[Rasputin Gregory]";
mes "Well, I'll let you go this one time...";
mes "I forgive you ... Kekeke.";
mes "Do well this time...";
next;
mes "[Rasputin Gregory]";
mes "Now then, answer the question I ask.";
mes "Let see how smart you are.";
next;
set @score,0;
//set of question 2
q11:
mes "[Rasputin Gregory]";
mes "13+25+37+48=?";
next;
input @num;
if(@num == 123) set @score,@score+10;
q12:
mes "[Rasputin Gregory]";
mes "1000-58-214-416 =?";
next;
input @num;
if(@num == 312) set @score,@score+10;
q13:
mes "[Rasputin Gregory]";
mes "12*24*3=?";
next;
input @num;
if(@num == 864) set @score,@score+10;
q14:
mes "[Rasputin Gregory]";
mes "10530/3/5/2=?";
next;
input @num;
if(@num == 351) set @score,@score+10;
q15:
mes "[Rasputin Gregory]";
mes "(35*19) - (1792/7) =?";
next;
input @num;
if(@num == 409) set @score,@score+10;
q16:
mes "[Rasputin Gregory]";
mes "(2368/8) + (24*17) = ?";
next;
input @num;
if(@num == 704) set @score,@score+10;
q17:
mes "[Rasputin Gregory]";
mes "(2646/7) + (13*28)=?";
next;
input @num;
if(@num == 742) set @score,@score+10;
q18:
mes "[Rasputin Gregory]";
mes "If buying at a 24% discount,";
mes "What is the total price of";
mes "15 Green Potions,";
mes "6 Magnifiers and 4 Traps?";
next;
input @num;
if(@num == 934) set @score,@score+10;
q19:
mes "[Rasputin Gregory]";
mes "What is the total weight of ";
mes "3 Ring Pommel Sabers,";
mes "4 Caps and 2 Boots?";
next;
input @num;
if(@num == 550) set @score,@score+10;
q20:
mes "[Rasputin Gregory]";
mes "What is the total defense of a ";
mes "Buckler, Coat, Gas Mask, Big";
mes "Ribbon, Ribbon, Sakkat and";
mes "Glasses?";
next;
input @num;
if(@num == 16) set @score,@score+10;
q21:
mes "[Rasputin Gregory]";
mes "How much zeny do you make";
mes "if you buy Tights at a 24%";
mes "discount";
mes "and sell it at 20% of the normal";
mes "price?";
next;
input @num;
if(@num == 2840) set @score,@score+10;
L_Total:
mes "[Rasputin Gregory]";
if(@score < 80) goto L_Failed;
set ALCH_Q,3;
set ALCH_Q2, 0;
mes "Kikiki... I'll let you go.";
mes "Do some good research and be of some help to Rasputin... Kikiki!";
next;
mes "[Rasputin Gregory]";
mes "Well then go! ^5533FFGo to Darwin^000000.";
mes "He'll teach you how to do the experiments.";
mes "Tell him I sent you.";
next;
mes "[Rasputin Gregory]";
mes "Kikikikekeke.";
mes "Dont think this is the end of it!";
close;
L_Failed:
set ALCH_Q2,1;
mes "...Kekeke, you idiot,";
mes "I feel dumb asking you all the question!";
mes "you got them all wrong!!!";
next;
mes "[Rasputin Gregory]";
mes "How can a person that can't even answer these question think of being an Alchemist!";
mes "What? did you get any right?";
next;
mes "[Rasputin Gregory]";
mes "Stupid! If you get one wrong everything is wrong for an Alchemist!";
mes "Go! Leave! Get out of here!";
close;
L_Done:
mes "What are you doing? Leave already.";
mes "Go to ^5533FFDarwin^000000.";
mes "He'll teach you how to do the experiments.";
mes "Tell him I sent you.";
next;
mes "[Rasputin Gregory]";
mes "Kikikikekeke.";
mes "Dont think this is the end of it!";
close;
L_Skip:
mes "Hmm... you have a pretty high job level..... I'll be nice today and let you pass.";
mes "Next you should go see ^5533FFDarwin^000000.";
mes "He'll teach you how to do the experiments.";
mes "Tell him I sent you.";
set ALCH_Q,3;
set ALCH_Q2, 0;
close;
}
//==================================================================================================//
// 3rd Test: Mix some medicine
//==================================================================================================//
alde_alche.gat,13,15,8 script Darwin 750,{
mes "[Darwin]";
if(BaseJob == 5) goto L_Merc;
L_Other:
mes "more to lose or gain...";
mes "It's always like that...";
next;
mes "[Darwin]";
mes "All I can see through my cursed eyes";
mes "are illusions from the past,";
mes "Ahahahaha...";
next;
mes "[Darwin]";
mes "There's no such thing as paradise ... is there ?";
mes "My love Harmona.... Aah....";
close;
L_Merc:
if(ALCH_Q == 3) goto L_Start;
if(ALCH_Q == 4) goto L_Done;
goto L_Other;
L_Start:
if(ALCH_Q2 == 1) goto L_Check;
mes "...........";
mes ".........";
mes "....Who is it...";
next;
mes "[Darwin]";
mes "A wolf? Or a human...";
mes "You must be looking for something as well.";
next;
mes "[Darwin]";
mes "If you have something precious, be careful.";
mes "You may lose something else while while going after another...";
next;
mes "[Darwin]";
mes "..........";
next;
mes "[Darwin]";
mes "... but what brings you here.";
mes "Coming to a place like this.";
next;
menu "I want to learn how to experiment.",M_Exp, "Tell me more about flowers.",M_Flow;
M_Flow:
mes "[Darwin]";
mes ".......";
mes "......";
mes "...think about your precious things...";
next;
mes "[Darwin]";
mes ".... There is a flower that I faintly remember....";
next;
mes "[Darwin]";
mes "I divulged into researching one thing.....";
mes "for the one I love...";
next;
mes "[Darwin]";
mes "Lets just say that it was about the relationship between wolf and flowers...";
mes "I wont tell you the details.";
next;
mes "[Darwin]";
mes "But yes ... it was a flower.";
mes "with its shine, it was said to let you see paradise Illusion Flower...";
next;
mes "[Darwin]";
mes "I made a homunculus.";
mes "Nobody believe me. that I made life from a flower!!!";
mes "My research!";
next;
mes "[Darwin]";
mes "But now, I have nothing left..";
mes "It's all over.";
mes "Time has stopped at that moment in my life...";
next;
mes "[Darwin]";
mes "Aag... Harmona, in the beautiful fields of flowers,";
mes "where have you gone....";
close;
M_Exp:
mes "[Darwin]";
mes "You want to learn Alchemy...";
mes "All the knowledge I possess..";
mes "I made to make my dreams come true...";
next;
mes "[Darwin]";
mes "I'll teach you the basics...";
mes "but you must determine your own wishes.";
next;
mes "[Darwin]";
mes "So, here are the basics.";
mes "This is how you make simple medicine...";
mes "Prepare some stuff...";
next;
mes "[Darwin]";
mes "^5533FF3 Medicine Bowls";
mes "3 Empty Bottles";
mes "1 Red Herb";
mes "1 Yellow Herb";
mes "1 White Herb^000000";
next;
mes "[Darwin]";
mes "Once you have prepared all the items... come here.";
set ALCH_Q2, 1;
close;
L_Check:
mes "...........";
mes ".........";
mes "...Who is it....";
next;
mes "[Darwin]";
mes "Ah You're the one that wants to learn Alchemy...";
mes "So did you prepare everything?";
next;
if(countitem(7134) < 3 || countitem(713) < 3 || countitem(507) < 1 || countitem(508) < 1 || countitem(509) < 1) goto L_NotEnuf;
delitem 7134,3;
delitem 713,3;
delitem 507,1;
delitem 508,1;
delitem 509,1;
mes "[Darwin]";
mes "Seems like you have everything ready.";
mes "As i promised, I'll teach you how to make medicine";
next;
mes "[Darwin]";
mes "First, prepare the Medicine Bowl then put the Herbs inside like this.";
mes "And you slowly crush them.";
next;
mes "[Darwin]";
mes "Pour small amounts of clean water and stirr until it become thick, ";
mes "then add some more Herbs.";
next;
mes "[Darwin]";
mes "That's how you make it if you think you have enough, ";
mes "gently pour it into an empty bottle";
next;
mes "[Darwin]";
mes "There you go, its complete.";
mes "This time, do as I showed you.";
mes "It should be easy since its so simple.";
next;
mes "[Darwin]";
mes "... even though you don't have one?";
next;
set @score,0;
menu "Prepare the medicine bowl",-, "Wear the medicine bowl on the head",M_0, "Kick the medicine bowl",M_0;
set @score,@score+10;
M_0:
menu "Put the sand into the medicine bowl",M_1, "Put the herbs into the medicine bowl",-, "Put the harp into the medicine bowl",M_1;
set @score,@score+10;
M_1:
menu "Smash the herbs",-, "Smash the medicine bowl",M_2, "Smash the Tarosia's foots",M_2;
set @score,@score+10;
M_2:
menu "Spray the water",M_3, "Drink the water",M_3, "Pour in the water",-;
set @score,@score+10;
M_3:
menu "Continue to smash the herbs",-, "Continues to eat the herbs",M_4, "Continues to dance and sing",M_4;
set @score,@score+10;
M_4:
menu "Put in the noodles and fried it",M_5, "Put into the Empty Bottle",-, "Raise the medicine bowl and drink it",M_5;
set @score,@score+10;
M_5:
mes "[Darwin]";
if(@score < 60) goto L_Failed;
mes "... Good job. It came out prettywell considering it's your first time...";
mes "As a souvenier, take these.";
getitem 501,1;
getitem 503,1;
getitem 504,1;
set ALCH_Q,4;
set ALCH_Q2,0;
next;
mes "[Darwin]";
L_Done:
mes "Go to ^5533FFVan Helmont^000000 in the next room...";
mes "He'll teach you more details.";
mes "Go learn from him.";
next;
mes "[Darwin]";
mes "Don't forget...";
mes "You must protect what is trully precious to you.....";
close;
L_Failed:
mes "... You messed up all the ingredients.";
mes "... Go bring some more.";
close;
L_NotEnuf:
mes "[Darwin]";
mes "...You must've forgotten the materials to bring.";
mes "I'll tell you again.";
mes "Dont forget them this time.";
next;
mes "[Darwin]";
mes "^5533FF3 Medicine Bowls";
mes "3 Empty Bottles";
mes "1 Red Herb";
mes "1 Yellow Herb";
mes "1 White Herb^000000";
next;
mes "[Darwin]";
mes "Come back when you are ready...";
close;
}
//==================================================================================================//
// 4th Test: Learn from Morgenstein
//==================================================================================================//
alde_alche.gat,79,19,4 script Van Helmont 748,{
mes "[Van Helmont]";
if(BaseJob == 5) goto L_Merc;
L_Other:
mes "Just a little ... yes, a little bit more ....";
mes "agh, just a little bit more and it would've been done!";
next;
mes "[Van Helmont]";
mes "Why, why another failure!!!";
mes "Nothing was wrong!";
mes "Why! Why!";
next;
mes "[Van Helmont]";
mes "Does that mean I have to get more materials...";
mes "But I should be able to complete it one day....Heeh...";
close;
L_Merc:
if(ALCH_Q == 4) goto L_Start;
if(ALCH_Q == 5) goto L_Done;
goto L_Other;
L_Start:
if(ALCH_Q2 == 1) goto L_Check;
mes "Arrrrgh... Why does this formula just stop... What's wrong.";
mes "Theoretically it's all correct...";
mes "I'm sure it's because there is an error in the formula";
mes "somewhere...";
next;
mes "[Van Helmont]";
mes "That's it, I pour it here and it should stop... but this is the formula that solution doesn't stop flowing.";
mes " How could I make such a stupid mistake... when did I switch these...";
next;
mes "[Van Helmont]";
mes "Yes, that's it. I just need to fix this part.";
mes "No need to start over.";
mes "I just have to fix it...";
mes "....But, wait. wait.";
next;
mes "[Van Helmont]";
mes ".....................";
next;
mes "[Van Helmont]";
mes "....Who are you?";
next;
menu "I want to become an Alchemist.",-,".....",M_Bye;
mes "[Van Helmont]";
mes "Oh, I see....";
mes "Haha you want to learn Alchemy in world like this, what a funny merchant... hmmm.";
next;
mes "[Van Helmont]";
mes "Well, that's nice, but I have a very urgent experiment I must tend to.";
mes "So don't get in the way.";
next;
menu "Teach me something.",-,"..........",M_Bye;
mes "[Van Helmont]";
mes "Argh... didn't I just tell you not to bother me?";
mes "Why can't you understand when I say something!";
next;
mes "[Van Helmont]";
mes "Ok, I'll give you an assignment.";
mes "Go study and come back. Let's see.";
mes "What would be good... Hmm...";
next;
mes "[Van Helmont]";
mes "Oh, I got it. Go learn from ^5533FFMorgenstein^000000. Learn how to make a ^009500Counteragent^000000 and ^FF3355Mixture^000000.";
mes "You can find him in ^5533FFGeffen^000000.";
next;
mes "[Van Helmont]";
mes "You don't need to bring what you made. But just go watch how he makes medicine and stuff.";
mes "Got it?";
next;
mes "[Van Helmont]";
mes "Well then, see you later.";
mes "You'd be best off going as soon as you can.";
set ALCH_Q2,1;
close;
M_Bye:
mes "[Van Helmont]";
mes "If you dont have business here just go away. Ok!!!";
close;
L_Check:
if(al_morgen != 1) goto L_NotRdy;
mes "Yes, cut the Tentacle..";
mes "and mix some Sticku Mucus,";
mes "Jellopy solution in the test tube Darn, where did the Medicine Bowl go...";
next;
mes "[Van Helmont]";
mes "Did I use them all.. At a time like this, grrr. I wonder if Nicholas has any left.";
mes "Ganfunnit... what a pain.";
mes "....but, wait. wait.";
next;
mes "[Van Helmont]";
mes "Ah, you're that merchant from before. So.. did you learn anything?";
mes "I didn't send you there to play.";
next;
mes "[Van Helmont]";
mes "Let me ask you a couple of questions. Answer how you heard and learned.";
next;
set @score,0;
Q_1a:
mes "[Van Helmont]";
mes "What item is required to form the Counteragent?";
next;
menu "Feather",-,"Sticky Mucus",-,"Animal Blood",-;
Q_1b:
mes "[Van Helmont]";
mes "Which of the following item is not required in forming the Counteragent?";
next;
menu "Karvodailnirol",-,"Detrimindexta",Q_2a,"Alchol",Q_2a;
set @score,@score+10;
Q_2a:
mes "[Van Helmont]";
mes "What item is required to form the Mixture?";
next;
menu "Monster's Feed",-,"Lip of Ancient Fish",-,"Rotten Bandage",-;
Q_2b:
mes "[Van Helmont]";
mes "Which of the following item is not required in the process of forming the Mixture?";
next;
menu "Karvodailnirol",L_Result,"Detrimindexta",-,"Alchol",L_Result;
set @score,@score+10;
L_Result:
mes "[Van Helmont]";
if(@score < 20) goto L_Failed;
mes "Hmm, you learned well. Ok, now you know some stuff about medicine?";
mes "Eh?";
mes "I know, you must have a lot to say but let me continue with my experiment.";
next;
mes "[Van Helmont]";
mes "Go out and to the room next to here. ^5533FFNicholas^000000 probably has more to teach you than me.";
set ALCH_Q,5;
set ALCH_Q2,0;
set al_morgen, 0;
close;
L_Failed:
mes "...Be honest. You don't know,";
mes "do you? I thought I told you to go learn from Morgenstein...";
next;
mes "[Van Helmont]";
mes "Don't even think about coming back before you've learned for sure!";
mes "Stop bothering me and leave!";
close;
L_NotRdy:
mes "Didn't I tell you to visit Morgenstein in Geffen!?!";
mes "He is a wise man! You should go to him!";
close;
L_Done:
mes "What are you doing? Go out and to the room next to here. ^5533FFNicholas^000000 probably has more to teach you than me.";
mes "I have no more business with you.";
close;
}
//==================================================================================================//
// Test 5 & 6: Word Scramble, Help the Baijin Bros.
//==================================================================================================//
alde_alche.gat,145,19,4 script Nicholas Flamel 57,{
mes "[Nicholas Flamel]";
if(BaseJob == 5) goto L_Merc;
L_Other:
mes "Lorem ipsum dolor sit amet,";
mes "consectetuer adipiscing elit.";
mes "Vivamus sem. Sed metus lacus, viverra id, rutrum eget, rhoncus sit amet, lectus.";
mes "Suspendisse sit amet urna in nisl frigilla faucibus.";
mes "Nulla scelerisque eros....";
mes "......mumblemumble........";
close;
L_Merc:
if(ALCH_Q == 5) goto L_Start;
if(ALCH_Q == 6) goto L_Start2;
if(ALCH_Q == 7) goto L_Done;
goto L_Other;
L_Start:
if(ALCH_Q2 == 1) goto L_ReTest;
mes "Ooh... you're the Merchant that wants to become an Alchemist?";
mes "But you know... not anyone can become an Alchemist.";
next;
mes "[Nicholas Flamel]";
mes "The Union doesn't like those that just want to become Alchemist without a clear goal.";
mes "So... to see if you qualify, I'll test how smart you are.";
next;
mes "[Nicholas Flamel]";
mes "As you can see, Alchemist must memorize many equations,";
mes "chemical equations and a lot of other information.";
mes "If you're not at a certain level..";
mes "it's actually pretty tough.";
next;
mes "[Nicholas Flamel]";
mes "The idea is to prevent those that are going to be useless Alchemists from joining the union!";
next;
mes "[Nicholas Flamel]";
mes "Ok... Here go the questions!";
mes "This is to test your concentration so that you won't get confused when looking at charts.";
next;
mes "[Nicholas Flamel]";
mes "Find the words from the group of letters. They can be made by using some or all the letters given";
next;
mes "[Nicholas Flamel]";
mes "You pass if you choose the word that is 'IN' the puzzle.";
next;
Q_1:
set @score,0;
mes "[Nicholas Flamel]";
mes "s m i e x b w u n e n t a g l r";
next;
menu "tiger",-,"wolf",Q_2,"pumpkin",Q_2,"tripped",Q_2;
set @score,@score+10;
Q_2:
mes "[Nicholas Flamel]";
mes "n i e g b o p d s o a u w r v";
next;
menu "bash",Q_3,"provoke",Q_3,"endure",-,"stun",Q_3,"abracadabra",Q_3;
set @score,@score+10;
Q_3:
mes "[Nicholas Flamel]";
mes "l r m g r e x t a v i n e d e";
next;
menu "alberta",Q_4,"latifoliate",Q_4,"crimson",Q_4,"maple",Q_4,"evergreen",-;
set @score,@score+10;
Q_4:
mes "[Nicholas Flamel] ";
mes "r o e h n r o m c a i n p t t";
next;
menu "forgemerchant",L_Score,"potionmerchant",-,"dcmerchant",L_Score,"vendingmerchant",L_Score;
set @score,@score+10;
L_Score:
if(@score < 40) goto L_Failed;
set ALCH_Q,6;
set ALCH_Q2,0;
mes "[Nicholas Flamel]";
mes "You seem to be done.";
next;
mes "[Nicholas Flamel]";
mes "Let's see.";
mes "...Good job. Excellent.";
next;
mes "[Nicholas Flamel]";
mes "Somehow you found all of them.";
mes "With that kind of concentration, you should easily be able to read the medicine dictionaries.";
mes "Let's see... next is..";
next;
mes "[Nicholas Flamel]";
mes "Come back in a little bit. Get organized too..";
close;
L_Failed:
mes "[Nicholas Flamel]";
mes "Hmmm... You failed!";
mes "Get your glasses maybe you can pass next time wearing those.";
set ALCH_Q2,1;
close;
L_ReTest:
mes "Hmmm you returned.";
mes "Well will see if you changed.";
next;
goto Q_1;
L_Start2:
if(ALCH_Q2 > 0) goto L_Check2;
mes "Next, you have to go somewhere.";
mes "Go to ^5533FF'The Forgotten City of Yuno'^000000 and meet the ^FF3355Bain and Bajin^000000 brothers who are researching alchemy with the Sages there.";
next;
mes "[Nicholas Flamel]";
mes "Go help out and come back Here, take these... it will help you get close to them.";
next;
getitem 974,1;
getitem 7068,5;
getitem 7043,5;
getitem 756,3;
getitem 757,3;
mes "[Nicholas Flamel]";
mes "1 Mixture";
mes "5 Burnt Tree";
mes "5 Fine Sand ";
mes "3 Rough Oridecon ";
mes "3 Rough Elunium";
set ALCH_Q2,1;
next;
mes "[Nicholas Flamel]";
mes "Have a safe trip.";
mes "It's Yuno. Come back in one piece.";
close;
L_Check2:
if(ALCH_Q2 < 2) goto L_NotDone;
set ALCH_Q, 7;
set ALCH_Q2, 0;
mes "Ooh! Well done on such a long trip.";
mes "I got a message saying that the Bain and Bajin brothers were happy about your visit.";
next;
mes "[Nicholas Flamel]";
mes "You must have successfully helped them.";
mes "If you're good enough to be of help to the brothers... ok, I think you qualify.";
next;
mes "[Nicholas Flamel]";
L_Done:
mes "Go to the Union Leader on the 2nd floor!";
mes "Congratulations. You'll change jobs soon!";
close;
L_NotDone:
mes "Bain and Bajin brothers are in Yuno go help them.";
close;
}
//==================================================================================================//
// Job Changer
//==================================================================================================//
alde_alche.gat,101,184,4 script Vincent Carsciallo 122,{
mes "[Vincent Carsciallo]";
if(BaseJob == 5) goto L_Merc;
if(BaseJob == Job_Alchem) goto L_Alch;
L_Other:
mes "Hmmm? What may a civilian have to do here?";
next;
mes "[Vincent Carsciallo]";
mes "There's nothing amusing. Dont wander and leave.";
close;
L_Alch:
mes "How Alchemy going? Make sure to be carefull and think about safety at all times.";
mes "I wouldn't want you blowing yourself up or anything.....";
close;
L_Merc:
if(ALCH_Q == 7) goto L_Change;
mes "Hmmm? A merchant.";
mes "Are you interested in Alchemy?";
next;
mes "[Vincent Carsciallo]";
mes "This is the Alchemist Union.";
mes "We research many different substances.";
mes "Our goal is to make something new without the power of magic.";
next;
mes "[Vincent Carsciallo]";
mes "Create new life, and study how to live long and not die ...";
mes "We also make new materials out of existing ones...";
mes "These are just some of the things we do.";
next;
mes "[Vincent Carsciallo]";
mes "After being a Merchant for a long time ";
mes "you start to become interested in everything.";
mes "If you would like to learn Alchemy as well,";
mes "try joining our Union.";
close;
L_Change:
if(skillpoint != 0) goto L_Skpoint;
mes "Ooh, Ok. You joined and learned the basics, too. Well done.";
next;
callfunc "Job_Change",Job_Alchem;
emotion 46;
mes "[Vincent Carsciallo]";
mes "From now on, you are also a member of the Union as an Alchemist.";
mes "I hope you learn a lot...";
next;
getitem 7127,1;
mes "[Vincent Carsciallo]";
mes "Here's a little something. ";
mes "Use it to start off with some research.";
next;
mes "[Vincent Carsciallo]";
mes "I'll see you later then...";
mes "Be proud of being an Alchemist!";
callfunc "F_ClearJobVar";
close;
L_Skpoint:
mes "Please use all your skill point before talking to me.";
close;
}
