From 89b8b179b6864e5ce5d8b22a52feac761f66e77c Mon Sep 17 00:00:00 2001
From: SinSloth <SinSloth@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Tue, 8 May 2007 11:39:03 +0000
Subject: * Added Cursed Spirit Quest. - Moved some NPCs and warps related to
 the quest in proper file.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@10503 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/Changelog.txt                 |    3 +
 npc/cities/lighthalzen.txt        |  182 +--
 npc/quests/quests_lighthalzen.txt | 2799 ++++++++++++++++++++++++++++++++++++-
 npc/warps/cities/lighthalzen.txt  |   10 +-
 4 files changed, 2805 insertions(+), 189 deletions(-)

diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 9bce1cb25..7f7d36d0e 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -1,5 +1,8 @@
 Date		Added
 ======
+2007/05/09
+	* Added Cursed Spirit Quest. [SinSloth]
+	- Moved some NPCs and warps related to the quest in proper file.
 2007/05/07
 	* Removed an unnecessary/buggy line in cities/izlude.txt [Paradox924X]
 	* Various spawn fixes here and there [Playtester]
diff --git a/npc/cities/lighthalzen.txt b/npc/cities/lighthalzen.txt
index 9a905e348..c58d8338e 100644
--- a/npc/cities/lighthalzen.txt
+++ b/npc/cities/lighthalzen.txt
@@ -3,7 +3,7 @@
 //===== By: ================================================== 
 //=  erKURITA, Au{R}oN (Translated by Alan), $ephiroth
 //===== Current Version: ===================================== 
-//= 1.1
+//= 1.2
 //===== Compatible With: ===================================== 
 //= eAthena 1.0
 //===== Description: ========================================= 
@@ -23,6 +23,7 @@
 //= 1.0b npcid fix [KarLaeda]
 //= 1.1 Added new NPC by $ephiroth and merged other NPCs
 //=	from npc\other\lighthalzen_???.txt [Lupus]
