//===== eAthena Script ======================================= 
//= Quest NPCs located in Lighthalzen
//===== By: ================================================== 
//= Persian, Vicious_Pucca, aoa00, Evera, MasterOfMupppets,
//= Lupus, Lord Gywall
//===== Current Version: ===================================== 
//= 3.3
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Event for the Mobster respawn
//= Bio Labs Quest
//= Friendship Quest
//= Pickpocket Mini-Quest
//= Bio Ethics Quest (Need bug testing!)
//===== Additional Comments: ================================= 
//= Grammar/script check please. This was a quick job.
//= Things to add: Look at the thread "Lighthalzen Guard" in SVN script
//= 0.3 Initial Release
//= 0.5 Added mobsters spawn and Einbroch pollution. Alert lasts either 10 minutes or all mob killed.
//= 0.6-0.9 fix small bug. Added Bio-lab entrance Quest. Added Getting security-card Quest.
//= 1.0 Patched "mobsters spawn & Alert" like Real-RO.
//= 1.0a fixed rand(1,10) + comparision. There just can't be 'X < 1' [Lupus]
//= 1.1 Changed the mobster spawn to g_mobster to prevent exploits [MasterOfMuppets]
//= 1.2 Added the cube room quest by DeNy, translated by vicious_pucca. [MasterOfMuppets]
//=	Thanks to Linuxwolf for a grammar check as well =).
//= 1.2a Moved Biolab entrance to lhz_dun warps. [Vicious]
//= 1.3 Fixed password bug, fixed endless item exploit, some typos [Lupus]
//= 1.4 Fixed password abuse. When people don't read the password under the picture
//= 	and enter Zero shit 8) (TODO: I saw some "Sticks" abuses, too.. where you could skip a part of quest...)
//= 1.5 Fixed Mobster's OnDead event(it has to start with "On"!) [Playtester]
//= 1.5a Fixed "free stick" bug, thx 2 Neouni [Lupus]
//= 1.6 Added Gywall's Pickpocket Quest
//= 1.7 Implemented the Friendship quest [MasterOfMuppets]
//= 1.8 Changed the name of the mobsters to Gangster, as it should be. [MasterOfMuppets]
//= 1.9 Added extra input check on Biolab so that the first letter of the word could be capitalized or undercase. [Evera]
//= 2.0 Removed Duplicates [Silent]
//= 2.1 Added first part of Bio Ethics Quest [Evera]
//= 2.2 Added bit to say Bio Ethics is unfinished, and if a player attempts, it warps them
//= 	out after finished part... Don't want players getting stuck ;_; [Evera]
//= 2.3 Finished Bio Ethics Quest. Need bug testers before moving to trunk, my
//=	mind was somewhere else when writing @_@ [Evera]
//= 2.4	Fixed the bug where a str&int debug was shown in the console for
//=	test tube in bio labs quest. [Evera]
//= 2.5	Fixed Kellasus giving you extra skills in Bio Ethics quest [Evera]
//= 2.6	Fixed exploit letting any class get homunculus from Bio Ethics Quest [Evera]
//= 2.6a Moved Bio Ethics Quest to Alchemist SKILL QUESTS [Lupus]
//= 2.7 fixed bugs that let people bypass some quest parts V_V [Lupus]
//=	reused cubekey var for 4 Cube Room key vars
//= 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 Added Cursed Spirit Quest. [SinSloth]
//=	Moved a book non-related to Lighthalzen quests.
//= 3.1 Added Schwartzvalt Trilogy Quest. [SinSloth]
//= 3.2 Updated some NPCs regarding Hugel Rebellion Quest. [SinSloth]
//= 3.2 Removed the NPC "#kiz03-4" as I couldn't find any [L0ne_W0lf]
//=	reference to it in the Aegis script.
//============================================================ 

lighthalzen,1,1,7	script	sneakAddSuber	-1,{
OnInit:
	set $@sneakchance, 3;	// chance of successful sneak(0 = never, 10 = always)
	set $@sneakguard, 0;	// numbers of people who sneaked past guard
	set $@threshold, 10;	// numbers of sneakers before mob appears
	set $@mob, 50;		// Max respawn numbers of "mobsters"
	set $@mobcount, 0;	// current numbers of "mobsters"
	set $@lhz_alert, 0;	// Alert on Lighthalzen(0 = off, 1 = on)
	set $@i, 0;
	
	end;

OnMinute00:
OnMinute05:
OnMinute10:
OnMinute15:
OnMinute20:
OnMinute25:
OnMinute30:
OnMinute35:
OnMinute40:
OnMinute45:
OnMinute50:
OnMinute55:
	if($@lhz_alert == 0) set $@sneakguard, $@sneakguard + rand(1,3);
	if($@lhz_alert == 1) set $@sneakguard, $@sneakguard - 1;  // Monsters will die after 5~10 min. (sneakAddSuber)
	end;
}

lighthalzen,1,1,7	script	AlertChk	-1,{
OnInit:
	initnpctimer;
	end;

OnTimer10000:
	if($@sneakguard >= $@threshold) goto MakeMob;
	if($@sneakguard == 0) goto ClearMob;  // Monsters will die after 5~10 min. (sneakAddSuber)
	setnpctimer 0;
	end;
	
MakeMob:
	if($@lhz_alert == 1) goto ChkEnd;
	set $@mobcount, $@mob;
	mapannounce "lighthalzen","Maintenance Organization of the Public Order: Currently the security of the city has been compromized, We ask the citizens to be more careful. I repeat. We ask the citizens to be more careful.", 1;
	
	for( set $@i, 0; $@i < $@mob; set $@i, $@i + 1 ) {
		monster "lighthalzen",0,0,"Gangster",1592,1,"AlertChk::OnMobKilled";
	}

	set $@lhz_alert, 1;	
	set $@sneakguard, 2;   // Monsters will die after 5~10 min. (sneakAddSuber)
	setnpctimer 0;
	end;
	
ClearMob:
	if($@lhz_alert == 0) goto ChkEnd;
	set $@mobcount, 0;
	mapannounce "lighthalzen","Maintenance organization of the Public Order: We were able to get rid of all the trouble makers in the city. You may relax now.", 1;	
	killmonster "lighthalzen","AlertChk::OnMobKilled";
	set $@lhz_alert, 0;
	set $@sneakguard, 0;
	setnpctimer 0;
	end;
		
OnMobKilled:
	set $@mobcount, $@mobcount - 1;
	if($@mobcount == 0) goto ClearMob;
	setnpctimer 0;
	end;	
	
ChkEnd:	
	setnpctimer 0;
	end;	
}

lighthalzen,267,200,3	script	Security Guard#01	868,{

	if(countitem(7350)>0) goto Lhzpass1;
	if($@lhz_alert == 1) goto Lhzstop;
	if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
	if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk1;

LhzTalk:
	mes "[Guard]";
	mes "Hey! Where do you think you are going?";
	mes "I can not send nobody to the slum district!";
	mes "If we let suspecious people like you pass,";
	mes "there is no point in peace keeping!";
	close;

LhzTalk1:
	mes "-Looks like the guard is doing something else";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",297,227;
	set $@sneakguard, $@sneakguard + 1;
	close;

LhzTalk2:
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk;
	mes "[Guard]";
	mes "zzZ... zzZ... zzZ...";
	mes "hmm. hmm... zzZ...";
	next;
	mes "-Looks like the guard is sleeping";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",297,227;
	close;

Lhzpass1:
	mes "[Guard]";
	mes "Who are you! ...Hmm? You have a pass?";
	mes "I'm sorry. You look like an adventurer,";
	mes "but I guess you got the authority.";
	mes "You may pass.";
	next; 
	warp "lighthalzen",297,227;
	close;

Lhzstop:
	mes "[Guard]";
	mes "Recently, there were too many people sneaking pass us,";
	mes "so we raised the security level.";
	mes "Who sneak past us anyway?";
	mes "It's troublesome...";
	close;
}

lighthalzen,294,223,7	script	Security Guard#02	868,{

	if(countitem(7350)>0) goto Lhzpass1;
	if($@lhz_alert == 1) goto Lhzstop;
	if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
	if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk1;

LhzTalk:
	mes "[Guard]";
	mes "Hey! Where do you think you are going?";
	mes "I can not send nobody to the slum district!";
	mes "If we let suspecious people like you pass,";
	mes "there is no point in peace keeping!";
	close;

LhzTalk1:
	mes "-Looks like the guard is doing something else";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",264,200;
	set $@sneakguard, $@sneakguard + 1;
	close;

LhzTalk2:
	set @LhzTalk,rand(1,10);
	if(@LhzTalk  < 2 ) goto LhzTalk;
	mes "[Guard]";
	mes "zzZ... zzZ... zzZ...";
	mes "hmm. hmm... zzZ...";
	next;
	mes "-Looks like the guard is sleeping";
	mes "Now is a good time to sneak by.-";
	next;
	warp "lighthalzen",264,200;
	close;

Lhzpass1:
	mes "[Guard]";
	mes "Who are you! ...Hmm? You have a pass?";
	mes "I'm sorry. You look like an adventurer,";
	mes "but I guess you got the authority.";
	mes "You may pass.";
	next; 
	warp "lighthalzen",264,200;
	close;

Lhzstop:
	mes "[Guard]";
	mes "Recently, there were too many people sneaking pass us,";
	mes "so we raised the security level.";
	mes "Who sneak past us anyway?";
	mes "It's troublesome...";
	close;
}

//============================================================
// Cube Room
//============================================================

//--------------------------Piciburn--------------------------

lighthalzen,341,224,4	script	Piciburn	868,{
	if (BaseLevel < 60){
		mes "[Piciburn]";
		mes "Keep moving.";
		close;
	}
	if (MISC_QUEST&512) goto L_DONE;
	if (piciburn == 7) goto L_10;
	if (piciburn == 6) goto L_9;
	if (piciburn == 5) goto L_6;
	if (piciburn == 4) goto L_4;
	if (piciburn == 3) goto L_3;
	if (piciburn == 2) goto L_2;
	if (piciburn == 1) goto L_1;
	mes "[Piciburn]";
	mes "Hmm...? What is it?";
	mes "I am busy at the moment,";
	mes "so stop bothering me.";
	set piciburn,1;
	close;

L_1:
	mes "[Piciburn]";
	mes "I'm getting distracted because";
	mes "You keep staring at me!";
	mes "Would you please leave me alone?";
	set piciburn,piciburn+1;
	close;

L_2:
	mes "[Piciburn]";
	mes "Hmm...? Oh, it's you..";
	mes "You are really getting on my nerves.";
	mes "You're weird, you know that?";
	mes "What is it that you want from me?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Nothing really...";
	mes "Just looking around...";
	mes "What are you doing?";
	next;
	mes "[Piciburn]";
	mes "Oh, man...";
	mes "If I just needed to show you this,";
	mes "I wouldn't have got all worked up.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "I know. Haha.";
	next;
	mes "[Piciburn]";
	mes "You really ARE a weird person...";
	mes "Are you just going to stand there";
	mes "and keep watching?";
	next;
	mes "[Piciburn]";
	mes "... You're really annoying me!";
	mes "What do you want from me?!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "I've aready told you.";
	mes "I asked what you were doing.";
	mes "This place is hot and sticky.";
	next;
	mes "[Piciburn]";
	mes "Okay, okay..";
	mes "I'll tell you what i'm doing,";
	mes "but would you leave me in peace";
	mes "if i did? Thanks.";
	next;
	mes "[Piciburn]";
	mes "I'm.. um... doing something illegal...";
	mes "Don't tell anyone about this!";
	next;
	mes "[Piciburn]";
	mes "I am the only person who can make a route to";
	mes "the industrial city's -^FF0000Laboratory^000000- or";
	mes "places normal people wouldn't usually be able to get to.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "The -Laboratory?!!!-";
	mes "Can you really get people in there?!!!";
	next;
	mes "[Piciburn]";
	mes "Agh! Quieten down! What did i tell you?";
	mes "I've told you what i do, now will you stop staring at me?";
	mes "And be quiet~!";
	mes "You're weird.. �_�";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Ah..Haha.. I'm sorry.";
	mes "I really want to go there,";
	mes "so I got excited when I heard you can get people in there";
	next;
	mes "[Piciburn]";
	mes "Hmm? You were planning to get in there?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Yeah, but i couldn't get in..";
	next;
	mes "[Piciburn]";
	mes "Hmm...";
	mes "This is troublesome...";
	mes "I don't usually tell people i cannot";
	mes "trust how to get into the Laboratory...";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "What do I need to do?";
	mes "How can I get into the laboratory?";
	next;
	mes "[Piciburn]";
	mes "Geez~, I'm just giving people a route, not sending them there.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Doesn't that mean the same thing?";
	next;
	mes "[Piciburn]";
	mes "What I'm saying is,";
	mes "I'm giving people the chance to get into the labs.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "You're really talented, huh.";
	next;
	mes "[Piciburn]";
	mes "Hahaha! Damn right.";
	mes "It's a piece of cake!";
	mes "...";
	mes "Actually, now i think about it, it's impossible..";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "How's it impossible?";
	mes "I haven't say anything yet~..";
	next;
	mes "[Piciburn]";
	mes "Oh come on, you were going to BEG me to send you there~!!!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Heh...";
	mes "You really ARE clever.";
	mes "Well...";
	mes "Pretty please~~?";
	next;
	mes "[Piciburn]";
	mes "I can never let you in~..";
	mes "Never ever~!!!";
	set piciburn,piciburn+1;
	close;

L_3:
	mes "[" +strcharinfo(0) + "]";
	mes "Please?";
	next;
	mes "[Piciburn]";
	mes "No way.";
	set piciburn,piciburn+1;
	close;

L_4:
	mes "[" +strcharinfo(0) + "]";
	mes "Pleaseeeee?";
	next;
	mes "[Piciburn]";
	mes "No.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Pleaseeeeeeeeeee?";
	next;
	mes "[Piciburn]";
	mes "I don't want to.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Do it!!!";
	next;
	mes "[Piciburn]";
	mes "Never~!!!";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Why are you doing this to me?!!";
	mes "What do you want from me !?!";
	next;
	mes "[Piciburn]";
	mes "What do I want?";
	mes "Heh heh.. One billion zeny.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Are you crazy?!";
	next;
	mes "[Piciburn]";
	mes "It's your choice.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "Sir, you know I don't have that much money.";
	mes "Is there anything else you need?";
	next;
	mes "[Piciburn]";
	mes "Hmm...";
	mes "Okay fine...";
	mes "Bring me 20 Jellopies.";
	mes "'Kay?";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "........";
	mes "So that's what you really wanted to ask me?";
	next;
	mes "[Piciburn]";
	mes "Hahaha...";
	mes "Yeah~~...";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "........";
	next;
	mes "[Piciburn]";
	mes "So, what're you doing just standing there?";
	mes "Are you going to do it or not?";
	next;
	menu "Definitely!",L_5,"No way! It's impossible!",-;

	mes "[Piciburn]";
	mes "Ah well, your loss,";
	mes "Too bad!";
	mes "Bye now~!!";
	close;

L_5:
	mes "[Piciburn]";
	mes "Okay then, do as I said,";
	mes "bring me 20 jellopies!";
	mes "....";
	mes "What're you waiting for?! GO!!";
	set piciburn,piciburn+1;
	close;

L_6:
	mes "[Piciburn]";
	mes "Did you get the items?";
	next;
	menu "Erm.. No..",-,"Hell yeah!",L_7,"What did you want again..?",L7_1;

	mes "[Piciburn]";
	mes "Hey, I don't feel like playing around anymore.";
	mes "If you really want to get there, bring the damn items!";
	close;

L_7:
	if (countitem(909) >= 20) goto L_8;
	mes "[Piciburn]";
	mes "Are you joking?";
	mes "If you keep doing this,";
	mes "I may not keep the promise either.";
	mes "So go and get them already!";
	close;

L7_1:
	mes "[Piciburn]";
	mes "You're really stupid~!";
	mes "It's 20 jellopies!";
	mes "Don't forget this time~";
	close;

L_8:
	delitem 909,20;
	mes "[Piciburn]";
	mes "Hmm. You're more reliable than i thought.";
	mes "Taking this errand into consideration,";
	mes "i guess you really want to get in there?";
	next;
	mes "[Piciburn]";
	mes "Coming to think of it,";
	mes "you look different.";
	mes "Should I say you look more... trustworthy..?";
	next;
	mes "[Piciburn]";
	mes "Well... Anyway...";
	mes "A promise is a promise.";
	mes "I will tell you how to get there.";
	next;
	mes "[Piciburn]";
	mes "As I told you earlier, all I can do is";
	mes "give you the opportunity to get in.";
	next;
	mes "[Piciburn]";
	mes "I used to be a manager working for the lab,";
	mes "but time moves on, as people do,";
	mes "and now I am working against the lab.";
	next;
	mes "[Piciburn]";
	mes "Now... Answer honestly on all I ask here on out.";
	mes "Where i send you all depends on how you answer.";
	next;
	mes "[Piciburn]";
	mes "Somewhere in the place I'm going to send you";
	mes "There will be things you must find,";
	mes "So search well.";
	next;
	mes "[Piciburn]";
	mes "Well, when you've made your mind up,";
	mes "come back and talk to me. Okay?";
	set piciburn,piciburn+1;
	close;

L_9:
	mes "[Piciburn]";
	mes "Hmm... So...";
	mes "Are you ready to go?";
	next;
	menu "No",-,"Yes",L9_1;

	mes "[Piciburn]";
	mes "Hmm... Not yet, huh...";
	mes "Well, I guess it is to be expected.";
	mes "But don't make me wait too long~!";
	close;

L9_1:
	mes "[Piciburn]";
	mes "This is going to be hard~";
	mes "Let's go!!!";
	close2;
	set piciburn,piciburn+1;
	set @rdm,rand(3);
	if(@rdm==1)goto L_warp1;
	if(@rdm==2)goto L_warp2;
 	warp "lhz_cube",67,193;
	end;

L_10:
	mes "[Piciburn]";
	mes "Hah!";
	mes "You failed in there, right? Hahahaha~.";
	mes "Are you going to try again? Or is it too tough~";
	next;
	menu "No",-,"Yes",L10_1;

	mes "[Piciburn]";
	mes "It was that hard huh?";
	mes "Well, come back if you change your mind.";
	close;

L10_1:
	mes "[Piciburn]";
	mes "Okay..";
	mes "I will send you there again..";
	mes "Good luck!";
	close2;
	set @rdm,rand(3);
	if(@rdm==1)goto L_warp1;
	if(@rdm==2)goto L_warp2;
 	warp "lhz_cube",67,193;
	end;

L_warp1: 
	warp "lhz_cube",66,136;
	end;
L_warp2:
	warp "lhz_cube",66,74;
	end;

L_DONE:
	mes "[Piciburn]";
	mes "Oh~ I guess you found the entrance.";
	mes "I'll tell you now...";
	mes "If you want to go in there again";
	next;
	mes "[Piciburn]";
	mes "You can get there by a sewer passage a bit south of the town.";
	next;
	mes "[" +strcharinfo(0) + "]";
	mes "No wayyyyy!!";
	next;
	mes "[Piciburn]";
	mes "I know. I know...";
	mes "It is dirty.";
	mes "But it's only way in, so don't complain!";
	next;
	mes "[Piciburn]";
	mes "Now, take care of yourself~.";
	close;
}

//--------------------------Box--------------------------

lhz_cube,248,179,0	script	Box#01	111,{
	if (MISC_QUEST&512 || cubekey&64) goto L_DONE;
	mes "There is an axe in the box.";
	next;
	menu "Take the axe.",L_1,"Leave it alone.",-;
	close;

L_1:
	mes "You acquired the ^FF0000axe^000000.";
	set cubekey,cubekey|64;
	close;

L_DONE:
	mes "There is a box that used to contain an ^FF0000axe^000000.";
	close;
}

//--------------------------Barrel--------------------------

lhz_cube,237,183,0	script	Barrel	111,{
	if (MISC_QUEST&512 || cubekey&1) goto L_DONE;
	if (cubekey&128) goto L_2;
	mes "There is a box that looks weak.";
	if ((cubekey&64) == 0) close;
	next;
	input @axe$;

	if (@axe$ == "axe" || @axe$ == "Axe") goto L_1;
	mes "There is no change.";
	close;

L_1:
	mes "When you break the barrel with an axe,";
	mes "you see that there's a box inside of it.";
	next;
	mes "On top of the box, there's a panel with the numbers 1~9";
	set cubekey,cubekey|128;
	close;

L_2:
	mes "There is a box with numbers 1~9 on it's surface.";
	next;
	set @agree,0;
	input @number;
	if (num6 == @number) set @agree,@agree+1;
	input @number;
	if (num8 == @number) set @agree,@agree+1;
	input @number;
	if (num1 == @number) set @agree,@agree+1;
	input @number;
	if (num4 == @number) set @agree,@agree+1;
	input @number;
	if (num9 == @number) set @agree,@agree+1;
	input @number;
	if (num2 == @number) set @agree,@agree+1;
	input @number;
	if (num7 == @number) set @agree,@agree+1;
	input @number;
	if (num5 == @number) set @agree,@agree+1;
	input @number;
	if (num3 == @number) set @agree,@agree+1;
	if (@agree == 9 && num1) goto L_3; //you can't enter correct numbers, till read them under that picture [Lupus]
	mes "There is no change.";
	close;

L_3:
	mes "The box opened, making a metallic click.";
	mes "Within the box, there is 'yellow key'.";
	next;
	mes "You acquired '^FF0000yellow key^000000'.";
	set cubekey,cubekey|1;
	close;

L_DONE:
	mes "This box used to have the '^FF0000yellow key^000000'";
	mes "The box is now empty.";
	close;
}

//--------------------------Drawer--------------------------

lhz_cube,242,201,0	script	Drawer	111,{
	if (MISC_QUEST&512 || cubekey&32) goto L_DONE;
	mes "The drawer is locked.";
	if (cubekey&2) goto L_1;
	close;

L_1:
	input @key$;
	if (@key$ == "red key" || @key$ == "Red Key") goto L_2;
	mes "The drawer is locked, you need some kind of key.";
	close;

L_2:
	mes "The red key fits the lock perfectly,opening the drawer.";
	mes "You found a 'small knife' inside.";
	next;
	mes "You acquired ^FF0000small knife^000000.";
	set cubekey,cubekey|32;
	close;

L_DONE:
	mes "It is the drawer you got ^FF0000small knife^000000 from.";
	mes "There is nothing inside now.";
	close;
}

//--------------------------Documents--------------------------

lhz_cube,237,198,0	script	Documents	111,{
	if (MISC_QUEST&512 || cubekey&2) goto L_DONE;
	mes "There are tons of documents here.";
	next;
	menu "Search the documents.",L_1,"Ignore.",-;
	close;

L_1:
	mes "As you look through the documents, a 'red key' falls out.";
	next;
	mes "You acquired ^FF0000red key^000000.";
	set cubekey,cubekey|2;
	close;

L_DONE:
	mes "This is where you acquired ^FF0000red key^000000.";
	mes "There's nothing else to do here.";
	close;
}

