Mirroristas/rathena
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Updated "Ph.D Quest" Dialogs.

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

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@10796 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
samuray22 2007-06-20 17:54:13 +00:00
parent 5ae999e8d8
commit 00602b5ed6
3 changed files with 835 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
npc/Changelog.txt
View File

@ -2,6 +2,8 @@ Date Added
======
2007/06/20
* Reverted wrong fix in Ninja Job quest. [SinSloth]
* Updated "Ph.D Quest" Dialogs. [Samuray22]
* Updated "Elemental Potion Creation Quest" to the official one. [Samuray22]
2007/06/19
* Fixed Some variables like ".@item", and changed to "@item". [Samuray22]
* Fixed another minor bug for Ninja Quest. [Samuray22]

146
npc/quests/quests_prontera.txt
View File

@ -3,7 +3,7 @@
//===== By: ==================================================
//= kobra_k88; L0ne_W0lf
//===== Current Version: =====================================
//= 1.6
//= 1.7
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
@ -28,6 +28,7 @@
//= 1.5 Culvert has been rescripted from the ground up. [L0ne_W0lf]
//= 1.6 Added Gaebolg Family Curse quest. [L0ne_W0lf]
//= 1.6a Fixed a couple spelling mistakes. [L0ne_W0lf]
//= 1.7 Updated "Ph.D Quest" Dialogs. [Samuray22]
//============================================================
// Prontera Culvert
@ -147,85 +148,78 @@ prt_fild05,270,212,5 script Culvert Guardian 105,{
// Ph.D Hat Quest
//============================================================
prt_in,38,108,4 script Teacher#01 53,{
if(countitem(710) >= 1 && countitem(703) >= 1 && countitem(704) >= 1 && countitem(708) >= 1) goto L_Start;//Items: Illusion Flower, Hinalle, Aloe, Ment,
mes "Don't you think.... ^4444FF'flowers'^000000 are pretty?";
next;
menu "Talk.",-, "End Conversation.",M_End;
prt_in,38,108,3 script Teacher 53,{
if(countitem("Illusion_Flower") > 0 && countitem("Hinalle") > 0 && countitem("Aloe") > 0 && countitem("Ment") > 0) {
mes "[Teacher]";
mes "When I was young, I didn't play with friends like the other children. Instead, I spent time studing by myself.";
mes "My God! The Flower you are holding...";
next;
mes "[Teacher]";
mes "Sometimes I regret that decision.... but it doesn't really matter now. Through hard work, I was able to finish school earlier than my classmates.";
next;
mes "[Teacher]";
mes "I was very lonely however..... when things got rough I had no one to talk to about my feelings.";
next;
mes "[Teacher]";
mes "Then one day, I found my best friend.";
next;
mes "[Teacher]";
mes "It was when I saw this pretty flower blooming in an abandoned garden.... I realised that it was just like me and in it, I found my best friend.";
next;
mes "[Teacher]";
mes "Even though, to others it was just a common flower.... for me this flower meant much more. This flower gave me the strength to continue my studies.";
mes "I could achieve my goals because of her.";
next;
mes "[Teacher]";
mes "So.. now... I am trying to repay to her. I have started studying Flowers, and It is my goal to cover the whole world in Flowers!";
next;
mes "[Teacher]";
mes "To accomplish my work.. I need a great deal of flowers. Unfortunately because of my studies, I can rarely go outside.";
mes "It is really hard to find as many flowers as I need.";
next;
mes "[Teacher]";
mes "I need 1 ^3355FFIllusion Flower^000000 ,1 ^3355FFHinalle^000000,1 ^3355FFAloe^000000 and 1 ^3355FFMent^000000...";
mes "If you can bring these flowers to me, I would be willing to give you a special item...";
close;
M_End:
mes "[Teacher]";
mes "One of these days I will cover whole world in Flowers!.....";
close;
L_Start:
switch( select( "Show him the flowers.","Give him the flowers.","Cancel.")) {
case 1:
mes "[Teacher]";
mes "Are those the Flowers I've been looking for...";
mes "Would you give them to me?";
next;
mes "[Teacher]";
mes "If you give them to me... I... I will give my precious item...";
close;
case 2:
if(countitem("Illusion_Flower") > 0 && countitem("Hinalle") > 0 && countitem("Aloe") > 0 && countitem("Ment") > 0) {
delitem "Illusion_Flower",1;
delitem "Hinalle",1;
delitem "Aloe",1;
delitem "Ment",1;
getitem "Ph.D_Hat",1;
mes "[Teacher]";
mes "Thank you so much! First time in my life someone is nice to me!";
mes "I will give you my precious item like I promised you.";
mes "This is the cap I wore when I graduated, it is full of my school memory.";
mes "Please take it... I hope you would cherish it like me.";
close;
}
mes "[Teacher]";
mes "... After a closer look I realized those are not the flowers I want...";
mes "Ha! Ha! I have really bad eyesight...";
close;
case 3:
close;
}
}
mes "[Teacher]";
mes "Oh... Those Flowers in your hand are....";
M_Menu:
mes "Those flowers are pretty... Right?";
next;
menu "Show Flowers",-, "Give Flowers",M_Give, "Cancel",M_End;
mes "[Teacher]";
mes "Ah... How wonderful!! These are definately the 4 kinds of Flowers I was looking for ..";
mes "The ^3355FFIllusion Flower, Hinalle, Aloe, and Ment^000000. Would you give them to me?...";
next;
mes "[Teacher]";
mes "If you do I'd be willing to give you a special item.....";
goto M_Menu;
M_Give:
if(countitem(710) < 1 || countitem(703) < 1 || countitem(704) < 1 || countitem(708) < 1) goto L_Cheater;//Items: Illusion Flower, Hinalle, Aloe, Ment,
delitem 710,1;//Items: Illusion Flower,
delitem 703,1;//Items: Hinalle,
delitem 704,1;//Items: Aloe,
delitem 708,1;//Items: Ment,
mes "[Teacher]";
mes "I really, really appreciate what you've done for me!! I trully am grateful! I will give you a very special item as I promised.";
emotion e_thx;
next;
mes "[Teacher]";
mes "This is the hat I wore at my Graduation Ceremony. It is a reminder of my joyfull school days at the University.";
mes "Please take it...";
getitem 5012,1;//Items: Ph.D Hat,
close;
L_Cheater:
mes "[Teacher]";
mes "I won't give a special item to a cheater...";
mes "Now go away!";
emotion e_bzz;
close;
switch( select( "Continue talking.","Cancel.")) {
case 1:
mes "[Teacher]";
mes "I seldom go out with anyone when I was young, I was studying all the time.";
mes "Sometimes I think I've wasted my youth ... But I don't regret it. Because I study hard, I got good education and become who I am today!";
next;
mes "[Teacher]";
mes "But honestly... I feel sad sometimes for not having good friends...";
mes "When I get tired of studying... I don't even have a friend to talk to...";
mes "Luckily, I found the true friend of my life at last.";
next;
mes "[Teacher]";
mes "When I walked into that garden and saw all the beautiful flowers...";
mes "I suddenly feel I am sharing the same fate as these flowers, so they become my best friends ever.";
next;
mes "[Teacher]";
mes "For others, they are just flowers... But for me, they are my source of strength.";
mes "I can't have achieved anything without their company.";
next;
mes "[Teacher]";
mes "That's why I start to think about doing something to repay the people who had given me the flowers.";
mes "We have done so much research about flowers here... We even want to build a place full of flowers... for a better world!";
next;
mes "[Teacher]";
mes "So... We really need a large amount of flowers...";
mes "But I never go out anywhere... It is hard for me to find any!";
mes "If you can find me ^3355FFIllusion Flower^000000, ^3355FFHinalle^000000, ^3355FFAloe^000000 and ^3355FFMent^000000 and bring them to me, I will give you my treasure.";
close;
case 2:
mes "[Teacher]";
mes "One day I will use a lot of flowers to make the most pretty place in the world...";
close;
}
}
// Gaebolg Family Curse

815
npc/quests/skills/alchemist_skills.txt
View File

@ -22,69 +22,780 @@
//= Quest too [Lupus]
//= 1.5 Removed duplicates [Toms] 1.5a fixed typo [Lupus]
//= 1.6 Moved some NPCs related to Lighthalzen quests. [SinSloth]
//= 1.7 Updated "Elemental Potion Creation Quest" to the official one. [Samuray22]
//============================================================
//============================================================
// ALCHEMIST - ELEMENTAL POTION CREATION
//============================================================
yuno_in04,33,108,5 script Pislik 750,{
mes "[Pislik]";
if(BaseJob != Job_Alchem) goto L_noalche;
if(countitem(7434)) goto L_alreadyhave;//Items: Elemental_Potion_Creation_Guide,
if(JobLevel<40) goto L_nojob;
yuno_in04,33,108,6 script Pisruik Quv 883,{
if (Class == Job_Alchem || Class == Job_Creator) {
if (JobLevel < 40 && Class == Job_Alchem) {
mes "[Pisruik]";
mes "Achoo!";
mes "Sigh";
mes "I can't afford the medicine..";
mes "You need Job level 40!";
close;
} else if(ALCHE_SK == 0) {
mes "[Pisruik]";
mes "Achoo!~";
mes "Mixing chemical is so fun~ Achoo!";
mes "Oi?";
mes "What are you doing looking at other people's experiments!";
set ALCHE_SK, 1;
next;
mes "[Pisruik]";
mes "Kids these days..";
mes "Sigh..";
close;
} else if(ALCHE_SK == 1) {
mes "[Pisruik]";
mes "Hey you are back!";
mes "Hmm... it doesn't look like";
mes "you are here to steal work";
mes "what bring you to ";
mes "places like this?";
next;
switch( select( "What kind of experiment are you conducting?", "Im...well...")) {
case 1:
mes "[Pisruik]";
mes "Can't you tell?";
mes "...I guess its no use.";
mes "Do you remember how I yelled";
mes "last time because you were looking at my work?";
next;
mes "[Pisruik]";
mes "As you can see, this is a shared laboratory.";
mes "It's for poor scientists";
mes "who can't afford a private lab";
mes "We pay a set amount of money to rent";
mes "a part of the laboratory";
mes "..and I'm one of them.";
next;
mes "[Pisruik]";
mes "Because the space is shared by so many, its scary here.";
mes "There are people here who stole work from others";
mes "and published them,";
mes "and... it gets even worse. But";
mes "since we are all poor, we can't do much about it.";
next;
mes "[Pisruik]";
mes "Its not like we have";
mes "other means of earning money,";
mes "like that alchemist from far, far away";
mes "who can earn money by";
mes "selling items to villagers.";
next;
mes "[Pisruik]";
mes "Items...";
mes "Oh, I know";
mes "You are an adventurer right?";
mes "What's your name?";
next;
mes "["+strcharinfo(0)+"]";
mes "I am "+strcharinfo(0)+"...";
next;
mes "[Pisruik]";
mes "If you can get me";
mes "some items I need for experiments,";
mes "I'll tell you what I'm making";
mes "Since I know that we won't be doing";
mes "experiments in the same area..";
next;
set ALCHE_SK, 2;
mes "[Pisruik]";
mes "Thing that I need right now are,";
mes "5 Yellow Gemstones,";
mes "4 Empty Potion Bottle,";
mes "10 Heart of Mermaid,";
mes "10 Powder of Butterfly.";
mes "So come back when you've got the items.";
close;
case 2:
mes "[Pisruik]";
mes "You can buy them at the toolshop.";
mes "Things in here are all";
mes "personal properties.";
close;
}
} else if(ALCHE_SK == 2) {
mes "[Pisruik]";
mes "Hey, "+strcharinfo(0)+"";
mes "The items that I asked for are...";
mes "4 Empty Potion Botles";
mes "and... er....";
mes "What were they again?";
next;
switch( select( "5 Yellow Gemstones,", "5 Blue Gemstones,", "5 Red Gemstones,")) {
case 1:
mes "[Pisruik]";
mes "5 Yellow Gemstones";
mes "And...";
next;
switch( select( "10 Heart of Mermaid,", "10 Large Jellopy,")) {
case 1:
mes "[Pisruik]";
mes "10 Heart of Mermaid";
mes "And...";
next;
switch( select( "10 Snake Scales.", "10 Powders of Butterfly")) {
case 1:
mes "[Pisruik]";
mes "Hmmmm no I don't really need that.";
mes "I have a friend who gave me a bunch";
mes "and I still have some left...";
mes "What was it?";
close;
case 2:
mes "[Pisruik]";
mes "Yes ,";
mes "5 Yellow Gemstones,";
mes "4 Empty Potion Bottle,";
mes "10 Heart of Mermaid,";
mes "10 Powder of Butterfly.";
mes "Do you have all of them with you?";
next;
switch( select( "No.", "Yes!")) {
case 1:
set .@fhit, rand(1,5);
if (.@fhit == 1) {
mes "[Pisruik]";
mes "If you don't want to do it then tell me.";
mes "I'm a busy person too!";
close;
}
mes "[Pisruik]";
mes "Hmmm...";
mes "If you can, please hurry.";
mes "Well, you don't have to do this, you know...";
close;
case 2:
mes "[Pisruik]";
mes "Let's see...";
next;
if (countitem("Yellow_Gemstone") > 4 && countitem("Empty_Potion") > 3 && countitem("Heart_Of_Mermaid") > 9 && countitem("Powder_Of_Butterfly") > 9) {
delitem "Yellow_Gemstone", 5;
delitem "Empty_Potion", 4;
delitem "Heart_Of_Mermaid", 10;
delitem "Powder_Of_Butterfly",10;
set ALCHE_SK, 3;
mes "[Pisruik]";
mes "Good.";
mes "It doesn't seem like they are in a bad shape...";
mes "Well I'll accept them.";
mes "Let's see.. hmm";
mes "What do you think I am making with all these?";
next;
switch( select( "Medicine?", "Bomb?")) {
case 1:
set ALCHE_SK, 4;
mes "[Pisruik]";
mes "Yes. It's medicine.";
goto Alc_Exp;
case 2:
set ALCHE_SK, 4;
mes "[Pisruik]";
mes "Bomb? Hahaha. No.";
mes "It's a medicine.";
next;
mes "[Pisruik]";
mes "Of course, I could earn a lot of money";
mes "by making bombs....BUT";
mes "I don't want to end up dead";
mes "because one of them blows up";
mes "while I'm making it.";
next;
mes "[Pisruik]";
mes "I just don't have";
mes "a good place to do experiments.";
mes "that's one of the reasons";
mes "why we can't make powerful bombs";
next;
mes "[Pisruik]";
mes "Well, not like I want to make it myself.";
next;
mes "[Pisruik]";
}
Alc_Exp:
mes "You see,";
mes "If this medicine can react";
mes "in the body,";
next;
mes "[Pisruik]";
mes "The body's composition changes";
mes "very rapidly.";
mes "Let's see. For example,";
mes "if we are talking about high temperatures..";
mes "Originally, human body can't stand";
mes "high temperatures.";
next;
mes "[Pisruik]";
mes "Of course we can't stand in fire,";
mes "but the reason why when we get burnt";
mes "that part of skin dies, is because";
mes "a part of body which transports material";
mes "gets BBQ'ed and dies.";
next;
mes "[Pisruik]";
mes "It's the same reason why we die";
mes "from high fever.";
mes "The experiments I'm conducting right now";;
mes "will produce medicine";
mes "which will make us immune to";
mes "getting damaged by heat.";
next;
mes "[Pisruik]";
mes "But there are side effects.";
mes "You are going to be weak to";
mes "the opposite property.";
mes "Not like we can do much about it";
mes "since we are doing this mechanically";
next;
mes "[Pisruik]";
mes "'Creating' something implies";
mes "that you are ready to take responsibilities";
mes "of things that you didn't mean to do";
mes "but happens anyways..";
next;
mes "[Pisruik]";
mes "Anyways....";
mes "I am going to need one more favor...";
mes "because I need.. about 20 of";
mes "Maneater Blossom to perform experiments on.";
next;
mes "[Pisruik]";
mes "Could you go get them for me?";
next;
switch( select( "Sorry.. but I'm busy.", "Yup I'll do them for you.", "What am I going to get in return?")) {
case 1:
goto L_no;
case 2:
goto L_do;
case 3:
goto L_return;
}
} else {
mes "[Pisruik]";
mes "You just told me that you would";
mes "bring me the items and";
mes "you didn't collect any?";
mes "Argh...";
mes "If you didn't want to do it";
mes "you could have told me.";
next;
mes "[Pisruik]";
mes "Nevermind.";
mes "I don't care whether if you come or not.";
close;
}
}
}
case 2:
mes "[Pisruik]";
mes "Oh, right. Large Jellopy.";
mes "...wasn't what I asked for.";
mes "I already have enough Large Jellopy";
mes "with me right now...";
mes "I asked for something else.";
close;
}
case 2:
mes "[Pisruik]";
mes "Blue Gemstones...";
mes "Did I ask for them?";
mes "I'm sure that until yesterday I was making";
mes "a medicine which would increase immunity to certain elements...";
mes "Sigh...how would I continue the research with memory like this?";
close;
case 3:
mes "[Pisruik]";
mes "Red Gemstones...";
mes "Did I ask for these?";
mes "I'm sure that until yesterday I was making";
mes "a medicine which would increase immunity to certain elements...";
mes "Sigh...how would I continue the research with memory like this?";
close;
}
} else if(ALCHE_SK == 3) {
mes "[Pisruik]";
mes "?";
mes "Where did you wander off to";
mes "in the middle of my explanation?";
next;
set ALCHE_SK, 4;
mes "[Pisruik]";
mes "I am making a medicine right now.";
close;
} else if(ALCHE_SK == 4) {//When you stopped listening to his explanation
mes "[Pisruik]";
mes "I told you that I am making a medicine...";
mes "Do you need me to explain ?";
next;
switch( select( "No", "Yes")) {
case 1:
mes "[Pisruik]";
mes "Well never mind then.";
mes "I am really busy right now.";
close;
case 2:
goto L_do;
}
} else if(ALCHE_SK == 5) { //When you replied "no"
mes "[Pisruik]";
mes "I told you I'm busy right?";
mes "and if you keep wandering around here";
mes "without any business";
mes "people are going to turn hostile";
mes "towards you. Okay?";
next;
switch( select( "Okay okay.", "I was wondering if I could help.")) {
case 1:
mes "[Pisruik]";
mes "...";
mes "Then go already.";
close;
case 2:
mes "[Pisruik]";
mes "...I don't know why you changed your mind";
mes "But it doesn't matter as long as.";
mes "I can continue my research";
mes "Cough, Cough";
next;
mes "[Pisruik]";
mes "...Sigh.";
mes "If I didn't have any fits";
mes "I could finish very quickly...";
mes ".....is it asking for too much from my body?.";
mes "hahaha...";
next;
set ALCHE_SK, 6;
mes "[Pisruik]";
mes "20 Maneater Blossoms.";
mes "That's all I need.";
if (Sex == 0) {
mes "...Please.";
mes "It'd be great if you could bring it to me as soon as possible.";
}
close;
}
} else if(ALCHE_SK == 6) { //Second Item
if (countitem("Blossom_Of_Maneater") > 19) {
delitem "Blossom_Of_Maneater", 20;
set ALCHE_SK, 7;
mes "[Pisruij]";
mes "...Thanks a lot.";
if (Sex == 0) {
mes "Thanks so much.. Doing all these for me...";
}
mes "Okay, now if I add these blossoms to the clover brew";
mes "Then...";
mes "OY...";
next;
set ALCHE_SK, 9;
misceffect 183;
mes "[Pisruik]";
mes "AHH!";
next;
mes "[Pisruik]";
mes "Are you hurt anywhere?";
next;
mes "["+strcharinfo(0)+"]";
mes "...Your glasses...";
mes "They are broken in to pieces...";
mes "....";
next;
if (Sex == 0) {
mes " == The glasses he wore fell ==";
mes " == and broke into pieces. ==";
mes " == It was unbelievable that ==";
mes " == The face underneath that glass ==";
mes " == was that of a grumpy alchemist... ==";
} else {
mes " == I could not believe. ==";
mes " == the difference between the face ==";
mes " == which I was staring into, ==";
mes " == and the one I just saw minutes ago ==";
}
next;
mes "["+strcharinfo(0)+"]";
mes "....well.... errr...";
next;
mes "[Pisruik]";
mes "Are you sure you are okay?";
mes "Sorry, I can't see well without glasses";
mes "So I can't really do anything except for";
mes "Checking that there is no blood.";
next;
mes "["+strcharinfo(0)+"]";
mes "...Yeah I'm fine.";
mes "But..Your glasses...";
next;
mes "[Pisruik]";
mes "....What am I going to do.";
mes "I don't have a spare one right now...";
mes "...";
next;
mes "[Pisruik]";
mes "Hey. "+strcharinfo(0)+" ";
mes "I'm sorry but could you go and";
mes "get me a set of glasses just like the one";
mes "I was wearing?";
next;
mes "[Pisruik]";
mes "I can't move without my glasses";
mes "So if you could get me a set";
mes "I'd be really greatful...";
mes "....Truly.";
mes "Please?.";
close;
}
mes "[Pisruik]";
mes "Hmm...";
mes "I need 20 more";
mes "Maneater Blossom to do experiment...";
next;
mes " == Mesmerized in a deep thouht ==";
mes " == While looking at the test tube. ==";
close;
} else if(ALCHE_SK == 7) {
set ALCHE_SK, 8;
mes "[Pisruik]";
mes "...Sigh it's not working as well as I thought it would.";
mes "Could you get me another Maneater Blossom?...";
mes "Please..?";
close;
} else if(ALCHE_SK == 8) {
if (countitem("Blossom_Of_Maneater") > 0) {
delitem "Blossom_Of_Maneater", 1;
set ALCHE_SK, 7;
mes "[Pisruik]";
mes "...Thanks.";
if (Sex == 0) {
mes "..Looks like I've placed another burden on you.";
mes "Sorry.";
}
mes "Well then, all I have to do is add this and..";
mes "Aha!...";
next;
set ALCHE_SK, 9;
donpcevent "Pisruik Quv::OnExplosion";
mes "[Pisruik]";
mes "AHH!";
next;
mes "[Pisruik]";
mes "Are you hurt anywhere?";
next;
mes "["+strcharinfo(0)+"]";
mes "...Your glasses...";
mes "They are broken in to pieces...";
mes "....";
next;
if (Sex == 0) {
mes " == The glasses he wore fell ==";
mes " == and broke into pieces. ==";
mes " == It was unbelievable that ==";
mes " == The face underneath that glass ==";
mes " == was that of a grumpy alchemist... ==";
} else {
mes " == I could not believe. ==";
mes " == the difference between the face ==";
mes " == which I was staring into, ==";
mes " == and the one I just saw minutes ago ==";
}
next;
mes "["+strcharinfo(0)+"]";
mes "....well.... errr...";
next;
mes "[Pisruik]";
mes "Are you sure you are okay?";
mes "Sorry, I can't see well without glasses";
mes "So I can't really do anything except for";
mes "Checking that there is no blood.";
next;
mes "["+strcharinfo(0)+"]";
mes "...Yeah I'm fine.";
mes "But..Your glasses...";
next;
mes "[Pisruik]";
mes "....What am I going to do.";
mes "I don't have a spare one right now...";
mes "...";
next;
mes "[Pisruik]";
mes "Hey. "+strcharinfo(0)+" ";
mes "I'm sorry but could you go and";
mes "get me a set of glasses just like the one";
mes "I was wearing?";
next;
mes "[Pisruik]";
mes "I can't move without my glasses";
mes "So if you could get me a set";
mes "I'd be really greatful...";
mes "....Truly.";
mes "Please?.";
close;
}
mes "[Pisruik]";
mes "Hmm...";
mes "I think I could do this";
mes "If I had just one more";
mes "Maneater Blossom...";
next;
mes " == Thinks very hard ==";
mes " == While looking at the test tube. ==";
close;
} else if(ALCHE_SK == 9) {
mes " == He is squinting at the ==";
mes " == Remains of his broken glasses. ==";
mes " == It seems like that no matter how you look at it ==";
mes " == he looks much, much better ==";
mes " == without his glasses. ==";
next;
switch( select( "Give'Something'.", "Don't give him anything.")) {
case 1:
if (countitem("Glasses") > 0) {
delitem "Glasses", 1;
set ALCHE_SK, 10;
mes " == I gave him the set of glasses ==";
next;
mes "[Pisruik]";
mes "Hm?";
mes "Who? ..A, "+strcharinfo(0)+"?";
mes "Thanks.";
mes "Let's see...";
mes "It did blow up but the test tube didn't break..";
next;
mes "[Pisruik]";
mes "Haha..I was surprized";
mes "For no reason then.";
mes "Let's see the result...";
mes "...";
next;
mes "[Pisruik]";
mes "...Good Good.";
mes "I think in theory, I have succeeded.";
mes "Although it might have problems";
mes "because of the ethics involved with";
mes "giving chemicals to";
mes "humans for purposes like this..";
next;
mes "[Pisruik]";
mes "It's not like there haven't been";
mes "those types of experiments so";
mes "I think it'd be fine but.";
mes "Oh...right.";
mes ""+strcharinfo(0)+".";
mes "Would you like to try this?";
next;
mes "[Pisruik]";
mes "You are someone who would like to";
mes "go out side and run around";
mes "so you will have times when you";
mes "can put this to a good use";
next;
switch( select( "Certainly!", "no...")) {
case 1:
mes "[Pisruik]";
mes "Well then could you read this";
mes "Paper over for me?";
mes "It was perfect in theory";
mes "So I've already submitted my paper,";
mes "so this is just a copy";
next;
mes " == He gave me a long lecture ==";
mes " == about dangers and side effects ==";
mes " == of the medicine ==";
next;
set ALCHE_SK, 11;
getitem "Elemental_Create_Book", 1;
mes "[Pisruik]";
mes "...I think that";
mes "You can put this to a good use.";
mes "You have probably given it a good thought";
mes "While collecting the items so";
mes "You could understand it better than I do";
next;
mes "[Pisruik]";
if (Sex == 1) {
mes "If you visit me again";
mes "I'll probably have another favor for you.";
} else {
mes "...Thanks for being here to talk to me.";
}
mes "Cough.. Cough";
mes "Sigh. Well then, should I get started on the next experiement...";
close;
case 2:
mes "[Pisruik]";
mes "....Well too bad.";
mes "If you change your mind";
mes "Then come back later.";
if (Sex == 0) {
next;
mes " == He looked a lot waner ==";
mes " == and a lot more tired ==";
mes " == than usual. ==";
}
close;
}
}
mes " == Don't have much to give to him. ==";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "...I think you look so much better without glasses...";
next;
mes "[Pisruik]";
mes "Hmm?";
mes "What did you just say?";
next;
mes "["+strcharinfo(0)+"]";
mes "Erm.. hahahaha.";
mes "Nothing nothing!";
close;
}
} else if(ALCHE_SK == 10) {
mes "[Pisruik]";
mes "I think in theory it's a success,";
mes "Do you want to learn how to make it?";
next;
switch( select( "Yes!", "No...")) {
case 1:
mes "[Pisruik]";
mes "Well then could you read this";
mes "Paper over for me?";
mes "It was perfect in theory";
mes "So I've already submitted my paper,";
mes "so this is just a copy";
next;
mes " == He gave me a long lecture ==";
mes " == about dangers and side effects ==";
mes " == of the medicine ==";
next;
set ALCHE_SK, 11;
getitem "Elemental_Create_Book", 1;
mes "[Pisruik]";
mes "...I think that";
mes "You can put this to a good use.";
mes "You have probably given it a good thought";
mes "While collecting the items so";
mes "You could understand it better than I do";
next;
mes "[Pisruik]";
if (Sex == 1) {
mes "If you visit me again";
mes "I'll probably have another favor for you.";
} else {
mes "...Thanks for being here to talk to me.";
}
mes "Cough.. Cough";
mes "Sigh. Well then should I get started on the next experiement...";
close;
case 2:
mes "[Pisruik]";
mes "....Well too bad.";
mes "If you change your mind";
mes "Then come back later.";
if (Sex == 0) {
next;
mes " == He looked a lot waner ==";
mes " == and a lot more tired ==";
mes " == than usual. ==";
}
close;
}
} else if(ALCHE_SK == 11) {
if (countitem("Elemental_Create_Book") == 0) {
mes "[Pisruik]";
mes "....I guess,";
mes "You haven't found much use for that item.";
close;
} else if(countitem("Elemental_Create_Book") == 1) {
mes "[Pisruik]";
mes "Has the item been very helpful to you?";
close;
} else if(countitem("Elemental_Create_Book") > 1) {
mes "[Pisruik]";
mes "....";
mes "Well....I'm selling these but";
mes "It's not like I'll sign the books";
mes "if you bring them in truckloads.";
close;
}
}
mes "[Pisruik]";
mes "?";
close;
}
mes "[Pisruik]";
mes "What are you looking at!";
mes "Go away!";
close;
mes "I'll teach you all I know, but";
mes "you have to bring me some things";
mes "first.";
mes "5 Yellow Gemstones,";
mes "4 Empty Potion Bottles,";
mes "10 Hearts of Mermaid,";
mes "10 Moth Dust,";
mes "20 Maneater Blossoms and";
mes "1 Geek Glasses";
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;
mes "[Pislik]";
mes "Let me check your items.";
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;
if(countitem(715)<5 || countitem(1093)<4 || countitem(950)<10 || countitem(1057)<10 || countitem(1032)<20 || countitem(2243)<1) goto L_noitems;//Items: Yellow_Gemstone, Empty_Potion_Bottle, Heart_of_Mermaid, Moth_Dust, Maneater_Blossom, Geek_Glasses,
delitem 715, 5;//Items: Yellow_Gemstone,
delitem 1093, 4;//Items: Empty_Potion_Bottle,
delitem 950, 10;//Items: Heart_of_Mermaid,
delitem 1057, 10;//Items: Moth_Dust,
delitem 1032, 20;//Items: Maneater_Blossom,
delitem 2243, 1;//Items: Geek_Glasses,
getitem 7434, 1;//Items: Elemental_Potion_Creation_Guide,
mes "[Pislik]";
mes "I see you have what you need,";
mes "so I'll give you my manual.";
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_noitems:
mes "[Pislik]";
mes "You don't have enough items.";
mes "Come back when you have all";
mes "the required items for me.";
close;
L_noalche:
mes "Sorry, but my knowledge is only about alchemy.";
mes "I can't help you.";
emotion e_gasp;
close;
L_alreadyhave:
mes "I've already given you";
mes "my Elemental Potion Creation Guide...";
close;
L_nojob:
mes "Come back when you've learned";
mes "more about being an Alchemist.";
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;
}
}
//============================================================