+//= 1.2 Moved some NPCs to Lighthalzen quests. [SinSloth]
 //=============================================================
 
 lighthalzen,198,285,5	script	Jiwon	862,{
@@ -1476,111 +1477,6 @@ lhz_in01,93,45,4	script	Researcher#02	865,{
 
 // ---------------------------------------------------------------------------
 
-lhz_in01,286,226,2	script	Secretary Slierre#Secretary_Slierre	831,{
-
-	mes "[Sueii Slierre]";
-	mes "Excuse me, but you are";
-	mes "not allowed to be in here.";
-	mes "Please visit the Help Desk";
-	mes "if you have any questions about";
-	mes "the Rekenber Corporation.";
-	mes "Thank you for cooperating.";
-	close;
-}
-
-// ---------------------------------------------------------------------------
-
-lhz_in03,32,162,2	script	Crippled Girl#Crippled_Girl	53,{
-
-	mes "[Crippled Girl]";
-	mes "...";
-	mes "......";
-	mes "*Sigh...*";
-	next;
-	menu "Hello, how are you?",-;
-	mes "[Crippled Girl]";
-	mes "Oh, I'm fine,";
-	mes "thanks for asking.";
-	mes "I'm just waiting for";
-	mes "somebody, that's all.";
-	close;
-}
-
-// ---------------------------------------------------------------------------
-
-lighthalzen,346,263,2	script	Elder	846,{
-
-	mes "[Elder]";
-	mes "Predators are always";
-	mes "on the lookout for easy";
-	mes "prey. Be careful, youngster!";
-	mes "You look innocent enough";
-	mes "to become a victim in the city.";
-	next;
-	menu "About Lighthalzen",L_lighthalzen,"About the Slum",L_slum,"????",-;
-	mes "[Elder]";
-	mes "Well, if you need any";
-	mes "help around here or have";
-	mes "any questions, come back";
-	mes "and ask me. I get the feeling";
-	mes "that we'll probably meet again.";
-	close;
-
-L_lighthalzen:
-	mes "[Elder]";
-	mes "Lighthalzen might seem";
-	mes "like a splendid city at first,";
-	mes "but you'll learn quickly that";
-	mes "the poor are segregated from";
-	mes "the rich and treated as less";
-	mes "than second class citizens.";
-	next;
-	mes "[Elder]";
-	mes "At first, separation between";
-	mes "the rich and poor districts was";
-	mes "subtly enforced. They built the";
-	mes "railroad right between the two";
-	mes "districts to make it easier for";
-	mes "the rich to ignore the poor.";
-	next;
-	mes "[Elder]";
-	mes "But now they even have";
-	mes "guards to make sure that";
-	mes "the poor can't bother the";
-	mes "rich. I'm pretty sure that";
-	mes "this segregation won't be";
-	mes "ending anytime soon...";
-	next;
-	mes "[Elder]";
-	mes "Now, I've heard that the";
-	mes "Rekenber Corporation is";
-	mes "actually providing jobs for";
-	mes "people in the slums. Beggars";
-	mes "can't be choosers, so I'm sure";
-	mes "these jobs aren't that great.";
-	close;
-
-L_slum:
-	mes "[Elder]";
-	mes "To live in the slum is to";
-	mes "be familiar with poverty,";
-	mes "disease, condemnation";
-	mes "and contempt. But we're all";
-	mes "still people, you know, so let";
-	mes "go of any of your misgivings.";
-	next;
-	mes "[Elder]";
-	mes "We're struggling just";
-	mes "to survive here. At the";
-	mes "very least, please respect";
-	mes "that. It's a fact that the";
-	mes "people in the rich district";
-	mes "seem to keep forgetting.";
-	close;
-}
-
-// ---------------------------------------------------------------------------
-
 lighthalzen,326,249,5	script	Grinnel	870,{
 
 	mes "[Grinnel]";
@@ -1833,80 +1729,6 @@ lhz_in03,184,38,2	script	Loudmouth	55,{
 }
 // ---------------------------------------------------------------------------
 
-lhz_in01,114,181,3	script	Representative::LhzRep	71,{
-
-	mes "[Representative]";
-	mes "Greetings, and welcome";
-	mes "to the Rekenber Corporation.";
-	mes "How may I be of service today?";
-	next;
-	menu "Building Information.",-;
-
-loopback:
-	mes "[Representative]";
-	mes "Please tell me";
-	mes "which floor you'd like";
-	mes "to know more about.";
-	next;
-	menu "1F",s_1,"2F",s_2,"B1",s_B,"Cancel",-;
-
-	mes "[Representative]";
-	mes "We are always doing our";
-	mes "best to provide the best";
-	mes "services to our customers.";
-	mes "Remember that Rekenber";
-	mes "is the name you can trust.";
-	mes "Thank you and have a nice day.";
-	close;
-
-s_1:
-	mes "[Representative]";
-	mes "The ^3131FFRekenber Library^000000 can";
-	mes "be found at the end of the";
-	mes "left hallway. Our library is";
-	mes "a great resource of innovative";
-	mes "ideas and information for our";
-	mes "system development employees.";
-	next;
-	mes "[Representative]";
-	mes "The ^3131FFBall Room^000000, where";
-	mes "various official events are";
-	mes "usually held, can be accessed";
-	mes "through the right hallway.";
-	next;
-	goto loopback;
-
-s_2:
-	mes "[Representative]";
-	mes "Please use the stairs";
-	mes "located on both sides of";
-	mes "the Help Desk to go to the";
-	mes "Second Floor. The Second";
-	mes "Floor is mostly used for";
-	mes "administrative purposes.";
-	next;
-	mes "[Representative]";
-	mes "There, you can find";
-	mes "the ^3131FFConference Room^000000,";
-	mes "^3131FFSecretary Office^000000, the";
-	mes "^3131FFAuditorium^000000 and the";
-	mes "^3131FFChairman's Office^000000.";
-	next;
-	goto loopback;
-s_B:
-	mes "[Representative]";
-	mes "The first underground floor";
-	mes "is used by the ^3131FFRegenshirm^000000,";
-	mes "our laboratory affiliate. For";
-	mes "security reasons, this floor";
-	mes "is not accessible to visitors";
-	next;
-	goto loopback;
-	
-}
-
-lhz_in01,26,247,2	duplicate(LhzRep)	Representative	71
-
 lhz_in01,173,28,4	script	Guard#01::LhzRekGuard	868,{
 
 	mes "[Guard]";
diff --git a/npc/quests/quests_lighthalzen.txt b/npc/quests/quests_lighthalzen.txt
index 5dce0480c..9336e43bb 100644
--- a/npc/quests/quests_lighthalzen.txt
+++ b/npc/quests/quests_lighthalzen.txt
@@ -50,7 +50,8 @@
 //= 2.8 More optimization. Also fixed bug with "2x short sticks -> long" [Lupus]
 //=	Now uses MISC_QUEST&512 instead of 'hzdun'. WIP
 //= 2.9 Fixed Friendship Quest levelup exploit (u could get EXP twice) [Lupus]
-//= 3.0 Moved a book non-related to Lighthalzen quests. [SinSloth]
+//= 3.0 Added Cursed Spirit Quest. [SinSloth]
+//=	Moved a book non-related to Lighthalzen quests.
 //============================================================ 
 
 lighthalzen,1,1,7	script	sneakAddSuber	-1,{
@@ -2350,7 +2351,7 @@ yuno_in04,96,106,4	script	Passionate Student	754,{
 	mes "Hopefully this contains";
 	mes "the information I need...";
 	next;
-	if(friendship != 6)goto s_Dialog;
+	if(friendship != 6)goto s_mes;
 	mes "Upon briefly glancing at";
 	mes "this student's belongings,";
 	mes "you notice that the name";
@@ -2486,7 +2487,7 @@ s_Cont3:
 	if(friendship == 6)set friendship,7;
 	close;
 
-s_Dialog:
+s_mes:
 	mes "^3131FFThis student seems to";
 	mes "be dilligently conducting";
 	mes "intensive research on some";
@@ -2587,5 +2588,2797 @@ yuno_in04,171,117,1	script	List of Books	111,{
 	mes "This place even has";
 	mes "a romance novel section?";
 	close;
+}
+
+///Cursed Spirit Quest
+
+lhz_dun01,147,106,0	script	#kiz01-1	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			soundeffect "loli_ruri_stand.wav",0;
+			set lhz_curse,1;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			set @lhz_ghost,rand(1,5);
+			sc_start SC_Curse,1000,0;
+			soundeffect "loli_ruri_stand.wav",0;
+			if(@lhz_ghost == 1)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "Enjoy... this...";
+				soundeffect "loli_ruri_stand.wav",0;
+				close;
+			}
+			else if(@lhz_ghost == 4)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "I... I despise the living...";
+				soundeffect "loli_ruri_stand.wav",0;
+				close;
+			}
+			end;
+		}
+	}
+}
+
+lhz_dun01,239,135,0	duplicate(#kiz01-1)	#kiz01-2	-1,3,3
+lhz_dun01,66,212,0	duplicate(#kiz01-1)	#kiz01-3	-1,3,3
+lhz_dun01,225,198,0	duplicate(#kiz01-1)	#kiz01-4	-1,3,3
+
+lhz_dun02,244,229,0	script	#kiz02-1	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			soundeffect "tao_gunka_stand.wav",0;
+			set lhz_curse,1;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			set @lhz_ghost,rand(1,10);
+			sc_start SC_Curse,1000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			if(@lhz_ghost == 1)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "Enjoy... this...";
+				soundeffect "loli_ruri_stand.wav",0;
+				close;
+			}
+			else if(@lhz_ghost == 4)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "I... I despise the living...";
+				soundeffect "loli_ruri_stand.wav",0;
+				close;
+			}
+			end;
+		}
+	}
+}
+
+lhz_dun02,60,298,0	duplicate(#kiz02-1)	#kiz02-2	-1,3,3
+lhz_dun02,267,278,0	duplicate(#kiz02-1)	#kiz02-3	-1,3,3
+lhz_dun02,94,199,0	duplicate(#kiz02-1)	#kiz02-4	-1,3,3
+
+lhz_dun03,244,51,0	script	#kiz03-1	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			soundeffect "tao_gunka_stand.wav",0;
+			set lhz_curse,1;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			set @lhz_ghost,rand(1,10);
+			sc_start SC_Curse,1000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			if(@lhz_ghost == 1)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "Enjoy... this...";
+				soundeffect "tao_gunka_stand.wav",0;
+				close;
+			}
+			else if(@lhz_ghost == 4)
+			{
+				mes "[???]";
+				mes "......";
+				next;
+				mes "[???]";
+				mes "I... I despise the living...";
+				soundeffect "tao_gunka_stand.wav",0;
+				close;
+			}
+			end;
+		}
+	}
+}
+
+lhz_dun03,123,191,0	duplicate(#kiz03-1)	#kiz03-2	-1,3,3
+lhz_dun03,74,140,0	duplicate(#kiz03-1)	#kiz03-3	-1,3,3
+lhz_dun03,344,278,0	duplicate(#kiz03-1)	#kiz03-4	-1,3,3
+
+lighthalzen,344,278,0	script	#kiz03	-1,2,2,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			next;
+			mes "[?????]";
+			mes "Honey, I'm sorry,";
+			mes "but I... We know how";
+			mes "hungry you are, but we";
+			mes "have nothing to feed you.";
+			next;
+			mes "[?????]";
+			mes "*Sniff* I know, I know,";
+			mes "but somehow, that tragic";
+			mes "truth eats away at me just";
+			mes "a little bit more everyday...";
+			next;
+			mes "[?????]";
+			mes "D-damn it...!";
+			mes "Why do we have";
+			mes "to live like this?!";
+			mes "It's like we're less";
+			mes "than animals. I hate this!";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			next;
+			emotion e_what,1;
+			mes "["+strcharinfo(0)+"]";
+			mes "Those voices weren't";
+			mes "just in my head, were they?";
+			mes "Hello...? Anybody there...?";
+			close2;
+			sc_end SC_All;
+			sc_start SC_Curse,5000,0;
+			if(!lhz_spi01) set lhz_spi01,1;
+			end;
+		}
+	}
+}
+
+lhz_in03,178,22,0	script	#kiz04	-1,2,2,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			next;
+			mes "[?????]";
+			mes "Hey, you won't";
+			mes "believe it! Rekenber";
+			mes "decided to hire us!";
+			next;
+			mes "[?????]";
+			mes "You sure that's so great?";
+			mes "Those big corporations";
+			mes "always take advantage";
+			mes "of the little guy. We're";
+			mes "probably gonna end up";
+			mes "slavin' away for our wages...";
+			next;
+			mes "[?????]";
+			mes "No, that's not the";
+			mes "case at all. I mean,";
+			mes "sure, we won't start off";
+			mes "with much responsibility,";
+			mes "but they'll pay us well!";
+			next;
+			mes "[?????]";
+			mes "Well, we do need to eat.";
+			mes "If they're true to their word,";
+			mes "that'll be even better!";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			next;
+			mes "[???]";
+			mes "Waaaah!";
+			mes "Waaaaaah~!";
+			next;
+			mes "[????]";
+			mes "Woman, shut this";
+			mes "baby up! Shut up, kid!";
+			next;
+			mes "[?????]";
+			mes "Honey, please...";
+			mes "He's just a baby!";
+			next;
+			mes "[????]";
+			mes "I don't care how";
+			mes "crummy this house is!";
+			mes "It's mine and I want quiet!";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			next;
+			emotion e_what,1;
+			mes "["+strcharinfo(0)+"]";
+			mes "I'm hearing things";
+			mes "again! Where are all of";
+			mes "these voices coming from?";
+			close2;
+			soundeffect "tao_gunka_stand.wav",0;
+			sc_end SC_All;
+			sc_start SC_Curse,5000,0;
+			if(!lhz_spi02) set lhz_spi02,1;
+			end;
+		}
+	}
+}
+
+lighthalzen,295,227,0	script	#kiz05	-1,2,2,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "loli_ruri_stand.wav",0;
+			next;
+			mes "[?????]";
+			mes "Mommy, why don't those";
+			mes "dirty people get new clothes?";
+			mes "Don't they know it's gross?";
+			mes "They're scaring me...";
+			next;
+			mes "[???????]";
+			mes "Honey, don't look at";
+			mes "them and hurry up!";
+			next;
+			mes "[????]";
+			mes "Please, do you have";
+			mes "any spare change? I...";
+			mes "I need something to eat...";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "This is...";
+			mes "This is insane!";
+			mes "I must be hallucinating!";
+			close2;
+			soundeffect "loli_ruri_stand.wav",0;
+			sc_end SC_All;
+			sc_start SC_Curse,3000,0;
+			if(!lhz_spi03) set lhz_spi03,1;
+			end;
+		}
+	}
+}
+
+lighthalzen,364,315,0	script	#kiz06	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			next;
+			mes "[?????]";
+			mes "Listen, I know you're";
+			mes "the newest hire, but you've";
+			mes "shown us a lot of potential.";
+			mes "I think you'd be a perfect";
+			mes "fit for this new position.";
+			next;
+			mes "[???????]";
+			mes "Are you really serious?";
+			next;
+			mes "[?????]";
+			mes "I'll tell it to you straight.";
+			mes "This new position will require";
+			mes "you to be away from home once";
+			mes "in a while, but that comes with";
+			mes "the new responsibilities.";
+			next;
+			mes "[?????]";
+			mes "But you'll receive";
+			mes "many new benefits that";
+			mes "I'm sure your family would";
+			mes "appreciate and you'll be";
+			mes "generously compensated.";
+			next;
+			mes "[???????]";
+			mes "...............";
+			next;
+			mes "[???????]";
+			mes "...Alright, I'm in.";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "...............";
+			close2;
+			soundeffect "tao_gunka_stand.wav",0;
+			sc_end SC_All;
+			sc_start SC_Curse,5000,0;
+			if(!lhz_spi04) set lhz_spi04,1;
+			end;
+		}
+	}
+}
+
+lhz_in01,113,150,0	script	#kiz07	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			next;
+			mes "[?????]";
+			mes "So, what exactly did you";
+			mes "want me to do? I'm sorry,";
+			mes "I wasn't able to gather my";
+			mes "actual job function from";
+			mes "the presentation...";
+			next;
+			mes "[???]";
+			mes "Hee hee hee~";
+			mes "Don't worry about it.";
+			mes "Just relax and stay";
+			mes "right where you are.";
+			next;
+			mes "[?????]";
+			mes "Mmm. Alright.";
+			mes "I just thought that I was";
+			mes "supposed to go somewhere,";
+			mes "that's all. Um, shouldn't";
+			mes "I be getting ready...?";
+			next;
+			mes "[???]";
+			mes "Oh, don't worry about";
+			mes "that, either. All of the";
+			mes "arrangements will be";
+			mes "taken care of. You'll";
+			mes "be taken to that far";
+			mes "off place very soon...";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			close2;
+			soundeffect "tao_gunka_stand.wav",0;
+			sc_end SC_All;
+			sc_start SC_Curse,3000,0;
+			if(lhz_curse == 6) set lhz_curse,7;
+			end;
+		}
+	}
+}
+
+lhz_in01,272,227,0	script	#kiz08	-1,2,2,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(!lhz_curse)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+		else if(lhz_curse < 26)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Blind,60000,0;
+			soundeffect "tao_gunka_stand.wav",0;
+			next;
+			mes "[????]";
+			mes "Oh, I'm so sorry to";
+			mes "hear that you want to";
+			mes "quit. Are you sure there";
+			mes "isn't anything we can do";
+			mes "to change your mind?";
+			next;
+			mes "[???]";
+			mes "Well, I'm thinking of";
+			mes "retiring early and just";
+			mes "spending more time";
+			mes "with my family. But I won't";
+			mes "ever talk about the company";
+			mes "or any of its, well, secrets.";
+			next;
+			mes "[????]";
+			mes "I really appreciate";
+			mes "your honesty and sincerity.";
+			mes "You've really done a great";
+			mes "job for us and I can't thank";
+			mes "you enough for your years of";
+			mes "dedication to this company.";
+			next;
+			mes "[???]";
+			mes "Thank you, sir.";
+			next;
+			mes "[???]";
+			mes "It would be a great loss";
+			mes "for this company to let you";
+			mes "go now. But I guess we have";
+			mes "no choice, since you've had";
+			mes "that horrible accident.";
+			next;
+			mes "[???]";
+			mes "Sir...?";
+			mes "Accident...?";
+			mes "I don't understand";
+			mes "what you're talking ab--";
+			next;
+			mes "[???]";
+			mes "N-no! Please...!";
+			mes "I didn't, I swear on";
+			mes "my life that I won't ever";
+			mes "say anything about this";
+			mes "place! I'm begging you,";
+			mes "for the love of god!";
+			next;
+			mes "[????]";
+			mes "Your life...?";
+			mes "Sorry, not good enough.";
+			mes "You should have known.";
+			next;
+			mes "[???]";
+			mes "Ssstop! I have chil--";
+			mes "MY LEEEEGS!! OH MY GOD";
+			mes "WHAT HAVE YOU DONE TO";
+			mes "MY LEGS?! HELP ME, OH MY G--";
+			next;
+			mes "...............";
+			next;
+			mes "...............";
+			close2;
+			soundeffect "tao_gunka_stand.wav",0;
+			sc_end SC_All;
+			sc_start SC_Curse,3000,0;
+			if(lhz_curse == 11) set lhz_curse,12;
+			end;
+		}
+	}
+}
+
+lhz_in01,206,129,0	script	#kiz09	-1,5,5,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(lhz_curse == 12)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Curse,1000,0;
+			soundeffect "loli_ruri_stand.wav",0;
+			close2;
+			warp "lhz_que01",26,27;
+			end;
+		}
+		else if(lhz_curse > 0 && lhz_curse < 26)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+	}
+}
+
+lhz_que01,21,31,5	script	#Varmunt	755,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(lhz_curse == 12)
+		{
+			mes "Doctor Varmunt,";
+			mes "you've finally agreed";
+			mes "to join us. Welcome!";
+			next;
+			donpcevent "#Varmunt::OnEmote";
+			mes "[Varmunt]";
+			mes "Well, I don't know if I agree";
+			mes "with this company's policies,";
+			mes "but the project you're offering";
+			mes "seems to be an opportunity that";
+			mes "comes once in a lifetime, so...";
+			next;
+			donpcevent "#Rekenber::OnEmote";
+			mes "[??]";
+			mes "To be honest, this project";
+			mes "can only be a success with";
+			mes "your cooperation. We need";
+			mes "your genius and will provide";
+			mes "whatever you require.";
+			next;
+			mes "[Varmunt]";
+			mes "I'm flattered.";
+			mes "And of course, I'll";
+			mes "do my best. It's just";
+			mes "that this deal sounds";
+			mes "too good to be true...";
+			next;
+			mes ".........";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "...............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "..................";
+			next;
+			mes ".....................";
+			next;
+			mes "[??]";
+			mes "Amazing. You've accomplished";
+			mes "what most have thought to be";
+			mes "impossible ahead of schedule.";
+			mes "An imitation of Ymir's Heart!";
+			mes "This will surely spur Airship";
+			mes "and Guardian development~!";
+			next;
+			mes "[Varmunt]";
+			mes "I still don't believe that";
+			mes "were able to do it. This is";
+			mes "a huge leap for science, even";
+			mes "if this imitation isn't as powerful";
+			mes "as the real Ymir's Heart.";
+			next;
+			mes "[??]";
+			mes "Come, we must celebrate!";
+			mes "Let's go outside and have";
+			mes "a toast in your honor! Ha ha~";
+			next;
+			mes ".........";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "...............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "..................";
+			next;
+			mes "[??]";
+			mes "But why, Doctor Varmunt?";
+			mes "If you're unhappy with the";
+			mes "Rekenber Corporation for";
+			mes "any reason whatsoever...";
+			next;
+			mes "[Varmunt]";
+			mes "Well, I don't really";
+			mes "have a reason to remain";
+			mes "now that we've accomplished";
+			mes "what I've agreed to do. It's time";
+			mes "for me to return and work on";
+			mes "my personal research.";
+			next;
+			mes "[??]";
+			mes "Please, Doctor Varmunt,";
+			mes "reconsider! You may have";
+			mes "full use of our facilities to";
+			mes "conduct your research. I'm";
+			mes "willing to make you an offer.";
+			next;
+			mes "[Varmunt]";
+			mes "No, I can't...";
+			mes "If I continue to work";
+			mes "here, I'm afraid I might";
+			mes "make a lot of people";
+			mes "unhappy. But, thank";
+			mes "you for everything.";
+			next;
+			mes "[??]";
+			mes "Wait...";
+			mes "Doctor Varmunt.";
+			mes "You forgot your cane.";
+			next;
+			mes "[Varmunt]";
+			mes "Since when have you";
+			mes "seen me use a cane?";
+			mes "And even if I did,";
+			mes "that one isn't mi--";
+			next;
+			mes "...";
+			next;
+			mes "...";
+			mes "......";
+			next;
+			mes "...";
+			mes "......";
+			mes ".........";
+			set lhz_curse,13;
+			close2;
+			warp "lhz_in01",206,129;
+			end;
+		}
+		else
+		{
+			warp "lhz_in01",206,129;
+			end;
+		}
+	}
+	warp "lhz_in01",206,129;
+	end;
+
+OnEmote:
+	emotion e_swt;
+	end;
+}
+
+lhz_que01,29,24,3	script	#Rekenber	754,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(lhz_curse == 12)
+		{
+			mes "Doctor Varmunt,";
+			mes "you've finally agreed";
+			mes "to join us. Welcome!";
+			next;
+			donpcevent "#Varmunt::OnEmote";
+			mes "[Varmunt]";
+			mes "Well, I don't know if I agree";
+			mes "with this company's policies,";
+			mes "but the project you're offering";
+			mes "seems to be an opportunity that";
+			mes "comes once in a lifetime, so...";
+			next;
+			donpcevent "#Rekenber::OnEmote";
+			mes "[??]";
+			mes "To be honest, this project";
+			mes "can only be a success with";
+			mes "your cooperation. We need";
+			mes "your genius and will provide";
+			mes "whatever you require.";
+			next;
+			mes "[Varmunt]";
+			mes "I'm flattered.";
+			mes "And of course, I'll";
+			mes "do my best. It's just";
+			mes "that this deal sounds";
+			mes "too good to be true...";
+			next;
+			mes ".........";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "...............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "..................";
+			next;
+			mes ".....................";
+			next;
+			mes "[??]";
+			mes "Amazing. You've accomplished";
+			mes "what most have thought to be";
+			mes "impossible ahead of schedule.";
+			mes "An imitation of Ymir's Heart!";
+			mes "This will surely spur Airship";
+			mes "and Guardian development~!";
+			next;
+			mes "[Varmunt]";
+			mes "I still don't believe that";
+			mes "were able to do it. This is";
+			mes "a huge leap for science, even";
+			mes "if this imitation isn't as powerful";
+			mes "as the real Ymir's Heart.";
+			next;
+			mes "[??]";
+			mes "Come, we must celebrate!";
+			mes "Let's go outside and have";
+			mes "a toast in your honor! Ha ha~";
+			next;
+			mes ".........";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "...............";
+			next;
+			soundeffect "loli_ruri_stand.wav",0;
+			mes "..................";
+			next;
+			mes "[??]";
+			mes "But why, Doctor Varmunt?";
+			mes "If you're unhappy with the";
+			mes "Rekenber Corporation for";
+			mes "any reason whatsoever...";
+			next;
+			mes "[Varmunt]";
+			mes "Well, I don't really";
+			mes "have a reason to remain";
+			mes "now that we've accomplished";
+			mes "what I've agreed to do. It's time";
+			mes "for me to return and work on";
+			mes "my personal research.";
+			next;
+			mes "[??]";
+			mes "Please, Doctor Varmunt,";
+			mes "reconsider! You may have";
+			mes "full use of our facilities to";
+			mes "conduct your research. I'm";
+			mes "willing to make you an offer.";
+			next;
+			mes "[Varmunt]";
+			mes "No, I can't...";
+			mes "If I continue to work";
+			mes "here, I'm afraid I might";
+			mes "make a lot of people";
+			mes "unhappy. But, thank";
+			mes "you for everything.";
+			next;
+			mes "[??]";
+			mes "Wait...";
+			mes "Doctor Varmunt.";
+			mes "You forgot your cane.";
+			next;
+			mes "[Varmunt]";
+			mes "Since when have you";
+			mes "seen me use a cane?";
+			mes "And even if I did,";
+			mes "that one isn't mi--";
+			next;
+			mes "...";
+			next;
+			mes "...";
+			mes "......";
+			next;
+			mes "...";
+			mes "......";
+			mes ".........";
+			set lhz_curse,13;
+			close2;
+			warp "lhz_in01",206,129;
+			end;
+		}
+		else
+		{
+			warp "lhz_in01",206,129;
+			end;
+		}
+	}
+	warp "lhz_in01",206,129;
+	end;
+
+OnEmote:
+	emotion e_ok;
+	end;
+}
+
+lhz_in01,282,166,0	script	#kiz10	-1,3,3,{
+
+OnTouch:
+	if(countitem(7345))
+	{
+		if(lhz_curse == 16)
+		{
+			mes "...............";
+			next;
+			mes "...............";
+			sc_start SC_Curse,1000,0;
+			soundeffect "loli_ruri_stand.wav",0;
+			close2;
+			warp "lhz_que01",98,59;
+			end;
+		}
+		else if(lhz_curse > 0 && lhz_curse < 26)
+		{
+			sc_start SC_Curse,1000,0;
+			end;
+		}
+	}
+}
+
+lhz_que01,99,74,5	script	#pecomaster	48,{
+
+	if(checkweight(7341,1) != 1)
+	{
+		mes "^3355FFWait a second! Right now,";
+		mes "you have too many items in your";
+		mes "inventory. Please come back";
+		mes "after you've made more available";
+		mes "inventory space.^000000";
+		close;
+	}
+	else if(lhz_curse == 16)
+	{
+		mes "[???]";
+		mes "It's over.";
+		mes "I really want";
+		mes "to quit. This is";
+		mes "the end for me.";
+		next;
+		mes "[Peco Peco]";
+		mes "^3131FFThis is the end!^000000";
+		mes "^3131FFThis is the end!^000000";
+		next;
+		mes "[???]";
+		mes "He was right to say that";
+		mes "we'd be paid well, but going";
+		mes "through this much torture isn't";
+		mes "worth any sum of money in the";
+		mes "world to me. *Sigh* Money...";
+		next;
+		mes "[???]";
+		mes "She must be so worried";
+		mes "about me by now. And her";
+		mes "health is so bad. I'm such";
+		mes "a fool for leaving her behind.";
+		mes "";
+		next;
+		mes "[Peco Peco]";
+		mes "^3131FFSuch a fool!^000000";
+		mes "^3131FFSuch a fool!^000000";
+		mes "^3131FF*Squaaawk~*^000000";
+		next;
+		mes "[???]";
+		mes "Damn it!";
+		mes "Shut up, you stupid bird!";
+		mes "Be quiet for just a minute!";
+		next;
+		mes "[Peco Peco]";
+		mes "^3131FF*Squaaawk!*^000000";
+		mes "^3131FFDeath Penalty!^000000";
+		mes "^3131FFDeath Penalty!^000000";
+		next;
+		mes "[???]";
+		mes "Death penalty?";
+		mes "Where'd you learn";
+		mes "to say something weird";
+		mes "like that? Huh. That's...";
+		next;
+		mes "............";
+		next;
+		mes "............";
+		next;
+		mes "............";
+		next;
+		mes "[???]";
+		mes "I'm the only one still";
+		mes "in this room. Everyone";
+		mes "else left and never came";
+		mes "back. If they were... And";
+		mes "I were to go out... Then...";
+		mes "Maybe I better not leave.";
+		next;
+		mes "[???]";
+		mes "If I could only give";
+		mes "this pendant back to";
+		mes "her, she wouldn't have";
+		mes "to worry about me that";
+		mes "much. But I might not";
+		mes "be able to get back...";
+		next;
+		mes "[???]";
+		mes "............";
+		next;
+		mes "[?????]";
+		mes "Hey there, been";
+		mes "waiting long? It's";
+		mes "time for you to finish";
+		mes "up your contract.";
+		next;
+		mes "[???]";
+		mes "Finish up my...?";
+		mes "N-no! I've decided!";
+		mes "I'm not leaving this room!";
+		next;
+		mes "[?????]";
+		mes "Hey hey, what the hell";
+		mes "are you talking about?";
+		mes "You came here to work,";
+		mes "didn't you? And now it's";
+		mes "time for you to collect, so...";
+		next;
+		mes "[???]";
+		mes "N-no, l-let go of me!";
+		mes "Please let me go!";
+		mes "I want to see her again,";
+		mes "please let me see her...!";
+		next;
+		mes ".........";
+		mes "............";
+		next;
+		mes "^3131FF*Clink*^000000";
+		next;
+		mes "[??]";
+		mes "Hm? Who the hell";
+		mes "brought in this cheap";
+		mes "jewery? Someone must";
+		mes "have forgotten to throw";
+		mes "away their trash...";
+		next;
+		mes "[????]";
+		mes "Yeah, it's just a";
+		mes "cheap trinket. That";
+		mes "pendant isn't even";
+		mes "worth picking up.";
+		next;
+		mes "^3131FFYou pick up an old^000000";
+		mes "pendant from the ground.";
+		mes "No matter how hard you try,";
+		mes "you can't open its clasp to see";
+		mes "what this pendant contains.^000000";
+		set lhz_curse,17;
+		getitem 7341,1;
+		close2;
+		warp "lhz_in01",278,162;
+		end;
+	}
+	else
+	{
+		warp "lhz_in01",278,162;
+		end;
+	}
+}
+
+lhz_que01,90,71,5	script	#birdie	1019,3,3,{
+
+	end;
+
+OnTouch:
+	mes "[Peco Peco]";
+	mes "You're a fool!";
+	mes "You're a fool!";
+	mes "You're a fool!";
+	close;
+}
+
+lighthalzen,346,263,3	script	Elder	846,{
+
+	if((!countitem(7345)) || (lhz_curse > 18))
+	{
+L_NoText:
+		mes "[Elder]";
+		mes "Predators are always";
+		mes "on the lookout for easy";
+		mes "prey. Be careful, youngster!";
+		mes "You look innocent enough";
+		mes "to become a victim in the city.";
+		next;
+		switch( select( "About Lighthalzen","About the Slum","????" ) )
+		{
+			case 1:
+				mes "[Elder]";
+				mes "Lighthalzen might seem";
+				mes "like a splendid city at first,";
+				mes "but you'll quickly learn that";
+				mes "the poor are segregated from";
+				mes "the rich and treated as less";
+				mes "than second class citizens.";
+				next;
+				mes "[Elder]";
+				mes "At first, separation between";
+				mes "the rich and poor districts was";
+				mes "subtly enforced. They built the";
+				mes "railroad right between the two";
+				mes "districts to make it easier for";
+				mes "the rich to ignore the poor.";
+				next;
+				mes "[Elder]";
+				mes "But now they even have";
+				mes "guards to make sure that";
+				mes "the poor can't bother the";
+				mes "rich. I'm pretty sure that";
+				mes "this segregation won't be";
+				mes "ending anytime soon...";
+				next;
+				mes "[Elder]";
+				mes "Now, I've heard that the";
+				mes "Rekenber Corporation is";
+				mes "actually providing jobs for";
+				mes "people in the slums. Beggars";
+				mes "can't be choosers, so I'm sure";
+				mes "these jobs aren't that great.";
+				close;
+
+			case 2:
+				mes "[Elder]";
+				mes "To live in the slum is to";
+				mes "be familiar with poverty,";
+				mes "disease, condemnation";
+				mes "and contempt. But we're all";
+				mes "still people, you know, so let";
+				mes "go of any of your misgivings.";
+				next;
+				mes "[Elder]";
+				mes "We're struggling just";
+				mes "to survive here. At the";
+				mes "very least, please respect";
+				mes "that. It's a fact that the";
+				mes "people in the rich district";
+				mes "seem to keep forgetting.";
+				close;
+
+			case 3:
+				mes "[Elder]";
+				mes "Well, if you need any";
+				mes "help around here or have";
+				mes "any questions, come back";
+				mes "and ask me. I get the feeling";
+				mes "that we'll probably meet again.";
+				close;
+		}
+	}
+	else if((lhz_curse == 1) && (lhz_spi01) && (lhz_spi02) && (lhz_spi04))
+	{
+		mes "[Elder]";
+		mes "No wonder you look";
+		mes "so weary. Come, let";
+		mes "me help relieve you";
+		mes "of the burden that";
+		mes "you're carrying.";
+		next;
+		switch( select( "Um, burden...?","Crazy old woman!" ) )
+		{
+			case 1:
+				mes "[Elder]";
+				mes "Ah yes, they may not";
+				mes "be apparent to you, but";
+				mes "my eyes can clearly see";
+				mes "them. Yes. You're being";
+				mes "followed by those things.";
+				next;
+				switch( select( "Things?" ) )
+				{
+					case 1:
+						break;
+				}
+				mes "[Elder]";
+				mes "Yes. the best way I can";
+				mes "describe them is as evil";
+				mes "thoughts left in the world";
+				mes "when someone dies in";
+				mes "such a way that his grudge";
+				mes "survives to menace the living.";
+				next;
+				mes "[Elder]";
+				mes "Sometimes, these lingering";
+				mes "thoughts are created when";
+				mes "someone is broken hearted";
+				mes "or clings to this plane of the";
+				mes "sake of a loved one. Yes, those";
+				mes "thoughts are following you.";
+				next;
+				mes "[Elder]";
+				mes "I don't know why they";
+				mes "are following you, but I'm";
+				mes "certain they're there. Have";
+				mes "you been experiencing chills";
+				mes "down your spine, cold sweats,";
+				mes "maybe even hearing voices?";
+				soundeffect "loli_ruri_stand.wav",0;
+				sc_start SC_Curse,5000,0;
+				next;
+				switch( select( "Yes! How do I get rid of them?" ) )
+				{
+					case 1:
+						break;
+				}
+				mes "[Elder]";
+				mes "Well, usually these lingering";
+				mes "thoughts have some sort of";
+				mes "physical anchor, an object";
+				mes "that has feelings attached";
+				mes "to it, something important";
+				mes "to its late owner.";
+				next;
+				mes "[Elder]";
+				mes "The rage they're directing";
+				mes "at you seems to be growing";
+				mes "and I can see the angry spirits";
+				mes "pulling at the hems of your";
+				mes "clothes. Tell me, have you";
+				mes "wronged anyone recently?!";
+				next;
+				switch( select( "I don't... think so.","I can't remember every bad thing I've done!" ) )
+				{
+					case 1:
+						break;
+						case 2:
+						break;
+				}
+				mes "[Elder]";
+				mes "Well, you better do";
+				mes "something soon, before";
+				mes "the evil taints your mind";
+				mes "and drives you to insanity!";
+				mes "Now, I need to know for sure";
+				mes "if you've hearing voices.";
+				next;
+				switch( select( "Y-yes, I have." ) )
+				{
+					case 1:
+						break;
+				}
+				mes "[Elder]";
+				mes "There's still hope.";
+				mes "The spirits are trying";
+				mes "to reach you for now, but";
+				mes "if you wait too long, you may";
+				mes "become a victim of their wrath.";
+				mes "Hurry, there is much to do!";
+				next;
+				mes "[Elder]";
+				mes "You must appease these";
+				mes "forces by finding out what";
+				mes "happened to them in life.";
+				mes "Now, I don't possess great";
+				mes "power, but I can encourage";
+				mes "the spirits to guide you.";
+				next;
+				mes "[Elder]";
+				mes "I can only have the spirits";
+				mes "reveal the places they wish";
+				mes "for you to search only once.";
+				mes "You must remember the";
+				mes "locations that I am about";
+				mes "to show you. Get ready...";
+				specialeffect2 22;
+				next;
+				mes "[Elder]";
+				mes "Yaaaaappp ---!";
+				specialeffect2 62;
+				specialeffect2 225;
+				specialeffect2 36;
+				next;
+				mes "[Elder]";
+				mes "There! The locations";
+				mes "you must search should";
+				mes "be clear to you now! Don't";
+				mes "forget these placemarks!";
+				viewpoint 1,104,282,1,0xFF99FF33;
+				viewpoint 1,105,282,2,0xFF99FF33;
+				viewpoint 1,104,281,3,0xFF99FF33;
+				viewpoint 1,105,281,4,0xFF99FF33;
+				next;
+				mes "[Elder]";
+				mes "Good luck, youngster.";
+				mes "I hope you can appease";
+				mes "the wrath of these spirits...";
+				mes "But as long as you let them";
+				mes "guide you, you ought to be safe.";
+				set lhz_curse,6;
+				close;
+		
+			case 2:
+				mes "[Elder]";
+				mes "Crazy...? Hm, you must";
+				mes "not quite understand what's";
+				mes "happening to you. Please do";
+				mes "not hesitate to come back to";
+				mes "me when you realize that you";
+				mes "need my help, youngster.";
+				close;
+		}
+	}
+	else if((lhz_curse > 5) && (lhz_curse < 17))
+	{
+		mes "[Elder]";
+		mes "I'm sorry, but there's";
+		mes "nothing more I can do for";
+		mes "you right now. But if you";
+		mes "find anything related to the";
+		mes "spirits that torment you,";
+		mes "please let me know.";
+		close;
+	}
+	else if(lhz_curse == 17)
+	{
+		if(!countitem(7341))
+		{
+			mes "[Elder]";
+			mes "I'm sorry, but there's";
+			mes "nothing more I can do for";
+			mes "you right now. But if you";
+			mes "find anything related to the";
+			mes "spirits that torment you,";
+			mes "please let me know.";
+			close;
+		}
+		mes "[Elder]";
+		mes "Greetings, adventurer.";
+		mes "How goes your search for";
+		mes "the remains of the spirits";
+		mes "that still cling to this plane?";
+		next;
+		switch( select( "Show her the Pendant.","Cancel" ) )
+		{
+			case 1:
+				mes "[Elder]";
+				mes "Oh my... There are some";
+				mes "incredibly powerful emotions";
+				mes "clinging to this pendant. If we";
+				mes "don't do anything about this,";
+				mes "you'll be cursed very soon.";
+				mes "This is what you must do.";
+				next;
+				mes "[Elder]";
+				mes "Hurry and bring";
+				mes "^0000ff5 Holy Water^000000 and";
+				mes "^0000ff1 Bouquet^000000. The Holy Water";
+				mes "will purify this Pendant and";
+				mes "the Bouquet will comfort";
+				mes "the spirit of its owner.";
+				next;
+				mes "[Elder]";
+				mes "You don't have much";
+				mes "time, so return to me";
+				mes "as soon as possible!";
+				mes "It won't be long until";
+				mes "the spirits are consumed";
+				mes "by their supernatural rage...";
+				set lhz_curse,18;
+				close;
+				case 2:
+				mes "[Elder]";
+				mes "Oh... You look so pale, are";
+				mes "you alright? Heh heh~";
+				close;
+			}
+	}
+	else if(lhz_curse == 18)
+	{
+		if((countitem(523) < 5) || (!countitem(744)) || (!countitem(7341)))
+		{
+			mes "[Elder]";
+			mes "Hurry and bring";
+			mes "^0000ff5 Holy Water^000000 and";
+			mes "^0000ff1 Bouquet^000000. The Holy Water";
+			mes "will purify this Pendant and";
+			mes "the Bouquet will comfort";
+			mes "the spirit of its owner.";
+			close;
+		}
+		mes "[Elder]";
+		mes "Good, good.";
+		mes "All is readiness.";
+		mes "Please be silent as";
+		mes "I focus my spirit for the";
+		mes "great task before me.";
+		next;
+		mes "[Elder]";
+		mes "...";
+		mes "......";
+		mes ".........";
+		mes "Hoooooooo...";
+		specialeffect2 88;
+		next;
+		mes "[Elder]";
+		mes "Yaaaaapp ---!";
+		specialeffect2 86;
+		next;
+		mes "[Elder]";
+		mes "Whew! I've managed";
+		mes "to nullify this curse for you.";
+		mes "That still doesn't change the";
+		mes "fact that what happened to this";
+		mes "pendant's owner was tragic...";
+		next;
+		mes "[Elder]";
+		mes "Why don't you bring";
+		mes "this pendant to the place";
+		mes "where it really belongs?";
+		mes "I'm sure that would bring";
+		mes "great comfort to its owner.";
+		next;
+		mes "^3131FFSuddenly, the clasp on";
+		mes "the pendant pops open,";
+		mes "revealing a picture of a happy";
+		mes "couple. Somehow, the girl in";
+		mes "the picture, sitting uncomfortably";
+		mes "in an old chair, looks familiar...^000000";
+		set lhz_curse,19;
+		delitem 523,5;
+		delitem 744,1;
+		close;
+	}
+	else goto L_NoText;
+}
+
+lhz_in03,32,162,3	script	Crippled Girl	53,{
+
+	if(lhz_curse == 23)
+	{
+		if(countitem(7341))
+		{
+			mes "["+strcharinfo(0)+"]";
+			mes "Hey there, are";
+			mes "you feeling alright?";
+			next;
+			mes "[Crippled Girl]";
+			mes "Oh, thanks,";
+			mes "I'm fine. But...";
+			mes "Have we met before?";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Yeah, we did.";
+			mes "You should know who";
+			mes "I am by now. Hey, you";
+			mes "didn't forget, did you?";
+			next;
+			mes "[Lady]";
+			mes "Oh, how do I put this?";
+			mes "The fever she had for the";
+			mes "last few days. She's gotten";
+			mes "better, but she's forgotten";
+			mes "everything that's happened";
+			mes "in the past few weeks...";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Oh... Oh. I'm so";
+			mes "sorry. But maybe this";
+			mes "is for the best? Here,";
+			mes "I think you should keep";
+			mes "this pendant, though.";
+			next;
+			mes "^3131ffYou place the";
+			mes "old pendant";
+			mes "into her hands.^000000";
+			next;
+			specialeffect2 259;
+			mes "...............";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "...";
+			mes "......";
+			next;
+			mes "[Possessed "+strcharinfo(0)+"]";
+			mes "^3131FFSetsu, please remember";
+			mes "that I'd never do anything";
+			mes "to hurt you. Forgive me for";
+			mes "leaving you behind. I hope";
+			mes "that one day we'll meet";
+			mes "again, little princess.^000000";
+			next;
+			mes "[Possessed "+strcharinfo(0)+"]";
+			mes "^3131FFUntil then, I want";
+			mes "you to be happy, okay?";
+			mes "Your brother's always";
+			mes "gonna be looking out for";
+			mes "you, one way or another...^000000";
+			next;
+			mes "[Setsu]";
+			mes "My brother's...";
+			mes "That's my brother's";
+			mes "voice! Brother!";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Eh? What? Whoa...";
+			mes "What came over me?";
+			mes "The last thing I reme--";
+			next;
+			mes "[Setsu]";
+			mes "...";
+			mes "......";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "Well...";
+			mes "This is awkward.";
+			delitem 7341,1;
+			set lhz_curse,24;
+			close;
+		}
+		mes "["+strcharinfo(0)+"]";
+		mes "Hey there, are";
+		mes "you feeling alright?";
+		next;
+		mes "[Crippled Girl]";
+		mes "Oh, thanks,";
+		mes "I'm fine. But...";
+		mes "Have we met before?";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Yeah, we did.";
+		mes "You should know who";
+		mes "I am by now. Hey, you";
+		mes "didn't forget, did you?";
+		next;
+		mes "[Lady]";
+		mes "Oh, how do I put this?";
+		mes "The fever she had for the";
+		mes "last few days. She's gotten";
+		mes "better, but she's forgotten";
+		mes "everything that's happened";
+		mes "in the past few weeks...";
+		next;
+		mes "^3131ffThis would be a good";
+		mes "opportunity to give her the...^000000";
+		close;
+	}
+	else if(lhz_curse == 24)
+	{
+		mes "[Setsu]";
+		mes "...";
+		mes "......";
+		close;
+	}
+	else if(lhz_curse == 25)
+	{
+		mes "[Setsu]";
+		mes "Excuse me, I can't still";
+		mes "walk but I don't cry";
+		mes "anymore. I'm doing my best!";
+		close;
+	}
+	else
+	{
+		mes "[Crippled Girl]";
+		mes "...";
+		mes "......";
+		mes "*Sigh...*";
+		next;
+		switch( select( "Hello, how are you?" ) )
+		{
+			case 1:
+				break;
+		}
+		mes "[Crippled Girl]";
+		mes "Oh, I'm fine,";
+		mes "thanks for asking.";
+		mes "I'm just waiting for";
+		mes "somebody, that's all.";
+		if(lhz_curse == 19)
+		{
+			next;
+			switch( select( "Show her the Pendant.","Okay, have a good day." ) )
+			{
+				case 1:
+					mes "["+strcharinfo(0)+"]";
+					mes "Um, would you have";
+					mes "any idea who might";
+					mes "have owned this pendant?";
+					next;
+					if (!countitem(7341))
+					{
+						mes "[Crippled Girl]";
+						mes "What are you talking about?";
+						close;
+					}
+					emotion e_gasp;
+					mes "[Crippled Girl]";
+					mes "Oh, that's mine!";
+					mes "I gave it to my big brother";
+					mes "before he went away on some";
+					mes "sort of business trip. You must";
+					mes "be his friend, is that right?";
+					next;
+					mes "["+strcharinfo(0)+"]";
+					mes "Actually, um,";
+					mes "you know what...?";
+					next;
+					switch( select( "Brutal Truth","Break it to her gently" ) )
+					{
+						case 1:
+							mes "...";
+							mes "......";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "...So basically, your";
+							mes "brother's ghost, oh right,";
+							mes "did I mention he was dead?";
+							mes "Anyway, so he's not alive";
+							mes "anymore, but his spirit or";
+							mes "whatever is still around and--";
+							next;
+							mes "[Crippled Girl]";
+							mes "...";
+							mes "......";
+							next;
+							mes "[Crippled Girl]";
+							mes "...Dead?";
+							mes "No! I don't believe you!";
+							mes "He can't die! He was the";
+							mes "bravest and the sweetest";
+							mes "and the-- Leave me alone!";
+							mes "Oh god, get the hell away!";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "...";
+							mes "......";
+							mes "Sheesh.";
+							mes "Don't kill the";
+							mes "messenger.";
+							set lhz_curse,20;
+							close2;
+							warp "lighthalzen",322,323;
+							end;
+
+						case 2:
+							mes "[Crippled Girl]";
+							mes "Did you meet my";
+							mes "big brother...?";
+							next;
+							mes "[Crippled Girl]";
+							mes "My brother is a strong";
+							mes "person, and I should be";
+							mes "happy of that, because";
+							mes "nothing could happen";
+							mes "to him.";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "Um... yes. So...";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "Sure, your big brother must be happy.";
+							mes "He'll come back sometime.";
+							mes "You should sleep to be healthy";
+							mes "once your brother returns.";
+							next;
+							mes "[Crippled Girl]";
+							mes "Yes! I must be okay";
+							mes "and be able to walk when my";
+							mes "brother come.";
+							if(!countitem(7341)) close;
+							next;
+							mes "^3131ffYou place the";
+							mes "old pendant";
+							mes "into her hands.^000000";
+							next;
+							specialeffect2 259;
+							mes "......";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "...............";
+							next;
+							mes "[Possessed "+strcharinfo(0)+"]";
+							mes "^3131FFSetsu, please remember";
+							mes "that I'd never do anything";
+							mes "to hurt you. Forgive me for";
+							mes "leaving you behind. I hope";
+							mes "that one day we'll meet";
+							mes "again, little princess.^000000";
+							next;
+							mes "[Possessed "+strcharinfo(0)+"]";
+							mes "^3131FFUntil then, I want";
+							mes "you to be happy, okay?";
+							mes "Your brother's always";
+							mes "gonna be looking out for";
+							mes "you, one way or another...^000000";
+							next;
+							mes "[Setsu]";
+							mes "My brother's...";
+							mes "That's my brother's";
+							mes "voice! Brother!";
+							next;
+							mes "["+strcharinfo(0)+"]";
+							mes "Eh? What? Whoa...";
+							mes "What came over me?";
+							mes "The last thing I reme--";
+							next;
+							mes "^FF0000Tears fall from the";
+							mes "girl's face, then you...^000000";
+							next;
+							switch( select( "Distract her","Comfort her" ) )
+							{
+								case 1:
+									mes "["+strcharinfo(0)+"]";
+									mes "Oh, all of this was a play...";
+									mes "Y-yes a play, I was practising.";
+									mes "Ha ha~ Is it okay, isn't it?";
+									next;
+									mes "[Setsu]";
+									mes "Oh, you surprised me!";
+									mes "Even though I didn't think";
+									mes "it was really my brother, you know?";
+									next;
+									mes "["+strcharinfo(0)+"]";
+									mes "Excuse me...";
+									next;
+									mes "[Setsu]";
+									mes "I'll do my best!";
+									mes "I must be okay when my brother return.";
+									mes "He'll be very proud of me.";
+									mes "Heh heh~";
+									next;
+									mes "["+strcharinfo(0)+"]";
+									mes "Yes, I'm sure of that.";
+									delitem 7341,1;
+									set lhz_curse,25;
+									close;
+						
+								case 2:
+									mes "["+strcharinfo(0)+"]";
+									mes "Crying have no use!";
+									mes "You're a very pretty";
+									mes "girl to be ruining your";
+									mes "face with useless tears.";
+									next;
+									mes "[Setsu]";
+									mes "............";
+									next;
+									mes "["+strcharinfo(0)+"]";
+									mes "You should do your best";
+									mes "to be healthy for the time";
+									mes "your big brother return.";
+									next;
+									mes "[Setsu]";
+									mes "Yes...";
+									next;
+									mes "["+strcharinfo(0)+"]";
+									mes "Listen, when your brother";
+									mes "return you'll celebrate in";
+									mes "a beautiful place.";
+									next;
+									mes "[Setsu]";
+									mes "Really?";
+									mes "It's a promise then! Heh heh~";
+									next;
+									mes "["+strcharinfo(0)+"]";
+									mes "I hope it'll be soon!";
+									mes "When I return I want you to be";
+									mes "able to walk. See you soon, then!";
+									next;
+									mes "[Setsu]";
+									mes "I'll try hard!";
+									delitem 7341,1;
+									set lhz_curse,25;
+									close;
+							}
+					}
+			
+				case 2:
+					mes "[Crippled Girl]";
+					mes "Okay,";
+					mes "bye-bye...";
+					close;
+			}
+		}
+		close;
+	}
+}
+
+lighthalzen,324,322,1	script	#lhz_door1	45,2,2,{
+
+OnTouch:
+	if((lhz_curse > 19) && (lhz_curse < 23))
+	{	
+		mes "^3131ffThe door is locked.^000000";
+		close;
+	}
+	else if(lhz_curse > 23)
+	{
+		mes "^3131ffThe door is locked.^000000";
+		next;
+		mes "[Citizen]";
+		mes "I'm sorry, but another";
+		mes "epidemic is starting to";
+		mes "spread around the slums.";
+		mes "We're not going outside and";
+		mes "we're keeping our children safe!";
+		next;
+		mes "[Citizen]";
+		mes "Not to be unfriendly,";
+		mes "but you should be careful";
+		mes "too. The living conditions";
+		mes "of this area aren't exactly";
+		mes "sanitary, you know?";
+		close;
+	}
+	else
+	{
+		warp "lhz_in03",15,162;
+		end;
+	}
+}
+
+lhz_in03,12,162,1	script	#lhz_door2	45,1,1,{
+
+OnTouch:
+	warp "lighthalzen",321,322;
+	end;
+}
+
+lighthalzen,319,321,0	script	#brother	-1,3,3,{
+
+OnTouch:
+	if((lhz_curse == 24) || (lhz_curse == 25))
+	{
+		mes "*Shhhzzzz!*";
+		next;
+		mes "[????]";
+		mes "............";
+		specialeffect2 36;
+		next;
+		mes "[???]";
+		mes "^FF0000...I'm sorry...";
+		mes "......I appreciate";
+		mes "that you............^000000";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "H-huh?!";
+		mes "What was that?";
+		mes "That can't be the";
+		mes "wind, I must be";
+		mes "hearing things again...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "Wait. I thought I was";
+		mes "rid of those thoughts";
+		mes "or spirits, whatever was";
+		mes "haunting me before. Maybe";
+		mes "they still want me to do";
+		mes "something for them. Hmmm...";
+		next;
+		mes "["+strcharinfo(0)+"]";
+		mes "I get the feeling that";
+		mes "all of their suffering";
+		mes "is tied to the ^FF0000Rekenber";
+		mes "Corporation^000000 and that";
+		mes "^FF0000Regenschirm Laboratory^000000.";
+		set lhz_curse,26;
+		if(BaseJob < 70) getexp 800000,300000;
+		else if(BaseJob < 80) getexp 1000000,500000;
+		else if(BaseJob < 90) getexp 1500000,800000;
+		else getexp 2000000,1000000;
+		close;
+	}
+}
+
+lhz_in01,114,181,3	script	Representative	71,{
+
+	mes "[Representative]";
+	mes "Greetings, and welcome";
+	mes "to the Rekenber Corporation.";
+	mes "How may I be of service today?";
+	next;
+	if(lhz_curse == 7) menu "Building Information",L_Building,"Corporation History",L_History;
+	else menu "Building Information",L_Building;
+
+L_Building:
+	mes "[Representative]";
+	mes "Please tell me";
+	mes "which floor you'd like";
+	mes "to know more about.";
+	next;
+	switch( select( "1F","2F","B1","Cancel" ) )
+	{
+		case 1:
+			mes "[Representative]";
+			mes "The ^3131FFRekenber Library^000000 can";
+			mes "be found at the end of the";
+			mes "left hallway. Our library is";
+			mes "a great resource of innovative";
+			mes "ideas and information for our";
+			mes "system development employees.";
+			next;
+			mes "[Representative]";
+			mes "The ^3131FFBall Room^000000, where";
+			mes "various official events are";
+			mes "usually held, can be accessed";
+			mes "through the right hallway.";
+			next;
+			goto L_Building;
+
+		case 2:
+			mes "[Representative]";
+			mes "Please use the stairs";
+			mes "located on both sides of";
+			mes "the Help Desk to go to the";
+			mes "Second Floor. The Second";
+			mes "Floor is mostly used for";
+			mes "administrative purposes.";
+			next;
+			mes "[Representative]";
+			mes "There, you can find";
+			mes "the ^3131FFConference Room^000000,";
+			mes "^3131FFSecretary Office^000000, the";
+			mes "^3131FFAuditorium^000000 and the";
+			mes "^3131FFChairman's Office^000000.";
+			next;
+			goto L_Building;
+
+		case 3:
+			mes "[Representative]";
+			mes "The first underground floor";
+			mes "is used by the ^3131FFRegenshirm^000000,";
+			mes "our laboratory affiliate. For";
+			mes "security reasons, this floor";
+			mes "is not accessible to visitors";
+			next;
+			goto L_Building;
+
+		case 4:
+			mes "[Representative]";
+			mes "We are always doing our";
+			mes "best to provide the best";
+			mes "services to our customers.";
+			mes "Remember that Rekenber";
+			mes "is the name you can trust.";
+			mes "Thank you and have a nice day.";
+			close;
+	}
+
+L_History:
+	mes "[Representative]";
+	mes "If you're interested in";
+	mes "learning the history of";
+	mes "our corporation, please";
+	mes "speak to the representative";
+	mes "inside our Library. Thank you.";
+	next;
+	mes "[Representative]";
+	mes "Please head down";
+	mes "the hallway to the left in";
+	mes "order to find our Library.";
+	mes "Thank you and have a nice day.";
+	set lhz_curse,8;
+	close;	
+}
+
+lhz_in01,27,247,5	script	Representative	71,{
+
+	if(lhz_curse > 6)
+	{
+		mes "[Representative]";
+		mes "Welcome to the";
+		mes "Rekenber Corporation.";
+		mes "How may I help you?";
+		next;
+		switch( select( "Corporation History","Rekenber's Businesses" ) )
+		{
+			case 1:
+				mes "[Representative]";
+				mes "Rekenber was established";
+				mes "400 years ago, around the";
+				mes "same time as the foundation";
+				mes "of the Schwaltzvalt Republic.";
+				next;
+				mes "[Representative]";
+				mes "We began as the ''Zent Zerter";
+				mes "Lighthal Research Center,''";
+				mes "named after our first chairman.";
+				mes "In 560 A.W. (After War), our";
+				mes "organization was renamed after";
+				mes "our new chairman, Mr. Rekenber.";
+				next;
+				mes "[Representative]";
+				mes "Mr. Rekenber expanded the";
+				mes "Corporation's purposes, but";
+				mes "also founded the Regenschirm";
+				mes "Laboratory to continue this";
+				mes "company's original goal of";
+				mes "scientific research.";
+				next;
+				mes "[Representative]";
+				mes "In the year 700 A.W.,";
+				mes "^ff0000Doctor Varmunt^000000 joined";
+				mes "Regenschirm. It was his work";
+				mes "in science that enabled the";
+				mes "Rekenber Corporation to grow";
+				mes "into the nation's biggest company.";
+				if(lhz_curse == 8) set lhz_curse,9;
+				else if(lhz_curse == 9) set lhz_curse,10;
+				next;
+				break;
+
+			case 2:
+				mes "[Representative]";
+				mes "In addition to merchandising,";
+				mes "freight transport and trading,";
+				mes "the Rekenber Corporation is";
+				mes "also heavily involved with";
+				mes "providing the Airship service,";
+				mes "one of our major projects.";
+				next;
+				mes "[Representative]";
+				mes "Rekenber is involved in";
+				mes "almost any business that";
+				mes "you can imagine. Remember";
+				mes "that Rekenber is the name";
+				mes "that you can trust.";
+				if (lhz_curse == 8) set lhz_curse,9;
+				else if(lhz_curse == 9) set lhz_curse,10;
+				next;
+				break;
+		}
+		mes "[Representative]";
+		mes "If you'd like to know more";
+		mes "about our mission statement,";
+		mes "please refer to the Rekenber";
+		mes "Guidebook located to my side.";
+		mes "Thank you and have a nice day.";
+		close;
+	}
+	mes "[Representative]";
+	mes "Greetings, and welcome";
+	mes "to the Rekenber Corporation.";
+	mes "How may I be of service today?";
+	next;
+	switch( select( "Building Information" ) )
+	{
+		case 1:
+L_Building:
+			mes "[Representative]";
+			mes "Please tell me";
+			mes "which floor you'd like";
+			mes "to know more about.";
+			next;
+			switch( select( "1F","2F","B1","Cancel" ) )
+			{
+				case 1:
+					mes "[Representative]";
+					mes "The ^3131FFRekenber Library^000000 can";
+					mes "be found at the end of the";
+					mes "left hallway. Our library is";
+					mes "a great resource of innovative";
+					mes "ideas and information for our";
+					mes "system development employees.";
+					next;
+					mes "[Representative]";
+					mes "The ^3131FFBall Room^000000, where";
+					mes "various official events are";
+					mes "usually held, can be accessed";
+					mes "through the right hallway.";
+					next;
+					goto L_Building;
+
+				case 2:
+					mes "[Representative]";
+					mes "Please use the stairs";
+					mes "located on both sides of";
+					mes "the Help Desk to go to the";
+					mes "Second Floor. The Second";
+					mes "Floor is mostly used for";
+					mes "administrative purposes.";
+					next;
+					mes "[Representative]";
+					mes "There, you can find";
+					mes "the ^3131FFConference Room^000000,";
+					mes "^3131FFSecretary Office^000000, the";
+					mes "^3131FFAuditorium^000000 and the";
+					mes "^3131FFChairman's Office^000000.";
+					next;
+					goto L_Building;
+
+				case 3:
+					mes "[Representative]";
+					mes "The first underground floor";
+					mes "is used by the ^3131FFRegenshirm^000000,";
+					mes "our laboratory affiliate. For";
+					mes "security reasons, this floor";
+					mes "is not accessible to visitors";
+					next;
+					goto L_Building;
+
+				case 4:
+					mes "[Representative]";
+					mes "We are always doing our";
+					mes "best to provide the best";
+					mes "services to our customers.";
+					mes "Remember that Rekenber";
+					mes "is the name you can trust.";
+					mes "Thank you and have a nice day.";
+					close;
+			}
+	}
+}
+
+lhz_in01,25,251,3	script	Rekenber Guidebook	111,{
+
+	mes "...............";
+	next;
+	mes "^0000FF#The Vision^000000";
+	mes "In the pursuit of knowledge,";
+	mes "Rekenber will search the";
+	mes "Rune-Midgart continent for";
+	mes "ancient relics. We hope to make";
+	mes "significant scientific progress by";
+	mes "learning the secrets of the past.";
+	next;
+	mes "By making scientific";
+	mes "headway, we hope we can";
+	mes "improve current technologies";
+	mes "to provide more convenient";
+	mes "and affordable services in";
+	mes "the Schwaltzvalt Republic.";
+	next;
+	mes "^0000ff#The Commitment^000000";
+	mes "Although magic and the";
+	mes "power of gods has always";
+	mes "maintained an aura of mystery";
+	mes "and superstition, Rekenber hopes";
+	mes "^0000ffto understand these forces from";
+	mes "a more logical standpoint^000000.";
+	next;
+	mes "^ff0000Our goal is to make";
+	mes "the lives of our customers";
+	mes "easier and more enjoyable";
+	mes "by making the ancient power";
+	mes "of the gods more accessible";
+	mes "by means of new technologies.^000000";
+	if(lhz_curse == 10) set lhz_curse,11;
+	next;
+	mes "...............";
+	close;
+}
+
+lhz_in01,273,121,1	script	Mad Scientist	865,{
+
+	if(lhz_curse == 13)
+	{
+		mes "[Wolfchev]";
+		mes "No one shall";
+		mes "interrupt my";
+		mes "research! If you";
+		mes "dare, I'll simply...";
+		mes "Eat you. Eat you alive.";
+		next;
+		switch( select( "No... N-no!","Do you need any help?" ) )
+		{
+			case 1:
+				mes "[Wolfchev]";
+				mes "Out of my sight,";
+				mes "microcephalic fool!";
+				close;
+
+			case 2:
+				mes "[Wolfchev]";
+				mes "Huh? You think I have";
+				mes "the luxury of remembering";
+				mes "the face of every part-timer";
+				mes "I've fired? Get lost, or I'll";
+				mes "treat you to the pain of";
+				mes "being eaten alive!";
+				set lhz_curse,14;
+				close;
+		}
+	}
+	else if(lhz_curse == 14)
+	{
+		mes "[Wolfchev]";
+		mes "You again?!";
+		mes "What the hell do";
+		mes "you want from me?!";
+		emotion e_ag,0;
+		next;
+		switch( select( "Let me speak with you.","Sorry for bothering you." ) )
+		{
+			case 1:
+				mes "[Wolfchev]";
+				mes "I don't have time to";
+				mes "waste with drivel! I'm";
+				mes "too busy with my research!";
+				next;
+				mes "[Wolfchev]";
+				mes "............!";
+				emotion e_gasp,0;
+				next;
+				mes "[Wolfchev]";
+				mes "Ah, but wait! I am collecting";
+				mes "something. Yes, bring me the";
+				mes "thing I must collect. Yes, yes.";
+				mes "Here's a hint... It's round...";
+				mes "Shiny... Kids love playing games";
+				mes "with them! Oh, I said too much!";
+				set lhz_curse,15;
+				close;
+
+			case 2:
+				emotion e_pif;
+				mes "[Wolfchev]";
+				mes "''Sorry?!'' Do you";
+				mes "think ''sorry'' will";
+				mes "get back that precious";
+				mes "minute I've lost yelling";
+				mes "at you?! Get the hell out!";
+				close;
+		}
+	}
+	else if(lhz_curse == 15)
+	{
+		if(!countitem(746))
+		{
+			mes "[Wolfchev]";
+			mes "It's a round and shining thing!";
+			mes "Hurry up! Bweh-heh-heh!";
+			emotion e_slur,0;
+			close;
+		}
+		delitem 746,1;
+		mes "[Wolfchev]";
+		mes "Yes...! Beads!";
+		mes "You brought them!";
+		mes "You're not as dumb";
+		mes "as I thought you'd be!";
+		next;
+		switch( select( "Why do you want Glass Beads?" ) )
+		{
+			case 1:
+				break;
+		}
+		mes "[Wolfchev]";
+		mes "............";
+		mes "I take that back!";
+		mes "You should know by";
+		mes "now that I would never";
+		mes "tell you why I neeeed";
+		mes "these Beads. Bweh-heh!";
+		emotion e_slur,0;
+		next;
+		mes "[Wolfchev]";
+		mes "This favor you've done";
+		mes "is worth a small chat and";
+		mes "I can spare a minute or two";
+		mes "for you inane questions. So";
+		mes "what is it you want to know?!";
+		next;
+L_Ask1:
+		switch( select( "Ask about hobbies","Ask about work" ) )
+		{
+			case 1:
+				mes "[Wolfchev]";
+				mes "Oh. Oh no, oh no,";
+				mes "I couldn't possibly...";
+				mes "It's a-- I-it's a secret.";
+				mes "You wouldn't want to know";
+				mes "anyway. Bweh-heh-heh-heh!";
+				next;
+				goto L_Ask1;
+
+			case 2:
+				mes "[Wolfchev]";
+				mes "Oh, I don't know if you";
+				mes "can call it work. After all,";
+				mes "I do research whatever it is";
+				mes "I want. And they pay me to";
+				mes "do it! This is the best place";
+				mes "for a scientist like me, yes.";
+				next;
+				mes "[Wolfchev]";
+				mes "Now, in a perfect world,";
+				mes "my test subjects would be";
+				mes "much more cooperative, but";
+				mes "I suppose I cannot blame";
+				mes "them. Not that I cause them";
+				mes "undue suffering or anything...";
+				next;
+		}
+		switch( select( "What kind of research?" ) )
+		{
+			case 1:				
+				mes "[Wolfchev]";
+				mes "Well, I couldn't tell you";
+				mes "exactly. But don't you";
+				mes "worry, the discovery I'm";
+				mes "working on will benefit the";
+				mes "entire world, you'll see.";
+				next;
+				mes "[Wolfchev]";
+				mes "Let's just say that once";
+				mes "I'm successful, I'll satisfy";
+				mes "one of mankind's most primal";
+				mes "instincts, the desire to become";
+				mes "powerful and gain dominance";
+				mes "over those that are weaker.";
+				next;
+				mes "[Wolfchev]";
+				mes "I haven't made as much";
+				mes "progress as I'd like, but";
+				mes "no matter. It's only a matter";
+				mes "of experimentation! Yes, to";
+				mes "make mankind stronger and";
+				mes "better and more powerful and--";
+				next;
+		}
+		switch( select( "Um, what are you testing on?" ) )
+		{
+			case 1:
+				mes "[Wolfchev]";
+				mes "What do you know?";
+				mes "I better get back to";
+				mes "work if I wish to keep";
+				mes "on schedule. I can't afford";
+				mes "the leisure of speaking with";
+				mes "you any longer. Bweh heh heh!";
+				set lhz_curse,16;
+				close;
+		}
+	}
+	else
+	{
+		mes "[Wolfchev]";
+		mes "Waaah~!";
+		mes "Do not disturb my study!";
+		close;
+	}
+}
+
+lhz_in01,286,226,3	script	Secretary Slierre	831,{
+
+	if(lhz_curse == 26)
+	{
+		mes "[Sueii Slierre]";
+		mes "Excuse me, but you are";
+		mes "not allowed to be in here.";
+		mes "If you have questions regarding";
+		mes "the Rekenber Corporation, I can";
+		mes "direct you to someone qualified";
+		mes "to give you an answer.";
+		next;
+		switch( select( "About the slums.","About you." ) )
+		{
+			case 1:
+				mes "[Sueii Slierre]";
+				mes "The slums? All I know";
+				mes "is that this corporation";
+				mes "specifically targeted that";
+				mes "area in order to provide ample";
+				mes "opportunity for employment.";
+				set lhz_curse,27;
+				close;
+			
+			case 2:
+				mes "[Sueii Slierre]";
+				mes "I'm Sueii Slierre,";
+				mes "the personal secretary";
+				mes "for the chairman of the";
+				mes "Rekenber Corporation.";
+				close;
+		}
+	}
+	else if(lhz_curse == 27)
+	{
+		mes "[Sueii Slierre]";
+		mes "Did you have something";
+		mes "else to ask? I can only";
+		mes "divulge information that is";
+		mes "public knowledge, but I can";
+		mes "tell you who to contact for";
+		mes "more specific inquiries.";
+		next;
+		switch( select( "About the Laboratory","About the Corporation" ) )
+		{
+			case 1:
+				mes "[Sueii Slierre]";
+				mes "Rekenber is perhaps the";
+				mes "biggest contributer of the";
+				mes "Regenschirm Laboratory.";
+				mes "Their work will benefit the";
+				mes "entire Rune-Midgart continent,";
+				mes "hence our highly involved support.";
+				next;
+				mes "[Sueii Slierre]";
+				mes "A representative at the";
+				mes "Help Desk will be happy";
+				mes "to assist you if you have";
+				mes "more inquiries regarding";
+				mes "the Regenschirm Laboratory.";
+				set lhz_curse,28;
+				close;
+		
+			case 2:
+				mes "[Sueii Slierre]";
+				mes "I'm sorry, but I don't have";
+				mes "any special information";
+				mes "regarding our corporation.";
+				mes "Why don't you ask one of";
+				mes "our representatives at the";
+				mes "Help Desk to learn more?";
+				close;
+		}
+	}
+	else if(lhz_curse == 28)
+	{
+		mes "[Sueii Slierre]";
+		mes "You're back? I really";
+		mes "doubt that I can be of";
+		mes "any assistance to you.";
+		next;
+		switch( select( "Wolfchev's Research" ) )
+		{
+			case 1:
+				break;
+		}
+		mes "[Sueii Slierre]";
+		mes "..............!";
+		emotion e_gasp,0;
+		next;
+		mes "[Sueii Slierre]";
+		mes "How do you know";
+		mes "Wolfchev? Are you an";
+		mes "acquaintance of his or...?";
+		next;
+		switch( select( "I'm a friend of his.","Oh, we're family, you know...","I've heard about him before, so..." ) )
+		{
+			case 1:
+				mes "[Sueii Slierre]";
+				mes "Well, Wolfchev is not";
+				mes "only brilliant, he's also";
+				mes "a respected professional.";
+				mes "He should be doing just fine.";
+				next;
+				break;
+
+			case 2:
+				mes "[Sueii Slierre]";
+				mes "Ah, you should be";
+				mes "very proud of Wolfchev.";
+				mes "In addition to being a";
+				mes "genius, Wolfchev is also";
+				mes "quite the professional,";
+				mes "truly a model scientist.";
+				next;
+				break;
+
+			case 3:
+				mes "[Sueii Slierre]";
+				mes "Ah yes, Wolfchev has";
+				mes "quite the reputation. In";
+				mes "fact, he's in such high";
+				mes "demand that Regenschirm";
+				mes "wants him on their staff.";
+				close;
+		}
+		mes "[Sueii Slierre]";
+		mes "...";
+		mes "......";
+		next;
+		mes "[Sueii Slierre]";
+		mes "I'm sorry, but please";
+		mes "understand that my office";
+		mes "isn't the place for visitors to";
+		mes "submit their general inquiries.";
+		mes "Please visit the Help Desk if";
+		mes "you have any more questions.";
+		next;
+		switch( select( "About Wolfchev's Research" ) )
+		{
+			case 1:
+				break;
+		}
+		mes "[Sueii Slierre]";
+		mes "I couldn't tell you any";
+		mes "more about Wolfchev.";
+		mes "But is there anything you";
+		mes "need to tell me about him?";
+		mes "Well, if you have something";
+		mes "to ask, be quick about it.";
+		emotion e_hmm,0;
+		next;
+		switch( select( "Wolfchev's Past","Wolfchev's Test Subjects" ) )
+		{
+			case 1:
+				mes "[Sueii Slierre]";
+				mes "I remember hearing that he";
+				mes "received a high recommendation";
+				mes "to work here, but specifics elude";
+				mes "me since I don't work in Human";
+				mes "Resources. There's a rumor that";
+				mes "he had a troubled love life...";
+				next;
+				mes "[Sueii Slierre]";
+				mes "But aside from a few";
+				mes "rumors, we really don't";
+				mes "know much about Wolfchev's";
+				mes "personal life. But then again,";
+				mes "it may be unethical to pry too";
+				mes "much into our employee's lives.";
+				close;
+			
+			case 2:
+				mes "[Sueii Slierre]";
+				mes "Wolfchev's test subjects?";
+				mes "Well, I know we have a policy";
+				mes "of using the most humane";
+				mes "methods depending on the";
+				mes "experiment. And of course, he";
+				mes "should only be testing on animals.";
+				next;
+				switch( select( "Wolfchev's research is great!","His experiments are suspicius..." ) )
+				{		
+					case 1:
+						mes "[Sueii Slierre]";
+						mes "Yes yes, I'd agree if";
+						mes "I understood science a";
+						mes "little bit better. Now, you'll";
+						mes "have to excuse me. I've been";
+						mes "distracted long enough as it is...";
+						close2;
+						warp "lhz_in01",228,226;
+						end;
+
+					case 2:
+						mes "[Sueii Slierre]";
+						mes "What exactly do you mean?";
+						mes "Are you sure that you haven't";
+						mes "misunderstood anything about";
+						mes "Wolfchev's work? You'll need";
+						mes "to illustrate your claim for us";
+						mes "to be on the same page...";
+						next;
+						switch( select( "Show Evidence","Cancel" ) )
+						{
+							case 1:
+L_Evidence:
+								if (!countitem(7345))
+								{
+									mes "[Sueii Slierre]";
+									mes "What evidence are you";
+									mes "talking about? Look,";
+									mes "I'm very busy at the moment,";
+									mes "I can't lose too much time";
+									mes "with you. Talk to me when you";
+									mes "have something concrete.";
+									set lhz_curse,29;
+									close;
+								}
+								mes "^3131ffWhile saying that you";
+								mes "show the handcuffs to";
+								mes "Sueii Slierre.^000000";
+								next;
+								mes "^3131ffThe expression in";
+								mes "Sueii Slierre's face tenses";
+								mes "a little.^000000";
+								next;
+								mes "[Sueii Slierre]";
+								mes "...............";
+								next;
+								mes "[Sueii Slierre]";
+								mes "...............";
+								next;
+								mes "[Sueii Slierre]";
+								mes "...............";
+								next;
+								switch( select( "What's Wolfchev up to?","What's Regenschirm up to?" ) )
+								{
+									case 1:
+										break;
+
+									case 2:
+										break;
+								}
+								mes "[Sueii Slierre]";
+								mes "...............";
+								mes "...............";
+								mes "...............";
+								mes "...............";
+								next;
+								mes "[Sueii Slierre]";
+								mes "...............";
+								emotion e_heh,0;
+								next;
+								mes "[Sueii Slierre]";
+								mes "Then, you say that";
+								mes "Wolfchev is doing a";
+								mes "suspicious research or that";
+								mes "the Regenschirm Laboratory";
+								mes "is behind all of this?";
+								next;
+								switch( select( "Both","No" ) )
+								{
+									case 1:
+										break;
+
+									case 2:
+										mes "[Sueii Slierre]";
+										mes "Where do you see suspicious";
+										mes "behaviour?";
+										next;
+										switch( select( "Regenschirm Laboratory","Wolfchev" ) )
+										{
+											case 1:
+												mes "[Sueii Slierre]";
+												mes "Regenschirm is part of";
+												mes "the culture of Schwaltzvalt";
+												mes "Republic.";
+												next;
+												mes "[Sueii Slierre]";
+												mes "It's not possible that they're";
+												mes "doing suspicious research.";
+												next;
+												switch( select( "What about Regenschirm's Life Form Research?" ) )
+												{
+													case 1:
+														mes "[Sueii Slierre]";
+														mes "...............?";
+														mes "I don't know much of that";
+														mes "kind of research.";
+														next;
+														break;
+												}
+												break;
+
+											case 2:
+												break;
+										}
+										break;
+								}
+								mes "[Sueii Slierre]";
+								mes "Anyway, we'll start";
+								mes "an investigation about";
+								mes "Wolfchev and his research";
+								mes "to bright this matter a bit.";
+								next;
+								mes "[Sueii Slierre]";
+								mes "I'll tell you if we";
+								mes "find something of interest.";
+								set lhz_curse,30;
+								close;
+				
+							case 2:
+								mes "[Sueii Slierre]";
+								mes "If you're finished,";
+								mes "I'd like to get back on";
+								mes "task. Please excuse me.";
+								close;
+						}
+				}
+				
+		}
+	}
+	else if(lhz_curse == 29) goto L_Evidence;
+	else if(lhz_curse == 30)
+	{
+		set @lhz_invest,rand(1,10);
+		if (@lhz_invest < 8)
+		{
+			mes "[Sueii Slierre]";
+			mes "We're still investigating.";
+			mes "Please wait.";
+			close;
+		}
+		else if(checkweight(1119,1) != 1)
+		{
+			mes "^3355FFWait a second! Right now,";
+			mes "you have too many items in your";
+			mes "inventory. Please come back";
+			mes "after you've made more available";
+			mes "inventory space.^000000";
+			close;
+		}
+		mes "[Sueii Slierre]";
+		mes "Oh good, you're here.";
+		mes "You were right all along.";
+		mes "In our investigation, we found";
+		mes "that Wolfchev was conducting";
+		mes "unauthorized and very dangerous";
+		mes "research. I owe you our thanks.";
+		next;
+		switch( select( "What was he doing...?" ) )
+		{
+			case 1:
+				break;
+		}
+		mes "[Sueii Slierre]";
+		mes "It turns out that Wolfchev";
+		mes "was kidnapping weak and sick";
+		mes "people from the slums and";
+		mes "using them as his guinea pigs.";
+		mes "Rest assured, he'll be punished";
+		mes "for his behavior, if not fired.";
+		next;
+		mes "[Sueii Slierre]";
+		mes "I think you deserve an";
+		mes "apology. Without your";
+		mes "report, our corporation's";
+		mes "reputation could have been";
+		mes "potetially damaged. Thank you.";
+		next;
+		mes "[Sueii Slierre]";
+		mes "Yes, there's nothing so";
+		mes "taboo as trying to perform";
+		mes "Homunculus experiments";
+		mes "on people! Anyway, please";
+		mes "accept this as a token of";
+		mes "our gratitude, adventurer.";
+		set lhz_curse,31;
+		getitem 617,1;
+		getitem 12016,10;
+		next;
+		mes "[Sueii Slierre]";
+		mes "Let me promise you";
+		mes "that Rekenber will ensure";
+		mes "that this kind of incident";
+		mes "will not be repeated and";
+		mes "we'll do everything in our";
+		mes "power to compensate for this...";
+		close;
+	}
+	else if(lhz_curse > 30)
+	{
+		mes "[Sueii Slierre]";
+		mes "I'm glad to know that";
+		mes "we have such proactive";
+		mes "and concerned customers";
+		mes "such as yourself to support";
+		mes "the Rekenber Corporation.";
+		close;
+	}
+	else
+	{
+		mes "[Sueii Slierre]";
+		mes "Excuse me, but you are";
+		mes "not allowed to be in here.";
+		mes "Please visit the Help Desk";
+		mes "if you have any questions about";
+		mes "the Rekenber Corporation.";
+		mes "Thank you for cooperating.";
+		close;
+	}
+}
+
+lhz_que01,94,24,0	script	#trace	-1,2,2,{
+
+OnTouch:
+	if(lhz_curse > 30)
+	{
+		mes "^3131FFThere's no trace of";
+		mes "that mad scientist. Only";
+		mes "his stacks of well organized";
+		mes "files remain here in the lab.^000000";
+		if(lhz_curse == 31) set lhz_curse,32;
+		close;
+	}
+}
 
