//===== eAthena Script ======================================= 
//= Rachel Quests
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Collection of Rachel Quests 
//= * Lost Child
//= * Bruspetti
//= * Ice Necklace
//= * Sanctuary/donation
//===== Comments: ============================================
//= Lost Child Quest:
//= - End of quest coincides with opening the Sanctuary.
//= - Variable in use: lost_boy (max 13)
//= Bruspetti Quest:
//= - [Aegis conversion]
//= - Requires friendship quest as a prerequisite.
//= - Variable in use: rach_vice (max 24)
//= Ice Necklace Quest:
//= - iRO uses a different sprite for Urstia, and no cutins.
//= - Need command to change NPC sprite
//= - Need Mosnter triggered "OnTouch" event. (OnTouchNPC)
//= - Variable in use: ice_necklace_q (max 7)
//= Sanctuary Quest:
//= - Actually two quests in one. Donation and dungeon quest.
//= - Requires 10000 donations before players can start the quest.
//= - Variable in use: ra_tem_q (max 22) (unset at end)
//= - Variable in use: Once completed MISC_QUEST bit 8192 is set
//= - Variable in use: ra_have_donated (0 no/1 yes)
//= - Variable in use: $rachel_donate (max 10000)
//===== Additional Comments: ================================= 
//= 1.0 First version, needs testing. [L0ne_W0lf]
//============================================================ 

// Lost Child Quest (Prerequisite to High Priest quest)
//============================================================ 
ra_in01,384,246,3	script	Vincent#ra_in01	47,{
	if (BaseLevel < 60) {
		mes "[Vincent]";
		mes "You're inside Sir Zhed's";
		mes "looking for new employees,";
		mes "I don't think you're suited";
		mes "for this kind of domestic";
		mes "work, brave adventurer.";
		close;
	}

	if (lost_boy < 1) {
		mes "[Vincent]";
		mes "I am Vincert, steward of";
		mes "this mansion and faithful";
		mes "servant to its master, Sir";
		mes "Zhed, the most powerful";
		mes "man in all of Arunafeltz.";
		next;
		mes "[Vincent]";
		mes "My master is currently out";
		mes "to attend the High Priest";
		mes "assembly, and has been gone";
		mes "for a few days. I would like to";
		mes "ask you for your help with";
		mes "a problem on his behalf.";
		next;

		switch(select("I'm too busy.:Sure, why not?")) {

		case 1:
			mes "[Vincent]";
			mes "I understand.";
			mes "I'm sorry that you're";
			mes "too busy at the moment...";
			mes "If you should be available";
			mes "later, then I'd like to ask for";
			mes "your assistance once again.";
			close;

		case 2:
			mes "[Vincent]";
			mes "Thank you. You see,";
			mes "the pope awarded Sir Zhed";
			mes "for his great contributions to";
			mes "Arunafeltz with a precious gem.";
			mes "However, this jewel is missing";
			mes "and I need your help to find it.";
			next;
			mes "[Vincent]";
			mes "I don't have any proof, but";
			mes "I suspect it was stolen by";
			mes "Phobe, a servant that";
			mes "disappeared about the same";
			mes "time the gem disappeared.";
			next;
			mes "[Vincent]";
			mes "Please retrieve this gem";
			mes "and find who stole it before";
			mes "Sir Zhed returns and finds";
			mes "out what happened. If you";
			mes "can keep this secret, I'd";
			mes "very much appreciate it.";
			next;
			mes "[Vincent]";
			mes "I believe that you'd want";
			mes "to interrogate Phobe, but";
			mes "he has run away somewhere.";
			mes "You might want to question the";
			mes "other servants of his whereabouts. Thanks again for your help.";
			set lost_boy,1;
			close;

		}

	}

	else if ((lost_boy >= 1) && (lost_boy < 4)) {
		mes "[Vincent]";
		mes "I suggest looking around";
		mes "the mansion and asking the";
		mes "servants for any clues about";
		mes "Phobe's current location.";
		close;
	}

	else if ((lost_boy >= 4) && (lost_boy < 7)) {
		mes "[Vincent]";
		mes "We're running out";
		mes "of time... Please find";
		mes "the gem and Phobe";
		mes "as soon as you can.";
		close;
	}

	else if (lost_boy == 7) {
		mes "[Vincent]";
		mes "Ah...!";
		mes "H-hello! How are";
		mes "you still, er... That";
		mes "look on your face? Did";
		mes "you happen to find Logan?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "No! I actually got";
		mes "stabbed by Mogan, and";
		mes "then we had a talk. What's";
		mes "the big idea? I come to help";
		mes "you, and you try to have me";
		mes "killed! I want an explanation!";
		next;
		mes "[Vincent]";
		mes "I... Yes, you deserve";
		mes "the truth after wh-what";
		mes "I tried to do to you. First";
		mes "of all, Phobe is my son, but";
		mes "please don't tell anybody!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "What?";
		mes "Why, what's";
		mes "the big deal?";
		next;
		mes "[Vincent]";
		mes "There's something of";
		mes "a class system here in";
		mes "Arunafeltz. No one talks";
		mes "about it, but those that";
		mes "immigrated here and built this";
		mes "city are the dominant class.";
		next;
		mes "[Vincent]";
		mes "The native people are";
		mes "second class citizens that";
		mes "are looked down upon by the";
		mes "descendents of the settlers";
		mes "that developed this city. It";
		mes "is a sad, undeniable truth.";
		next;
		mes "[Vincent]";
		mes "The native people typically";
		mes "suffer from lower class status,";
		mes "and usually do the hard, blue";
		mes "collar work in the city. Jenny,";
		mes "Phobe's mother, is one of them.";
		next;
		mes "[Vincent]";
		mes "It's taboo for me to love her,";
		mes "especially since Sir Zhed has";
		mes "taken me under his wing and";
		mes "been like a father to me. If";
		mes "I married her, it'd greatly";
		mes "damage his reputation.";
		next;
		mes "[Vincent]";
		mes "I tried to control my";
		mes "feelings but... Well,";
		mes "Phobe was born. And there's";
		mes "no going back now. We did";
		mes "get secretly married though,";
		mes "and I don't regret that.";
		next;
		mes "[Vincent]";
		mes "Phobe must resent me...";
		mes "I've had to treat him and";
		mes "his mother like slaves";
		mes "in front of other people.";
		mes "I know it's horrible... To be";
		mes "so cold to those you love.";
		next;
		mes "[Vincent]";
		mes "When he ran off with the";
		mes "jewel, I was actually more";
		mes "worried about Phobe than";
		mes "my master's treasure. So...";
		mes "I did what I could to try to";
		mes "get him back: I hired you.";
		next;
		mes "[Vincent]";
		mes "However, once you found";
		mes "Phobe, I planned to have";
		mes "you killed so that we could";
		mes "blame you for the theft. I'm";
		mes "sorry, I know it's wrong, but";
		mes "I was so worried about my boy!";
		next;
		mes "[Vincent]";
		mes "I hope you forgive me...";
		mes "I'll do what I should've";
		mes "done from the beginning...";
		mes "I'll take full responsibility";
		mes "for the gem's theft, and Sir";
		mes "Zhed can do to me what he will.";
		next;
		mes "[Vincent]";
		mes "The gem is very special...";
		mes "Our pope commanded my";
		mes "master to keep the jewel";
		mes "safely, as it has the power";
		mes "to save Arunafeltz and Rachel";
		mes "when the time comes.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "The gem is really that";
		mes "important, huh? Well, you";
		mes "almost had me killed, but";
		mes "since I'm still alive, I guess";
		mes "I can overlook it, you know?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You won't get in trouble";
		mes "if I can find the jewel and";
		mes "Phobe before Sir Zhed";
		mes "returns, so I'll try to find";
		mes "them for you as soon as I can.";
		next;
		mes "[Vincent]";
		mes "You're willing to";
		mes "do that for me? ^333333*Sob*^000000";
		mes "Even after what I've put";
		mes "you through? ^333333*Sniff*^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Eh, I went through all";
		mes "this trouble already, so";
		mes "I might as well finish the";
		mes "job. Besides, Phobe is";
		mes "just a kid, so he's probably";
		mes "hiding somewhere in town.";
		set lost_boy,8;
		close;
	}


	else if (lost_boy == 8) {
		mes "[Vincent]";
		mes "The gem is very special...";
		mes "Our pope commanded my";
		mes "master to keep the jewel";
		mes "safely, as it has the power";
		mes "to save Arunafeltz and Rachel";
		mes "when the time comes.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "The gem is really that";
		mes "important, huh? Well, you";
		mes "almost had me killed, but";
		mes "since I'm still alive, I guess";
		mes "I can overlook it, you know?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You won't get in trouble";
		mes "if I can find the jewel and";
		mes "Phobe before Sir Zhed";
		mes "returns, so I'll try to find";
		mes "them for you as soon as I can.";
		next;
		mes "[Vincent]";
		mes "You're willing to";
		mes "do that for me? ^333333*Sob*^000000";
		mes "Even after what I've put";
		mes "you through? ^333333*Sniff*^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Eh, I went through all";
		mes "this trouble already, so";
		mes "I might as well finish the";
		mes "job. Besides, Phobe is";
		mes "just a kid, so he's probably";
		mes "hiding somewhere in town...";
		close;
	}


	else if (lost_boy == 9) {
		mes "[Vincent]";
		mes "You came back!";
		mes "Were you able to";
		mes "find Phobe?! H-how";
		mes "is he? Is he alright?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Huh? Oh yeah, he's";
		mes "just fine. I found Phobe";
		mes "loitering around Freya's";
		mes "Spring. Er, he's not willing";
		mes "to come home yet, but he did";
		mes "give me the gem he stole.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "So... I earned my";
		mes "reward now, right?";
		mes "And no one has to die?";
		next;
		mes "[Vincent]";
		mes "Yes, yes, thank you so";
		mes "much! I'll never forget";
		mes "what you've done for me.";
		mes "Oh, my boy is alright!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "H-hey! Um, take";
		mes "this jewel! You need";
		mes "to return it to wherever";
		mes "it's supposed to go, right?";
		next;
		mes "[Vincent]";
		mes "Oh, yes, I'd better do";
		mes "that. While I return this";
		mes "jewel, would you please";
		mes "tell my wife Jenny that our";
		mes "boy is okay? She's been";
		mes "very worried about him, so...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You want me to tell";
		mes "Jenny about Phobe?";
		mes "Sure, sure, I'll do that.";
		set lost_boy,10;
		close;
	}

	else if (lost_boy == 10) {
		mes "[Vincent]";
		mes "Oh! While I return this";
		mes "jewel, would you please";
		mes "tell my wife Jenny that our";
		mes "boy is okay? She's been";
		mes "very worried about him, so...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "You want me to tell";
		mes "Jenny about Phobe?";
		mes "Sure, sure, I'll do that.";
		close;
	}	

	else if (lost_boy == 11) {
		mes "["+strcharinfo(0)+"]";
		mes "I told Jenny that";
		mes "about Phobe, and that";
		mes "the gem was returned...";
		mes "She seemed pretty relieved...";
		next;
		mes "[Vincent]";
		mes "Thank you so much,";
		mes "adventurer. She's such";
		mes "a kind, loving woman, and";
		mes "I hate to see her go through";
		mes "all that torment. I don't deserve";
		mes "such a beautiful woman...";
		next;
		mes "[Vincent]";
		mes "It's very fortunate that";
		mes "you've come to save us...";
		mes "Please drop by the next";
		mes "time that you're in Rachel,";
		mes "and I'll try to help you if I can.";
		next;
		mes "[Vincent]";
		mes "Ah, actually, I have";
		mes "one last favor to ask";
		mes "of you. Would you please";
		mes "bring this note and package";
		mes "to my master? He should still";
		mes "be in the temple right now.";
		next;
		mes "[Vincent]";
		mes "If you ask for High";
		mes "Priest Zhed and mention";
		mes "that I sent you, then he";
		mes "will meet with you.";
		next;
		mes "[Vincent]";
		mes "Now is the time for";
		mes "me to give you your";
		mes "reward. How about that?";
		mes "I don't know what's inside,";
		mes "but I know these items are";
		mes "quite valuable nowadays...";
		getitem 617,1; //Old_Violet_Box
		set lost_boy,12;
		next;
		mes "[Vincent]";
		mes "Ah, and this note is a";
		mes "letter of recommendation";
		mes "that I have written for you.";
		mes "Please deliver it to Sir Zhed";
		mes "as soon as possible. Good bye,";
		mes "and thank you for everything.";
		next;
		mes "^3355FFYou received a letter";
		mes "of recommendation";
		mes "from Vincent.^000000";
		close;
	}

	else {
		mes "[Vincent]";
		mes "Thank you for everything";
		mes "that you've done for me";
		mes "and my family. If you ever";
		mes "need help, please don't";
		mes "hesitate to ask me, alright?";
		close;
	}

}

rachel,114,232,3	script	Logan#ra_in01	869,{
	if ((lost_boy < 1) || (lost_boy >= 3)) {
		mes "[Logan]";
		mes "I'm just Logan, one";
		mes "of the many servants";
		mes "working here in Sir Zhed's";
		mes "glorious mansion. I've got";
		mes "a lot of work to do, so don't";
		mes "don't distract me, please.";
		close;
	}

	else if (lost_boy == 1) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me, but do";
		mes "you know man named";
		mes "Phobe by any chance?";
		mes "I heard that he used";
		mes "to work around here.";
		next;
		mes "[Logan]";
		mes "Er, may I ask";
		mes "you are? Why are";
		mes "you looking for him?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Well, I've just been";
		mes "hired to look for him,";
		mes "and I was told that asking";
		mes "the servants around here";
		mes "was a good starting point.";
		next;
		mes "[Logan]";
		mes "Oh, okay. Yeah, Phobe's";
		mes "been missing ever since";
		mes "he left to buy stuff from";
		mes "the market a few days ago.";
		mes "I hope the kid is alright.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Er, kid? Just";
		mes "how old is Phobe?";
		next;
		mes "[Logan]";
		mes "He just turned fifteen.";
		mes "That's all I know about";
		mes "him. Truth be told, I don't";
		mes "know much since I just";
		mes "started working here. Why don't";
		mes "you ask the senior employees?";
		next;
		mes "[Logan]";
		mes "Let's see...";
		mes "You could ask Mr. Manson";
		mes "inside the mansion. He's";
		mes "been working here for a while.";
		set lost_boy,2;
		close;
	}

	else if (lost_boy == 2) {
		mes "[Logan]";
		mes "If you want to learn";
		mes "more about Phobe, you'd";
		mes "better ask one of the senior";
		mes "employees since I just started";
		mes "working here. Mr. Manson in";
		mes "the mansion is a good bet.";
		close;
	}

}

ra_in01,372,200,3	script	Manson#ra_in01	929,{
	if (lost_boy < 1) {
		mes "[Manson]";
		mes "I am Manson, one of the";
		mes "many servants working here";
		mes "in Sir Zhed's mansion. Er,";
		mes "would you be more careful";
		mes "walking around here? I hate";
		mes "cleaning up after visitors.";
		close;
	}

	else if (lost_boy == 1) {
		mes "[Manson]";
		mes "You know, considering";
		mes "that natives like me are";
		mes "looked down upon and";
		mes "are kinda of lower class,";
		mes "I'm really lucky to work for";
		mes "Sir Zhed here in the mansion.";
		close;
	}

	else if (lost_boy == 2) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me, but do you";
		mes "know a man named Phobe?";
		mes "He's gone missing, so I've";
		mes "been hired to look for him.";
		next;
		mes "[Manson]";
		mes "Ah, so you're the one";
		mes "that Vincent hired, huh?";
		mes "That's good, that's good.";
		mes "I'm pretty sure Phobe is";
		mes "hiding somewhere and";
		mes "just goofing around.";
		next;
		mes "[Manson]";
		mes "I'm sure he can take care";
		mes "of himself, so we won't have";
		mes "to worry too much. Let's see,";
		mes "he asked me if I had any";
		mes "errands to for him to do,";
		mes "so I sent him to the market.";
		next;
		mes "[Manson]";
		mes "That's the last time I saw";
		mes "him. I guess he's using the";
		mes "money I gave him to feed himself";
		mes "while he's run away. He's young,";
		mes "so I can't really blame him.";
		mes "We've all done crazy things~";
		next;
		mes "[Manson]";
		mes "Ah, our gardener Jenny";
		mes "was the one that introduced";
		mes "me to him. She's worked for";
		mes "Sir Zhed for a long time, and";
		mes "she loves kids. I guess she's";
		mes "got a soft spot for Phobe.";
		next;
		mes "[Manson]";
		mes "No one knows who his";
		mes "parents are, so I guess";
		mes "he's an orphan. That's";
		mes "probably why she has him.";
		mes "working with us in the mansion.";
		next;
		mes "[Manson]";
		mes "Jenny has done a lot for";
		mes "that boy. We skipped our";
		mes "usual employment process";
		mes "just for her, you know? And";
		mes "now Jenny and even Vincent";
		mes "are worried about him missing.";
		next;
		mes "[Manson]";
		mes "You know, if you want to";
		mes "know more about that kid,";
		mes "you should talk to Jenny.";
		mes "She's working in the garden";
		mes "now, and she'd appreciate";
		mes "your help in finding Phobe.";
		set lost_boy,3;
		close;
	}

	else if (lost_boy == 3) {
		mes "[Manson]";
		mes "You know, if you want to";
		mes "know more about that kid,";
		mes "you should talk to Jenny.";
		mes "She's working in the garden";
		mes "now, and she'd appreciate";
		mes "your help in finding Phobe.";
		close;
	}

	else {
		mes "[Manson]";
		mes "Nuts, there's so much";
		mes "work to do! I never seem";
		mes "to get it all done until";
		mes "the very end of the day.";
		mes "Ah well, it's a living.";
		close;
	}

}

rachel,48,237,3	script	Jenny#ra_in01	894,{
	if (lost_boy < 3) {
		mes "[Jenny]";
		mes "These grounds are owned by";
		mes "Sir Zhed and are considered";
		mes "private property. Please";
		mes "leave immediately if you";
		mes "haven't been invited!";
		close;
	}

	else if (lost_boy == 3) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me, but are";
		mes "you Jenny? I've been";
		mes "told by Manson to speak";
		mes "to you if I wanted to learn";
		mes "more about Phobe. You see,";
		mes "Vincent hired me to find him.";
		next;
		mes "[Jenny]";
		mes "Oh! That's wonderful";
		mes "news! Y-yes, I'm Jenny.";
		mes "What did you need to know?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Er, anything you could";
		mes "tell me would be fine.";
		mes "Things like his favorite";
		mes "hangouts might also be";
		mes "helpful for me to investigate.";
		next;
		mes "[Jenny]";
		mes "Phobe is such a good";
		mes "boy. I don't know what";
		mes "kind of trouble he's gotten";
		mes "into this time, but he's";
		mes "really a great kid if you";
		mes "just give him a chance.";
		next;
		mes "[Jenny]";
		mes "Oh... Vincent must";
		mes "also be--I'm-I'm very";
		mes "glad that he's hired";
		mes "you. But as for places";
		mes "he might be found, I'm";
		mes "not sure if I know.";
		next;
		mes "[Jenny]";
		mes "Have you tried the";
		mes "market? That's where";
		mes "he was last seen, wasn't it?";
		mes "Maybe they have some idea";
		mes "of where he was going?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Oh... That's a good idea.";
		mes "Alright, I guess I can go";
		mes "to the market and ask around.";
		set lost_boy,4;
		close;
	}

	else if ((lost_boy >= 3) && (lost_boy < 6)) {
		mes "[Jenny]";
		mes "Please find Phobe,";
		mes "and bring him back";
		mes "safely as soon as you";
		mes "can! I can't help but worry";
		mes "about that boy, you know?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I'll do my best";
		mes "First, I guess I should ask";
		mes "around the market where";
		mes "Phobe was last seen.";
		close;
	}

	else if (lost_boy == 6) {
		mes "[Jenny]";
		mes "Please find Phobe,";
		mes "and bring him back";
		mes "safely as soon as you";
		mes "can! I can't help but worry";
		mes "about that boy, you know?";
		close;
	}

	else if ((lost_boy > 6) && (lost_boy < 11)) {
		mes "[Jenny]";
		mes "Oh! You're back!";
		mes "Did you find Phobe?";
		next;
		if (lost_boy == 7) {
			mes "["+strcharinfo(0)+"]";
			mes "Actually... Uh...";
			mes "I have something very";
			mes "important to discuss";
			mes "with Vincent first.";
		}

		else if (lost_boy == 8) {
			mes "["+strcharinfo(0)+"]";
			mes "Actually... Uh...";
			mes "Not just yet. But I'm";
			mes "following a really good";
			mes "lead! Don't worry, I'll";
			mes "find him soon, I promise.";
		}

		else if (lost_boy == 9) {
			mes "["+strcharinfo(0)+"]";
			mes "Actually... Uh...";
			mes "I should report to";
			mes "Vincent first and return";
			mes "this jewel, but I'll deliver";
			mes "some good news soon,";
			mes "I promise. Se eyou later~";
		}

		else if (lost_boy == 10) {
			mes "["+strcharinfo(0)+"]";
			mes "Yes, he's fine, just";
			mes "hanging around the south";
			mes "side of town. He's safe,";
			mes "but he's not willing to";
			mes "come home just right now.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "The jewel's been returned,";
			mes "so everything should be fine";
			mes "now. Also, Vincent explained";
			mes "everything to me. You know,";
			mes "how you, him, and Phobe";
			mes "are all related, so...";
			next;
			mes "[Jenny]";
			mes "Oh! Oh, I see. He told";
			mes "you our secret? Well,";
			mes "I guess we can trust you.";
			mes "Mostly, I'm just relieved";
			mes "that my son is alright, and";
			mes "that he won't get in trouble.";
			next;
			mes "[Jenny]";
			mes "Anyway, even though Phobe";
			mes "is being pretty stubborn,";
			mes "I'm sure he'll come back";
			mes "soon. As he grows up, I think";
			mes "he'll understand his father's";
			mes "position a little bit better.";
			next;
			mes "[Jenny]";
			mes "I hope so. Although";
			mes "it's been very hard for";
			mes "all three of us to live";
			mes "this way, I couldn't be";
			mes "happier. Thank you for";
			mes "all of your help, adventurer~";
			set lost_boy,11;
		}

		close;
	}

	else if ((lost_boy > 10) && (lost_boy < 13)) {
		mes "[Jenny]";
		mes "Thank you so much for";
		mes "finding my son. If there's";
		mes "anything I can ever do for";
		mes "you, please let me know.";
		mes "You don't know how grateful";
		mes "I am to you as a mother...";
		close;
	}

	end;
	
}