//--------------------------Bed--------------------------

lhz_cube,247,198,0	script	Bed	111,{
	mes "There is a messy bed.";
	next;
	menu "Above bed",-,"Below bed",L_1;

	mes "The blanket is messily placed.";
	mes "There is nothing special here.";
	close;

L_1:
	if (MISC_QUEST&512 || cubekey&131072) goto L_DONE;
	if (cubekey&2048){
		mes "As you look under the bed, you see that there";
		mes "is a small object covered in dust.";
		next;
		input @bed$;

		if (cubekey&4096 && (@bed$ == "long stick" || @bed$ == "Long Stick")){
			mes "You used the long stick to pull it out.";
			next;
			mes "You acquired '^FF0000cube model^000000'.";
			set cubekey,cubekey|131072;
			close;
		}
		mes "It looks like you need some kind of long item to";
		mes "Get the item out, you can't reach it!";
		close;
	}
	mes "You look below the bed and see a 'small stick'.";
	mes "It is within your grasp, but there is";
	mes "also another item hidden under the bed, which";
	mes "you'll need some kind of long item to pull it out.";
	next;
	mes "You acquired the '^FF0000small stick^000000'.";
	mes "It looks like this stick could be combined";
	mes "with another stick to make it larger.";
	set cubekey,cubekey|2048;

	if ((cubekey&4096) == 0 && cubekey&1024){
		set cubekey,cubekey|4096;
		next;
		mes "It looks similar to the decently sized stick that you";
		mes "found under the desk.";
		mes "You put the two end to end, and they click into place.";
		next;
		mes "You acquired '^FF0000long stick^000000'.";
	}
	close;

L_DONE:
	mes "This is the place where you got '^FF0000cube model^000000' from.";
	mes "There is nothing down here now but dust.";
	close;
}

//--------------------------Cup--------------------------

lhz_cube,229,184,0	script	Cup	111,{
	if (MISC_QUEST&512 || cubekey&4) goto L_DONE;
	mes "You see an empty bottle and a cup with something in it.";
	next;
	menu "Leave it alone.",-,"Look what is inside.",L_1;
	close;

L_1:
	mes "When you look inside, you see a 'rusty key'.";
	next;
	mes "You acquired the '^FF0000rusty key^000000'.";
	set cubekey,cubekey|4;
	close;

L_DONE:
	mes "You got the '^FF0000rusty key^000000' here.";
	mes "There's nothing but an empty cup and an empty bottle.";
	close;
}

//--------------------------Shelf--------------------------

lhz_cube,233,206,0	script	Shelf	111,{
	if (MISC_QUEST&512 || cubekey&8) goto L_DONE;
	mes "There are lots of bottles filled with acids lined up";
	mes "Along the shelf, they have different labels.";
	next;
	input @lathe$;

	if (cubekey&4 && (@lathe$ == "rusty key" || @lathe$ == "Rusty Key")) goto L_1;
	mes "Nothing happened.";
	close;

L_1:
	mes "As you put the 'rusty key' into a bottle, it fizzes";
	mes "and bubbles, and all the liquid disappears.";
	mes "All that's left is a clean, green key.";
	next;
	mes "You acquired the '^FF0000green key^000000'";
	set cubekey,cubekey|8;
	close;

L_DONE:
	mes "There is an acid that changed corroded all the rust";
	mes "off of your key.";
	next;
	mes "I don't see anything useful.";
	close;
}

//--------------------------Closet--------------------------

lhz_cube,249,191,0	script	Closet	111,{
	if (MISC_QUEST&512 || cubekey&8192) goto L_DONE;
	mes "There is a closet with lots of drawers.";
	if (cubekey&8) goto L_2;
	next;
	menu "Leave it alone.",-,"Open one of the drawers.",L_1;
	close;

L_1:
	mes "There's nothing of any interest in this drawer.";
	close;

L_2:
	next;
	input @gkey$;

	if (@gkey$ == "green key" || @gkey$ == "Green Key") goto L_3;
	mes "There's nothing of any interest in this drawer.";
	close;

L_3:
	mes "You put the 'green key' into a keyhole,";
	mes "opening one of the locked drawers.";
	mes "In the drawer, there is a model of";
	mes "a polygon.";
	next;
	mes "'You acquired the ^FF0000polygon model^000000.";
	set cubekey,cubekey|8192;
	close;

L_DONE:
	mes "This is the closet where you got";
	mes "the 'polygon model' from.";
	next;
	mes "The other draws will not open, there's";
	mes "nothing else to do here.";
	close;
}

//--------------------------Desk--------------------------

lhz_cube,234,200,0	script	Desk	111,{
	mes "There is a desk with lots of objects scattered around.";
	next;
	menu "Above the desk",-,"Below the desk",L_1,"Drawer",L_2;

	mes "There are lots of books, papers and";
	mes "research equipment.";
	close;

L_1:
	if(MISC_QUEST&512 || cubekey&1024) goto L_DONE;

	mes "When you look below the desk,";
	mes "You see a decent sized stick.";
	next;
	mes "You acquired '^FF0000short stick^000000'.";
	mes "It looks like this stick could be combined";
	mes "with another stick to make it larger.";
	set cubekey,cubekey|1024;
	if(cubekey&2048){
		set cubekey,cubekey|4096;
		next;
		mes "It seems like the decently sized stick can be";
		mes "combined with the 'short stick' from under the bed.";
		mes "You put the two end to end, and they click into place.";
		next;
		mes "You acquired the '^FF0000long stick^000000'";
	}
	close;
L_DONE:
	mes "This is where you acquired the '^FF0000short stick^000000'.";
	mes "There is nothing but dust now.";
	close;
L_2:
	mes "It is locked and can't be opened.";
	close;
}

//--------------------------Picture--------------------------

lhz_cube,237,206,0	script	Picture	111,{
	if (MISC_QUEST&512 || num1 > 0) goto L_DONE;
	mes "There is a picture on the wall.";
	next;
	menu "Move it.",L_1,"Leave it alone.",-;
	close;

L_1:
	mes "It does not move.";
	next;
	input @knife$;

	if (cubekey&32 && (@knife$ == "small knife" || @knife$ == "Small Knife")) goto L1_1;
	mes "Nothing happened.";
	close;

L1_1:
	mes "You slid the 'small knife' behind the frame";
	mes "and used it to twist the picture.";
	mes "As you turn the frame, the picture detatches and";
	mes "falls from the wall.";
	next;
	set num1,rand(1,9);
	Lset1:
	set num2,rand(1,9);
	if (num1 == num2) goto Lset1;
	Lset2:
	set num3,rand(1,9);
	if (num1 == num3) goto Lset2;
	if (num2 == num3) goto Lset2;
	Lset3:
	set num4,rand(1,9);
	if (num1 == num4) goto Lset3;
	if (num2 == num4) goto Lset3;
	if (num3 == num4) goto Lset3;
	Lset4:
	set num5,rand(1,9);
	if (num1 == num5) goto Lset4;
	if (num2 == num5) goto Lset4;
	if (num3 == num5) goto Lset4;
	if (num4 == num5) goto Lset4;
	Lset5:
	set num6,rand(1,9);
	if (num1 == num6) goto Lset5;
	if (num2 == num6) goto Lset5;
	if (num3 == num6) goto Lset5;
	if (num4 == num6) goto Lset5;
	if (num5 == num6) goto Lset5;
	Lset6:
	set num7,rand(1,9);
	if (num1 == num7) goto Lset6;
	if (num2 == num7) goto Lset6;
	if (num3 == num7) goto Lset6;
	if (num4 == num7) goto Lset6;
	if (num5 == num7) goto Lset6;
	if (num6 == num7) goto Lset6;
	Lset7:
	set num8,rand(1,9);
	if (num1 == num8) goto Lset7;
	if (num2 == num8) goto Lset7;
	if (num3 == num8) goto Lset7;
	if (num4 == num8) goto Lset7;
	if (num5 == num8) goto Lset7;
	if (num6 == num8) goto Lset7;
	if (num7 == num8) goto Lset7;
	Lset8:
	set num9,rand(1,9);
	if (num1 == num9) goto Lset8;
	if (num2 == num9) goto Lset8;
	if (num3 == num9) goto Lset8;
	if (num4 == num9) goto Lset8;
	if (num5 == num9) goto Lset8;
	if (num6 == num9) goto Lset8;
	if (num7 == num9) goto Lset8;
	if (num8 == num9) goto Lset8;

L_DONE:
	mes "There is a number behind the picture.";
	mes "" + num1 + "3 " + num2 + "6 " + num3 + "9 " + num4 + "4 " + num5 + "8 " + num6 + "1 " + num7 + "7 " + num8 + "2 " + num9 + "5";
	mes "Perhaps you should write this number down somewhere...";
	close;
}

//--------------------------generator--------------------------

lhz_cube,224,192,0	script	Generator	111,{
	if (MISC_QUEST&512 || cubekey&256) goto L_DONE;
	mes "The big machine is running, making a huge noise.";
	mes "There are lots weird symbols and";
	mes "a small key hole beside them.";
	next;
	input @key$;

	if (cubekey&1 && (@key$ == "yellow key" || @key$ == "Yellow Key")) goto L_1;
	mes "There's nothing to do here.";
	close;

L_1:
	mes "You insert the 'yellow key' into the keyhole";
	mes "and twist it.";
	mes "The machine clicks, and becomes silent.";
	next;
	mes "When it was stopped, the lamp next to the bed";
	mes "also turned off.";
	set cubekey,cubekey|256;
	close;

L_DONE:
	mes "The big machine sits quietly.";
	close;
}

//--------------------------Lamp--------------------------

lhz_cube,248,205,0	script	Lamp	111,{
	if (MISC_QUEST&512 || cubekey&16) goto L_DONE;
	if (cubekey&256) goto L_1;
	mes "There is a bright lamp.";
	mes "Seems like there is something inside";
	mes "but it is too hot to touch.";
	mes "It looks like you need to somehow turn the lamp off.";
	close;

L_1:
	mes "There is something inside of the bulb.";
	next;
	menu "Leave it alone.",-,"Break the bulb.",L_2;
	close;

L_2:
	mes "When you break the bulb, a";
	mes "'black key' falls out.";
	next;
	mes "You acquired the '^FF0000black key^000000'.";
	set cubekey,cubekey|16;
	close;

L_DONE:
	mes "There nothing but a broken bulb.";
	close;
}

//--------------------------Box--------------------------

lhz_cube,248,193,0	script	Box#02	111,{
	if (MISC_QUEST&512 || countitem(2657) || @gotLPkey) goto L_DONE;
	mes "There is a box with three holes.";
	next;
	if (cubekey&65536 && cubekey&262144 && cubekey&16384) goto L_4;
	menu "Ellipse hole",L_1,"Square hole",L_2,"Polygonal hole",L_3;

L_1:
	if (cubekey&65536) goto L1_2;
	input @ellipse$;

	if (cubekey&32768 && (@ellipse$ == "ellipse model" || @ellipse$ == "Ellipse Model")) goto L1_1;
	mes "Nothing happened.";
	close;

L1_1:
	mes "You inserted the 'ellipse model' into the ellipse-shaped hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|65536;
	close;

L1_2:
	mes "You've already inserted the 'ellipse model'.";
	close;

L_2:
	if (cubekey&262144) goto L2_2;
	input @quadrangle$;

	if (cubekey&131072 && (@quadrangle$ == "cube model" || @quadrangle$ == "Cube Model")) goto L2_1;
	mes "Nothing happened.";
	close;

L2_1:
	mes "You inserted the 'cube model' into the square-shaped hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|262144;
	close;

L2_2:
	mes "You already inserted the 'square model'.";
	close;

L_3:
	if (cubekey&16384) goto L3_2;
	input @polygon$;

	if (cubekey&8192 && (@polygon$ == "polygon model" || @polygon$ == "Polygon Model")) goto L3_1;
	mes "Nothing happened.";
	close;

L3_1:
	mes "You inserted the 'polygon model' into the polygonal hole.";
	mes "The box makes a metallic click.";
	set cubekey,cubekey|16384;
	close;

L3_2:
	mes "You've already inserted the 'polygon model'.";
	close;

L_4:
	mes "All holes are filled with keymodels.";
	next;
	menu "Leave it alone.",-,"Open the box.",L4_1;
	close;

L4_1:
	mes "There is a small card inside of it.";
	next;
	mes "You acquired the 'Laboratory Permit'.";
	set @gotLPkey,1;
	getitem 2657,1;
	close;

L_DONE:
	mes "There is an opened box.";
	mes "There is nothing inside.";
	close;
}

//--------------------------Test tube--------------------------

lhz_cube,224,197,0	script	Test Tube	111,{
	if (MISC_QUEST&512) goto L_DONE;
	if (countitem(2657) > 0) goto L_3;
	if (cubekey&32768) goto L_2;
	mes "There is a weird test tube.";
	mes "It seems like there is something inside.";
	mes "There' a keyhole and a hole that fits a thin object.";
	next;
	input @key$;

	if (cubekey&16 && (@key$ == "black key" || @key$ == "Black Key")) goto L_1;
	mes "Nothing happened.";
	close;

L_1:
	mes "You inserted the 'black key' and turned it.";
	mes "The glass window at the front of the machine opened,";
	mes "Revealing an ellipse model.";
	next;
	mes "You acquired the '^FF0000ellipse model^000000'.";
	set cubekey,cubekey|32768;
	close;

L_2:
	mes "This is where you got '^FF0000ellipse model^000000'.";
	mes "There is a weird symbol on the bottom of the machine.";
	mes "It looks like it could open as it has hinges on one side.";
	close;

L_3:
	mes "There is a rectangular hole in the front of the machine.";
	next;
	input @answer$;

	if (@answer$ == "Laboratory Permit" || @answer$ == "permit" || @answer$ == "laboratory permit" || @answer$ == "Permit") goto L_4;
	mes "Nothing happened.";
	close;

L_4:
	mes "You inserted the 'Laboratory Keycard' in the hole,";
	mes "and the stair leading down appeared on the floor.";
	next;
	menu "Go down.",L4_1,"Do not go down.",-;
	close;

L4_1:
	mes "It connected to a long staircase.";
	set cubekey,0;	
	set num1,0;	set num2,0;	set num3,0;	set num4,0;	set num5,0;
	set num6,0;	set num7,0;	set num8,0;	set num9,0;
	set piciburn,0;
	set MISC_QUEST,MISC_QUEST|512;
	close2;
L_DONE:
	warp "lhz_cube",177,13;
	end;
}

//============================================================
// Lighthalzen Pickpocket Mini-Quest
//============================================================

lighthalzen,240,216,4	script	Man#Pickpocket1	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",33,1;
	close;
}

lighthalzen,220,169,4	script	Man#Pickpocket2	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",33,2;
	close;
}

lighthalzen,164,127,4	script	Man#Pickpocket3	870,2,2,{
	end;
OnTouch:
	callfunc "F_LHZPick",20,3;
	if(@caught!=1) close;
	mes "[Strange Man]";
	mes "Ayee! I'm trapped.";
	mes "If you will forgive me,";
	mes "I can give you something good.";
	mes "["+strcharinfo(0)+"]";
	mes "You're forgiven, now what is this";
	mes "good thing you mentioned?";
	next;
	mes "[Strange Man]";
	mes "The lower part of your body,";
	mes "will produce a strong power";
	mes "once you've taken the secret potion.";
	mes "It's very useful";
	mes "when you want to run quickly";
	next;
	mes "[Strange Man]";
	mes "I will sell you them for a bargin";
	mes "price of 15,000 zeny to a maximum";
	mes "of three potions.";
	mes "How many do you want?";
	next;
	input @number;
	if(@number>3) set @number,3;
	set @cost,15000*@number;
	if(Zeny<@cost) goto L_Zeny;
	//please check that you add the script to it.
	set Zeny,zeny-@cost;
	getitem 12016,@number; //Speed Potion
	mes "[Strange Man]";
	mes "Thanks for your money.";
	if(rand(1,2)==1) goto L_Reset;
	disablenpc "Man#Pickpocket3";
	enablenpc "Man#Pickpocket2";
	close;
L_Reset:
	disablenpc "Man#Pickpocket3";
	enablenpc "Man#Pickpocket1";
	close;
L_Zeny:
	mes "[Strange Man]";
	mes "Too bad.";
	mes "No zeny makes you a poor man.";
	close;
OnInit:
	disablenpc "Man#Pickpocket2";
	disablenpc "Man#Pickpocket3";
}

function	script	F_LHZPick	{
	if(Zeny<100) set Zeny,0;
	if(Zeny>=100) set Zeny,zeny-100;
	mes "Pickpocket";
	next;
	if(rand(0,100)<getarg(0)) goto L_Caught;
	mes "Hehehehe....";
	return;
L_Caught:
	mes "(You notice the man put his";
	mes "hand in your pocket!)";
	mes "["+strcharinfo(0)+"]";
	mes "Eh!? What are you doing!";
	mes "You are!! Stealing my money?!";
	mes "[Strange Man]";
	mes "Ah! I'm caught!";
	mes "["+strcharinfo(0)+"]";
	mes "You're a pickpocket?!?";
	mes "[Strange Man]";
	mes "Hehehehe....";
	next;
	set @rand,rand(1,4);
	if(getarg(1)==1 && @rand<4) goto L_MoveB;
	if(getarg(1)==2 && @rand<4) goto L_MoveA;
	if(getarg(1)==1 && @rand==4) goto L_MoveC1;
	if(getarg(1)==2 && @rand==4) goto L_MoveC2;
	set @caught,1;
	return;
L_MoveA:
	disablenpc "Man#Pickpocket2";
	enablenpc "Man#Pickpocket1";
	return;
L_MoveB:
	disablenpc "Man#Pickpocket1";
	enablenpc "Man#Pickpocket2";
	return;
L_MoveC1:
	disablenpc "Man#Pickpocket1";
	enablenpc "Man#Pickpocket3";
	return;
L_MoveC2:
	disablenpc "Man#Pickpocket2";
	enablenpc "Man#Pickpocket3";
	return;
}

//==============================================================
// Friendship
//==============================================================