+lhz_in01,43,114,1	script	#warp1	45,1,1,{
+
+OnTouch:
+	if(lhz_curse > 30)
+	{
+		warp "lhz_que01",97,30;
+		end;
+	}
+	warp "lhz_in01",277,130;
+	end;
+}
+
+lhz_que01,97,33,1	script	#warp2	45,1,1,{
+
+OnTouch:
+	warp "lhz_in01",43,120;
+	end;
+}
+
+lhz_in01,278,132,1	script	#warp3	45,1,1,{
+
+OnTouch:
+	warp "lhz_in01",43,120;
+	end;
+}
+
+lhz_que01,89,15,3	script	A File	111,{
+
+	mes "............";
+	next;
+	mes "Name: Engeod";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "Name: Kashutii";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "Name: Prufoz";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "............";
+	close;
+}
+
+lhz_in01,269,114,3	script	Documents	111,{
+
+	mes "............";
+	next;
+	mes "Name: Engeod";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "Name: Kashutii";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "Name: Prufoz";
+	mes "Age: XX";
+	mes "Height: XXX";
+	mes "Weight: XX";
+	next;
+	mes "............";
+	close;
 }
diff --git a/npc/warps/cities/lighthalzen.txt b/npc/warps/cities/lighthalzen.txt
index 425c0646b..17035392a 100644
--- a/npc/warps/cities/lighthalzen.txt
+++ b/npc/warps/cities/lighthalzen.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================
 //= Sara-chan (1.0)
 //===== Current Version: =====================================