rachel,138,73,5	script	Idle Merchant#ra_in01	85,{
	if ((lost_boy < 4) || (lost_boy >= 6)) {
		mes "[Idle Merchant]";
		mes "Man! Business is going";
		mes "sooo slooow right now!";
		mes "Well, no point standing";
		mes "around this dump much";
		mes "longer. Maybe I should";
		mes "pack it up and go home.";
		close;
	}

	else if (lost_boy == 4) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me?";
		mes "Hello? Sir?";
		next;
		mes "[Idle Merchant]";
		mes "Finally! A customer!";
		mes "I knew someone would come";
		mes "eventually! So whaddya want";
		mes "to buy? I got all sorts of";
		mes "handy little knickknacks~";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Sorry, not interested.";
		mes "I just wanted to ask if";
		mes "you've seen a boy around";
		mes "here that's about fifteen";
		mes "years old. He supposedly";
		mes "ran away from home, so.";
		next;
		mes "[Idle Merchant]";
		mes "Fifteen? My own son is";
		mes "that age... I'm sorry, but";
		mes "I haven't seen any lads that";
		mes "age around here in the past";
		mes "few days. Though, you might";
		mes "want to ask the other merchants.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Cool. Thanks a lot.";
		next;
		mes "[Idle Merchant]";
		mes "Alright, then!";
		mes "Good luck bringing that";
		mes "boy home! Oh, and are you";
		mes "sure that you don't want";
		mes "to take a look around?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Er, what exactly do";
		mes "you sell here? I can't";
		mes "recognize any of these";
		mes "goods that you're selling.";
		next;
		mes "[Idle Merchant]";
		mes "You know how some restaurants";
		mes "offer dishes with mock meat";
		mes "made out of vegetables and";
		mes "stuff like wheat gluten, right?";
		next;
		mes "[Idle Merchant]";
		mes "Get this: mock vegetables";
		mes "made out of pure meat! Now";
		mes "how's that for the best of both";
		mes "worlds? Yeah? Yeah? Here,";
		mes "why don't you try a sample?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "What the?!";
		mes "No way in hell am";
		mes "I putting that in my";
		mes "mouth! What the heck";
		mes "is that supposed to be?";
		next;
		mes "[Idle Merchant]";
		mes "It's the world's";
		mes "first zucchini...";
		mes "Made completely out";
		mes "of Grade A Sirloin Steak!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "No no no! I've got to";
		mes "go and ask those other";
		mes "merchants about that";
		mes "missing boy. Er, but";
		mes "good luck selling that.";
		set lost_boy,5;
		close;
	}

	else if (lost_boy >= 5) {
		mes "["+strcharinfo(0)+"]";
		mes "(^333333I better ask the other";
		mes "merchants around here if";
		mes "they've seen that boy. I'm";
		mes "wasting my time talking to";
		mes "this crazy merchant and his";
		mes "ridiculous mock vegetables.^000000)";
		close;
	}

}

rachel,120,47,3	script	Idle Merchant#ra_in01	85,{
	if ((lost_boy < 5) || (lost_boy > 6)) {
		mes "[Idle Merchant]";
		mes "I'm thinking of quitting";
		mes "this business... No one";
		mes "to seems to want whatever";
		mes "I'm selling! I definitely can't";
		mes "make a living like this.";
		close;
	}

	else if (lost_boy == 5) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me,";
		mes "um... Hello?";
		next;
		mes "[Idle Merchant]";
		mes "Oh! Welcome to my shop!";
		mes "How can I help you today?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Actually, I'm not";
		mes "here to buy anything...";
		mes "I'm looking for a boy";
		mes "named Phobe that was";
		mes "here a few days ago.";
		mes "Have you seen him?";
		next;
		mes "[Idle Merchant]";
		mes "Oh! Yeah, last night,";
		mes "some guy asked me to tell";
		mes "anyone looking for this guy";
		mes "named Phobe to give you";
		mes "a message. Basically, he wants";
		mes "you to come to the ''ice cave.''";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Who asked you to tell";
		mes "me that? How did he know";
		mes "that I'd come over here?";
		mes "Does he know where Phobe";
		mes "is? I-Is Phobe alright?";
		next;
		mes "[Idle Merchant]";
		mes "No clue. I told you all";
		mes "I know. Let's see, his";
		mes "name was... Nogan?";
		mes "Rogan? Something";
		mes "like that. That's";
		mes "all I know, honest.";
		next;
		mes "[Idle Merchant]";
		mes "So the kid's missing,";
		mes "huh? Good luck finding";
		mes "him. Oh, and be careful";
		mes "in that ice cave. That place";
		mes "can be plenty dangerous.";
		set lost_boy,6;
		close;
	}

	else if (lost_boy == 6) {
		mes "[Idle Merchant]";
		mes "So yeah, last night,";
		mes "some guy asked me to tell";
		mes "anyone looking for this guy";
		mes "named Phobe to give you";
		mes "a message. Basically, he wants";
		mes "you to come to the ''ice cave.''";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Who asked you to tell";
		mes "me that? How did he know";
		mes "that I'd come over here?";
		mes "Does he know where Phobe";
		mes "is? I-Is Phobe alright?";
		next;
		mes "[Idle Merchant]";
		mes "No clue. I told you all";
		mes "I know. Let's see, his";
		mes "name was... Nogan?";
		mes "Rogan? Something";
		mes "like that. That's";
		mes "all I know, honest.";
		next;
		mes "[Idle Merchant]";
		mes "So the kid's missing,";
		mes "huh? Good luck finding";
		mes "him. Oh, and be careful";
		mes "in that ice cave. That place";
		mes "can be plenty dangerous.";
		close;
	}


}

ra_fild01,245,325,3	script	Suspicious Man#ra_in01	934,{
	if ((lost_boy < 6) || (lost_boy > 7)) {
		mes "[Suspicious Man]";
		mes "Th-there's not enough";
		mes "air here, it's so stuffy!";
		mes "Hey, get away! You're";
		mes "wasting all of my";
		mes "precious oxygen!";
		close;
	}

	if (lost_boy == 6) {
		mes "["+strcharinfo(0)+"]";
		mes "Excuse me, but do you";
		mes "know a man named";
		mes "Rogan? I'm here to--";
		next;
		mes "[Suspicious Man]";
		mes "Hah! I had no idea";
		mes "it'd be this simple!";
		mes "Easiest money I've";
		mes "ever made! Bwahahaha!";
		mes "Time for you to die, kid!";
		next;
		mes "[Suspicious Man]";
		mes "Hyah!";
		percentheal -50,0;
		next;
		mes "^3355FFThis suspicious man";
		mes "wounded you with a throwing";
		mes "dagger, and then threw another";
		mes "one that you managed to dodge.";
		mes "You quickly retaliate to keep";
		mes "him from further harming you.^000000";
		next;
		mes "[Suspicious Man]";
		mes "Argh! I...";
		mes "I guess I underestimated";
		mes "you! You're a lot stronger";
		mes "than when you're taken by";
		mes "surprise, adventurer!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hey, who the hell are";
		mes "you?! Are you Rogan?";
		mes "Are you the one that";
		mes "kidnapped Phobe?";
		next;
		mes "[Suspicious Man]";
		mes "What th--? I didn't";
		mes "kidnap nobody! I don't";
		mes "know any Phobe! I was";
		mes "just hired to kill you and";
		mes "bring your body to my client.";
		mes "This wasn't what I expected.";
		next;
		mes "[Suspicious Man]";
		mes "Vincent's instructions";
		mes "were to kill anyone that";
		mes "asked about Rogan, some";
		mes "name he made up. My name";
		mes "is Mogan. Gosh... I thought";
		mes "you were a really bad guy.";
		next;
		mes "[Mogan]";
		mes "Hey, set me straight";
		mes "here. Did you steal";
		mes "something really";
		mes "valuable, like some";
		mes "red jewel or something?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Huh? No! Vincent actually";
		mes "sent me to look for the guy";
		mes "that stole that jewel, and";
		mes "to retrieve it for him!";
		next;
		mes "[Mogan]";
		mes "It looks like he set";
		mes "us up, dude. That's...";
		mes "That's really low. Sorry,";
		mes "if I had known, I wouldn't";
		mes "have done it. Why would";
		mes "he manipulate us like that?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I don't know...";
		mes "I'm going to talk";
		mes "to Vincent and make";
		mes "him explain everything.";
		set lost_boy,7;
		close;
	}

	else if (lost_boy == 7) {
		mes "[Mogan]";
		mes "It looks like he set";
		mes "us up, dude. That's...";
		mes "That's really low. Sorry,";
		mes "if I had known, I wouldn't";
		mes "have done it. Why would";
		mes "he manipulate us like that?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I don't know...";
		mes "I'm going to talk";
		mes "to Vincent and make";
		mes "him explain everything.";
		close;
	}

}

rachel,263,32,3	script	Kid#ra_in01	931,{
	if (lost_boy < 7) {
		mes "[Kid]";
		mes "Leave me alone!";
		close;
	}

	else if (lost_boy == 8) {
		mes "^3355FFYou catch a shining";
		mes "glint from this boy's";
		mes "back pocket. Perhaps he";
		mes "has the jewel that Vincent";
		mes "wants you to retrieve.^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hey, you.";
		mes "You must be";
		mes "Phobe, right?";
		next;
		mes "[Kid]";
		mes "Yeah?";
		mes "So what?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Your father sent";
		mes "me here to find you.";
		next;
		mes "[Phobe]";
		mes "No! Don't touch me!";
		mes "I have no father!";
		mes "H-he's dead to me!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Well, in any case, I need";
		mes "to return the jewel that";
		mes "you're hiding in your pocket.";
		mes "I know that it really belongs";
		mes "to Sir Zhed.  If I don't, then";
		mes "your father will be in trouble.";
		next;
		mes "[Phobe]";
		mes "Hah! You mean ''Mister";
		mes "Vincent!'' That's fine";
		mes "by me! That's exactly";
		mes "why I took this thing!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Oh, yeah? How do you";
		mes "think Ms. Jenny will";
		mes "feel? Do you think";
		mes "that she'll be happy";
		mes "hearing about this?";
		next;
		mes "[Phobe]";
		mes "..............................";
		mes "...So you know about";
		mes "our family secret, huh?";
		mes "Alright, I'll give this to";
		mes "you. But I'm doing this for";
		mes "my mom, and not for him!";
		next;
		mes "^3355FFPhobe gingerly pulls";
		mes "the shining red jewel";
		mes "from his pocket and";
		mes "reluctantly hands it to you.^000000";
		next;
		mes "[Phobe]";
		mes "Just so you know,";
		mes "I don't plan on going";
		mes "back home! Well, just";
		mes "not this second anyway.";
		mes "But let my mom know that";
		mes "I'm fine and not to worry.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Alright, I'll tell your mom";
		mes "But you should be getting";
		mes "back to them soon. Your";
		mes "father took a really big";
		mes "risk covering up for you.";
		next;
		mes "[Phobe]";
		mes "Hmpf! I...";
		mes "I don't care!";
		next;
		mes "^3355FFIt doesn't look like";
		mes "you can force Phobe to";
		mes "return home for now, so";
		mes "you should bring this red";
		mes "jewel back to Vincent.^000000";
		set lost_boy,9;
		close;
	}

	else if (lost_boy == 9) {
		mes "[Phobe]";
		mes "I... I'm not ready";
		mes "to go back home just";
		mes "fine, and let Mister Vincent";
		mes "know that I'm not sorry";
		mes "for what I did, okay?!";
		next;
		mes "^3355FFIt doesn't look like";
		mes "you can force Phobe to";
		mes "return home for now, so";
		mes "you should bring this red";
		mes "jewel back to Vincent.^000000";
		close;
	}

	else {
		mes "["+strcharinfo(0)+"]";
		mes "You know, you should";
		mes "quit making trouble and";
		mes "listen to your parents.";
		next;
		mes "[Phobe]";
		mes "You're not the boss";
		mes "of me! Mind your own";
		mes "business! Jeez louise!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I can't mind my own";
		mes "business if your actions";
		mes "are causing this much trouble";
		mes "to so many other people! You";
		mes "need to act more responsibly!";
		next;
		mes "[Phobe]";
		mes "Mmmrrrr...";
		mes "Gosh... Fine.";
		close;
	}

}

//End of Lost Child quest
//============================================================ 

//Bruspetti Quest (Continuation of Lighthalzen "Friendship" quest)
//============================================================ 
ra_in01,235,194,5	script	Katinshuell	931,{
	if (rach_vice > 21) {
		mes "[Katinshuell]";
		mes "If I had only turned";
		mes "myself in... Maybe if I had";
		mes "made an effort to pay for";
		mes "my crime, me and Bruspetti";
		mes "could have had a chance...";
		close;
	}

	else if ((rach_vice == 21) && (countitem(1201) > 0)) {
		mes "[Katinshuell]";
		mes "Please... Please just";
		mes "leave me alone. I've lost";
		mes "the woman I love because";
		mes "of something stupid I did";
		mes "in the past. If you want to";
		mes "turn me in, go ahead...";
		delitem 1201,1; //Knife
		set rach_vice,22;
		close;
	}

	else if (rach_vice == 21) {
		mes "[Katinshuell]";
		mes "I suppose it's my";
		mes "fate to bear this guilt.";
		mes "It's already destroyed my";
		mes "best chance of ever being";
		mes "truly happy. Bruspetti...";
		close;
	}

	else if ((rach_vice == 20) && (countitem(1201) > 0)) {
		mes "[Katinshuell]";
		mes "I suppose there's";
		mes "no reason to hide";
		mes "anything anymore...";
		mes "You've probably figured";
		mes "the important stuff by now...";
		next;
		mes "[Katinshuell]";
		mes "I used to work as one";
		mes "of the security guards in";
		mes "Lighthalzen. We basically";
		mes "watched the border between";
		mes "the rich area and the slums.";
		next;
		mes "[Katinshuell]";
		mes "I actually was ordered";
		mes "to kill someone that was";
		mes "repeatedly moving between";
		mes "the slums and the rich area.";
		mes "He was a wealthy kid...";
		mes "Didn't really deserve it.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "I was paid a lot of money";
		mes "to do it. At first, I thought";
		mes "I was just doing my job. You";
		mes "know, I mean, the law was on";
		mes "my side. But the boy's blood";
		mes "wouldn't wash off my hands...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "I was scared to kill him,";
		mes "but once I did it, the guilt";
		mes "and the torment has been";
		mes "unbearable! I haven't been";
		mes "able to sleep... That's why";
		mes "I had to leave Lighthalzen.";
		set rach_vice,21;
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "Bruspetti shocked me when";
		mes "she had learned about what";
		mes "I did back then. My one true";
		mes "love... She couldn't bear the";
		mes "truth. When she heard it from";
		mes "my own lips, she went mad...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "I couldn't stop her...";
		mes "I struggled, and tried to";
		mes "save her, but she managed";
		mes "to drown herself in Freya's";
		mes "Spring. She's gone from my";
		mes "life. Just like that. Forever.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "I came here after";
		mes "killing a man to start";
		mes "a new life, maybe get";
		mes "a clean slate, but I end up";
		mes "indirectly killing the woman";
		mes "I love. Why God?! Why?!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "Are you happy now?";
		mes "Are you happy now that?";
		mes "I've told you the truth?";
		mes "Doesn't that make me and";
		mes "you feel so much better?!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "......";
		mes ".........";
		next;
		mes "[Katinshuell]";
		mes "...............................";
		mes "God! My life sucks!";
		close;
	}

	else if (rach_vice == 21) {
		mes "[Katinshuell]";
		mes "^333333*Pant pant*^000000";
		mes "After all this";
		mes "time... I thought";
		mes "I could run away...";
		mes "But the voices still";
		mes "h-haunt me... Ha ha ha...";
		close;
	}

	else if ((rach_vice == 20) && (countitem(1201) > 0)) {
		mes "[Katinshuell]";
		mes "I...";
		mes "I don't deserve this!";
		mes "Why do you keep hounding";
		mes "me with these questions?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Did... Did something";
		mes "happen when Bruspetti";
		mes "confronted you at Freya's";
		mes "Spring? What did exactly";
		mes "did she learn about";
		mes "you in Lighthalzen?";
		next;
		mes "[Katinshuell]";
		mes "I... I don't have";
		mes "to tell you anything!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "How can you say that?!";
		mes "I just read in Bruspetti's";
		mes "diary that she learned";
		mes "something horrible about";
		mes "you, and it involved a";
		mes "Knife... just like this one.";
		next;
		mes "[Katinshuell]";
		mes ".........!";
		mes ".............";
		mes "NOoo! I'm sorry, it's";
		mes "my fault! I was desperate!";
		mes "You don't understand how";
		mes "I used to live, you d-don't--!";
		set rach_vice,21;
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Huh...?";
		mes "Mr. Katinshuell?";
		close;
	}

	else if ((rach_vice == 19) || (rach_vice == 20)) {
		mes "[Katinshuell]";
		mes "I...";
		mes "I don't deserve this!";
		mes "Why do you keep hounding";
		mes "me with these questions?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Did... Did something";
		mes "happen when Bruspetti";
		mes "confronted you at Freya's";
		mes "Spring? What did exactly";
		mes "did she learn about";
		mes "you in Lighthalzen?";
		next;
		mes "[Katinshuell]";
		mes "I... I don't have";
		mes "to tell you anything!";
		set rach_vice,20;
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "(^333333He's still resisting";
		mes "me... How can I get";
		mes "him to reveal the truth?^000000)";
		close;
	}

	else if (rach_vice == 18) {
		mes "[" + strcharinfo(0) + "]";
		mes "Let's see...";
		mes "Oh this entry looks";
		mes "interesting. It's all";
		mes "about you, Katinshuell.";
		next;
		mes "- Date: OOXX -";
		mes "I'm so in love with him,";
		mes "but he always changes the";
		mes "subject whenever I ask him";
		mes "personal questions about his";
		mes "past. Could it be that he's";
		mes "hiding something from me?";
		next;
		mes "- Date: OOXX -";
		mes "Is it another woman?";
		mes "I can't help but feel";
		mes "jealous! I need to know.";
		mes "That's why I've decided to";
		mes "go to Lighthalzen and see";
		mes "what I can find out.";
		next;
		mes "- Date: OOXO -";
		mes "Dear Diary,";
		mes "Today I just learned";
		mes "the horrible truth... I need";
		mes "to make him confess it to";
		mes "me. I hope we can still be";
		mes "together after all of this...";
		next;
		mes "- Date: OOXO -";
		mes "But I don't know if";
		mes "I can live with this!";
		mes "The man I love... It's";
		mes "unthinkable that he'd";
		mes "use a Knife t-to... I just";
		mes "want to throw up.";
		next;
		mes "- Date: OOXO -";
		mes "I'm planning to meet him";
		mes "tomorrow at Freya's Spring.";
		mes "I can't help but look at him";
		mes "differently now, but still...";
		mes "He's the man I truly love.";
		next;
		mes "- Date: OOXO -";
		mes "I hope that I have";
		mes "good news the next";
		mes "time I write in this diary...";
		mes "Well, here's hoping.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Well, that was";
		mes "the very last page...";
		mes "What happened when";
		mes "Bruspetti confronted";
		mes "you at Freya's Spring?";
		set rach_vice,19;
		next;
		mes "[Katinshuell]";
		mes ".........";
		mes "I... I...";
		mes ".........";
		close;
	}

	else if (rach_vice == 17) {
		mes "[Katinshuell]";
		mes "Damn it! I don't want to";
		mes "think about her anymore!";
		mes "Get away from me, and take";
		mes "Bruspetti's diary with you!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "What?! No way, not after";
		mes "that little outburst about";
		mes "killing or not killing Bruspetti!";
		mes "Fine, if you're not going to";
		mes "talk, then I'm going to flip";
		mes "through this diary for answers.";
		set rach_vice,18;
		close;
	}

	else if (rach_vice == 16) {
		mes "[Katinshuell]";
		mes "Ha ha ha...";
		mes "Is this some sort";
		mes "of interrogation?";
		mes "I-I've done nothing";
		mes "wrong! Go ahead,";
		mes "ask me anything!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Alright then, why";
		mes "don't you explain this?";
		next;
		switch(select("Mr. Shendar's House:Lighthalzen:Freya's Spring:Bruspetti")) {
		case 1:
			mes "[" + strcharinfo(0) + "]";
			mes "Mr. Shendar, Bruspetti's";
			mes "father, says that someone";
			mes "has been sneaking into his";
			mes "house for some reason.";
			mes "Now, why would you do that?";
			next;
			mes "["+name+"]";
			mes "You recognized";
			mes "Bruspetti's diary";
			mes "pretty quickly...";
			mes "And you did mention";
			mes "you were looking for it.";
			next;
			mes "[Katinshuell]";
			mes "Hmpf! S-stop";
			mes "talking crazy talk!";
			mes "I don't know what";
			mes "you're talking about!";
			close;

		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "You know, I found out";
			mes "that Bruspetti was planning";
			mes "on going to Lighthalzen.";
			mes "It seems that she needed";
			mes "to learn something really";
			mes "important over there...";
			next;
			mes "[Katinshuell]";
			mes "No...!";
			mes "She couldn't have...!";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "Alright. It's no use";
			mes "pretending that you don't";
			mes "know her. You were her";
			mes "boyfriend, weren't you?";
			mes "What would she be trying";
			mes "to find in Lighthalzen?";
			next;
			mes "[Katinshuell]";
			mes "No! No no no!";
			mes "Shut up! Shut up!";
			mes "Please! Just leave";
			mes "me alone! Get away";
			mes "from me right now!";
			next;
			switch(select("Mr. Shendar's House:Freya's Spring:Recent Break-up")) {
			case 1:
				mes "[" + strcharinfo(0) + "]";
				mes "So while she was away";
				mes "in Lighthalzen, you snuck";
				mes "in Mr. Shendar's house and--";
				next;
				mes "[Katinshuell]";
				mes "Y-yes! Yes, that's right!";
				mes "It's because I was so worried";
				mes "about her! I had no idea that";
				mes "she went all the way over to";
				mes "Lighthalzen! Ha ha! Ha ha!";
				next;
				mes "[" + strcharinfo(0) + "]";
				mes "...............................";
				mes "(^333333Nuts! I think that";
				mes "backfired, so I'm going";
				mes "to have to try this again.)^000000";
				close;

			case 2:
				mes "[" + strcharinfo(0) + "]";
				mes "So while she was away";
				mes "in Lighthalzen, you went";
				mes "to Freya's Spring, all";
				mes "by yourself, didn't you?!";
				next;
				mes "[Katinshuell]";
				mes "......";
				mes ".........";
				mes "Um? ...Yes.";
				next;
				mes "[" + strcharinfo(0) + "]";
				mes "...............................";
				mes "(^333333Nuts! I think that";
				mes "backfired, so I'm going";
				mes "to have to try this again.)^000000";
				close;

			case 3:
				mes "[" + strcharinfo(0) + "]";
				mes "Wait a second! Your break-up";
				mes "and Bruspetti's sudden need";
				mes "to investigate something in";
				mes "Lighthalzen... They're related";
				mes "somehow, aren't they?";
				next;
				mes "[Katinshuell]";
				mes "......";
				mes ".........";
				mes "No! It's not true!";
				next;
				mes "[" + strcharinfo(0) + "]";
				next;
				switch(select("Mr. Shendar's house:Freya's Spring")) {
				case 1:
					mes "[" + strcharinfo(0) + "]";
					mes "So while she was away";
					mes "in Lighthalzen, you snuck";
					mes "in Mr. Shendar's house and--";
					next;
					mes "[Katinshuell]";
					mes "Y-yes! Yes, that's right!";
					mes "It's because I was so worried";
					mes "about her! I had no idea that";
					mes "she went all the way over to";
					mes "Lighthalzen! Ha ha! Ha ha!";
					next;
					mes "[" + strcharinfo(0) + "]";
					mes "...............................";
					mes "(^333333Nuts! I think that";
					mes "backfired, so I'm going";
					mes "to have to try this again.)^000000";
					close;

				case 2:
					mes "[" + strcharinfo(0) + "]";
					mes "Hmm... Why are you";
					mes "always hanging out at";
					mes "Freya's Spring alone?";
					mes "And why has Bruspetti";
					mes "not returned home yet?";
					next;
					mes "[Katinshuell]";
					mes "...Will you stop talking nonsense?";
					mes "What is your evidence to convict me with the crime?";
					mes "I don't wish to hear you any longer.";
					next;
					mes "[" + strcharinfo(0) + "]";
					mes "Even after you killed Bruspetti,";
					mes "you became worried about another possibility.";
					mes "So you were plotting to get rid of the possibility, too.";
					next;
					set rach_vice,17;
					mes "[Katinshuell]";
					mes "No! Stop it! Stop!";
					mes "Are you implying that";
					mes "I killed her?! I didn't!";
					mes "Quit this nonsense";
					mes "before I get really angry!";
					close;
				}

			}

		case 3:
			mes "[" + strcharinfo(0) + "]";
			mes "Freya's Spring.";
			mes "Why are you always";
			mes "hanging around there";
			mes "by yourself, eh?";
			next;
			mes "[Katinshuell]";
			mes "...............................";
			mes "It's because I really";
			mes "miss my ex-girlfriend.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "Oh. Right.";
			mes "That's a pretty";
			mes "good reason.";
			close;

		case 4:
			mes "[" + strcharinfo(0) + "]";
			mes "If Bruspetti is not";
			mes "your girlfriend, then...";
			mes "Who is?! Answer that!";
			next;
			mes "[Katinshuell]";
			mes "...............................";
			mes "Fine, fine. You win.";
			mes "She was my ex-girlfriend.";
			mes "I just don't like talking";
			mes "about Bruspetti, that's all.";
			mes "Now will you leave me alone?";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "(^333333Nuts! He wasn't supposed";
			mes "to cave in like that! I need";
			mes "to question him again until";
			mes "my gut feeling is satisfied!^000000)";
			close;

		}

	}

	else if ((rach_vice == 15) && (v[Blue_Diary] > 0)) {
		mes "[Katinshuell]";
		mes "Oh, it's you again.";
		mes "What do you want now?";
		mes "I just told you that I'm not";
		mes "in the mood for talking with";
		mes "anyone. I'm still coping with";
		mes "breaking up with my girlfriend.";
		mes "[" + strcharinfo(0) + "]";
		mes "Katinshuell... I get the";
		mes "feeling that you're hiding";
		mes "something. By any chance,";
		mes "was Bruspetti your girlfriend?";
		next;
		mes "[Katinshuell]";
		mes "Huh?! Er, wh-wh-what?";
		mes "What makes you think that?";
		mes "That's none of your business!";
		mes "Besides, don't you think that";
		mes "a girl like her is too good";
		mes "for some guy like me?!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "I don't have any real";
		mes "reason to suspect you of";
		mes "anything, but my gut feeling";
		mes "and the way you reacted isn't";
		mes "very reassuring. Well, I guess";
		mes "I can flip through this book...";
		next;
		mes "[Katinshuell]";
		mes "Hey! Hey that's...";
		mes "That's Bruspetti's diary!";
		mes "I-I've been looking for-- um...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Hey! How would you";
		mes "know about that?!";
		mes "Tell me the truth!";
		mes "Actually, you know what?";
		mes "Why don't we look at the";
		mes "truth together? How's that?";
		next;
		mes "^3355FFYou nonchalantly";
		mes "toss the diary at";
		mes "Katinshuell's feet,";
		mes "and it opens to one of";
		mes "the pages in the middle.^000000";
		next;
		mes "[Katinshuell]";
		mes "......!";
		set rach_vice,16;
		delitem 7571,1; //Blue_Diary
		close;
	}

	else if ((rach_vice == 10) || (rach_vice == 11)) {
		mes "[Katinshuell]";
		mes "Argh! I'm so depressed.";
		mes "Honestly, I just want to";
		mes "be left by myself for a really";
		mes "long time. What the heck do you";
		mes "want to ask me about, anyway?";
		next;
		input .@input$;
		if (.@input$ == "Lighthalzen") {
			mes "[Katinshuell]";
			mes "Lighthalzen...?";
			mes "a city in the Schwaltzvalt";
			mes "Republic. That, and it's";
			mes "a tough place to live in.";
			mes "That's all I really know...";
			next;
		}
		else if (.@input$ == "Bruspetti") {
			mes "[Katinshuell]";
			mes "...It's been a while";
			mes "since I heard that name.";
			mes "Bruspetti... She's pretty";
			mes "popular around this town...";
			mes "Everyone liked her. Is that";
			mes "all you wanted to know?";
			next;
		}
		else if (.@input$ == "Freya's Spring") {
			mes "[Katinshuell]";
			mes "Freya's Spring...";
			mes "That's just a park";
			mes "where old people and";
			mes "couples sort of hang out.";
			mes "I don't like going there,";
			mes "though. You shouldn't, either.";
			next;
		}
		else {
			mes "[Katinshuell]";
			mes "..." + .@input$ + "?";
			mes "What? I don't understand you...";
			close;
		}
		set rach_vice,11;
		mes "[Katinshuell]";
		mes "You happy, now?";
		mes "Quit trying to pry into";
		mes "my personal business,";
		mes "and just enjoy touring this";
		mes "little town. That's what";
		mes "you came to do, right?";
		close;
	}

	else if (rach_vice == 4) {
		mes "[Katinshuell]";
		mes "Uh... ";
		mes "I just told you that I broke";
		mes "up with my girlfriend. You";
		mes "know, I kinda sorta wanna";
		mes "be left alone. Go away...";
		close;
	}

	else if (rach_vice == 3) {
		set rach_vice,4;
		mes "[Katinshuell]";
		mes "Eh? Oh, it's one of you";
		mes "guys, those do-gooder";
		mes "adventurers. You must not";
		mes "have anything else to do...";
		mes "Otherwise, why talk to me?";
		next;
		mes "[Katinshuell]";
		mes "Geez... I know you guys go";
		mes "around solving problems,";
		mes "but this is one thing you";
		mes "can't handle. Me and my";
		mes "girlfriend are history now.";
		mes "It's over between us.";
		close;
	}

	else if (rach_vice == 2) {
		mes "[Katinshuell]";
		mes "You're an adventurer,";
		mes "so I don't think you'd ";
		mes "understand how difficult";
		mes "it is to live a quiet, peaceful";
		mes "life. When you've lived through";
		mes "certain things, it's tough.";
		next;
		mes "[Katinshuell]";
		mes "When you're busy, you're";
		mes "distracted. But even if I'm";
		mes "left all alone, these thoughts";
		mes "of mine never cease to haunt me...";
		close;
	}

	else if (rach_vice == 1) {
		mes "[Katinshuell]";
		mes "You're an adventurer,";
		mes "so I don't think you'd ";
		mes "understand how difficult";
		mes "it is to live a quiet, peaceful";
		mes "life. When you've lived through";
		mes "certain things, it's tough.";
		next;
		mes "[Katinshuell]";
		mes "When you're busy, you're";
		mes "distracted. But even if I'm";
		mes "left all alone, these thoughts of mine never cease to haunt me...";
		close;
	}

	else if (rach_vice == 0) {
		mes "[Katinshuell]";
		mes "You're an adventurer,";
		mes "so I don't think you'd ";
		mes "understand how difficult";
		mes "it is to live a quiet, peaceful";
		mes "life. When you've lived through";
		mes "certain things, it's tough.";
		next;
		mes "[Katinshuell]";
		mes "I don't need any more";
		mes "excitement in my life.";
		mes "I just want to live quietly,";
		mes "away from other people,";
		mes "and to be left all alone for";
		mes "some semblance of peace.";
		if (friendship > 10) set rach_vice,1;
		close;
	}
	mes "[Katinshuell]";
	mes "Do you believe in karma?";
	mes "I do... No matter what you";
	mes "do, even if you don't get";
	mes "caught, somehow it just";
	mes "catches up to you.";
	next;
	mes "[Katinshuell]";
	mes "Have you ever felt";
	mes "guilty about something,";
	mes "but hid from the truth?";
	mes "Let me tell you that it must";
	mes "be a painful experience. It's";
	mes "better to confess when you can.";
	close;
}