lhz_in02,201,210,3	script	Digotz	869,{

	if(friendship > 9)goto s_Dead;
	if(friendship == 9)goto s_Wounded;
	if(friendship == 8)goto s_Cont7;
	if(friendship == 6 && friendship2 || friendship == 7)goto s_Cont6;
	if(friendship == 6)goto s_Cont5;
	if(friendship == 4 || friendship == 5)goto s_Cont4;
	if(friendship == 3)goto s_Cont3;
	if(friendship == 2)goto s_Cont2;
	mes "[Digotz]";
	mes "Oh, an adventurer?";
	mes "Welcome to Uptown";
	mes "Lighthalzen. However,";
	mes "I'm afraid this area won't";
	mes "have much to offer you";
	mes "in the way of excitement.";
	next;
	if(friendship == 1)goto s_Cont;
	mes "[Digotz]";
	mes "Feel free to take";
	mes "a look around if you";
	mes "so wish. I'm actually";
	mes "glad to see somebody";
	mes "aside from the stuck up";
	mes "rich people who live here.";
	close;

s_Cont:
	mes "[Digotz]";
	mes "My name is Digotz,";
	mes "just another citizen";
	mes "of Upper Lighthalzen.";
	mes "I hope that you enjoy";
	mes "your stay in my hometown";
	next;
	menu "Do you know someone named Maku?",-;

	mes "[Digotz]";
	mes "Maku? Maku. Yes, he's my";
	mes "childhood friend. Or he was,";
	mes "anyway. Now he's just a jerk.";
	mes "In an case, we can't hang";
	mes "out, even if we wanted to,";
	mes "for several reasons.";
	next;
	mes "[Digotz]";
	mes "Hey, why am I even";
	mes "talking about this? It's";
	mes "not like I'm bothered by";
	mes "the fact that me and Maku aren't";
	mes "pals anymore. You know what?";
	mes "Just forget everything I said.";
	set friendship,2;
	close;

s_Cont2:
	mes "[Digotz]";
	mes "What are you still";
	mes "doing hanging around";
	mes "here? There's nothing";
	mes "interesting in Uptown";
	mes "for you to see, adventurer.";
	next;
	mes "[Digotz]";
	mes "Gosh...!";
	mes "Just hearing about";
	mes "Maku makes me so feel";
	mes "so upset for some reason!";
	close;

s_Cont3:
	mes "[Digotz]";
	mes "I know that the";
	mes "opulence of Uptown";
	mes "seems rather attractive,";
	mes "but trust me. This place";
	mes "is colorless. Now, have";
	mes "you visited the poor district?";
	next;
	menu "Yes, I did already...",-;

	mes "[" + strcharinfo(0) + "]";
	mes "Yes, I did already...";
	mes "And I met someone";
	mes "named Maku there.";
	next;
	mes "[Digotz]";
	mes "Maku?! Oh, he must have";
	mes "mentioned something about";
	mes "me. But I don't care what he";
	mes "says, unless it's an apology";
	mes "for being a fully blown jerk.";
	mes "Ever since we were kids...";
	next;
	mes "[Digotz]";
	mes "Anyway, we used to be close,";
	mes "but that guy was never a true";
	mes "friend of mine! Like that one";
	mes "time he cheated to beat me at";
	mes "arm wrestling! Or when he never";
	mes "thanked me for buying us lunch!";
	next;
	mes "[Digotz]";
	mes "Sure, he might have helped";
	mes "me a little in meeting my first";
	mes "girlfriend, but I'll never ever";
	mes "forgive him for fixing me up";
	mes "on the worst blind dates a";
	mes "man can possible experience!";
	next;
	mes "[Digotz]";
	mes "Maku doesn't know a damn";
	mes "about friendship! Even if I did";
	mes "want to see him, there are these";
	mes "people who don't want the rich";
	mes "to ever meet with the poor.";
	next;
	mes "If Maku's fine, that's";
	mes "good enough to hear for";
	mes "me! There's no need for me";
	mes "to go all the way over there";
	mes "and check up on him! I only";
	mes "have one regret though...";
	next;
	mes "[Digotz]";
	mes "I only wish I had one";
	mes "last chance to see Maku...";
	mes "So that I could kick his sorry";
	mes "ass myself! Yeah, that's right!";
	mes "Arrogant bastard! But still,";
	mes "I'm not able to do that...";
	next;
	mes "[Digotz]";
	mes "The security guards here";
	mes "will never allow the rich and";
	mes "poor to meet, fearing that";
	mes "the poor will disturb the peace";
	mes "and order of the city. It's a dumb";
	mes "rule made for dumb people.";
	next;
	mes "[Digotz]";
	mes "Still, it's pretty scary that";
	mes "someone can get punished";
	mes "for violating such a stupid";
	mes "taboo, actually. Anyway, if";
	mes "you see Maku again, tell";
	mes "him this for me, got it?";
	next;
	mes "[Digotz]";
	mes "^FF0000Hopeless bastard!";
	mes "You're still a stubborn jerk!";
	mes "You owe me at least 3 lunches!";
	mes "Not to mention an apology!";
	mes "But who cares what you think?!";
	mes "I'm so goddamn happy without you!";
	set friendship,4;
	close;

s_Cont4:
	mes "[Digotz]";
	mes "Still checking out";
	mes "Uptown Lighthalzen?";
	mes "Not like I'd care, but if you";
	mes "do happen to see Maku,";
	mes "deliver this little message";
	mes "for me, sentence by sentence.";
	next;
	mes "[Digotz]";
	mes "^FF0000Hopeless bastard!";
	mes "You're still a stubborn jerk!";
	mes "You owe me at least 3 lunches!";
	mes "Not to mention an apology!";
	mes "But who cares what you think?!";
	mes "I'm so goddamn happy without you!";
	close;

s_Cont5:
	mes "[Digotz]";
	mes "Oh, it's been a while.";
	mes "What are you doing back";
	mes "over here? And, um, did";
	mes "you deliver that message";
	mes "to Maku? Now when I think";
	mes "about it, I was kind of--";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "I delivered your message";
	mes "word for word, and Maku";
	mes "got angry, called you names";
	mes "and has been threatening to";
	mes "beat you up pretty badly.";
	next;
	mes "[Digotz]";
	mes "That no-good, dirty";
	mes "lying rotten scoundrel!";
	mes "If it weren't for those";
	mes "guards, I'd head over to";
	mes "the ghetto and beat Maku";
	mes "up myself! That stupid guy!";
	next;
	mes "[Digotz]";
	mes "During times like this,";
	mes "I really miss ^FF0000Benkaistein^000000";
	mes "That guy would always have";
	mes "an answer for this kind of";
	mes "situation. Yeah, I think he's";
	mes "in some far off town, studying.";
	next;
	mes "[Digotz]";
	mes "Supposedly he's in that";
	mes "place, whatever it's called,";
	mes "since there's a ton of books";
	mes "there that he can use. But";
	mes "yeah, Benkaistein would";
	mes "always be the mediator...";
	next;
	mes "[Digotz]";
	mes "Even back then, when";
	mes "me, him and Maku used to";
	mes "hang out, Benkastein would";
	mes "mediate if we got into some";
	mes "argument. Still, he couldn't";
	mes "do anything about Maku now...";
	next;
	mes "[Digotz]";
	mes "I don't know why,";
	mes "but I'm so angry!";
	mes "Why am I stressing";
	mes "out so much over this?!";
	set friendship2,1;
	close;

s_Cont6:
	mes "[Digotz]";
	mes "Even if Benkaistein came";
	mes "back from wherever he was";
	mes "studying, I don't think he'd be";
	mes "able to get Maku to apologize";
	mes "to me. That guy is just way";
	mes "too stubborn for his own good!";
	if(friendship != 7)close;
	next;
	menu "Show Benkastein's Journal",s_Journal,"Don't show Benkastein's Journal.",-;

	mes "[Digotz]";
	mes "I don't understand";
	mes "why I'm so angry!";
	mes "I'm starting to act";
	mes "more like Maku, though,";
	mes "don't get me wrong, it's";
	mes "not like I care about the guy.";
	close;

s_Journal:
	mes "[Digotz]";
	mes "Why am I so ticked off?";
	mes "^3131FF*Sigh*^000000 You have something";
	mes "to show me? Huh? Benkastein";
	mes "wanted me to read this diary";
	mes "of his? Sure, why not? I do";
	mes "owe him a lot over the years...";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Today, me, Digotz and";
	mes "Maku played this crazy flying";
	mes "game. Basically, we make";
	mes "these wings out of wood and";
	mes "paper, jump of these hills";
	mes "and try to fly. Dumb, I know.";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595Today it was my turn to";
	mes "jump and flap my arms with";
	mes "these fake, badly made wings.";
	mes "It's not really a fun game when";
	mes "I think about it. Boy, I hope";
	mes "we don't do that again.";
	next;
	mes "^000000[Digotz]";
	mes "Oh yeah, I remember that!";
	mes "Maky wore the wings most";
	mes "of the time, but I still hold";
	mes "the record for staying in the";
	mes "air the longest! Yeah, I was";
	mes "a regular Kid Pegasus~";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Maku, Digotz and me went";
	mes "outside of town. Of course,";
	mes "we didn't tell anyone or else";
	mes "we'd get in trouble. It was";
	mes "a really exciting day. But";
	mes "then, we ran into a monster!";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595I wanted to run away but Maku";
	mes "and Digotz wanted to beat it so";
	mes "that we could become heroes.";
	mes "Of course, we got hurt pretty";
	mes "bad and the monster got away.";
	mes "Boy, mom was not happy...";
	next;
	mes "^000000[Digotz]";
	mes "Huh. I don't remember";
	mes "that so well. But I know that";
	mes "Benkastein, me and Maku";
	mes "weren't afraid of anything back";
	mes "then. We must have been totally";
	mes "nuts to fight a monster, though.";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Digotz's been sick for three";
	mes "days now. It's just a normal";
	mes "cold and Maku keeps saying";
	mes "it's Digotz's fault he got sick.";
	mes "But he's always asking me to";
	mes "go visit him and see if he's okay.";
	next;
	mes "^000000[Digotz]";
	mes "I think I remember being";
	mes "pretty sick. Maku was worried?";
	mes "I... I must have had a horrible";
	mes "life threatening disease like,";
	mes "um, Gonorrhitis. You know.";
	mes "That might have been it.";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Mom and dad keep telling";
	mes "me not to hang out with Maku";
	mes "anymore. Their reason is really";
	mes "dumb, and I don't care if he is";
	mes "poor. He's one of the best guys";
	mes "that I'll ever know.";
	next;
	mes "^000000[Benkastein's Journal]";
	mes "^AD9595Digotz's family is really";
	mes "rich and they don't want him";
	mes "to see Maku anymore either.";
	mes "But Digotz doesn't care.";
	mes "I know he likes Maku a lot.";
	next;
	mes "^000000[Digotz]";
	mes "Well, we were a lot";
	mes "younger and closer back";
	mes "then, so... ^111111*Ahem!*^000000Why did";
	mes "Benkastein even write that?!";
	next;
	mes "[Benkastein's Journal]";
	mes "^AD9595Today, the three of us";
	mes "made an oath of brotherhood,";
	mes "just like we read in the comic";
	mes "book. We swore we'd always";
	mes "be friends no matter what.";
	mes "For always and for always.";
	next;
	mes "^000000[Digotz]";
	mes "I... I was forced to make";
	mes "that oath! And people do";
	mes "change, you know! I mean,";
	mes "we were basically just kids,";
	mes "it's not like that oath really";
	mes "means anything now, does it?";
	next;
	mes "[Digotz]";
	mes "That does it. I'm gonna";
	mes "go see that Maku. I don't";
	mes "miss him or anything, but";
	mes "I gotta get him to cancel";
	mes "that oath. And maybe I'll";
	mes "beat up him a little bit.";
	set friendship,8;
	close;

s_Cont7:
	mes "[Digotz]";
	mes "Wh-whoa, I need to";
	mes "get ready! That Maku's";
	mes "gonna make fun of me if";
	mes "I look too rich and pampered.";
	mes "Damn! Where did I put all of";
	mes "my fashionable street clothes?";
	close;

s_Wounded:
	mes "^3131FFDigotz is seriously";
	mes "injured from a wound";
	mes "by a knife that is still";
	mes "embedded in his belly.^000000";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "Digotz...?";
	mes "Oh no, let me";
	mes "get you some help!";
	next;
	mes "[Digotz]";
	mes "H-het... It's the";
	mes "adventurer... Man,";
	mes "that Maku. He always";
	mes "did bring me bad luck...";
	mes "It's too late for me and";
	mes "I don't have much time...";
	next;
	mes "[Digotz]";
	mes "Those guards I told you";
	mes "about... The ones who don't";
	mes "want the poor and the rich to";
	mes "mingle? I... Guess they found";
	mes "out I was gonna meet my old";
	mes "pal. I just wanted to see him...";
	next;
	mes "[Digotz]";
	mes "This guy... In a black";
	mes "suit... He just... He just";
	mes "stabbed me! I... God. It's";
	mes "been so long since I've talked";
	mes "to him. We'll hang out and have";
	mes "fun, just like the good old days.";
	next;
	mes "[Digotz]";
	mes "I missed my buddies, but now...";
	mes "Now I can hear them calling me.";
	mes "Now we can all be together just";
	mes "like we all promised. Yeah...";
	mes "I was wrong. Life's too short";
	mes "to be angry with your frie--";
	next;
	mes "[Digotz]";
	mes "..............";
	next;
	mes "[Digotz]";
	mes "..............";
	mes ".......................";
	next;
	mes "[Digotz]";
	mes "..............";
	mes ".......................";
	mes "................................";
	next;
	mes "^3131FFDigotz stopped breating.";
	mes "You remove the Knife from";
	mes "his lifeless body as a final";
	mes "courtesy to a man who";
	mes "dearly loved his friends.";
	next;
	set friendship,10;
	getitem 1201,1;
	close;

s_Dead:
	mes "^3131FFDigotz has passed";
	mes "away, but the look on";
	mes "his face seems very";
	mes "peaceful and content.";
	close;

}

lighthalzen,337,232,3	script	Maku	870,{

	if(friendship > 1)goto Switches;
	mes "[Maku]";
	mes "Hey, you're on of";
	mes "those adventurers, eh?";
	mes "Welcome to the ghetto.";
	mes "Nothing too adventurous";
	mes "here, but hey, you can";
	mes "explore all you want.";
	next;
	mes "[Maku]";
	mes "I don't know if you know";
	mes "but actually, the people who";
	mes "live here ain't allowed to";
	mes "explore this whole city. It's";
	mes "kind of taboo to talk about,";
	mes "but what do I care, right?";
	next;
	mes "[Maku]";
	mes "Yeah, basically the rich";
	mes "people here are too afraid";
	mes "of the poor people comin' to";
	mes "see them, so the security in";
	mes "this city is pretty tight! Those";
	mes "upper class guys are trash...";
	next;
	mes "[Maku]";
	mes "I didn't use to think";
	mes "this way. I actually used";
	mes "to have a pretty rich friend";
	mes "till I found out he's not all";
	mes "I thought he was. That";
	mes "moron! Why's he like that?!";
	next;
	mes "[Maku]";
	mes "Eh, forget about it.";
	mes "Why am I even talking";
	mes "about my personal life";
	mes "to someone I just met";
	mes "anyway? Sure, we all";
	mes "do it, but still...";
	next;
	mes "[Maku]";
	mes "Well, when you get";
	mes "bored of the ghetto,";
	mes "you really oughta check";
	mes "out the rich section of town.";
	mes "I'm bitter, but I'll also admit";
	mes "it's way nicer than this place.";
	if(BaseLevel > 29) set friendship,1;
	close;


Switches:
	switch(friendship)
	{
	
	case 2:
		mes "[Maku]";
		mes "Hey, what are you";
		mes "doing back over here?";
		mes "I thought I recommended";
		mes "going over to check out";
		mes "Uptown Lighthalzen. This";
		mes "place is pretty run-down...";
		next;
		menu "I actually met Digotz and...",-;

		mes "[Maku]";
		mes "You what...?!";
		mes "You saw my old pal,";
		mes "Digotz?! Er, I mean,";
		mes "Mister Alexander Digotz,";
		mes "who used to be my buddy,";
		mes "but obviously not anymore.";
		next;
		mes "[Maku]";
		mes "Sure, we were real close";
		mes "at one time, but that was";
		mes "too long ago. It's been a";
		mes "long time since we hung";
		mes "out and he probable hates";
		mes "my penniless guts and...";
		next;
		mes "[Maku]";
		mes "Crud, just listen to";
		mes "me, I sound like a wuss.";
		mes "I don't miss Digotz! In fact,";
		mes "I hate the guy, one hundred";
		mes "percent! The next time I see";
		mes "him, I'll beat him to a pulp!";
		set friendship,3;
		close;
	break;

	case 3:
		mes "[Maku]";
		mes "Man, I need to blow off some";
		mes "steam! Sure, me and Digotz";
		mes "were buds before and maybe";
		mes "we might seem like friends now,";
		mes "but not anymore, though we used";
		mes "to be closer than this. Argh!";
		next;
		mes "[Maku]";
		mes "Don't get me wrong, I don't";
		mes "miss the guy or anything like";
		mes "that and I don't feel sorry about";
		mes "what happened. But if he ever";
		mes "came to apologize to me, I'd";
		mes "probably accept, you know.";
		next;
		mes "[Maku]";
		mes "Well, after thinking";
		mes "about it, of course.";
		mes "I mean, I'm not the one";
		mes "holding a grudge. It's all";
		mes "that guy's fault! Sheeeesh!";
		close;
	break;

	case 4:
		mes "[Maku]";
		mes "What the hell are you";
		mes "still doing around here?";
		mes "You must have better things";
		mes "to do than talk to a ruffian";
		mes "like me or that snobby and";
		mes "totally prickish Digotz.";
		next;
		menu "Speaking of which...",-;
		mes "[" + strcharinfo(0) + "]";
		mes "Speaking of which...";
		mes "I spoke to Digotz again.";
		mes "He told me to give you a";
		mes "message, but I'm not sure th--";
		next;
		mes "[Maku]";
		mes "That no-good bastard";
		mes "has a message for me?!";
		mes "Oh, I'm soooo honored~";
		mes "Tell me what that fink";
		mes "has to say, line by line!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "Hopeless bastard!")goto failstr;
		mes "[Maku]";
		mes "\"Hopeless Bastard?!\"";
		mes "Well, at least he had";
		mes "the stomach to say that.";
		mes "Through somebody else";
		mes "anyway! What else'd he say?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "You're still a stubborn jerk!")goto failstr;
		mes "[Maku]";
		mes "\"Stubborn Jerk?!\"";
		mes "Takes no one to know one,";
		mes "bastard! Why I oughta--";
		mes "Grrr! What'd he say next?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "You owe me at least 3 lunches!")goto failstr;
		mes "[Maku]";
		mes "Three lunches?!";
		mes "I treated that guy to";
		mes "lunch like, fifteen times!";
		mes "I tell you, the guy does not";
		mes "know the meaning of friendship!";
		mes "What else did that moron say?!";
		next;
		input @digotzstr$;	
		if(@digotzstr$ != "Not to mention an apology!")goto failstr;
		mes "[Maku]";
		mes "Me, apologize?!";
		mes "He should be on his hands";
		mes "and knees begging for my";
		mes "frickin' forgiveness! That...";
		mes "That selfish no-good stupid...";
		mes "W-what else did he tell you?!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "But who cares what you think?!")goto failstr;
		mes "[Maku]";
		mes "Who cares what I think?!";
		mes "GRRRAAH~!! Who cares";
		mes "what he thinks!! ^111111*Pant Pant*^000000";
		mes "I'm gonna murderlize that";
		mes "dumb creep! He can't possibly";
		mes "make me angrier than I am now!";
		next;
		input @digotzstr$;
		if(@digotzstr$ != "I'm so goddamn happy without you!")goto failstr;
		mes "[Maku]";
		mes "That's it.";
		mes "It's decided. The";
		mes "next time I see Digotz,";
		mes "I'm gonna plaster his";
		mes "face all over the floor.";
		set friendship,5;
		close;
	break;

	case 5:
		mes "[Maku]";
		mes "RrrrRrrrr.....";
		mes "RrrrrRRRrrRR.....";
		mes "GGGGGRRRRR...";
		next;
		mes "^3131FFUh oh...";
		mes "It looks like Maku";
		mes "is starting to rage";
		mes "just a bit too much.^000000";
		next;
		mes "[Maku]";
		mes "...";
		mes "......";
		mes ".........";
		next;
		mes "[Maku]";
		mes "Gggrrrr...";
		next;
		mes "[Maku]";
		mes "GRAAAAAAAAH~!";
		mes "Who the hell does he";
		mes "think he is, telling me";
		mes "all sorts of crap!? Digotz,";
		mes "you're not getting away";
		mes "with this! Gonna wreck you!!";
		next;
		set Hp,MaxHp/2;
		mes "^3131FFMaku's seething quickly";
		mes "explodes into pure, violent";
		mes "rage. You manage to calm";
		mes "him down after a while, but";
		mes "barely keep yourself from";
		mes "getting killed in this outburst^000000";
		next;
		mes "[Maku]";
		mes "^111111*Pant pant* *Whew~*^000000";
		mes "D-don't worry, I've got";
		mes "a grip on myself now.";
		mes "Thanks for not letting me";
		mes "get too crazy. Times like";
		mes "this, I really miss ^FF0000Benkaistein^000000.";
		next;
		mes "[Maku]";
		mes "Benkastein would always";
		mes "make sure that I'd stay out";
		mes "of fights. I really miss that";
		mes "guy. Still, he ain't around...";
		next;
		mes "[Maku]";
		mes "Damn those guards!";
		mes "If they weren't there,";
		mes "I could just go over and";
		mes "kick Digotz's ass! I swear,";
		mes "if it weren't for them...!";		
		set friendship,6;
		close;
	break;

	case 6:
		mes "[Maku]";
		mes "Arrrrgh! Whenever I hear";
		mes "about that Digotz, I get so";
		mes "peeved! Is that guy giving";
		mes "me the brushoff just because";
		mes "I'm not a rich guy like he is?!";
		next;
		mes "[Maku]";
		mes "I can't...";
		mes "I can't even beat him up";
		mes "all properly because of";
		mes "all those freakin' guards!";
		mes "Arrrrrrrgh! Man, where's";
		mes "Benkastein when I need him?";
		close;
	break;

	case 7:
		mes "[Maku]";
		mes "Arrrrgh! Whenever I hear";
		mes "about that Digotz, I get so";
		mes "peeved! Is that guy giving";
		mes "me the brushoff just because";
		mes "I'm not a rich guy like he is?!";
		next;
		mes "[Maku]";
		mes "I can't...";
		mes "I can't even beat him up";
		mes "all properly because of";
		mes "all those freakin' guards!";
		mes "Arrrrrrrgh! Man, where's";
		mes "Benkastein when I need him?";
		close;
	break;

	case 8:
		mes "[Maku]";
		mes "Hey, what is that? You want";
		mes "me to read this journal?";
		mes "Er, okay, but I'm none too";
		mes "comfortable going through";
		mes "somebody's diary. It's just";
		mes "kinda... creepy, you know?";
		next;
		mes "[Maku]";
		mes "Hey, this think is";
		mes "Benkastein's. I haven't";
		mes "seen that guy in a long while.";
		mes "Ah, so he gave it to you for me";
		mes "to read? Alright, I owe him a";
		mes "favor or two, so I oughta...";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Today, me, Digotz and";
		mes "Maku played this crazy flying";
		mes "game. Basically, we make";
		mes "these wings out of wood and";
		mes "paper, jump of these hills";
		mes "and try to fly. Dumb, I know.";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595Today it was my turn to";
		mes "jump and flap my arms with";
		mes "these fake, badly made wings.";
		mes "It's not really a fun game when";
		mes "I think about it. Boy, I hope";
		mes "we don't do that again.";
		next;
		mes "^000000[Maku]";
		mes "What is he talking about?!";
		mes "That game was real fun!";
		mes "Yeah, I usually wore the";
		mes "wings and Digotz always";
		mes "wanted to wear them too.";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Maku, Digotz and me went";
		mes "outside of town. Of course,";
		mes "we didn't tell anyone or else";
		mes "we'd get in trouble. It was";
		mes "a really exciting day. But";
		mes "then, we ran into a monster!";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595I wanted to run away but Maku";
		mes "and Digotz wanted to beat it so";
		mes "that we could become heroes.";
		mes "Of course, we got hurt pretty";
		mes "bad and the monster got away.";
		mes "Boy, mom was not happy...";
		next;
		mes "^000000[Maku]";
		mes "That's right! Back then,";
		mes "the three of us weren't";
		mes "afraid of anything! Of course,";
		mes "Digotz got beat up the most.";
		mes "But I gotta say, he was also";
		mes "the most fearless of us.";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Digotz's been sick for three";
		mes "days now. It's just a normal";
		mes "cold and Maku keeps saying";
		mes "it's Digotz's fault he got sick.";
		mes "But he's always asking me to";
		mes "go visit him and see if he's okay.";
		next;
		mes "^000000[Maku]";
		mes "Wh-what?! No, I wasn't";
		mes "worried at all! That must";
		mes "have been the time Digotz";
		mes "caught Clymonia. You know,";
		mes "that, uh, horrible disease. No";
		mes "one should have that one!";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Mom and dad keep telling";
		mes "me not to hang out with Maku";
		mes "anymore. Their reason is really";
		mes "dumb, and I don't care if he is";
		mes "poor. He's one of the best guys";
		mes "that I'll ever know.";
		next;
		mes "^000000[Benkastein's Journal]";
		mes "^AD9595Digotz's family is really";
		mes "rich and they don't want him";
		mes "to see Maku anymore either.";
		mes "But Digotz doesn't care.";
		mes "I know he likes Maku a lot.";
		next;
		mes "^000000[Maku]";
		mes "...";
		mes "......";
		next;
		mes "[Benkastein's Journal]";
		mes "^AD9595Today, the three of us";
		mes "made an oath of brotherhood,";
		mes "just like we read in the comic";
		mes "book. We swore we'd always";
		mes "be friends no matter what.";
		mes "For always and for always.";
		next;
		mes "^000000[Maku]";
		mes "Well, that's true,";
		mes "I guess, but people";
		mes "change! Besides, we got";
		mes "that idea from a comic book!";
		mes "Well, if he apologizes first,";
		mes "I guess I better forgive him.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Good...";
		mes "Because Digotz said";
		mes "that he'll be coming";
		mes "by in a few days.";
		next;
		mes "[Maku]";
		mes "What?! He's really coming";
		mes "here? What for? It's too late";
		mes "to patch things up! Still, I'd be";
		mes "a real prick if I didn't see him";
		mes "Alright, fine! I'll teach that guy";
		mes "a lesson once he's here!";
		next;
		mes "[Maku]";
		mes "And, um, gimme that";
		mes "journal! I'm gonna read";
		mes "more of it so I can make";
		mes "fun of Digotz. Bwahahaha!";
		mes "But yeah, um, thanks. Not";
		mes "that I'm grateful or anything.";
		next;
		mes "[Maku]";
		mes "So, uh, I guess";
		mes "I'll see you later.";
		mes "Um, now I gotta get";
		mes "ready for something.";
		mes "^111111(But not to see Digotz!)";
		if(countitem(7351))delitem 7351,1;
		set friendship,9;
		close;
	break;

	case 9:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		close;
	break;

	case 10:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		next;
		mes "[Maku]";
		mes "Eh, he might have";
		mes "some kinda reason for";
		mes "being late, but if he don't,";
		mes "i've been saving a whole";
		mes "six pack of kickass to open,";
		mes "just for him. Heh heh heh~";
		close;
	break;

	case 11:
		mes "[Maku]";
		mes "Why is Digotz";
		mes "so late? This isn't";
		mes "like him at all. Maybe";
		mes "something's wrong?";
		next;
		mes "[Maku]";
		mes "Eh, he might have";
		mes "some kinda reason for";
		mes "being late, but if he don't,";
		mes "i've been saving a whole";
		mes "six pack of kickass to open,";
		mes "just for him. Heh heh heh~";
		close;
	break;
	}

failstr:
	mes "[Maku]";
	mes "Wha...? I dunno if Digotz";
	mes "would say something like";
	mes "that. You sure you heard";
	mes "him carefully enough? It's";
	mes "been a while, but I know";
	mes "how Digotz talks, man.";
	close;
}