-//= 1.5
+//= 1.8
 //===== Compatible With: =====================================
 //= Any Athena Version; RO Episode 8+
 //===== Description: =========================================
@@ -16,6 +16,7 @@
 //= 1.5 Added a few missing warps, thanks to Kargha [MasterOfMuppets]
 //= 1.6 Added a few more missing warps. [MasterOfMuppets]
 //= 1.7 Yet more missing warps implemented :P [MasterOfMuppets]
+//= 1.8 Added missing warps and moved some related to quests. [SinSloth]
 //============================================================
 
 lighthalzen,196,46,0	warp	lhz010	1,1,lhz_in02,282,83
@@ -132,14 +133,11 @@ lhz_in01,15,129,0	warp	lhz046a	1,1,lhz_in01,34,224
 lhz_in01,58,130,0	warp	lhz047	1,1,lhz_in01,193,127
 lhz_in01,191,127,0	warp	lhz047a	1,1,lhz_in01,56,130
 
-lhz_in01,43,115,0	warp	lhz048	1,1,lhz_in01,278,130
-lhz_in01,278,132,0	warp	lhz048a	1,1,lhz_in01,43,117
-
 //lhz_in01,275,235,0	warp	lhz049	1,1,lhz_in01,275,242  //not sure
 //lhz_in01,275,238,0	warp	lhz049a	1,1,lhz_in01,275,232  //not sure
 
 lighthalzen,324,301,0	warp	lhz050	1,1,lhz_in03,239,101
 lhz_in03,237,101,0	warp	lhz050a	1,1,lighthalzen,324,299
 
-lighthalzen,323,322,0	warp	lhz051	1,1,lhz_in03,15,162
-lhz_in03,13,162,0	warp	lhz051a	1,1,lighthalzen,321,322
+lhz_in01,44,144,0	warp	lhz051	1,1,lhz_in01,277,159
+lhz_in01,277,156,0	warp	lhz051a	1,1,lhz_in01,44,141
-- 
cgit v1.2.3-70-g09d2