ra_in01,250,19,3	script	Mr. Shendar	929,{
	if (rach_vice > 21) {
		mes "[Mr. Shendar]";
		mes "When will my precious";
		mes "daughter Bruspetti be";
		mes "coming home? I'm sure that";
		mes "she can take care of herself,";
		mes "but a father can't help but";
		mes "worry himself to death.";
		next;
		mes "[Mr. Shendar]";
		mes "Ah, if you happen to";
		mes "see my daughter in your";
		mes "travels, please tell her";
		mes "that her daddy is waiting";
		mes "for her to come home.";
		mes "Thanks, adventurer.";
		close;
	}

	else if (rach_vice == 14) {
		mes "[Mr. Shendar]";
		mes "So you have a pretty";
		mes "good idea of who was";
		mes "sneaking around my house?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Well, I suspect this guy";
		mes "named Katinshuell because";
		mes "he might have been Bruspetti's";
		mes "boyfriend and he's been acting";
		mes "funny. Still, I don't have any";
		mes "real evidence of that.";
		next;
		mes "[Mr. Shendar]";
		mes "Bruspetti's boyfriend?!";
		mes "Hmpf! I don't like that";
		mes "boy already. I haven't";
		mes "met him yet, but its my";
		mes "solemn duty as a father";
		mes "to hate and distrust him!";
		close;
	}

	else if (rach_vice == 13) {
		mes "[Mr. Shendar]";
		mes "Hey! Hey! Are you";
		mes "the pervert that's been";
		mes "sneaking into my house";
		mes "to prey on my daughter?!";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Wha--?";
		mes "No, I'm just a--";
		next;
		percentheal -50,0;
		mes "^3355FF*BAM!*^000000";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ow! What did";
		mes "you do that for?";
		next;
		mes "[Mr. Shendar]";
		mes "Still alive, eh? Hmpf!";
		mes "I'll finish you off! I'll...";
		mes "Er, huh?! Wait, I think";
		mes "AI know you. You're that";
		mes "adventurer that's been";
		mes "here before, right?";
		next;
		mes "[Mr. Shendar]";
		mes "Oh... I think I've made";
		mes "a mistake. I thought you";
		mes "were that person that's";
		mes "been prowling around my";
		mes "house. I don't know who he,";
		mes "but I'm sure it's not you...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Wait, wait...";
		mes "So someone has been";
		mes "sneaking around here?";
		mes "That's weird. Wait, that";
		mes "guy, the one that might";
		mes "be Bruspetti's boyfriend...";
		next;
		mes "["+name+"]";
		mes "Right, his name was";
		mes "Katinshuell. That guy's";
		mes "been acting really funny.";
		mes "Maybe he was the one sneaking";
		mes "around here? I'd better go";
		mes "and ask him about this...";
		next;
		set rach_vice,14;
		mes "[Mr. Shendar]";
		mes "Wait, where are";
		mes "you going? I... I'm";
		mes "sorry for hitting you?";
		next;
		mes "[Mr. Shendar]";
		mes "Curses! If that guy is my";
		mes "daughter's boyfriend, and he's";
		mes "trespassing into my home, then";
		mes "he could be really dangerous.";
		mes "It's too bad that I can't ask";
		mes "Bruspetti anything about him...";
		next;
		mes "[Mr. Shendar]";
		mes "Hm... Alright, adventurer.";
		mes "If you can find it, I'll allow";
		mes "you to take and read my";
		mes "daughter's diary. We need";
		mes "to learn more about this guy";
		mes "Katinshuell. If he's dangerous...";
		next;
		mes "[Mr. Shendar]";
		mes "I'm sorry... I'm asking you";
		mes "for your help... But there's";
		mes "nothing else I can do as her";
		mes "father. Besides, adventurers";
		mes "like you can offer her the";
		mes "best protection...";
		close;
	}

	else if (rach_vice == 9) {
		mes "[Mr. Shendar]";
		mes "Curses! I should have never";
		mes "mentioned my daughter's";
		mes "diary to an adventurer like";
		mes "you! I know that your kind";
		mes "is naturally too curious...!";
		close;
	}

	else if (rach_vice == 8) {
		set rach_vice,9;
		mes "[Mr. Shendar]";
		mes "What? My daughter went";
		mes "to Lighthalzen? She doesn't";
		mes "know anyone there. Hmm, maybe";
		mes "that's the place where she was";
		mes "planning to go to learn more";
		mes "about what was bothering her.";
		next;
		mes "[Mr. Shendar]";
		mes "Yes, she was very generic:";
		mes "''Dad, I need to go somewhere.''";
		mes "and ''There's something I need";
		mes "to make sure of.'' Leaving out";
		mes "all the details does not put";
		mes "a doting father at ease!";
		next;
		mes "[Mr. Shendar]";
		mes "Well, thank you for letting";
		mes "me know where she might be.";
		mes "Now, I wish I knew what she";
		mes "was planning on doing. Maybe";
		mes "she wrote something about it";
		mes "in her diary? Yes, perhaps...";
		next;
		mes "[Mr. Shendar]";
		mes "No! I can't do it!";
		mes "As a loving father, I can't";
		mes "allow myself to invade my";
		mes "precious daughter's privacy.";
		mes "Even if she did carelessly leave";
		mes "her diary on top of her drawer.";
		next;
		mes "[Mr. Shendar]";
		mes "Oh, but how a father";
		mes "worries. Will my sweet,";
		mes "darling Bruspetti be alright?";
		close;
	}

	else if ((rach_vice == 4) || (rach_vice == 5)) {
		set rach_vice,5;
		mes "[Mr. Shendar]";
		mes "I miss my daughter. Yes,";
		mes "the house smells different";
		mes "without her around. It's a little";
		mes "weird to be talking about this,";
		mes "but Bruspetti always did smell";
		mes "nice, just like her mother.";
		next;
		mes "[Mr. Shendar]";
		mes "Even if they didn't wear";
		mes "perfume, they had this";
		mes "distinctively pleasant";
		mes "scent about them. I guess";
		mes "it must be pheremonal?";
		close;
	}

	else if (rach_vice == 2) {
		mes "[Mr. Shendar]";
		mes "Take my advice: never";
		mes "have a daughter! You worry";
		mes "too much about them, and they";
		mes "neglect their parents once";
		mes "they grow up! I bet she's";
		mes "having a grand old time...";
		next;
		mes "[Mr. Shendar]";
		mes "Confound it...!";
		mes "Whoever that guy is,";
		mes "he better not try any funny";
		mes "business! As her father, I have";
		mes "the legal right to wring his";
		mes "little neck! At least, I should...";
		close;
	}

	else if (rach_vice == 1) {
		set rach_vice,2;
		mes "[Mr. Shendar]";
		mes "I just found out that";
		mes "my precious daughter has";
		mes "been going out with someone.";
		mes "She went to some other town";
		mes "for this boy, and I haven't";
		mes "heard a word from her since!";
		next;
		mes "[Mr. Shendar]";
		mes "Take my advice: never";
		mes "have a daughter! You worry";
		mes "too much about them, and they";
		mes "neglect their parents once";
		mes "they grow up! I bet she's";
		mes "having a grand old time...";
		next;
		mes "[Mr. Shendar]";
		mes "Probably on some lovey";
		mes "dovey trip with whoever that";
		mes "boy is. She's been gone an";
		mes "awful long time, but she's";
		mes "also an adult now. I... I guess";
		mes "she should be just fine.";
		close;
	}

	mes "[Mr. Shendar]";
	mes "I just found out that";
	mes "my precious daughter has";
	mes "been going out with someone.";
	mes "She went to some other town";
	mes "to see this boy, and I haven't";
	mes "heard a word from her since!";
	next;
	mes "[Mr. Shendar]";
	mes "Take my advice: never";
	mes "have a daughter! You worry";
	mes "too much about them, and they";
	mes "neglect their parents once";
	mes "they grow up! I bet she's";
	mes "having a grand old time...";
	close;
}

rachel,73,244,3	script	Lachellen	919,{
	if (rach_vice > 21) {
		mes "[Lachellen]";
		mes "If you happen to see";
		mes "Bruspetti, tell her to";
		mes "come talk to me. I need";
		mes "to know whether I figured";
		mes "out who her boyfriend is!";
		mes "I can't wait to see her~";
		close;
	}

	else if ((rach_vice == 11) || (rach_vice == 12)) {
		mes "[Lachellen]";
		mes "Oh, hello again~";
		mes "Is there any way I can";
		mes "help you this time? I know";
		mes "you're looking for Bruspetti,";
		mes "so I'll help you if you have";
		mes "any questions for me~";
		next;
		input .@input$;
		if (.@input$ == "Lighthalzen") {
			mes "[Lachellen]";
			mes "Lighthalzen? Oh, that's";
			mes "right! Bruspetti did ask";
			mes "me about Lighthalzen a while";
			mes "ago. Yes, she seemed really";
			mes "interested in learning more";
			mes "about that place recently.";
			next;
		}
		else if (.@input$ == "Freya's Spring") {
			set rach_vice,12;
			mes "[Lachellen]";
			mes "Freya's Spring?";
			mes "Oh, I like that place!";
			mes "Speaking of which, I know";
			mes "someone named Katinshuell";
			mes "that went there pretty often.";
			mes "Usually men don't go alone...";
			next;
			mes "[Lachellen]";
			mes "Wait, that's the place";
			mes "I told you about, where";
			mes "Bruspetti and her boyfriend";
			mes "usually met. Do you think";
			mes "she and Katinshuell...?";
			mes "Ooh, maybe I figured it out!";
			next;
			mes "[Lachellen]";
			mes "But yeah, that place is";
			mes "usually filled with couples,";
			mes "so you look like a real loser";
			mes "if you go there alone. That's";
			mes "why I want a boyfriend now...";
			next;
		}
		else {
			mes "[Lachellen]";
			mes "Oh, I'm sorry...";
			mes "I don't know anything";
			mes "about "+.@input$+".";
			close;
		}
		mes "[Lachellen]";
		mes "Well, I don't know if";
		mes "you learned anything";
		mes "important from me,";
		mes "but I hope I helped";
		mes "you, even if it was";
		mes "just a little bit.";
		close;
	}

	else if (rach_vice == 7) {
		mes "[Lachellen]";
		mes "Let's see... Bruspetti";
		mes "and her guy would usually";
		mes "meet at... Um, I know where";
		mes "it is by feel, but I can't really";
		mes "give you good directions";
		mes "to get there. Er, sorry!";
		next;
		mes "[Lachellen]";
		mes "Luckily, this town";
		mes "isn't that big, so I'm";
		mes "sure you'll find something";
		mes "if you just keep looking.";
		mes "Oh, and if you find her,";
		mes "tell her I said ''hi,'' okay?";
		close;
	}

	else if (rach_vice == 6) {
		set rach_vice,7;
		mes "[Lachellen]";
		mes "Oh, Bruspetti's dad";
		mes "was talking about how";
		mes "good she smells? Yeah,";
		mes "she's kinda famous for";
		mes "that around here, so he's";
		mes "not creepy or anything.";
		next;
		mes "[Lachellen]";
		mes "I see, so you think you";
		mes "caught wind of her in some";
		mes "other town. Yeah, I heard";
		mes "that she went traveling to see";
		mes "if she could learn something,";
		mes "and she hasn't returned yet.";
		next;
		mes "[Lachellen]";
		mes "Oh, you know what?";
		mes "If she's in Lighthalzen,";
		mes "she's probably gone there to";
		mes "learn more about her boyfriend.";
		mes "Bruspetti mentioned something";
		mes "about that when I last saw her.";
		next;
		mes "[Lachellen]";
		mes "I don't know anything";
		mes "else. Hmm, maybe if you";
		mes "check the place where she";
		mes "and her boyfriend usually";
		mes "went on dates, you might";
		mes "be able to find something.";
		close;
	}

	else if ((rach_vice == 2) || (rach_vice == 3)) {
		set rach_vice,3;
		mes "[Lachellen]";
		mes "Ooh, I'm so jealous";
		mes "of Bruspetti! She's been";
		mes "spending so much time with";
		mes "her new boyfriend recently...";
		mes "But she still refuses to tell";
		mes "me what his name is.";
		next;
		mes "[Lachellen]";
		mes "She told me that she's";
		mes "serious about him, but";
		mes "she's also admitted that";
		mes "she doesn't know much about";
		mes "him. Let's see... He grew up in Lighthalzen? That's all she knows.";
		close;
	}

	mes "[Lachellen]";
	mes "My friend Bruspetti";
	mes "is a really nice girl~";
	mes "Everyone loves her, and";
	mes "she's sooo beautiful. All";
	mes "the guys are jealous of";
	mes "her new boyfriend!";
	next;
	mes "[Lachellen]";
	mes "Still, she's really";
	mes "shy, and won't tell me";
	mes "who he is. There's a lot";
	mes "I don't know about him, but";
	mes "I'm sure they're happy together.";
	close;
}

rachel,196,77,3	script	Kid#1rachel	921,{
	mes "[Kid]";
	mes "Hey, have you seen";
	mes "Bruspetti? She's really";
	mes "nice and always buys me";
	mes "lots and lots of cookies!";
	next;
	mes "[Kid]";
	mes "Hmm, I haven't seen";
	mes "her in a while, though.";
	mes "I heard she went traveling";
	mes "somewhere. How long do";
	mes "you think she'll be gone, huh?";
	close;
}

rachel,151,155,3	script	Kid#2rachel	921,{
	mes "[Kid]";
	mes "Oh wow! I wanna be an";
	mes "adventurer like you when";
	mes "I grow up! Go to all sorts";
	mes "of places, visit different";
	mes "towns. It sounds so fun!";
	next;
	mes "[Kid]";
	mes "Maybe if I find a really";
	mes "nice place, maybe I'll just";
	mes "stay and then move there.";
	mes "There's somewhere here";
	mes "that did that, and moved";
	mes "from Lighthalzen to here~";
	next;
	mes "[Kid]";
	mes "Yeah, as soon as I get";
	mes "a chance, I'm gonna ditch";
	mes "this town and see as much";
	mes "of the world as I can! I need";
	mes "to grow up faster than this!";
	close;
}

rachel,266,35,3	script	Grandma#rachel	918,{
	if (rach_vice > 21) {
		mes "[Grandma]";
		mes "When you get to be my";
		mes "age, you'll cherish all";
		mes "of your memories, even if";
		mes "the experience was hurtful";
		mes "when it actually happened.";
		next;
		mes "[Grandma]";
		mes "Your memories are part";
		mes "of who you are and what";
		mes "makes you unique. I can";
		mes "appreciate living the life";
		mes "that I have, even if it's";
		mes "not particularly special.";
		close;
	}

	else if (rach_vice == 13) {
		mes "[Grandma]";
		mes "When you get to be my";
		mes "age, you appreciate life";
		mes "more and can release your";
		mes "regrets more easily. I wasted";
		mes "much of my youth in needless";
		mes "worry when I could've relaxed.";
		close;
	}

	else if (rach_vice == 12) {
		set rach_vice,13;
		mes "[Grandma]";
		mes "Oh, back again, eh?";
		mes "I guess you must really";
		mes "like coming to this place";
		mes "too. Hm, that reminds me...";
		next;
		mes "[Grandma]";
		mes "See the edge of the spring?";
		mes "The same young man frequently";
		mes "comes to that spot, and stares";
		mes "into the water, just dripping with sadness. Someone so young";
		mes "shouldn't be feeling like that.";
		next;
		mes "[Grandma]";
		mes "You're supposed to come";
		mes "here to relax and enjoy";
		mes "the surrounding beauty,";
		mes "not wallow in your sorrow.";
		mes "I guess that boy doesn't";
		mes "agree with me on that.";
		next;
		mes "[Grandma]";
		mes "You should be able";
		mes "to let go of whatever's";
		mes "bothering you, and just";
		mes "enjoy life as it is now.";
		close;
	}
	mes "[Grandma]";
	mes "I love this place,";
	mes "its beautiful scenary";
	mes "and serene atmosphere.";
	mes "It's so heavenly peaceful.";
	next;
	mes "[Grandma]";
	mes "It brings my heart joy to see";
	mes "young couples can coming";
	mes "here and relaxing together.";
	mes "Isn't love a grand thing?";
	close;
}

lhz_in02,213,207,0	script	#ratrace1	111,4,4.{
OnTouch:
	if (rach_vice == 5) {
		set rach_vice,6;
		mes "[" + strcharinfo(0) + "]";
		mes "This...";
		mes "This smell...";
		mes "It smells so nice!";
		mes "Like rose petals riding";
		mes "on a gentle breeze...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Wait, could this be";
		mes "the scent that Bruspetti's";
		mes "father mentioned earlier?";
		close;
	}
	end;
}