yuno_in04,107,14,4	script	Student	754,{

	mes "[Joey Choryee]";
	mes "This is a study area where";
	mes "you're not supposed to speak,";
	mes "walk or even breathe loudly.";
	mes "Still, students like Benkastein";
	mes "can tune out the whole world";
	mes "when they study hard enough...";
	if(friendship != 6)close;
	next;
	mes "[Joey Choryee]";
	mes "Benkastein...?";
	mes "He's in the north part.";
	mes "of this room. He's a real";
	mes "nice guy, but a little anal.";
	mes "Well, he's too organized";
	mes "and he labels everything!";
	close;

}

yuno_in04,96,106,4	script	Passionate Student	754,{

	if(friendship == 10)goto s_Ask;
	if(friendship3 == 2 || friendship3 == 3)goto s_Cont2;
	if(friendship3 == 1)goto s_Cont;
	mes "[Passionate Student]";
	mes "Let's see, now.";
	mes "Wind Magic, Black Magic,";
	mes "Porings, ah, there it is";
	mes "Monster race properties.";
	mes "Hopefully this contains";
	mes "the information I need...";
	next;
	if(friendship != 6)goto s_mes;
	mes "Upon briefly glancing at";
	mes "this student's belongings,";
	mes "you notice that the name";
	mes "\"Benkastein\" is printed";
	mes "on them. This is the friend";
	mes "mentioned by Maku and Digotz!";
	next;
	menu "Excuse me...",-;
	mes "[" + strcharinfo(0) + "]";
	mes "Excuse me...";
	mes "Benkastein?";
	next;
	mes "[Passionate Student]";
	mes "...The world of humans";
	mes "and the world of demons,";
	mes "yes, yes... No, what I'm";
	mes "looking for is a reference";
	mes "to the heavens of Asgard.";
	mes "Hmm, this here might help...";
	next;
	menu "Hey...",-;
	mes "[" + strcharinfo(0) + "]";
	mes "Hey...";
	mes "Over here.";
	mes "Benkastein!";
	next;
	mes "[Passionate Student]";
	mes "...Oh, now that's a very";
	mes "interesting observation.";
	mes "If I can incorporate that";
	mes "into my thesis without too";
	mes "much trouble, my standpoint";
	mes "would look much more solid...";
	next;
	menu "HEY YOU...!",-;
	mes "[" + strcharinfo(0) + "]";
	mes "HEY YOU...!";
	mes "BENKASTEIN~!";
	next;
	mes "[Passionate Student]";
	mes "Oh, good heavens!";
	mes "C-can't you keep";
	mes "your voice down?";
	mes "I-I'm trying to study!";
	mes "No, wait. Have you been";
	mes "calling me all this time?";
	set friendship3,1;
	close;

s_Cont:
	mes "[Passionate Student]";
	mes "Oh, you startled me!";
	mes "Still, I'm aware that it's";
	mes "hard to get my attention";
	mes "once I immerse myself";
	mes "in a book. So, how can";
	mes "I help you, adventurer?";
	next;
	menu "Tell him about Maku and Digotz.",-;
	mes "[Benkastein]";
	mes "Oh, how are my friends";
	mes "doing? Oh, what? They're";
	mes "having a huge fight just";
	mes "because one's rich and";
	mes "the other one's poor?";
	mes "That's pretty childish!";
	next;
	mes "[Benkastein]";
	mes "But then again, that's just";
	mes "like them. ^111111*Sigh*^000000 I really want";
	mes "to go back home and get those";
	mes "two to make up, but I also need";
	mes "to finish this thesis. Let's see...";
	mes "What can I possibly do from here?";
	next;
	mes "[Benkastein]";
	mes "Oh, I know what I can do!";
	mes "Wait, but where did I put it?";
	mes "Oh, how cold I lose something";
	mes "so important? Wait! Would you";
	mes "please wait a second while";
	mes "I look for something?";
	set friendship3,2;
	close;

s_Cont2:
	mes "[Benkastein]";
	mes "Aw nuts, this is";
	mes "taking much longer";
	mes "than I had expected.";
	mes "Now where did I put";
	mes "that thing? Hmmmm...";
	if(friendship3 == 3)goto s_Cont3;
	next;
	mes "^3131FFPerhaps it would";
	mes "be best if you help";
	mes "Benkastein to look for";
	mes "what he's searching for.";
	close;

s_Cont3:
	next;
	mes "[Benkastein]";
	mes "Oh, is that it?";
	mes "Did you find my";
	mes "journal? Quick, let";
	mes "me check. Yes, yes...";
	mes "This is it! Thank you";
	mes "for finding this for me!";
	next;
	mes "[Benkastein]";
	mes "Would you mind doing";
	mes "a favor for me? It'd be";
	mes "better if I talk to them";
	mes "myself, but I'm too busy";
	mes "working on this thesis...";
	next;
	mes "[Benkastein]";
	mes "Would you please give this";
	mes "journal to Digotz and Maku?";
	mes "I wrote it in when we were";
	mes "really young, so it should";
	mes "remind them of all the good";
	mes "times we used to share.";
	next;
	mes "[Benkastein]";
	mes "Anyway, this should at";
	mes "least help them realize";
	mes "how stupid they've been";
	mes "acting. Thanks in advance,";
	mes "and please take care of";
	mes "Maku and Digotz for me.";
	if(friendship == 6)set friendship,7;
	close;

s_mes:
	mes "^3131FFThis student seems to";
	mes "be dilligently conducting";
	mes "intensive research on some";
	mes "academic subject. For now,";
	mes "it would be best to leave him";
	mes "alone so that he can study.";
	close;

s_Ask:
	mes "[Benkastein]";
	mes "Were you able to bring";
	mes "my journal to Digotz and";
	mes "Maku? I'm pretty sure it'd";
	mes "remind them of all the good";
	mes "times we had. I know they";
	mes "sure can be stubborn...";
	next;
	mes "[Benkastein]";
	mes "Anyway, I really";
	mes "appreciate all your";
	mes "help. When I go back";
	mes "home, I look forward to";
	mes "seeing the two of them again.";
	next;
	mes "[Benkastein]";
	mes "Until then, I need to research,";
	mes "finish my thesis and accomplish";
	mes "my academic goals. Oh, please";
	mes "take this pass which will let you";
	mes "go back and forth between the";
	mes "rich and poor areas as my thanks.";
	next;
	mes "[Benkastein]";
	mes "Anyway, I wish you";
	mes "safety in your travels,";
	mes "adventurer. When the three";
	mes "of us get together, I'll be";
	mes "sure to let you know~";
	if(BaseLevel < 41)set BaseExp,BaseExp+49500;
	else if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+99000;
	else if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+198000;
	else if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+396000;
	else if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+594000;
	else if(BaseLevel > 90)set BaseExp,BaseExp+792000;
	getitem 7350,1;
	set friendship,11;
	set friendship3,0;
	close;

}

yuno_in04,168,117,1	script	Book	111,{

	if(friendship3 >= 3)goto Book2;
	if(friendship3 == 2)goto Book;
	mes "^3131FFThis book is labeled,";
	mes "\"Benkastein's Journal";
	mes "Vol. 6.\".";
	close;
Book:
	mes "^3131FFThis book is labeled,";
	mes "\"Benkastein's Journal";
	mes "Vol. 6.\". This is probably";
	mes "what Benkastein was trying";
	mes "to find, so it might be best to";
	mes "bring this and show it to him";
	set friendship3,3;
	getitem 7351,1;
	close;
Book2:
	mes "^3131FFThis is where you found";
	mes "the book that Benkastein";
	mes "was looking for.";
	close;

}

