Просмотр исходного кода

Implemented the Lover's quest.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@7215 54d463be-8e91-2dee-dedb-b68131a5f0ec
MasterOfMuppets 19 лет назад
Родитель
Сommit
a0ff9919cc
3 измененных файлов с 1109 добавлено и 4 удалено
  1. 1 0
      npc/Changelog.txt
  2. 488 3
      npc/cities/einbech.txt
  3. 620 1
      npc/cities/einbroch.txt

+ 1 - 0
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]

+ 488 - 3
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;
+
 }
 
 

+ 620 - 1
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,{