rachel,265,47,0	script	#raevent1	111,2,2,{
OnTouch:
	if (rach_vice == 23) {
		mes "[" + strcharinfo(0) + "]";
		mes "Just looking at this";
		mes "spring makes me think";
		mes "of Bruspetti. What really";
		mes "happened to her? I get";
		mes "the feeling that she";
		mes "caved in to despair.";
		next;
		mes "["+name+"]";
		mes "The water's not that";
		mes "cold, or very deep...";
		mes "And Katinshuell mentioned";
		mes "that her body went limp...";
		mes "But she was still looking";
		mes "at him. It's haunting...";
		next;
		mes "["+name+"]";
		mes "I suppose she was torn...";
		mes "She loved him, but couldn't";
		mes "bear to live with his secret.";
		mes "In the end, it's all so very";
		mes "tragic. Katinshuell isn't";
		mes "really a bad person...";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "He was forced to";
		mes "commit a heinous crime,";
		mes "and kept making mistakes,";
		mes "running from his guilt. Is";
		mes "anyone accountable for this?";
		mes "Who would be to blame?";
		next;
		set rach_vice,24;
		if (BaseLevel > 90) set BaseExp,BaseExp+1300000;
		else if (BaseLevel > 75) set BaseExp,BaseExp+850000;
		else set BaseExp,BaseExp+450000;
		mes "[" + strcharinfo(0) + "]";
		mes "Somehow, I wish that";
		mes "Katinshuell had the";
		mes "strength to face his";
		mes "guilt, and then to";
		mes "forgive himself.";
		close;
	}

	else if (rach_vice == 22) {
		mes "[" + strcharinfo(0) + "]";
		mes "This must be where";
		mes "Bruspetti drowned...";
		next;
		mes "[Grandma]";
		mes "Oh! Excuse me,";
		mes "young adventurer,";
		mes "but you mustn't stand";
		mes "there! It's very slippery.";
		mes "What if you fall into the";
		mes "spring? It's dangerous.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Oh... Er, thank you.";
		mes "Yes, I wouldn't want";
		mes "to get myself drowned.";
		next;
		set rach_vice,23;
		mes "[Grandma]";
		mes "Drowned...? I just";
		mes "wouldn't want you to";
		mes "get your clothes wet.";
		mes "The water isn't that deep...";
		mes "Even if you can't swim, you";
		mes "can climb out, you know.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "...What?";
		close;
	}

	else if (rach_vice == 8) {
		mes "[" + strcharinfo(0) + "]";
		mes "That old woman told";
		mes "be to be careful not to";
		mes "slip and fall into the water";
		mes "around here, so I'd better";
		mes "make sure I tread carefully.";
		close;
	}

	else if (rach_vice == 7) {
		set rach_vice,8;
		mes "[???]";
		mes "Oh, be very careful!";
		mes "You don't want to get";
		mes "too close to the water.";
		mes "What if you slip and fall?";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Huh?";
		next;
		mes "[Grandma]";
		mes "Oh, I'm sorry if";
		mes "I startled you, but the";
		mes "ground that you're standing";
		mes "on is very slippery, you know.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ah, I see.";
		close;
	}
	end;
}

ra_in01,255,25,0	script	Book#ra_in	111,{
	if (rach_vice == 15) {
		mes "^3355FFThis is where you";
		mes "found Bruspetti's diary.";
		mes "Perhaps you should take";
		mes "it with you the next time";
		mes "you talk to Katinshuell.^000000";
		close;
	}

	else if (rach_vice == 14) {
		set rach_vice,15;
		getitem 7571,1; //Blue_Diary
		mes "^3355FFThis must be";
		mes "Bruspetti's diary!";
		mes "You now have permission";
		mes "to take it with you so that";
		mes "you can figure out if she and";
		mes "Katinshuell are connected...^000000";
		close;
	}

	else if ((rach_vice == 9) || (rach_vice == 10)) {
		set rach_vice,10;
		mes "^3355FFThis must be";
		mes "Bruspetti's diary!";
		mes "But... reading it";
		mes "would make you feel";
		mes "like a real creep.";
		mes "So don't touch it.^000000";
		close;
	}

}

//End of Bruspetti quest
//============================================================ 

// Ice Necklace/Summon Ktullanux Quest and Glaial Heart buyer
//============================================================ 
//iRO Changed this NPC to avoid "offending" people.
//To enable how it originally looked, uncomment the
//line below (npc header), and comment the line
//under it, and then uncomment the cutin lines.

//rachel,157,183,3	script	Sincere Follower Urstia	916,{
rachel,157,183,3	script	Sincere Follower Urstia	917,{
	//cutin "ra_usti1",2;
	if (ice_necklace_q < 1) {
		mes "[Urstialla]";
		mes "Oh, are you an adventurer";
		mes "from the outside? Praise be";
		mes "to Freya! Her love and grace";
		mes "reaches all over the world,";
		mes "touching even the hearts of";
		mes "foreigners, leading them here!";
		next;
		if (select("Freya? I'd like to know more.:That's crazy talk!") == 1) {
			emotion e_ok;
			mes "[Urstialla]";
			mes "The day is coming when";
			mes "Freya will resurrect and";
			mes "lead all of her faithful to";
			mes "Valhalla. Now she is in a";
			mes "deep sleep, but even then,";
			mes "she watches over all of us.";
			next;
			mes "[Urstialla]";
			mes "You see, Freya used up";
			mes "all of her power fighting the";
			mes "most fearsome of demons";
			mes "in the Thousand Year War.";
			mes "Now she rests and recovers";
			mes "in a pure and sacred place.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Wait...";
			mes "How do you";
			mes "know that all of";
			mes "this happened?";
			next;
			mes "[Urstialla]";
			mes "These are truths that all";
			mes "of Freya's worshippers know.";
			mes "Freya delivers her messages to";
			mes "us through her mortal vessel,";
			mes "our beautiful pope that shines";
			mes "with brilliant white light.";
			next;
			mes "[Urstialla]";
			mes "Unfortunately, even the most";
			mes "faithful experience lapses in";
			mes "judgment. It shames me to";
			mes "admit that my son Egapeo";
			mes "is... is guilty of sin.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Sin? What did he";
			mes "do, if you don't";
			mes "mind me asking?";
			next;
			mes "[Urstialla]";
			mes "I don't know, but Egapeo";
			mes "has been sick for a while";
			mes "now. I'm convinced that he";
			mes "did something to anger Freya";
			mes "Although he may deserve it,";
			mes "I'm doing my best to help him.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "...Wait. What?!";
			next;
			mes "[Urstialla]";
			mes "I know that if I pray hard";
			mes "enough and please Freya,";
			mes "she will forgive my son and";
			mes "heal him of his illness.";
			mes "But sometimes prayer isn't";
			mes "enough... I need to pay tribute.";
			next;
			mes "[Urstialla]";
			mes "I managed to acquire a";
			mes "necklace of incomparable";
			mes "beauty from the dwarves";
			mes "However, the gems have dulled";
			mes "with age and need to be shined";
			mes "before I can offer them to Freya.";
			next;
			mes "[Urstialla]";
			mes "However, not just anyone can";
			mes "shine this special necklace";
			mes "forged by the Dwarves. I need";
			mes "someone that knows arcane magic";
			mes "to help me. I think there's only";
			mes "one mage that can polish this...";
			next;
			mes "[Urstialla]";
			mes "Maheo, the renown mage with";
			mes "access to the most powerful";
			mes "magic spells in the world,";
			mes "must be able to clean this";
			mes "necklace's gems! However";
			mes "There's no way I can reach him.";
			next;
			mes "[Urstialla]";
			mes "You see, Maheo left on a";
			mes "journey to subjugate the";
			mes "ice monsters in the ice cave";
			mes "to the north, and he hasn't";
			mes "returned yet. That place is too";
			mes "dangerous for people like me.";
			next;
			mes "[Urstialla]";
			mes "I know that you adventurers";
			mes "regularly travel through those";
			mes "kinds of areas, so would you";
			mes "please look for Maheo and ask";
			mes "him to clean this necklace on";
			mes "my behalf? Please, for my son...";
			next;
			if (select("But that's none of my business!:Alright, I'll do it.") == 1) {
				mes "[Urstialla]";
				mes "I... I see.";
				mes "I thought that Freya";
				mes "had led you to me, but";
				mes "maybe my prayers haven't";
				mes "been answered yet. Perhaps";
				mes "I need to pray more fervently?.";
				goto L_End;
			}
			mes "[Urstialla]";
			mes "Thank you so much!";
			mes "Please, take care of this";
			mes "necklace and ask Maheo";
			mes "to restore its luster. Then,";
			mes "it'll be a fitting tribute to";
			mes "our loving goddess Freya.";
			getitem 7572,1; //Ashy_Necklace
			set ice_necklace_q,1;
			goto L_End;
		}
		cutin "ra_usti2",2;
		mes "[Urstialla]";
		mes "...............................";
		mes "Are you telling me";
		mes "that you don't believe?";
		mes "Repent, and may your";
		mes "heart be opened to Freya!";
		goto L_End;
	}

	else if ((ice_necklace_q >= 1) && (ice_necklace_q < 5)) {
		mes "[Urstialla]";
		mes "Please find Maheo the";
		mes "Mage and ask him to restore";
		mes "the beauty of the necklace";

		mes "I gave you. He should be";
		mes "fighting monsters in the";
		mes "ice cave to the north.";
		goto L_End;
	}

	else if (ice_necklace_q == 5) {
		mes "[Urstialla]";
		mes "Oh! My necklace! Thank you!";
		mes "It's so beautiful! It will";
		mes "make a wonderful tribute to";
		mes "Freya! I am certain with this,";
		mes "my son will get better!";
		next;
		mes "[Urstialla]";
		mes "Here, I know it's not much,";
		mes "but please accept this as a";
		mes "token of my appreication for";
		mes " what you have done for me.";
		delitem 7573,1; //Sparkling Necklace
		set BaseExp,BaseExp+70000;
		set ice_necklace_q,6;
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Oh, let's just say it was";
		mes "a worthwhile experience";
		mes "for me.";
		next;
		mes "[Urstialla]";
		mes ".........";
		mes "............";
		mes "May Freya always protect and";
		mes "guide you and forgive you for";
		mes "that horrible joke.";
		goto L_End;
	}

	mes "[Urstialla]";
	mes "May Freya always";
	mes "protect and guide you";
	mes "with her everflowing";
	mes "grace and wisdom..";
	goto L_End;

L_End:
	close2;
	//cutin "",255;
	end;

}

ice_dun02,120,105,3	script	Man Stuck in Ice#cave	924,5,5,{
	if (ice_necklace_q == 1) {
		cutin "ra_magic3",2;
		emotion e_omg;
		mes "[Man Stuck in Ice]";
		mes "H-hello?";
		mes "Hey! Hey, you!";
		mes "Help me break this";
		mes "ice! I need to get";
		mes "out of here!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "How did you get";
		mes "stuck in there?";
		next;
		mes "[Man Stuck in Ice]";
		mes "I'll explain everything";
		mes "later! Just... Just get";
		mes "this ice off of me!.";
		next;
		if (getskilllv(19) > 0) {
			misceffect 24;  //EF_FIREBALL
			mes "^3355FFYou cast Fire Bolt at";
			mes "the ice..^000000";
		}
		else {
			misceffect 1; //EF_HIT2
			mes "^3355FFYou hammer at the";
			mes "ice with all your might.^000000";
		}
		next;
		mes "["+strcharinfo(0)+"]";
		mes "......";
		mes "........";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I can't...";
		mes "I can't even scratch it";
		mes "Do you have any ideas?";
		next;
		emotion e_sob;
		mes "[Man Stuck in Ice]";
		mes "This is so humiliating...";
		mes "Me, the greatest mage";
		mes "of our age, Maheo, stuck";
		mes "in this pillar of ice.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Wait...";
		mes "You're Maheo?";
		next;
		cutin "ra_magic1",2;
		emotion e_gg;
		mes "[Maheo]";
		mes "It's true. You're speaking to";
		mes "Maheo, the greatest mage,";
		mes "and master of arcane spells.";
		mes "I know magic that even High";
		mes "Wizards can never hope to";
		mes "learn in their lifetimes!";
		next;
		cutin "ra_magic4",2;
		mes "[Maheo]";
		mes "Despite my greatness,";
		mes "I'm a humble man. See?";
		mes "That's why I always wear";
		mes "this Mage uniform...";
		mes "To remind myself of";
		mes "the value of humility.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "So how did you get";
		mes "stuck in all of this ice?";
		next;
		cutin "ra_magic3",2;
		mes "[Maheo]";
		mes "Actually, this happened";
		mes "because I was too humble";
		mes "You see, I underestimated";
		mes "myself, and the devastating";
		mes "force of my own magic.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "...Huh?";
		next;
		mes "[Maheo]";
		mes "Yes, this wouldn't have";
		mes "happened if I wasn't so";
		mes "humble... Humble and kind.";
		mes "It all started when I thought";
		mes "of this cave and how people";
		mes "sometimes come here to get ice.";
		next;
		mes "[Maheo]";
		mes "I then decided that";
		mes "I would exterminate these";
		mes "evil monsters for the good";
		mes "of the people! The citizens";
		mes "would feel protected, and";
		mes "I'd be recognized as a hero!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Okay... I suppose";
		mes "that sounds normal";
		mes "enough. Go on.";
		next;
		mes "[Maheo]";
		mes "I valiantly battled";
		mes "the Snowiers. They were";
		mes "no match for my magic!";
		mes "And so, I decided to just";
		mes "destroy all of them with";
		mes "one cast of a magic spell.";
		next;
		mes "[Maheo]";
		mes "You know Meteor Storm?";
		mes "I know another spell like";
		mes "that... But it's two hundred";
		mes "times more powerful! Yes...";
		mes "It has the power of a million";
		mes "exploding suns! But then...";
		next;
		emotion e_sob;
		mes "[Maheo]";
		mes "It was too powerful!";
		mes "There were tremors, and";
		mes "flying shards of ice, and";
		mes "all the flame caused my";
		mes "clothes to catch on fire!";
		next;
		emotion e_flash,1;
		mes "["+strcharinfo(0)+"]";
		mes "You...";
		mes "you set fire";
		mes "to your clothes";
		next;
		cutin "ra_magic2",2;
		mes "[Maheo]";
		mes "Yes, but not to worry.";
		mes "I quickly extinguished";
		mes "those flames with my";
		mes "powerful Frost Diver spell!";
		next;
		cutin "ra_magic3",2;
		mes "[Maheo]";
		mes "In hindsight...";
		mes "That may have";
		mes "been a mistake...";
		next;
		cutin "ra_magic3",2;
		mes "[Maheo]";
		mes "Enough about myself.";
		mes "What noble pursuit brings";
		mes "you to this place, adventurer?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I heard that you can";
		mes "polish the gems on this";
		mes "necklace with your magic,";
		mes "so I came here to find you.";
		next;
		mes "[Maheo]";
		mes "Verily, I can shine";
		mes "those gems so that they";
		mes "shine as brightly as a";
		mes "million exploding suns!";
		next;
		mes "[Maheo]";
		mes "That is, as soon";
		mes "as I can get out";
		mes "of this ice. Hmm...";
		mes "But I doubt normal";
		mes "magic will be able";
		mes "to melt all of this.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Then how are we";
		mes "supposed to get";
		mes "you out of there?";
		next;
		mes "[Maheo]";
		mes "Fear not. I'm sure";
		mes "that my master will know";
		mes "of a way to free me from";
		mes "this prison of ice. He can";
		mes "be found near Freya's Spring:";
		mes "beseech him on my behalf!";
		set ice_necklace_q,2;
		cutin "",255;
		close;
	}

	else if ((ice_necklace_q == 2) || (ice_necklace_q == 3)) {
		mes "[Maheo]";
		mes "My master may not have";
		mes "my sheer talent, but he";
		mes "is very knowledgable in";
		mes "the ways of magic. Please...";
		mes "Ask him for help. He should";
		mes "be reading near Freya's Spring.";
		close;
	}

	else if (ice_necklace_q == 4) {
		mes "[Maheo]";
		mes "Oh, you're back!";
		mes "So did my master have";
		mes "any ideas on breaking";
		mes "this cold prison of ice?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Well, he made this";
		mes "magic hammer which is";
		mes "supposed to be able to";
		mes "break this magic ice.";
		next;
		mes "[Maheo]";
		mes "Of course!";
		mes "Why didn't I think of";
		mes "that? Great, now get";
		mes "me out of here please!";
		next;
		mes "^3355FFYou tightly gripped";
		mes "the Wind Hammer, and";
		mes "swung it down at the ice";
		mes "with all of your strength.^000000";
		next;
		misceffect 276; //EF_TEIHIT3
		misceffect 133; //EF_FREEZE
		misceffect 135; //EF_ICECRASH
		mes "^3355FF*Pzzzzz*";
		mes "*CRASH!*^000000";
		next;
		enablenpc "Maheo#cave";
		disablenpc "Man Stuck in Ice#cave";
		emotion e_gasp;
		mes "[Maheo]";
		mes "Finally...!";
		mes "After all of this";
		mes "time! I'm free!";
		next;
		misceffect 56; //EF_BEGINSPELL4
		mes "[Maheo]";
		mes "Now, all of the monsters";
		mes "in this cave will taste the";
		mes "wrath of the greatest mage in";
		mes "the world! I'll have my revenge,";
		mes "and give those beasts double";
		mes "the pain that they gave me!";
		next;
		monster "ice_dun02",108,109,"Snowier",1775,1,"Man Stuck in Ice#cave::OnMyMobDead";
		monster "ice_dun02",114,112,"Snowier",1775,1,"Man Stuck in Ice#cave::OnMyMobDead";
		monster "ice_dun02",126,105,"Snowier",1775,1,"Man Stuck in Ice#cave::OnMyMobDead";
		monster "ice_dun02",121,99,"Snowier",1775,1,"Man Stuck in Ice#cave::OnMyMobDead";
		misceffect 90; //EF_LORD
		killmonster "ice_dun02","Man Stuck in Ice#cave::OnMyMobDead";
		mes "[Maheo]";
		mes "Muhahahahahahahaha!";
		next;
		mes "[Maheo]";
		mes "Er, but first, I need to";
		mes "use my magic to clean";
		mes "that necklace of yours.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Here...";
		next;
		mes "[Maheo]";
		mes "Oh! This was made by";
		mes "the Dwarves, wasn't it?";
		mes "It looks like they've made";
		mes "yet another masterpiece.";
		mes "Shame that this is so";
		mes "tarnished, though.";
		next;
		mes "[Maheo]";
		mes "Let's see, now...";
		next;
		misceffect 256; //EF_FROSTWEAPON
		mes "^3355FF*Ting*^000000";
		next;
		mes "[Maheo]";
		mes "Well, I suppose this";
		mes "is where we part ways.";
		mes "Here, take this as a gift...";
		mes "And please don't mention";
		mes "the fact that I trapped myself";
		mes "in ice to anyone else, okay?";
		getitem 7574,1; //Freezing Snow Powder
		getitem 7573,1; //Sparkling Necklace
		delitem 7572,1; //Ashy_Necklace
		delitem 7569,1; //Wind Hammer
		set ice_necklace_q,5;
		enablenpc "Man Stuck in Ice#cave";
		disablenpc "Maheo#cave";
		cutin "",255;
		close;
	}

OnTouch:
	end;

//OnTouchNPC: 
//	emotion e_ang;
//	emotion e_gg,2; //Emote on monster
//	end;

OnMyMobDead:
	end;

}

ice_dun02,120,3,0	script	#cave_vos	-1,{
OnInit:
	initnpctimer;
	end;

OnTimer3600000:
	mapannounce "ice_dun02","Go away, you animals! I'll burn you to death once I get free!",bc_map,0xFFCE00;
	end;

OnTimer7200000:
	mapannounce "ice_dun02","Hello? Can anyone hear me? I'm... I'm kind of stuck!",bc_map,0xFFCE00;
	end;

OnTimer10800000:
	stopnpctimer;
	mapannounce "ice_dun02","Please! I can't move! Hello? I think I might need help!",bc_map,0xFFCE00;
	initnpctimer;
	end;
}

rachel,265,98,3	script	Hamion#aru	930,{
	if (ice_necklace_q < 1) {
		mes "[Hamion]";
		mes "Hm? Did you need";
		mes "something? If it's not too";
		mes "important, then I'd like to";
		mes "get back to reading my book.";
		close;
	}

	else if (ice_necklace_q == 2) {
		mes "[Hamion]";
		mes "Hm? Did you need";
		mes "something? If it's not too";
		mes "important, then I'd like to";
		mes "get back to reading my book.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Um, would you know";
		mes "a mage by the name";
		mes "of Maheo? I'm supposed";
		mes "to go look for his master";
		mes "around this area.";
		next;
		mes "[Hamion]";
		mes "Well, you've found him";
		mes "because that would be me.";
		mes "What happened to Maheo?";
		next;
		mes "[Hamion]";
		mes "He froze himself?!";
		mes "Hahahaha! Some genius!";
		mes "Oh, well, I suppose he still";
		mes "has plenty to learn about";
		mes "character, if not magic.";
		next;
		mes "[Hamion]";
		mes "Let's see, let's see...";
		mes "This book ought to have";
		mes "the answer. Mmm... Ah!";
		mes "Page 42! I need to construct";
		mes "an artifact in order to break";
		mes "that mystical ice. Mmm.";
		next;
		mes "[Hamion]";
		mes "Would you help";
		mes "me? I need to get";
		mes "^4D4DFF5 Rough Winds^000000,";
		mes "^4D4DFF1 Hammer^000000, and";
		mes "^4D4DFF1 Blank Scroll^000000";
		next;
		mes "[Hamion]";
		mes "You can get Blank Scrolls";
		mes "in the Sage Academy in Juno.";
		mes "Ah, and the Hammer is a weapon,";
		mes "not one of those smithing tools.";
		mes "I'd help you if I could, but...";
		mes "I'm just smart, not strong.";
		set ice_necklace_q,3;
		close;
	}

	else if (ice_necklace_q == 3) {
		if ((countitem(996) < 5) || (countitem(1354) < 1) || (countitem(7433) < 1)) { 
			mes "[Hamion]";
			mes "I need to create";
			mes "a magical artifact";
			mes "to break the ice that's";
			mes "trapping Maheo. Would you";
			mes "please help me? There's no";
			mes "way I can get the items myself!";
			next;
			mes "[Hamion]";
			mes "I need to get";
			mes "^4D4DFF5 Rough Winds^000000,";
			mes "^4D4DFF1 Hammer^000000, and";
			mes "^4D4DFF1 Blank Scroll^000000";
			next;
			mes "[Hamion]";
			mes "You can get Blank Scrolls";
			mes "in the Sage Academy in Juno.";
			mes "Ah, and the Hammer is a weapon,";
			mes "not one of those smithing tools.";
			mes "I'd help you if I could, but...";
			mes "I'm just smart, not strong.";
			close;
		}

		mes "[Hamion]";
		mes "Great, you have everything";
		mes "I need! But first, would you";
		mes "make sure that you only have";
		mes "1 Hammer in your inventory?";
		mes "If you have more than one,";
		mes "I might take the wrong Hammer.";
		next;
		if (select("Let me check.:Don't worry, I checked.") == 1) {
			mes "[Hamion]";
			mes "Alright, it's always";
			mes "better to be safe than";
			mes "sorry! If only Maheo was";
			mes "a little more careful, more";
			mes "like you are, then maybe this";
			mes "wouldn't have happened.";
			close;
		}
		mes "[Hamion]";
		mes "Okay, I'll take your";
		mes "word for it. Now, let's";
		mes "bring the artifact forging";
		mes "process. Hmmm... Let me";
		mes "review it here on page 45.";
		next;
		mes "[Hamion]";
		mes "Here we go...!";
		next;
		specialeffect2 71; //EF_CONE
		mes "^3355FF*Pzzzz*^000000";
		next;
		mes "[Hamion]";
		mes "...Aaaand now it's done.";
		mes "Here, take this Wind Hammer";
		mes "and use it to free Maheo.";
		mes "This hammer will only work";
		mes "once, so make sure that you";
		mes "smash that ice properly!";
		getitem 7569,1; //Wind Hammer
		set ice_necklace_q,4;
		close;
	}

	else if (ice_necklace_q >= 4) {
		mes "[Hamion]";
		mes "There are always";
		mes "singing birds and";
		mes "flitting butterflies";
		mes "all over this place";
		mes "It's so relaxing, and";
		mes "such a great place to read.";
		close;
	}

}

