summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
authorMasterOfMuppets <MasterOfMuppets@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-06-16 20:29:27 +0000
committerMasterOfMuppets <MasterOfMuppets@54d463be-8e91-2dee-dedb-b68131a5f0ec>2006-06-16 20:29:27 +0000
commit4b83969a25118fc099d72f043bf8e366ec478d36 (patch)
tree09a71858df5e5ba0727d2f4ee2d8c1b3e3234021 /npc
parent6209367816352a8307fc4f84cce54ea781589a8e (diff)
downloadhercules-4b83969a25118fc099d72f043bf8e366ec478d36.tar.gz
hercules-4b83969a25118fc099d72f043bf8e366ec478d36.tar.bz2
hercules-4b83969a25118fc099d72f043bf8e366ec478d36.tar.xz
hercules-4b83969a25118fc099d72f043bf8e366ec478d36.zip
Implemented the Lover's quest.
git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@7215 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc')
-rw-r--r--npc/Changelog.txt1
-rw-r--r--npc/cities/einbech.txt491
-rw-r--r--npc/cities/einbroch.txt621
3 files changed, 1109 insertions, 4 deletions
diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 5bf8c39e6..96d2fef60 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -37,6 +37,7 @@ Musashiden
Date Added
======
06/16
+ * Implemented the Lover's quest. [MasterOfMuppets]
* Yet another missing Juno warp. [musashiden]
* Corrected a duplicate juno warp + a juno guide sprite. [Musashiden]
* Updated sample script mob_controller.cpp to the latest standards. [Lance]
diff --git a/npc/cities/einbech.txt b/npc/cities/einbech.txt
index b02a139ee..cd9439f84 100644
--- a/npc/cities/einbech.txt
+++ b/npc/cities/einbech.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= Muad_dib
//===== Current Version: =====================================
-//= 1.2
+//= 1.3
//===== Compatible With: =====================================
//= eAthena Revision 3000+
//===== Description: =========================================
@@ -20,6 +20,7 @@
//= 1.1 Made some changes according to the Shinokas quest, [MasterOfMuppets]
//= thanks to Dj-Yhn for scripting them.
//= 1.2 Removed Duplicates [Silent]
+//= 1.3 Implemented the Lover's quest. [MasterOfMuppets]
//============================================================
@@ -1553,7 +1554,11 @@ einbech.gat,197,139,4 script Young Man#05 855,{
close;
}
-ein_in01.gat,191,102,4 script Kaijeta 846,{
+ein_in01.gat,191,102,4 script Kaijeta 846,{
+ if(EIN_LOVERQ > 13)goto s_Learned;
+ if(EIN_LOVERQ == 13)goto s_Clothes;
+ if(EIN_LOVERQ > 6 && EIN_LOVERQ < 13)goto s_Hatred;
+ if(EIN_LOVERQ == 6)goto s_Helping;
mes "[Kaijeta]";
mes "Welcome to my humble";
mes "abode, adventurer. I'm";
@@ -1574,9 +1579,96 @@ ein_in01.gat,191,102,4 script Kaijeta 846,{
mes "land, so we have no choice";
mes "but to endure through this...";
close;
+
+s_Helping:
+ mes "[Kaijeta]";
+ mes "Thank you for helping my";
+ mes "son. He may look like a fool";
+ mes "for falling in love with someone";
+ mes "from Einbroch, but he's an honest";
+ mes "hard working man.";
+ next;
+ mes "[Kaijeta]";
+ mes "Then again, it was bound to";
+ mes "happen sometime. Einbech is";
+ mes "a very poor town while Einbroch";
+ mes "is a very rich town. I'd understand";
+ mes "if you don't agree, but opposites";
+ mes "attract sooner of later.";
+ next;
+ mes "[Kaijeta]";
+ mes "^565656*Sigh...*^000000";
+ mes "If my son and Calla can";
+ mes "work things out, maybe it";
+ mes "would improve relations";
+ mes "between our two towns.";
+ mes "I certainly hope so...";
+ next;
+ mes "[Kaijeta]";
+ mes "Still, I'm quite baffled!";
+ mes "I raised my son to have more";
+ mes "guts than to wallow in misery";
+ mes "when his heart's broken. And";
+ mes "I still have no idea how he got";
+ mes "together with such a rich woman.";
+ next;
+ mes "[Kaijeta]";
+ mes "Do you have any idea";
+ mes "how we can put an end";
+ mes "to the hate between our";
+ mes "two towns? I don't want to";
+ mes "see this couple separated";
+ mes "because of such pettiness.";
+ set EIN_LOVERQ,7;
+ close;
+
+s_Hatred:
+ mes "[Kaijeta]";
+ mes "I can't bear to see the";
+ mes "petty hatred between our";
+ mes "two towns stop my son from";
+ mes "seeing the woman he loves...";
+ close;
+
+s_Clothes:
+ mes "[Kaijeta]";
+ mes "Thank you for helping";
+ mes "my son Clitzer. Sadly, the";
+ mes "little fool doesn't have any";
+ mes "clue when it comes to certain";
+ mes "things like choosing clothing.";
+ mes "he gets so nervous about it!";
+ next;
+ mes "[Kaijeta]";
+ mes "A man should wear nice";
+ mes "clothes, like a Formal Suit";
+ mes "or a Tuxedo, for important";
+ mes "meetings and special occassions.";
+ mes "hopefully, he'll learn that soon.";
+ close;
+
+s_Learned:
+ mes "[Kaijeta]";
+ mes "My son learned";
+ mes "an awful lot from";
+ mes "your good example.";
+ mes "As a mother, I really";
+ mes "appreciate everything";
+ mes "you've done for him.";
+ next;
+ mes "[Kaijeta]";
+ mes "Well, adventurer,";
+ mes "I will be praying for";
+ mes "your safety wherever";
+ mes "your journeys may";
+ mes "take you.";
+ close;
+
}
-ein_in01.gat,200,101,4 script Clitzer 854,{
+ein_in01.gat,200,101,4 script Clitzer 854,{
+ if(EIN_LOVERQ)goto s_Switches;
+s_Back:
mes "[Clitzer]";
mes "Is there something";
mes "that you really want";
@@ -1598,6 +1690,399 @@ ein_in01.gat,200,101,4 script Clitzer 854,{
mes "different that it's not";
mes "even possible anymore...";
close;
+
+s_Switches:
+ switch(EIN_LOVERQ)
+ {
+
+ case 1:
+ mes "[Clitzer]";
+ mes "That faintly sweet";
+ mes "and pleasant scent...";
+ mes "It's just like the fragrance";
+ mes "they use in Calla's house.";
+ next;
+ mes "[Clitzer]";
+ mes "Ah, so you visited";
+ mes "Calla in Einbroch?";
+ mes "I miss her sooo much!";
+ mes "Is she doing alright?";
+ next;
+ mes "[Clitzer]";
+ mes "Calla's so beautiful.";
+ mes "And she's so lovely.";
+ mes "Every time I close my";
+ mes "eyes, I can still see";
+ mes "her lovely smile.";
+ next;
+ mes "[Clitzer]";
+ mes "I'm sorry if I sound";
+ mes "silly, but I can't help";
+ mes "it. I know I'm acting like";
+ mes "a complete idiot. But I'd";
+ mes "give anything to see her...";
+ next;
+ mes "[Clitzer]";
+ mes "Just...";
+ mes "Just don't listen";
+ mes "to anything I say.";
+ mes "I'm just a poor fool";
+ mes "in love with the wrong";
+ mes "person. That has to be it...";
+ set EIN_LOVERQ,2;
+ close;
+ break;
+
+ case 2:
+ mes "[Clitzer]";
+ mes "^565656*Sigh*^000000";
+ mes "I really appreciate your";
+ mes "sympathy, but I'm merely";
+ mes "a coward and a fool.";
+ next;
+ mes "[Clitzer]";
+ mes "Yeah...";
+ mes "I'm a coward for doing";
+ mes "nothing about my feelings";
+ mes "and an idiot for falling in love";
+ mes "with such a high class girl in";
+ mes "the first place... Oh, Calla...";
+ close;
+ break;
+
+ case 3:
+ if(!countitem(1901))goto s_Back;
+ mes "[Clitzer]";
+ mes "What brings you here?";
+ mes "aren't you tired of hearing";
+ mes "me moan and whine about";
+ mes "lost love? ^111111*Siiiiigh...*^000000";
+ next;
+ mes "[Clitzer]";
+ mes "Hey, this violin...";
+ mes "Calla used to play";
+ mes "such beautiful music";
+ mes "on this for me. Did";
+ mes "she give this to you?";
+ next;
+ mes "[Clitzer]";
+ mes "I see. Calla must have";
+ mes "known that I'm all broken up";
+ mes "right now. She's too good to";
+ mes "me. How can se consider";
+ mes "my feelings before thinking";
+ mes "about herself?";
+ next;
+ mes "[Clitzer]";
+ mes "I know I'm being";
+ mes "shameless, but I have";
+ mes "a favor to ask. Adventurer,";
+ mes "would you please send";
+ mes "Calla a present for me?";
+ next;
+ mes "[Clitzer]";
+ mes "All you need to do is";
+ mes "just give her ^FF00001 Flower^000000.";
+ mes "I don't have the zeny and";
+ mes "I don't think I'm welcome";
+ mes "at Kapellthaine Manor.";
+ next;
+ mes "[Clitzer]";
+ mes "Here, in return, I'll";
+ mes "give you this health";
+ mes "massage. It's not a";
+ mes "big deal, but when I'm";
+ mes "done, your mind and body";
+ mes "will be refreshed. Here goes!";
+ next;
+ mes "^3151FF*Knead Knead*";
+ mes "*Rub Rub Rub Rub*";
+ mes "*Press Press Press*";
+ mes "*C-c-c-c-c-c-crakck!*^000000";
+ next;
+ mes "[" + strcharinfo(0) + "]";
+ mes "Oh--";
+ mes "Hell yeah!";
+ mes "That's the stuff!";
+ delitem 1901,1;
+ if(BaseLevel < 41)set BaseExp,BaseExp+3712;
+ else if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+7425;
+ else if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+14850;
+ else if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+29700;
+ else if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+59400;
+ else if(BaseLevel > 90)set BaseExp,BaseExp+118800;
+ set EIN_LOVERQ,4;
+ next;
+ mes "[Clitzer]";
+ mes "Would you please bring";
+ mes "1 Flower to Calla for me?";
+ mes "I'm sorry for troubling you...";
+ close;
+ break;
+
+ case 4:
+ mes "[Clitzer]";
+ mes "Would you please bring";
+ mes "1 Flower to Calla for me?";
+ mes "I'm sorry for troubling you...";
+ close;
+ break;
+
+ case 5:
+ mes "[Clitzer]";
+ mes "You've given her";
+ mes "the flower? That's";
+ mes "great! Thank you,";
+ mes "thank you so mu--";
+ next;
+ mes "[Clitzer]";
+ mes "...Oh!";
+ mes "Gosh! I was thinking so";
+ mes "much about myself that";
+ mes "I forgot to ask you for your";
+ mes "name! I'm sorry for being";
+ mes "so knuckle-headed...";
+ next;
+ mes "[Clitzer]";
+ mes "So...";
+ mes "What's your name?";
+ next;
+ input @str$;
+ if(@str$ != strcharinfo(0))goto s_WrongName;
+ mes "[Clitzer]";
+ mes "" + strcharinfo(0) + "...";
+ mes "That's very nice. Thank you,";
+ mes "I'm really grateful for your help.";
+ mes "Although I can't see Calla in";
+ mes "person, I can at least send";
+ mes "my regards if you help me.";
+ next;
+ mes "[Clitzer]";
+ mes "I feel so much";
+ mes "better now. Oh!";
+ mes "When you have the";
+ mes "time, why don't you talk";
+ mes "to my mother? She always";
+ mes "likes meeting my friends.";
+ set EIN_LOVERQ,6;
+ close;
+
+ s_WrongName:
+ mes "[Clitzer]";
+ mes "Hm...?";
+ mes "Oh, don't be";
+ mes "so nervous~";
+ mes "But would you please";
+ mes "tell me your name again?";
+ mes "I couldn't hear you...";
+ close;
+ break;
+
+ case 6:
+ case 7:
+ case 8:
+ case 9:
+ case 10:
+ case 11:
+ mes "[Clitzer]";
+ mes "^111111*Sigh...*^000000";
+ mes "What can I do to";
+ mes "get Calla's parents";
+ mes "to accept me as her";
+ mes "boyfriend? I can't";
+ mes "think of anything...";
+ close;
+ break;
+
+ case 12:
+ mes "[Clitzer]";
+ mes "Eh...?";
+ mes "What did you just say?";
+ mes "You did something for";
+ mes "the Kapellthaines?";
+ next;
+ mes "[Clitzer]";
+ mes "What...?";
+ mes "Did you just say";
+ mes "that Calla's mother";
+ mes "wants me to have tea";
+ mes "with her? Holy moley...!";
+ next;
+ mes "[Clitzer]";
+ mes "Okay, okay.";
+ mes "I-I I'll need something";
+ mes "nice to wear, right? Oh.";
+ mes "Wow. This is so sudden!";
+ mes "W-what should I do?";
+ next;
+ mes "[Clitzer]";
+ mes "This monkey suit";
+ mes "that I've got on just";
+ mes "won't do! Arrrgh! But I've";
+ mes "already outgrown all of my";
+ mes "nice clothes already. Boy,";
+ mes "am I in a pickle...";
+ set EIN_LOVERQ,13;
+ close;
+ break;
+
+ case 13:
+ if((countitem(2320) || countitem(7170)) || (countitem(2320) && countitem(7170)))goto s_Clothes;
+ mes "[Clitzer]";
+ mes "Noooooo!";
+ mes "I've got to find";
+ mes "the perfect thing";
+ mes "to wear or Calla's";
+ mes "mother might ^FF0000hate^000000 me!";
+ next;
+ mes "[Clitzer]";
+ mes "Think, Clitzer, think!";
+ mes "Okay, no fun colors.";
+ mes "I don't want her to";
+ mes "think I'm not serious";
+ mes "about Calla. Stripes";
+ mes "might be bad too...";
+ close;
+ break;
+
+ case 14:
+ case 15:
+ mes "[Clitzer]";
+ mes "Look out, world!";
+ mes "I'm gonna become";
+ mes "worth of Calla's love!";
+ mes "Someday, maybe even her";
+ mes "parents will approve me!";
+ close;
+ break;
+
+ }
+
+s_Clothes:
+ mes "[Clitzer]";
+ mes "Waaah!";
+ mes "What should I wear?!";
+ mes "I can't for the life of me";
+ mes "figure this out! Something,";
+ mes "um, formal? I've never worn";
+ mes "anything like that before!";
+ next;
+ if(countitem(7170)){ set @clothes,7170; goto s_Tux; }
+ if(countitem(2320)){ set @clothes,2320; goto s_Formal; }
+ close;
+
+s_Tux:
+ mes "[Clitzer]";
+ mes "Wait, " + strcharinfo(0) + ".";
+ mes "What's that you've got";
+ mes "there? I've seen something";
+ mes "like that before. It's called";
+ mes "a Tuxedo, right? Something";
+ mes "like that would be perfect!";
+ next;
+ menu "Give it to him.",s_Giveclothes,"Ignore him.",-;
+
+ mes "[Clitzer]";
+ mes "But how can I get";
+ mes "a Tuxedo? Ooh, I hope";
+ mes "it doesn't cost too much";
+ mes "zeny or I won't be able to";
+ mes "get one of those soon...";
+ close;
+
+s_Formal:
+ mes "[Clitzer]";
+ mes "Wait, " + strcharinfo(0) + ".";
+ mes "What's that you've got";
+ mes "there? I've seen something";
+ mes "like that before. It's called";
+ mes "a Formal Suit, right?";
+ mes "Something like that would";
+ mes "be perfect!";
+ next;
+ menu "Give it to him.",s_Giveclothes,"Ignore him.",-;
+
+ mes "[Clitzer]";
+ mes "But how can I get";
+ mes "a Formal Suit? I hope";
+ mes "it doesn't cost too much";
+ mes "zeny or I won't be able to";
+ mes "get one of those soon...";
+ close;
+
+s_Giveclothes:
+ mes "[Clitzer]";
+ mes "I can have this?";
+ mes "Oh, thank you so much!";
+ mes "Finally, I have something";
+ mes "nice enough to wear to meet";
+ mes "Calla's mom! What a relief!";
+ next;
+ mes "[Clitzer]";
+ mes "You've been helping me all";
+ mes "this time and I haven't properly";
+ mes "expressed my gratitude. I'm sorry";
+ mes "if I've been to absorbed in my own";
+ mes "problems. I may be poor, but I need";
+ mes "to repay you somehow...";
+ next;
+ mes "[Clitzer]";
+ mes "Wait...";
+ mes "Why don't you have this";
+ mes "ore? I don't how";
+ mes "valuable it is, but I know";
+ mes "that it's pretty rare. It may";
+ mes "even be useful to you later~";
+ delitem @clothes,1;
+ set EIN_LOVERQ,14;
+ switch(rand(1,9))
+ {
+ case 1:
+ getitem 7289,1;
+ break;
+
+ case 2:
+ getitem 7290,1;
+ break;
+
+ case 3:
+ getitem 7291,1;
+ break;
+
+ case 4:
+ getitem 7292,1;
+ break;
+
+ case 5:
+ getitem 7293,1;
+ break;
+
+ case 6:
+ getitem 7294,1;
+ break;
+
+ case 7:
+ getitem 7295,1;
+ break;
+
+ case 8:
+ getitem 7296,1;
+ break;
+
+ case 9:
+ getitem 7297,1;
+ break;
+ }
+ next;
+ mes "[Clitzer]";
+ mes "" + strcharinfo(0) + ",";
+ mes "you've really opened";
+ mes "my eyes. From now on,";
+ mes "I'll do my best to earn the";
+ mes "approval of Calla's parents and";
+ mes "become worthy of Calla's love.";
+ close;
+
}
diff --git a/npc/cities/einbroch.txt b/npc/cities/einbroch.txt
index eac1047b9..56d6f6eb9 100644
--- a/npc/cities/einbroch.txt
+++ b/npc/cities/einbroch.txt
@@ -3,7 +3,7 @@
//===== By: ==================================================
//= Nexon
//===== Current Version: =====================================
-//= 0.9
+//= 1.0
//===== Compatible With: =====================================
//= eAthena Revision 3000+
//===== Description: =========================================
@@ -21,6 +21,7 @@
//= 0.8 Implemented the Shinokas quest, thanks to [MasterOfMuppets]
//= Dj-Yhn for scripting it.
//= 0.9 Removed Duplicates [Silent]
+//= 1.0 Implemented the Lover's quest. [MasterOfMuppets]
//============================================================
@@ -2500,6 +2501,12 @@ OnTouch:
}
ein_in01.gat,31,151,4 script Satra 850,{
+ if(EIN_LOVERQ > 11)goto s_Intimi;
+ if(EIN_LOVERQ == 11)goto s_Coal4;
+ if(EIN_LOVERQ == 10)goto s_Coal3;
+ if(EIN_LOVERQ == 9)goto s_Coal2;
+ if(EIN_LOVERQ == 8)goto s_Coal1;
+ if(EIN_LOVERQ == 7)goto s_Advent;
mes "[Satra]";
mes "A wandering";
mes "adventurer...?";
@@ -2521,9 +2528,411 @@ ein_in01.gat,31,151,4 script Satra 850,{
mes "than welcome to enjoy the";
mes "furnishings. Ho ho ho ho~";
close;
+
+s_Advent:
+ mes "[Satra]";
+ mes "A wandering adventurer...?";
+ mes "How ravishingly delightful!";
+ mes "You must have risked life and";
+ mes "limb to sneak past my husband";
+ mes "to enjoy the captivating sights";
+ mes "of my home. Ho ho ho ho~";
+ next;
+ mes "[Satra]";
+ mes "Since you're a very";
+ mes "unique quest, I shall";
+ mes "give you a unique honor";
+ mes "and deign to converse";
+ mes "with you, adventurer.";
+ next;
+ mes "[Satra]";
+ mes "Einbech exists to provide";
+ mes "my family with coal and";
+ mes "materials from their mines.";
+ mes "It's a natural law: workers";
+ mes "must be led by a chosen few.";
+ next;
+ mes "[Satra]";
+ mes "It's delightfully";
+ mes "ludicrous to see those";
+ mes "workers aspire to reach";
+ mes "our heights of social";
+ mes "prestige. Ho ho ho ho~";
+ next;
+ mes "[Satra]";
+ mes "Oh, I haven't spoken to";
+ mes "someone from a lower";
+ mes "class in ages! It feels";
+ mes "so forbiddenly exciting!";
+ next;
+ mes "[Satra]";
+ mes "Well adventurer, that's";
+ mes "the end of our informal";
+ mes "chat. I'll even grant you";
+ mes "full permission to boast";
+ mes "of the fact that you've";
+ mes "spoken to Lady Satra.";
+ next;
+ mes "[Satra]";
+ mes "If you wish for";
+ mes "me to share words with";
+ mes "you once more, prove to";
+ mes "me that you're worthier";
+ mes "than the other peons of";
+ mes "my graceful presence.";
+ next;
+s_Coal1:
+ mes "[Satra]";
+ mes "Oh, I have a marvelous";
+ mes "idea! Why don't you bring";
+ mes "me ^9C0000Coals^000000? It's not impossible";
+ mes "for someone like yourself, but";
+ mes "this kind of task will require";
+ mes "some effort on your part.";
+ next;
+ if(EIN_LOVERQ == 8 && countitem(1003) > 9)goto s_GotCoal1;
+ mes "[Satra]";
+ mes "Tah tah,";
+ mes "adventurer~";
+ if(EIN_LOVERQ == 7)set EIN_LOVERQ,8;
+ close;
+
+s_GotCoal1:
+ mes "[Satra]";
+ mes "My, you've already";
+ mes "brought the Coal?";
+ mes "How charmingly";
+ mes "prompt you are~";
+ next;
+ mes "[Satra]";
+ mes "On behalf of the";
+ mes "Kappellthaine family,";
+ mes "I shall ignore your lowly";
+ mes "status and graciously";
+ mes "accept your small gift.";
+ mes "Ho ho ho~";
+ next;
+ mes "[Satra]";
+ mes "Do you hail from";
+ mes "Einbech, adventurer?";
+ mes "Ah, the Rune-Midgarts";
+ mes "kingdom! I've visited your";
+ mes "country. It's quite quaint";
+ mes "and Jawaii is very lovely.";
+ next;
+ mes "[Satra]";
+ mes "Well, I shall try to";
+ mes "find some use for these.";
+ mes "I'm afraid the gift I've asked";
+ mes "from you isn't very practical.";
+ mes "How is coal usually used?";
+ mes "Ah, I have a novel idea!";
+ next;
+ mes "[Satra]";
+ mes "Wouldn't it be";
+ mes "intoxicatingly wild if";
+ mes "Megass were to hold one";
+ mes "of those social functions that";
+ mes "the lower classes are so fond";
+ mes "of? A 'barbeque', yes?";
+ next;
+ mes "[Satra]";
+ mes "In any case, If you";
+ mes "bring me more of that";
+ mes "Coal, you would be even";
+ mes "more favored by me and";
+ mes "you'll become a recipient";
+ mes "of my good graces. Ho ho~";
+ set EIN_LOVERQ,9;
+ delitem 1003,10;
+ close;
+
+s_Coal2:
+ mes "[Satra]";
+ mes "^111111*Titter~*^000000";
+ mes "Why, if it isn't my";
+ mes "intrepid adventurer.";
+ mes "Ho ho ho ho~";
+ next;
+ if(countitem(1003) > 9)goto s_GotCoal2;
+ mes "[Satra]";
+ mes "My apologies, but you";
+ mes "must first prove to me";
+ mes "that you are worthy of";
+ mes "conversation. Why don't";
+ mes "you deliver more of those";
+ mes "^9C0000Coals^000000, mmm?";
+ next;
+ mes "[Satra]";
+ mes "After all, I have no other";
+ mes "means of knowing whether";
+ mes "or not you appreciate the time";
+ mes "I sacrifice by socializing with";
+ mes "someone of your status.";
+ mes "Ho ho ho ho~";
+ close;
+
+s_GotCoal2:
+ mes "[Satra]";
+ mes "My word!";
+ mes "Why are you carrying";
+ mes "all of that dirty Coal";
+ mes "with you? You poor,";
+ mes "impoverished thing.";
+ next;
+ mes "[Satra]";
+ mes "Oh! Dear me,";
+ mes "I've nearly forgotten~";
+ mes "How divinely silly of me!";
+ mes "Once again, I graciously";
+ mes "accept your small gift on";
+ mes "behalf of the Kappelthaines.";
+ next;
+ mes "[Satra]";
+ mes "Let me share a little";
+ mes "bit of history concerning";
+ mes "our lovely Einbroch. At one";
+ mes "time, there was only Einbech,";
+ mes "the mining village. You can";
+ mes "imagine how long ago that was.";
+ next;
+ mes "[Satra]";
+ mes "However, the minerals";
+ mes "and ores mined in Einbech";
+ mes "need to be processed and";
+ mes "refined in factories that were";
+ mes "all built in a nearby industrial";
+ mes "comple which became Einbroch.";
+ next;
+ mes "[Satra]";
+ mes "Now every citizen in";
+ mes "Einbroch is wealthy and";
+ mes "it's well known that there";
+ mes "is a higher standard of";
+ mes "living here than in Einbech.";
+ next;
+ mes "[Satra]";
+ mes "Goodness, I believe";
+ mes "it's time for a spot of tea~";
+ mes "The next time you wish to have";
+ mes "an audience with me, it would";
+ mes "behoove you to bring another";
+ mes "gift of Coal. Toodles~";
+ set EIN_LOVERQ,10;
+ delitem 1003,10;
+ close;
+
+s_Coal3:
+ mes "[Satra]";
+ mes "Why hello~";
+ mes "Your visits have";
+ mes "recently been quite";
+ mes "delightful, fair adventurer.";
+ next;
+ mes "[Satra]";
+ mes "Oh, my apologies!";
+ mes "I supposed you're just";
+ mes "here for sight seeing,";
+ mes "or perhaps you're running";
+ mes "some sort of adventurer's";
+ mes "errand. Am I right?";
+ next;
+ if(countitem(1003) > 9)goto s_GotCoal3;
+ mes "[Satra]";
+ mes "I know you well enough";
+ mes "to know that you wouldn't";
+ mes "be so rude as to stop by";
+ mes "and chat without bringing";
+ mes "any ^9C0000Coal^000000. Ho ho ho ho~";
+ close;
+
+s_GotCoal3:
+ mes "[Satra]";
+ mes "Continue to show";
+ mes "your appreciation";
+ mes "and dedication to me";
+ mes "and you'll soon be known";
+ mes "to be my most favored";
+ mes "commoner. Ho ho ho ho~";
+ next;
+ mes "[Satra]";
+ mes "I'm sure you've noticed";
+ mes "the strained relationship";
+ mes "between Einbroch and Einbech";
+ mes "by now. It's a shame, really.";
+ next;
+ mes "[Satra]";
+ mes "As Einbroch grew wealthier";
+ mes "and Einbech became more";
+ mes "destitude, the affluent began";
+ mes "despising the impoverished.";
+ mes "I supposed it follows that the";
+ mes "poor started to resent the rich.";
+ next;
+ mes "[Satra]";
+ mes "It might be said that";
+ mes "both towns have been";
+ mes "trying to take advantage";
+ mes "of each other, but it's";
+ mes "clear that Einbroch has";
+ mes "always had the upper hand.";
+ next;
+ mes "[Satra]";
+ mes "In fact, because of";
+ mes "this rift between our";
+ mes "cities, our families are";
+ mes "taught not to associate";
+ mes "with the people of Einbech.";
+ next;
+ mes "[Satra]";
+ mes "Now, I believe that most";
+ mes "people who live in Einbech";
+ mes "are peons, but that does not";
+ mes "mean I will not give them a";
+ mes "chance to prove their worth.";
+ next;
+ mes "[Satra]";
+ mes "Why should I deprive";
+ mes "the lowly of my gracious";
+ mes "presence if they prove";
+ mes "themselves meritable?";
+ mes "Ho ho ho ho~";
+ next;
+ mes "[Satra]";
+ mes "Oh, that was scrumptious!";
+ mes "If you wish to pay me another";
+ mes "visit, don't forget to bring some";
+ mes "Coal with you. Tah tah~";
+ set EIN_LOVERQ,11;
+ delitem 1003,10;
+ close;
+
+s_Coal4:
+ mes "[Satra]";
+ mes "Ho ho ho ho~";
+ mes "Welcome adventurer,";
+ mes "I so enjoy our little chats.";
+ mes "Hors d'oeuvre?";
+ next;
+ if(countitem(1003) > 9)goto s_GotCoal4;
+ mes "[Satra]";
+ mes "Ah...";
+ mes "It seems you've";
+ mes "forgotten your ^9C0000Coals^000000.";
+ mes "A silly mistake, but one";
+ mes "I'm willing to overlook.";
+ close;
+
+s_GotCoal4:
+ mes "[Satra]";
+ mes "Oh! You can't enjoy";
+ mes "any food in that state!";
+ mes "Your hands are atrociously";
+ mes "grimy! May I ask why?";
+ next;
+ mes "[Satra]";
+ mes "Ah~";
+ mes "In my excitement,";
+ mes "I nearly forgot that";
+ mes "I asked you to bring";
+ mes "Coals to me again!";
+ mes "My apologies~";
+ next;
+ mes "[Satra]";
+ mes "You've brought so much Coal";
+ mes "to me, I'm convinced that you're";
+ mes "much more diligent than those";
+ mes "languid peasants in Einbech.";
+ mes "I appreciate that you've labored";
+ mes "so much to win my favor.";
+ next;
+ mes "[Satra]";
+ mes "Hm, what was that?";
+ mes "someone else provided";
+ mes "these Coals and you were";
+ mes "only delivering them? Then";
+ mes "who actually gathered these?";
+ next;
+ input @str$;
+ if(@str$ != "Clitzer")goto s_WrongName;
+ mes "[Satra]";
+ mes "Ah, Clitzer?";
+ mes "I must say, that's";
+ mes "a very humble name.";
+ mes "Yet it's so familiar...";
+ next;
+ mes "[Satra]";
+ mes "Ah, I recall there";
+ mes "was a hooligan that";
+ mes "has been pestering my";
+ mes "daughter named Clitzer.";
+ mes "Perhaps they are one";
+ mes "and the same. Hmm...";
+ next;
+ mes "[Satra]";
+ mes "I remember that he was";
+ mes "rather shabby looking and";
+ mes "lacked any semblance of";
+ mes "etiquette whatsoever. Clearly,";
+ mes "he is a fool and a coward, but";
+ mes "now I see that he is sincere.";
+ next;
+ mes "[Satra]";
+ mes "It might not be possible";
+ mes "to let him go otu with my";
+ mes "daughter straight away, but";
+ mes "I will invite him for a spot of";
+ mes "tea. And if Calla likes him,";
+ mes "well, he must be special.";
+ next;
+ mes "[Satra]";
+ mes "For a humble peasant,";
+ mes "this must be like a dream";
+ mes "come true! And to have tea";
+ mes "with Clitzer. Oh, what would";
+ mes "the girls say? Ah, but I did";
+ mes "marry that oafish Megass~";
+ next;
+ mes "[Satra]";
+ mes "Anyway, when you next";
+ mes "meet Clitzer, please tell";
+ mes "him to pay me a visit soon.";
+ mes "Oh, and remind him to dress";
+ mes "appropriately for this special";
+ mes "occasion. Ho ho ho ho ho~";
+ set EIN_LOVERQ,12;
+ close;
+
+s_WrongName:
+ mes "[Satra]";
+ mes "I beg your pardon?";
+ mes "" + @str$ + "? Oh my...";
+ mes "I believe I may have";
+ mes "misheard you. Ho ho ho ho~";
+ close;
+
+s_Intimi:
+ mes "[Satra]";
+ mes "I understand that my";
+ mes "home is extravagantly";
+ mes "splendid and to approach";
+ mes "any Kappelthaine is an";
+ mes "honor t most commoners.";
+ next;
+ mes "[Satra]";
+ mes "However, Clitzer";
+ mes "has no reason to feel so";
+ mes "intimidated. Tell the poor";
+ mes "boy that he's earned the";
+ mes "honor of speaking with me.";
+ close;
+
}
ein_in01.gat,31,138,4 script Calla 90,{
+ if(EIN_LOVERQ > 4 && EIN_LOVERQ < 14)goto s_NoSwitch;
+ if(EIN_LOVERQ > 1)goto s_Switches;
+s_NoSwitch:
mes "[Calla]";
mes "Hello adventurer.";
mes "Our city must just be";
@@ -2546,7 +2955,217 @@ ein_in01.gat,31,138,4 script Calla 90,{
mes "heart's true desire?";
mes "What I would give to";
mes "be able to do that...";
+ if(!EIN_LOVERQ)set EIN_LOVERQ,1;
close;
+
+s_Switches:
+ switch(EIN_LOVERQ)
+ {
+
+ case 2:
+ mes "[Calla]";
+ mes "You're the adventurer";
+ mes "from before, aren't you?";
+ mes "Sadly, there isn't much";
+ mes "to do around here. This";
+ mes "place is basically like";
+ mes "a prison to me...";
+ next;
+ mes "[Calla]";
+ mes "Oh, you've met Clitzer?";
+ mes "Isn't he so kind, such";
+ mes "a perfect gentleman?";
+ next;
+ mes "[Calla]";
+ mes "I really wish I could";
+ mes "see him, but it's almost";
+ mes "impossible. My parents think";
+ mes "he's not good enough for me,";
+ mes "but they're wrong! What am";
+ mes "I going to do? Oh, Clitzer...";
+ next;
+ mes "[Calla]";
+ mes "Well, maybe I can't see";
+ mes "him, but would you give";
+ mes "my violin to Clitzer for me?";
+ mes "I used to play this for him";
+ mes "all the time...";
+ next;
+ mes "[Calla]";
+ mes "I'm sorry to trouble you,";
+ mes "but please understand";
+ mes "that I want to comfort my";
+ mes "Clitzer in any way that";
+ mes "I possibly can. Thank";
+ mes "you so much, adventurer...";
+ set EIN_LOVERQ,3;
+ getitem 1901,1;
+ close;
+ break;
+
+ case 3:
+ s_Regards:
+ mes "[Calla]";
+ mes "Oh, please send my";
+ mes "regards to Clitzer for me.";
+ mes "I wish I could comnfort";
+ mes "him in person, but this";
+ mes "is the best I can do for now.";
+ close;
+ break;
+
+ case 4:
+ if(!countitem(712))goto s_Regards;
+ mes "[Calla]";
+ mes "You've spoken";
+ mes "with Clitzer? How";
+ mes "is he? What did he say?";
+ next;
+ mes "[Calla]";
+ mes "Oh...?";
+ mes "He asked you to";
+ mes "deliver this flower";
+ mes "to me? How sweet~";
+ mes "Thank you very much,";
+ mes "kind adventurer~";
+ next;
+ mes "[Calla]";
+ mes "Ah, I'm so rude!";
+ mes "I've been calling you";
+ mes "^111111*adventurer*^000000 this whole";
+ mes "time you've been helping";
+ mes "me! Would you please";
+ mes "tell me your name?";
+ next;
+ input @str$;
+ if(@str$ != strcharinfo(0))goto s_WrongName;
+ mes "[Calla]";
+ mes "Ah, " + strcharinfo(0) + "!";
+ mes "Such a lovely name~";
+ mes "I promise that I won't ever";
+ mes "forget it. Oh, and if you pass by";
+ mes "Einbech, would you thank Clitzer";
+ mes "for the flower for me please?";
+ next;
+ mes "[Calla]";
+ mes "A-and... And...";
+ mes "Please tell him that";
+ mes "I really miss him a lot.";
+ mes "^565656*Sob Sob...*";
+ delitem 712,1;
+ set EIN_LOVERQ,5;
+ close;
+ break;
+
+ case 14:
+ mes "[Calla]";
+ mes "I just heard from my mother";
+ mes "that she's planning to have";
+ mes "tea with Clitzer! I'm sure that";
+ mes "I have you to thank for this~";
+ next;
+ mes "[Calla]";
+ mes "I never dreamed that";
+ mes "something as wonderful";
+ mes "as this could happen.";
+ mes "I'm so happy, I could cry...";
+ mes "I'll always be grateful";
+ mes "for what you've done.";
+ next;
+ mes "[Calla]";
+ mes "I feel like such a fool,";
+ mes "thinking it was all hopeless.";
+ mes "I'll be doing my best to have";
+ mes "my parents accept Clitzer and";
+ mes "someday we'll be married~";
+ next;
+ mes "[Calla]";
+ mes "There isn't much that I can";
+ mes "give you, but I can show you";
+ mes "one of my family's secrets.";
+ mes "It's an invigorating massage";
+ mes "technique that makes you alot";
+ mes "healthier in only ten seconds.";
+ next;
+ mes "[Calla]";
+ mes "Well, please take";
+ mes "off your equipment";
+ mes "and stand still while";
+ mes "I give the massage. It";
+ mes "might hurt a bit at first...";
+ nude;
+ next;
+ mes "^3151FF*Rub Rub Rub*";
+ mes "*Knead Knead Knead*";
+ mes "*Crrack C-c-c--c-crack*";
+ mes "*Crack Crack Crrrrrack*";
+ mes "*Rub Crrraaaaaaaaaackk*^000000";
+ next;
+ mes "[" + strcharinfo(0) + "]";
+ mes "Ooooooooh...";
+ mes "I feel sooo";
+ mes "sore and yet";
+ mes "soooooo good.";
+ mes "Wait. Now I just";
+ mes "feel goooood~";
+ if(BaseLevel < 41)set BaseExp,BaseExp+3712;
+ else if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+7425;
+ else if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+14850;
+ else if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+29700;
+ else if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+59400;
+ else if(BaseLevel > 90)set BaseExp,BaseExp+118800;
+ set EIN_LOVERQ,15;
+ next;
+ mes "[Calla]";
+ mes "So how was it?";
+ mes "I hope it was refreshing.";
+ mes "Please understand that";
+ mes "it's the best thing I can";
+ mes "give you to show my gratitude.";
+ next;
+ mes "[Calla]";
+ mes "Once again,";
+ mes "thank you so";
+ mes "much, " + strcharinfo(0) + ".";
+ mes "I'll always pray for";
+ mes "your safety on your";
+ mes "your adventures~";
+ close;
+ break;
+
+ case 15:
+ mes "[Calla]";
+ mes "Thank you so much!";
+ mes "I'll try my best to convince";
+ mes "my parents to accept our";
+ mes "relationship. It'll be hard,";
+ mes "but it's a good first step~";
+ next;
+ mes "[Calla]";
+ mes "I hope that we can all";
+ mes "work together ti improve";
+ mes "relations between Einbech";
+ mes "and Einbroch. The hatred";
+ mes "between our towns must end...";
+ next;
+ mes "[Calla]";
+ mes "I really appreciate";
+ mes "what you've done for";
+ mes "all of use. I'll be praying";
+ mes "for your safety, adventurer.";
+ close;
+ break;
+
+ }
+
+s_WrongName:
+ mes "[Calla]";
+ mes "I'm sorry...";
+ mes "I didn't catch that.";
+ mes "would you please tell";
+ mes "me your name again?";
+ close;
+
}
ein_in01.gat,32,133,6 script Maid 850,{