Full npc folder reorganization. (I hope I didn't break anything D:)

-Now common scripts goes to the main npc folder, and pre-re-only/re-only ones goes to their respective folders.
-NPCs with practically the same script but little differences have been left in the main folder and uses the command checkre() for the differences.
-For those NPCs with different coordinates but same script, the script has been left in the main folder but the NPCs splitted as duplicates.
-All pre-renewal files has been reverted back to their pre-renewal behavior.

TODO:
-Correct pre-re quest rewards.
-Check for pre-re/re differences in mapflags.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16545 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 3670 insertions, 0 deletions

diff --git a/npc/quests/quests_prontera.txt b/npc/quests/quests_prontera.txt
new file mode 100644
index 000000000..b5a3dd705
--- /dev/null
+++ b/npc/quests/quests_prontera.txt
@@ -0,0 +1,3670 @@
+//===== rAthena Script ======================================= 
+//= Quest NPCs related to Prontera
+//===== By: ================================================== 
+//= kobra_k88; L0ne_W0lf
+//===== Current Version: ===================================== 
+//= 2.7
+//===== Compatible With: ===================================== 
+//= rAthena SVN
+//===== Description: ========================================= 
+//= Collection of Prontera-based quests.
+//= * Culvert Access
+//= * Ph.D Hat Quest
+//= * Gaebolg Family Curse
+//===== Comments: ============================================
+//= Culvert Access:
+//= - [Aegis Conversion]
+//= - Variable in use: MISC_QUEST (bit 8)
+//= Ph.D Hat Quest:
+//= - [Aegis Conversion]
+//= - n/a
+//= Gaebolg Family Curse:
+//= - [Aegis Conversion]
+//= - Variable in use: prt_curse (max 61)
+//===== Additional Comments: ================================= 
+//= Fixed flower name Dreamy -> Illusion
+//= 1.2 Fixed exploit [Lupus]
+//= 1.3 Removed Duplicates [Silent]
+//= 1.4 Moved Culvert from cities/prontera.txt [Evera]
+//= 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]
+//= 1.7b Fixed some minor typos. [SinSloth]
+//= 1.7c replaced item "names" with item id. [Lupus]
+//= 1.8 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
+//= 1.9 Fixed "him" -> "her" in Ph.D hat quest. THansk to yyCC. [L0ne_W0lf]
+//= 2.0 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
+//= 2.0a Corrected a Typo error ";;". [Samuray22]
+//= 2.0b Corrected a Typo error. (bugreport:950) [Samuray22]
+//= 2.1 Added missing checkweights. [L0ne_W0lf]
+//= 2.2 Added Nameless Island quest addition. [L0ne_W0lf]
+//= 2.3 Bamph will now talk to those who failed the Gaebolg quest. [L0ne_W0lf]
+//= 2.3a Touch up to Bamph fo other fail-points. [L0ne_W0lf]
+//= 2.3b Hopefully the last change needed for Nameless quest. [L0ne_W0lf]
+//= 2.4 Updated Headgear Quest. [L0ne_W0lf]
+//= 2.5 Fixed requirements for PH D. Hat. [L0ne_W0lf]
+//= 2.5a Fixed requirements for PH D. Hat agian lol. [L0ne_W0lf]
+//= 2.6 Replaced effect numerics with constants. [L0ne_W0lf]
+//= 2.7 Corrected 'IProntera' typo. (bugreport:4522) [L0ne_W0lf]
+//============================================================ 
+
+// Prontera Culvert
+//============================================================ 
+prt_in,88,105,2	script	Recruiter	105,{
+	if (MISC_QUEST & 8) {
+		mes "[Recruiter]";
+		mes "Ah...";
+		mes "I know those eyes.";
+		mes "Full of compassion";
+		mes "...and courage.";
+		next;
+		mes "[Recruiter]";
+		mes "Of course you're a volunteer for campaign to reclaim the Prontera Culvert. Would you let me warp you there?";
+		next;
+		if (select("Warp to Culvert Entrance.:Quit.") == 1) {
+			warp "prt_fild05",274,208;
+			end;
+		}
+		close;
+	}
+	mes "[Recruiter]";
+	mes "Ah, let me inform you that the Capital Defense Headquarter of the Rune-Midgarts Kingdom has now decided to recruit a punitive force due to the Prontera Culvert's situation.";
+	next;
+	switch(select("Volunteer.:Situation...?:Quit.")) {
+	case 1:
+		callsub S_Volunteer;
+		mes "[Recruiter]";
+		mes "Are you ready, hero?";
+		mes "I will now warp you";
+		mes "to the Culvert.";
+		next;
+		warp "prt_fild05",274,208;
+		end;
+	case 2:
+		mes "[Recruiter]";
+		mes "Haven't you heard...?";
+		mes "The Prontera Culvert is infested with all kinds of filthy vermin!";
+		next;
+		mes "[Recruiter]";
+		mes "Due to the serious risk of water contamination, and the safety of Rune-Midgardians, the Culvert has been quarantined by royal decree.";
+		next;
+		mes "[Recruiter]";
+		mes "Needless to say, this has caused shortages in the water supply in our kingdom. Indeed, such a crisis in these dark times...";
+		next;
+		mes "[Recruiter]";
+		mes "Our people";
+		mes "thirst for water...";
+		mes "But they thirst";
+		mes "even more...";
+		mes "For a hero!";
+		next;
+		mes "[Recruiter]";
+		mes "Will you stand idly as the children of Rune-Midgarts suffer from parched throats and shed tears of dryness?! Would you bury our children?!";
+		next;
+		mes "[Recruiter]";
+		mes "Warriors! Rune-Midgarts is calling you! Cleanse this land's pestilence and cast out the vermin in the Culvert! Only you... Can make a difference.";
+		next;
+		if (select("Volunteer.:Quit.") == 1) {
+			callsub S_Volunteer;
+			mes "[Recruiter]";
+			mes "Adventurer...";
+			mes "I will now warp you";
+			mes "to the Prontera Culvert.";
+			next;
+			warp "prt_fild05",274,208;
+			end;
+		}
+		mes "[Recruiter]";
+		mes "Hmpf. Well. The next time you take a drink of water, just remember that an average of nine and a half children just died... ^990000Of thirst^000000.";
+		close;
+
+	case 3:
+		close;
+	}
+
+S_Volunteer:
+	set MISC_QUEST,MISC_QUEST | 8;
+	mes "[Recruiter]";
+	mes "Your registration...";
+	mes "is now complete.";
+	next;
+	mes "[Recruiter]";
+	mes "I would like to thank you for volunteering to do your part for our great kingdom. Here, take these provisions for your battles against the forces of darkness.";
+	next;
+	mes "[Recruiter]";
+	mes "3 Red Potions, 1 Milk,";
+	mes "and 1 Orange Potion";
+	mes "...to give you hope.";
+	getitem 501,3; //Red_Potion
+	getitem 519,1; //Milk
+	getitem 502,1; //Orange_Potion
+	next;
+	return;
+}
+
+prt_fild05,270,212,5	script	Culvert Guardian	105,{
+	if(MISC_QUEST & 8) {
+		mes "[Culvert Guardian]";
+		mes "Ah, you're one of our volunteers. This is the entrance of the Prontera Culvert.";
+		mes "Do you wish to";
+		mes "go inside?";
+		next;
+		if (select("Sure.:Quit.") == 1) {
+			warp "prt_sewb1",131,247;
+			end;
+		}
+		close;
+	}
+	mes "[Culvert Guardian]";
+	mes "I'm sorry, but we can only allow volunteers for the Culvert Campaign to enter.";
+	next;
+	mes "[Culvert Guardian]";
+	mes "If you'd like to volunteer, please visit the ^000077Culvert Registrar^000000 located in the 11 O'clock direction of Prontera.";
+	close;
+}
+
+// Ph.D Hat Quest
+//============================================================ 
+prt_in,38,108,4	script	Teacher	53,{
+	if ((countitem(710) > 0) && (countitem(703) > 0) && (countitem(704) > 0) && (countitem(708) > 0)) {
+		mes "[Teacher]";
+		mes "Oh...";
+		mes "Those Flowers in your hand are...";
+		next;
+		switch(select("Show Flowers:Present Flowers:Cancel")) {
+		case 1:
+			mes "[Teacher]";
+			mes "Ah...";
+			mes "Those are definitely the 4 kinds of Flowers I was looking for! Would you give them to me?";
+			next;
+			mes "[Teacher]";
+			mes "If you would...";
+			mes "I'll give you my precious item.";
+			close;
+		case 2:
+			if ((countitem(710) > 0) && (countitem(703) > 0) && (countitem(704) > 0) && (countitem(708) > 0)) {
+				delitem 710,1;  //Illusion_Flower
+				delitem 703,1;  //Hinalle
+				delitem 704,1;  //Aloe
+				delitem 708,1;  //Ment
+				getitem 5012,1;	//Ph.D_Hat
+				mes "[Teacher]";
+				mes "I really really appreciate you what you've done for me. I'm truly grateful. I will give my precious item to you as promised.";
+				next;
+				mes "[Teacher]";
+				mes "This is the Hat I've worn on my Graduation from my University. It reminds me of my happy school days. Please take this...";
+				close;
+			}
+			else {
+				mes "[Teacher]";
+				mes "... Oh, I'm Sorry.";
+				mes "But that's not what I'm looking for. Maybe you need to study flowers a little bit?";
+				close;
+			}
+		}
+	}
+	else {
+		mes "[Teacher]";
+		mes "Don't you think...";
+		mes "Flowers are pretty?";
+		next;
+		switch(select("Talk:Quit")) {
+		case 1:
+			mes "[Teacher]";
+			mes "When I was young,";
+			mes "I had no friends and";
+			mes "studied all the time.";
+			next;
+			mes "[Teacher]";
+			mes "Sometimes I regret what I did when I was younger, but it's not a big deal now. Through hard study, I finished entire educational courses earlier than all the other students.";
+			next;
+			mes "[Teacher]";
+			mes "However...";
+			mes "I was sad and sometimes lonely. Whenever the studying got too hard, I needed someone who would listen to me. Finally, one day, I met my best friend.";
+			next;
+			mes "[Teacher]";
+			mes "When I saw a Pretty Flower blooming in the abandoned Garden, I realized It was my friend which shared my fate.";
+			next;
+			mes "[Teacher]";
+			mes "Although it is a Common and Normal Flower to others, she gave me the reason to study again. I could achieve my goals because of her.";
+			next;
+			mes "[Teacher]";
+			mes "So recently...";
+			mes "I am trying to pay her back. Now I am studying Flowers, and plan to over the whole world with them.";
+			next;
+			mes "[Teacher]";
+			mes "To accomplish my work...";
+			mes "I need bunches of flowers. But for someone who rarely goes outside, it is really hard to find all the flowers I need.";
+			next;
+			mes "[Teacher]";
+			mes "I need 1 ^3355FFIllusion Flower^000000 ,1 ^3355FFHinalle^000000,1 ^3355FFAloe^000000 and 1 ^3355FFMent^000000. If you can bring them to me, I'd give you my treasure...";
+			close;
+		case 2:
+			mes "[Teacher]";
+			mes "One of these days I will cover this whole world with Flowers.";
+			close;
+		}
+	}
+}
+
+// Gaebolg Family Curse
+//============================================================ 
+prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
+	callsub S_CheckWeight; //Check Player's weight
+	if (BaseLevel > 59) {
+		if (prt_curse == 0) {
+			mes "[Busy-Looking Boy]";
+			mes "Aw nuts...";
+			mes "What am I gonna do?";
+			mes "I have to deliver these";
+			mes "books, but... I... Oh man,";
+			mes "I can't get scared now!";
+			close;
+		}
+		else if (prt_curse == 1) {
+			mes "[Busy-Looking Boy]";
+			mes "Aw nuts...";
+			mes "What am I gonna do?";
+			mes "I have to deliver these";
+			mes "books, but... I... Oh man,";
+			mes "I can't get scared now!";
+			next;
+			if (select("Speak with him:Ignore him") == 1) {
+				mes "["+strcharinfo(0)+"]";
+				mes "Say, what seems";
+				mes "to be the problem?";
+				next;
+				mes "[Busy-Looking Boy]";
+				mes ".........?";
+				next;
+				mes "[Busy-Looking Boy]";
+				if (sex) {
+					mes "Ack! You're that clumsy";
+					mes "dude who made me drop";
+				}
+				else {
+					mes "Ack! You're that ditzy";
+					mes "chick who made me drop";
+				}
+				mes "all of those books earlier!";
+				mes "Wait, you ditched me before,";
+				mes "so why act all concerned now?";
+				Emotion e_gasp;
+			}
+			else {
+				mes "[Busy-Looking Boy]";
+				mes "Okay, okay...";
+				mes "Don't even think";
+				mes "about floating in";
+				mes "the sky. You're like,";
+				mes "so stable. Don't think...";
+				mes "Just... Just board that ship...";
+				close;
+			}
+			next;
+			select("Well, I, um...");
+			mes "[Busy-Looking Boy]";
+			if (sex) {
+				mes "Yeah... A real";
+				mes "man wouldn't have";
+				mes "ditched back then";
+				mes "without helping me.";
+				mes "You're a real creepo,";
+				mes "you know that?";
+			}
+			else {
+				mes "Yeah... If you were";
+				mes "a graceful and considerate";
+				mes "lady, you woulda helped me";
+				mes "out before. I'm right, huh?";
+			}
+			next;
+			mes "^3355FFYou instinctively";
+			mes "kick over one of the";
+			mes "piles of books next";
+			mes "to the young boy.";
+			mes "You couldn't help it:";
+			mes "it was a natural reflex!^000000";
+			next;
+			Specialeffect EF_HITDARK;
+			Emotion e_omg;
+			mes "^3355FF*BAM!*^000000";
+			next;
+			Emotion e_omg;
+			mes "[Busy-Looking Boy]";
+			mes "Ack! Those books...!";
+			mes "It took me so long to";
+			mes "stack all of those!";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Oh no, what a mess!";
+			mes "Here, let me help you";
+			mes "arrange these nicely";
+			mes "out of the bottom of";
+			mes "my freakin' heart.";
+			Emotion e_lv,1;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "...";
+			mes "......";
+			mes ".........";
+			Emotion e_dots;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Huh...?";
+			mes "Oh, thanks for";
+			mes "helping me out here.";
+			mes "I really appreciate it.";
+			next;
+			select("Are these all yours?");
+			mes "[Busy-Looking Boy]";
+			mes "These? Oh, I'm supposed";
+			mes "to deliver these for my job.";
+			mes "I need to take these to Juno";
+			mes "from the Prontera Library";
+			mes "for a client. However, um...";
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Well...";
+			mes "I get motion sick really";
+			mes "easily, so it scares me to";
+			mes "death to ride the Airship";
+			mes "all the way to Juno.";
+			Emotion e_dots;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Now I'm in trouble!";
+			mes "I'm never late, but this";
+			mes "time I just can't help it.";
+			mes "There's nothing I can do!";
+			mes "Oh, I'm gonna lose this job!";
+			Emotion e_sob;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Wait... You adventurers";
+			mes "do a lot of traveling, right?";
+			mes "If you're traveling to Juno,";
+			mes "would you please deliver this";
+			mes "for me? I'll be in real trouble";
+			mes "if I don't send these books...";
+			next;
+			callsub S_GetBooks;
+			mes "[Busy-Looking Boy]";
+			mes "I-I understand.";
+			mes "It's none of your ";
+			mes "business, I know, but";
+			mes "I'm just so desperate...";
+			Emotion e_sob;
+			set prt_curse,2;
+			close;
+		}
+		else if (prt_curse == 2) {
+			mes "[Busy-Looking Boy]";
+			mes "Oh, hello again.";
+			mes "Sorry, but I'm trying to";
+			mes "concentrate here. Gonna...";
+			mes "Summon all my courage...";
+			mes "and b-board that Airship!";
+			mes "Argh! No, I can't do it!";
+			Emotion e_dots;
+			next;
+			callsub S_GetBooks;
+			mes "[Busy-Looking Boy]";
+			mes "^333333*Sob...*^000000";
+			mes "What am I gonna do?";
+			mes "That guy's been waiting";
+			mes "for me to deliver his books";
+			mes "for quite a while now...";
+			Emotion e_sob;
+			close;
+		}
+		else if (prt_curse == 3) {
+			mes "[Busy-Looking Boy]";
+			mes "Oh, please deliver";
+			mes "those books I gave";
+			mes "you to ^FF0000Mr. Karlomoff^000000, who";
+			mes "should be waiting around";
+			mes "the Juno Library. Thanks";
+			mes "again for your help~";
+			close;
+		}
+		mes "[Busy-Looking Boy]";
+		mes "Ack! Would you leave";
+		mes "me alone and let me work?";
+		mes "I've got something important";
+		mes "to do! When I finish arranging";
+		mes "these books,  need to... I need to make some preparations!";
+		close;
+	}
+	mes "[Busy-Looking Boy]";
+	mes "Ack! Would you leave";
+	mes "me alone and let me work?";
+	mes "I've got something important";
+	mes "to do! When I finish arranging";
+	mes "these books, I need to... I need to make some preparations!";
+	close;
+
+OnTouch:
+	callsub S_CheckWeight; //Check Player's weight
+	if (BaseLevel > 59) {
+		if (prt_curse == 0) {
+			Specialeffect EF_HITDARK;
+			mes "^3355FF*BAM!*^000000";
+			next;
+			mes "[Busy Looking Boy]";
+			mes "Hey, look out!";
+			mes "Can't you be more";
+			mes "careful?! Geeeeez!";
+			Emotion e_ag;
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Oops, I'm so sorry.";
+			mes "Are you alright?";
+			next;
+			mes "[Busy Looking Boy]";
+			mes "Yeah, no thanks to you!";
+			mes "Oh... Don't worry, I'm fine.";
+			next;
+			mes "^3355FFYou notice that the boy";
+			mes "dropped many hardcover";
+			mes "books that are probably about";
+			mes "ruins and their legends, based";
+			mes "on their titles. The boy dusted";
+			mes "himself off and began to";
+			mes "carefully pile the books.^000000";
+			next;
+			if (select("Leave:Help him pile the books") == 1) {
+				mes "[Busy-Looking Boy]";
+				mes "Next time, look";
+				mes "where you're going,";
+				mes "alright? I mean, you";
+				mes "might really break";
+				mes "something if you're";
+				mes "always that careless!";
+				set prt_curse,1;
+				close;
+			}
+			mes "[Busy-Looking Boy]";
+			mes "Huh...?";
+			mes "Oh, thanks for";
+			mes "helping me out here.";
+			mes "I really appreciate it.";
+			next;
+			select("Are these all yours?");
+			mes "[Busy-Looking Boy]";
+			mes "These? Oh, I'm supposed";
+			mes "to deliver these for my job.";
+			mes "I need to take these to Juno";
+			mes "from the Prontera Library";
+			mes "for a client. However, um...";
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Well...";
+			mes "I get motion sick really";
+			mes "easily, so it scares me to";
+			mes "death to ride the Airship";
+			mes "all the way to Juno.";
+			Emotion e_dots;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Now I'm in trouble!";
+			mes "I'm never late, but this";
+			mes "time I just can't help it.";
+			mes "There's nothing I can do!";
+			mes "Oh, I'm gonna lose this job!";
+			Emotion e_sob;
+			next;
+			mes "[Busy-Looking Boy]";
+			mes "Wait... You adventurers";
+			mes "do a lot of traveling, right?";
+			mes "If you're traveling to Juno,";
+			mes "would you please deliver this";
+			mes "for me? I'll be in real trouble";
+			mes "if I don't send these books...";
+			next;
+			callsub S_GetBooks;
+			mes "[Busy-Looking Boy]";
+			mes "I-I understand.";
+			mes "It's none of your ";
+			mes "business, I know, but";
+			mes "I'm just so desperate...";
+			Emotion e_sob;
+			set prt_curse,2;
+			close;
+		}
+		else if (prt_curse == 3) {
+			mes "[Busy-Looking Boy]";
+			mes "Oh, please deliver";
+			mes "those books I gave";
+			mes "you to ^FF0000Mr. Karlomoff^000000, who";
+			mes "should be waiting around";
+			mes "the Juno Library. Thanks";
+			mes "again for your help~";
+			close;
+		}
+	}
+	end;
+
+S_GetBooks:
+	if (select("Help him:Don't help him") == 1) {
+		mes "[Busy-Looking Boy]";
+		mes "Oh, thank you so much!";
+		mes "You don't understand how";
+		mes "much I dread those Airships.";
+		mes "Now, would you please deliver";
+		mes "these books to ^FF0000Mr. Karlomoff^000000";
+		mes "near the Juno Library?";
+		next;
+		mes "[Busy-Looking Boy]";
+		mes "I know these books are";
+		mes "pretty heavy, but be really";
+		mes "careful with them! Anyway,";
+		mes "thanks for doing this for me.";
+		mes "I was really at my wit's end...";
+		set prt_curse,3;
+		getitem 7431,1; //Books
+		close;
+	}
+	return;
+
+S_CheckWeight:
+	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.^000000";
+		close;
+	}
+	return;
+}
+
+yuno,311,195,3	script	Historian#prt01	754,{
+	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.^000000";
+		close;
+	}
+	if (prt_curse < 3) {
+		mes "[Historian]";
+		mes "Juno's mysterious past";
+		mes "holds some great secret.";
+		mes "I'm sure of it! It excites me";
+		mes "to know that my research";
+		mes "brings me that much closer";
+		mes "to finally unveiling it!";
+		next;
+		mes "[Historian]";
+		mes "But I'll admit that even I don't know how much digging I'll";
+		mes "have to do to learn what I want. It's our duty as historians to";
+		mes "find out the truth of the past, but it definitely won't be easy.";
+		next;
+		mes "[Historian]";
+		mes "To understand, to see the";
+		mes "truth of the past with my";
+		mes "own eyes... I'd even sell";
+		mes "my soul for the opportunity.";
+		close;
+	}
+	else if (prt_curse == 3) {
+		mes "^3355FFAs you approached, this";
+		mes "historian suddenly closed";
+		mes "the book that he was reading,";
+		mes "looked to the heavens and";
+		mes "let out a deep breath in a vain";
+		mes "attempt to relieve his tension.^000000";
+		next;
+		mes "[Historian]";
+		mes "GRRRRRRRRR!";
+		mes "Where are my books?!";
+		Emotion e_ag;
+		next;
+		select("Are you alright?");
+		mes "[Historian]";
+		mes "Er? Oh. I'm sorry you";
+		mes "had to see that. I'm just";
+		mes "extremely upset. You see,";
+		mes "I'm expecting a delivery of";
+		mes "research books from Prontera,";
+		mes "but they haven't arrived yet.";
+		next;
+		mes "[Historian]";
+		mes "In fact, the delivery boy is";
+		mes "very late. This will delay my";
+		mes "research considerably since";
+		mes "I cannot proceed without more";
+		mes "new material to study.";
+		next;
+		if (countitem(7431) > 0) {
+			select("Excuse me, but what's your name?");
+			mes "[Historian]";
+			mes "Hm? I'm Karlomoff, the";
+			mes "1st scholar of the Rekenber";
+			mes "Historical Research Group.";
+			mes "Did you need something, or";
+			mes "were you looking around here";
+			mes "for somebody in particular?";
+			next;
+		}
+		else {
+			select("Oh, I'm delivering the books for him.");
+			Emotion e_what;
+			mes "[Historian]";
+			mes "Ah, really?";
+			mes "Great, you're here!";
+			mes "So, where are the books?";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "I...";
+			mes "I don't have";
+			mes "them right now.";
+			next;
+			mes "[Historian]";
+			mes "What...?";
+			mes "Don't tell me that";
+			mes "you lost them! Those";
+			mes "books were priceless!";
+			mes "Did you come all this";
+			mes "way just to tell me that?";
+			next;
+			mes "[Historian]";
+			mes "Well, I suppose you'll";
+			mes "have to report the loss of";
+			mes "the books and get some new";
+			mes "copies of those books that";
+			mes "you were supposed to deliver.";
+			mes "Now hurry, I need to research!";
+			close;
+		}
+		select("Right, I brought your books.");
+		mes "[Historian]";
+		mes "What? But you're not the";
+		mes "delivery boy. Well, let me see";
+		mes "the books you've brought. Hm...";
+		mes "Just as I thought: the Rune-";
+		mes "Midgarts Kingdom has a great";
+		mes "wealth of ancient information.";
+		next;
+		mes "[Historian]";
+		mes "Ah, thank you so much for";
+		mes "bringing these. However, by";
+		mes "your mode of dress, I can tell";
+		mes "that you are an adventurer.";
+		mes "What happened to the delivery boy that was supposed to bring these?";
+		next;
+		mes "[Historian]";
+		mes "..........?";
+		mes "Afraid to ride the Airship?";
+		mes "Motion sickness? Well, that's";
+		mes "quite understandable. The poor";
+		mes "boy should have contacted me";
+		mes "about that beforehand.";
+		next;
+		mes "[Historian]";
+		mes "Goodness, it's been ";
+		mes "a while since I've had";
+		mes "a visitor. Would you like";
+		mes "to stay and chat for a bit?";
+		mes "Just give me a minute to get";
+		mes "a cool drink of water first~";
+		set prt_curse,4;
+		delitem 7431,1; //Books
+		close;
+	}
+	else if (prt_curse == 4) {
+		mes "[Historian]";
+		mes "Ah, that glass of";
+		mes "water was just what";
+		mes "I needed to refresh";
+		mes "myself. Let me tell you";
+		mes "a little bit about my work.";
+		next;
+		mes "[Historian]";
+		mes "I might have it mentioned before, but my name is Karlomoff and";
+		mes "I work in the Rekenber Historical Research as its 1st scholar. We";
+		mes "recently finished our project on the Schwaltzvalt Republic.";
+		next;
+		mes "[Historian]";
+		mes "Now, we're trying to learn";
+		mes "more about the Rune-Midgarts";
+		mes "Kingdom's history. We believe";
+		mes "it's linked to our Schwaltzvalt";
+		mes "Republic because they share the";
+		mes "continent. Makes sense, right?";
+		next;
+		mes "[Historian]";
+		mes "Ultimately, we hope that";
+		mes "new information from our";
+		mes "research of Rune-Midgarts will";
+		mes "shed some new light on our";
+		mes "current understanding of the";
+		mes "Schwaltzvalt Republic's past.";
+		next;
+		mes "[Historian]";
+		mes "Including myself, there are";
+		mes "^3131FF3 members of the Rekenber";
+		mes "Historical Research Group^000000";
+		mes "that are studying the Rune-";
+		mes "Midgarts Kingdom's history.";
+		next;
+		select("Rekenber Historical Research Group?");
+		mes "[Historian]";
+		mes "You adventurers from Rune-";
+		mes "Midgarts may not know it, but";
+		mes "the Rekenber Corporation has";
+		mes "unofficial control over our";
+		mes "Schwaltzvalt Republic. Some";
+		mes "hate it, others don't care.";
+		next;
+		mes "[Historian]";
+		mes "Anyway, Rekenber has its own";
+		mes "Historical Research Group since";
+		mes "rediscovering ancient technologies has been key to its success, well,";
+		mes "so far as I can tell. Personally, I enjoy the pursuit of knowledge.";
+		next;
+		mes "[Historian]";
+		mes "Oh, here's an interesting";
+		mes "fact! Did you know that the";
+		mes "title of ruler of Rune-Midgarts";
+		mes "isn't always passed down";
+		mes "through the same family?";
+		next;
+		mes "[Historian]";
+		mes "Actually, there are several";
+		mes "royal families that hold a";
+		mes "special competition to decide";
+		mes "which prince becomes the";
+		mes "next king. Fascinating...";
+		next;
+		select("Several royal families?");
+		mes "[Historian]";
+		mes "Yes, I'll try to explain it";
+		mes "briefly. There are a total";
+		mes "of 7 royal families. Each";
+		mes "family is descended from one";
+		mes "of the 7 warriors that founded";
+		mes "the Rune-Midgarts Kingdom.";
+		next;
+		mes "[Historian]";
+		mes "According to the records,";
+		mes "Jormungand, the snake of the";
+		mes "earth, appeared and brought";
+		mes "chaos to the entire continent.";
+		mes "7 warriors appeared and drove the serpent away, saving the world.";
+		next;
+		mes "[Historian]";
+		mes "With the return of peace,";
+		mes "the 7 warriors established";
+		mes "the Rune-Midgarts Kingdom,";
+		mes "choosing Tristram Gaebolg III";
+		mes "as the kingdom's first ruler. ";
+		next;
+		mes "[Historian]";
+		mes "Knowing that their descendents";
+		mes "may not always be deserving of";
+		mes "ruling the kingdom, the 7 warriors agreed to hold a contest amongst";
+		mes "their families each generation to prevent royal corruption.";
+		next;
+		Emotion e_swt2;
+		mes "[Historian]";
+		mes "Oh... Not too excited";
+		mes "about history, huh? Well,";
+		mes "maybe if I sing the ancient";
+		mes "song of this myth, you'd be";
+		mes "better able to understand...";
+		next;
+		mes "[Historian]";
+		mes "^FF0000*The great serpent*^000000";
+		mes "^FF0000*swallowed the sea.*^000000";
+		mes "^FF0000*The eagle of the rainbow*^000000";
+		mes "^FF0000*swallowed the serpent.*^000000";
+		mes "^FF0000*Then the eagle built its nest.*^000000";
+		mes "^FF0000*A nest upon the swallowed sea.*^000000";
+		next;
+		mes "[Historian]";
+		mes "^333333*Ahem*^000000 As you see, I'm";
+		mes "quite tone deaf. But the";
+		mes "point is that people still";
+		mes "praise the 7 warriors' exploits";
+		mes "through this song. Isn't that";
+		mes "interesting to know about?";
+		set prt_curse,5;
+		close;
+	}
+	else if (prt_curse == 5) {
+		mes "[Historian]";
+		mes "I'm sorry that I let my";
+		mes "mouth run while talking at";
+		mes "great length about Rune-";
+		mes "Midgart's history. Still,";
+		mes "I hope you found that tale";
+		mes "at least a little enjoyable.";
+		next;
+		mes "[Historian]";
+		mes "Oh! Will you be returning to";
+		mes "the Rune-Midgarts Kingdom?";
+		mes "If so, then I have a favor to";
+		mes "ask you. Would you please";
+		mes "deliver this report I've written to my colleague in Morroc?";
+		next;
+		mes "[Historian]";
+		mes "It would be a great help";
+		mes "to me if you could get this";
+		mes "report to her right away.";
+		mes "Ah, her name is Rodafrian.";
+		mes "I'm certain you can find her";
+		mes "somewhere in that desert town.";
+		set prt_curse,6;
+		getitem 7342,1; //File01
+		close;
+	}
+	else if (prt_curse == 6) {
+		mes "[Historian]";
+		mes "Please find my colleague,";
+		mes "Rodafrian, in Morroc and";
+		mes "deliver my report to her.";
+		mes "You should be able to find";
+		mes "her there doing research.";
+		next;
+		if (select("I will:Can I listen to that song again?") == 1) {
+			mes "[Historian]";
+			mes "Once again, thank";
+			mes "you for your help.";
+			mes "It will really speed the";
+			mes "progress of my research,";
+			mes "especially since those books";
+			mes "were delivered fairly late...";
+		}
+		else {
+			mes "[Historian]";
+			mes "Song? Oh, you mean the";
+			mes "one praising the 7 who";
+			mes "founded the Rune-Midgarts";
+			mes "Kingdom? Sure, let's see now...";
+			next;
+			mes "[Historian]";
+			mes "^FF0000*The great serpent*^000000";
+			mes "^FF0000*swallowed the sea.*^000000";
+			mes "^FF0000*The eagle of the rainbow*^000000";
+			mes "^FF0000*swallowed the serpent.*^000000";
+			mes "^FF0000*Then the eagle built its nest.*^000000";
+			mes "^FF0000*A nest upon the swallowed sea.*^000000";
+			next;
+			mes "[Historian]";
+			mes "You must be more interested";
+			mes "in history than I suspected.";
+			mes "If you'd like, I'll write you a";
+			mes "letter or recommendation";
+			mes "for the Rekenber Historical";
+			mes "Research Group. Ha ha ha~";
+		}
+		close;
+	}
+	else if (prt_curse > 55) {
+		mes "[Historian]";
+		mes "Ah, it's been a while";
+		mes "since the last time I saw";
+		mes "you. Rodafrian actually came";
+		mes "to visit me a few days ago.";
+		mes "I believe she came here";
+		mes "to gloat or threaten me...";
+		next;
+		mes "[Historian]";
+		mes "It was very surreal.";
+		mes "She kept raving about";
+		mes "some incredible revelation,";
+		mes "and about finally putting me";
+		mes "in my place. I didn't know she";
+		mes "could be so competitive!";
+		close;
+	}
+	else {
+		mes "[Historian]";
+		mes "ZzzzZZz....";
+		mes "ZzzzZZz....ZZZzzzz...";
+		close;
+	}
+}
+
+morocc_in,45,126,3	script	Historian#prt02	702,{
+	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.^000000";
+		close;
+	}
+	if (prt_curse == 6) {
+		if (countitem(7342) < 0) {
+			mes "^3355FFYou seem to have lost";
+			mes "Karlomoff's Report. You";
+			mes "needed to deliver here to";
+			mes "one of his colleagues...";
+			close;
+		}
+		mes "[Historian Rodafrian]";
+		mes "Oh, how does this place";
+		mes "have to be so hot? This";
+		mes "can't be good for my skin...";
+		mes "Ooh, I wish I were back home";
+		mes "in the Schwaltzvalt Republic~";
+		Emotion e_sob;
+		next;
+		mes "[Historian Rodafrian]";
+		mes "Hello there.";
+		mes "E-excuse me, but,";
+		mes "um, may I help you?";
+		next;
+		select("Mr. Karlomoff has sent me.");
+		mes "[Historian Rodafrian]";
+		mes "Karlomoff...?";
+		mes "Him? Alright...";
+		mes "What did he send";
+		mes "you to me for?";
+		next;
+		mes "^3355FFYou hand Karlomoff's";
+		mes "report to Rodafrian.^000000";
+		next;
+		mes "[Historian Rodafrian]";
+		mes "A report? What does he";
+		mes "want to show off this time?";
+		mes "^333333*Sigh*^000000 Ah well, thanks for";
+		mes "the trouble. I'll look at it,";
+		mes "though I'm not expecting";
+		mes "much if Karlomoff wrote it.";
+		next;
+		if (select("Ask her about her research:End conversation") == 1) {
+			mes "[Historian Rodafrian]";
+			mes "Oh, you know about the";
+			mes "Rekenber Historical Research";
+			mes "Group? Ah, right. Karlomoff";
+			mes "must have told you already.";
+			mes "Currently we're researching";
+			mes "the Rune-Midgarts Kingdom.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Now, while I understand the";
+			mes "value of ancient books and";
+			mes "records, I think Karlomoff";
+			mes "relies on them too much.";
+			mes "I prefer more active research";
+			mes "in the vein of archaelogy.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Right now, I'm spending";
+			mes "time in Morroc to visit the";
+			mes "Sphinx and Pyramids and see";
+			mes "if I can excavage some relics.";
+			mes "Hopefully I can uncover some new historical evidence that way.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "If you're interested in";
+			mes "learning more about Morroc's";
+			mes "history, please go ahead and";
+			mes "talk to my assistance. He's very passionate about studying this";
+			mes "town's culture and background.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Actually, the people of";
+			mes "Morroc also appreciate their";
+			mes "town's history, and pass down";
+			mes "songs about ancient times";
+			mes "through the generations. Let's";
+			mes "see, how did that one go?";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "^FF0000*The great serpent*^000000";
+			mes "^FF0000*swallowed the sea.*^000000";
+			mes "^FF0000*The eagle of the rainbow*^000000";
+			mes "^FF0000*swallowed the serpent, and*^000000";
+			mes "and... and... Um. Oh dear.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "I can't remember the next";
+			mes "line! Actually, have you";
+			mes "heard this song before?";
+			next;
+			switch(select("Yes, I have.:Yes, but it is different.:No, sorry.")) {
+			case 1:
+				mes "[Historian Rodafrian]";
+				mes "Oh, that's great!";
+				mes "Would you provide";
+				mes "me with the line that";
+				mes "follows these lyrics?";
+				next;
+				mes "^FF0000*The great serpent*^000000";
+				mes "^FF0000*swallowed the sea.*^000000";
+				mes "^FF0000*The eagle of the rainbow*^000000";
+				mes "^FF0000*swallowed the serpent.*^000000";
+				mes "......................";
+				next;
+				input .@answer$;
+				if (.@answer$ == "Then the eagle built its nest.") {
+					mes "[Historian Rodafrian]";
+					mes "Really? That makes";
+					mes "sense, but those lyrics";
+					mes "sound different than the";
+					mes "ones I had heard. Hmmmm...";
+					mes "If you don't mind, would you";
+					mes "please tell me your name?";
+					callsub S_GiveName,1;
+				}
+				else {
+					mes "[Historian Rodafrian]";
+					mes "Huh...?";
+					mes "That doesn't sound";
+					mes "right at all. Are you sure";
+					mes "that's the lyric you heard?";
+					delitem 7342,1; //File01
+					set prt_curse,7;
+					close;
+				}
+
+			case 2:
+				mes "[Historian Rodafrian]";
+				mes "What was that?";
+				mes "The song is different?";
+				mes "Hmm. Then, would you";
+				mes "please sing the version";
+				mes "that you know to me?";
+				next;
+				mes "^3355FFYou clear your throat";
+				mes "and begin to sing the song";
+				mes "that you heard from Karlomoff.^000000";
+				next;
+				mes "["+strcharinfo(0)+"]";
+				input .@line$;
+				if (.@line$ == "The great serpent swallowed the sea.") {
+					set .@total,.@total+1;
+					mes "*The great serpent*";
+					mes "*swallowed the sea.*";
+				}
+				else mes "* "+.@line$+"*";
+
+				input .@line$;
+				if (.@line$ == "The eagle of the rainbow swallowed the serpent.") {
+					set .@total,.@total+1;
+					mes "*The eagle of the rainbow*";
+					mes "*swallowed the serpent.*";
+				}
+				else mes "*"+.@line$+"*";
+
+				input .@line$;
+				if (.@line$ == "Then the eagle built its nest.") {
+					set .@total,.@total+1;
+					mes "*Then the eagle built its nest.*";
+				}
+				else mes "*"+.@line$+"*";
+
+				input .@line$;
+				if (.@line$ == "A nest upon the swallowed sea.") {
+					set .@total,.@total+1;
+					mes "*A nest upon the swallowed sea.*";
+				}
+				else mes "*"+.@line$+"*";
+				next;
+				if (.@total == 4) {
+					mes "[Historian Rodafrian]";
+					mes "Really? That makes";
+					mes "sense, but those lyrics";
+					mes "sound different than the";
+					mes "ones I had heard. Hmmmm...";
+					mes "If you don't mind, would you";
+					mes "please tell me your name?";
+					callsub S_GiveName,1;
+				}
+				else {
+					mes "[Historian Rodafrian]";
+					mes "Huh...?";
+					mes "That doesn't sound right";
+					mes "at all. Are you sure those";
+					mes "are the lyrics you heard?";
+					delitem 7342,1; //File01
+					set prt_curse,7;
+					close;
+				}
+
+			case 3:
+				mes "[Historian Rodafrian]";
+				mes "............";
+				mes "........................";
+				mes "Well then. Would you";
+				mes "mind if I ask you for";
+				mes "your name, adventurer?";
+				callsub S_GiveName,1;
+			}
+		}
+		mes "[Historian]";
+		mes "Although I love doing my";
+		mes "research and uncovering";
+		mes "new information regarding";
+		mes "history, I feel a little lonely";
+		mes "sometimes. Not many people";
+		mes "share my interests, you know...";
+		close;
+	}
+	else if (prt_curse == 7) {
+		mes "^3355FFArms folded, Rodafrian";
+		mes "seems to be deep in thought.";
+		mes "Then, as if making making";
+		mes "an important decision, she";
+		mes "looks directly into your eyes";
+		mes "and begins to speak.^000000";
+		next;
+		mes "[Historian Rodafrian]";
+		mes "Adventurer...";
+		mes "I want to know your name.";
+		callsub S_GiveName,0;
+	}
+	else if (prt_curse > 7 && prt_curse < 30) {
+		mes "[Historian Rodafrian]";
+		mes "As I recall, Mondo should";
+		mes "be at Mount Mjolnir, located";
+		mes "in the northern region of the";
+		mes "Rune-Midgarts Kingdom. Ask";
+		mes "him for the lyrics of the song that I can't seem to remember...";
+		close;
+	}
+	else if (prt_curse == 30 || prt_curse == 55) {
+		mes "[Historian Rodafrian]";
+		mes "Oh, you've returned.";
+		mes "Have you met with Mondo";
+		mes "and figured out the lyrics of";
+		mes "that song I was looking for?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "^FF0000*The great serpent*^000000";
+		mes "^FF0000*swallowed the sea.*^000000";
+		mes "^FF0000*The eagle of the rainbow*^000000";
+		mes "^FF0000*swallowed the serpent.*^000000";
+		mes "^FF0000*Then snake scales grew on*^000000";
+		mes "^FF0000*the eagle, and it slowly died.*^000000";
+		next;
+		mes "[Historian Rodafrian]";
+		mes "Oh, yes!";
+		mes "Yes, that was it! Now";
+		mes "I remember, thank you";
+		mes "so much! Ah, back to work...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "^333333(As a historian, Rodafrian";
+		mes "might be able to help me in";
+		mes "investigating the curse of the";
+		mes "Gaebolgs. The priests told me";
+		mes "not to tell anybody, though.";
+		mes "Should I take this risk?)^000000";
+		next;
+		if (select("Tell her about Jormungand's curse:Don't tell her") == 1) {
+			mes "^3355FFYou explain everything";
+			mes "that you have learned to";
+			mes "Rodafrian, choosing not";
+			mes "to withhold any secrets.^000000";
+			Emotion e_ic;
+			next;
+			mes "[Historian Rodafrian]";
+			mes ".....................!";
+			Emotion e_gasp;
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Thank you for sharing that";
+			mes "with me. I hope you realize";
+			mes "how precious that information";
+			mes "is. I had no idea the royal";
+			mes "family was keeping that kind";
+			mes "of secret. Goodness, me...";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "You know, I don't really";
+			mes "know much about poison, but";
+			mes "I do know that, aside from our";
+			mes "own Assassins, there are poison";
+			mes "experts living in some strange";
+			mes "land located to the west.";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Anyway, your report about";
+			mes "the Gaebolg family will be";
+			mes "greatly appreciated by the";
+			mes "Rekenber Historical Research";
+			mes "Group. But first, I need to";
+			mes "finish this Morroc project...";
+			next;
+			mes "[Historian Rodafrian]";
+			mes "Anyway, keep this information";
+			mes "a secret between me and you";
+			mes "for now. Then, when I reveal the secret curse of the Gaebolg royal";
+			mes "family, I'll finally outshine that Karlomoff! Bwahahahahaha!";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "^333333(Drat, she didn't give me";
+			mes "any help... All I did was";
+			mes "reveal a huge secret to her";
+			mes "that she might spread around!";
+			mes "Oh well, I guess I better head";
+			mes "back to the priests...)^000000";
+			if (prt_curse == 30) 
+				set prt_curse,31;
+			else 
+				set prt_curse,60;
+			close;
+		}
+
+		mes "[Historian Rodafrian]";
+		mes "Oh, let me thank you";
+		mes "once again for going";
+		mes "through the trouble of";
+		mes "getting that lyric for me~";
+		mes "I put my assistant through";
+		mes "enough trouble already...";
+		next;
+		mes "[Historian Rodafrian]";
+		mes "I also better not forget";
+		mes "to go through Karlomoff's";
+		mes "report. I'll have to have a";
+		mes "debate with him sooner or";
+		mes "later, and I really want to";
+		mes "put that guy in his place!";
+		next;
+		mes "^3355FFRodafrian seemed very";
+		mes "happy and began to read";
+		mes "through Karlomoff's report.";
+		mes "For now, it would be best";
+		mes "to return to Father Bamph.^000000";
+		if (prt_curse == 30)
+			set prt_curse,40;
+		else
+			set prt_curse,56;
+		close;
+	}
+	else if (prt_curse == 31 || prt_curse == 40) {
+		mes "^3355FFRodafrian seemed very";
+		mes "happy and began to read";
+		mes "through Karlomoff's report.";
+		mes "For now, it would be best";
+		mes "to return to Father Bamph.^000000";
+		close;
+	}
+	else if (prt_curse == 56) {
+		Emotion e_an;
+		mes "[Historian Rodafrian]";
+		mes "I just paid a visit to";
+		mes "Karlomoff and gave him";
+		mes "a piece of my mind! I think...";
+		mes "I think I put him in his place.";
+		mes "But I can never really tell";
+		mes "with that sneaky guy...";
+		close;
+	}
+	else if (prt_curse == 60) {
+		Emotion e_an;
+		mes "[Historian Rodafrian]";
+		mes "I just aid a visit to";
+		mes "Karlomoff and gave him";
+		mes "a piece of my mind! I think...";
+		mes "I think I put him in his place.";
+		mes "But I can never really tell";
+		mes "with that sneaky guy...";
+		next;
+		mes "It doesn't look like";
+		mes "Rodafrian can offer you";
+		mes "any more information. For";
+		mes "now, it would be best to";
+		mes "go to ^3355FFProntera Church.^000000";
+		close;
+	}
+	else {
+		mes "[Historian Rodafrian]";
+		mes "I'm sorry, but I'm";
+		mes "really very busy with my";
+		mes "research at the moment.";
+		mes "Perhaps we can talk later";
+		mes "once I've completed this?";
+		close;
+	}
+
+S_GiveName:
+	next;
+	select("My name is "+strcharinfo(0)+".");
+	mes "[Historian Rodafrian]";
+	mes "Ah "+strcharinfo(0)+", eh?";
+	mes "Do you mind if I ask you a favor? I really need to verify the true";
+	mes "lyrics for this song. However,";
+	mes "I need to stay here in Morroc";
+	mes "to complete my research.";
+	next;
+	mes "[Historian Rodafrian]";
+	mes "Would you please find my";
+	mes "colleague Mondo and ask him";
+	mes "for this song's lyrics? You can";
+	mes "find him in the ancient ruins";
+	mes "in Mount Mjolnir, north in the";
+	mes "Rune-Midgarts Kingdom.";
+	next;
+	mes "[Historian Rodafrian]";
+	mes "I apologize for asking";
+	mes "you to do what sounds like";
+	mes "a silly errand, but I actually";
+	mes "need to know this song's lyrics";
+	mes "for the sake of my research...";
+	if (getarg(0) == 1) delitem 7342,1; //File01
+	set prt_curse,8;
+	close;
+}
+
+mjolnir_01,135,168,3	script	Historian#prt03	754,{
+	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.^000000";
+		close;
+	}
+	if (prt_curse == 8) {
+		mes "[Historian Mondo]";
+		mes "Excuse me...";
+		mes "But if you don't have";
+		mes "anything important for";
+		mes "me, then would you";
+		mes "please leave? I have";
+		mes "research to attend to...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "I'm sorry, but Ms. Rodafrian";
+		mes "wanted me to ask you for the";
+		mes "lyrics of some song describing";
+		mes "the Rune-Midgarts Kingdom's";
+		mes "founding. Would you tell";
+		mes "them to me for her?";
+		next;
+		mes "[Historian Mondo]";
+		mes "Rodafrian? Oh, she must";
+		mes "mean that old children's";
+		mes "song. How did it go now?";
+		mes "Ah, now I remember...";
+		next;
+		mes "[Historian Mondo]";
+		mes "^FF0000*The great serpent*^000000";
+		mes "^FF0000*swallowed the sea.*^000000";
+		mes "^FF0000*The eagle of the rainbow*^000000";
+		mes "^FF0000*swallowed the serpent.*^000000";
+		mes "^FF0000*Then snake scales grew on*^000000";
+		mes "^FF0000*the eagle, and it slowly died.*^000000";
+		next;
+		select("...........?");
+		mes "[Historian Mondo]";
+		mes "Yes, I know: the song";
+		mes "is rather morbid, despite";
+		mes "the fact that it's sung like";
+		mes "such a happy song. Sometimes";
+		mes "these little songs are supposed";
+		mes "to scare kids into doing good.";
+		next;
+		select("Excuse me...");
+		mes "[Historian Mondo]";
+		mes "Hm? You look confused.";
+		mes "Did you have a question";
+		mes "to ask me about the song?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Actually, I heard";
+		mes "a different version";
+		mes "of this song, so I was";
+		mes "wondering why the lyrics";
+		mes "would be different...";
+		next;
+		mes "[Historian Mondo]";
+		mes "Really now?";
+		mes "Well then, let me";
+		mes "hear the version that";
+		mes "you've heard, starting";
+		mes "from the beginning.";
+		next;
+		callsub S_Song;
+	}
+	else if (prt_curse == 9) {
+		mes "[Historian Mondo]" ;
+		mes "Ah, would you tell me";
+		mes "the lyrics of the version of";
+		mes "the Rune-Midgarts Kingdom";
+		mes "founding myth song that";
+		mes "you happened to hear?";
+		next;
+		callsub S_Song;
+	}
+	else if (prt_curse == 10) {
+		mes "[Historian Mondo]";
+		mes "Interesting...";
+		mes "The version you heard";
+		mes "from Karlomoff is different";
+		mes "than the one I know. It's";
+		mes "possible that his version";
+		mes "is the most authentic.";
+		next;
+		mes "[Historian Mondo]";
+		mes "After all, I learned";
+		mes "the version I know";
+		mes "by listening to a";
+		mes "little kid sing it.";
+		next;
+		select("A kid?");
+		mes "[Historian Mondo]";
+		mes "Yeah. My guess? The version";
+		mes "that the kid sang might have";
+		mes "changed as it was transmitted";
+		mes "by mouth through the generations. If you want to learn more, you";
+		mes "should probably find that kid.";
+		next;
+		mes "[Historian Mondo]";
+		mes "Anyway, Karlomoff may have";
+		mes "the most accurate version of";
+		mes "the song since he's very good";
+		mes "at procuring and authenticating";
+		mes "historical written records and";
+		mes "documents. It's his specialty.";
+		next;
+		mes "[Historian Mondo]";
+		mes "Ah, if you want to learn more,";
+		mes "then you should try to find the";
+		mes "kid that was singing the song.";
+		mes "Hmm, he might be around ^3131DDthe";
+		mes "river near here^000000. Hopefully it";
+		mes "won't be too hard to find him.";
+		next;
+		mes "[Historian Mondo]";
+		mes "Once you're able to talk";
+		mes "to that kid, go ahead and";
+		mes "report back to Rodafrian.";
+		mes "She probably needs to know";
+		mes "soon, and I can talk to that";
+		mes "little kid at my leisure, so...";
+		next;
+		mes "[Historian Mondo]";
+		mes "Well then, I hope you";
+		mes "find what you're looking";
+		mes "for. Good luck in your";
+		mes "travels, adventurer.";
+		set prt_curse,11;
+		close;
+	}
+	else {
+		mes "[Historian Mondo]";
+		mes "Isn't this such";
+		mes "a beautiful place?";
+		mes "It's no wonder that";
+		mes "ancient peoples chose";
+		mes "to live around here...";
+		close;
+	}
+
+
+S_Song:
+	mes "["+strcharinfo(0)+"]";
+	input .@line$;
+	if (.@line$ == "The great serpent swallowed the sea.") {
+		set .@total,.@total+1;
+		mes "*The great serpent*";
+		mes "*swallowed the sea.*";
+	}
+	else mes "*"+.@line$+"*";
+
+	input .@line$;
+	if (.@line$ == "The eagle of the rainbow swallowed the serpent.") {
+		set .@total,.@total+1;
+		mes "*The eagle of the rainbow*";
+		mes "*swallowed the serpent.*";
+	}
+	else mes "*"+.@line$+"*";
+
+	input .@line$;
+	if (.@line$ == "Then the eagle built its nest.") set .@total,.@total+1;
+	mes "*"+.@line$+"*";
+
+	input .@line$;
+	if (.@line$ == "A nest upon the swallowed sea.") set .@total,.@total+1;
+	mes "*"+.@line$+"*";
+
+	if (.@total == 4) set prt_curse,10;
+	else {
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Wait, wait...";
+		mes "I think I messed up!";
+		mes "(Those weren't the";
+		mes "correct lyrics...)";
+		set prt_curse,9;
+	}
+	close;
+}
+
+mjolnir_01,298,302,0	script	#prt_poem01	-1,2,2,{
+OnTouch:
+	if (prt_curse == 11) {
+		mes "^FF0000*The great serpent*^000000";
+		mes "^FF0000*swallowed the sea.*^000000";
+		close;
+	}
+	end;
+}
+
+mjolnir_01,300,297,0	script	#prt_poem02	-1,2,2,{
+OnTouch:
+	if (prt_curse == 11) {
+		mes "^FF0000*The great serpent*^000000";
+		mes "^FF0000*swallowed the sea.*^000000";
+		close;
+	}
+	end;
+}
+
+mjolnir_01,292,288,0	script	#prt_poem03	-1,2,2,{
+OnTouch:
+	if (prt_curse == 11) {
+		mes "^FF0000*The eagle of the rainbow*^000000";
+		mes "^FF0000*swallowed the serpent.*^000000";
+		close;
+	}
+	end;
+}
+
+mjolnir_01,302,286,0	script	#prt_poem04	-1,2,2,{
+OnTouch:
+	if (prt_curse == 11) {
+		mes "^FF0000*Then snake scales*^000000";
+		mes "^FF0000*grew on the eagle...*^000000";
+		close;
+	}
+	end;
+}
+
+mjolnir_01,313,279,0	script	#prt_poem05	-1,2,2,{
+OnTouch:
+	if (prt_curse == 11) {
+		mes "^FF0000*And it slowly died...*^000000";
+		close;
+	}
+	end;
+}
+
+mjolnir_01,312,269,5	script	Dog#prt	81,{
+	mes "[Dog]";
+	mes "Bow Wow!";
+	close;
+}
+
+mjolnir_01,313,269,5	script	Dazed Boy#prt	706,{
+	if (prt_curse == 11) {
+		mes "[Absent-Minded Boy]";
+		mes "The great serpent";
+		mes "swallowed the sea.";
+		mes "The eagle of the rainbow";
+		mes "swallowed the serpent.";
+		mes "Then snake scales grew on";
+		mes "the eagle, and it slowly died.";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "Goodness...!";
+		mes "Will you please stop";
+		mes "singing that song?";
+		next;
+		mes "[Absent-Minded Boy]";
+		mes "..................";
+		next;
+		mes "^3355FFThe little boy quietly";
+		mes "stared at the woman for a";
+		mes "little bit, and then crouched";
+		mes "down and began petting a";
+		mes "dog sitting next to him.^000000";
+		next;
+		if (select("What did you just sing?:Ignore them") == 1) {
+			mes "[Absent-Minded Boy]";
+			mes "...";
+			mes "......";
+			mes ".........";
+			next;
+			mes "[Absent-Minded Boy]";
+			mes "Woof-woof, have you";
+			mes "heard this song? Mommy";
+			mes "taught me to sing it, you";
+			mes "know. She says it was sung";
+			mes "by people for a long time~";
+			next;
+			mes "^3355FFThe boy continued speaking";
+			mes "to the dog like an old friend,";
+			mes "ignoring your presence and";
+			mes "acting as if you didn't exist.^000000";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "Kaanu...";
+			mes "What did I tell";
+			mes "you about ignoring";
+			mes "people's questions!";
+			next;
+			mes "[Kaanu]";
+			mes ".........";
+			mes "..................";
+			mes "Uh oh, Woof-woof.";
+			mes "Mommy seems upset";
+			mes "for some reason.";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "I'm sorry, my kid is...";
+			mes "Look, did you want to know";
+			mes "more about that song? Try";
+			mes "not to worry about it: it's just an old children's tune.";
+			next;
+			if (select("Why are you here?:May I hear the song again?") == 1) {
+				mes "[Exhausted-Looking Woman]";
+				mes ".................";
+				next;
+				mes "^3355FFThe woman's lip tightens";
+				mes "with shame. It's obvious";
+				mes "that this topic makes her";
+				mes "feel very uncomfortable.^000000";
+				next;
+				mes "[Kaanu]";
+				mes "...";
+				mes "......";
+				mes ".........";
+				next;
+				mes "[Kaanu]";
+				mes "Woof-woof, do you know";
+				mes "why Mommy is always";
+				mes "so sad? I wish I knew";
+				mes "why Mommy never smiles...";
+				next;
+				mes "[Exhausted-Looking Woman]";
+				mes "........";
+				set prt_curse,12;
+				close;
+			}
+			mes "[Exhausted-Looking Woman]";
+			mes "..................";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "Okay. I can do this";
+			mes "simple thing for you.";
+			mes "Let me recite this song...";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "The great serpent";
+			mes "swallowed the sea.";
+			mes "The eagle of the rainbow";
+			mes "swallowed the serpent.";
+			mes "Then snake scales grew on";
+			mes "the eagle, and it slowly died.";
+			set prt_curse,12;
+			close;
+		}
+		mes "[Absent-Minded Boy]";
+		mes "...";
+		mes "......";
+		mes ".........";
+		close;
+	}
+	else if (prt_curse == 36) {
+		mes "^3355FFThe little boy looked";
+		mes "very worn and weary of";
+		mes "life, a look that is very";
+		mes "unsettling on the face";
+		mes "of a young child.^000000";
+		close;
+	}
+	else if (prt_curse == 45) {
+		mes "^3355FFThe little boy still";
+		mes "won't talk to you, but";
+		mes "he acknowledges your";
+		mes "presense by making eye";
+		mes "contact and smiling.^000000";
+		close;
+	}
+	else if (prt_curse > 54) {
+		mes "^3355FFThe little boy still";
+		mes "won't talk to you, but he";
+		mes "make you feel welcome";
+		mes "by giving you a warm smile.^000000";
+		close;
+	}
+	else {
+		mes "[Absent-Minded Boy]";
+		mes "...";
+		mes "......";
+		mes ".........";
+		next;
+		mes "^3355FFYou find it difficult";
+		mes "to ignore the little boy's";
+		mes "probing, wary eyes directed";
+		mes "at you. It's very clear that";
+		mes "he doesn't trust you.^000000";
+		close;
+	}
+}
+
+mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
+	if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.^000000";
+		close;
+	}
+	if (prt_curse == 11) {
+		mes "[Absent-Minded Boy]";
+		mes "The great serpent";
+		mes "swallowed the sea.";
+		mes "The eagle of the rainbow";
+		mes "swallowed the serpent.";
+		mes "Then snake scales grew on";
+		mes "the eagle, and it slowly died.";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "Goodness...!";
+		mes "Will you please stop";
+		mes "singing that song?";
+		next;
+		mes "[Absent-Minded Boy]";
+		mes "..................";
+		next;
+		mes "^3355FFThe little boy quietly";
+		mes "stared at the woman for a";
+		mes "little bit, and then crouched";
+		mes "down and began petting a";
+		mes "dog sitting next to him.^000000";
+		next;
+		if (select("What did you just sing?:Ignore them") == 1) {
+			mes "[Absent-Minded Boy]";
+			mes "...";
+			mes "......";
+			mes ".........";
+			next;
+			mes "[Absent-Minded Boy]";
+			mes "Woof-woof, have you";
+			mes "heard this song? Mommy";
+			mes "taught me to sing it, you";
+			mes "know. She says it was sung";
+			mes "by people for a long time~";
+			next;
+			mes "^3355FFThe boy continued speaking";
+			mes "to the dog like an old friend,";
+			mes "ignoring your presence and";
+			mes "acting as if you didn't exist.^000000";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "Kaanu...";
+			mes "What did I tell";
+			mes "you about ignoring";
+			mes "people's questions!";
+			next;
+			mes "[Kaanu]";
+			mes ".........";
+			mes "..................";
+			mes "Uh oh, Woof-woof.";
+			mes "Mommy seems upset";
+			mes "for some reason.";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "I'm sorry, my kid is...";
+			mes "Look, did you want to know";
+			mes "more about that song? Try";
+			mes "not to worry about it: it's just an old children's tune.";
+			next;
+			if (select("Why are you here?:May I hear the song again?") == 1) {
+				mes "[Exhausted-Looking Woman]";
+				mes ".................";
+				next;
+				mes "^3355FFThe woman's lip tightens";
+				mes "with shame. It's obvious";
+				mes "that this topic makes her";
+				mes "feel very uncomfortable.^000000";
+				next;
+				mes "[Kaanu]";
+				mes "...";
+				mes "......";
+				mes ".........";
+				next;
+				mes "[Kaanu]";
+				mes "Woof-woof, do you know";
+				mes "why Mommy is always";
+				mes "so sad? I wish I knew";
+				mes "why Mommy never smiles...";
+				next;
+				mes "[Exhausted-Looking Woman]";
+				mes "........";
+				set prt_curse,12;
+				close;
+			}
+			mes "[Exhausted-Looking Woman]";
+			mes "..................";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "Okay. I can do this";
+			mes "simple thing for you.";
+			mes "Let me recite this song...";
+			next;
+			mes "[Exhausted-Looking Woman]";
+			mes "The great serpent";
+			mes "swallowed the sea.";
+			mes "The eagle of the rainbow";
+			mes "swallowed the serpent.";
+			mes "Then snake scales grew on";
+			mes "the eagle, and it slowly died.";
+			set prt_curse,12;
+			close;
+		}
+		mes "[Exhausted-Looking Woman]";
+		mes "...........";
+		close;
+	}
+	else if (prt_curse == 12) {
+		mes "[Exhausted-Looking Woman]";
+		mes "Not too many people";
+		mes "come to this remote area.";
+		mes "What brings you all the";
+		mes "way over here, I wonder?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Actually, I'm just";
+		mes "trying to learn the";
+		mes "real lyrics of that";
+		mes "song that little boy";
+		mes "has been singing.";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes ".........";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "That song's lyrics, and";
+		mes "its meaning, can change";
+		mes "from person to person as";
+		mes "time goes on. I suppose part";
+		mes "of the reason is because it's";
+		mes "been handed down orally...";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "It sounds like such a happy";
+		mes "song, but it's meaning had";
+		mes "changed for me ever since";
+		mes "the accident had happened...";
+		mes "It's been so long, but I don't";
+		mes "think the pain will ever heal.";
+		next;
+		select("Accident?");
+		mes "[Exhausted-Looking Woman]";
+		mes "I'm... I'm sorry.";
+		mes "I don't think I can talk";
+		mes "about it. If I try, I know I'll";
+		mes "relive the horror. Every day";
+		mes "is already a struggle to cope";
+		mes "with the sins I've committed.";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "I know it's selfish, but";
+		mes "I have a favor to ask of you.";
+		mes "I can't really leave this area,";
+		mes "and seldom do I receive visitors. Would you be so kind to deliver";
+		mes "something to Prontera for me?";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "I used to live in Prontera,";
+		mes "and ever since the accident,";
+		mes "Father Bamph has been so very";
+		mes "supportive of me. It's not enough to repay his kindness, but please";
+		mes "give these herbs to him for me.";
+		next;
+		mes "[Exhausted-Looking Woman]";
+		mes "You can find ^3131FFFather Bamph^000000";
+		mes "in ^3131FFProntera Church^000000. When you ";
+		mes "see him, please give him my";
+		mes "warmest regards. I would do it";
+		mes "myself, but because of what I did, I can't return to Prontera...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "^333333(Alright then. I guess";
+		mes "I should deliver these";
+		mes "herbs to Prontera Church";
+		mes "before I talk to Rodafrian.)^000000";
+		getitem 7432,1;
+		set prt_curse,13;
+		close;
+	}
+	else if (prt_curse > 12 && prt_curse < 16) {
+		mes "[Exhausted-Looking Woman]";
+		mes "Father Bamph has helped";
+		mes "me so much. Please bring";
+		mes "that herb pouch to him in";
+		mes "Prontera Church, and give";
+		mes "him my warmest regards.";
+		close;
+	}
+	else if (prt_curse == 16) {
+		mes "[Bonnie Imbullea]";
+		mes "Oh, you've come back?";
+		mes "Were you able to deliver";
+		mes "that pouch of herbs that";
+		mes "I gave you to Father Bamph?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Yes, I did. Actually,";
+		mes "Father Bamph sent me";
+		mes "here to ask you a few";
+		mes "things. You see, he told";
+		mes "me all about the royal secret";
+		mes "and, well, your exorcism.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "Oh. I see.";
+		mes "You must think";
+		mes "me a monster...";
+		mes "Those poor children";
+		mes "are dead because of me...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "N-no! Not at all!";
+		mes "I just wanted to ask if there";
+		mes "was a connection between";
+		mes "the song that Kaanu has been";
+		mes "singing and Jormungand's curse.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "...";
+		mes "......";
+		mes ".........";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "After the exorcism failed,";
+		mes "I should have been punished";
+		mes "with death. But the royal family and the Prontera Church took";
+		mes "mercy on me, and allowed";
+		mes "me to live here in exile.";
+		Emotion e_dots;
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "I began to sing this song";
+		mes "to keep myself distracted,";
+		mes "even if it was related to";
+		mes "the Jormungand curse.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "You know, now that I think";
+		mes "about it, I do remember hearing";
+		mes "that after the exorcism failed,";
+		mes "a maid found a fragment of a";
+		mes "Red Gemstone while cleaning";
+		mes "the secret ceremonial grounds.";
+		Emotion e_gasp,1;
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "I always thought it";
+		mes "was a little strange.";
+		mes "I wanted to investigate";
+		mes "it, but then I was discharged";
+		mes "from the Prontera Church";
+		mes "after my failure...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "A fragment from";
+		mes "a Red Gemstone?";
+		mes "Maybe... maybe it's";
+		mes "evidence that someone";
+		mes "sabotaged the exorcism!";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "What happened was tragic,";
+		mes "but it would make me feel";
+		mes "so much better if that were";
+		mes "really the truth. Even if the";
+		mes "exorcism was sabotaged,";
+		mes "we can't turn back time...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "^333333(Hmm...";
+		mes "I better head back";
+		mes "to Prontera Church";
+		mes "and let Father Bamph";
+		mes "know about this information.)^000000";
+		set prt_curse,17;
+		close;
+	}
+	else if (prt_curse == 17) {
+		mes "[Bonnie Imbullea]";
+		mes "It's really very";
+		mes "difficult to live";
+		mes "with this guilt.";
+		mes "I was trained to help";
+		mes "people, not kill them!";
+		next;
+		mes "^3355FFYou tried to comfort";
+		mes "Bonnie Imbullea for a";
+		mes "little while before you";
+		mes "return to Prontera Church.";
+		close;
+	}
+	else if (prt_curse == 35 || prt_curse == 44 || prt_curse == 54) {
+		mes "^3355FFYou tell Bonnie Imbullea";
+		mes "that the deaths of the princes";
+		mes "were not her fault and that the exorcism was probably sabotaged.";
+		mes "However, you keep specifics, like the use of poison, to yourself.^000000";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "Is that really true...?";
+		mes "Oh, I'm so happy! I really";
+		mes "thought I'd have to live the";
+		mes "rest of my in seclusion with";
+		mes "this horrible shame. Oh, thank";
+		mes "you so much for your help!";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "Kaanu will be able to";
+		mes "meet other kids his own";
+		mes "age... We can finally live";
+		mes "a normal life. How wonderful...";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "But wait...";
+		mes "How exactly did the";
+		mes "princes die, then?";
+		mes "There weren't any";
+		mes "wounds on the bodies";
+		mes "from what I remember...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Well, um, I wouldn't know";
+		mes "anything about that, but";
+		mes "Father Bamph and Father";
+		mes "Biscuss are handling the";
+		mes "investigation, and they're";
+		mes "doing their best to find out.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "I see. Well, I believe in";
+		mes "them: they're great priests,";
+		mes "after all. Although I may be";
+		mes "forgiven for my failure, I still fear for the royal family...";
+		mes "All I can do for now is pray.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "Anyway, I promise that";
+		mes "I won't reveal what I know";
+		mes "about this incident to the";
+		mes "public. And if you ever come";
+		mes "by the mountain again, I hope";
+		mes "you stop by to visit us.";
+		next;
+		mes "[Bonnie Imbullea]";
+		mes "You don't understand";
+		mes "how much the news you've";
+		mes "brought really means to me.";
+		mes "I can finally free myself from";
+		mes "this burdensome guilt...";
+		mes "Thank you, kind adventurer~";
+		if (prt_curse == 35) set prt_curse,36;
+		else if (prt_curse == 44) set prt_curse,45;
+		else {
+			next;
+			mes "^3355FFNow, you can return to";
+			mes "Rodafrian, the historian";
+			mes "stationed in Morroc.^000000";
+			set prt_curse,55;
+		}
+
+		close;
+	}
+	else if (prt_curse == 36) {
+		mes "[Bonnie Imbullea]";
+		mes "By your grace and mercy,";
+		mes "please pity the poor souls";
+		mes "and protect the royal family...";
+		mes "Bless us with your light and";
+		mes "may your wisdom guide us...";
+		close;
+	}
+	else if (prt_curse == 45) {
+		mes "[Bonnie Imbullea]";
+		mes "I guess we've gotten";
+		mes "too used to the peace";
+		mes "and serenity of Mount";
+		mes "Mjolnir. It won't be easy";
+		mes "to leave, even if we're welcome to return to Prontera...";
+		close;
+	}
+	else if (prt_curse > 54) {
+		mes "[Bonnie Imbullea]";
+		mes "Thank you so much";
+		mes "for helping out in the";
+		mes "investigation of the";
+		mes "princes. I'd never know";
+		mes "happiness again if it";
+		mes "weren't for your efforts.";
+		close;
+	}
+	else {
+		mes "[Bonnie Imbullea]";
+		mes "^333333*Sigh...*^000000";
+		close;
+	}
+}
+
+
+prt_church,115,122,0	warp	#sazekan	1,1,prt_church,168,106
+prt_church,166,106,0	warp	#prtchhall	1,1,prt_church,112,122
+
+prt_church,185,106,3	script	Father Bamph	60,{
+	if (prt_curse == 13) {
+		mes "[Father Bamph]";
+		mes "Welcome to";
+		mes "Prontera Church.";
+		mes "Please relax, and";
+		mes "let your mind and";
+		mes "spirit find rest in";
+		mes "these hallowed halls.";
+		next;
+		select("Give him the herb pouch.");
+		if (countitem(7432) < 1) {
+			mes "["+strcharinfo(0)+"]";
+			mes "Ack!";
+			mes "Now, where did I put";
+			mes "that pouch with the herbs?";
+			close;
+		}
+		mes "[Father Bamph]";
+		mes "May I ask...";
+		mes "Why are you giving";
+		mes "me this pouch of herbs?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Well, there was this";
+		mes "lady living on Mount";
+		mes "Mjolnir who wanted me";
+		mes "to give this to you. Um, she";
+		mes "has a son named Kaanu?";
+		next;
+		mes "[Father Bamph]";
+		mes "Oh, you must have met";
+		mes "Bonnie Imbullea. It's";
+		mes "been a long time since";
+		mes "I've seen her. How is";
+		mes "she doing, may I ask?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Oh...";
+		mes "I guess she's fine.";
+		mes "But she seems really...";
+		mes "I dunno, tormented...";
+		next;
+		mes "[Father Biscuss]";
+		mes "Good! If she were happy";
+		mes "and relaxed after what she";
+		mes "did, not even God would forgive";
+		mes "her! She deserves to live the";
+		mes "rest of her life in agony!";
+		next;
+		mes "[Father Bamph]";
+		mes "Father Biscuss, how can";
+		mes "you say something like that?";
+		mes "She did her best to stop what";
+		mes "had happened! We should pity";
+		mes "her for the suffering she must be feeling. Where is your compassion?";
+		next;
+		mes "[Father Biscuss]";
+		mes "Bah! Don't speak to me";
+		mes "about compassion! Weren't";
+		mes "you the one who recommended";
+		mes "her to perform the exorcism in";
+		mes "the first place? You didn't";
+		mes "forget that, did you?";
+		next;
+		mes "[Father Bampf]";
+		mes "......";
+		mes ".........";
+		mes "............";
+		next;
+		mes "[Father Biscuss]";
+		mes "Hah!";
+		next;
+		select("About Bonnie Imbullea");
+		mes "[Father Bamph]";
+		mes "Well...";
+		mes "I don't...";
+		mes "I don't know if";
+		mes "I should be telling ";
+		mes "you about that incident...";
+		next;
+		mes "[Father Biscuss]";
+		mes "You know what? If Bonnie";
+		mes "sent this adventurer here";
+		mes "for a favor, it probably means";
+		mes "she trusts this person. Besides, we need somebody to carry out";
+		if (sex)
+			mes "this task for us. Why not him?";
+		else
+			mes "this task for us. Why not her?";
+		next;
+		mes "[Father Bamph]";
+		mes "Your words have the ring";
+		mes "of truth, Father Biscuss.";
+		mes "Well then, adventurer, give";
+		mes "me the opportunity to tell you";
+		mes "something very important. But, you must not tell anyone else...";
+		set prt_curse,14;
+		delitem 7432,1; //Leather_Pouch
+		close;
+	}
+	else if (prt_curse == 14) {
+		mes "[Father Bamph]";
+		mes "What I am about to tell";
+		mes "you must be kept secret.";
+		mes "Now, do you know about";
+		mes "Jormungand, the great serpent";
+		mes "born from the god Loki and";
+		mes "the giantess, Angrboda?";
+		next;
+		mes "[Father Bamph]";
+		mes "Jormungand was an evil";
+		mes "beast that, after the thousand";
+		mes "year war between the gods and";
+		mes "demons, began to attack humans.";
+		mes "It brought great chaos and much";
+		mes "suffering around the world...";
+		next;
+		mes "[Father Bamph]";
+		mes "Finally, the first Tristram of";
+		mes "the Gaebolg family defeated";
+		mes "Jormungand together with 6";
+		mes "other warriors, but only after";
+		mes "it killed his beloved father.";
+		next;
+		mes "[Father Bamph]";
+		mes "Tristram would become the";
+		mes "first king of the Rune-Midgarts";
+		mes "Kingdom, but his family would";
+		mes "suffer from the curse placed";
+		mes "by Jormungand before its defeat. ";
+		next;
+		mes "[Father Bamph]";
+		mes "To this day...";
+		mes "^FF0000Every first prince of";
+		mes "the Gaebolg family dies";
+		mes "at a young age^000000. That is";
+		mes "Jormungand's curse and";
+		mes "the royal family's secret.";
+		Emotion e_omg,1;
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "What...?!";
+		mes "Is this really true?!";
+		mes "Isn't there any way to";
+		mes "counter this horrible curse?!";
+		next;
+		mes "[Father Bamph]";
+		mes "Please lower your voice.";
+		mes "Yes, it's a shame that the";
+		mes "royal family must suffer like";
+		mes "this. But all the exorcisms";
+		mes "that have been attempted";
+		mes "over the years have failed...";
+		next;
+		mes "[Father Bamph]";
+		mes "Although the situation";
+		mes "appeared hopeless, King";
+		mes "Tristram III tried once again to exorcise the curse. Following";
+		mes "his orders, the greatest priests and exorcists were all summoned.";
+		next;
+		mes "[Father Bamph]";
+		mes "A series of tests was";
+		mes "performed to select the";
+		mes "best priests and exorcists";
+		mes "to remove this curse. In the end, ^3131FFBonnie Imbullea^000000 was chosen to";
+		mes "lead the exorcism ceremony.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Wait, but you mentioned";
+		mes "samething about an accident.";
+		mes "Does that mean that she failed";
+		mes "in performing the exorcism?";
+		next;
+		mes "[Father Bamph]";
+		mes "Yes, unfortunately.";
+		mes "After the priests and";
+		mes "exorcists gathered in the";
+		mes "secret ceremonial grounds,";
+		mes "three princes were killed";
+		mes "instead of just the first.";
+		next;
+		mes "[Father Biscuss]";
+		mes "Although we all swore to";
+		mes "keep that incident a secret,";
+		mes "Bonnie Imbullea took full";
+		mes "responsibility for the deaths.";
+		mes "That is why she is in self";
+		mes "imposed exile from the kingdom.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "What...?";
+		mes "That's...";
+		mes "That's crazy!";
+		next;
+		mes "[Father Biscuss]";
+		mes "I know that this";
+		mes "is a very long story,";
+		mes "and that it's a little";
+		mes "complicated. Please";
+		mes "listen to what we have";
+		mes "to ask from here on...";
+		Emotion e_dots;
+		set prt_curse,15;
+		close;
+	}
+	else if (prt_curse == 15) {
+		mes "[Father Bamph]";
+		mes "Now, you should know that";
+		mes "all of the princes that were";
+		mes "killed that day bore strange";
+		mes "looking marks on their bodies.";
+		mes "It almost looked as if they";
+		mes "were growing snake scales.";
+		Emotion e_gasp,1;
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Wait, they grew snake";
+		mes "scales? That sounds just";
+		mes "like one of the versions of";
+		mes "this song I'm investigating.";
+		mes "I think it was the song about the Rune-Midgarts Kingdom's origin.";
+		next;
+		mes "[Father Bamph]";
+		mes "Wait, that song?";
+		mes "Hm, I don't see how";
+		mes "it's related. Let's see";
+		mes "now, how did it go?";
+		mes "Rainbows... Eagles...";
+		mes "Ah! Now I remember!";
+		next;
+		mes "[Father Bamph]";
+		mes "The great serpent";
+		mes "swallowed the sea.";
+		mes "The eagle of the rainbow";
+		mes "swallowed the serpent.";
+		mes "Then the eagle built its nest.";
+		mes "A nest upon the swallowed sea.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Hmm...";
+		mes "Well, I heard a";
+		mes "different version";
+		mes "of the same song.";
+		mes "It goes like...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "The great serpent";
+		mes "swallowed the sea.";
+		mes "The eagle of the rainbow";
+		mes "swallowed the serpent.";
+		mes "Then snake scales grew on";
+		mes "the eagle, and it slowly died.";
+		next;
+		mes "[Father Bamph]";
+		mes "Oh, my. I learned the song";
+		mes "when I was a young boy from";
+		mes "my father. However, your version seems to reveal the secret curse";
+		mes "of the Gaebolgs. Please tell me, where did you hear that song?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Well, I first heard this";
+		mes "version from a historian,";
+		mes "and then I found out that";
+		mes "Bonnie Imbullea knows it as";
+		mes "well. Um, is there a problem?";
+		next;
+		mes "[Father Bamph]";
+		mes "If those song lyrics are";
+		mes "spread, the secret of the";
+		mes "royal family curse could be";
+		mes "revealed to the public. Would";
+		mes "you please help us by speaking";
+		mes "to Bonnie Imbullea once again?";
+		next;
+		mes "[Father Bamph]";
+		mes "If you can, please try to";
+		mes "see if you can learn of any";
+		mes "connection between the curse";
+		mes "and the song, or if she can";
+		mes "remember anything that happened";
+		mes "after the exorcism failed...";
+		set prt_curse,16;
+		close;
+	}
+	else if (prt_curse == 16) {
+		mes "[Father Bamph]";
+		mes "Please visit Bonnie";
+		mes "Imbullea in Mount Mjolnir";
+		mes "to see if you can learn more";
+		mes "about that song, or about what";
+		mes "happened after the attempted exorcism of the Jormungand curse.";
+		close;
+	}
+	else if (prt_curse == 17) {
+		mes "[Father Bamph]";
+		mes "Ah, have you spoken";
+		mes "to Bonnie Imbullea?";
+		mes "Please tell me if you";
+		mes "have learned anything new.";
+		next;
+		mes "^3355FFYou related everything";
+		mes "that Bonnie Imbullea spoke";
+		mes "about, including the discovery";
+		mes "of a fragment of Red Gemstone";
+		mes "in the secret ceremonial grounds. ";
+		next;
+		mes "[Father Bamph]";
+		mes "Red Gemstone? There's";
+		mes "no reason for that to be in";
+		mes "a holy place. Hmm. There's";
+		mes "more to this case than meets";
+		mes "the eye. We better investigate";
+		mes "the truth, starting now.";
+		next;
+		mes "[Father Bamph]";
+		mes "Come with me, adventurer,";
+		mes "to the secret ceremonial";
+		mes "grounds for the royal family.";
+		mes "Just use the switch hidden";
+		mes "within the bookshelf and";
+		mes "I will meet you there.";
+		set prt_curse,18;
+		close;
+	}
+	else if (prt_curse > 17 && prt_curse < 22) {
+		mes "[Father Bamph]";
+		mes "Come with me to the";
+		mes "secret ceremonial grounds";
+		mes "so that we can investigate";
+		mes "the possibility of sabotage";
+		mes "with the exorcism that";
+		mes "Bonnie Imbullea performed.";
+		next;
+		mes "[Father Bamph]";
+		mes "There is a hidden switch";
+		mes "in the bookshelf that you";
+		mes "can use to transport yourself";
+		mes "there. Go, and I will meet";
+		mes "you in the ceremonial grounds.";
+		close;
+	}
+	else if (prt_curse == 22) {
+		mes "[Father Bamph]";
+		mes "This is a matter of grave";
+		mes "importance, but we can't";
+		mes "alert the royal family yet and";
+		mes "cause a panic. It would be";
+		mes "best to fully investigate this";
+		mes "first and collect proof.";
+		next;
+		mes "[Father Bamph]";
+		mes "Brave adventurer, would";
+		mes "you please visit the Assassin";
+		mes "Guild in Morroc and see if you";
+		mes "can learn anything about how";
+		mes "we can verify whether poison";
+		mes "was used to kill the princes?";
+		set prt_curse,23;
+		close;
+	}
+	else if (prt_curse == 23) {
+		mes "[Father Bamph]";
+		mes "Please see if you can";
+		mes "learn anything about testing";
+		mes "for the use of poison from";
+		mes "a member of the Assassin";
+		mes "Guild in Morroc.";
+		close;
+	}
+	else if (prt_curse == 31) {
+		mes "[Father Bamph]";
+		mes "Ah, you've returned~";
+		mes "Have you managed to learn";
+		mes "anything about poison from";
+		mes "the Assassin Guild? I know";
+		mes "their members must be";
+		mes "very difficult to find...";
+		next;
+		mes "^3355FFYou relate all of the";
+		mes "information you learned";
+		mes "about poison to Father Bamph,";
+		mes "including the method to test";
+		mes "for the use of poison in murder. ";
+		next;
+		mes "[Father Bamph]";
+		mes "Ah, I see. Then, would";
+		mes "you please bring 1 Yellow";
+		mes "Gemstone and 1 Green Potion";
+		mes "to the secret ceremonial grounds as soon as you can? I will wait";
+		mes "over there for you once again.";
+		set prt_curse,32;
+		close;
+	}
+	else if (prt_curse == 32 || prt_curse == 33 || prt_curse == 41 || prt_curse == 42 || prt_curse == 51 || prt_curse == 52) {
+		mes "[Father Bamph]";
+		mes "You can use the hidden";
+		mes "switch in the bookshelf to";
+		mes "enter the secret ceremonial";
+		mes "grounds. Don't forget that we";
+		mes "need^3131FF 1 Yellow Gemstone^000000 and ^3131FF1 Green Potion^000000 to test for poison.";
+		close;
+	}
+	else if (prt_curse == 34) {
+		mes "[Father Bamph]";
+		mes "I can't believe it!";
+		mes "If poison was used, then";
+		mes "the second and third princes";
+		mes "were murdered! Unbelievable...";
+		mes "How can anyone kill children?";
+		next;
+		mes "[Father Bamph]";
+		mes "At the very least, we now";
+		mes "know that their deaths were";
+		mes "not Bonnie Imbullea's fault.";
+		mes "Now I must discuss with Father";
+		mes "Biscuss and decide how to tell";
+		mes "the royal family about this...";
+		next;
+		mes "[Father Bamph]";
+		mes "Once again, let me remind";
+		mes "you that everything that has";
+		mes "transpired here must be kept";
+		mes "secret. The public cannot know";
+		mes "of Jormungand's curse! It would cause political turmoil and chaos!";
+		next;
+		mes "[Father Bamph]";
+		mes "Still, that does not mean";
+		mes "that I cannot personally thank";
+		mes "you for all of your help. I'm very grateful for what you have done,";
+		mes "adventurer. May safety accompany you on all of your journeys.";
+		set prt_curse,35;
+		close;
+	}
+	else if (prt_curse > 34 && prt_curse < 40 && !aru_monas) {
+		mes "[Father Bamph]";
+		mes "I'm at a loss at what";
+		mes "to do. Sometimes, even";
+		mes "I have doubts and believe";
+		mes "that Odin has abandoned us...";
+		close;
+	}
+	else if (prt_curse == 40) {
+		mes "[Father Bamph]";
+		mes "Ah, you've returned~";
+		mes "Have you managed to learn";
+		mes "anything about poison from";
+		mes "the Assassin Guild? I know";
+		mes "their members must be";
+		mes "very difficult to find...";
+		next;
+		mes "^3355FFYou relate all of the";
+		mes "information you learned";
+		mes "about poison to Father Bamph,";
+		mes "including the method to test";
+		mes "for the use of poison in murder. ";
+		next;
+		mes "[Father Bamph]";
+		mes "Ah, I see. Then, would";
+		mes "you please bring^3131FF 1 Yellow";
+		mes "Gemstone^000000 and ^3131FF1 Green Potion^000000";
+		mes "to the secret ceremonial grounds as soon as you can? I will wait";
+		mes "over there for you once again.";
+		set prt_curse,41;
+		close;
+	}
+	else if (prt_curse == 43 || prt_curse == 53) {
+		mes "[Father Bamph]";
+		mes "I can't believe it!";
+		mes "If poison was used, then";
+		mes "the second and third princes";
+		mes "were murdered! Unbelievable...";
+		mes "How can anyone kill children?";
+		next;
+		mes "[Father Bamph]";
+		mes "At the very least, we now";
+		mes "know that their deaths were";
+		mes "not Bonnie Imbullea's fault.";
+		mes "Now I must discuss with Father";
+		mes "Biscuss and decide how to tell";
+		mes "the royal family about this...";
+		next;
+		mes "[Father Bamph]";
+		mes "Oh, and would you please";
+		mes "inform ^3131FFBonnie Imbullea^000000 that";
+		mes "the deaths of the princes were";
+		mes "not her fault? I'm sure that news would bring her great relief";
+		mes "from her burden of guilt...";
+		next;
+		mes "[Father Bamph]";
+		mes "Once again, let me remind";
+		mes "you that everything that has";
+		mes "transpired here must be kept";
+		mes "secret. The public cannot know";
+		mes "of Jormungand's curse! It would cause political turmoil and chaos!";
+		next;
+		mes "[Father Bamph]";
+		mes "Still, that does not mean";
+		mes "that I cannot personally thank";
+		mes "you for all of your help. I'm very grateful for what you have done,";
+		mes "adventurer. May safety accompany you on all of your journeys.";
+		if (prt_curse == 43) set prt_curse,44;
+		else set prt_curse,54;
+		getexp 160000,0;
+		close;
+	}
+	else if (prt_curse > 43 && prt_curse < 50 && !aru_monas) {
+		mes "[Father Bamph]";
+		mes "Have you spoken to";
+		mes "Bonnie Imbullea yet?";
+		mes "Try not to worry about the";
+		mes "news about the princes'";
+		mes "murder. Father Biscuss";
+		mes "and I will handle it.";
+		close;
+	}
+	else if (prt_curse == 50) {
+		mes "[Father Bamph]";
+		mes "Ah, you've returned~";
+		mes "Have you managed to learn";
+		mes "anything about poison from";
+		mes "the Assassin Guild? I know";
+		mes "their members must be";
+		mes "very difficult to find...";
+		next;
+		mes "You relate all of the";
+		mes "information you learned";
+		mes "about poison to Father Bamph,";
+		mes "including the method to test";
+		mes "for the use of poison in murder. ";
+		next;
+		mes "[Father Bamph]";
+		mes "Ah, I see. Then, would";
+		mes "you please bring ^3131FF1 Yellow";
+		mes "Gemstone^000000 and ^3131FF1 Green Potion^000000";
+		mes "to the secret ceremonial grounds as soon as you can? I will wait";
+		mes "over there for you once again.";
+		set prt_curse,51;
+		close;
+	}
+	else if (prt_curse == 60) {
+		mes "[Father Bamph]";
+		mes "Oh, "+strcharinfo(0)+"~";
+		mes "Long time, no see.";
+		mes "Have you spoken to";
+		mes "Bonnie yet? Ah, and";
+		mes "how may I help you today?";
+		next;
+		mes "^3355FFYou tell Father Bamph";
+		mes "that rare herbs grow in";
+		mes "a land to the west, although";
+		mes "you do not mention that you";
+		mes "told Rodafrian about the curse.^000000";
+		next;
+		mes "[Father Biscuss]";
+		mes "Land to the west?";
+		mes "That place is rumored to";
+		mes "be populated by fanatics.";
+		mes "Father Bamph, I think they";
+		mes "may be prime suspects for";
+		mes "the murder of the princes...";
+		next;
+		mes "[Father Bamph]";
+		mes "Well, I'll admit that it's";
+		mes "possible, but we haven't had";
+		mes "contact with anyone from the";
+		mes "land to the west for so long...";
+		mes "It's still far too early to make those kinds of assumptions.";
+		next;
+		select("Land to the west?");
+		mes "[Father Bamph]";
+		mes "Not much is known about";
+		mes "the land to the west. We";
+		mes "did send several priests";
+		mes "there once to spread our";
+		mes "faith. However, they failed...";
+		next;
+		mes "[Father Bamph]";
+		mes "From what I can tell,";
+		mes "almost everyone there";
+		mes "is a strong adherent of";
+		mes "that region's native religion.";
+		mes "Anyway, thank you for informing";
+		mes "us. We'll handle it from here.";
+		next;
+		mes "[Father Bamph]";
+		mes "Ah, to preserve the secrets";
+		mes "of the royal family, I ask that";
+		mes "you refrain from entering the";
+		mes "secret ceremonial grounds";
+		mes "from now on. Thanks again for your help, "+strcharinfo(0)+".";
+		set prt_curse,61;
+		close;
+	}
+	else {
+		if (prt_curse == 36 || prt_curse == 45 || prt_curse == 56 || prt_curse == 61) {
+// Begin Nameless Island Access Quest Addition
+			if (aru_monas == 1) {
+				mes "[Father Bamph]";
+				mes "Oh, I've been waiting for";
+				mes "you, adventurer. I'm sorry";
+				mes "for giving you such short";
+				mes "notice, but it seems that";
+				mes "you've grown much stronger";
+				mes "since the last time we met.";
+				next;
+				mes "[Father Bamph]";
+				mes "The Church has received";
+				mes "a request from Prontera";
+				mes "Palace, but we don't have";
+				mes "the resources to handle it.";
+				mes "I believe you'd be well suited";
+				mes "to this task if you'll help us.";
+				next;
+				mes "[Father Bamph]";
+				mes "A man of high rank suddenly";
+				mes "disappeared a while ago.";
+				mes "Although Prontera Palace";
+				mes "asked us to find him, I can";
+				mes "only tell you who he is later.";
+				next;
+				mes "[Father Bamph]";
+				mes "All we know is that he was";
+				mes "last seen in Comodo. Please";
+				mes "speak to our informant, ^6B8E23Larjes^000000,";
+				mes "and he will assist you in your";
+				mes "search for the lost official.";
+				set aru_monas,2;
+				close;
+			}
+			else if (aru_monas == 2 || aru_monas == 3) {
+				mes "[Father Bamph]";
+				mes "Please go to Comodo and";
+				mes "find our informant, ^6B8E23Larjes^000000,";
+				mes "in the Casino. He will help";
+				mes "you in your search for the";
+				mes "official who disappeared.";
+				close;
+			}
+			else if (aru_monas == 4) {
+				mes "[Father Bamph]";
+				mes "Ah, so you found Larjes?";
+				mes "How has your investigation of";
+				mes "that official's disappearance";
+				mes "progressing? I hope that he";
+				mes "is still safe and sound";
+				mes "when you find him.";
+				next;
+				select("Tell him what Larjes said.");
+				mes "[Father Bamph]";
+				mes "I see. We've detected some";
+				mes "disquieting activity from";
+				mes "Arunafeltz lately, but I didn't";
+				mes "think they would make";
+				mes "their move so soon. Hmm...";
+				mes "Give me a moment to think.";
+				set aru_monas,5;
+				close;
+			}
+			else if (aru_monas == 5) {
+				if (rand(1,10) == 10) {
+					mes "[Father Bamph]";
+					mes "Well, I've considered all";
+					mes "possible scenarios. I think";
+					mes "it would work best if you";
+					mes "continue your investigation";
+					mes "on our behalf. That is, if";
+					mes "you're willing to do it.";
+					next;
+					mes "[Father Bamph]";
+					mes "We don't want to provoke";
+					mes "an international conflict";
+					mes "with our official involvement,";
+					mes "but I also can't force you to";
+					mes "work for us. Whether you";
+					mes "can help is your choice.";
+					next;
+					if (select("Let me think about it.:Of course, I'll help.") == 1) {
+						mes "[Father Bamph]";
+						mes "I hope that you decide";
+						mes "to help us. The safety of";
+						mes "our nation depends on the";
+						mes "success of this investigation.";
+						mes "We could really use your help.";
+						close;
+					}
+					mes "[Father Bamph]";
+					mes "Thank you. I'm glad to hear";
+					mes "that you'll help us. You may";
+					mes "take the airship in Izlude to";
+					mes "travel to Arunafeltz, where you";
+					mes "must continue your investigation.";
+					next;
+					mes "[Father Bamph]";
+					mes "I believe that you should";
+					mes "be able to learn more if you";
+					mes "investigate the city of ^9370DBRachel^000000.";
+					mes "Please accept this money";
+					mes "to cover your Airship fee.";
+					mes "Thank you, and good luck.";
+					set zeny,zeny+1500;
+					set aru_monas,6;
+					close;
+				}
+				else {
+					mes "[Father Bamph]";
+					mes "Hmm... What's the best way";
+					mes "for us to handle this? Let";
+					mes "me think about our options.";
+					mes "We can--no. That wouldn't";
+					mes "work. This will be difficult.";
+					close;
+				}
+			}
+			else if (aru_monas == 6) {
+				// Anyone else see the irony in this?
+				mes "[Father Bamph]";
+				mes "You might have problems";
+				mes "in Rachel since the culture";
+				mes "there is much different than";
+				mes "our own. Their ways of doing";
+				mes "things, their government...";
+				mes "Everything is tied to religion.";
+				close;
+			}
+			else if (aru_monas > 6 && aru_monas < 24) {
+				mes "[Father Bamph]";
+				mes "Thank you so much for all";
+				mes "of your hard work. Our agents";
+				mes "will contact you whenever they";
+				mes "uncover any new information.";
+				mes "Remember that no one can";
+				mes "know what we've been doing.";
+				close;
+			}
+			else if (aru_monas == 24) {
+				mes "[Father Bamph]";
+				mes "Thank you for bring us such";
+				mes "important information. With";
+				mes "your help, we were able to";
+				mes "clear a few unsolved cases.";
+				mes "We expected something like";
+				mes "this, but not this soon.";
+				next;
+				mes "[Father Bamph]";
+				mes "I fear that the Royal Court";
+				mes "has been bickering over their";
+				mes "own selfish needs. I pray that";
+				mes "it does not grow worse, devolve";
+				mes "into chaos. ^666666*Sigh*^000000 We'll see...";
+				set aru_monas,25;
+				close;
+			}
+			else if (aru_monas >= 25) {
+				mes "[Father Bamph]";
+				mes "Thank you for bring us such";
+				mes "important information. With";
+				mes "your help, we were able to";
+				mes "clear a few unsolved cases.";
+				mes "We expected something like";
+				mes "this, but not this soon.";
+				next;
+				mes "[Father Bamph]";
+				mes "I fear that the Royal Court";
+				mes "has been bickering over their";
+				mes "own selfish needs. I pray that";
+				mes "it does not grow worse, devolve";
+				mes "into chaos. ^666666*Sigh*^000000 We'll see...";
+				close;
+			}
+// End Nameless Island Access Quest Addition
+			else {
+				mes "[Father Bamph]";
+				mes "I'm sorry, but would it";
+				mes "be alright if we talked";
+				mes "later? I have to handle";
+				mes "a very important task now...";
+				close;
+			}
+		}
+	}
+}
+
+prt_church,184,110,3	script	Father Biscuss	60,{
+	if (prt_curse == 54) {
+		mes "[Father Biscuss]";
+		mes "Hmm, I still suspect that";
+		mes "someone from the Assassin";
+		mes "Guild may have killed the";
+		mes "princes. Just in case, I'm";
+		mes "going to send a spy. Keep";
+		mes "that information secret.";
+		next;
+		mes "[Father Biscuss]";
+		mes "So yes. You didn't learn";
+		mes "or hear anything from us,";
+		mes "and you don't know anything";
+		mes "about the royal family's curse.";
+		mes "From here on, Father Bamph";
+		mes "and I will handle this issue.";
+		close;
+	}
+	else if (prt_curse == 35) {
+		mes "[Father Biscuss]";
+		mes "I've never seen Father";
+		mes "Bamph this way before, but";
+		mes "I can understand how he feels.";
+		mes "As one of the leaders of this";
+		mes "church, he feels responsible";
+		mes "for these princes' deaths.";
+		next;
+		mes "[Father Biscuss]";
+		mes "I'm sure he'll feel";
+		mes "better in a few days,";
+		mes "but right now, he's in no";
+		mes "condition to compile the";
+		mes "valuable info that you've";
+		mes "provided, so I'll do it.";
+		next;
+		mes "[Father Biscuss]";
+		mes "Personally, I feel that";
+		mes "what happened was tragic,";
+		mes "but it should be avenged.";
+		mes "Perhaps that why I've held";
+		mes "a grudge against Imbullea";
+		mes "for all this time. Anyway...";
+		next;
+		mes "[Father Biscuss]";
+		mes "Although we can't";
+		mes "acknowledge it publicly,";
+		mes "on behalf of the Prontera";
+		mes "Church, I want to thank";
+		mes "you for all of your help.";
+		set prt_curse,36;
+		getexp 160000,0;
+		close;
+	}
+	else if (prt_curse == 36) {
+		mes "[Father Biscuss]";
+		mes "No one can know light";
+		mes "without experiencing";
+		mes "darkness. Peace has";
+		mes "no meaning until it is";
+		mes "contrasted with chaos.";
+		next;
+		mes "[Father Biscuss]";
+		mes "Religion becomes even";
+		mes "more important during times";
+		mes "of chaos, and times of need.";
+		mes "I must remain calm, especially";
+		mes "when Father Bamph feels so bad about this whole incident...";
+		close;
+	}
+	else {
+		mes "[Father Biscuss]";
+		mes "Please observe";
+		mes "silence within the";
+		mes "Priest Room. Thank";
+		mes "you for cooperating.";
+		close;
+	}
+}
+
+prt_church,177,113,3	script	#gototomb	111,{
+	if (prt_curse > 17 && prt_curse < 23 || prt_curse > 31 && prt_curse < 35 || prt_curse == 41 || prt_curse == 42 || prt_curse == 44 || prt_curse == 51 || prt_curse == 52) {
+		warp "prt_church",21,91;
+	}
+	end;
+}
+
+prt_church,23,89,3	script	Father Biscuss#tomb	60,{
+	mes "[Father Biscuss]";
+	mes "Hm...?";
+	mes "Are you ready to";
+	mes "head back upstairs?";
+	next;
+	if (select("Yes:No") == 1) {
+		mes "[Father Biscuss]";
+		mes "Please follow me.";
+		next;
+		warp "prt_church",178,111;
+		end;
+	}
+	mes "[Father Biscuss]";
+	mes "Please take your time";
+	mes "and investigate this as";
+	mes "thoroughly as you can.";
+	close;
+}
+
+prt_church,16,114,4	script	Father Bamph#tomb	60,{
+	if (prt_curse == 18) {
+		mes "[Father Bamph]";
+		mes "There are the bodies";
+		mes "of the Gaebolg princes";
+		mes "that were killed during";
+		mes "the exorcism. Please take";
+		mes "a look at the body to the left.";
+		set prt_curse,19;
+		close;
+	}
+	else if (prt_curse == 19) {
+		mes "[Father Bamph]";
+		mes "Please take a look";
+		mes "at the body to the";
+		mes "far left, the first prince.";
+		close;
+	}
+	else if (prt_curse == 20) {
+		mes "["+strcharinfo(0)+"]";
+		mes "That weird mark looked";
+		mes "just like snake scales.";
+		mes "Is... Is that the mark left";
+		mes "behind by Jormungand's curse?";
+		next;
+		mes "[Father Bamph]";
+		mes "That's right.";
+		mes "Now, let's examine the";
+		mes "body of the second prince,";
+		mes "located in the middle.";
+		close;
+	}
+	else if (prt_curse == 21) {
+		mes "[Father Bamph]";
+		mes "Now...";
+		mes "Now we should";
+		mes "examine the third prince.";
+		close;
+	}
+	else if (prt_curse == 22) {
+		mes "[Father Bamph]";
+		mes "Let's go upstairs where we";
+		mes "can continue this conversation.";
+		mes "Ah, you might want to ask";
+		mes "Father Biscuss to lead you.";
+		close;
+	}
+	else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
+		mes "[Father Bamph]";
+		mes "Do you have a ^3131FFYellow";
+		mes "Gemstone^000000 and ^3131FFGreen Potion^000000";
+		mes "ready? If so, you should begin";
+		mes "testing on the body of the third prince before the others.";
+		close;
+	}
+	else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
+		mes "[Father Bamph]";
+		mes "The mark disappeared?";
+		mes "Oh, this is just horrible!";
+		mes "That would mean that poison";
+		mes "was used to murder the other";
+		mes "princes! I almost... can't...";
+		next;
+		mes "[Father Bamph]";
+		mes "I... I need some time";
+		mes "to recover from the shock";
+		mes "and to think about all of";
+		mes "this carefully. For now,";
+		mes "let's go back upstairs.";
+		if (prt_curse == 33) set prt_curse,34;
+		else if (prt_curse == 42) set prt_curse,43;
+		else set prt_curse,53;
+		close;
+	}
+	else if (prt_curse == 43 || prt_curse == 53) {
+		mes "[Father Bamph]";
+		mes "We've disturbed the";
+		mes "bodies of these poor";
+		mes "souls enough. We should";
+		mes "go back upstairs now...";
+		close;
+	}
+	end;
+}
+
+prt_church,19,111,5	script	#prince1	887,{
+	if (prt_curse == 19) {
+		mes "[Father Bamph]";
+		mes "This is the body of";
+		mes "the king's first son, the";
+		mes "crown prince. Just as it has";
+		mes "happened for generations,";
+		mes "the curse took the life of";
+		mes "the first born prince...";
+		next;
+		mes "^3355FFBeneath one of the";
+		mes "prince's sleeves, you";
+		mes "notice a dark mark. Upon";
+		mes "pulling up the sleeve, you";
+		mes "note that the mark resembles";
+		mes "the scales of a serpent.^000000";
+		set prt_curse,20;
+		close;
+	}
+	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
+		mes "^3355FFYou poured a little bit";
+		mes "of the solution made from";
+		mes "Yellow Gemstone and Green";
+		mes "Potion on the mark on the skin.";
+		mes "You waited a while, but there was no reaction from the solution.^000000";
+		close;
+	}
+	else {
+		mes "^3355FFIt's the body of a male";
+		mes "dressed in luxurious robes.";
+		mes "Although deceased, the color";
+		mes "of life has not yet left the body. ";
+		close;
+	}
+}
+
+prt_church,21,111,5	script	#prince2	887,{
+	if (prt_curse == 20) {
+		mes "[Father Bamph]";
+		mes "This is the body of the";
+		mes "second prince. The curse";
+		mes "is only supposed to kill";
+		mes "the firstborn prince, but";
+		mes "all three princes of this";
+		mes "generation were killed...";
+		next;
+		mes "[Father Bamph]";
+		mes "Despite our great efforts";
+		mes "to exorcise this powerful";
+		mes "curse, we all failed. Those";
+		mes "involved have begun to believe";
+		mes "that Odin may have abandoned us... ";
+		Emotion e_omg,1;
+		next;
+		mes "^3355FFYou examine the body of";
+		mes "the second prince and notice";
+		mes "that the scale marks on his";
+		mes "skin are fainter, and slightly";
+		mes "different in color, than the";
+		mes "marks on the first prince.^000000";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Father Bamph...!";
+		mes "Look, these marks are";
+		mes "different on the second";
+		mes "prince than on the first";
+		mes "prince! See? They're different";
+		mes "in darkness and coloration.";
+		next;
+		mes "[Father Bamph]";
+		mes "Goodness, you're right!";
+		mes "How did we overlook this?";
+		mes "Hm, this supports the idea";
+		mes "that a conspiracy may be";
+		mes "involved. Let's go check";
+		mes "the body of the third prince.";
+		set prt_curse,21;
+		close;
+	}
+	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
+		specialeffect EF_POISONATTACK;
+		specialeffect EF_POISONHIT;
+		specialeffect EF_BUBBLE;
+		mes "^3355FFYou poured a little of the";
+		mes "solution made from Green";
+		mes "Potion and Yellow Gemstone";
+		mes "on the body's scale marks. The";
+		mes "scale marks grow fainter and";
+		mes "the solution bubbles on contact. ";
+		close;
+	}
+	else {
+		mes "^3355FFIt's the body of a male";
+		mes "dressed in luxurious robes.";
+		mes "Although deceased, the color";
+		mes "of life has not yet left the body. ";
+		close;
+	}
+}
+
+prt_church,24,111,5	script	#prince3	887,{
+	if (prt_curse == 21) {
+		mes "^3355FFYou and Father Bamph";
+		mes "hurriedly inspect the third";
+		mes "prince's body and find that the";
+		mes "scale marks on his skin are";
+		mes "a little darker than the marks";
+		mes "on the second prince's skin.^000000";
+		next;
+		mes "[Father Bamph]";
+		mes "This is very suspicious...";
+		mes "The deaths of the second and";
+		mes "third princes might have been";
+		mes "caused by murder, rather than";
+		mes "the curse. However, what could";
+		mes "possibly be used to kill them?";
+		next;
+		while(1) {
+			if (select("A weapon!:Poison!") == 1) {
+				mes "[Father Bamph]";
+				mes "Hmm... But none of the";
+				mes "bodies had any wounds";
+				mes "or scarring. If that were the";
+				mes "case, I'm sure the king would";
+				mes "have declared war on someone.";
+				mes "It couldn't have been a weapon.";
+				next;
+			}
+			else  break;
+		}
+		mes "[Father Bamph]";
+		mes "Poison...?";
+		mes "Oh dear! No one in the";
+		mes "Prontera Church would know";
+		mes "the first thing about that. But";
+		mes "maybe poison was used.";
+		mes "How can we find out for sure?";
+		next;
+		mes "[Father Biscuss]";
+		mes "I say, you go straight to";
+		mes "the experts. Someone in the";
+		mes "^FF0000Assassin Guild in Morroc^000000";
+		mes "ought to know. I hear they";
+		mes "can make poison that can kill";
+		mes "a man with just one drop!";
+		next;
+		mes "[Father Bamph]";
+		mes "Ah, that's a good idea!";
+		mes "Hmm, but first, let's go";
+		mes "continue this conversation";
+		mes "outside, shall we? I'd prefer";
+		mes "not to disturb these bodies...";
+		set prt_curse,22;
+		close;
+	}
+	else if (prt_curse == 22) {
+		mes "[Father Bamph]";
+		mes "Let's go upstairs where we";
+		mes "can continue this conversation.";
+		mes "Ah, you might want to ask";
+		mes "Father Biscuss to lead you.";
+		close;
+	}
+	else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
+		if (countitem(506) > 0 && countitem(715) > 0) {
+			mes "^3355FFYou open a bottle of";
+			mes "Green Potion and insert a";
+			mes "Yellow Gemstone. The gem";
+			mes "quickly dissolves, conveniently";
+			mes "forming a solution to test for the presense of poison. You pour";
+			mes "it on the prince's scale marks.^000000";
+			next;
+			specialeffect EF_POISONATTACK;
+			specialeffect EF_POISONHIT;
+			specialeffect EF_BUBBLE;
+			mes "^3355FF*Pssssssssh*^000000";
+			next;
+			mes "^3355FFThe solution bubbles";
+			mes "once it touches the skin,";
+			mes "and the serpent scale marks";
+			mes "on the prince's body slowly";
+			mes "fade until they disappear.^000000";
+			delitem 506,1; //Green_Potion
+			delitem 715,1; //Yellow_Gemstone
+			if (prt_curse == 32) set prt_curse,33;
+			else if (prt_curse == 41) set prt_curse,42;
+			else set prt_curse,52;
+			close;
+		}
+		mes "^3355FFYou'll need to have";
+		mes "a Green Potion and";
+		mes "a Yellow Gemstone in";
+		mes "order to test and confirm";
+		mes "whether poison killed the";
+		mes "second and third princes.^000000";
+		close;
+	}
+	else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
+		mes "^3355FFThe serpent scale marks";
+		mes "on this prince's body have";
+		mes "vanished after you applied";
+		mes "the Green Potion and Yellow";
+		mes "Gemstone solution to the skin.^000000";
+		close;
+	}
+	else {
+		mes "^3355FFIt's the body of a male";
+		mes "dressed in luxurious robes.";
+		mes "Although deceased, the color";
+		mes "of life has not yet left the body. ";
+		close;
+	}
+}
+
+moc_fild16,201,295,5	script	Assassin Guildsman#poiso	884,{
+	if (prt_curse == 23) {
+		mes "[Assassin Guildsman]";
+		mes "What business";
+		mes "brings you here?";
+		next;
+		if (select("Poison:Nothing") == 1) {
+			mes "["+strcharinfo(0)+"]";
+			mes "I need to talk to";
+			mes "a poison specialist.";
+			mes "I'm investigating";
+			mes "something for the";
+			mes "Prontera Church,";
+			mes "possibly a murder.";
+			next;
+			mes "[Assassin Guildsman]";
+			mes "...";
+			mes "......";
+			mes ".........";
+			next;
+			mes "[Assassin Guildsman";
+			mes "Listen carefully.";
+			mes "I will only tell this";
+			mes "to you one time.";
+			next;
+			mes "[Assassin Guildsman]";
+			mes "There is an";
+			mes "Assassin's Private Pub";
+			mes "in the 7 o'clock direction";
+			mes "in Morroc. Go find someone";
+			mes "named ^3131FFMarjana^000000 inside.";
+			set prt_curse,24;
+			close;
+		}
+		mes "[Assassin Guildsman]";
+		mes "No. That look in";
+		mes "your eyes. I'm sure";
+		mes "there is a reason that";
+		mes "you have come here...";
+		close;
+	}
+	else {
+		mes "[Assassin Guildsman]";
+		mes "It's very dry and";
+		mes "windy today. I like this";
+		mes "weather. It feels like it";
+		mes "perfectly matches the soul";
+		mes "of a true Assassin, the loner";
+		mes "that hides in the shadows.";
+		close;
+	}
+}
+
+que_job01,10,16,5	script	Marjana#poison	885,{
+	if (prt_curse == 24) {
+		mes "[Marjana]";
+		mes "What business brings";
+		mes "you here? I'm giving";
+		mes "you 4 minutes to speak";
+		mes "with me, so be direct.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "I want to learn";
+		mes "more about poison";
+		mes "and confirm if it was";
+		mes "used to kill someone.";
+		next;
+		mes "[Marjana]";
+		mes "Poison? You've come";
+		mes "to just the right person.";
+		mes "If I don't know the answer,";
+		mes "I doubt you'll find anyone";
+		mes "else that would. Ask away.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Is it true that an";
+		mes "Assassin's poison";
+		mes "can be so powerful,";
+		mes "that just one drop";
+		mes "can kill a person?";
+		next;
+		mes "[Marjana]";
+		mes "It's true that such powerful";
+		mes "poison exists, but such deadly";
+		mes "poison is usually only used by";
+		mes "Assassin Crosses. Generally,";
+		mes "normal Assassins use poisons";
+		mes "that are much less potent.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Alright. Can you make";
+		mes "a poison that leaves a";
+		mes "specific mark on the body?";
+		next;
+		mes "[Marjana]";
+		mes "Sure. There's all kinds of";
+		mes "poisons that exist that I'm";
+		mes "sure you can't even imagine.";
+		mes "However, poisons that leave";
+		mes "specific marks are difficult to";
+		mes "use, and few can handle them.";
+		next;
+		mes "[Marjana]";
+		mes "The types of marks";
+		mes "that are left behind all";
+		mes "depend on the materials";
+		mes "used to create the poison.";
+		mes "Since some materials are";
+		mes "exclusive to certain areas...";
+		next;
+		mes "[Marjana]";
+		mes "Well, the type of mark";
+		mes "that was left behind could";
+		mes "actually serve as some kind";
+		mes "of clue. What was the mark";
+		mes "on the victim's body?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "We're not sure if";
+		mes "poison was used yet,";
+		mes "but there are marks that";
+		mes "look like snake scales";
+		mes "left on the bodies.";
+		next;
+		mes "[Marjana]";
+		mes "Hmm. You know, if I had";
+		mes "to guess, I would say that";
+		mes "poison was probably used.";
+		mes "But the poison would have";
+		mes "to originate from outside of";
+		mes "the Rune-Midgarts Kingdom...";
+		next;
+		mes "[Marjana]";
+		mes "Yeah...";
+		mes "The materials used to";
+		mes "make those snake scale";
+		mes "marks... Some of them can't";
+		mes "even be found here on the";
+		mes "Rune-Midgard continent.";
+		next;
+		mes "[Marjana]";
+		mes "We're running out of time.";
+		mes "Listen, you can confirm whether";
+		mes "poison was used to kill someone";
+		mes "by mixing a Yellow Gemstone with a Green Potion, and sprinkling";
+		mes "the solution on the body.";
+		next;
+		mes "[Marjana]";
+		mes "If poison was used, the";
+		mes "solution with react with";
+		mes "the body. But this method";
+		mes "won't work if too much time";
+		mes "has passed after the murder.";
+		mes "You better try this soon...";
+		set prt_curse,25;
+		close;
+	}
+
+OnInit:
+	disablenpc "Marjana#poison";
+	end;
+
+OnEnable:
+	enablenpc "Marjana#poison";
+	end;
+}
+
+morocc,45,103,0	script	#prtcurse	-1,2,2,{
+OnTouch:
+	if (prt_curse == 25) {
+		mes "["+strcharinfo(0)+"]";
+		mes "Hm. I'd better review";
+		mes "the facts I've learned so";
+		mes "that I can better focus on";
+		mes "this investigation. Let's see~";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Long ago, the giant serpent";
+		mes "Jormungand threatened mankind.";
+		mes "7 warriors defeated Jormungand, led by Tristram III of the Gaebolg";
+		mes "family, but Jormungand cursed the Gaebolg bloodline in its defeat.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Ever since, the curse kills";
+		mes "the first born prince of the";
+		mes "Gaebolg family at an early age.";
+		mes "However, all of the princes of";
+		mes "this generation were killed.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "According to what I've";
+		mes "learned from that assassin,";
+		mes "the first prince died from the";
+		mes "curse, and the other two may";
+		mes "have died from poisoning.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "It's most likely that if";
+		mes "poison was used, then the";
+		mes "person who used it was an";
+		mes "assassin from outside of the";
+		mes "Rune-Midgarts Kingdom. Yes,";
+		mes "that's about everything I know.";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Now, that historian Rodafrian";
+		mes "has been waiting for me to tell";
+		mes "her the lyrics of that song, but Father Bamph is also waiting";
+		mes "for the info I've learned from the Assassin Guild. What should I do?";
+		next;
+		if (select("Go to Rodafrian:Go to Father Bamph") == 1) {
+			mes "["+strcharinfo(0)+"]";
+			mes "Well, it's easier for me";
+			mes "to visit Rodafrian now.";
+			mes "She's much closer than";
+			mes "Father Bamph, so I guess";
+			mes "that I'll go talk to her first.";
+			set prt_curse,30;
+			close;
+		}
+		mes "["+strcharinfo(0)+"]";
+		mes "Well, it's more important";
+		mes "that I go see Father Bamph";
+		mes "and investigate the princes'";
+		mes "bodies. I better head over";
+		mes "to Prontera right away.";
+		set prt_curse,50;
+		close;
+	}
+}
+
+prt_in,162,99,4	script	Librarian#curse	67,{
+	if (checkweight(1201,1) == 0) {
+		mes "^3355FFWait a second!";
+		mes "Right now, you're carrying";
+		mes "too many things with you.";
+		mes "Please come back after";
+		mes "using the Kafra Service";
+		mes "to store some of your items.";
+		close;
+	}
+	if (prt_curse == 3) {
+		if (countitem(7431) < 1) {
+			mes "[Librarian]";
+			mes "Please make sure to return";
+			mes "library books to the correct";
+			mes "place after you use them.";
+			mes "We don't have enough staff";
+			mes "to organize all these books...";
+			next;
+			if (select("Report the loss of the books:End Conversation") == 1) {
+				mes "[Librarian]";
+				mes "Oh, you lost some books?";
+				mes "Please write down the book";
+				mes "titles and pay the 700 zeny";
+				mes "penalty charge. Aftewards,";
+				mes "we will provide you with";
+				mes "replacement copies.";
+				next;
+				if (zeny > 699) {
+					mes "[Librarian]";
+					mes "Ah, here you are.";
+					mes "Please take these";
+					mes "replacement copies,";
+					mes "and try not to lose";
+					mes "them again. Thank you.";
+					set zeny,zeny-700;
+					getitem 7431,1; //Books
+					close;
+				}
+				mes "[Librarian]";
+				mes "Hmm...";
+				mes "Come back as soon";
+				mes "as you can with the";
+				mes "700 zeny to pay the";
+				mes "lost book penalty charge.";
+				close;
+			}
+			mes "[Librarian]";
+			mes "Please keep silent";
+			mes "while inside the library.";
+			mes "Thank you for cooperating.";
+			close;
+		}
+		else {
+			mes "[Librarian]";
+			mes "Being a librarian can";
+			mes "be pretty rough. People";
+			mes "just leave the books all";
+			mes "scattered, but expect them";
+			mes "to be organized. Ooh, books";
+			mes "are always getting lost too...";
+			next;
+			mes "[Librarian]";
+			mes "When you have";
+			mes "to clean up their";
+			mes "messes, you get to";
+			mes "realize how sloppy";
+			mes "people can really be.";
+			close;
+		}
+	}
+	else {
+		mes "[Librarian]";
+		mes "Being a librarian can";
+		mes "be pretty rough. People";
+		mes "just leave the books all";
+		mes "scattered, but expect them";
+		mes "to be organized. Ooh, books";
+		mes "are always getting lost too...";
+		next;
+		mes "[Librarian]";
+		mes "When you have";
+		mes "to clean up their";
+		mes "messes, you get to";
+		mes "realize how sloppy";
+		mes "people can really be.";
+		close;
+	}
+}