ice_dun02,120,105,3	script	Maheo#cave	937,{
	end;
OnInit:
	disablenpc "Maheo#cave";
	end;
}

rachel,113,96,5	script	Mohadian	929,10,10,{
	if (ice_necklace_q == 6) {
		mes "[Mohadian]";
		mes "I work at the bar around";
		mes "here, and I've heard good";
		mes "things about you. Some of";
		mes "the customers've heard that";
		mes "you helped Urstialla by going";
		mes "into that dangerous Ice Cave.";
		next;
		mes "[Mohadian]";
		mes "Now, are you really capable";
		mes "of regularly defeating the";
		mes "snow monsters inside there?";
		mes "If you are, I've got a bit of a";
		mes "business proposition for you.";
		next;
		emotion e_ic;
		mes "[Mohadian]";
		mes "The weather around here";
		mes "is naturally hot and humid,";
		mes "so we need ice to make cold,";
		mes "refreshing drinks at the pub.";
		mes "And the Ice Cave is the best";
		mes "place to get that ice, right?";
		next;
		mes "[Mohadian]";
		mes "If you bring me Ice Pieces";
		mes "from the Ice Cave, I'll buy";
		mes "them from you at 375 zeny";
		mes "each. Think of it as kind of a";
		mes "freelance job. I mean, if you";
		mes "can bring me ice, I'll buy it!.";
		next;
		mes "[Mohadian]";
		mes "You can make some good";
		mes "money, my customers can";
		mes "enjoy ice cold drinks, and";
		mes "my business will definitely";
		mes "benefit. We'd kill three birds";
		mes "with one stone! What do you say?";
		next;
		if (select("No, thanks.:Sure.") == 1) {
			mes "[Mohadian]";
			mes "Aww, how disappointing.";
			mes "I was really sure that this";
			mes "would be a great deal for";
			mes "both of us. Well, if you're";
			mes "willing to change your mind";
			mes "then we can be partners!";
			close;
		}
		mes "[Mohadian]";
		mes "Great! Now, the ice that";
		mes "I need comes from Glacial";
		mes "Hearts. You can obtain those";
		mes "by hunting the snow monsters";
		mes "in the Ice Cave. Remember, I'll";
		mes "pay you 375 zeny for each one!";
		set ice_necklace_q,7;
		close;
	}

	else if (ice_necklace_q == 7) {
		if (countitem(7561) < 1) {
			mes "[Mohadian]";
			mes "Bring me some Glacial";
			mes "Hearts from the Ice Cave,";
			mes "and I'll be sure to compensate";
			mes "you with some zeny. This is a";
			mes "really good deal for the two";
			mes "of us when you think about it.";
			close;
		}
		mes "[Mohadian]";
		mes "Perfect, you brought me";
		mes "some Glacial Hearts! I can";
		mes "never get used to the beauty";
		mes "and purity of these ice crystals.";
		next;
		mes "[Mohadian]";
		mes "Yes, I think I might";
		mes "even be able to use these";
		mes "to make Arunafeltz Glacial";
		mes "Wine. Anyway, let me see";
		mes "how many you've brought me.";
		next;
		set .@hearts,countitem(7561);
		set .@totalprice,375*.@hearts;
		mes "[Mohadian]";
		mes .@hearts +" Glacial Hearts";
		mes "at 375 zeny each...";
		mes "Looks like I owe you";
		mes .@totalprice +" zeny. Here you are!";
		mes "It's always a pleasure";
		mes "doing business with you~";
		delitem 7561,.@hearts; //Glacial Hearts
		set zeny,zeny+.@totalprice;
		close;
	}

OnTouch:
	if (ice_necklace_q == 6) {
		mes "[Mohadian]";
		mes "Welcome to--";
		mes "Er? Hello?";
		mes "Excuse me?";
		close;
	}
	end;

}

ice_dun03,126,126,3	script	Blazing Fire#ice1	802,{
	mes "^3355FFThe flames in this fire";
	mes "barrier crackle with magic";
	mes "power. There's no way that";
	mes "you can put this fire out";
	mes "with conventional means.^000000";
	if (ice_necklace_q > 4) {
		if ($ktullanux_summon < 4) {
			if (countitem(7574) > 0) {
				next;
				select("Use Freezing Snow Powder.");
				mes "^3355FFYou sprinkle the Freezing Snow";
				mes "Powder onto the flame. It";
				mes "flickers before extinguising.^000000";
				delitem 7574,1; //Freezing Snow Powder
				disablenpc "Blazing Fire#ice1";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
			}

			else if (countitem(7562) > 0) {
				next;
				select("Use Ice Scale.");
				mes "^3355FFYou throw the Ice Scale into";
				mes "the flame, it crackles before";
				mes "extinguising.^000000";
				delitem 7562,1; //Ice Scale
				disablenpc "Blazing Fire#ice1";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
				close;
			}

		}

	}
	close;

OnInit:
	set $ktullanux_summon,0;
	end;

}


ice_dun03,172,126,0	script	Blazing Fire#ice2	802,{
	mes "^3355FFThe flames in this fire";
	mes "barrier crackle with magic";
	mes "power. There's no way that";
	mes "you can put this fire out";
	mes "with conventional means.^000000";
	if (ice_necklace_q > 4) {
		if ($ktullanux_summon < 4) {
			if (countitem(7574) > 0) {
				next;
				select("Use Freezing Snow Powder.");
				mes "^3355FFYou sprinkle the Freezing Snow";
				mes "Powder onto the flame. It";
				mes "flickers before extinguising.^000000";
				delitem 7574,1; //Freezing Snow Powder
				disablenpc "Blazing Fire#ice2";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
			}

			else if (countitem(7562) > 0) {
				next;
				select("Use Ice Scale.");
				mes "^3355FFYou throw the Ice Scale into";
				mes "the flame, it crackles before";
				mes "extinguising.^000000";
				delitem 7562,1; //Ice Scale
				disablenpc "Blazing Fire#ice2";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
				close;
			}

		}

	}
	close;

OnInit:
	set $ktullanux_summon,0;
	end;

}

ice_dun03,172,172,0	script	Blazing Fire#ice3	802,{
	mes "^3355FFThe flames in this fire";
	mes "barrier crackle with magic";
	mes "power. There's no way that";
	mes "you can put this fire out";
	mes "with conventional means.^000000";
	if (ice_necklace_q > 4) {
		if ($ktullanux_summon < 4) {
			if (countitem(7574) > 0) {
				next;
				select("Use Freezing Snow Powder.");
				mes "^3355FFYou sprinkle the Freezing Snow";
				mes "Powder onto the flame. It";
				mes "flickers before extinguising.^000000";
				delitem 7574,1; //Freezing Snow Powder
				disablenpc "Blazing Fire#ice3";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
			}

			else if (countitem(7562) > 0) {
				next;
				select("Use Ice Scale.");
				mes "^3355FFYou throw the Ice Scale into";
				mes "the flame, it crackles before";
				mes "extinguising.^000000";
				delitem 7562,1; //Ice Scale
				disablenpc "Blazing Fire#ice3";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
				close;
			}

		}

	}
	close;

OnInit:
	set $ktullanux_summon,0;
	end;

}

ice_dun03,127,172,0	script	Blazing Fire#ice4	802,{
	mes "^3355FFThe flames in this fire";
	mes "barrier crackle with magic";
	mes "power. There's no way that";
	mes "you can put this fire out";
	mes "with conventional means.^000000";
	if (ice_necklace_q > 4) {
		if ($ktullanux_summon < 4) {
			if (countitem(7574) > 0) {
				next;
				select("Use Freezing Snow Powder.");
				mes "^3355FFYou sprinkle the Freezing Snow";
				mes "Powder onto the flame. It";
				mes "flickers before extinguising.^000000";
				delitem 7574,1; //Freezing Snow Powder
				disablenpc "Blazing Fire#ice4";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
			}

			else if (countitem(7562) > 0) {
				next;
				select("Use Ice Scale.");
				mes "^3355FFYou throw the Ice Scale into";
				mes "the flame, it crackles before";
				mes "extinguising.^000000";
				delitem 7562,1; //Ice Scale
				disablenpc "Blazing Fire#ice4";
				set $ktullanux_summon,$ktullanux_summon+1;
				if ($ktullanux_summon == 4) donpcevent "ice_boss#broad::OnStart";
				close;
			}

		}

	}
	close;

OnInit:
	set $ktullanux_summon,0;
	end;

}

ice_dun03,1,173,5	script	ice_boss#broad	-1,{
OnStop:
	stopnpctimer;
	end;

OnStart:
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "ice_dun03","Who dares to extinguish the flames of Thor!?",bc_map,0xFF6633;
	end;

OnTimer8000:
	mapannounce "ice_dun03","I, Ktullanux shall keep everything from Thor's fierce flame,",bc_map,0xFF6633;
	end;

OnTimer10000:
	mapannounce "ice_dun03","for I am the master of this cave of ice!",bc_map,0xFF6633;
	end;

OnTimer13000:
	mapannounce "ice_dun03","You foolish adventurer, who cares not for the gift of life.",bc_map,0xFF6633;
	end;

OnTimer16000:
	mapannounce "ice_dun03","Because of your dangerous curiosity,",bc_map,0xFF6633;
	end;

OnTimer19000:
	mapannounce "ice_dun03","you will taste inconceivable pain, a cold which can freeze even Mother Nature's breath!",bc_map,0xFF6633;
	end;

OnTimer21000:
	stopnpctimer;
	donpcevent "ice_boss#on::OnStart";
	end;

}

ice_dun03,1,174,3	script	ice_boss#on	-1,{
OnStart:
	monster "ice_dun03",150,135,"Ktullanux",1779,1,"ice_boss#on::OnMyMobDead";
	end;

OnStartTimer:
	Initnpctimer;
	end;

OnStopTimer:
	stopnpctimer;
	end;

OnMyMobDead:
	mapannounce "ice_dun03","Odin! Odin I beg you! Please protect this haven from Thor's fiere fire!",bc_map,0xFF6633;
	mapannounce "ice_dun03","Hisssss.... Hisssss...",bc_map,0x33FFFF;
	donpcevent "ice_boss#on::OnStartTimer";
	donpcevent "#ice_sec::OnStart";
	end;

OnTimer7200000:
	stopnpctimer;
	set $ktullanux_summon,0;
	enablenpc "Blazing Fire#ice1";
	enablenpc "Blazing Fire#ice2";
	enablenpc "Blazing Fire#ice3";
	enablenpc "Blazing Fire#ice4";
	end;
}
	
ice_dun03,1,175,3	script	#ice_sec	-1,{
OnStart:
	initnpctimer;
	enablenpc "#ice_4f_1";
	enablenpc "#ice_4f_2";
	enablenpc "#ice_4f_3";
	enablenpc "#ice_4f_4";
	donpcevent "#ice_4f_1::OnEnable";
	donpcevent "#ice_4f_2::OnEnable";
	donpcevent "#ice_4f_3::OnEnable";
	donpcevent "#ice_4f_4::OnEnable";
	end;

OnTimer60000:
	stopnpctimer;
	disablenpc "#ice_4f_1";
	disablenpc "#ice_4f_2";
	disablenpc "#ice_4f_3";
	disablenpc "#ice_4f_4";
	end;
}

ice_dun03,150,132,0	script	#ice_4f_1	45,2,2,{
OnTouch:
	warp "ice_dun04",33,144;
	end;

OnInit:
	disablenpc "#ice_4f_1";
	end;

OnEnable:
	misceffect 247; //EF_MAPPILLAR2
	end;

}

ice_dun03,138,148,0	script	#ice_4f_2	45,2,2,{
OnTouch:
	warp "ice_dun04",33,144;
	end;

OnInit:
	disablenpc "#ice_4f_2";
	end;

OnEnable:
	misceffect 247; //EF_MAPPILLAR2
	end;

}

ice_dun03,161,148,0	script	#ice_4f_3	45,2,2,{
OnTouch:
	warp "ice_dun04",33,144;
	end;

OnInit:
	disablenpc "#ice_4f_3";
	end;

OnEnable:
	misceffect 247; //EF_MAPPILLAR2
	end;

}

ice_dun03,151,162,0	script	#ice_4f_4	45,2,2,{
OnTouch:
	warp "ice_dun04",33,144;
	end;

OnInit:
	disablenpc "#ice_4f_4";
	end;

OnEnable:
	misceffect 247; //EF_MAPPILLAR2
	end;

}

// End of Ice Necklace/Summon Ktullanux Quest
//============================================================ 


// Donation Lottery Quest/High Priest Quest
//============================================================ 
ra_temple,119,180,0	script	Temple Entrance#ra_temple	45,1,1,{
OnTouch:
	if ($rachel_donate >= 10000) {
		if (MISC_QUEST & 8192) { warp "ra_temin",169,23; end; }

		if (ra_tem_q < 10) {
			mes "^3355FFThe temple's";
			mes "entrance is locked.^000000";
			next;
			select("Kick Door.:Smash Door with Weapon.");
			donpcevent "Nemma#ra_temple::OnEmotion";
			mes "[Priestess Nemma]";
			mes "Please don't do that!";
			close;
		}

		warp "ra_temin",169,23;
		end;
	}
}

ra_temple,116,174,3	script	Nemma#ra_temple	920,{
	cutin "ra_nemma02",2;
	if ($rachel_donate < 10000) {
		if (ra_have_donated == 0) {
			cutin "ra_nemma03",2;
			mes "[Priestess Nemma]";
			mes "Good day, adventurer.";
			mes "May I ask what brings";
			mes "you to the temple today?";
			next;
			if (select("Just sight-seeing.:I came to pray.") == 1) {
				cutin "ra_nemma01",2;
				mes "[Priestess Nemma]";
				mes "I guess most foreigners";
				mes "aren't familiar with our";
				mes "faith, so I suppose they";
				mes "wouldn't come here to pray...";
				mes "Well, I hope you enjoy your";
				mes "time here, adventurer.";
				goto L_End;
			}
			mes "[Priestess Nemma]";
			mes "Oh! I'm glad to see that";
			mes "our kind of spirituality is";
			mes "practiced in other countries~";
			mes "You know, we at the Temple of";
			mes "Cheshrumnir will be hosting a";
			mes "festival here at the temple.";
			next;
			cutin "ra_nemma01",2;
			mes "[Priestess Nemma]";
			mes "We're accepting donations";
			mes "for the festival, so we'd be";
			mes "grateful if you could make";
			mes "a contribution. Regardless,";
			mes "we invite you to celebrate the";
			mes "grace of the goddess with us.";
			Emotion e_ho;
			next;
			mes "[Priestess Nemma]";
			mes "There's one High Priest that";
			mes "disagrees with collecting money";
			mes "from the temple's patrons, but";
			mes "it's up to you if you want to";
			mes "give or not. If you donate, you";
			mes "might be able to win a prize!";
			next;
			mes "[Priestess Nemma]";
			mes "You can use our Lottery Tickets";
			mes "to win something nice from our";
			mes "Temple Storage. However, you";
			mes "donate the 50,000 zeny for each";
			mes "Lottery Ticket, which also happens to be the minimum donation amount.";
			next;
			cutin "ra_nemma03",2;
			mes "[Priestess Nemma]";
			mes "The prizes that are given to";
			mes "donators are also randomly";
			mes "chosen, so I have no way of";
			mes "telling you what you'd get.";
			mes "Would you be interested";
			mes "in making a donation?";
			next;
			if (select("No, thanks.:Sure.") == 1) {
				cutin "ra_nemma01",2;
				mes "[Priestess Nemma]";
				mes "I understand. Well,";
				mes "maybe some other time.";
				mes "May Freya bless you on";
				mes "all your journeys. May the";
				mes "grace of the goddess always";
				mes "support us in all that we do~";
				goto L_End;
			}
			mes "[Priestess Nemma]";
			mes "Great! How much would you";
			mes "like to donate? We can only";
			mes "accept donations in increments";
			mes "of 50,000 zeny, and we can only";
			mes "accept up to 150,000 zeny at once. It's a bit complicated, I know...";
			next;

			switch(select("50,000z - 1 Lottery Ticket:100,000z - 2 Lottery Ticket:150,000z - 3 Lottery Ticket:Cancel")) {

			case 1:
				cutin "ra_nemma01",2;
				mes "[Priestess Nemma]";
				mes "So, " + strcharinfo(0) + "...";
				mes "I just want to make sure:";
				mes "you want to donate 50,000 ";
				mes "zeny, and receive 1 Lottery ";
				mes "Ticket. Is that correct?";
				next;
				if (select("No:Yes") == 1) goto L_DoNotDonate;
				if (zeny >= 50000) {
					set .@now_weight,MaxWeight-Weight;
					if (.@now_weight < 10) {
						goto L_OverWeight;
					}
					set $rachel_donate,$rachel_donate+1;
					getitem 7570,1; //Temple_Lottery_Ticket
					set zeny,zeny-50000;
					set ra_have_donated,1;
					if ($rachel_donate > 9999) goto L_ProgressReport1;
					else goto L_ProgressReport2;
				}
				else {
					set .@Donate$,"50,000";
					goto L_NotEnoughZeny;
				}
				break;

			case 2:
				mes "[Priestess Nemma]";
				mes "So, " + strcharinfo(0) + "...";
				mes "I just want to make sure:";
				mes "you want to donate 100,000 ";
				mes "zeny, and receive 2 Lottery ";
				mes "Ticket. Is that correct?";
				next;
				if (select("No:Yes") == 1) goto L_DoNotDonate;
				if (zeny >= 100000) {
					set .@now_weight,MaxWeight-Weight;
					if (.@now_weight < 20) {
						goto L_OverWeight;
					}
					set $rachel_donate,$rachel_donate+2;
					getitem 7570,2; //Temple_Lottery_Ticket
					set zeny,zeny-100000;
					set ra_have_donated,1;
					if ($rachel_donate > 9999) goto L_ProgressReport1;
					else goto L_ProgressReport2;
				}
				else {
					set .@Donate$,"100,000";
					goto L_NotEnoughZeny;
				}
				break;

			case 3:
				mes "[Priestess Nemma]";
				mes "So, " + strcharinfo(0) + "...";
				mes "I just want to make sure:";
				mes "you want to donate 150,000 ";
				mes "zeny, and receive 3 Lottery ";
				mes "Ticket. Is that correct?";
				next;
				if (select("No:Yes") == 1) goto L_DoNotDonate;
				if (zeny >= 150000) {
					set .@now_weight,MaxWeight-Weight;
					if (.@now_weight < 30) {
						goto L_OverWeight;
					}
					set $rachel_donate,$rachel_donate+3;
					getitem 7570,3; //Temple_Lottery_Ticket
					set zeny,zeny-150000;
					set ra_have_donated,1;
					if ($rachel_donate > 9999) goto L_ProgressReport1;
					else goto L_ProgressReport2;
				}
				else {
					set .@Donate$,"150,000";
					goto L_NotEnoughZeny;
				}
				break;

			case 4:
				cutin "ra_nemma02",2;
				mes "[Priestess Nemma]";
				mes "I understand that it takes";
				mes "some thought to part with an";
				mes "amount of money like 50,000";
				mes "zeny. Even so, Freya is always";
				mes "protecting you, wherever you go~";
				break;

			}

			goto L_End;

		}

		else {
			cutin "ra_nemma03",2;
			mes "[Priestess Nemma]";
			mes "Oh, you're " + strcharinfo(0) + "!";
			mes "Welcome back! I remember";
			mes "that you donated just a little";
			mes "while ago. So what brings you";
			mes "to the temple today, hmm?";
			next;

			switch(select("I've come to donate again.:Just sight-seeing.:I came to attend the service.:I just wanted to see you again.")) {

			case 1:
				mes "[Priestess Nemma]";
				mes "You've come to make another";
				mes "donation? Splendid! How much";
				mes "would you like to donate this";
				mes "time? Remember that we can only";
				mes "accept donations in inrements of";
				mes "50,000 zeny up to 150,000 zeny.";
				next;

				switch(select("50,000z - 1 Lottery Ticket:100,000z - 2 Lottery Ticket:150,000z - 3 Lottery Ticket:Cancel")) {

				case 1:
					cutin "ra_nemma01",2;
					mes "[Priestess Nemma]";
					mes "So, " + strcharinfo(0) + "...";
					mes "I just want to make sure:";
					mes "you want to donate 50,000 ";
					mes "zeny, and receive 1 Lottery ";
					mes "Ticket. Is that correct?";
					next;
					if (select("No:Yes") == 1) goto L_DoNOtDonate;
					if (zeny >= 50000) {
						set .@now_weight,MaxWeight-Weight;
						if (.@now_weight < 10) {
							goto L_OverWeight;
						}
						set $rachel_donate,$rachel_donate+1;
						getitem 7570,1; //Temple_Lottery_Ticket
						set zeny,zeny-50000;
						if ($rachel_donate > 9999) goto L_ProgressReport1;
						else goto L_ProgressReport2;
					}
					else {
						set .@Donate$,"50,000";
						goto L_NotEnoughZeny;
					}
					break;

				case 2:
					mes "[Priestess Nemma]";
					mes "So, " + strcharinfo(0) + "...";
					mes "I just want to make sure:";
					mes "you want to donate 100,000 ";
					mes "zeny, and receive 2 Lottery ";
					mes "Ticket. Is that correct?";
					next;
					if (select("No:Yes") == 1) goto L_DoNotDonate;
					if (zeny >= 100000) {
						set .@now_weight,MaxWeight-Weight;
						if (.@now_weight < 20) {
							goto L_OverWeight;
						}
						set $rachel_donate,$rachel_donate+2;
						getitem 7570,2; //Temple_Lottery_Ticket
						set zeny,zeny-100000;
						if ($rachel_donate > 9999) goto L_ProgressReport1;
						else goto L_ProgressReport2;
					}
					else {
						set .@Donate$,"100,000";
						goto L_NotEnoughZeny;
					}
					break;

				case 3:
					mes "[Priestess Nemma]";
					mes "So, " + strcharinfo(0) + "...";
					mes "I just want to make sure:";
					mes "you want to donate 150,000 ";
					mes "zeny, and receive 3 Lottery ";
					mes "Ticket. Is that correct?";
					next;
					if (select("No:Yes") == 1) goto L_DoNotDonate;
					if (zeny >= 150000) {
						set .@now_weight,MaxWeight-Weight;
						if (.@now_weight < 30) {
							goto L_OverWeight;
						}
						set $rachel_donate,$rachel_donate+3;
						getitem 7570,3; //Temple_Lottery_Ticket
						set zeny,zeny-150000;
						if ($rachel_donate > 9999) goto L_ProgressReport1;
						else goto L_ProgressReport2;
					}
					else {
						set .@Donate$,"150,000";
						goto L_NotEnoughZeny;
					}
					break;

				case 4:
					cutin "ra_nemma02",2;
					mes "[Priestess Nemma]";
					mes "I understand that it takes";
					mes "some thought to part with an";
					mes "amount of money like 50,000";
					mes "zeny. Even so, Freya is always";
					mes "protecting you, wherever you go~";
					break;

				}
				goto L_End;

			case 2:
				mes "[Priestess Nemma]";
				mes "Oh! If you'd like some";
				mes "information about our temple,";
				mes "why don't you ask Priestess";
				mes "Pano at the Help Desk inside?";
				next;
				mes "[Priestess Nemma]";
				mes "Penno will also redeem";
				mes "your Lottery Tickets for";
				mes "prizes, although she doesn't";
				mes "really seem to enjoy that job.";
				mes "Well, anyway, she'll help";
				mes "you out. See you later!";
				break;

			case 3:
				mes "[Priestess Nemma]";
				mes "You're here for the";
				mes "service? That's great~";
				mes "I hope you find the sense";
				mes "of calm that you can only";
				mes "get from goddess Freya~";
				break;

			case 4:
				mes "[Priestess Nemma]";
				mes "Oh, how sweet of you~";
				break;

			}

			goto L_End;

		}

	}

	else {
		if (MISC_QUEST & 8192) {
			cutin "ra_nemma01",2;
			mes "[Priestess Nemma]";
			mes "Welcome to our temple!";
			goto L_End;
		}

		if (ra_tem_q < 1) {
			mes "[Priestess Nemma]";
			mes "Hello, there!";
			mes "...............................";
			mes "Um, for some reason, the";
			mes "temple gate hasn't opened yet";
			mes "But it should be open now. Well";
			mes "this happens sometimes so...";
			next;
			mes "[Priestess Nemma]";
			mes "See, there's this auto locking";
			mes "system that was added to the";
			mes "gate when this temple was";
			mes "built, but now it's more of";
			mes "an annoyance than security.";
			next;
			mes "[Priestess Nemma]";
			mes "Every time someone messes";
			mes "with the lock, or if it breaks,";
			mes "we have to wait until it auto";
			mes "resets itself before it works";
			mes "again. No one can fix it";
			mes "really quickly, you know...";
			next;
			mes "[Priestess Nemma]";
			mes "^333333*Sniff*^000000 What should I do?";
			mes "The auto reset never takes";
			mes "this long, and I really need";
			mes "to go inside. ^333333*Sob*^000000 P-Panno!";
			mes "Panno, I neeeed heeeeelp~!";
			set ra_tem_q,1;
			goto L_End;
		}

		else if ((ra_tem_q >= 1) && (ra_tem_q < 10)) {
			mes "[Priestess Nemma]";
			mes "If the gate's locked, then";
			mes "I've just got to find that";
			mes "secret entrance. Some kids";
			mes "supposedly use it to enter";
			mes "and play pranks in the temple,";
			mes "but I don't know who they are...";
			next;
			mes "[Priestess Nemma]";
			mes "Panno would know";
			mes "what to do... I think.";
			mes "Ooh, Panno, help me!";
			goto L_End;
		}

		else if (ra_tem_q == 10) {
			cutin "ra_nemma04",2;
			mes "[Priestess Nemma]";
			mes "Oh, "+strcharinfo(0)+"!";
			mes "The gate just opened and";
			mes "I was able to get inside";
			mes "the temple! ^333333*Whew*^000000 I was";
			mes "getting really worried";
			mes "about it for awhile.";
			next;
			mes "[Priestess Nemma]";
			mes "This is the first time that the";
			mes "gate locked up since Panno";
			mes "was assigned to her post in";
			mes "the temple. I thought maybe";
			mes "something happened and";
			mes "she got in trouble, you know?";
			next;
			cutin "ra_nemma02",2;
			mes "[Priestess Nemma]";
			mes "Wait, wait...";
			mes "I'm outside. What if";
			mes "the gate locks up again?";
			mes "Oooh, what should I do?!";
			goto L_End;
		}

		else if (ra_tem_q == 11) {
			emotion e_ho;
			cutin "ra_nemma03",2;
			mes "[Priestess Nemma]";
			mes "Hey, "+strcharinfo(0)+"~!";
			mes "We reached our target!";
			mes "Isn't that great? We're no";
			mes "longer asking for donations,";
			mes "but you can still redeem your";
			mes "Lottery Tickets inside, okay?";
			goto L_End;
		}

		else if (ra_tem_q == 12) {
			mes "[Priestess Nemma]";
			mes "Mmm... I know what";
			mes "I can do! I can ask for";
			mes "Firecrackers! Yes, that'll";
			mes "be fun for the festival.";
			mes "Hey, do you know where";
			mes "those things are sold?";
			next;
			cutin "ra_nemma01",2;
			mes "[Priestess Nemma]";
			mes "I, uh, can't give you";
			mes "much... But if you would";
			mes "bring me some Firecrackers,";
			mes "then I'll pray for your good";
			mes "fortune. Sorry, but that's";
			mes "all I can really offer.";
			next;
			cutin "ra_nemma04",2;
			mes "[Priestess Nemma]";
			mes "Hey, bring me";
			mes "a lot of Firecrackers,";
			mes "like, ^FF000020 of them^000000! Thank";
			mes "you thank you thank you!";
			set ra_tem_q,13;
			goto L_End;
		}

		else if (ra_tem_q == 13) {
			mes "[Priestess Nemma]";
			mes "Hey, did you bring me";
			mes "^FF000020 Firecrackers^000000? Mmm?";
			next;
			if(select("Yes.:No, not yet.") == 1) {
				cutin "ra_nemma01",2;
				mes "[Priestess Nemma]";
				mes "Let's see...";
				next;
				if (countitem(12018) >= 20) {
					cutin "ra_nemma04",2;
					delitem 12018,20; //FireCracker";
					set BaseExp,BaseExp+200000;
					set ra_tem_q,14;
					mes "[Priestess Nemma]";
					mes "Yay!";
					mes "Firecrackers!";
					mes "Oh, let me pray";
					mes "for your good fortune!";
					next;
					mes "^3355FFPriestess Nemma prayed";
					mes "fervently for your good";
					mes "fortune. It feels like";
					mes "it's actually working...^000000";
					next;
					cutin "ra_nemma04",2;
					mes "[Priestess Nemma]";
					mes "I'm done!";
					mes "Now it's time";
					mes "to play! Hm, maybe";
					mes "our pope would like";
					mes "to see these too?";
					goto L_End;
				}
				cutin "ra_nemma02",2;
				mes "[Priestess Nemma]";
				mes "Awww...";
				mes "This isn't enough";
				mes "Firecrackers. I mean,";
				mes "I know it's like a donation,";
				mes "but still. How much fun are";
				mes "fireworks if there isn't a lot?";
			}

			else {
				cutin "ra_nemma01",2;
				mes "[Priestess Nemma]";
				mes "Awww...";
				mes "Well, I don't really";
				mes "have much to pay you";
				mes "back with, anyway~";
			}
			goto L_End;

		}

		else {
			cutin "ra_nemma01",2;
			mes "[Priestess Nemma]";
			mes "Welcome to our temple!";
		}
		goto L_End;

	}