yuno_in04,171,117,1	script	List of Books	111,{

	mes "^3131FFYou find a series";
	mes "of paperback books";
	mes "with titles, printed";
	mes "on the binding in an";
	mes "elegantly decorative";
	mes "cursive style font.";
	mes "The titles include...";
	next;
	mes "*Volcanic Passion*";
	mes "*Midnight Crescendo*";
	mes "*A Paris Affair*";
	mes "*Fever Pitch*";
	mes "*The Cowyboy Next Door*";
	mes "*Platonic Romance*";
	mes "*How Lara Got Her Groove Back*";
	next;
	mes "^000000[" + strcharinfo(0) + "]";
	mes "What the...?!";
	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

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,161;
		end;
	}
	else
	{
		warp "lhz_in01",278,161;
		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,23;
							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(BaseLevel < 70) getexp 800000,300000;
		else if(BaseLevel < 80) getexp 1000000,500000;
		else if(BaseLevel < 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;
}

// President Quest aka. Schwartzvalt Trilogy Quest

lighthalzen,179,170,4	script	Ordinary Man	98,{

	if(!lhz_boss)
	{
		mes "[Ghalstein]";
		mes "Hello there~";
		mes "Isn't Lighthalzen such";
		mes "a wonder to behold with";
		mes "all of its splendor and";
		mes "magnificent beauty?";
		next;
		switch( select( "I guess.","Yes, it is.","Well, I don't know." ) )
		{
			case 1:
				mes "[Ghalstein]";
				mes "Oh, and the weather is";
				mes "so nice today, perfect";
				mes "for a stroll in the park";
				mes "or a lovely picnic. Ah~";
				break;

			case 2:
				mes "[Ghalstein]";
				mes "Oh, I'm so glad you";
				mes "agree. The people who";
				mes "live here are so kind and";
				mes "so happy, you can literally";
				mes "feel everyone's gentle warmth.";
				break;

			case 3:
				mes "[Ghalstein]";
				mes "Well, maybe if you";
				mes "don't see it right this";
				mes "moment, I'm sure you'll";
				mes "discover something to";
				mes "love about this city soon.";
				break;
		}
		next;
		if(BaseLevel < 60)
		{
			mes "[Ghalstein]";
			mes "Ha ha ha!";
			mes "Anyway, I hope you";
			mes "have a good day today~";
			close;
		}
		mes "[Ghalstein]";
		mes "Yes, Lighthalzen";
		mes "couldn't be perfecter.";
		mes "Ahahahaha... But still...";
		mes "Hm. Um. Oh, never mind.";
		next;
		mes "[Ghalstein]";
		mes "Ha ha ha!";
		mes "Anyway, I hope you";
		mes "have a good day today~";
		set lhz_boss,1;
		close;
	}
	else if(lhz_boss == 1)
	{
		set @weather,rand(1,5);
		if(@weather == 4)
		{
			mes "[Ghalstein]";
			mes "Hm? It's a little";
			mes "cloudy today, isn't it?";
			mes "It would be nice to stay";
			mes "inside, listening to some";
			mes "nice music while enjoying";
			mes "a hot cup of tea, wouldn't it?";
			close;
		}
		mes "[Ghalstein]";
		mes "Ahhh!";
		mes "Such pleasant weather~";
		mes "I'm so glad I'm outside";
		mes "and enjoying the sunlight.";
		mes "Feel it. It's so warm and";
		mes "nice on your face, isn't it?";
		close;
	}
	else if(lhz_boss == 2)
	{
		mes "[Ghalstein]";
		mes "The sun is gently";
		mes "shining, the breeze is";
		mes "gently blowing. Oh, this";
		mes "weather could not be better!";
		next;
		switch( select( "Yes, you're right.","Uh, what were you doing just now?" ) )
		{
			case 1:
				mes "[Ghalstein]";
				mes "Yes, right now is the";
				mes "best time to be outside";
				mes "and to enjoy all of this";
				mes "fresh, wonderful air. Come,";
				mes "take a deep breath with me.";
				mes "Ooooh. Ahhhhhh~ Excellent!";
				close;

			case 2:
				mes "[Ghalstein]";
				mes "...";
				mes "......";
				mes "I don't quite follow what";
				mes "you're saying. I was merely";
				mes "enjoying the sunny perfection";
				mes "of Lighthalzen as usual...";
				next;
				switch( select( "But I heard you talking about something..." ) )
				{
					case 1:
						break;
				}
				mes "[Ghalstein]";
				mes "No! You must";
				mes "have mistaken me";
				mes "for somebody else!";
				mes "Now, if you'll excuse me...";
				set lhz_boss,3;
				next;
				mes "^3355FFEven if it wasn't";
				mes "Ghalstein that you";
				mes "just heard, he reacted";
				mes "pretty strongly to what";
				mes "you said to to him. Almost";
				mes "as if he had something to hide... ^000000";
				close;
		}
	}
	else if(lhz_boss == 3)
	{
		mes "[Ghalstein]";
		mes "Hm? Judging from the";
		mes "look on your face, you";
		mes "apparently still believe";
		mes "that I was involved in some";
		mes "kind of clandestine meeting.";
		next;
		switch( select( "Yes, I'm sure of it!","Well..." ) )
		{
			case 1:
				mes "["+strcharinfo(0)+"]";
				mes "Yes, I'm sure of it!";
				mes "That was definitely you!";
				mes "Your voice, your way of";
				mes "speaking is unmistakable!";
				next;
				mes "[Ghalstein]";
				mes "......";
				mes "..........";
				mes "...............";
				next;	
				mes "[Ghalstein]";
				mes "Alright. Yes, it's";
				mes "true that I did meet";
				mes "someone in secret. But";
				mes "what gives you the right";
				mes "to interrogate me in this";
				mes "rather aggressive fashion?";
				next;
				switch( select( "I'm not interrogating...","Sorry about that." ) )
				{
					case 1:
						mes "["+strcharinfo(0)+"]";
						mes "I'm not interrogating";
						mes "you. No, not at all.";
						mes "It's, um, it's just...";
						next;
						switch( select( "Who are you dealing with?","I was just curious." ) )
						{
							case 1:
								mes "["+strcharinfo(0)+"]";
								mes "Who are you dealing";
								mes "with? I heard something";
								mes "about some organization";
								mes "that's supposedly very";
								mes "powerful and I'm starting";
								mes "to get really concerned.";
								next;
								mes "["+strcharinfo(0)+"]";
								mes "I don't think I can";
								mes "ignore hearing about";
								mes "any kind of dangerous";
								mes "corporation, even if";
								mes "I wanted to. Turning my";
								mes "back to this seems wrong...";
								next;
								mes "[Ghalstein]";
								mes "Hm...";
								mes "You really";
								mes "feel that way?";
								next;
								mes "[Ghalstein]";
								mes "Please give me";
								mes "a moment. I need";
								mes "some time to think";
								mes "about how I can best";
								mes "handle this situation.";
								set lhz_boss,4;
								close;

							case 2:
								mes "[Ghalstein]";
								mes "Just curious...?";
								mes "Well, I hope that";
								mes "you don't interfere";
								mes "too much with other";
								mes "people's lives just";
								mes "out of curiosity.";
								next;
								mes "[Ghalstein]";
								mes "You really shouldn't";
								mes "make something your";
								mes "business if you're not";
								mes "interested or willing";
								mes "to commit. Now, if you";
								mes "would excuse me...";
								close;
						}
					case 2:
						mes "["+strcharinfo(0)+"]";
						mes "Sorry about that.";
						mes "I didn't mean to";
						mes "stick my nose into";
						mes "your personal business.";
						next;
						mes "[Ghalstein]";
						mes "Well, that's quite";
						mes "alright. I accept";
						mes "your apology, but";
						mes "I must warn you";
						mes "not to pry into my";
						mes "personal affairs.";
						close;
				}

			case 2:
				mes "["+strcharinfo(0)+"]";
				mes "Well...";
				mes "Now I don't know.";
				mes "I suppose I could";
				mes "be wrong, I guess.";
				next;
				mes "[Ghalstein]";
				mes ".......";
				mes "Yes, I wouldn't";
				mes "recommend running";
				mes "around, indiscriminately";
				mes "accusing random people";
				mes "of doing strange things.";
				close;
		}
	}
	else if(lhz_boss == 4)
	{
		mes "[Ghalstein]";
		mes "I've come into a";
		mes "decision and found";
		mes "a way that I can let";
		mes "you into my confidence";
		mes "without putting the efforts";
		mes "of my organization at risk.";
		next;
		mes "[Ghalstein]";
		mes "As you may have already";
		mes "guessed, I'm a member of an";
		mes "organization whose ultimate";
		mes "goal is to put an end to the";
		mes "Rekenber Corporation.";
		next;
		mes "[Ghalstein]";
		mes "However, before I relate";
		mes "more information regarding";
		mes "my organization and its work, I shall require your cooperation.";
		next;
		switch( select( "How can I cooperate?" ) )
		{
			case 1:
				break;
		}
		mes "["+strcharinfo(0)+"]";
		mes "How can I cooperate?";
		mes "Um, what exactly is it";
		mes "that you want me to do?";
		next;
		mes "[Ghalstein]";
		mes "You do seem interested";
		mes "in knowing more about us,";
		mes "and we can also use your";
		mes "expertise as an adventurer.";
		mes "But first you must decide if";
		mes "you will commit to cooperation.";
		next;
		switch( select( "I still don't get it...","Sure, I'll cooperate.","No, thanks." ) )
		{
			case 1:
				mes "[Ghalstein]";
				mes "Alright, let me make this ";
				mes "clearer for you. You have";
				mes "two choices.";
				next;
				switch( select( "Two choices?" ) )
				{
					case 1:
						break;
				}
				mes "[Ghalstein]";
				mes " If you choose";
				mes "to cooperate with us, you'll";
				mes "need to periodically drink";
				mes "this red magic tonic.";
				next;
				mes "[Ghalstein]";
				mes "The red tonic will allow";
				mes "us to monitor your every";
				mes "move so that we know you";
				mes "won't betray us. You'll have to";
				mes "continue cooperating or else";
				mes "we won't give you the cure.";
				next;
				mes "[Ghalstein]";
				mes "Throughout our mission,";
				mes "you'll need to take a red";
				mes "tonic every so often to avoid";
				mes "suffering fron unpleasant";
				mes "consequences. When we";
				mes "finish, you get the antidote.";
				next;
				switch( select( "........." ) )
				{
					case 1:
						break;
				}
				mes "[Ghalstein]";
				mes "If you choose not to";
				mes "cooperate, simply drink";
				mes "this blue tonic, which will";
				mes "erase every fragment of your";
				mes "memory regarding our meeting.";
				next;
				mes "[Ghalstein]";
				mes "So, what have";
				mes "you decided to do?";
				next;
				switch( select( "Don't cooperate","Cooperate" ) )
				{
					case 1:
						break;

					case 2:
						mes "[Ghalstein]";
						mes "Ah, good choice.";
						mes "So will you take";
						mes "this red tonic?";
						next;
						switch( select( "Do not take it.","Take it." ) )
						{
							case 1:
								break;

							case 2:
								mes "[Ghalstein]";
								mes "Very good.";
								mes "Then please,";
								mes "drink this right away.";
								next;
								mes "^3355FFYou drink the red tonic.";
								mes "It doesn't feel any different";
								mes "from a Red Potion, but it";
								mes "would be wise to cooperate";
								mes "with Ghalstein until this";
								mes "mission is accomplished.^000000";
								next;
								mes "[Ghalstein]";
								mes "You may feel a little";
								mes "disoriented after drinking";
								mes "this tonic for the first time.";
								mes "I'll give you a moment to";
								mes "steady yourself before we";
								mes "talk about our mission.";
								set lhz_boss,5;
								close;
						}
						break;
				}
				break;

			case 2:
				mes "[Ghalstein]";
				mes "Ah, good choice.";
				mes "So will you take";
				mes "this red tonic?";
				next;
				switch( select( "Do not take it.","Take it." ) )
				{
					case 1:
						break;
	
					case 2:
						mes "[Ghalstein]";
						mes "Very good.";
						mes "Then please,";
						mes "drink this right away.";
						next;
						mes "^3355FFYou drink the red tonic.";
						mes "It doesn't feel any different";
						mes "from a Red Potion, but it";
						mes "would be wise to cooperate";
						mes "with Ghalstein until this";
						mes "mission is accomplished.^000000";
						next;
						mes "[Ghalstein]";
						mes "You may feel a little";
						mes "disoriented after drinking";
						mes "this tonic for the first time.";
						mes "I'll give you a moment to";
						mes "steady yourself before we";
						mes "talk about our mission.";
						set lhz_boss,5;
						close;
				}

			case 3:
				break;
		}
		mes "[Ghalstein]";
		mes "You really feel";
		mes "that way? Well, that's";
		mes "a shame. Pity, really...";
		next;
		mes "^3355FFYou suddenly get the";
		mes "weird feeling that someone";
		mes "has been behind you this";
		mes "entire time. As you slowly";
		mes "turn around to look, you";
		mes "were knocked unconscious...^000000";
		percentheal 100,0;
		percentheal -50,0;
		next;
		mes "..........";
		mes "........";
		mes ".....";
		mes "..";
		next;
		mes "[??????]";
		mes "^666666Now...^000000";
		if(Sex == 1) mes "^666666Make him^000000";
		else mes "^666666Make her^000000";
		mes "^666666swallow this pill.^000000";
		next;
		mes "^3355FFYou're forced to swallow";
		mes "some strange pill which";
		mes "immediately makes all your";
		mes "thoughts hazier until it begins";
		mes "to feel like your entire mind";
		mes "is getting bleached somehow.^000000";
		set lhz_boss,0;
		close2;
		warp "lighthalzen",217,313;
		end;
	}
	else if(lhz_boss == 5)
	{
		mes "[Ghalstein]";
		mes "So how are you feeling?";
		mes "Any nausea that you may";
		mes "be experiencing should";
		mes "be going away very soon.";
		mes "Anyway, let's get started.";
		next;
		mes "[Ghalstein]";
		mes "Rekenber Corporation";
		mes "is closely affiliated with";
		mes "Regenschirm, an underground";
		mes "laboratory inhabited by strange";
		mes "and suspicious creatures.";
		next;
		mes "[Ghalstein]";
		mes "Your mission will be to";
		mes "infiltrate this underground lab";
		mes "and bring back evidence which";
		mes "proves the existence of these";
		mes "creatures. You must gather";
		mes "various kinds of proof.";
		next;
		mes "[Ghalstein]";
		mes "But more importantly,";
		mes "there is ^FF0000something there";
		mes "that you have to bring";
		mes "back to me^000000. I can't tell";
		mes "you exactly what it is,";
		mes "but trust me. You'll know.";
		next;
		mes "[Ghalstein]";
		mes "If you search the";
		mes "Laboratory enough,";
		mes "you'll find what I'm";
		mes "talking about. In any";
		mes "case, you'll need to find";
		mes "a way to get inside the lab.";
		next;
		mes "[Ghalstein]";
		mes "It might be helpful to";
		mes "know that we've received";
		mes "reports about disappearances";
		mes "of people from the ^FF0000eastside";
		mes "slums^000000. We believe they are";
		mes "perhaps traveling illegally...";
		next;
		mes "[Ghalstein]";
		mes "If someone there is";
		mes "transporting people";
		mes "without authorization,";
		mes "maybe you can find a";
		mes "contact who can sneak";
		mes "you inside the Laboratory.";
		set lhz_boss,6;
		close;
	}
	else if(lhz_boss == 6)
	{
		mes "[Ghalstein]";
		mes "For now, it may be best";
		mes "to start investigating the";
		mes "eastside slums to see if you";
		mes "can find somebody who can";
		mes "get you inside the Laboratory.";
		close;
	}
	else if(lhz_boss == 7)
	{
		if(!MISC_QUEST&512)
		{
			mes "[Ghalstein]";
			mes "An error occurred.";
			close;
		}
		if ((countitem(7346)) && (countitem(7347) > 9) && (countitem(7345) > 9))
		{
			mes "[Ghalstein]";
			mes "Ah, this looks like a";
			mes "sufficient amount of";
			mes "evidence for us to be";
			mes "able to effectively attack";
			mes "our enemy. I believe you're";
			mes "ready for the next mission.";
			next;
			mes "[Ghalstein]";
			mes "But first, I believe it's";
			mes "time for another red tonic";
			mes "dose so that we can keep";
			mes "monitoring you. Oh, and";
			mes "don't worry, it's not addictive";
			mes "or anything strange like that.";
			next;
			mes "[Ghalstein]";
			mes "Now, find ^FF0000Gusharr^000000, one of";
			mes "our members, ^FF0000near Juno^000000.";
			mes "He will tell you about your";
			mes "next mission. Show this to";
			mes "him to prove that you are";
			mes "working with us. Don't forget.";
			delitem 7346,1;
			delitem 7347,10;
			delitem 7345,10;
			set lhz_boss,8;
			getitem 7348,1;
			close;
		}
		else if((!countitem(7346)) && (!countitem(7347)) && (!countitem(7345)))
		{
			mes "[Ghalstein]";
			mes "When you get inside the";
			mes "Laboratory, make sure that";
			mes "you search around for any";
			mes "records and get any sort of";
			mes "concrete evidence we can";
			mes "use. I'll be counting on you.";
			close;
		}
		else
		{
			mes "[Ghalstein]";
			mes "We'll need more evidence";
			mes "than this from the Laboratory";
			mes "to make any impact against our";
			mes "enemy. I know what we need is";
			mes "difficult to find, but I'm sure";
			mes "that you can pull this off.";
			close;
		}
	}
	else if(lhz_boss == 8)
	{
		mes "[Ghalstein]";
		mes "Please find Gushaar";
		mes "in the vicinity of Juno.";
		mes "He will give you all the";
		mes "details for your next mission.";
		close;
	}
	else if(lhz_boss < 25)
	{
		mes "[Ghalstein]";
		mes "You've made the decision";
		mes "to help us in order to learn";
		mes "more about our organzation.";
		mes "We appreciate all the help we";
		mes "can get, but I hope you don't";
		mes "regret getting in this deep.";
		next;
		mes "[Ghalstein]";
		mes "There's a certain price";
		mes "for knowledge. I believe";
		mes "you're capable of paying it,";
		mes "but whether or not this ordeal";
		mes "will be worthwhile to you is";
		mes "difficult to determine.";
		close;
	}
	else if(lhz_boss < 43)
	{
		mes "[Ghalstein]";
		mes "You're so close to";
		mes "accomplishing your";
		mes "mission. If all goes as";
		mes "planned, we can do some";
		mes "real damage to our enemy.";
		mes "And you'll finally be free.";
		close;
	}
	else if(lhz_boss == 43)
	{
		mes "[Ghalstein]";
		mes "I can't believe what";
		mes "happened. I just heard";
		mes "that the president was";
		mes "betrayed! This is horrible!";
		mes "We'll have to start all over.";
		mes "Was it all for nothing?!";
		next;
		mes "[Ghalstein]";
		mes "No. No, Jargeah would be";
		mes "so disappointed in me if";
		mes "I just gave up. I'll have to";
		mes "follow our dream, no matter";
		mes "what the obstacles are.";
		mes "Jargeah, give me strength!";
		next;
		mes "[Ghalstein]";
		mes "Also, you've done a great";
		mes "service for us. Although we";
		mes "failed, you carried out your";
		mes "missions perfectly. Here,";
		mes "take this antidote so that";
		mes "you'll finally be free of us.";
		next;
		mes "[Ghalstein]";
		mes "I'd like you to take";
		mes "this small gift, as way";
		mes "of apology. We asked you";
		mes "to do so much, but ultimately,";
		mes "we weren't able to accomplish";
		mes "what we set out to do. Still...";
		set lhz_boss,44;
		getitem 617,1;
		getexp 1800000,0;
		next;
		mes "[Ghalstein]";
		mes "I'd like to thank you";
		mes "for everything. Hopefully,";
		mes "you found the answers";
		mes "that you were looking for";
		mes "when you decided to help";
		mes "us. Farewell, faithful friend.";
		close;
	}
	else
	{
		mes "[Ghalstein]";
		mes "I hate being patient,";
		mes "but the old adage is";
		mes "true. He who runs away,";
		mes "lives to fight another day.";
		mes "But that day seems so";
		mes "far off into the future...";
		close;
	}
}

lighthalzen,173,167,1	script	Switch	-1,2,4,{

OnTouch:
	if(lhz_boss == 1)
	{
		mes "[??????]";
		mes "^666666Come on.";
		mes "This way.^000000";
		next;
		mes "[??????]";
		mes "^333333Hurry up, before";
		mes "the others see you...^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "(Wait a second...";
		mes "That voice is";
		mes "awfully familiar.)";
		next;
		switch( select( "Ignore it.","Keep listening." ) )
		{
			case 1:
				mes "["+strcharinfo(0)+"]";
				mes "(That voice is";
				mes "awfully familiar...";
				mes "But what do I care?)";
				close;
			
			case 2:
				mes "["+strcharinfo(0)+"]";
				mes "(This is too weird.";
				mes "I guess I better keep";
				mes "listening to see what";
				mes "I can learn about this...)";
				next;
				mes "[??????]";
				mes "^333333So why did you tell";
				mes "me to come to such";
				mes "a dangerous place...?^000000";
				next;
				mes "^3355FFThat's...^000000";
				mes "That's ^660000Ghalstein's^3355FF voice!^000000";
				next;
				mes "[????]";
				mes "^666666Something unexpected";
				mes "came up. Hence the sudden";
				mes "change in plans. Now listen...^000000";
				next;
				mes "^3355FFSuddenly, both of the";
				mes "voices grew much quieter";
				mes "as the two men spoke to each";
				mes "other in low, hoarse whispers";
				mes "that are almost inaudible.^000000";
				next;
				mes "[????]";
				mes "^666666....";
				mes "...Relate.....";
				mes "...Business.....Kafr...^000000";
				next;
				mes "[Ghalstein]";
				mes "^333333Oh. That does";
				mes "sound very urgent.";
				mes "But it's not safe to";
				mes "talk about this here.";
				mes "Let's move somewhere";
				mes "a little more secure.^000000";
				next;
				mes "[????]";
				mes "^666666No problem.";
				mes "........................^000000";
				next;
				mes "........................";
				mes ".....................";
				mes "..................";
				next;
				mes "^3355FFThat other voice...";
				mes "Whoever it belonged";
				mes "to is gone! What's";
				mes "going on here?^000000";
				set lhz_boss,2;
				close;
		}
	}
}

yuno_fild04,165,245,4	script	Dismal Guy	89,{

	if(lhz_boss < 8)
	{
		mes "[Gushaar]";
		mes "Decisions, decisions.";
		mes "Sometimes it's hard to";
		mes "make a choice when it";
		mes "isn't clear which one will";
		mes "give you the most benefit.";
		next;
		mes "[Gushaar]";
		mes "I think most of the good";
		mes "things in life have some";
		mes "kind of cost, but they're";
		mes "usually worth it. I mean,";
		mes "nothing would have any";
		mes "worth without any cost, right?";
		close;
	}
	else if(lhz_boss == 8)
	{
		mes "[Gushaar]";
		mes "Alright. Choose";
		mes "your poison. I got";
		mes "two different kinds of";
		mes "tonics for you, red and blue.";
		mes "So which one will you drink?";
		next;
		switch( select( "????","Red Tonic","Blue Tonic" ) )
		{
			case 1:
				mes "[Gushaar]";
				mes "Well, when you don't";
				mes "make a decision, you";
				mes "don't take action. And";
				mes "when you don't take any";
				mes "action, nothing happens.";
				mes "Come on, don't be boring~";
				close;

			case 2:
				mes "[Gushaar]";
				mes "Red, huh? I like";
				mes "your style. But, eh,";
				mes "isn't there something";
				mes "you want to show me first?";
				next;
				switch( select( "Oh, right!","What are you talking about?" ) )
				{
					case 1:
						if(!countitem(7348))
						{
							mes "[Gushaar]";
							mes "Hey... Umm...";
							mes "Aren't you supposed";
							mes "to be carrying some";
							mes "sort of secret something?";
							mes "I'd tell you want it was if we";
							mes "weren't so, well, secretive.";
							close;
						}
						mes "^3355FFYou suavely flash";
						mes "your Membership Card";
						mes "to Gushaar, who gives";
						mes "you an approving nod.^000000";
						next;
						mes "[Gushaar]";
						mes "Yeah, that's what";
						mes "I wanted to see. Good,";
						mes "you're the one I've been";
						mes "waiting here for. Alright,";
						mes "just give me a second...";
						set lhz_boss,9;
						close;

					case 2:
						mes "[Gushaar]";
						mes "Huh?! Oh geez, I almost";
						mes "never make this mistake.";
						mes "I'm sorry, I thought you might";
						mes "have been someone else.";
						close;
				}

			case 3:
				mes "[Gushaar]";
				mes "Blue...? Huh.";
				mes "That shouldn't be";
				mes "the one you want.";
				mes "Well, if you're who";
				mes "I think you are... Are you?";
				close;
		}
	}
	else if(lhz_boss == 9)
	{
		mes "[Gushaar]";
		mes "Alright, first of all,";
		mes "you should know why the";
		mes "Rekenber Corporation is";
		mes "our sworn enemy. Did you";
		mes "know that it basically controls";
		mes "the Schwaltzvalt Republic?";
		next;
		mes "[Gushaar]";
		mes "They're so powerful, they";
		mes "manipulate everything in the";
		mes "economy, media and even the";
		mes "politics of this nation. There are other corporations, sure, but";
		mes "they're nothing in comparsion.";
		next;
		mes "[Gushaar]";
		mes "Rekenber Corporation...";
		mes "They've even got a hold on";
		mes "all the other companies, simply";
		mes "by bribing politicians to pass";
		mes "the bills they want passed.";
		mes "This isn't a real republic...";
		next;
		mes "[Gushaar]";
		mes "The ultimate goal of our";
		mes "group, ''Secret Wing,'' is to";
		mes "establish true independence";
		mes "in the Schwaltzvalt Republic";
		mes "by destroying Rekenber Corporation.";
		next;
		mes "[Gushaar]";
		mes "Fortunately, the new president";
		mes "of the Schwaltzvalt Republic,";
		mes "Mr. Weierstrass, is sympathetic";
		mes "to our cause. He is working with us to bring about a revolution and";
		mes "overthrow Rekenber Corporation.";
		next;
		mes "[Gushaar]";
		mes "Your mission will be to";
		mes "visit with the president and";
		mes "bring back any information";
		mes "he may have for us. Remember,";
		mes "because of his position, you can only see him during certain hours.";
		set lhz_boss,10;
		close;
	}
	else if(lhz_boss == 10)
	{
		mes "[Gushaar]";
		mes "I hope you understand";
		mes "''Secret Wing's'' ultimate";
		mes "goal now. In any case, you've";
		mes "got to meet our president,";
		mes "Karl Theodor Weierstrass.";
		next;
		mes "[Gushaar]";
		mes "It won't be easy to see";
		mes "such an important man,";
		mes "so show your Secret Wing";
		mes "Membership Card to his";
		mes "secretary and there should";
		mes "be very little hassle.";
		next;
		mes "[Gushaar]";
		mes "Because of his schedule,";
		mes "you'll only be allowed to see";
		mes "him from ^FF00008:00 PM to 11:00 PM^000000,";
		mes "and from ^FF000011:00 AM to 2:00PM PST^000000.Good luck on this mission, friend.";
		set lhz_boss,11;
		close;
	}
	else
	{
		mes "[Gushaar]";
		mes "Rekenber...";
		mes "I shall see your";
		mes "destruction if it's the";
		mes "very last thing I do!";
		close;
	}
}

yuno_pre,69,20,4	script	Secretary#1	862,{

	if(lhz_boss < 11)
	{
		mes "[Hes O'Neil]";
		mes "Good day, how";
		mes "may I help you?";
		next;
		switch( select( "Oh. I'm fine, thanks.","I want to meet the president~","W-who are you...?" ) )
		{
			case 1:
				mes "[Hes O'Neil]";
				mes "Since this is an";
				mes "important government";
				mes "building, please keep";
				mes "in mind that certain areas,";
				mes "monitored by guards, are";
				mes "off limits to visitors.";
				close;

			case 2:
				mes "[Hes O'Neil]";
				mes "President Weierstrass?";
				mes "Do you have an appointment";
				mes "to meet with him today?";
				next;
				switch( select( "Yes","No" ) )
				{
					case 1:
						mes "[Hes O'Neil]";
						mes "Alright, let me see.";
						mes "May I please have your";
						mes "name so that I can look";
						mes "it up in today's schedule?";
						next;
						switch( select( ""+strcharinfo(0)+"" ) )
						{
							case 1:
								break;
						}
						mes "[Hes O'Neil]";
						mes ""+strcharinfo(0)+"?";
						mes "I'm sorry, but I can't find";
						mes "your name on the list. You";
						mes "can only visit the president";
						mes "if you have an appointment.";
						mes "Thank you for your cooperation.";
						close;

					case 2:
						mes "[Hes O'Neil]";
						mes "I'm so sorry, but because";
						mes "the president is an incredibly" ;
						mes "busy man, he can only make";
						mes "time to see the people who";
						mes "have an appointment.";
						close;
				}

			case 3:
				mes "[Hes O'Neil]";
				mes "Hmm...?";
				mes "I'm the personal";
				mes "secretary to the";
				mes "president of the";
				mes "Schwartzvalt Republic,";
				mes "if that's what you mean.";
				close;
		}
	}
	else if(lhz_boss < 16)
	{
		mes "[Hes O'Neil]";
		mes "Good day, how";
		mes "may I help you?";
		next;
		switch( select( "Show Secret Wing Card.","I'm here to see the president.","Nothing." ) )
		{
			case 1:
				if(!countitem(7348))
				{
					mes "^3355FFWait a second...";
					mes "You don't seem to";
					mes "be carrying your";
					mes "''Secret Wing''";
					mes "Membership Card.^000000";
					close;
				}
				if(((gettime(3) > 10) && (gettime(3) < 15)) || ((gettime(3) > 19) && (gettime(3) <= 23)))
				{
					mes "^3355FFYou suavely flash";
					mes "your ''Secret Wing''";
					mes "Membership Card.^000000";
					next;
					mes "[Hes O'Neil]";
					mes "Oh... I see.";
					mes "The president has";
					mes "been expecting you.";
					mes "Please, right this way.";
					close2;
					warp "yuno_pre",113,53;
					end;
				}
				mes "[Hes O'Neil]";
				mes "Oh... I see.";
				mes "I'm sorry, but you've";
				mes "come too early for your";
				mes "appointment. Would you";
				mes "come back to see the";
				mes "president later?";
				close;

			case 2:
				mes "[Hes O'Neil]";
				mes "President Weierstrass?";
				mes "Do you have an appointment";
				mes "to meet with him today?";
				next;
				switch( select( "Yes","No" ) )
				{
					case 1:
						mes "[Hes O'Neil]";
						mes "Alright, let me see.";
						mes "May I please have your";
						mes "name so that I can look";
						mes "it up in today's schedule?";
						next;
						switch( select( ""+strcharinfo(0)+"" ) )
						{
							case 1:
								break;
						}
						mes "[Hes O'Neil]";
						mes ""+strcharinfo(0)+"?";
						mes "I'm sorry, but I can't find";
						mes "your name on the list. You";
						mes "can only visit the president";
						mes "if you have an appointment.";
						mes "Thank you for your cooperation.";
						close;

					case 2:
						mes "[Hes O'Neil]";
						mes "I'm so sorry, but because";
						mes "the president is an incredibly" ;
						mes "busy man, he can only make";
						mes "time to see the people who";
						mes "have an appointment.";
						close;
				}

			case 3:
				mes "[Hes O'Neil]";
				mes "Since this is an";
				mes "important government";
				mes "building, please keep";
				mes "in mind that certain areas,";
				mes "monitored by guards, are";
				mes "off limits to visitors.";
				close;
		}
	}
	else if(lhz_boss == 16)
	{
		if(!countitem(7342))
		{
			mes "[Hes O'Neil]";
			mes "Hm? I thought the";
			mes "president was supposed";
			mes "to give you some kind of";
			mes "file, but perhaps I was";
			mes "mistaken? Let me think...";
			close;
		}
		mes "[Hes O'Neil]";
		mes "Hello, may I be";
		mes "of any assistance?";
		next;
		switch( select( "I brought this." ) )
		{
			case 1:
				break;
		}
		mes "[Hes O'Neil]";
		mes "Ah, the file folder";
		mes "I needed. I'm so sorry";
		mes "to trouble you. Thank";
		mes "you so much for your help.";
		delitem 7342,1;
		set lhz_boss,17;
		close;
	}
	else if(lhz_boss < 21)
	{
		mes "[Hes O'Neil]";
		mes "I'm sorry, but the";
		mes "president is currently";
		mes "outside on business.";
		mes "Please come back to";
		mes "visit him another time.";
		close;
	}
	else if(lhz_boss < 43)
	{
		mes "[Hes O'Neil]";
		mes "Oh, the president";
		mes "is expecting you.";
		mes "Please, go right";
		if(Sex == 1) mes "on ahead, sir.";
		else mes "on ahead, ma'am.";
		close2;
		warp "yuno_pre",113,53;
		end;
	}
	else if(hg_tre == 56)
	{
		mes "[Hes O'Neil]";
	        mes "The President has given the order that ";
        	mes "nobody is allowed to enter this place.";
	        next;
        	mes "["+strcharinfo(0)+"]";
	        mes "However, you will change your mind after listening to my explanation.";
        	next;
	        mes "[Hes O'Neil]";
        	mes "...............";
	        mes "Is it something very important?";
        	next;
	        mes "["+strcharinfo(0)+"]";
        	mes "It is the most important thing.";
	        next;
        	mes "[Hes O'Neil]";
	        mes "Alright then, there you go.";
        	mes "(Whisper) I hope you will become his source of strength.";
	        close2;
        	warp "yuno_pre",113,53;
        	end;
        }
        else if(hg_tre > 56)
        {
		mes "[Hes O'Neil]";
		mes "The president said that you're welcome to visit him anytime.";
		close2;
        	warp "yuno_pre",113,53;
        	end;
        }
	else
	{
		mes "[Hes O'Neil]";
		mes "I'm sorry...";
		mes "It seems that the";
		mes "president would like";
		mes "to have some privacy now.";
		close;
	}
}

yuno_pre,95,71,5	script	Guard	852,{

	if(lhz_boss < 11)
	{
		mes "[Guard]";
		mes "You are in the";
		mes "President's House.";
		mes "Arms are prohibited";
		mes "without authorization in";
		mes "this government building.";
		mes "Thank you for your cooperation.";
		close2;
		nude;
		warp "yuno_pre",83,22;
		end;
	}
	else if(lhz_boss == 11 || lhz_boss == 12)
	{
		if(lhz_boss == 12) set @visit_pre,rand(1,10);
		if(@visit_pre == 7)
		{
			mes "[?????]";
			mes "I see.";
			mes "Then...";
			next;
			mes "[????????]";
			mes "Ummm....";
			mes "Understood...";
			mes "......";
			next;
			enablenpc "A Fine Gentleman";
			next;
			mes "[?????]";
			mes "..........";
			next;
			mes "[Guard]";
			mes "Ah, Mr. Keshnaar.";
			mes "Are you leaving?";
			next;
			mes "[Keshnaar]";
			mes "Yes, it's about time";
			mes "for me to depart. Ah,";
			mes "and may I ask who this";
			if(Sex == 1) mes "young gentleman here is?";
			else mes "lovely young lady is?";
			next;
			mes "[Guard]";
			mes "Mr. Keshnaar,";
			mes "I present "+strcharinfo(0)+".";
			mes ""+strcharinfo(0)+", allow me";
			mes "to introduce Eridan Keshnaar.";
			next;
			mes "[Keshnaar]";
			mes "A pleasure to meet you.";
			mes "Now, if you would excuse";
			mes "me, I have some business";
			mes "to attend to. Good day~";
			next;
			mes "[Guard]";
			mes "Take care,";
			mes "Mr. Keshnaar.";
			set lhz_boss,13;
			disablenpc "A Fine Gentleman";
			close;

		}
		mes "[Guard]";
		mes "Please wait a moment.";
		mes "Currently, the president";
		mes "is seeing another guest.";
		mes "Thank you for your patience.";
		if(lhz_boss == 11) set lhz_boss,12;
		close;
	}
	else if(lhz_boss == 13)
	{
		mes "[Guard]";
		mes "Now you may enter";
		mes "and speak with the";
		mes "president. Thank you";
		mes "for waiting all this time.";
		next;
		switch( select( "Thank you.","Who was that gentleman...?" ) )
		{
			case 1:
				if(Sex == 1) mes "A Mister "+strcharinfo(0)+"";
				else
				{
					if(getpartnerid()) mes "A Missis "+strcharinfo(0)+"";
					else mes "A Miss "+strcharinfo(0)+"";
				}
				mes "has arrived to see you now.";
				next;
				mes ".....";
				next;
				mes "[Mr. President]";
				mes "Oh, you're early!";
				mes "I'm sorry, but would you";
				mes "please wait one minute?";
				next;
				mes "[Guard]";
				mes "Yes, sir.";
				mes "My apologies, but would";
				mes "you please wait until the";
				mes "president is ready?";
				close;

			case 2:
				mes "[Guard]";
				mes "Oh, Mr. Keshnaar is the";
				mes "government negotiator from";
				mes "the Rekenber Corporation.";
				mes "He often visits the president";
				mes "to discuss various issues.";
				set lhz_boss,14;
				close;
		}
	}
	else
	{
		mes "[Guard]";
		mes "Greetings.";
		mes "You may enter to";
		mes "see the president.";
		close2;
		warp "yuno_pre",78,69;
		end;
	}
}

yuno_pre,96,69,2	script	A Fine Gentleman	754,{

OnInit:
	disablenpc "A Fine Gentleman";
	end;
}

yuno_pre,69,79,4	script	Mr. President	872,{

	if(checkweight(7342,1) != 1)
	{
		mes "- Wait a moment! -";
		mes "- Currently you're carrying -";
		mes "- too many items with you. -";
		mes "- Please enlighten your weight -";
		mes "- and try again. -";
		close;
	}
	cutin "lhz_karl.bmp",2;
	if(lhz_boss < 11)
	{
		mes "[Karl]";
		mes "How did you get in here?";
		mes "Please leave this place";
		mes "immediately! Security...!";
		close2;
		cutin "",255;
		warp "yuno_pre",83,22;
	}
	else if(lhz_boss == 14)
	{
		mes "[Karl]";
		mes "Ah, welcome~";
		mes "I understand that you";
		mes "must have had a lot of";
		mes "trouble coming here.";
		mes "It's a pleasure to";
		mes "finally meet you.";
		next;
		mes "[Karl]";
		mes "As I'm sure Ghalstein";
		mes "has told you, ''Secret Wing''";
		mes "was formed to overthrow the";
		mes "evil Rekenber Corporation.";
		mes "Now, I'm sure that you must";
		mes "have some questions for me...";
		next;
L_Mission:
		switch( select( "Secret Wing's Background","Rekenber's Purpose","Secret Wing's Goal","Details about my mission","I'm ready for my mission." ) )
		{
			case 1:
				mes "[Karl]";
				mes "Rekenber has been";
				mes "unopposed for a very long";
				mes "time. Our nation is unhappy";
				mes "with their rule, but since our";
				mes "country lacks solidarity, the";
				mes "people can do nothing.";
				next;
				mes "[Karl]";
				mes "But one day, I was contacted";
				mes "by some people who claimed to";
				mes "share my sentiments against";
				mes "the Rekenber Corporation.";
				mes "Later, I learned that they were";
				mes "from the Kafra Corporation.";
				next;
				mes "[Karl]";
				mes "Apparently, they were";
				mes "facing some aggressive";
				mes "competition from Cool";
				mes "Event Corp, which is";
				mes "actually backed by the";
				mes "Rekenber Corporation.";
				next;
				mes "[Karl]";
				mes "We decided to pool our";
				mes "resources to deal with what";
				mes "we perceived as a common";
				mes "enemy. Before long, we gathered";
				mes "more devotees to our cause and";
				mes "formed the ''Secret Wing.''";
				next;
				mes "[Karl]";
				mes "It may be helpful for";
				mes "you to know that our";
				mes "direct contact to the";
				mes "Kafra Corporation is the";
				mes "^FF00003rd Security Team^000000. Oh, did";
				mes "you have any other questions?";
				next;
				goto L_Mission;

			case 2:
				mes "[Karl]";
				mes "It's true that companies";
				mes "exist to create money, but";
				mes "the Rekenber Corporation";
				mes "is much more nefarious.";
				mes "They actually want to dominate the entire Rune-Midgard continent.";
				next;
				mes "[Karl]";
				mes "In fact, the chairman of";
				mes "that company is shrouded";
				mes "in mystery. Although I'm";
				mes "the president, I go through";
				mes "many difficulties just to";
				mes "send a message to him.";
				next;
				mes "[Karl]";
				mes "It's disheartening,";
				mes "but we really have no";
				mes "idea what their true goals";
				mes "and plans might be. Now, did";
				mes "you have any other questions?";
				next;
				goto L_Mission;

			case 3:
				mes "[Karl]";
				mes "''Secret Wing's'' only";
				mes "goal is to destroy the";
				mes "Rekenber Corporation in";
				mes "order to break the Schwaltzvalt Republic free from its oppression.";
				next;
				mes "[Karl]";
				mes "Of course, we realize";
				mes "that it will take time and";
				mes "a lot of sacrifice to make";
				mes "this a reality. Now, do you";
				mes "have anything else to ask?";
				next;
				goto L_Mission;

			case 4:
				mes "[Karl]";
				mes "Ah, your next mission.";
				mes "I'm ready to give you";
				mes "some of the details if";
				mes "you no longer have any";
				mes "questions to ask. Let me";
				mes "know when you are ready.";
				next;
				goto L_Mission;

			case 5:
				mes "[Karl]";
				mes "Very well, then.";
				mes "Your mission will not";
				mes "be too difficult, but it does";
				mes "have great urgency so you";
				mes "must accomplish it as soon";
				mes "as you can. Understood?";
				next;
				switch( select( "Wait, I have one more question!","Yes sir, Mr. President." ) )
				{
					case 1:
						mes "[Karl]";
						mes "Hm? I thought you";
						mes "didn't have any more";
						mes "questions. However, I still";
						mes "have the luxury to give you";
						mes "any answers that I can provide.";
						next;
						goto L_Mission;

					case 2:
						mes "[Karl]";
						mes "I'm glad to hear that.";
						mes "Alright, give me a second";
						mes "to search for this file before";
						mes "I explain the mission.";
						set lhz_boss,15;
						close2;
						cutin "",255;
						end;
				}
		}
	}
	else if(lhz_boss == 15)
	{
		mes "[Karl]";
		mes "Now, you must first visit";
		mes "the Kafra Headquarters in";
		mes "Al De Baran and meet someone";
		mes "named ^FF0000Benith^000000. She will tell you";
		mes "all about your next mission.";
		next;
		mes "[Karl]";
		mes "Be careful and do not";
		mes "freely mention anything";
		mes "about ''Secret Wing'' or";
		mes "your cooperation with us as";
		mes "it may jeopardize our goals.";
		mes "Hurry, time is of the essence.";
		next;
		mes "[Karl]";
		mes "Ah, before I forget,";
		mes "please bring this file";
		mes "folder to ^FF0000Ms. Hes O'Neil^000000";
		mes "for me before you leave.";
		mes "Thank you very much.";
		set lhz_boss,16;
		getitem 7342,1;
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss < 21)
	{
		mes "[Karl]";
		mes "Hurry and complete";
		mes "the mission given to";
		mes "you by Benith, who is";
		mes "in the Kafra Headquarters";
		mes "in Al De Baran. It is a very";
		mes "urgent, high priority task...";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 21)
	{
		if(!countitem(7343))
		{
			mes "[Karl]";
			mes "Hm? I was expecting";
			mes "for you to bring me";
			mes "back an important file.";
			mes "Please hurry, our entire";
			mes "organization is at stake!";
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "Ah, you're here.";
		mes "Good work, I hear that";
		mes "the mission was a success.";
		mes "An official success anyway.";
		mes "...............................";
		next;
		mes "[Karl]";
		mes "Poor, dear sweet";
		mes "Jargeah. Why him?";
		mes "Must fate be so cruel";
		mes "and harsh? I still can't";
		mes "believe he's gone. Just";
		mes "last week, we were...";
		next;
		mes "[Karl]";
		mes "I'm sorry. You didn't";
		mes "know him that well, but";
		mes "all those who did know";
		mes "him, loved him. And I can";
		mes "say that with pride. L-let";
		mes "me check the files a minute...";
		delitem 7343,1;
		set lhz_boss,22;
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 22)
	{
		set @read_pre,rand(1,5);
		if(@read_pre == 3)
		{
			mes "[Karl]";
			mes "Hm. After completely";
			mes "reviewing this file, I've";
			mes "found that it offers some";
			mes "great leads, but it's still not";
			mes "enough hard evidence to";
			mes "really hurt Rekenber.";
			next;
			mes "[Karl]";
			mes "However, according to";
			mes "this, there's a researcher";
			mes "from Rekenber named";
			mes "Shinokas who vanished all";
			mes "of a sudden. Apparently, he";
			mes "knew some kind of secret.";
			next;
			mes "[Karl]";
			mes "Luckily, my men have";
			mes "reported sightings of";
			mes "Shinokas somewhere in";
			mes "Einbroch. He's certainly";
			mes "out there. But what does";
			mes "he have to hide?";
			next;
			mes "[Karl]";
			mes "We must learn his";
			mes "secret if we hope to";
			mes "do any lasting damage to";
			mes "the Rekenber Corporation.";
			mes "Your next mission is to";
			mes "find Shinokas. Good luck.";
			next;
			mes "[Karl]";
			mes "And please hurry.";
			mes "I don't want our enemies";
			mes "to discover Shinokas before";
			mes "we can get him to talk.";
			if(Shinokas_Quest == 10) set lhz_boss,24;
			else set lhz_boss,23;
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "I'm sorry, but it's";
		mes "taking me a long time";
		mes "to analyze the information";
		mes "in this file. A-and Jargeah";
		mes "sacrificed himself to get";
		mes "it for us. ^333333*Sigh*^000000 Jargeah...";
		next;
		mes "[Karl]";
		mes "Why don't you relax";
		mes "while I peruse this";
		mes "file? I should be done";
		mes "with this soon, hopefully...";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 23)
	{
		if(Shinokas_Quest == 10)
		{
			mes "[Karl]";
			mes "Ymir's Heart Pieces?";
			mes "Is that what they're";
			mes "trying to collect?";
			mes "What are they going";
			mes "to do with something";
			mes "so incredibly dangerous?!";
			next;
			mes "[Karl]";
			mes "Huh. This new information";
			mes "raises some new questions.";
			mes "Fortunately, we have a new";
			mes "lead from the spy who got";
			mes "us the info on Shinokas.";
			next;
			mes "[Karl]";
			mes "We've recently learned that";
			mes "Shinokas managed to access";
			mes "the Regenschirm  Secret Archive, a lab affiliated with Rekenber.";
			mes "That's how Shinokas was able";
			mes "to learn so much about them.";
			next;
			mes "[Karl]";
			mes "It will be difficult";
			mes "and very dangerous to";
			mes "access this archive, so";
			mes "I want you to meet with";
			mes "someone from the Kafra";
			mes "Corporation near Lighthalzen.";
			next;
			mes "[Karl]";
			mes "And don't worry...";
			mes "She'll know exactly";
			mes "who you are and";
			mes "how to help you.";
			set lhz_boss,26;
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "We don't know how";
		mes "helpful Shinokas's";
		mes "information may be for";
		mes "us, but we must learn";
		mes "anything we can about";
		mes "the Rekenber Corporation.";
		next;
		mes "[Karl]";
		mes "There is so much we";
		mes "don't know about them.";
		mes "Their motives, their methods,";
		mes "almost all of the important";
		mes "details are still in the dark.";
		next;
		mes "[Karl]";
		mes "By all means, you";
		mes "must find Shinokas and";
		mes "see what you can learn!";
		mes "Your efforts will not go";
		mes "unrecognized, "+strcharinfo(0)+".";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 24)
	{
		mes "[Karl]";
		mes "Hm? What's wrong?";
		mes "Now that I think about";
		mes "it, you reacted as if you";
		mes "recognized his name back";
		mes "when I mentioned Shinokas.";
		next;
		switch( select( "Oh, no. Not really.","Actually, Shinokas is..." ) )
		{
			case 1:
				mes "[Karl]";
				mes "Then it must be";
				mes "my imagination.";
				mes "Okay then, go and";
				mes "find Shinokas, he";
				mes "may be in grave";
				mes "danger as we speak!";
				close2;
				cutin "",255;
				end;

			case 2:
				mes "[Karl]";
				mes "Oh...";
				mes "You've already met";
				mes "Shinokas, did you?";
				mes "You witnessed his ";
				mes "death?! This is a very";
				mes "strange coincidence.";
				next;
				mes "[Karl]";
				mes "I see, there must be";
				mes "no need to investigate";
				mes "Shinokas now. And you";
				mes "did learn the secret for";
				mes "which he was hunted...";
				next;
				mes "[Guard]";
				mes "Mr. President,";
				mes "Ms. Hes O' Neil has an";
				mes "urgent message for you.";
				next;
				mes "[Karl]";
				mes "Hmm...";
				mes "Then please,";
				mes "let her in.";
				next;
				enablenpc "Secretary#2";
				next;
				mes "[Hes O'Neil]";
				mes "Sir, I'm sorry";
				mes "for interrupting";
				mes "you, but there's";
				mes "something I need to";
				mes "show you immediately!";
				next;
				mes "[Karl]";
				mes "Alright, let's";
				mes "have it. Let me";
				mes "see those new files.";
				mes "Oh, these are--! Thank";
				mes "you, Ms. O' Neil, you";
				mes "may leave now.";
				next;
				mes "[Hes O'Neil]";
				mes "Thank you sir.";
				mes "Once again, let me";
				mes "apologize for disturbing";
				mes "your private conference.";
				next;
				disablenpc "Secretary#2";
				next;
				mes "[Karl]";
				mes "Alright. Please let me";
				mes "review these documents";
				mes "to see if there are any";
				mes "new developments in the";
				mes "investigation involving";
				mes "Shinokas and his secret...";
				set lhz_boss,25;
				close2;
				cutin "",255;
				end;
		}
	}
	else if(lhz_boss == 25)
	{
		set @talk_pre,rand(1,10);
		if(@talk_pre == 8)
		{
			mes "[Karl]";
			mes "Alright, I just";
			mes "completed reading";
			mes "all of these new reports";
			mes "from our field agents.";
			mes "Thank you for waiting.";
			next;
			mes "[Karl]";
			mes "We've recently learned that";
			mes "Shinokas managed to access";
			mes "the Regenschirm  Secret Archive,a lab affiliated with Rekenber.";
			mes "That's how Shinokas was able";
			mes "to learn so much about them.";
			next;
			mes "[Karl]";
			mes "It will be difficult";
			mes "and very dangerous to";
			mes "access this archive, so";
			mes "I want you to meet with";
			mes "someone from the Kafra";
			mes "Corporation near Lighthalzen.";
			next;
			mes "[Karl]";
			mes "If you keep looking around";
			mes "the ^3355FFfields just outside of";
			mes "Lighthalzen^000000, she'll certainly";
			mes "find. I'm sorry that I can't";
			mes "tell you more, but we've got";
			mes "to protect our security...";
			mes "[Karl]";
			mes "And don't worry...";
			mes "She'll know exactly";
			mes "who you are and";
			mes "how to help you.";
			set lhz_boss,26;
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "I apologize, but it's";
		mes "taking me a long time";
		mes "to go through all of the";
		mes "reports in these files.";
		mes "Please give me a little more";
		mes "time to make sense of them.";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss < 37)
	{
		mes "[Karl]";
		mes "I hope you continue";
		mes "to keep up the good";
		mes "work, not only for the";
		mes "sake of the Schwaltzvalt";
		mes "Republic, but for peace";
		mes "on all of Rune-Midgard.";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 37)
	{
		if(!countitem(7344))
		{
			mes "[Karl]";
			mes "Did you find any";
			mes "of that evidence in";
			mes "the Secret Archive yet?";
			mes "Hurry! The movements in";
			mes "Rekenber Corporation are";
			mes "making me feel really uneasy.";
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "Ah, you're here.";
		mes "I've already received a";
		mes "message from Esuna";
		mes "about your success.";
		mes "If you would, please";
		mes "let me read the file...";
		next;
		mes "[Karl]";
		mes "Ah, now everything is";
		mes "clearer. Shinokas and his";
		mes "friends were killed over";
		mes "that piece of Ymir's Heart.";
		mes "That's what the Rekenber";
		mes "Corporation ultimately wants.";
		next;
		mes "[Karl]";
		mes "But this raises some";
		mes "new questions. What";
		mes "are they planning to";
		mes "do with Ymir's Heart?";
		mes "It must be more powerful";
		mes "than we had thought...";
		next;
		mes "[Karl]";
		mes "We'll need even more";
		mes "information. For now,";
		mes "please go back to Esuna.";
		mes "It seems that she just";
		mes "received some critically";
		mes "important intel to give you.";
		delitem 7344,1;
		set lhz_boss,38;
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 38)
	{
		mes "[Karl]";
		mes "Please hurry and meet";
		mes "Esuna just outside of";
		mes "Lighthalzen. Perhaps I am";
		mes "getting paranoid, but I keep";
		mes "getting the feeling that";
		mes "Rekenber is on to us...";
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 39)
	{
		if(!countitem(7343))
		{
			mes "[Karl]";
			mes "You don't have the";
			mes "file? Retrieve it for";
			mes "me as soon as you can.";
			mes "It's imperative that I read";
			mes "what Esuna has to report!";
			close2;
			cutin "",255;
			end;
		}
		mes "[Karl]";
		mes "Ah, good to see you";
		mes "again. I hear you have";
		mes "some important news for";
		mes "me, something of the utmost";
		mes "urgency. But I fear the worst.";
		next;
		switch( select( "Give the file from Esuna." ) )
		{
			case 1:
				break;
		}
		mes "[Karl]";
		mes "What...?";
		mes "I can't believe this!";
		mes "How can our security";
		mes "be breached like this?!";
		mes "Only someone from";
		mes "really deep inside could...";
		next;
		mes "[Karl]";
		mes "Please...";
		mes "Would you go and";
		mes "speak to Esuna one";
		mes "more time? I need to";
		mes "know more about how";
		mes "all of this happened...";
		delitem 7343,1;
		set lhz_boss,40;
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 41)
	{
		mes "[Karl]";
		mes "No...";
		mes "I can't...";
		mes "Kurelle? We've";
		mes "worked together,";
		mes "trusted each other";
		mes "for years. No, it's not....";
		next;
		mes "[Karl]";
		mes "If it's true, then";
		mes "that means I've been";
		mes "playing into the enemy's";
		mes "hands this whole time.";
		mes "I've... I've got to know";
		mes "and ask Kurelle myself.";
		next;
		mes "[Karl]";
		mes "O'Neil!";
		mes "Bring Kurelle in";
		mes "here, right now!";
		next;
		mes "[Hes O'Neil]";
		mes "...Yes, sir.";
		mes "Right away.";
		next;
		set lhz_boss,42;
		close2;
		cutin "",255;
		end;
	}
	else if(lhz_boss == 42)
	{
		mes "[Guard]";
		mes "Advisor Kurelle";
		mes "is here now.";
		next;
		mes "[Karl]";
		mes "Let him in!";
		mes "...................";
		next;
		mes "[Guard]";
		mes "...............?";
		mes "Yes, sir...";
		next;
		enablenpc "A Neat Gentleman";
		next;
		mes "[Kurelle]";
		mes "Hello, Mr. President.";
		mes "What exactly did you";
		mes "need from me today?";
		next;
		mes "[Karl]";
		mes "...........";
		mes ".......";
		mes "...";
		next;
		mes "[Kurelle]";
		mes "???";
		mes ".......";
		next;
		mes "[Karl]";
		mes "Did you...";
		mes "Why did you betray us?!";
		mes "After all this time, why now?";
		next;
		mes "[Kurelle]";
		mes "...";
		mes "......";
		mes "So you know.";
		mes "Well, you're smarter";
		mes "than I gave you credit for.";
		next;
		mes "[Kurelle]";
		mes "Ha ha ha~";
		mes "Right, it was me.";
		mes "Your right hand man.";
		mes "I reported everything";
		mes "you were doing to the";
		mes "Rekenber Corporation.";
		next;
		mes "[Karl]";
		mes "But why...?";
		mes "I thought we were";
		mes "working together for";
		mes "the greater good, to";
		mes "do the right thing?";
		next;
		mes "[Kurelle]";
		mes "Forget that! I'm sick";
		mes "of being second place";
		mes "to you. All our lives, you've";
		mes "always been on top. School,";
		mes "athletics, politics. Well, here's my chance to finally beat you!";
		next;
		mes "[Karl]";
		mes "I can't believe this. All";
		mes "those years of friendship";
		mes "were all a lie? We even";
		mes "joined Secret Wing together.";
		mes "This whole time, you were";
		mes "harboring a silly grudge...";
		next;
		mes "[Kurelle]";
		mes "Shut up! It's not a";
		mes "silly grudge! ...You there.";
		mes "Adventurer. Can't you see";
		mes "this man is finished?! But";
		mes "it's not too late. Join us.";
		mes "Rekenber could use you.";
		next;
		mes "[Kurelle]";
		mes "Now that I've helped";
		mes "the Rekenber Corporation,";
		mes "I'll get their support in the";
		mes "next presidential election.";
		mes "I'll beat you for sure, Karl!";
		mes "Bwahahahahahaahahahhaah~!";
		next;
		disablenpc "A Neat Gentleman";
		mes ".......";
		mes ".........";
		mes "...........";
		next;
		mes "[Karl]";
		mes "It's all over for";
		mes "now. This isn't good";
		mes "at all. You're finished";
		mes "here too. Go and talk to";
		mes "^3355FFGhalstein^000000 again. It's time";
		mes "we let you loose, adventurer.";
		set lhz_boss,43;
		close2;
		cutin "",255;
		end;
	}
	else if(hg_tre == 56)
	{
		if(!countitem(7342))
		{
			mes "["+strcharinfo(0)+"]";
			mes "Ah, where did I put the record?";
			close;
		}
		mes "[Karl]";
		mes "It's you.....!";
		mes "It's really been a long time.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "So, are you still having the idea to go against Rekenber?";
		next;
		mes "[Karl]";
		mes "...................";
		next;
		mes "[Karl]";
		mes "I'm not sure.";
		mes "The Secret Wing has been disbanded and I am just another puppet they have, just like the previous presidents.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Not long ago, the scientists of Regenschrim have stolen the research record and destroyed the machines that they used for research purposes.";
		next;
		emotion e_gasp,0;
		mes "[Karl]";
		mes "...!";
		mes "Did you do that? ";
		mes "I still fail to move on after the incident of my friends' betrayal and the disband of the Secret Wing...";
		mes "You are really a great friend.";
		next;
		mes "[Karl]";
		mes "Didn't you speak about the research record just now?";
		mes "Oh! Can you give me the record?";
		mes "It will be a big trouble to them.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "If you insist to go against them, I will give you the record.";
		next;
		mes "[Karl]";
		mes "I am the president of this country.";
		mes "I have failed before but I won't stop trying when there is still an opportunity.";
		next;
		mes "[Karl]";
		mes "You remind me of the day I made up my mind to rebuild this country.";
		mes "How could I forgot such important responsibilities of mine.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "That's great.";
		mes "Here's the record.";
		mes "I hope you will make good use of it. ";
		next;
		mes "[Karl]";
		mes "Let's see...";
		next;
		mes "[Karl]";
		mes "Oh! That's some interesting information.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I have another good news. The Secret Wing has not given up yet. They are still working on the project and I hope that you won't be giving up on it too.";
		next;
		mes "[Karl]";
		mes ".....I feel so sorry for what I did.";
		next;
		mes "[Karl]";
		mes "Thank you for bringing this great gift. I will stay strong and work hard to achieve my target.";
		next;
		mes "[Karl]";
		mes "I will recruit the new batch of members and use them to let the world know about what the corporation had really done.";
		next;
		mes "[Karl]";
		mes "Thank you so much. ";
		mes "You can count on me to right what was wrong.";
		set hg_tre,57;
		delitem 7342,1;
		getexp 2000000,0;
		getitem 617,1;
		close2;
		cutin "",255;
		end;
	}
	else if(hg_tre == 57)
	{
		mes "[Karl]";
		mes "I am trying to recruit capable people who can help me to bring down Rekenber Corporation.";
		mes "Thanks to you, I have enough information as a good beginning to nail them now down.";
		next;
		mes "[Karl]";
		mes "I have had my men to gather some information and learned that Regenschrim had stopped operating now.";
		mes "You have done well for the Schwaltzvalt Republic.";
		close2;
		cutin "",255;
		end;
	}
	else
	{
		mes "[Karl]";
		mes ".........";
		mes "............";
		close2;
		cutin "",255;
		end;
	}		
}

yuno_pre,77,68,0	script	Secretary#2	862,{

OnInit:
	disablenpc "Secretary#2";
	end;
}

yuno_pre,75,73,0	script	A Neat Gentleman	109,{

OnInit:
	disablenpc "A Neat Gentleman";
	end;
}

yuno_pre,117,60,0	script	Eavesdrop	-1,10,5,{

OnTouch:
	if(lhz_boss == 16)
	{
		mes "^3355FFWhat the...?";
		mes "You can hear";
		mes "whispers coming";
		mes "from the window.^000000";
		next;
		mes "[????]";
		mes "^333333That's expected...";
		mes "But... Why did...";
		mes "... the president...^000000";
		next;
		mes "[?????]";
		mes "^666666.......So...................";
		mes "...their investigation...";
		mes "............of course.........";
		mes "...just bait...................^000000";
		next;
		mes "[????]";
		mes "^333333...Next election.....";
		mes "..............................";
		mes "....you'll be................";
		mes "...............Can't stop us.^000000";
		next;
		mes "^3355FFThe whispers grow";
		mes "lower and lower until";
		mes "you can no longer hear";
		mes "anything. One of those";
		mes "voices seemed so familiar...^000000";
		close;
	}
}

aldebaran,58,225,4	script	Kafra Employee#l1	116,{

	if(lhz_boss != 17)
	{
		mes "[Kafra Employee]";
		mes "Welcome to the";
		mes "Kafra Headquarters.";
		mes "Here in the heart of";
		mes "Kafra's operations, you";
		mes "can be provided with special";
		mes "services offered nowhere else!";
		next;
		mes "[Kafra Employee]";
		mes "If you need anything,";
		mes "please inquire the Kafra";
		mes "Employees inside the building.";
		mes "Thank you and have a good day~";
		close;
	}
	mes "[Kafra Employee]";
	mes "Good day~";
	mes "The Kafra Corporation is";
	mes "always working to ensure";
	mes "our customers' satisfaction.";
	mes "How may I help you today?";
	next;
	switch( select( "I have a question.","I'm fine, thanks." ) )
	{
		case 1:
			mes "[Kafra Employee]";
			mes "Sure, I'll answer your";
			mes "question to the best of";
			mes "my ability. However, I may";
			mes "need to reference you to";
			mes "another employee for";
			mes "specialized information.";
			next;
			switch( select( "Do you know where I can find Benith?" ) )
			{
				case 1:
					break;
			}
			mes "[Kafra Employee]";
			mes "Oh, Benith? Sure, you";
			mes "can find her here inside";
			mes "Kafra Headquarters to the";
			mes "right somewhere. She wears";
			mes "a special uniform, so you";
			mes "can spot her easily.";
			next;
			mes "[Kafra Employee]";
			mes "Okay then,";
			mes "have a good day!";
			mes "Always remember";
			mes "that the Kafra Service";
			mes "will be on your side~";
			close;

		case 2:
			mes "[Kafra Employee]";
			mes "Feel free to ask any";
			mes "one of our conveniently";
			mes "located employees if you";
			mes "ever have need of Kafra's";
			mes "special services. Thank";
			mes "you and have a nice day~";
			close;
	}
}

aldeba_in,155,240,5	script	Kafra Employee#l2	859,{

	if(checkweight(7343,1) != 1)
	{
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if(lhz_boss < 17)
	{
		mes "[Kafra Employee]";
		mes "Welcome to";
		mes "Kafra Headquarters.";
		mes "What's new with Kafra?";
		mes "Glad you asked. Right now,";
		mes "we're developing a brand new";
		mes "program with Cool Event Corp.";
		next;
		mes "[Kafra Employee]";
		mes "This new program will";
		mes "provide a direct teleport";
		mes "service to dungeons for";
		mes "the convenience of our";
		mes "valued customers. Is";
		mes "that not... exciting?";
		next;
		mes "[Kafra Employee]";
		mes "Due to technical issues,";
		mes "Kafra Corp and Cool Event";
		mes "Corp cannot provide teleport";
		mes "services to the same dungeon,";
		mes "so one common teleport service";
		mes "provider will be selected.";
		next;
		mes "[Kafra Employee]";
		mes "Therefore, elections will";
		mes "be held to determine which";
		mes "company will provide this";
		mes "Dungeon Teleport Service.";
		mes "Please check the eligibility";
		mes "requirements before voting.";
		close;
	}
	else if(lhz_boss == 17)
	{
		mes "[Kafra Employee]";
		mes "Welcome to";
		mes "Kafra Headquarters.";
		mes "What's new with Kafra?";
		mes "Glad you asked. Right now,";
		mes "we're developing a brand new";
		mes "program with Cool Event Corp.";
		next;
		mes "[Kafra Employee]";
		mes "This new program will";
		mes "provide a direct teleport";
		mes "service to dungeons for";
		mes "the convenience of our";
		mes "valued customers. Is";
		mes "that not... exciting?";
		next;
		mes "[Kafra Employee]";
		mes "Due to technical issues,";
		mes "Kafra Corp and Cool Event";
		mes "Corp cannot provide teleport";
		mes "services to the same dungeon,";
		mes "so one common teleport service";
		mes "provider will be selected.";
		next;
		mes "[Kafra Employee]";
		mes "We'd like to inform";
		mes "you that the customers";
		mes "will decide the teleport";
		mes "service provider through";
		mes "an election. Your vote will";
		mes "be much appreciated.";
		next;
		mes "[Kafra Employee]";
		mes "Remember to take part";
		mes "in the polls that will be";
		mes "taking place in the cities";
		mes "of Prontera and Juno.";
		mes "Happy voting.";
		next;
		switch( select( "Okay.","I can't wait!" ) )
		{
			case 1:
				mes "[Kafra Employee]";
				mes "Uh oh...";
				mes "Did you have a question?";
				mes "In all honesty, I don't know";
				mes "very much about the services";
				mes "Kafra offers. My work is...";
				mes "I'm in a different department.";
				next;
				switch( select( "Oh, that's okay then.","Are you Benith..?" ) )
				{
					case 1:
						mes "[Kafra Employee]";
						mes "*Whew!*";
						mes "Oh good. Well, if you";
						mes "do have any questions";
						mes "about the Kafra Services,";
						mes "please ask one of the regular";
						mes "Kafra Employees. Thank you.";
						close;

					case 2:
						mes "[Benith]";
						mes "Yes, that's me.";
						mes "Is there anything";
						mes "that I can do for you?";
						next;
						switch( select( "No, not really.","Show Membership Card." ) )
						{
							case 1:
								mes "[Benith]";
								mes "Really?";
								mes "Okay, then.";
								close;

							case 2:
								if(!countitem(7348))
								{
									mes "^3355FFWait...";
									mes "You can't show";
									mes "your ''Secret Wing''";
									mes "Membership Card";
									mes "if you don't have it!^000000";
									close;
								}
								mes "[Benith]";
								mes "Oh, I've been waiting";
								mes "for you. Finally, I can";
								mes "drop this promotional";
								mes "pretense and get down";
								mes "to business and tell you";
								mes "about your mission.";
								next;
								mes "[Benith]";
								mes "As an experienced";
								mes "adventurer, your specialty";
								mes "is in retrieving items and";
								mes "fighting against monsters.";
								mes "We have a rescue mission";
								mes "that suits your expertise.";
								next;
								mes "[Benith]";
								mes "One of our special";
								mes "agents got into an";
								mes "accident and is stuck";
								mes "in ^FF0000Grim Reaper's Valley^000000,";
								mes "located somewhere between";
								mes "Einbroch and Lighthalzen.";
								next;
								mes "[Benith]";
								mes "Our agent, Jargeah,";
								mes "is reported to be hiding";
								mes "near a broken bridge there.";
								mes "All of our other agents are";
								mes "assigned on other missions,";
								mes "so you're all he has right now.";
								next;
								mes "[Benith]";
								mes "He's seriously wounded,";
								mes "so please hurry before";
								mes "the enemy can get to him...";
								set lhz_boss,18;
								close;
						}
				}

			case 2:
				mes "[Kafra Employee]";
				mes "That makes one of u--";
				mes "I mean, your participation";
				mes "is very much appreciated.";
				mes "Remember that Kafra is";
				mes "always on your side.";
				close;
		}
	}
	else if(lhz_boss == 18)
	{
		mes "[Benith]";
		mes "Please hurry and save";
		mes "Jargeah. If the enemy";
		mes "gets to him before we";
		mes "do, all his efforts, as well";
		mes "as his life, may be forfeit.";
		next;
		mes "[Benith]";
		mes "You should be able to";
		mes "find him near a broken";
		mes "bridge in Grim Reaper's";
		mes "Valley, which is located";
		mes "somewhere between";
		mes "Einbroch and Lighthalzen.";
		close;
	}
	else if(lhz_boss == 19)
	{
		if(!countitem(7343))
		{
			mes "[Benith]";
			mes "Please hurry!";
			mes "I don't want the enemy";
			mes "to find Jargeah before";
			mes "we do! His life and the";
			mes "Secret Wing are at stake!";
			close;
		}
		mes "[Benith]";
		mes "Great, you're back,";
		mes "and you even have the";
		mes "information that Jargeah";
		mes "managed to obtain. But...";
		mes "Where's Jargeah? Is he...?";
		next;
		switch( select( "He's in a better place." ) )
		{
			case 1:
				break;
		}
		mes "[Benith]";
		mes "...";
		mes "......";
		next;
		mes "[Benith]";
		mes "What...?! Noooo!";
		mes "Comrade Jargeah!";
		mes "I swear to you your";
		mes "death won't be in vain!";
		mes "Why did another good man";
		mes "have to die? Answer me!!";
		next;
		mes "[Benith]";
		mes "I can't... No. We must";
		mes "first honor Jargeah's noble";
		mes "sacrifice before we can allow ourselves the luxury of mourning";
		mes "our loss. Let me read these files first before you deliver them...";
		delitem 7343,1;
		set lhz_boss,20;
		close;
	}
	else if(lhz_boss == 20)
	{
		mes "[Benith]";
		mes "Alright. Please take";
		mes "this file to ^FF0000him^000000 now.";
		mes "I believe you know";
		mes "whom I am talking about.";
		mes "The Secret Wing is counting";
		mes "on you, brave adventurer.";
		set lhz_boss,21;
		getitem 7343,1;
		next;
		mes "[Benith]";
		mes "I swear by my father's";
		mes "grave that the tears I shed";
		mes "for Jargeah will only be";
		mes "matched by the blood I will";
		mes "spill in holy retribution.";
		mes "Jargeah, watch over me!";
		close;
	}
	else
	{
		mes "[Benith]";
		mes "W-welcome to the";
		mes "Kafra Headquarters.";
		mes "What's new with Kafra?";
		mes "^333333Glad... You... Asked...^000000";
		close;
	}
}

lhz_fild02,228,214,0	script	Wounded Man	849,{

	if(checkweight(7343,1) != 1)
	{
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if(lhz_boss < 18)
	{
		mes "[?????]";
		mes "^333333*Cough cough*^000000";
		mes "Can't hold out...";
		mes "Much longer. They...";
		mes "They better send";
		mes "someone soon...";
		next;
		mes "^3355FFIt's a wounded man...!^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "H-hey...!";
		mes "Are you hurt?";
		mes "Do you need any he--";
		next;
		mes "[?????]";
		mes "N-no..!";
		mes "Get away, do-gooder!";
		mes "Don't attract attention,";
		mes "they're gonna find me!";
		mes "Don't worry, don't ask,";
		mes "j-just get the hell away!";
		close;
	}
	else if(lhz_boss == 18)
	{
		mes "[?????]";
		mes "^333333*Cough cough*^000000";
		mes "Can't hold out...";
		mes "Much longer. They...";
		mes "They better send";
		mes "someone soon...";
		next;
		switch( select( "Jargeah?","Ignore him." ) )
		{
			case 1:
				mes "[Jargeah]";
				mes "^333333*Cough Gasp*^000000";
				mes "H-how do you know my...";
				mes "Never mind that. Who...";
				mes "What... What organization";
				mes "are you working for...?";
				next;
				input @jargeah$;
				if((@jargeah$ == "Kafra Corporation") || (@jargeah$ == "Secret Wing"))
				{
					mes "[Jargeah]";
					mes "Th-thank goodness!";
					mes "You finally came for me.";
					mes "If you came a little later,";
					mes "I'd be a goner. H-here,";
					mes "t-take this with you...";
					set lhz_boss,19;
					getitem 7343,1;
					next;
					mes "[Jargeah]";
					mes "Oh... Oh no.";
					mes "*Cough cough*";
					mes "I think... It might";
					mes "T-tell Cilantro that...";
					mes "Tell her I still lov-- ^333333*Huk*^000000";
					close2;
					disablenpc "Wounded Man";
					end;
				}
				mes "[Jargeah]";
				mes "No... No, you're";
				mes "not the one who's";
				mes "supposed to come";
				mes "for m-me... ^333333*Huk*^000000";
				next;
				mes "^3355FFThis isn't good.";
				mes "Jargeah just passed";
				mes "out in a very ugly way.";
				close;
			
			case 2:
				mes "^3355FFAnd so you left the";
				mes "wounded man alone. Not";
				mes "exactly the best moral choice.^000000";
				close;
		}
	}
OnInit:
	disablenpc "Wounded Man";
	end;
}

lhz_fild02,224,220,0	script	Wounded Man Switch	-1,3,3,{

OnTouch:
	if(lhz_boss == 18)
	{
		mes "[?????]";
		mes "^333333*Cough cough*^000000";
		mes "Everything's getting";
		mes "darker. So c-cold...";
		enablenpc "Wounded Man";
		close;
	}
}

lhz_fild01,76,214,0	script	Esuna Trigger	-1,5,5,{

OnTouch:
	if((lhz_boss == 26) || (lhz_boss == 36) || (lhz_boss == 38) || (lhz_boss == 40))
	{
		mes "[????]";
		mes "Here,";
		mes "Come this way.";
		close2;
		enablenpc "Mysterious Woman";
		warp "lhz_fild01",64,223;
		end;
	}
}

lhz_fild01,66,219,4	script	Mysterious Woman	859,{

	if(lhz_boss == 26)
	{
		if(checkweight(7343,1) != 1)
		{
			mes "^3355FFWait a second!";
			mes "Right now, you're carrying";
			mes "too many things with you.";
			mes "Please come back after";
			mes "using the Kafra Service";
			mes "to store some of your items.^000000";
			close;
		}
		mes "[Esuna]";
		mes "I've been waiting for you.";
		mes "We don't have much time,";
		mes "so I'll explain quickly. Your";
		mes "mission is to sneak into the";
		mes "Rekenber Corporation and";
		mes "steal incriminating evidence.";
		next;
		mes "[Esuna]";
		mes "However, this place won't";
		mes "be easy to infiltrate and";
		mes "there'll be more security";
		mes "because they learned about";
		mes "what happened with Shinokas";
		mes "and... and Jargeah. Jargeah...";
		next;
		mes "[Esuna]";
		mes "You'll need to acquire";
		mes "identification through one";
		mes "of our agents who's managed";
		mes "to get in really deep without";
		mes "arousing any suspicion.";
		next;
		mes "[Esuna]";
		mes "Afterwards, find the";
		mes "^FF0000Secret Archive^000000, disable the";
		mes "security system and steal";
		mes "that evidence as quickly as";
		mes "possible. Understood?";
		next;
		mes "[Esuna]";
		mes "For now, use the pass you";
		mes "have for the Rekenber buildings";
		mes "and meet up with Agent ^FF0000Lestin^000000.";
		mes "He'll explain everything else,";
		mes "so be careful and don't let";
		mes "them get suspicious of you!";
		set lhz_boss,27;
		close2;
		disablenpc "Mysterious Woman";
		end;
	}
	else if(lhz_boss == 27)
	{
		mes "[Esuna]";
		mes "Use the pass that you";
		mes "have to enter the Rekenber";
		mes "buildings and find Secret";
		mes "Agent Lestin. Remember";
		mes "that he's undercover...";
		close;
	}
	else if(lhz_boss < 36)
	{
		mes "[Esuna]";
		mes ".........";
		close;
	}
	else if(lhz_boss == 36)
	{
		mes "[Esuna]";
		mes "Good work.";
		mes "Please bring this file";
		mes "to President Weierstrass";
		mes "right away. We'll also be";
		mes "directly sending information";
		mes "as a safeguard measure.";
		next;
		mes "[Esuna]";
		mes "I know it's sudden, but";
		mes "there's a new development.";
		mes "I can't explain it now, but you";
		mes "have to check on the president";
		mes "for me first. Plus, this new";
		mes "intel needs to be confirmed...";
		set lhz_boss,37;
		close2;
		disablenpc "Mysterious Woman";
		end;
	}
	else if(lhz_boss < 38)
	{
		mes "[Esuna]";
		mes "........";
		mes ".....";
		close;
	}
	else if(lhz_boss == 38)
	{
		mes "[Esuna]";
		mes "You're back. Listen,";
		mes "you could not have helped";
		mes "us out at a worse time. We";
		mes "just learned that something";
		mes "horrible has happened...";
		next;
		mes "[Esuna]";
		mes "I can't give you all";
		mes "the details now, but";
		mes "you've got to give this";
		mes "file to the president as";
		mes "quickly as you can. Hurry!";
		set lhz_boss,39;
		getitem 7343,1;
		close2;
		disablenpc "Mysterious Woman";
		end;
	}
	else if(lhz_boss == 39)
	{
		mes "[Esuna]";
		mes "What are you waiting";
		mes "for?! It's important that";
		mes "you give that file to the";
		mes "president as soon as";
		mes "possible! It's bad news,";
		mes "but he deserves to know...";
		close;
	}
	else if(lhz_boss == 40)
	{
		mes "[Esuna]";
		mes "Good, you're back.";
		mes "Listen, all members of";
		mes "Secret Wing need to leave";
		mes "the Schwaltzvalt Republic";
		mes "immediately! We've been";
		mes "severely compromised...";
		next;
		switch( select( "What happened?" ) )
		{
			case 1:
				break;
		}
		mes "[Esuna]";
		mes "We've been tremendously";
		mes "damaged. A lot of agents";
		mes "died to give us this intel,";
		mes "but we've been betrayed.";
		mes "The president's closest";
		mes "aide totally sold us out...";
		next;
		switch( select( "Who could have done such....?" ) )
		{
			case 1:
				break;
		}
		mes "[Esuna]";
		mes "I can't believe Kurelle";
		mes "did this to us. And there's no";
		mes "way we can save the president.";
		mes "Even if we wanted to, we need";
		mes "to stick with our contigency";
		mes "plan. We all knew the risks...";
		next;
		mes "[Esuna]";
		mes "Kurelle has been secretly";
		mes "meeting with directors from";
		mes "Rekenber Corporation and";
		mes "his mansion is littered with";
		mes "incriminating evidence...";
		next;
		mes "[Esuna]";
		mes "Damn it! We have no";
		mes "choice but to abandon";
		mes "the president now! But";
		mes "this won't mean that his";
		mes "sacrifice, and Jargeah's";
		mes "death, will be vain!";
		next;
		mes "[Esuna]";
		mes "Still, aside from a few";
		mes "agents, almost all of Secret";
		mes "Wing must pull out of the";
		mes "Schwaltzvalt Republic for";
		mes "now so that we can live to";
		mes "fight another day.";
		next;
		mes "[Esuna]";
		mes "For now, this is";
		mes "goodbye. Take care...";
		set lhz_boss,41;
		close2;
		disablenpc "Mysterious Woman";
		end;
	}
	else
	{
		mes "[Esuna]";
		mes "..........";
		mes "......";
		mes "....";
		close;
	}

OnInit:
	disablenpc "Mysterious Woman";
	end;
}

lhz_in01,93,45,4	script	Researcher	865,{

	if(lhz_boss < 28)
	{
		mes "[Researcher]";
		mes "You know what's weird?";
		mes "Why do they use blue and";
		mes "red wires when they make";
		mes "bombs? There's so many";
		mes "others you could use, like";
		mes "pink or yellow or or green...";
		if(lhz_boss == 27)
		{
			next;
			mes "[Researcher]";
			mes "Hey, here's a completely";
			mes "hypothetical question. Let's";
			mes "say you find a bomb and it's";
			mes "about to go off. You better";
			mes "cut a wire! So which one are";
			mes "you gonna cut? Red or blue?";
			next;
			switch( select( "Red","Blue" ) )
			{
				case 1:
					mes "[Researcher]";
					mes "Red, eh...?";
					mes "...................";
					mes "Heh, yeah, just like";
					mes "in the movies. I like";
					mes "the way you think~";
					if(!countitem(7348)) close;
					next;
					mes "^3355FFYou surrepticiously";
					mes "check the researcher's";
					mes "ID badge and see that the name ''Lestin'' is written on it.^000000";
					next;
					mes "[Lestin]";
					mes "So...";
					mes "Is there anything";
					mes "I can help you with?";
					next;
					switch( select( "No","Yes" ) )
					{
						case 1:
							mes "[Lestin]";
							mes "Alright then.";
							mes "Just be quiet when";
							mes "you're in the Laboratory.";
							mes "The people here work";
							mes "pretty feverishly and get";
							mes "irritated pretty easily, okay?";
							close;

						case 2:
							mes "[Lestin]";
							mes "So what exactly did";
							mes "you need? I'm just an";
							mes "ordinary researcher,";
							mes "so I don't know how";
							mes "much help I could be...";
							next;
							switch( select( "Show Secret Wing Card." ) )
							{
								case 1:
									break;
							}
							mes "[Lestin]";
							mes "Whoa, whoa~!";
							mes "Careful where you";
							mes "flash that! Okay, I know";
							mes "who you are. But we better";
							mes "continue this someplace";
							mes "a bit more private...";
							close2;
							warp "lhz_in01",283,166;
							end;
					}

				case 2:
					mes "[Researcher]";
					mes "Blue, huh? Yeah,";
					mes "that's what everyone";
					mes "else here picks. Now";
					mes "what color would I pick?";
					mes "Well, that's a secret~";
					close;
			}
		}
		close;
	}
	else
	{
		mes "[Lestin]";
		mes "Geez, I've been so";
		mes "tired lately. Work?";
		mes "Forget it, I'm gonna";
		mes "just kick back today~";
		close;
	}
}

lhz_in01,285,169,3	script	Researcher	865,{

	if(checkweight(7349,1) != 1)
	{
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if(lhz_boss < 27)
	{
		mes "[Researcher]";
		mes "This is a restricted";
		mes "area. Please leave";
		mes "immediately.";
		close;
	}
	else if(lhz_boss == 27)
	{
		mes "[Lestin]";
		mes "This place should be";
		mes "safe enough for us to talk";
		mes "for now, so please listen";
		mes "carefully. Esuna must have";
		mes "told you that they beefed";
		mes "up security lately, right?";
		next;
		mes "[Lestin]";
		mes "Anyway, since my location";
		mes "is being monitored, I can't";
		mes "risk going inside there. You";
		mes "need to sneak in on your own";
		mes "when the guards change shifts.It's an old trick, but it works.";
		next;
		mes "[Lestin]";
		mes "My pass will get you inside,";
		mes "but you'll only be able to";
		mes "stick around for 3 minutes";
		mes "at a time. The Secret Archive is to the right of this laboratory.";
		set lhz_boss,28;
		getitem 7349,1;
		next;
		mes "[Lestin]";
		mes "When you're finished,";
		mes "come back and give me";
		mes "the pass since it'll be real";
		mes "suspicious if I don't have it.";
		mes "Good luck to you. This job";
		mes "is risky, but not impossible.";
		close;
	}
	else if(lhz_boss < 35)
	{
		mes "[Lestin]";
		mes "Remember, you gotta";
		mes "sneak past that set of";
		mes "two guards while they're";
		mes "changing shifts. If you hide";
		mes "behind a corner and wait for";
		mes "a bit, you should get lucky.";
		next;
		mes "[Lestin]";
		mes "Once you sneak into the";
		mes "Secret Archive, look for";
		mes "the File Search Engine that";
		mes "should be right next to the";
		mes "door. You gotta use to find";
		mes "specific information, okay?";
		next;
		mes "[Lestin]";
		mes "My suggestion? You really";
		mes "ought to look for any files";
		mes "containing any information";
		mes "regarding ^3355FFRekenber's secret";
		mes "that Shinokas discovered^000000.";
		next;
		mes "[Lestin]";
		mes "Remember that this pass";
		mes "will get you into the Secret";
		mes "Archive for only 3 minutes";
		mes "at a time. Be really careful";
		mes "and don't get caught!";
		close;
	}
	else if(lhz_boss == 35)
	{
		if((!countitem(7349)) || (!countitem(7344)))
		{
			mes "[Lestin]";
			mes "My pass will get you inside,";
			mes "but you'll only be able to";
			mes "stick around for 3 minutes";
			mes "at a time. The Secret Archive is to the right of this laboratory.";
			next;
			mes "[Lestin]";
			mes "When you're finished,";
			mes "come back and give me";
			mes "the pass since it'll be real";
			mes "suspicious if I don't have it.";
			mes "Good luck to you. This job";
			mes "is risky, but not impossible.";
			close;
		}
		mes "[Lestin]";
		mes "You found what you were";
		mes "looking for? That must have";
		mes "been like looking for a needle";
		mes "in a haystick, but you managed";
		mes "to do it. Great work, guy~";
		next;
		mes "[Lestin]";
		mes "It's a good thing you";
		mes "found that when you did.";
		mes "Although it'd help to steal";
		mes "even more intel, sticking";
		mes "around even longer makes";
		mes "it easier for us to get caught.";
		next;
		mes "[Lestin]";
		mes "Alright, you better get";
		mes "out of here and find Esuna";
		mes "now. Watch your back and";
		mes "be careful. We're not all";
		mes "clear until this is all over.";
		next;
		mes "[Lestin]";
		mes "Esuna should be right";
		mes "outside of the city of";
		mes "Lighthalzen where you";
		mes "found her last time. She'll";
		mes "know that you're coming.";
		delitem 7349,1;
		set lhz_boss,36;
		close;
	}
	else
	{
		mes "[Lestin]";
		mes "Oh man...";
		mes "Everyone here is";
		mes "getting too paranoid";
		mes "for their own good!";
		mes "You better steer clear";
		mes "from this place for now.";
		close;
	}
}

lhz_in01,187,31,0	script	#Sneak	111,4,3,{

	end;

OnTouch:
	if((lhz_boss > 27) && (lhz_boss < 35))
	{
		set @sneaktime,gettimetick(0) % 100;
		if((@sneaktime < -10) && (@sneaktime > -59))
		{
			mes "^3355FFAs you approach";
			mes "the corner, you can";
			mes "hear hushed whispers";
			mes "just over the wall.^000000";
			next;
			mes "[Senior Guard]";
			mes "Hey, my shift is over.";
			mes "Hurry and get the next";
			mes "guy to relieve me, will you?";
			next;
			mes "[Rookie Guard]";
			mes "Already?";
			mes "Wow, time sure";
			mes "flies fast. Fine,";
			mes "wait here a bit.";
			next;
			mes "^3355FFOne of the guards left";
			mes "his post, and now there";
			mes "is only one remaining";
			mes "guard monitoring this area.^000000";
			next;
			mes "[Senior Guard]";
			mes "Criminy...";
			mes "I need to go to";
			mes "the bathroom. Well,";
			mes "I'm sure nothing will";
			mes "happen while I'm gone.";
			next;
			mes "^3355FFYou listen to the";
			mes "guard's footsteps as";
			mes "they grow fainter and";
			mes "fainter into the distance.^000000";
			next;
			switch( select( "Sneak in now.","Wait for another chance." ) )
			{
				case 1:
					mes "^3355FFThis is the perfect";
					mes "opportunity to infiltrate";
					mes "the Secret Archive! You";
					mes "approach the door and";
					mes "find a device where you";
					mes "can insert Lestin's card pass.^000000";
					next;
					switch( select( "Insert Card","Retreat" ) )
					{
						case 1:
							if(!countitem(7349))
							{
								mes "^3355FFYou forgot to bring";
								mes "the card pass that";
								mes "you got from Lestin.";
								mes "You need it in order";
								mes "to open this door.^000000";
								close;
							}
							mes "^3355FFAfter inserting the";
							mes "pass, a panel within";
							mes "the door slides open,";
							mes "revealing a numeric keypad.";
							mes "You need to input the correct";
							mes "password to open the door.^000000";
							next;
L_Enter:
							input @sneakpass;
							if(@sneakpass == 738495)
							{
								mes "^3355FF*Beep~*";
								mes "You hear a pleasant";
								mes "sounding electronic chirp,";
								mes "signaling that you have input";
								mes "the correct password. The door";
								mes "automatically slides open.";
								next;
								switch( select( "Enter","Retreat" ) )
								{
									case 1:
										mes "[Security System]";
										mes "You have 3 minutes to";
										mes "search the Information Archive.";
										mes "When this time elapses, you";
										mes "will be automatically sent";
										mes "outside for security reasons.";
										close2;
										set lhz_boss,29;
										donpcevent "Timer_Sneak::OnEnter";
										warp "lhz_in01",177,35;
										end;

									case 2:
										mes "^3355FFPerhaps now would";
										mes "not be the best time to";
										mes "enter the Secret Archive.";
										mes "Or at least, that's what";
										mes "you've decided for yourself.^000000";
										close;
								}
							}
							mes "^3355FF*Eeeeeee*";
							mes "The door emits an";
							mes "unnerving, high pitched";
							mes "screech after you input";
							mes "the password. You really";
							mes "should try to input it again.^000000";
							set @sneakerror,@sneakerror +1;
							next;
							if(@sneakerror > 2)
							{
									mes "[Security System]";
									mes "*Gzzzzz*";
									mes "You have entered the";
									mes "password incorrectly";
									mes "3 times. Please stand by";
									mes "for managerial assistance.";
									next;
									mes "^3355FFUh oh!";
									mes "You better get";
									mes "out of here before";
									mes "you get caught!^000000";
									close2;
									warp "lhz_in01",191,49;
									end;
							}

							goto L_Enter;

						case 2:
							mes "^3355FFPerhaps now would";
							mes "not be the best time to";
							mes "enter the Secret Archive.";
							mes "Or at least, that's what";
							mes "you've decided for yourself.^000000";
							close;
					}
				case 2:
					mes "^3355FFPerhaps now would";
					mes "not be the best time to";
					mes "enter the Secret Archive.";
					mes "Or at least, that's what";
					mes "you've decided for yourself.^000000";
					close;
			}
			donpcevent "Door#sneak::OnSneak";
			end;
		}
	}
}

lhz_in01,177,44,0	script	Timer_Sneak	-1,8,12,{

OnTouch:
	warp "lhz_in01",191,49;
	end;

OnInit:
	disablenpc "Timer_Sneak";
	end;

OnEnter:
	stopnpctimer;
	initnpctimer;
	end;

OnTimer180000:
	enablenpc "Timer_Sneak";
	end;

OnTimer190000:
	stopnpctimer;
	disablenpc "Timer_Sneak";
	end;
}



lhz_in01,182,35,0	script	File Search Engine	111,{

	if((lhz_boss > 28) && (lhz_boss < 35))
	{
		mes "^3355FFThis machine can be";
		mes "used to locate specific";
		mes "documents within the";
		mes "Secret Archive. However,";
		mes "you must enter the correct";
		mes "keywords to in order to find";
		mes "specific file locations.";
		next;
L_Search:
		switch( select( "Search Engine.","Cancel." ) )
		{
			case 1:
				mes "^663300- Search Engine Initiated -";
				mes "- Please enter a keyword -";
				mes " ";
				mes "*Search Engine";
				mes "is case sensitve.";
				mes "Please do not use";
				mes "capital letters.^000000";
				next;
				input @sneaksearch$;
				if((@sneaksearch$ == "kafra") || (@sneaksearch$ == "cool event"))
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "Kafra Corporation and";
					mes "Cool Event Corp are";
					mes "located in Arena 3-2.^000000";
					set lhz_boss,30;
					close;
				}
				else if(@sneaksearch$ == "shinokas")
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "Shinokas are located";
					mes "in Arena 1-5.^000000";
					set lhz_boss,31;
					close;
				}
				else if((@sneaksearch$ == "stein") || (@sneaksearch$ == "STEIN") || (@sneaksearch$ == "S.T.E.I.N"))
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "S.T.E.I.N are considered";
					mes "highly classified and";
					mes "cannot be accessed";
					mes "through this system.^000000";
					close;
				}
				else if(@sneaksearch$ == "ymir")
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "Ymir's Heart are ranked";
					mes "as highly classified and";
					mes "cannot be accessed";
					mes "through this system.^000000";
					close;
				}
				else if((@sneaksearch$ == "president") || (@sneaksearch$ == "karl") || (@sneaksearch$ == "weierstrass"))
				{
					mes "^663300[Search Result]";
					mes "2nd Class documents on";
					mes "President Karl Weierstrass";
					mes "are located in Area 1-7. For";
					mes "more highly classified files";
					mes "on Weierstrass, please use";
					mes "a higher security archive.^000000";
					set lhz_boss,32;
					close;
				}
				else if(@sneaksearch$ == "einbroch")
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "Einbroch are stored";
					mes "in Area 6-1.^000000";
					set lhz_boss,33;
					close;
				}
				else if(@sneaksearch$ == "lighthalzen")
				{
					mes "^663300[Search Result]" ;
					mes "Documents regarding";
					mes "Lighthalzen are stored";
					mes "in Area 3-3.^000000";
					set lhz_boss,34;
					close;
				}
				else if(@sneaksearch$ == "rekenber")
				{
					mes "^663300[Search Result]";
					mes "Documents regarding";
					mes "Rekenber are highly classified and cannot be accessed by this system.^000000";
					next;
					goto L_Search;
				}
				else
				{
					mes "^663300[Search Result]";
					mes "Keyword not found.";
					mes "Please search another";
					mes "archive or increase";
					mes "access permissions.^000000";
					close;
				}

			case 2:
				mes "^663300[Search Engine Close]";
				mes "File search has been";
				mes "canceled. Please be aware";
				mes "that sudden shutdown may";
				mes "cause system errors.^000000";
				close;
		}
	}
	mes "^3355FFThis machine can be";
	mes "used to locate specific";
	mes "documents within the";
	mes "Secret Archive, However,";
	mes "you no longer need to";
	mes "search through the files.^000000";
	close;
}