L_DoNotDonate:
	mes "[Priestess Nemma]";
	mes "Oh, I see. Well, if you";
	mes "don't have enough zeny with";
	mes "you, then you can just come";
	mes "back and donate later. Our";
	mes "goddess Freya smiles on the";
	mes "generous and rewards the patient!";
	goto L_End;

L_NotEnoughZeny:
	mes "[Priestess Nemma]";
	mes "I'm sorry, but you have";
	mes "less than "+@Donate$+" zeny...";
	mes "I know it's asking a lot,";
	mes "but those are the rules that";
	mes "I've been told to follow, so...";
	mes "Well, maybe another time, yes?";
	goto L_End;


L_OverWeight:
	cutin "ra_nemma02",2;
	mes "[Priestess Nemma]";
	mes "I can scarcely believe it...";
	mes "You're carrying so much stuff,";
	mes "you don't even have enough";
	mes "room for a Lottery Ticket.";
	mes "You'd better put some of";
	mes "your things in Storage, yes?";
	next;
	cutin "ra_nemma01",2;
	mes "[Priestess Nemma]";
	mes "Don't worry, I'll still be";
	mes "here after you make more";
	mes "space available in your";
	mes "Inventory. Hurry back, and";
	mes "donate if you can, okay?";
	goto L_End;

L_ProgressReport1:
	cutin "ra_nemma03",2;
	mes "[Priestess Nemma]";
	mes "There you are~";
	mes "Thanks so much for";
	mes "your donation! I'm sure";
	mes "that Freya is smiling down";
	mes "upon you, and will reward";
	mes "you for your generosity~";
	goto L_End;

L_ProgressReport2:
	set .@Remaining,10000-$rachel_donate;
	cutin "ra_nemma03",2;
	mes "[Priestess Nemma]";
	mes "Thank you so much! We'll be";
	mes "continuing to accept donations";
	mes "until we reach our target. Once";
	mes "we receive "+.@Remaining+" more donations";
	mes "in increments of 50,000 zeny,";
	mes "our fundraiser will finish.";
	next;
	mes "[Priestess Nemma]";
	mes "If you're feeling so";
	mes "inclined, come back later";
	mes "and make another contribution.";
	mes "Thanks again, and may Freya";
	mes "always watch over you.";
	goto L_End;

L_End:
	close2;
	cutin "",255;
	end;

OnEmotion:
	emotion e_omg;
	end;

}

rachel,243,37,3	script	Kid#Candy Addict	921,{
	if ((ra_tem_q < 2) || (ra_tem_q > 9) || (MISC_QUEST & 8192)) {
		mes "[Kid]";
		mes "Hey! What's that";
		mes "smile for? You're not";
		mes "gonna come pat my head,";
		mes "are you? No! I hate that!";
		next;
		mes "[Kid]";
		mes "Don't come here!";
		mes "I don't want you to";
		mes "pat my head! Grrr...";
		mes "I-I'm warning you!";
		next;
		mes "[Kid]";
		mes "Hey, look at your";
		mes "clothes! Where did";
		mes "you come from, huh?";
		next;
		mes "[Kid]";
		mes "Are you from a";
		mes "different country?";
		next;
		mes "[Kid]";
		mes "Huh, huh?";
		mes "What country";
		mes "are you from?";
		next;
		mes "[Kid]";
		mes "Eh, whatever.";
		next;
		mes "[Kid]";
		mes "Oh hey, do";
		mes "you like candy?";

		if (ra_tem_q == 1) {
			next;
			switch(select("Not at all.:Yeah.:Sure, I love the stuff~:Not much.")) {

			case 1:
				mes "[Kid]";
				mes "Hmpf! Okay.";
				close;

			case 2:
				break;

			case 3:
				break;
			
			case 4:
				mes "[Kid]";
				mes "Oh. It's 'cause you're";
				mes "a grown-up. Why don't";
				mes "you like candies, anyway?";
				next;
				mes "[Kid]";
				mes "Why, huh?";
				mes "Tell me, tell";
				mes "me, how come?";
				close;

			}


			if (rand(1,2) != 2) {
				mes "[Kid]";
				mes "Oh yeah...?";
				next;
				mes "[Kid]";
				mes "But you're a grown-up,";
				mes "aren't you? Heh heh heh!";
				next;
				mes "[Kid]";
				mes "Candy is only for";
				mes "kids! Hahahahaah!";
				next;
				mes "[Kid]";
				mes "I tricked you!";
				mes "You big big dummy!";
			}

			else {
				mes "[Kid]";
				mes "Oh, you do?";
				mes "Does that mean";
				mes "that you have";
				mes "any candy, then?";
				next;
				mes "[Kid]";
				mes "I want one!";
				next;
				mes "[Kid]";
				mes "Hurry, give me one!";
				mes "Gimmie gimmie~!";
				next;
				if (countitem(529) > 0) {
					mes "[Kid]";
					mes "Mmm...";
					mes "If you give me";
					mes "some Candy, then I'll";
					mes "tell you something";
					mes "really cool, yeah?";
					next;
					if (select("Sure.:No.") == 1) {
						mes "[Kid]";
						mes "Yay~";
						next;
						mes "[Kid]";
						mes "Hah! Got you!";
						mes "I didn't want any";
						mes "candy anyway! Nyeh!";
						mes "But I like you, so";
						mes "I can tell you a secret!";
						next;
						mes "[Kid]";
						mes "Did you know that";
						mes "they always leave one";
						mes "of the windows to the temple";
						mes "unlocked? You spy on the";
						mes "priests inside. They're always";
						mes "fighting! Isn't that bad?";
						next;
						mes "[Kid]";
						mes "Oh well, they're adults,";
						mes "so I dunno. Maybe they...";
						mes "Mm. Well, I remember that";
						mes "fighting is supposed to be bad.";
						next;
						mes "[Kid]";
						mes "Awww, nuts!";
						mes "I just remembered!";
						mes "If you have candy, it";
						mes "must be from another";
						mes "country! I should have";
						mes "taken it from you. Dang it!";
						next;
						mes "[Kid]";
						mes "Oooh, I hate you";
						mes "now! Leave me alone!";
						set ra_tem_q,2;
						close;
					}
					mes "[Kid]";
					mes "You don't wanna";
					mes "share your candy?";
					mes "Hmpf! I guess you";
					mes "must really love it.";
					mes "...You big greedy.";
					close;
				}
				mes "[Kid]";
				mes "Wait, you don't have";
				mes "any Candy, huh? How can";
				mes "you tell me you like Candy";
				mes "when you don't carry any?";
				mes "Look at this! My pockets";
				mes "are full of candy!";
				next;
				mes "[Kid]";
				mes "See?";
				mes "Look at all";
				mes "this candy!";
				next;
				mes "[Kid]";
				mes "Yeah, you have to";
				mes "have at least this";
				mes "much candy to say";
				mes "that you like them.";
				mes "Hee hee hee hee!";
				next;
				mes "[Kid]";
				mes "Oh hey...";
				mes "Would you like to";
				mes "have some candy?";
				next;
				mes "[Kid]";
				mes "Haha! I tricked you!";
				mes "I'm not gonna share";
				mes "all this candy with you!";
				mes "All of it is for me!";
				next;
				mes "[Kid]";
				mes "...............................";
				mes "Um... Are you mad?";
				next;
				mes "[Kid]";
				mes "Oh...";
				mes "You are mad";
				mes "at me, aren't you?";
				next;
				mes "[Kid]";
				mes "Okay, okay.";
				mes "I'll tell you a really";
				mes "cool secret, so promise";
				mes "that you won't be mad anymore.";
				next;

				switch(select("No, thanks.:What's that?")) {

				case 1:
					mes "[Kid]";
					mes "Please~";
					break;

				case 2:
					mes "[Kid]";
					mes "Did you know that";
					mes "they always leave one";
					mes "of the windows to the temple";
					mes "unlocked? You spy on the";
					mes "priests inside. They're always";
					mes "fighting! Isn't that bad?";
					next;
					mes "[Kid]";
					mes "Oh well, they're adults,";
					mes "so I dunno. Maybe they...";
					mes "Mm. Well, I remember that";
					mes "fighting is supposed to be bad...";
					next;
					mes "[Kid]";
					mes "Now, I hope you";
					mes "won't be mad at";
					mes "me anymore...";
					mes "If you're not,";
					mes "then I'm gonna";
					mes "be madder at you!";
					set ra_tem_q,2;
					break;

				}

			}

		}
		close;

	}

	else if (ra_tem_q == 2) {
		mes "[Kid]";
		mes "You're leaving?";
		mes "Don't you want to";
		mes "watch me play Rock,";
		mes "Paper, Scissors?";
		next;
		mes "[Kid]";
		mes "Hey! I don't like";
		mes "the way you're looking";
		mes "at me. I don't like you";
		mes "watching me like that!";
		mes "Why don't you go away?";
		next;
		mes "[Kid]";
		mes "Gosh, I said, go away!";
		next;
		mes "[Kid]";
		mes "If you're that bored,";
		mes "why don't you peep through";
		mes "the windows in the temple,";
		mes "huh? Gosh! Some people!";
		close;
	}

}

ra_temple,67,209,0	script	zawa00	-1,3,3,{
OnTouch:
	if (ra_tem_q == 2) {
		mes "^3355FFYou notice a slightly";
		mes "open window that";
		mes "you can easily enter.^000000";
		next;
		if(select("Stay:Enter Through Window") == 2) {
			mes "^3355FFYou pull the window,";
			mes "and it smoothly opens.";
			mes "This is probably what";
			mes "those mischevious hits";
			mes "have been using to enter";
			mes "unnoticed into this temple.^000000";
			close2;
			warp "que_rachel",62,82;
			end;
		}
		mes "^3355FFYou decide that it's";
		mes "wrong to sneak into";
		mes "a place. But what if";
		mes "you don't get caught?^000000";
		close;
	}

	else if ((ra_tem_q >= 3) && (ra_tem_q < 10)) {
		mes "^3355FFWould you like to";
		mes "enter the temple";
		mes "through this window?^000000";
		next;
		if(select("Enter:Cancel") == 1) {
			close2;
			warp "que_rachel",62,82;
			end;
		}
		mes "^3355FFUsing this window is";
		mes "probably the only way";
		mes "that you can enter.^000000";
		close;
	}

	end;
}

que_rachel,63,82,0	script	Window#ra_temple	111,{
	mes "^3355FFThis window it open^000000";
	next;
	if(select("Stay:Exit Through Window") == 2) {
		close2;
		warp "ra_temple",73,208;
		end;
	}
	close;
}

que_rachel,60,80,0	script	zawa01	-1,5,5,{
OnTouch:
	if (ra_tem_q == 2) {
		mes "^3355FFIt's strangely";
		mes "dark in here.^000000";
		set ra_tem_q,3;
		close;
	}

	end;
}

que_rachel,59,112,0	script	zawa02	-1,10,10,{
OnTouch:
	if (ra_tem_q == 3) {
		mes "^3355FFYou hear some";
		mes "noise from the hallway";
		mes "towards the chapel. It";
		mes "sounds like there are";
		mes "several other people here.^000000";
		set ra_tem_q,4;
		close;
	}

	end;

}

que_rachel,94,139,0	script	zawa03	-1,10,10,{
OnTouch:
	if (ra_tem_q == 4) {
		mes "^3355FFYou hear noises of some";
		mes "commotion from the stairs.^000000";
		set ra_tem_q,5;
		close;
	}

	end;

}

que_rachel,132,70,0	script	zawa04	-1,10,10,{
OnTouch:
	if (ra_tem_q == 5) {
		mes " ";
		mes " ";
		mes "^ff0000Crash!^000000";
		next;
		mes "^3355FFYou hear something";
		mes "fall from the stairs,";
		mes "followed by noises that";
		mes "sound like a scuffle.^000000";
		set ra_tem_q,6;
		close;
	}

	end;

}

que_rachel,28,315,0	script	Bloody Spot	-1,5,5,{
OnTouch:
	if (ra_tem_q == 6) {
		mes "^3355FFThere's a spot on the";
		mes "ground that's darker than";
		mes "the rest of the floor...^000000";
		next;
		if (select("Investigate:Ignore") == 1) {
			mes "^3355FFIt's too dark to";
			mes "really see the spot^000000";
			next;
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "^3355FFIt smells a little bit";
			mes "like copper or iron. Blood";
			mes "has probably been spilled here.^000000";
			set ra_tem_q,7;
			close;
		}

		else {
			mes "^3355FFYou decide that your";
			mes "time would be better spent";
			mes "investigating something else.^000000";
			close;
		}

	}

	else if (ra_tem_q == 7) {
		mes "^3355FFThis dark spot on the";
		mes "ground is really creepy,";
		mes "no matter how many";
		mes "times you look at it.^000000.";
		next;
		if (select("Investigate Again:Ignore") == 1) {
			mes "^3355FFThe blood on the ground";
			mes "hasn't dried up yet, but";
			mes "it's probably cold by now.^000000";
			next;
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "^3355FFThe amount of blood";
			mes "on the ground is more";
			mes "than can be contained in just";
			mes "one person. You'd better get";
			mes "out of here before it's too late.^000000";
			set ra_tem_q,8;
			close;
		}

		else {
			mes "^3355FFYou decide that your";
			mes "time would be better spent";
			mes "investigating something else.^000000";
			close;
		}

	}

	else if (ra_tem_q == 8) {
		mes "^3355FFThis blood stain on the";
		mes "ground is a pretty bad";
		mes "sign. You might have to";
		mes "escape this place before";
		mes "whatever caused this much";
		mes "bleeding does the same to you.^000000";
		close;
	}

	end;
}

que_rachel,170,37,0	script	nemma01::nemma01	-1,5,5,{
OnTouch:
	if (ra_tem_q == 8) {
		mes "[???]";
		mes "Only the goddess exists.";
		next;
		mes "[???]";
		mes "Everyone must be";
		mes "ready for her coming.";
		next;
		mes "[???]";
		mes "Izlude, my hometown,";
		mes "I have come to this";
		mes "place to build.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Th-that's Priestess";
		mes "Panno's voice! But isn't";
		mes "she just outside the door?";
		mes "What exactly was she saying?";
		set ra_tem_q,9;
		close;
	}

	end;
}

que_rachel,175,37,0	duplicate(nemma01)	nemma02	-1,5,5
que_rachel,180,37,0	duplicate(nemma01)	nemma03	-1,5,5
que_rachel,165,37,0	duplicate(nemma01)	nemma04	-1,5,5
que_rachel,160,37,0	duplicate(nemma01)	nemma05	-1,5,5

que_rachel,169,18,0	script	Quest Temple Exit#ra_temple	45,2,2,{
	mes "^3355FFThe gate is closed.^000000";
	next;

	switch(select("Push Gate:Examine Gate:Kick Gate:Smash Gate with Weapon")) {

	case 1:
		mes "^3355FFYou push the gate";
		mes "with all of your might...";
		if (ra_tem_q == 9) {
			close2;
			set ra_tem_q,10;
			warp "ra_temple",119,175;
			end;
		}
		mes "But it won't even budge.^000000";
		break;

	case 2:
		mes "^3355FFThere's some strange";
		mes "machinery installed on";
		mes "the gate, and a slot where";
		mes "it looks you you can insert";
		mes "a card or permit. The lights";
		mes "are on, so it must be working.^000000";
		break;

	case 3:
		mes "^3355FFYou angrily kick the gate...";
		if (ra_tem_q == 9) {
			close2;
			set ra_tem_q,10;
			warp "ra_temple",119,175;
			end;
		}
		mes "But no matter how much rage";
		mes "you put into your kick, the";
		mes "gate refuses to open for you.";
		mes "Oh, and your foot hurts too.^000000.";
		break;

	case 4:
		mes "^3355FFWait! That's not";
		mes "a good idea. You can't";
		mes "smash down the gate to";
		mes "a holy place: heroes don't";
		mes "specialize in desecration.^000000";
		break;

	}
	close;

}

ra_temin,277,159,3	script	High Priest Zhed#rachel	932,{
	cutin "ra_gman",2;
	if (MISC_QUEST & 8192) {
		mes "[High Priest Zhed]";
		mes "I need to rest now";
		mes "But I thank you for";
		mes "stopping by to check";
		mes "up on me, "+strcharinfo(0)+".";
		goto L_End;
	}

	if (lost_boy == 12) {
		mes "[High Priest Zhed]";
		mes "For some reason, you look";
		mes "familiar to me. Are you supposed";
		mes "to be here? Otherwise, you should";
		mes "leave this place if you don't have";
		mes "the proper authorization.";
		next;
		select("I'm here on Vincent's behalf");
		mes "[High Priest Zhed]";
		mes "Vincent sent you? I see.";
		mes "You must have been looking";
		mes "for me. I am High Priest Zhed,";
		mes "and I understand that you";
		mes "have a package for me.";
		next;
		mes "[High Priest Zhed]";
		mes "Usually, Vincent doesn't";
		mes "trust strangers to deliver";
		mes "these packages, but perhaps";
		mes "this was necessitated by some";
		mes "strange circumstance. Anyway,";
		mes "let's see what he sent me.";
		next;
		cutin "ra_gman2",2;
		mes "[High Priest Zhed]";
		mes "Hm? What's this?";
		mes "Vincent sent a note?";
		mes "I suppose this must be";
		mes "important. Give me just a";
		mes "moment to read this, please.";
		next;
		mes "[High Priest Zhed]";
		mes "..................................";
		mes "Hrrrmm. Vincent. Now";
		mes "I understand. So he was being";
		mes "intentionally cold towards Jenny";
		mes "and Phoebe so other people";
		mes "wouldn't get suspicious.";
		next;
		cutin "ra_gman",2;
		mes "[High Priest Zhed]";
		mes "Still, I don't think he";
		mes "had to do that--it might";
		mes "have been a little too";
		mes "much. Well, I really";
		mes "appreciate your help";
		mes "in this matter, adventurer.";
		next;
		mes "[High Priest Zhed]";
		mes "But tell me, did you only";
		mes "help Vincent and risk your";
		mes "life because you were being";
		mes "paid? Were you only being";
		mes "motivated by the money?";
		next;
		select("Actually... I was just curious.");
		mes "[High Priest Zhed]";
		mes "You were doing this just to";
		mes "satisfy your curiosity? Heh";
		mes "heh, that's very interesting";
		mes "That's also the best attitude";
		mes "for a brave adventurer. I like";
		mes "that. May I have your name?";
		next;
		select("Tell him your name.");
		mes "[High Priest Zhed]";
		mes ""+strcharinfo(0)+"...";
		mes "Yes, that's a fine name.";
		mes "It suits you well. I'll be sure";
		mes "to remember that. Again, let";
		mes "me thank you for risking your";
		mes "life to retrive my belongings.";
		next;
		mes "[High Priest Zhed]";
		mes "I shall be praying for";
		mes "Freya to guide and protect";
		mes "you in your travels. Peace";
		mes "be with you, "+strcharinfo(0)+".";
		set lost_boy,13;
		specialeffect2 253;
		set BaseExp,BaseExp+900000;
		goto L_End;
	}

	else if ((lost_boy == 13) && (ra_tem_q < 14)) {
		mes "[High Priest Zhed]";
		mes "Ah, "+strcharinfo(0)+"...";
		mes "I appreciate that you've";
		mes "managed to retrieve my";
		mes "belongings for me. You are";
		mes "a truly talented adventurer.";
		mes "May Freya protect you.";
		goto L_End;
	}

	else {
		if (lost_boy < 13) {
			mes "[High Priest Zhed]";
			mes "May Freya be with you.";
		}
		else {
			if (ra_tem_q == 14) {
				mes "[High Priest Zhed]";
				mes "Ah, good, I was hoping you'd";
				mes "show up here sooner or later";
				mes "I have a favor to ask of you";
				mes "since I'm too busy to do it";
				mes "myself, and I trust you more";
				mes "than any other adventurer.";
				next;
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "However, before I give you";
				mes "the details, you must know";
				mes "that this favor must be kept";
				mes "secret. In other words, once";
				mes "I explain the task, you must";
				mes "accept my request.";
				next;
				if (select("Let me think about it.:Yes, sure.") == 1) {
					cutin "ra_gman",2;
					mes "[High Priest Zhed]";
					mes "Ah, I'm relieved to see";
					mes "that you accept. Don't worry,";
					mes "this task isn't complicated,";
					mes "nor will it require much";
					mes "in the way of sacrifice.";
					next;
					cutin "ra_gman2",2;
					mes "[High Priest Zhed]";
					mes "As you may already know,";
					mes "our country of Arunafeltz";
					mes "worships the goddess Freya";
					mes "There's almost no separation";
					mes "between politics, society";
					mes "and our religion, really.";
					next;
					cutin "ra_gman",2;
					mes "[High Priest Zhed]";
					mes "Now, the leader of our";
					mes "national religion, our pope,";
					mes "is a direct servant of Freya";
					mes "and delivers her messages";
					mes "to us. As such, she must live";
					mes "by very strict guidelines.";
					next;
					mes "[High Priest Zhed]";
					mes "Our pope is curious about";
					mes "the outside world and wishes";
					mes "to learn more about what lies";
					mes "beyond Arunafeltz, but she";
					mes "cannot come easily by this";
					mes "sort of knowledge.";
					next;
					mes "[High Priest Zhed]";
					mes "Firstly, she cannot leave";
					mes "Rachel, the place where the";
					mes "spirit of goddess Freya dwells";
					mes "Secondly, all citizens and priests are forbidden to leave the city in";
					mes "order to preserve our sanctity.";
					next;
					mes "[High Priest Zhed]";
					mes "These are implicit rules that";
					mes "normally aren't discussed openly,";
					mes "but everyone follows them to";
					mes "prevent from being stigmatized.";
					mes "Frankly, I think it's somewhat shameful, but we're working on it.";
					next;
					mes "[High Priest Zhed]";
					mes "Furthermore, our pope must";
					mes "maintain her image of aloof";
					mes "piety, so it'd be inappropriate of her to openly question outside";
					mes "world affairs. Although, such";
					mes "knowledge would benefit her.";
					next;
					mes "[High Priest Zhed]";
					mes "That is why the high priests";
					mes "decided to enlist a trustworthy";
					mes "adventurer to inform our pope";
					mes "about the outside world. Now";
					mes "you understand why I've asked";
					mes "you to keep all of this secret.";
					next;
					mes "[High Priest Zhed]";
					mes "You won't need to divulge";
					mes "outrageous secrets or anything";
					mes "like that. I presume mundane";
					mes "details would be enough to";
					mes "please her. Just let her be";
					mes "able to envision your homeland.";
					next;
					mes "[High Priest Zhed]";
					mes "Personally, I think it would";
					mes "be refreshing for our pope to";
					mes "hear a few of your stories as";
					mes "she is always worshipping";
					mes "our goddess on the behalf of";
					mes "everyone in our glorious city.";
					next;
					mes "[High Priest Zhed]";
					mes "Unfortunately, I cannot escort";
					mes "you to the priestess, but I will";
					mes "relate the means to which you";
					mes "can gain an audience with her";
					mes "First, you will need a ^FF0000High";
					mes "Priest's Recommendation^000000";
					next;
					mes "[High Priest Zhed]";
					mes "I will write that for you, so";
					mes "there's no need to concern";
					mes "yourself with that. Next, you";
					mes "will need to gather ^FF000040 Glacial";
					mes "Hearts^000000 as symbolic proof of";
					mes "your strength and purity.";
					next;
					mes "[High Priest Zhed]";
					mes "While I finish writing this";
					mes "recommendation, let me tell";
					mes "you how to get to the pope's";
					mes "office where you must go once";
					mes "you gather 40 Glacial Hearts.";
					next;
					mes "[High Priest Zhed]";
					mes "Head west from the chapel";
					mes "in the center of the temple,";
					mes "and then enter a door guarded";
					mes "by two soldiers. Show them your";
					mes "recommendation and Glacial Hearts, and they should grant you passage.";
					next;
					mes "[High Priest Zhed]";
					mes "Ah, here you are";
					mes "I've finished writing";
					mes "your recommendation.";
					mes "Well then, I guess I'll";
					mes "see you after you've";
					mes "completed this task.";
					next;
					mes "^3355FFYou received a High";
					mes "Priest's recommendation.^000000";
					set ra_tem_q,15;
					goto L_End;

				}
				mes "[High Priest Zhed]";
				mes "I understand, but if you";
				mes "change your mind, please";
				mes "come back and let me know";
				mes "It's very hard for me to find";
				mes "someone that I can really";
				mes "rely on to do this for me.";
				goto L_End;
			}

			else if ((ra_tem_q == 15) || (ra_tem_q == 16)) {
				mes "[High Priest Zhed]";
				mes "Once you gather";
				mes "^FF000040 Glacial Hearts^000000,";
				mes "you can show them, along";
				mes "with the recommendation I've";
				mes "written for you, to the soldiers";
				mes "guarding the pope's office.";
				next;
				mes "[High Priest Zhed]";
				mes "When you're ready to go";
				mes "to the pope's office, just";
				mes "head west from the chapel";
				mes "to the center of the temple:";
				mes "this is where the entrance is.";
				goto L_End;

			}

			else if (ra_tem_q == 17) {
				mes "[High Priest Zhed]";
				mes "Ah, thank you so much";
				mes "for spending some time";
				mes "with the pope for me";
				mes "I can tell that she really";
				mes "enjoyed speaking to you.";
				next;
				mes "[High Priest Zhed]";
				mes "I am curious, though...";
				mes "Our pope is unaccustomed";
				mes "to speaking with outsiders,";
				mes "so I assume that you have";
				mes "your own questions after";
				mes "your conversation with her.";
				next;
				select("Well, she did mention some Holy Ground...");
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "What...?!";
				mes "She mentioned";
				mes "the Holy Ground...?!";
				next;
				cutin "ra_gman",2;
				mes "[High Priest Zhed]";
				mes "The Holy Ground is a place";
				mes "where all humans, including";
				mes "the pope, have been forbidden.";
				mes "We used to allow people to";
				mes "visit in the past, but...";
				next;
				mes "[High Priest Zhed]";
				mes "Only the gods can access";
				mes "that place now. Listen, if";
				mes "the other priests ask about";
				mes "your conversation with the";
				mes "pope, please do not make any";
				mes "mention of the Holy Ground.";
				next;
				mes "[High Priest Zhed]";
				mes "Please don't ask me";
				mes "why, but believe me that";
				mes "it's very important that";
				mes "you feign ignorance of the";
				mes "Holy Ground's existence!";
				next;
				mes "[????]";
				mes "Excuse me, Zhed?";
				mes "May I speak with you";
				mes "for a moment? I need";
				mes "to talk to you about";
				mes "a private matter.";
				next;
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "Er, yes, of course!";
				mes "Excuse me for a moment...";
				mes "While you're waiting for me,";
				mes "why don't you relax in the";
				mes "next room? Don't forget:";
				mes "there is no Holy Ground.";
				close2;
				cutin "",255;
				select("Okay.");
				warp "ra_temin",297,156;
				set ra_tem_q,18;
				end;

			}

			else if (ra_tem_q == 18) {
				mes "[High Priest Zhed]";
				mes "Er, I thought I asked you";
				mes "to wait in the next room?";
				close2;
				cutin "",255;
				warp "ra_temin",297,156;
				end;
			}


			else if (ra_tem_q == 19) {
				mes "[High Priest Zhed]";
				mes "I apologize for making";
				mes "you wait for so long: I had";
				mes "some crucial matters to";
				mes "discuss. Now, that look";
				mes "on your face tells me that";
				mes "you have a pressing question.";
				next;
				select("Ask about Bekento");
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "Bekento? Ah, you must";
				mes "have been speaking to";
				mes "High Priestess Niren.";
				mes "She's the only one that";
				mes "calls me that. You see, my";
				mes "full name is Zhed Bekento.";
				next;
				cutin "ra_gman",2;
				mes "[High Priest Zhed]";
				mes "Speaking of which...";
				mes "Did Niren ask you anything";
				mes "or tell you something that";
				mes "was out of the ordinary?";
				next;
				mes "^3355FFAfter a little hesitation,";
				mes "you tell High Priest Zhed";
				mes "about your conversation";
				mes "with High Priestess Niren.^000000";
				next;
				mes "[High Priest Zhed]";
				mes "Hmm, I see.";
				mes "Yes. That sounds";
				mes "like something she'd do.";
				mes "I'll explain it all later, but";
				mes "right now, I need to rest.";
				mes "I'm getting old, you know.";
				next;
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "Ah, but before you go, let";
				mes "me warn you not to ^FF0000go near";
				mes "the Holy Ground^000000. I repeat,";
				mes "stay away from the Holy Ground.";
				next;
				mes "^3355FFThe Holy Ground...";
				mes "Why is High Priest Zhed";
				mes "so adamant about protecting";
				mes "the Holy Ground? Regardless...";
				mes "If you want to go there, then";
				mes "just go there. Who'll stop you?^000000";
				set ra_tem_q,20;
				goto L_end;
			}

			else if ((ra_tem_q >= 20) && (ra_tem_q < 22)) {
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "Whatever you do, whatever";
				mes "journeys you take, please";
				mes "make sure that you stay";
				mes "away from the Holy Ground!";
				next;
				mes "^3355FFNow, more than ever,";
				mes "you feel compelled to";
				mes "enter the Holy Ground.^000000";
				goto L_End;

			}

			else if (ra_tem_q == 23) {
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "Oh, it's you.";
				mes "Let me guess...";
				mes "After everything I said,";
				mes "you still went ahead and";
				mes "visited the Holy Ground,";
				mes "didn't you? Oh, well...";
				next;
				select("Did something happen?");
				cutin "ra_gman",2;
				mes "[High Priest Zhed]";
				mes "Well, honestly, I've been";
				mes "temporarily suspended from";
				mes "work, but no need to worry.";
				mes "It's not your fault. I've been";
				mes "in conflict with the other High";
				mes "Priests for a while, anyway.";
				next;
				mes "[High Priest Zhed]";
				mes "Please don't worry about it.";
				mes "If not this, they would have";
				mes "found some other way to attack";
				mes "me. It would only be a matter";
				mes "of time. They're exaggerating";
				mes "your intrusion for their benefit.";
				next;
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "All I want is for";
				mes "Arunafeltz to be safe";
				mes "and at peace. I hope this";
				mes "land is not twisted by the";
				mes "greedy humans. I hope all will";
				mes "work according to Freya's will.";
				next;
				cutin "ra_gman",2;
				mes "[High Priest Zhed]";
				mes "Ah, and please do not";
				mes "blame Niren. She must have";
				mes "her own reasons for her own";
				mes "actions. She has changed";
				mes "much but in the end, I think";
				mes "that we are still friends.";
				next;
				mes "[High Priest Zhed]";
				mes "One last thing:";
				mes "try not to let the";
				mes "other priests catch you";
				mes "doing anything forbidden.";
				mes "It'd be a little embarassing";
				mes "for me, you understand.";
				next;
				mes "[High Priest Zhed]";
				mes "Still, you were secretly";
				mes "invited here, so I'm sure";
				mes "that only a very few of them";
				mes "would be able to recognize";
				mes "you. In the end, you'll do";
				mes "what you will, right?";
				next;
				cutin "ra_gman2",2;
				mes "[High Priest Zhed]";
				mes "...I think I know what";
				mes "you saw in the Holy Ground.";
				mes "I'm sure that you have much";
				mes "to ask, but now isn't the time";
				mes "to seek for answers. Please,";
				mes "you must be patient.";
				next;
				mes "[High Priest Zhed]";
				mes "Until the right time";
				mes "comes, I want you not";
				mes "to tell anyone else what";
				mes "you saw in the Holy Ground.";
				next;
				mes "[High Priest Zhed]";
				mes "Well then, adventurer,";
				mes "thank you for coming by.";
				mes "I need to go lay down now,";
				mes "so if you'll let me rest...";
				close2;
				set MISC_QUEST,MISC_QUEST | 8192;
				set ra_tem_q,0;
				cutin "",255;
				specialeffect2 253;
				set BaseExp,BaseExp+900000;
				set JobExp,JobExp+600000;
				end;

			}

		}

	}

L_End:
	close2;
	cutin "",255;
	end;
}

ra_temin,170,46,3	script	Panno#rachel	920,{
	cutin "ra_fano03",2;
	if (MISC_QUEST & 8192) goto L_Redeem_Tickets;

	if (ra_tem_q == 10) {
		mes "[Priestess Panno]";
		mes "Good day.";
		next;

		switch(select("Redeem Lottery Tickets:Temple Information:Hey, did you open the gate?")) {

		case 1:
			cutin "ra_fano01",2;
			mes "[Priestess Panno]";
			mes "You... still have";
			mes "Lottery Tickets from";
			mes "making donations for";
			mes "the festival? Look up the";
			mes "word ''punctuality'' in the";
			mes "dictionary. It might help you.";
			next;
			mes "[Priestess Panno]";
			mes "Fine. You really";
			mes "want to exchange your";
			mes "Lottery Tickets? It's my job";
			mes "to ask and make sure, you";
			mes "know, in case you were saving";
			mes "them for some weird reason.";
			next;
			if (select("Yes:No") == 1) {
				mes "[Priestess Panno]";
				mes "Here we go";
				mes "Excited? Mm";
				mes "I can redeem only";
				mes "1 Lottery Ticket at";
				mes "a time. Your reward";
				mes "for this ticket is...";
				next;
				cutin "ra_fano02",2;
				if (countitem(7570) > 0) {
					mes "[Priestess Panno]";
					mes "^FF0000This^000000. It's been in our";
					mes "storage for a while, but";
					mes "I hope this is acceptable";
					mes "as a token of the temple's";
					mes "gratitude. May Freya smile";
					mes "upon you for your generosity...";
					delitem 7570,1;
					set .@bonus_donate,rand(100);
					if (.@bonus_donate == 99) {
						set .@bonus_donate2,rand(100);
						if (.@bonus_donate2 > 0 && .@bonus_donate2 < 11) getitem 616,1;		//Old Card Album 0.1%
						else if (.@bonus_donate2 > 10 && .@bonus_donate2 < 31) getitem 617,1;	//Old Violet Box 0.2%
						else if (.@bonus_donate2 > 30 && .@bonus_donate2 < 61) getitem 603,1;	//Old Blue Box 0.3%
						else getitem 607,1; //Yggdrasil Berry 0.4%
					}
					else if (.@bonus_donate > 88 && .@bonus_donate < 96) getitem 644,1;	//Gift Box 7%
					else if (.@bonus_donate > 76 && .@bonus_donate < 89) getitem 607,1;	//Yggdrasil Berry 12%
					else if (.@bonus_donate > 65 && .@bonus_donate < 77) getitem 505,1;	//Blue Potion 11%
					else if (.@bonus_donate > 57 && .@bonus_donate < 66) getitem 604,1;	//Dead Branch 8%
					else if (.@bonus_donate > 45 && .@bonus_donate < 58) getitem 608,1;	//Yggdrasil Seed 12%
					else if (.@bonus_donate > 5 && .@bonus_donate < 11) getitem 518,1;	//Honey 5%
					else if (.@bonus_donate > 0 && .@bonus_donate < 6) getitem 526,1;	//Royal Jelly 5%
					else getitem 547,1; //Condensed White Potion 39%
					goto L_End;
				}

				mes "[Priestess Panno]";
				mes "You...";
				mes "Don't have any Lottery";
				mes "Tickets to redeem";
				mes "We're not distributing";
				mes "them now, but maybe you";
				mes "can ask your friends for one.";
				next;
				cutin "ra_fano03",2;
				mes "[Priestess Panno]";
				mes "May Freya be with you.";
				goto L_End;
			}

			else {
				mes "[Priestess Panno]";
				mes "You can redeem your";
				mes "Lottery Tickets at any";
				mes "time, so please visit";
				mes "me at your leisure.";
				mes "Go with Freya.";
				goto L_End;
			}
			goto L_End;

		case 2:
			cutin "ra_fano01",2;
			mes "[Priestess Panno]";
			mes "The Chapel is located";
			mes "over the wall behind me";
			mes "Our pope's office and chambers";
			mes "are upstairs. You can only go";
			mes "there if you have special";
			mes "authorization.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "......";
			mes ".........";
			next;
			mes "[Priestess Panno]";
			mes "............";
			mes ".........";
			mes "......";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "...?";
			next;
			cutin "ra_fano02",2;
			mes "[Priestess Panno]";
			mes "You come to a temple";
			mes "to pray, not to look";
			mes "around. Or chit-chat";
			mes "with the priestesses";
			mes "like me. Don't forget it.";
			next;
			cutin "ra_fano02",2;
			mes "[Priestess Panno]";
			mes "The offices for the High";
			mes "Priests are located on each";
			mes "side of the hallway. However,";
			mes "you can only enter if you've";
			mes "been permitted beforehand.";
			goto L_End;

		case 3:
			cutin "ra_fano02",2;
			mes "[Priestess Panno]";
			mes "Gate...?";
			next;
			select("The locked gate to the temple!");
			mes "[Priestess Panno]";
			mes "I don't know";
			mes "what you mean.";
			next;
			select("Explain");
			mes "["+strcharinfo(0)+"]";
			mes "I think that Priestess Nemma";
			mes "has been worried about the";
			mes "gate being broken, though";
			mes "it hasn't been like that since";
			mes "you've started your position";
			mes "here at the temple.";
			next;
			mes "[Priestess Panno]";
			mes "Worried...?";
			mes "Yes, my twin sister";
			mes "has been known to";
			mes "do a lot of that, and cry";
			mes "for my help. Am I right?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "It's weird";
			mes "...She said that the gate";
			mes "should automatically fix";
			mes "itself, but it hasn't been";
			mes "doing it lately. She was";
			mes "acting really funny..";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "She was talking about";
			mes "the temple's history and";
			mes "how the security system was";
			mes "built. Then she mentioned you,";
			mes "so I get the feeling you might";
			mes "know something about this.";
			next;
			mes "[Priestess Panno]";
			mes ".........";
			set ra_tem_q,11;
			goto L_End;

		}

	}

	else if (ra_tem_q == 11) {
		mes "["+strcharinfo(0)+"]";
		mes "I remember now...!";
		mes "I was there when the gate";
		mes "closed, and I heard someone";
		mes "with your exact voice whisper";
		mes "something to magically open";
		mes "the gate! What's that all about?";
		next;
		mes "[Priestess Panno]";
		mes "......";
		mes ".........";
		mes "............";
		next;
		mes "[Priestess Panno]";
		mes "......";
		mes ".........";
		mes "............";
		mes "We... I mean....";
		next;
		cutin "ra_fano01",2;
		mes "[Priestess Panno]";
		mes "Nemma and I are descended";
		mes "from a family of great alchemists.";
		mes "They went on a long, religious";
		mes "pilgrimage and ended up here.";
		mes "They are the ones that built";
		mes "this temple and security system.";
		next;
		mes "[Priestess Panno]";
		mes "In a sense, this temple";
		mes "is the tomb of our ancestors,";
		mes "who left Rune-Midgarts and";
		mes "built this city of Rachel about";
		mes "a thousand years ago.";
		next;
		mes "[Priestess Panno]";
		mes "Over the generations, many";
		mes "Alchemists left Rune-Midgarts";
		mes "and settled here, converting";
		mes "the desert into green fields.";
		mes "This temple was supposed";
		mes "be a shelter from intruders.";
		next;
		mes "[Priestess Panno]";
		mes "My ancester designed the";
		mes "temple security system to";
		mes "require a special permit in";
		mes "order to access the temple";
		mes "But the invaders never came,";
		mes "and we didn't need the permits.";
		next;
		mes "[Priestess Panno]";
		mes "The special permits were";
		mes "disposed, but the automatic";
		mes "security system was left on";
		mes "the gate, just in case. Now,";
		mes "I've heard that the security";
		mes "system has been malfunctioning.";
		next;
		cutin "ra_fano03",2;
		mes "[Priestess Panno]";
		mes "However, that's not possible.";
		mes "Even by today's standards, the";
		mes "system is perfectly designed.";
		mes "While I was praying in the";
		mes "Chapel some time ago, I found";
		mes "what is causing the gate problems.";
		next;
		mes "[Priestess Panno]";
		mes "Suddenly, the lights went";
		mes "out, and I could only barely";
		mes "see distinguish my surroundings.";
		mes "I was about to go outside when";
		mes "I heard a noise from the stairs.";
		next;
		cutin "ra_fano02",2;
		mes "[Priestess Panno]";
		mes "From what I can tell,";
		mes "someone is transporting";
		mes "something out of the Holy";
		mes "Grounds. I don't know what";
		mes "they keep there, though.";
		mes "I'm not a high rank Priestess.";
		next;
		mes "[Priestess Panno]";
		mes "I'm not sure if I want";
		mes "to find out what's there";
		mes "I heard something that";
		mes "sounded like a horrible";
		mes "monster's howl. It was";
		mes "incredibly frightening.";
		next;
		mes "[Priestess Panno]";
		mes "I panicked, ran to";
		mes "my desk at the front,";
		mes "and just recited the secret";
		mes "password passed down from my";
		mes "ancestors to open the gate.";
		next;
		cutin "ra_fano01",2;
		mes "[Priestess Panno]";
		mes "You see, my ancestors";
		mes "included the secret password";
		mes "and voice recognition feature";
		mes "into the gate in case something";
		mes "after they disposed of the";
		mes "temple permits--just in case.";
		next;
		mes "[Priestess Panno]";
		mes "The real reason why the gate";
		mes "is acting strangely is not";
		mes "because the gate is broken,";
		mes "but because someone is sneaking";
		mes "in and out of the Holy Ground.";
		next;
		mes "[Priestess Panno]";
		mes "Whoever they are, they";
		mes "must be using one of the";
		mes "old temple permits in order";
		mes "to cover their tracks. Now,";
		mes "you know everything.";
		next;
		cutin "ra_fano01",2;
		mes "[Priestess Panno]";
		mes "You'd better not";
		mes "reveal what you learned";
		mes "from me. Otherwise, I'm";
		mes "sure we'll end up dead.";
		mes "Excuse me now, I need";
		mes "to get back to work.";
		set ra_tem_q,12;
		goto L_End;
	}

	else if (ra_tem_q >= 12) {
		L_Redeem_Tickets:
		cutin "ra_fano03",2;
		mes "[Priestess Panno]";
		mes "Good day.";
		mes "Have you come to";
		mes "redeem Lottery Tickets?";
		next;
		if (select("Yes:No") == 1) {
			mes "[Priestess Panno]";
			mes "Here we go";
			mes "Excited? Mm";
			mes "I can redeem only";
			mes "1 Lottery Ticket at";
			mes "a time. Your reward";
			mes "for this ticket is...";
			next;
			cutin "ra_fano02",2;
			if (countitem(7570) > 0) {
				mes "[Priestess Panno]";
				mes "^FF0000This^000000. It's been in our";
				mes "storage for a while, but";
				mes "I hope this is acceptable";
				mes "as a token of the temple's";
				mes "gratitude. May Freya smile";
				mes "upon you for your generosity...";
				delitem 7570,1;
				set .@bonus_donate,rand(100);
				if (.@bonus_donate == 99) {
					set .@bonus_donate2,rand(100);
					if (.@bonus_donate2 > 0 && .@bonus_donate2 < 11) getitem 616,1;		//Old Card Album - 0.1%
					else if (.@bonus_donate2 > 10 && .@bonus_donate2 < 31) getitem 617,1;	//Old_Violet_Box - 0.2%
					else if (.@bonus_donate2 > 30 && .@bonus_donate2 < 61) getitem 603,1;	//Old_Blue_Box - 0.3%
					else
 getitem 607,1; //Yggdrasilberry - +0.4%
				}
				else if (.@bonus_donate > 88 && .@bonus_donate < 96) getitem 644,1;	//Gift Box
				else if (.@bonus_donate > 76 && .@bonus_donate < 89) getitem 607,1;	//Yggdrasil Berry
				else if (.@bonus_donate > 65 && .@bonus_donate < 77) getitem 505,1;	//Blue Potion
				else if (.@bonus_donate > 57 && .@bonus_donate < 66) getitem 604,1;	//Dead Branch
				else if (.@bonus_donate > 45 && .@bonus_donate < 58) getitem 608,1;	//Yggdrasil Seed
				else if (.@bonus_donate > 5 && .@bonus_donate < 11) getitem 518,1;	//Honey
				else if (.@bonus_donate > 0 && .@bonus_donate < 6) getitem 526,1;	//Royal Jelly 
				else getitem 547,1; //White Condensed Potion 39%
				goto L_End;
			}

			mes "[Priestess Panno]";
			mes "You...";
			mes "Don't have any Lottery";
			mes "Tickets to redeem";
			mes "We're not distributing";
			mes "them now, but maybe you";
			mes "can ask your friends for one.";
			next;
			cutin "ra_fano03",2;
			mes "[Priestess Panno]";
			mes "May Freya be with you.";
			goto L_End;
		}

		else {
			if (ra_tem_q == 12) {
				cutin "ra_fano01",2;
				mes "[Priestess Panno]";
				mes "I already told you";
				mes "everything I know.";
				mes "Remember to keep";
				mes "quiet about what I said.";
			}

			else {
				cutin "ra_fano02",2;
				mes "[Priestess Panno]";
				mes "This is a holy place";
				mes "Behave yourself, and";
				mes "respect those who have";
				mes "come here just to worship.";
			}

		}

	}

	else {
		cutin "ra_fano02",2;
		mes "[Priestess Panno]";
		mes "This is a holy place";
		mes "Behave yourself, and";
		mes "respect those who have";
		mes "come here just to worship.";
	}