lhz_in01,177,31,0	script	Door#sneak	111,{

	if(lhz_boss < 29)
	{
		mes "[Guard]";
		mes "This is a";
		mes "restricted area.";
		mes "Please keep clear";
		mes "if you do not have";
		mes "special authorization.";
		mes "Thank you for cooperating.";
		close;
	}
	else if(lhz_boss < 36)
	{
		mes "^3355FFThe door is shut, but";
		mes "there is a device that";
		mes "looks sort of like the";
		mes "entry keypad that was on";
		mes "the other side of this door.^000000";
		next;
		switch( select( "Manipulate device.","Investigate further." ) )
		{
			case 1:
				mes "^3355FFOnce you touch the";
				mes "device, it automatically";
				mes "responds and the door";
				mes "quickly slides open.^000000";
				close2;
				warp "lhz_in01",177,26;
				end;

			case 2:
				close;
		}
	}
}

lhz_in01,184,40,0	script	Area 1-5	111,{

	if(checkweight(7344,1) != 1)
	{
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if((lhz_boss > 28) && (lhz_boss < 31))
	{
		mes "^3355FFThere's literally thousands";
		mes "of documents to sort through.";
		mes "There's no way you can find";
		mes "something of value here in";
		mes "just three minutes...^000000";
		close;
	}
	else if(lhz_boss == 31)
	{
		mes "^3355FFWait, one of these files";
		mes "looks pretty incriminating.";
		mes "It seems to contain the";
		mes "kind of information that";
		mes "you've been looking for.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717A piece of Ymir's Heart";
		mes "was uncovered in one of";
		mes "the mines in Einbech and";
		mes "immediately transported to";
		mes "the Laboratory for research.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717However, something";
		mes "happened to the miners";
		mes "who discovered the piece";
		mes "of Ymir's Heart. Apparently,";
		mes "a beast from Einbroch folk";
		mes "lore inhabited the area...^000000";
		set lhz_boss,35;
		getitem 7344,1;
		close;
	}
}

lhz_in01,184,52,0	script	Area 1-7	111,{

	if((lhz_boss > 28) && (lhz_boss < 32))
	{
		mes "^3355FFThere's literally thousands";
		mes "of documents to sort through.";
		mes "There's no way you can find";
		mes "something of value here in";
		mes "just three minutes...^000000";
		close;
	}
	else if(lhz_boss == 32)
	{
		mes "^3355FFThis looks like a file";
		mes "containing information";
		mes "on President Weierstrauss.";
		mes "Perhaps there's something";
		mes "in here that might be helpful.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Karl Weierstrass has";
		mes "been a long distinguished";
		mes "politician in the Schwaltzvalt";
		mes "Republic and was elected as";
		mes "its president in the year 984.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Although he has enjoyed";
		mes "high popularity ratings and";
		mes "success in his endorsing his";
		mes "policies, Wierstrass is rumored";
		mes "to be have some sort of feud";
		mes "against Rekenber.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Although there is no";
		mes "need to bring this to the";
		mes "attention of the media, it";
		mes "is highly recommended";
		mes "to monitor his activities";
		mes "throughout his term...^000000";
		next;
		mes "^3355FFThere's a great amount";
		mes "of information in this file,";
		mes "but it doesn't look like any";
		mes "of it will be of help to you.";
		mes "You should continue with";
		mes "your search for evidence.^000000";
		close;
	}
	else
	{
		mes "^3355FFThis file doesn't";
		mes "look like it contains";
		mes "any evidence that will";
		mes "help you. You should";
		mes "continue your search";
		mes "through the rest of the files.^000000";
		close;
	}
}

lhz_in01,184,46,0	script	Area 3-2	111,{

	if((lhz_boss > 28) && (lhz_boss < 30))
	{
		mes "^3355FFThere's literally thousands";
		mes "of documents to sort through.";
		mes "There's no way you can find";
		mes "something of value here in";
		mes "just three minutes...^000000";
		close;
	}
	else if(lhz_boss == 30)
	{
		mes "^3355FFYou've found a file";
		mes "containing information";
		mes "on the Kafra Corporation";
		mes "and Cool Event Corp.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Rekenber Corporation.";
		mes "in an effort to expand its";
		mes "power into the Rune-Midgarts";
		mes "Kingdom, will cooperate with";
		mes "and support Cool Event Corp.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Although this partnership";
		mes "has been greatly successful,";
		mes "Kafra Corporation has been";
		mes "working to check Cool Event";
		mes "Corp's explosive growth.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717More than Kafra Corporation's";
		mes "lobbying, Kafra's 3rd Security";
		mes "Team stands as a formidable";
		mes "threat to our success. One of";
		mes "our highest priorities is to";
		mes "investigate their activities.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717It is believed that Kafra's";
		mes "3rd Security Team has alrady";
		mes "placed secret agents in key";
		mes "strategic locations within";
		mes "the Schwaltzvalt Republic.^000000";
		next;
		mes "^3355FFThis file is very intriguing,";
		mes "but it doesn't really cover";
		mes "any information that can be";
		mes "considered incriminating.^000000";
		close;
	}
	else
	{
		mes "^3355FFThis file doesn't";
		mes "look like it contains";
		mes "any evidence that will";
		mes "help you. You should";
		mes "continue your search";
		mes "through the rest of the files.^000000";
		close;
	}
}

lhz_in01,184,48,0	script	Area 3-3	111,{

	if((lhz_boss > 28) && (lhz_boss < 34))
	{
		mes "^3355FFThere's literally thousands";
		mes "of documents to sort through.";
		mes "There's no way you can find";
		mes "something of value here in";
		mes "just three minutes...^000000";
		close;
	}
	else if(lhz_boss == 34)
	{
		mes "[Classified Info]";
		mes "^8C1717...After negotiating with";
		mes "the existing residents, all of";
		mes "the property rights were sold";
		mes "and the city was renamed";
		mes "''Lighthalzen'' in 865.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717The city was then separated";
		mes "into three districts. These are";
		mes "the common trade district, the";
		mes "old residential district and";
		mes "the Rekenber Headquarters.";
		mes ".................^000000";
		next;
		mes "^3355FFThis file covers";
		mes "Lighthalzen's history.";
		mes "However, the founding of";
		mes "the city is common knowlege,";
		mes "so this document probably won't";
		mes "have any significant evidence.^000000";
		close;
	}
	else
	{
		mes "^3355FFThis file doesn't";
		mes "look like it contains";
		mes "any evidence that will";
		mes "help you. You should";
		mes "continue your search";
		mes "through the rest of the files.^000000";
		close;
	}
}

lhz_in01,177,56,0	script	Area 6-1	111,{

	if((lhz_boss > 28) && (lhz_boss < 33))
	{
		mes "^3355FFThere's literally thousands";
		mes "of documents to sort through.";
		mes "There's no way you can find";
		mes "something of value here in";
		mes "just three minutes...^000000";
		close;
	}
	else if(lhz_boss == 33)
	{
		mes "[Classified Info]";
		mes "^8C1717........";
		mes "Our organization purchased";
		mes "all of western Einbech and";
		mes "began construction of Einbroch";
		mes "in 927 in order to obtain more";
		mes "pieces of Ymir's Heart.^000000";
		next;
		mes "[Classified Info]";
		mes "^8C1717Unofficially, each and";
		mes "every single factory belongs";
		mes "to the Rekenber Corporation.";
		mes "Their highest priority is";
		mes "to uncover Ymir Heart Pieces...^000000";
		next;
		mes "^3355FFAlthough this file contains";
		mes "surprising information about";
		mes "Einbroch, none of it can be";
		mes "considered to be incriminating";
		mes "evidence against Rekenber.";
		close;
	}
	else
	{
		mes "^3355FFThis file doesn't";
		mes "look like it contains";
		mes "any evidence that will";
		mes "help you. You should";
		mes "continue your search";
		mes "through the rest of the files.^000000";
		close;
	}
}

lhz_dun02,282,278,0	script	Broken Machine	111,{

	if(checkweight(7346,1) != 1)
	{
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if(lhz_boss < 6)
	{
		mes "^3355FFThere are several";
		mes "broken machines lying";
		mes "around that pretty much";
		mes "seem completely useless.^000000";
		close;
	}
	else if(lhz_boss == 6)
	{
		mes "^3355FFThere are several";
		mes "broken machines lying";
		mes "around that pretty much";
		mes "seem completely useless.";
		mes "However, you catch the";
		mes "glimmer of a dim light";
		mes "amongst the scrap metal.^000000";
		next;
		switch( select( "Investigate it.","Ignore it." ) )
		{
			case 1:
				mes "^3355FFAfter digging through";
				mes "the discarded machinery,";
				mes "you find a strange rock that";
				mes "is about as large as your fist";
				mes "and shimmers with a faint glow.^000000";
				next;
				switch( select( "This might be important.","This doesn't seem useful." ) )
				{
					case 1:
						mes "^3355FFThis weird rock";
						mes "might be just the";
						mes "thing that ^000000Ghalstein^3355FF";
						mes "sent you here to find.";
						mes "He was probably right";
						mes "not to describe it to you.";
						mes "Words alone aren't enough...^000000";
						set lhz_boss,7;
						getitem 7346,1;
						close;

					case 2:
						mes "^3355FFJust because this rock";
						mes "looks funny doesn't make";
						mes "it any more special than";
						mes "the countless number of";
						mes "rocks you've seen in";
						mes "your entire lifetime.^000000";
						close;
				}

			case 2:
				mes "^3355FFWhat can possibly";
				mes "be of value in this";
				mes "pile of useless junk?^000000";
				close;
		}
	}
	else
	{
		mes "^3355FFThere are several";
		mes "broken machines lying";
		mes "around that pretty much";
		mes "seem completely useless.^000000";
		close;
	}
}

lhz_in02,19,274,2	script	Maintenance Guy	851,{

	mes "[Kudiuu]";
	mes "Holy...!";
	mes "Will this place";
	mes "ever get cleaned up?!";
	mes "^333333*Cough cough*^000000 There's";
	mes "so much dust here, it's";
	mes "almost a health hazard!";
	close;
}