L_End:
	close2;
	cutin "",255;
	end;
}

ra_temin,134,128,3	script	Pope's Office Guard#rac::raofficeguard	927,{
	if (MISC_QUEST & 8192) {
		mes "[Pope's Office Guard]";
		mes "I'm sorry, but the pope";
		mes "is officiating a service";
		mes "now. Please come back";
		mes "after the service is ended.";
		close;
	}

	if ((ra_tem_q < 15) || (ra_tem_q == 15) && (countitem(7561) > 40)) {
		mes "[Pope's Office Guard]";
		mes "I'm sorry, but outsiders";
		mes "typically aren't allowed";
		mes "to visit the pope without";
		mes "special authorization.";
		close;
	}


	else {
		if (ra_tem_q == 15) {
			mes "[Pope's Office Guard]";
			mes "Hm? What's that you have";
			mes "there? Oh, you've gathered";
			mes "40 Glacial Hearts and brought";
			mes "a recommendation letter from";
			mes "a High Priest? Most impressive.";
			next;
			mes "[Pope's Office Guard]";
			mes "I think I know why you're";
			mes "here. Thanks for bringing";
			mes "those to me, and I'll let you";
			mes "enter and see the pope";
			mes "Welcome, brave "+strcharinfo(0)+".";
			set ra_tem_q,16;
			close;
		}

		if (ra_tem_q == 16) {
			mes "[Pope's Office Guard]";
			mes "The pope is inside";
			mes "expecting you, so please";
			mes "don't keep her waiting long.";
			close;
		}

		else {
			mes "[Pope's Office Guard]";
			mes "I'm sorry, but the pope";
			mes "is officiating a service";
			mes "now. Please come back";
			mes "after the service is ended.";
			close;
		}

	}

}

ra_temin,134,134,3	duplicate(raofficeguard)	Pope's Office Guard#2ra	927

ra_temin,134,131,0	script	gyoin1#rachel	45,1,1,{
OnTouch:
	if ((ra_tem_q > 16) || (MISC_QUEST & 8192)){
		mes "[Pope's Office Guard]";
		mes "I'm sorry, but the pope";
		mes "is officiating a service";
		mes "now. Please come back";
		mes "after the service is ended.";
		close;
	}

	if (ra_tem_q < 16) {
		mes "^3355FFThe door is locked.^000000";
		close;
	}
	else if (ra_tem_q == 16) {
		warp "ra_temin",276,239;
	}

	end;
}

ra_temsky,95,99,6	script	Priest#1rachel	935,{
	mes "[Priest]";
	mes "May Freya be with you.";
	close;
}

ra_temsky,93,97,6	script	Male Follower#1rachel::ramale	927,{
	mes "[Male Follower]";
	mes "May Freya be with you.";
	close;
}

ra_temsky,90,95,6	duplicate(ramale)	Male Follower#2rachel	927
ra_temsky,98,59,6	duplicate(ramale)	Male Follower#3rachel	927

ra_temsky,104,99,4	script	Priestess#1rachel	920,{
	mes "[Priestess]";
	mes "May Freya be with you.";
	close;
}

ra_temsky,106,97,4	script	Female Follower#1rachel::rafemale	917,{
	mes "[Female Follower]";
	mes "May Freya be with you.";
	close;
}

ra_temsky,108,95,4	duplicate(rafemale)	Female Follower#2rachel	917
ra_temsky,101,59,4	duplicate(rafemale)	Female Follower#3rachel	917

ra_temsky,99,99,5	script	Pope#rachel	936,{
	if (ra_tem_q == 16) {
		cutin "ra_bishop",2;
		mes "^3355FFTh-this little";
		mes "girl is the pope...?!^000000";
		next;
		mes "[Pope]";
		mes "...............................";
		mes "..........................Um...";
		mes "W-welcome. Is something";
		mes "wrong? Oh, I know, it's my";
		mes "eyes. I'm sorry if they";
		mes "scare you a little bit.";
		next;
		select("No, not at all...!");
		mes "[Pope]";
		mes "......";
		mes "......";
		mes "......You know, my appearance...";
		next;
		mes "[Pope]";
		mes "It's alright. Actually,";
		mes "I'm used to it. People";
		mes "are usually a little shocked";
		mes "the first time they see me.";
		mes "So... Um... Where do you";
		mes "come from, "+strcharinfo(0)+"?";
		next;
		input @input$;
		mes "[Pope]";
		mes @input$ +"...?";
		mes "I think I might have heard";
		mes "about that place before.";
		mes "Wow... What did you do";
		mes "when you lived there?";
		next;
		input @input$;
		mes "[Pope]";
		mes @input$ +"...?";
		mes "Wow, that sounds quite";
		mes "extraordinary. Ooh, ooh!";
		mes "Tell me, how have you come";
		mes "here to Rachel? I'm interested";
		mes "in knowing more about you~";
		next;
		mes "^3355FFYou and the pope";
		mes "continued to comfortably";
		mes "converse. As she spoke, she";
		mes "seemed more like a young,";
		mes "lonely girl than a solemn";
		mes "religious figure for a nation.^000000";
		next;
		mes "[Pope]";
		mes "...Wow, sometimes, I really";
		mes "wish I could live like you.";
		mes "You'd think being pope would";
		mes "be great, but they make me work";
		mes "all the time. And there are all";
		mes "sorts of things I can't do.";
		next;
		mes "[Pope]";
		mes "You know what's weird?";
		mes "I think I'm the head of this";
		mes "religion, but there's a sacred";
		mes "place that even I'm not allowed";
		mes "to visit. Isn't that so weird?";
		select("R-really...?");
		mes "[Pope]";
		mes "...Yeah. I don't know";
		mes "much about, and I'm not";
		mes "really supposed to talk";
		mes "about it. We just call this";
		mes "place the ''Holy Ground...''";
		next;
		select("Holy Ground?");
		mes "[Pope]";
		mes "I'm sorry... I want";
		mes "to tell you more, but...";
		mes "That's all I know. I wonder...";
		mes "I wonder what they could";
		mes "be hiding over there...";
		next;
		mes "[Priest]";
		mes "I'm sorry to interrupt";
		mes "your Excellency, but it's";
		mes "time to officiate services.";
		mes "Pardon me.";
		next;
		mes "[Pope]";
		mes "Already?! Hmpf...";
		mes "Oh, before I forget,";
		mes "I needed to tell you that";
		mes "High Priest Zhed wanted";
		mes "to talk to you, "+strcharinfo(0)+".";
		next;
		mes "[Pope]";
		mes "I really want to thank";
		mes "you for coming to speak";
		mes "to me. I had a great time";
		mes "learning. Now I have to";
		mes "go officiate services, so...";
		mes "This is goodbye for now...";
		set ra_tem_q,17;
		close2;
		cutin "",255;
		end;
	}

	else if (ra_tem_q == 17) {
		mes "[Pope]";
		mes "Oh, that's right...";
		mes "Zhed... Er, High Priest";
		mes "Zhed wanted to speak to you!";
		close2;
		cutin "",255;
		end;
	}

	mes "[Pope]";
	mes "...";
	mes "...";
	close2;
	cutin "",255;
	end;
}

ra_temin,294,149,0	script	High Priestess Niren#ra	915,{
	end;

OnInit:
	disablenpc "High Priestess Niren#ra";
	end;

OnEnable:
	initnpctimer;
	misceffect 16;
	end;

OnDisable:
	misceffect 16;
	end;

OnTimer120000:
	stopnpctimer;
	disablenpc "High Priestess Niren#ra";
	end;

}

ra_temin,293,144,0	script	out1#rachel	-1,3,3,{
OnTouch:
	if (ra_tem_q == 18) {
		mes "^3355FFIt sounds like they're";
		mes "still talking. It'd be";
		mes "best to patient and wait";
		mes "just a little while longer.";
		mes "Still... It's awfully boring.^000000";
		next;
		mes "^3355FFA little eavesdropping";
		mes "never hurt anyone. Maybe";
		mes "you can hear them a little";
		mes "better if you listen from";
		mes "the left side of the wall.^000000";
		close2;
		warp "ra_temin",300,153;
		end;
	}

	end;

}

ra_temin,288,151,0	script	hidden1#rachel	-1,1,6,{
OnTouch:
	if (ra_tem_q == 18) {
		mes "^3355FFAt this distance you";
		mes "can cleartly hear the";
		mes "voices from the other";
		mes "side of the wall...^000000";
		next;
		mes "[????]";
		mes "...Was it really";
		mes "necessary to involve";
		mes "an outsider in this";
		mes "situation? Answer me!";
		next;
		mes "[High Priest Zhed]";
		mes "Is this about the";
		mes "accident? You know that";
		mes "I've disagreed with the";
		mes "actions that have led to";
		mes "the mana leakage.";
		next;
		mes "[High Priest Zhed]";
		mes "Even though I thought";
		mes "it was a reckless decision,";
		mes "I've closed the shrine and";
		mes "did my best to cover up this";
		mes "unfortunate accident.";
		next;
		mes "[????]";
		mes "I'm not blaming you. In";
		mes "fact, I'll admit it: that was";
		mes "our mistake. We caused";
		mes "the monster infestation by";
		mes "letting the mana leak.";
		next;
		mes "[????]";
		mes "But that's not related";
		mes "to what I'm asking you!";
		mes "Do you really think it's";
		mes "alright to allow an outsider";
		mes "to speak to our pope during";
		mes "such a tumultuous time?!";
		next;
		mes "[High Priest Zhed]";
		mes "Why not? I thought it'd";
		mes "bring her great comfort.";
		mes "She is very confused as to";
		mes "why the Holy Ground has been";
		mes "closed, and she cannot know";
		mes "what is happening there.";
		next;
		mes "[High Priest Zhed]";
		mes "Again... I strongly";
		mes "disagree with what is";
		mes "secretly going on over";
		mes "there. I know that I can't";
		mes "officially oppose this";
		mes "course of action, but...";
		next;
		mes "[????]";
		mes "There's nothing to worry";
		mes "about! It'll all be over before";
		mes "you know it. Besides, it's";
		mes "too late to turn back now,";
		mes "so I warn you: don't you";
		mes "dare do anything foolish.";
		next;
		mes "^3355FFSomeone's coming!";
		mes "You'd better step away";
		mes "from the wall and feign";
		mes "ignorance as best you can!^000000";
		next;
		enablenpc "High Priestess Niren#ra";
		cutin "ra_gwoman",2;
		mes "[High Priestess Niren]";
		mes "Oh! You must be the one";
		mes "High Priest Be- er, Zhed,";
		mes "told me about. It's very nice";
		mes "to meet you. High Priestess";
		mes "Niren, at your service.";
		next;
		mes "[High Priestess Niren]";
		mes "I hear that you had the";
		mes "privilege of speaking with";
		mes "our pope, and that she had";
		mes "a wonderful time. What did";
		mes "you think of her, hm?";
		next;
		select("She's different than what I expected...");
		cutin "ra_gwoman2",2;
		mes "[High Priestess Niren]";
		mes "Ah, I know what you mean...";
		mes "Usually, most outsiders tell";
		mes "me that they expect our pope";
		mes "to be a wizened old man.";
		mes "But that's not the case";
		mes "here in Arunafeltz.";
		next;
		cutin "ra_gwoman",2;
		mes "[High Priestess Niren]";
		mes "Usually, our pope is chosen";
		mes "by her resemblance to our";
		mes "goddess Freya. She must";
		mes "have silvery blond hair, snowy";
		mes "skin, and divinely colored";
		mes "eyes. You saw, didn't you?";
		next;
		mes "[High Priestess Niren]";
		mes "I'm curious: what kinds";
		mes "of things did you and the";
		mes "pope talk about? As you know,";
		mes "we priests are forbidden from";
		mes "leaving Arunafeltz, so...";
		next;
		mes "^3355FFYou relate the details of";
		mes "your talk with the pope, but";
		mes "you make sure not to mention";
		mes "anything about the Holy Ground";
		mes "as High Priest Zhed had asked.^000000";
		next;
		mes "[High Priestess Niren]";
		mes "Ah, that's fairly";
		mes "interesting, your land.";
		mes "Tell me, how did you come";
		mes "to know Bekento, er, I mean,";
		mes "High Priest Zhed?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "(^666666Bekento?^000000)";
		next;
		select("Explain how You Met High Priest Zhed");
		cutin "ra_gwoman2",2;
		mes "[High Priestess Niren]";
		mes ".........................";
		mes "That's all? Hm? That's";
		mes "pretty funny. ^333333*Sigh*^000000 I believe";
		mes "he trusts people too much...";
		mes "But that's only my opinion.";
		next;
		cutin "ra_gwoman",2;
		mes "[High Priestess Niren]";
		mes "If you don't mind...";
		mes "I want to give you a bit of";
		mes "advice. Don't get too close";
		mes "to High Priest Zhed. If you";
		mes "do, you might end up getting";
		mes "yourself in trouble.";
		next;
		cutin "",255;
		disablenpc "High Priestess Niren#ra";
		mes "^3355FFHigh Priestess Niren left";
		mes "as soon as she said those words.";
		mes "What could she possibly mean?";
		mes "For now, you may as well";
		mes "talk to High Priest Zhed.^000000";
		set ra_tem_q,19;
		close;
	}

	end;

}

ra_temin,272,143,0	script	key1#rachel	-1,3,3,{
OnTouch:
	if (ra_tem_q == 20) {
		mes "^3355FFYou find a small";
		mes "shining object laid";
		mes "on the floor.^000000";
		next;
		if (select("Ignore:Pick It Up") == 1) {
			mes "^3355FFYou decided to ignore";
			mes "the small shining object,";
			mes "no matter how important it";
			mes "may be to you in the future.^000000";
		}

		mes "^3355FFUpon picking up the";
		mes "object, you are able to";
		mes "identify it as a small key.";
		mes "Perhaps you can use it to";
		mes "open some kind of lock.";
		set ra_tem_q,21;
		close;
	}

	end;
}

ra_temin,28,319,0	script	saint1#rachel	45,4,2,{
OnTouch:
	if ((ra_tem_q > 21) || (MISC_QUEST & 8192)) { warp "ra_san01",140,135; end; }

	if (ra_tem_q == 21) {
		mes "^3355FFThis must be the";
		mes "entrance to the Holy";
		mes "Ground. However, the";
		mes "door in your way is locked.^000000.";
		next;
		if (select("Quit:Use Small Key") == 2) {
			mes "^3355FFYou insert the Small";
			mes "Key that you found in";
			mes "High Priest Zhed's room,";
			mes "and find that it is able";
			mes "to unlock this door.^000000";
			close2;
			warp "ra_san01",140,135;
			end;
		}
		close;
	}

	mes "^3355FFThe door is locked.^000000";
	close;
	
}

que_san04,119,115,0	script	imir1#rachel	-1,2,2,{
OnTouch:
	if (ra_tem_q == 21) {
		mes "^3355FFThis large area looks";
		mes "like it was artificially build";
		mes "for some reason-- it doesn't";
		mes "seem like an area naturally";
		mes "infested by monsters.^000000";
		next;
		mes "^3355FFPerhaps if you explore";
		mes "this place, you'll be able";
		mes "to find something interesting.^000000";
		close;
	}
	end;
}

que_san04,119,133,0	script	imir2#rachel	-1,20,5,{
OnTouch:
	if (ra_tem_q == 21) {
		mes "^3355FFThere's something here";
		mes "beneaththe water. This";
		mes "may warrant a closer look.^000000";
		close;
	}
	end;
}

que_san04,119,203,0	script	imir3#rachel	-1,7,7,{
	OnTouch:
		if (ra_tem_q == 21) {
			mes "^3355FFNo wonder this object";
			mes "in the water seems so";
			mes "familiar: it's a Ymir's";
			mes "Heart Piece! In fact, there's";
			mes "dozens of them just lying here.^000000";
			next;
			mes "^3355FFWhy would so many of these";
			mes "powerful artifacts be here";
			mes "in the Holy Ground? Perhaps";
			mes "this is the secret that the";
			mes "priests are trying to keep.^000000";
			next;
			enablenpc "High Priestess Niren#r2";
			cutin "ra_gwoman",2;
			mes "[High Priestess Niren]";
			mes "How dare you intrude";
			mes "the Holy Ground! Identify";
			mes "yourself! I'll have you tried!";
			next;
			cutin "ra_gwoman2",2;
			mes "[High Priestess Niren]";
			mes "O-oh! It's you, the";
			mes "adventurer recommended";
			mes "by Bekento. Hm. I apologize";
			mes "for snapping at you like";
			mes "that. Didn't you know that";
			mes "no one's allowed here?";
			next;
			cutin "ra_gwoman",2;
			mes "[High Priestess Niren]";
			mes "Hmm. Well, you Rune-Midgarts";
			mes "adventurers are famous for your";
			mes "skills and abilities, but this";
			mes "was not expected. I mean, we";
			mes "made sure this place was";
			mes "absolutely secure.";
			next;
			cutin "ra_gwoman2",2;
			mes "[High Priestess Niren]";
			mes "What's done is done...";
			mes "I warned Bekento that he";
			mes "might cause trouble for you,";
			mes "but it seems that you've";
			mes "caused trouble for him.";
			next;
			mes "[High Priestess Niren]";
			mes "Understand this:";
			mes "most intruders are";
			mes "severely punished, but";
			mes "because of my friendship";
			mes "with Bekento, I'm letting";
			mes "you off easy. Remember that.";
			next;
			sc_start SC_Blind,600000,0;
			mes "^3355FFNiren began to chant";
			mes "in a low voice, and your";
			mes "eyelids grow heavier as you";
			mes "grow drowsier and sleepier...^000000";
			set ra_tem_q,22;
			close2;
			disablenpc "High Priestess Niren#r2";
			warp "rachel",163,152;
			end;
		}
		end;
}

que_san04,122,200,4	script	High Priestess Niren#r2	915,{
	end;

OnInit:
	disablenpc "High Priestess Niren#r2";
	end;

OnEnable:
	initnpctimer;
	misceffect 16;
	end;

OnDisable:
	misceffect 16;
	end;

OnTimer120000:
	stopnpctimer;
	disablenpc "High Priestess Niren#r2";
	end;

}

rachel,163,152,0	script	imir3#rachel	-1,3,3,{
OnTouch:
	if (ra_tem_q == 22) {
		mes "^3355FFYou feel a slight headache";
		mes "after you recollect your senses.";
		mes "Somehow, you're been brought";
		mes "back to Rachel Town. How long";
		mes "have you been unconscious?^000000";
		next;
		sc_end SC_Blind;
		mes "^3355FFIt would be best to";
		mes "ask High Priest Zhed";
		mes "about what had happened.^000000";
		set ra_tem_q,23;
		close;
	}

	end;
}

//rachel,142,167,5	script	Seeking Follower#rachel	916,6,6,{
rachel,142,167,5	script	Seeking Follower#rachel	917,6,6,{
	if ((lost_boy == 13) && (ra_tem_q == 20)) {
		mes "[Arunafeltz Follower]";
		mes "Excuse me, but";
		mes "are you "+strcharinfo(0)+"?";
		next;
		select("Yes.");
		mes "[Arunafeltz Follower]";
		mes "High Priest Zhed";
		mes "would like to see";
		mes "you right away, "+strcharinfo(0)+".";
		next;
		select("May ask why?");
		mes "[Arunafeltz Follower]";
		mes "Well, I actually have no";
		mes "idea. I'm only supposed to";
		mes "inform you that he's looking";
		mes "for you. Please visit High";
		mes "Priest Zhed in the second";
		mes "right room of the temple.";
		close;
	}

	else {
		mes "[Arunafeltz Follower]";
		mes "May Freya bless you";
		mes "on your journeys...";
		close;
	}

OnTouch:
	if ((lost_boy == 13) && (ra_tem_q == 20)) {
		mes "[Arunafeltz Follower]";
		mes "Excuse me, but";
		mes "are you "+strcharinfo(0)+"?";
		next;
		select("Yes.");
		mes "[Arunafeltz Follower]";
		mes "High Priest Zhed";
		mes "would like to see";
		mes "you right away, "+strcharinfo(0)+".";
		next;
		select("May ask why?");
		mes "[Arunafeltz Follower]";
		mes "Well, I actually have no";
		mes "idea. I'm only supposed to";
		mes "inform you that he's looking";
		mes "for you. Please visit High";
		mes "Priest Zhed in the second";
		mes "right room of the temple.";
		close;
	}

}

// End of Donation Lottery/High Priest quest
//============================================================