//===== eAthena Script ======================================= 
//= Quest NPCs located in Lighthalzen
//===== By: ================================================== 
//= Persian, Vicious_Pucca, aoa00, Evera, MasterOfMupppets,
//= Lupus, Lord Gywall
//===== Current Version: ===================================== 
//= 3.0
//===== 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.
//============================================================ 

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
lhz_dun03,344,278,0	duplicate(#kiz03-1)	#kiz03-4	-1,3,3

lighthalzen,344,278,0	script	#kiz03	-1,2,2,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			soundeffect "tao_gunka_stand.wav",0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "tao_gunka_stand.wav",0;
			next;
			mes "[?????]";
			mes "Honey, I'm sorry,";
			mes "but I... We know how";
			mes "hungry you are, but we";
			mes "have nothing to feed you.";
			next;
			mes "[?????]";
			mes "*Sniff* I know, I know,";
			mes "but somehow, that tragic";
			mes "truth eats away at me just";
			mes "a little bit more everyday...";
			next;
			mes "[?????]";
			mes "D-damn it...!";
			mes "Why do we have";
			mes "to live like this?!";
			mes "It's like we're less";
			mes "than animals. I hate this!";
			next;
			mes "...............";
			next;
			mes "...............";
			next;
			emotion e_what,1;
			mes "["+strcharinfo(0)+"]";
			mes "Those voices weren't";
			mes "just in my head, were they?";
			mes "Hello...? Anybody there...?";
			close2;
			sc_end SC_All;
			sc_start SC_Curse,5000,0;
			if(!lhz_spi01) set lhz_spi01,1;
			end;
		}
	}
}

lhz_in03,178,22,0	script	#kiz04	-1,2,2,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			soundeffect "tao_gunka_stand.wav",0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "tao_gunka_stand.wav",0;
			next;
			mes "[?????]";
			mes "Hey, you won't";
			mes "believe it! Rekenber";
			mes "decided to hire us!";
			next;
			mes "[?????]";
			mes "You sure that's so great?";
			mes "Those big corporations";
			mes "always take advantage";
			mes "of the little guy. We're";
			mes "probably gonna end up";
			mes "slavin' away for our wages...";
			next;
			mes "[?????]";
			mes "No, that's not the";
			mes "case at all. I mean,";
			mes "sure, we won't start off";
			mes "with much responsibility,";
			mes "but they'll pay us well!";
			next;
			mes "[?????]";
			mes "Well, we do need to eat.";
			mes "If they're true to their word,";
			mes "that'll be even better!";
			next;
			mes "...............";
			next;
			mes "...............";
			next;
			mes "[???]";
			mes "Waaaah!";
			mes "Waaaaaah~!";
			next;
			mes "[????]";
			mes "Woman, shut this";
			mes "baby up! Shut up, kid!";
			next;
			mes "[?????]";
			mes "Honey, please...";
			mes "He's just a baby!";
			next;
			mes "[????]";
			mes "I don't care how";
			mes "crummy this house is!";
			mes "It's mine and I want quiet!";
			next;
			mes "...............";
			next;
			mes "...............";
			next;
			emotion e_what,1;
			mes "["+strcharinfo(0)+"]";
			mes "I'm hearing things";
			mes "again! Where are all of";
			mes "these voices coming from?";
			close2;
			soundeffect "tao_gunka_stand.wav",0;
			sc_end SC_All;
			sc_start SC_Curse,5000,0;
			if(!lhz_spi02) set lhz_spi02,1;
			end;
		}
	}
}

lighthalzen,295,227,0	script	#kiz05	-1,2,2,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "loli_ruri_stand.wav",0;
			next;
			mes "[?????]";
			mes "Mommy, why don't those";
			mes "dirty people get new clothes?";
			mes "Don't they know it's gross?";
			mes "They're scaring me...";
			next;
			mes "[???????]";
			mes "Honey, don't look at";
			mes "them and hurry up!";
			next;
			mes "[????]";
			mes "Please, do you have";
			mes "any spare change? I...";
			mes "I need something to eat...";
			next;
			mes "...............";
			next;
			mes "...............";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "This is...";
			mes "This is insane!";
			mes "I must be hallucinating!";
			close2;
			soundeffect "loli_ruri_stand.wav",0;
			sc_end SC_All;
			sc_start SC_Curse,3000,0;
			if(!lhz_spi03) set lhz_spi03,1;
			end;
		}
	}
}

lighthalzen,364,315,0	script	#kiz06	-1,3,3,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "tao_gunka_stand.wav",0;
			next;
			mes "[?????]";
			mes "Listen, I know you're";
			mes "the newest hire, but you've";
			mes "shown us a lot of potential.";
			mes "I think you'd be a perfect";
			mes "fit for this new position.";
			next;
			mes "[???????]";
			mes "Are you really serious?";
			next;
			mes "[?????]";
			mes "I'll tell it to you straight.";
			mes "This new position will require";
			mes "you to be away from home once";
			mes "in a while, but that comes with";
			mes "the new responsibilities.";
			next;
			mes "[?????]";
			mes "But you'll receive";
			mes "many new benefits that";
			mes "I'm sure your family would";
			mes "appreciate and you'll be";
			mes "generously compensated.";
			next;
			mes "[???????]";
			mes "...............";
			next;
			mes "[???????]";
			mes "...Alright, I'm in.";
			next;
			mes "...............";
			next;
			mes "...............";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "...............";
			close2;
			soundeffect "tao_gunka_stand.wav",0;
			sc_end SC_All;
			sc_start SC_Curse,5000,0;
			if(!lhz_spi04) set lhz_spi04,1;
			end;
		}
	}
}

lhz_in01,113,150,0	script	#kiz07	-1,3,3,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "tao_gunka_stand.wav",0;
			next;
			mes "[?????]";
			mes "So, what exactly did you";
			mes "want me to do? I'm sorry,";
			mes "I wasn't able to gather my";
			mes "actual job function from";
			mes "the presentation...";
			next;
			mes "[???]";
			mes "Hee hee hee~";
			mes "Don't worry about it.";
			mes "Just relax and stay";
			mes "right where you are.";
			next;
			mes "[?????]";
			mes "Mmm. Alright.";
			mes "I just thought that I was";
			mes "supposed to go somewhere,";
			mes "that's all. Um, shouldn't";
			mes "I be getting ready...?";
			next;
			mes "[???]";
			mes "Oh, don't worry about";
			mes "that, either. All of the";
			mes "arrangements will be";
			mes "taken care of. You'll";
			mes "be taken to that far";
			mes "off place very soon...";
			next;
			mes "...............";
			next;
			mes "...............";
			close2;
			soundeffect "tao_gunka_stand.wav",0;
			sc_end SC_All;
			sc_start SC_Curse,3000,0;
			if(lhz_curse == 6) set lhz_curse,7;
			end;
		}
	}
}

lhz_in01,272,227,0	script	#kiz08	-1,2,2,{

OnTouch:
	if(countitem(7345))
	{
		if(!lhz_curse)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
		else if(lhz_curse < 26)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Blind,60000,0;
			soundeffect "tao_gunka_stand.wav",0;
			next;
			mes "[????]";
			mes "Oh, I'm so sorry to";
			mes "hear that you want to";
			mes "quit. Are you sure there";
			mes "isn't anything we can do";
			mes "to change your mind?";
			next;
			mes "[???]";
			mes "Well, I'm thinking of";
			mes "retiring early and just";
			mes "spending more time";
			mes "with my family. But I won't";
			mes "ever talk about the company";
			mes "or any of its, well, secrets.";
			next;
			mes "[????]";
			mes "I really appreciate";
			mes "your honesty and sincerity.";
			mes "You've really done a great";
			mes "job for us and I can't thank";
			mes "you enough for your years of";
			mes "dedication to this company.";
			next;
			mes "[???]";
			mes "Thank you, sir.";
			next;
			mes "[???]";
			mes "It would be a great loss";
			mes "for this company to let you";
			mes "go now. But I guess we have";
			mes "no choice, since you've had";
			mes "that horrible accident.";
			next;
			mes "[???]";
			mes "Sir...?";
			mes "Accident...?";
			mes "I don't understand";
			mes "what you're talking ab--";
			next;
			mes "[???]";
			mes "N-no! Please...!";
			mes "I didn't, I swear on";
			mes "my life that I won't ever";
			mes "say anything about this";
			mes "place! I'm begging you,";
			mes "for the love of god!";
			next;
			mes "[????]";
			mes "Your life...?";
			mes "Sorry, not good enough.";
			mes "You should have known.";
			next;
			mes "[???]";
			mes "Ssstop! I have chil--";
			mes "MY LEEEEGS!! OH MY GOD";
			mes "WHAT HAVE YOU DONE TO";
			mes "MY LEGS?! HELP ME, OH MY G--";
			next;
			mes "...............";
			next;
			mes "...............";
			close2;
			soundeffect "tao_gunka_stand.wav",0;
			sc_end SC_All;
			sc_start SC_Curse,3000,0;
			if(lhz_curse == 11) set lhz_curse,12;
			end;
		}
	}
}

lhz_in01,206,129,0	script	#kiz09	-1,5,5,{

OnTouch:
	if(countitem(7345))
	{
		if(lhz_curse == 12)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Curse,1000,0;
			soundeffect "loli_ruri_stand.wav",0;
			close2;
			warp "lhz_que01",26,27;
			end;
		}
		else if(lhz_curse > 0 && lhz_curse < 26)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
	}
}

lhz_que01,21,31,5	script	#Varmunt	755,{

OnTouch:
	if(countitem(7345))
	{
		if(lhz_curse == 12)
		{
			mes "Doctor Varmunt,";
			mes "you've finally agreed";
			mes "to join us. Welcome!";
			next;
			donpcevent "#Varmunt::OnEmote";
			mes "[Varmunt]";
			mes "Well, I don't know if I agree";
			mes "with this company's policies,";
			mes "but the project you're offering";
			mes "seems to be an opportunity that";
			mes "comes once in a lifetime, so...";
			next;
			donpcevent "#Rekenber::OnEmote";
			mes "[??]";
			mes "To be honest, this project";
			mes "can only be a success with";
			mes "your cooperation. We need";
			mes "your genius and will provide";
			mes "whatever you require.";
			next;
			mes "[Varmunt]";
			mes "I'm flattered.";
			mes "And of course, I'll";
			mes "do my best. It's just";
			mes "that this deal sounds";
			mes "too good to be true...";
			next;
			mes ".........";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "...............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "..................";
			next;
			mes ".....................";
			next;
			mes "[??]";
			mes "Amazing. You've accomplished";
			mes "what most have thought to be";
			mes "impossible ahead of schedule.";
			mes "An imitation of Ymir's Heart!";
			mes "This will surely spur Airship";
			mes "and Guardian development~!";
			next;
			mes "[Varmunt]";
			mes "I still don't believe that";
			mes "were able to do it. This is";
			mes "a huge leap for science, even";
			mes "if this imitation isn't as powerful";
			mes "as the real Ymir's Heart.";
			next;
			mes "[??]";
			mes "Come, we must celebrate!";
			mes "Let's go outside and have";
			mes "a toast in your honor! Ha ha~";
			next;
			mes ".........";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "...............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "..................";
			next;
			mes "[??]";
			mes "But why, Doctor Varmunt?";
			mes "If you're unhappy with the";
			mes "Rekenber Corporation for";
			mes "any reason whatsoever...";
			next;
			mes "[Varmunt]";
			mes "Well, I don't really";
			mes "have a reason to remain";
			mes "now that we've accomplished";
			mes "what I've agreed to do. It's time";
			mes "for me to return and work on";
			mes "my personal research.";
			next;
			mes "[??]";
			mes "Please, Doctor Varmunt,";
			mes "reconsider! You may have";
			mes "full use of our facilities to";
			mes "conduct your research. I'm";
			mes "willing to make you an offer.";
			next;
			mes "[Varmunt]";
			mes "No, I can't...";
			mes "If I continue to work";
			mes "here, I'm afraid I might";
			mes "make a lot of people";
			mes "unhappy. But, thank";
			mes "you for everything.";
			next;
			mes "[??]";
			mes "Wait...";
			mes "Doctor Varmunt.";
			mes "You forgot your cane.";
			next;
			mes "[Varmunt]";
			mes "Since when have you";
			mes "seen me use a cane?";
			mes "And even if I did,";
			mes "that one isn't mi--";
			next;
			mes "...";
			next;
			mes "...";
			mes "......";
			next;
			mes "...";
			mes "......";
			mes ".........";
			set lhz_curse,13;
			close2;
			warp "lhz_in01",206,129;
			end;
		}
		else
		{
			warp "lhz_in01",206,129;
			end;
		}
	}
	warp "lhz_in01",206,129;
	end;

OnEmote:
	emotion e_swt;
	end;
}

lhz_que01,29,24,3	script	#Rekenber	754,{

OnTouch:
	if(countitem(7345))
	{
		if(lhz_curse == 12)
		{
			mes "Doctor Varmunt,";
			mes "you've finally agreed";
			mes "to join us. Welcome!";
			next;
			donpcevent "#Varmunt::OnEmote";
			mes "[Varmunt]";
			mes "Well, I don't know if I agree";
			mes "with this company's policies,";
			mes "but the project you're offering";
			mes "seems to be an opportunity that";
			mes "comes once in a lifetime, so...";
			next;
			donpcevent "#Rekenber::OnEmote";
			mes "[??]";
			mes "To be honest, this project";
			mes "can only be a success with";
			mes "your cooperation. We need";
			mes "your genius and will provide";
			mes "whatever you require.";
			next;
			mes "[Varmunt]";
			mes "I'm flattered.";
			mes "And of course, I'll";
			mes "do my best. It's just";
			mes "that this deal sounds";
			mes "too good to be true...";
			next;
			mes ".........";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "...............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "..................";
			next;
			mes ".....................";
			next;
			mes "[??]";
			mes "Amazing. You've accomplished";
			mes "what most have thought to be";
			mes "impossible ahead of schedule.";
			mes "An imitation of Ymir's Heart!";
			mes "This will surely spur Airship";
			mes "and Guardian development~!";
			next;
			mes "[Varmunt]";
			mes "I still don't believe that";
			mes "were able to do it. This is";
			mes "a huge leap for science, even";
			mes "if this imitation isn't as powerful";
			mes "as the real Ymir's Heart.";
			next;
			mes "[??]";
			mes "Come, we must celebrate!";
			mes "Let's go outside and have";
			mes "a toast in your honor! Ha ha~";
			next;
			mes ".........";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "...............";
			next;
			soundeffect "loli_ruri_stand.wav",0;
			mes "..................";
			next;
			mes "[??]";
			mes "But why, Doctor Varmunt?";
			mes "If you're unhappy with the";
			mes "Rekenber Corporation for";
			mes "any reason whatsoever...";
			next;
			mes "[Varmunt]";
			mes "Well, I don't really";
			mes "have a reason to remain";
			mes "now that we've accomplished";
			mes "what I've agreed to do. It's time";
			mes "for me to return and work on";
			mes "my personal research.";
			next;
			mes "[??]";
			mes "Please, Doctor Varmunt,";
			mes "reconsider! You may have";
			mes "full use of our facilities to";
			mes "conduct your research. I'm";
			mes "willing to make you an offer.";
			next;
			mes "[Varmunt]";
			mes "No, I can't...";
			mes "If I continue to work";
			mes "here, I'm afraid I might";
			mes "make a lot of people";
			mes "unhappy. But, thank";
			mes "you for everything.";
			next;
			mes "[??]";
			mes "Wait...";
			mes "Doctor Varmunt.";
			mes "You forgot your cane.";
			next;
			mes "[Varmunt]";
			mes "Since when have you";
			mes "seen me use a cane?";
			mes "And even if I did,";
			mes "that one isn't mi--";
			next;
			mes "...";
			next;
			mes "...";
			mes "......";
			next;
			mes "...";
			mes "......";
			mes ".........";
			set lhz_curse,13;
			close2;
			warp "lhz_in01",206,129;
			end;
		}
		else
		{
			warp "lhz_in01",206,129;
			end;
		}
	}
	warp "lhz_in01",206,129;
	end;

OnEmote:
	emotion e_ok;
	end;
}

lhz_in01,282,166,0	script	#kiz10	-1,3,3,{

OnTouch:
	if(countitem(7345))
	{
		if(lhz_curse == 16)
		{
			mes "...............";
			next;
			mes "...............";
			sc_start SC_Curse,1000,0;
			soundeffect "loli_ruri_stand.wav",0;
			close2;
			warp "lhz_que01",98,59;
			end;
		}
		else if(lhz_curse > 0 && lhz_curse < 26)
		{
			sc_start SC_Curse,1000,0;
			end;
		}
	}
}

lhz_que01,99,74,5	script	#pecomaster	48,{

	if(checkweight(7341,1) != 1)
	{
		mes "^3355FFWait a second! Right now,";
		mes "you have too many items in your";
		mes "inventory. Please come back";
		mes "after you've made more available";
		mes "inventory space.^000000";
		close;
	}
	else if(lhz_curse == 16)
	{
		mes "[???]";
		mes "It's over.";
		mes "I really want";
		mes "to quit. This is";
		mes "the end for me.";
		next;
		mes "[Peco Peco]";
		mes "^3131FFThis is the end!^000000";
		mes "^3131FFThis is the end!^000000";
		next;
		mes "[???]";
		mes "He was right to say that";
		mes "we'd be paid well, but going";
		mes "through this much torture isn't";
		mes "worth any sum of money in the";
		mes "world to me. *Sigh* Money...";
		next;
		mes "[???]";
		mes "She must be so worried";
		mes "about me by now. And her";
		mes "health is so bad. I'm such";
		mes "a fool for leaving her behind.";
		mes "";
		next;
		mes "[Peco Peco]";
		mes "^3131FFSuch a fool!^000000";
		mes "^3131FFSuch a fool!^000000";
		mes "^3131FF*Squaaawk~*^000000";
		next;
		mes "[???]";
		mes "Damn it!";
		mes "Shut up, you stupid bird!";
		mes "Be quiet for just a minute!";
		next;
		mes "[Peco Peco]";
		mes "^3131FF*Squaaawk!*^000000";
		mes "^3131FFDeath Penalty!^000000";
		mes "^3131FFDeath Penalty!^000000";
		next;
		mes "[???]";
		mes "Death penalty?";
		mes "Where'd you learn";
		mes "to say something weird";
		mes "like that? Huh. That's...";
		next;
		mes "............";
		next;
		mes "............";
		next;
		mes "............";
		next;
		mes "[???]";
		mes "I'm the only one still";
		mes "in this room. Everyone";
		mes "else left and never came";
		mes "back. If they were... And";
		mes "I were to go out... Then...";
		mes "Maybe I better not leave.";
		next;
		mes "[???]";
		mes "If I could only give";
		mes "this pendant back to";
		mes "her, she wouldn't have";
		mes "to worry about me that";
		mes "much. But I might not";
		mes "be able to get back...";
		next;
		mes "[???]";
		mes "............";
		next;
		mes "[?????]";
		mes "Hey there, been";
		mes "waiting long? It's";
		mes "time for you to finish";
		mes "up your contract.";
		next;
		mes "[???]";
		mes "Finish up my...?";
		mes "N-no! I've decided!";
		mes "I'm not leaving this room!";
		next;
		mes "[?????]";
		mes "Hey hey, what the hell";
		mes "are you talking about?";
		mes "You came here to work,";
		mes "didn't you? And now it's";
		mes "time for you to collect, so...";
		next;
		mes "[???]";
		mes "N-no, l-let go of me!";
		mes "Please let me go!";
		mes "I want to see her again,";
		mes "please let me see her...!";
		next;
		mes ".........";
		mes "............";
		next;
		mes "^3131FF*Clink*^000000";
		next;
		mes "[??]";
		mes "Hm? Who the hell";
		mes "brought in this cheap";
		mes "jewery? Someone must";
		mes "have forgotten to throw";
		mes "away their trash...";
		next;
		mes "[????]";
		mes "Yeah, it's just a";
		mes "cheap trinket. That";
		mes "pendant isn't even";
		mes "worth picking up.";
		next;
		mes "^3131FFYou pick up an old^000000";
		mes "pendant from the ground.";
		mes "No matter how hard you try,";
		mes "you can't open its clasp to see";
		mes "what this pendant contains.^000000";
		set lhz_curse,17;
		getitem 7341,1;
		close2;
		warp "lhz_in01",278,162;
		end;
	}
	else
	{
		warp "lhz_in01",278,162;
		end;
	}
}

lhz_que01,90,71,5	script	#birdie	1019,3,3,{

	end;

OnTouch:
	mes "[Peco Peco]";
	mes "You're a fool!";
	mes "You're a fool!";
	mes "You're a fool!";
	close;
}

lighthalzen,346,263,3	script	Elder	846,{

	if((!countitem(7345)) || (lhz_curse > 18))
	{
L_NoText:
		mes "[Elder]";
		mes "Predators are always";
		mes "on the lookout for easy";
		mes "prey. Be careful, youngster!";
		mes "You look innocent enough";
		mes "to become a victim in the city.";
		next;
		switch( select( "About Lighthalzen","About the Slum","????" ) )
		{
			case 1:
				mes "[Elder]";
				mes "Lighthalzen might seem";
				mes "like a splendid city at first,";
				mes "but you'll quickly learn that";
				mes "the poor are segregated from";
				mes "the rich and treated as less";
				mes "than second class citizens.";
				next;
				mes "[Elder]";
				mes "At first, separation between";
				mes "the rich and poor districts was";
				mes "subtly enforced. They built the";
				mes "railroad right between the two";
				mes "districts to make it easier for";
				mes "the rich to ignore the poor.";
				next;
				mes "[Elder]";
				mes "But now they even have";
				mes "guards to make sure that";
				mes "the poor can't bother the";
				mes "rich. I'm pretty sure that";
				mes "this segregation won't be";
				mes "ending anytime soon...";
				next;
				mes "[Elder]";
				mes "Now, I've heard that the";
				mes "Rekenber Corporation is";
				mes "actually providing jobs for";
				mes "people in the slums. Beggars";
				mes "can't be choosers, so I'm sure";
				mes "these jobs aren't that great.";
				close;

			case 2:
				mes "[Elder]";
				mes "To live in the slum is to";
				mes "be familiar with poverty,";
				mes "disease, condemnation";
				mes "and contempt. But we're all";
				mes "still people, you know, so let";
				mes "go of any of your misgivings.";
				next;
				mes "[Elder]";
				mes "We're struggling just";
				mes "to survive here. At the";
				mes "very least, please respect";
				mes "that. It's a fact that the";
				mes "people in the rich district";
				mes "seem to keep forgetting.";
				close;

			case 3:
				mes "[Elder]";
				mes "Well, if you need any";
				mes "help around here or have";
				mes "any questions, come back";
				mes "and ask me. I get the feeling";
				mes "that we'll probably meet again.";
				close;
		}
	}
	else if((lhz_curse == 1) && (lhz_spi01) && (lhz_spi02) && (lhz_spi04))
	{
		mes "[Elder]";
		mes "No wonder you look";
		mes "so weary. Come, let";
		mes "me help relieve you";
		mes "of the burden that";
		mes "you're carrying.";
		next;
		switch( select( "Um, burden...?","Crazy old woman!" ) )
		{
			case 1:
				mes "[Elder]";
				mes "Ah yes, they may not";
				mes "be apparent to you, but";
				mes "my eyes can clearly see";
				mes "them. Yes. You're being";
				mes "followed by those things.";
				next;
				switch( select( "Things?" ) )
				{
					case 1:
						break;
				}
				mes "[Elder]";
				mes "Yes. the best way I can";
				mes "describe them is as evil";
				mes "thoughts left in the world";
				mes "when someone dies in";
				mes "such a way that his grudge";
				mes "survives to menace the living.";
				next;
				mes "[Elder]";
				mes "Sometimes, these lingering";
				mes "thoughts are created when";
				mes "someone is broken hearted";
				mes "or clings to this plane of the";
				mes "sake of a loved one. Yes, those";
				mes "thoughts are following you.";
				next;
				mes "[Elder]";
				mes "I don't know why they";
				mes "are following you, but I'm";
				mes "certain they're there. Have";
				mes "you been experiencing chills";
				mes "down your spine, cold sweats,";
				mes "maybe even hearing voices?";
				soundeffect "loli_ruri_stand.wav",0;
				sc_start SC_Curse,5000,0;
				next;
				switch( select( "Yes! How do I get rid of them?" ) )
				{
					case 1:
						break;
				}
				mes "[Elder]";
				mes "Well, usually these lingering";
				mes "thoughts have some sort of";
				mes "physical anchor, an object";
				mes "that has feelings attached";
				mes "to it, something important";
				mes "to its late owner.";
				next;
				mes "[Elder]";
				mes "The rage they're directing";
				mes "at you seems to be growing";
				mes "and I can see the angry spirits";
				mes "pulling at the hems of your";
				mes "clothes. Tell me, have you";
				mes "wronged anyone recently?!";
				next;
				switch( select( "I don't... think so.","I can't remember every bad thing I've done!" ) )
				{
					case 1:
						break;
						case 2:
						break;
				}
				mes "[Elder]";
				mes "Well, you better do";
				mes "something soon, before";
				mes "the evil taints your mind";
				mes "and drives you to insanity!";
				mes "Now, I need to know for sure";
				mes "if you've hearing voices.";
				next;
				switch( select( "Y-yes, I have." ) )
				{
					case 1:
						break;
				}
				mes "[Elder]";
				mes "There's still hope.";
				mes "The spirits are trying";
				mes "to reach you for now, but";
				mes "if you wait too long, you may";
				mes "become a victim of their wrath.";
				mes "Hurry, there is much to do!";
				next;
				mes "[Elder]";
				mes "You must appease these";
				mes "forces by finding out what";
				mes "happened to them in life.";
				mes "Now, I don't possess great";
				mes "power, but I can encourage";
				mes "the spirits to guide you.";
				next;
				mes "[Elder]";
				mes "I can only have the spirits";
				mes "reveal the places they wish";
				mes "for you to search only once.";
				mes "You must remember the";
				mes "locations that I am about";
				mes "to show you. Get ready...";
				specialeffect2 22;
				next;
				mes "[Elder]";
				mes "Yaaaaappp ---!";
				specialeffect2 62;
				specialeffect2 225;
				specialeffect2 36;
				next;
				mes "[Elder]";
				mes "There! The locations";
				mes "you must search should";
				mes "be clear to you now! Don't";
				mes "forget these placemarks!";
				viewpoint 1,104,282,1,0xFF99FF33;
				viewpoint 1,105,282,2,0xFF99FF33;
				viewpoint 1,104,281,3,0xFF99FF33;
				viewpoint 1,105,281,4,0xFF99FF33;
				next;
				mes "[Elder]";
				mes "Good luck, youngster.";
				mes "I hope you can appease";
				mes "the wrath of these spirits...";
				mes "But as long as you let them";
				mes "guide you, you ought to be safe.";
				set lhz_curse,6;
				close;
		
			case 2:
				mes "[Elder]";
				mes "Crazy...? Hm, you must";
				mes "not quite understand what's";
				mes "happening to you. Please do";
				mes "not hesitate to come back to";
				mes "me when you realize that you";
				mes "need my help, youngster.";
				close;
		}
	}
	else if((lhz_curse > 5) && (lhz_curse < 17))
	{
		mes "[Elder]";
		mes "I'm sorry, but there's";
		mes "nothing more I can do for";
		mes "you right now. But if you";
		mes "find anything related to the";
		mes "spirits that torment you,";
		mes "please let me know.";
		close;
	}
	else if(lhz_curse == 17)
	{
		if(!countitem(7341))
		{
			mes "[Elder]";
			mes "I'm sorry, but there's";
			mes "nothing more I can do for";
			mes "you right now. But if you";
			mes "find anything related to the";
			mes "spirits that torment you,";
			mes "please let me know.";
			close;
		}
		mes "[Elder]";
		mes "Greetings, adventurer.";
		mes "How goes your search for";
		mes "the remains of the spirits";
		mes "that still cling to this plane?";
		next;
		switch( select( "Show her the Pendant.","Cancel" ) )
		{
			case 1:
				mes "[Elder]";
				mes "Oh my... There are some";
				mes "incredibly powerful emotions";
				mes "clinging to this pendant. If we";
				mes "don't do anything about this,";
				mes "you'll be cursed very soon.";
				mes "This is what you must do.";
				next;
				mes "[Elder]";
				mes "Hurry and bring";
				mes "^0000ff5 Holy Water^000000 and";
				mes "^0000ff1 Bouquet^000000. The Holy Water";
				mes "will purify this Pendant and";
				mes "the Bouquet will comfort";
				mes "the spirit of its owner.";
				next;
				mes "[Elder]";
				mes "You don't have much";
				mes "time, so return to me";
				mes "as soon as possible!";
				mes "It won't be long until";
				mes "the spirits are consumed";
				mes "by their supernatural rage...";
				set lhz_curse,18;
				close;
				case 2:
				mes "[Elder]";
				mes "Oh... You look so pale, are";
				mes "you alright? Heh heh~";
				close;
			}
	}
	else if(lhz_curse == 18)
	{
		if((countitem(523) < 5) || (!countitem(744)) || (!countitem(7341)))
		{
			mes "[Elder]";
			mes "Hurry and bring";
			mes "^0000ff5 Holy Water^000000 and";
			mes "^0000ff1 Bouquet^000000. The Holy Water";
			mes "will purify this Pendant and";
			mes "the Bouquet will comfort";
			mes "the spirit of its owner.";
			close;
		}
		mes "[Elder]";
		mes "Good, good.";
		mes "All is readiness.";
		mes "Please be silent as";
		mes "I focus my spirit for the";
		mes "great task before me.";
		next;
		mes "[Elder]";
		mes "...";
		mes "......";
		mes ".........";
		mes "Hoooooooo...";
		specialeffect2 88;
		next;
		mes "[Elder]";
		mes "Yaaaaapp ---!";
		specialeffect2 86;
		next;
		mes "[Elder]";
		mes "Whew! I've managed";
		mes "to nullify this curse for you.";
		mes "That still doesn't change the";
		mes "fact that what happened to this";
		mes "pendant's owner was tragic...";
		next;
		mes "[Elder]";
		mes "Why don't you bring";
		mes "this pendant to the place";
		mes "where it really belongs?";
		mes "I'm sure that would bring";
		mes "great comfort to its owner.";
		next;
		mes "^3131FFSuddenly, the clasp on";
		mes "the pendant pops open,";
		mes "revealing a picture of a happy";
		mes "couple. Somehow, the girl in";
		mes "the picture, sitting uncomfortably";
		mes "in an old chair, looks familiar...^000000";
		set lhz_curse,19;
		delitem 523,5;
		delitem 744,1;
		close;
	}
	else goto L_NoText;
}

lhz_in03,32,162,3	script	Crippled Girl	53,{

	if(lhz_curse == 23)
	{
		if(countitem(7341))
		{
			mes "["+strcharinfo(0)+"]";
			mes "Hey there, are";
			mes "you feeling alright?";
			next;
			mes "[Crippled Girl]";
			mes "Oh, thanks,";
			mes "I'm fine. But...";
			mes "Have we met before?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Yeah, we did.";
			mes "You should know who";
			mes "I am by now. Hey, you";
			mes "didn't forget, did you?";
			next;
			mes "[Lady]";
			mes "Oh, how do I put this?";
			mes "The fever she had for the";
			mes "last few days. She's gotten";
			mes "better, but she's forgotten";
			mes "everything that's happened";
			mes "in the past few weeks...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh... Oh. I'm so";
			mes "sorry. But maybe this";
			mes "is for the best? Here,";
			mes "I think you should keep";
			mes "this pendant, though.";
			next;
			mes "^3131ffYou place the";
			mes "old pendant";
			mes "into her hands.^000000";
			next;
			specialeffect2 259;
			mes "...............";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "...";
			mes "......";
			next;
			mes "[Possessed "+strcharinfo(0)+"]";
			mes "^3131FFSetsu, please remember";
			mes "that I'd never do anything";
			mes "to hurt you. Forgive me for";
			mes "leaving you behind. I hope";
			mes "that one day we'll meet";
			mes "again, little princess.^000000";
			next;
			mes "[Possessed "+strcharinfo(0)+"]";
			mes "^3131FFUntil then, I want";
			mes "you to be happy, okay?";
			mes "Your brother's always";
			mes "gonna be looking out for";
			mes "you, one way or another...^000000";
			next;
			mes "[Setsu]";
			mes "My brother's...";
			mes "That's my brother's";
			mes "voice! Brother!";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Eh? What? Whoa...";
			mes "What came over me?";
			mes "The last thing I reme--";
			next;
			mes "[Setsu]";
			mes "...";
			mes "......";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Well...";
			mes "This is awkward.";
			delitem 7341,1;
			set lhz_curse,24;
			close;
		}
		mes "["+strcharinfo(0)+"]";
		mes "Hey there, are";
		mes "you feeling alright?";
		next;
		mes "[Crippled Girl]";
		mes "Oh, thanks,";
		mes "I'm fine. But...";
		mes "Have we met before?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Yeah, we did.";
		mes "You should know who";
		mes "I am by now. Hey, you";
		mes "didn't forget, did you?";
		next;
		mes "[Lady]";
		mes "Oh, how do I put this?";
		mes "The fever she had for the";
		mes "last few days. She's gotten";
		mes "better, but she's forgotten";
		mes "everything that's happened";
		mes "in the past few weeks...";
		next;
		mes "^3131ffThis would be a good";
		mes "opportunity to give her the...^000000";
		close;
	}
	else if(lhz_curse == 24)
	{
		mes "[Setsu]";
		mes "...";
		mes "......";
		close;
	}
	else if(lhz_curse == 25)
	{
		mes "[Setsu]";
		mes "Excuse me, I can't still";
		mes "walk but I don't cry";
		mes "anymore. I'm doing my best!";
		close;
	}
	else
	{
		mes "[Crippled Girl]";
		mes "...";
		mes "......";
		mes "*Sigh...*";
		next;
		switch( select( "Hello, how are you?" ) )
		{
			case 1:
				break;
		}
		mes "[Crippled Girl]";
		mes "Oh, I'm fine,";
		mes "thanks for asking.";
		mes "I'm just waiting for";
		mes "somebody, that's all.";
		if(lhz_curse == 19)
		{
			next;
			switch( select( "Show her the Pendant.","Okay, have a good day." ) )
			{
				case 1:
					mes "["+strcharinfo(0)+"]";
					mes "Um, would you have";
					mes "any idea who might";
					mes "have owned this pendant?";
					next;
					if (!countitem(7341))
					{
						mes "[Crippled Girl]";
						mes "What are you talking about?";
						close;
					}
					emotion e_gasp;
					mes "[Crippled Girl]";
					mes "Oh, that's mine!";
					mes "I gave it to my big brother";
					mes "before he went away on some";
					mes "sort of business trip. You must";
					mes "be his friend, is that right?";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Actually, um,";
					mes "you know what...?";
					next;
					switch( select( "Brutal Truth","Break it to her gently" ) )
					{
						case 1:
							mes "...";
							mes "......";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "...So basically, your";
							mes "brother's ghost, oh right,";
							mes "did I mention he was dead?";
							mes "Anyway, so he's not alive";
							mes "anymore, but his spirit or";
							mes "whatever is still around and--";
							next;
							mes "[Crippled Girl]";
							mes "...";
							mes "......";
							next;
							mes "[Crippled Girl]";
							mes "...Dead?";
							mes "No! I don't believe you!";
							mes "He can't die! He was the";
							mes "bravest and the sweetest";
							mes "and the-- Leave me alone!";
							mes "Oh god, get the hell away!";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "...";
							mes "......";
							mes "Sheesh.";
							mes "Don't kill the";
							mes "messenger.";
							set lhz_curse,20;
							close2;
							warp "lighthalzen",322,323;
							end;

						case 2:
							mes "[Crippled Girl]";
							mes "Did you meet my";
							mes "big brother...?";
							next;
							mes "[Crippled Girl]";
							mes "My brother is a strong";
							mes "person, and I should be";
							mes "happy of that, because";
							mes "nothing could happen";
							mes "to him.";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "Um... yes. So...";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "Sure, your big brother must be happy.";
							mes "He'll come back sometime.";
							mes "You should sleep to be healthy";
							mes "once your brother returns.";
							next;
							mes "[Crippled Girl]";
							mes "Yes! I must be okay";
							mes "and be able to walk when my";
							mes "brother come.";
							if(!countitem(7341)) close;
							next;
							mes "^3131ffYou place the";
							mes "old pendant";
							mes "into her hands.^000000";
							next;
							specialeffect2 259;
							mes "......";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "...............";
							next;
							mes "[Possessed "+strcharinfo(0)+"]";
							mes "^3131FFSetsu, please remember";
							mes "that I'd never do anything";
							mes "to hurt you. Forgive me for";
							mes "leaving you behind. I hope";
							mes "that one day we'll meet";
							mes "again, little princess.^000000";
							next;
							mes "[Possessed "+strcharinfo(0)+"]";
							mes "^3131FFUntil then, I want";
							mes "you to be happy, okay?";
							mes "Your brother's always";
							mes "gonna be looking out for";
							mes "you, one way or another...^000000";
							next;
							mes "[Setsu]";
							mes "My brother's...";
							mes "That's my brother's";
							mes "voice! Brother!";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "Eh? What? Whoa...";
							mes "What came over me?";
							mes "The last thing I reme--";
							next;
							mes "^FF0000Tears fall from the";
							mes "girl's face, then you...^000000";
							next;
							switch( select( "Distract her","Comfort her" ) )
							{
								case 1:
									mes "["+strcharinfo(0)+"]";
									mes "Oh, all of this was a play...";
									mes "Y-yes a play, I was practising.";
									mes "Ha ha~ Is it okay, isn't it?";
									next;
									mes "[Setsu]";
									mes "Oh, you surprised me!";
									mes "Even though I didn't think";
									mes "it was really my brother, you know?";
									next;
									mes "["+strcharinfo(0)+"]";
									mes "Excuse me...";
									next;
									mes "[Setsu]";
									mes "I'll do my best!";
									mes "I must be okay when my brother return.";
									mes "He'll be very proud of me.";
									mes "Heh heh~";
									next;
									mes "["+strcharinfo(0)+"]";
									mes "Yes, I'm sure of that.";
									delitem 7341,1;
									set lhz_curse,25;
									close;
						
								case 2:
									mes "["+strcharinfo(0)+"]";
									mes "Crying have no use!";
									mes "You're a very pretty";
									mes "girl to be ruining your";
									mes "face with useless tears.";
									next;
									mes "[Setsu]";
									mes "............";
									next;
									mes "["+strcharinfo(0)+"]";
									mes "You should do your best";
									mes "to be healthy for the time";
									mes "your big brother return.";
									next;
									mes "[Setsu]";
									mes "Yes...";
									next;
									mes "["+strcharinfo(0)+"]";
									mes "Listen, when your brother";
									mes "return you'll celebrate in";
									mes "a beautiful place.";
									next;
									mes "[Setsu]";
									mes "Really?";
									mes "It's a promise then! Heh heh~";
									next;
									mes "["+strcharinfo(0)+"]";
									mes "I hope it'll be soon!";
									mes "When I return I want you to be";
									mes "able to walk. See you soon, then!";
									next;
									mes "[Setsu]";
									mes "I'll try hard!";
									delitem 7341,1;
									set lhz_curse,25;
									close;
							}
					}
			
				case 2:
					mes "[Crippled Girl]";
					mes "Okay,";
					mes "bye-bye...";
					close;
			}
		}
		close;
	}
}

lighthalzen,324,322,1	script	#lhz_door1	45,2,2,{

OnTouch:
	if((lhz_curse > 19) && (lhz_curse < 23))
	{	
		mes "^3131ffThe door is locked.^000000";
		close;
	}
	else if(lhz_curse > 23)
	{
		mes "^3131ffThe door is locked.^000000";
		next;
		mes "[Citizen]";
		mes "I'm sorry, but another";
		mes "epidemic is starting to";
		mes "spread around the slums.";
		mes "We're not going outside and";
		mes "we're keeping our children safe!";
		next;
		mes "[Citizen]";
		mes "Not to be unfriendly,";
		mes "but you should be careful";
		mes "too. The living conditions";
		mes "of this area aren't exactly";
		mes "sanitary, you know?";
		close;
	}
	else
	{
		warp "lhz_in03",15,162;
		end;
	}
}

lhz_in03,12,162,1	script	#lhz_door2	45,1,1,{

OnTouch:
	warp "lighthalzen",321,322;
	end;
}

lighthalzen,319,321,0	script	#brother	-1,3,3,{

OnTouch:
	if((lhz_curse == 24) || (lhz_curse == 25))
	{
		mes "*Shhhzzzz!*";
		next;
		mes "[????]";
		mes "............";
		specialeffect2 36;
		next;
		mes "[???]";
		mes "^FF0000...I'm sorry...";
		mes "......I appreciate";
		mes "that you............^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "H-huh?!";
		mes "What was that?";
		mes "That can't be the";
		mes "wind, I must be";
		mes "hearing things again...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Wait. I thought I was";
		mes "rid of those thoughts";
		mes "or spirits, whatever was";
		mes "haunting me before. Maybe";
		mes "they still want me to do";
		mes "something for them. Hmmm...";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I get the feeling that";
		mes "all of their suffering";
		mes "is tied to the ^FF0000Rekenber";
		mes "Corporation^000000 and that";
		mes "^FF0000Regenschirm Laboratory^000000.";
		set lhz_curse,26;
		if(BaseJob < 70) getexp 800000,300000;
		else if(BaseJob < 80) getexp 1000000,500000;
		else if(BaseJob < 90) getexp 1500000,800000;
		else getexp 2000000,1000000;
		close;
	}
}

lhz_in01,114,181,3	script	Representative	71,{

	mes "[Representative]";
	mes "Greetings, and welcome";
	mes "to the Rekenber Corporation.";
	mes "How may I be of service today?";
	next;
	if(lhz_curse == 7) menu "Building Information",L_Building,"Corporation History",L_History;
	else menu "Building Information",L_Building;

L_Building:
	mes "[Representative]";
	mes "Please tell me";
	mes "which floor you'd like";
	mes "to know more about.";
	next;
	switch( select( "1F","2F","B1","Cancel" ) )
	{
		case 1:
			mes "[Representative]";
			mes "The ^3131FFRekenber Library^000000 can";
			mes "be found at the end of the";
			mes "left hallway. Our library is";
			mes "a great resource of innovative";
			mes "ideas and information for our";
			mes "system development employees.";
			next;
			mes "[Representative]";
			mes "The ^3131FFBall Room^000000, where";
			mes "various official events are";
			mes "usually held, can be accessed";
			mes "through the right hallway.";
			next;
			goto L_Building;

		case 2:
			mes "[Representative]";
			mes "Please use the stairs";
			mes "located on both sides of";
			mes "the Help Desk to go to the";
			mes "Second Floor. The Second";
			mes "Floor is mostly used for";
			mes "administrative purposes.";
			next;
			mes "[Representative]";
			mes "There, you can find";
			mes "the ^3131FFConference Room^000000,";
			mes "^3131FFSecretary Office^000000, the";
			mes "^3131FFAuditorium^000000 and the";
			mes "^3131FFChairman's Office^000000.";
			next;
			goto L_Building;

		case 3:
			mes "[Representative]";
			mes "The first underground floor";
			mes "is used by the ^3131FFRegenshirm^000000,";
			mes "our laboratory affiliate. For";
			mes "security reasons, this floor";
			mes "is not accessible to visitors";
			next;
			goto L_Building;

		case 4:
			mes "[Representative]";
			mes "We are always doing our";
			mes "best to provide the best";
			mes "services to our customers.";
			mes "Remember that Rekenber";
			mes "is the name you can trust.";
			mes "Thank you and have a nice day.";
			close;
	}

L_History:
	mes "[Representative]";
	mes "If you're interested in";
	mes "learning the history of";
	mes "our corporation, please";
	mes "speak to the representative";
	mes "inside our Library. Thank you.";
	next;
	mes "[Representative]";
	mes "Please head down";
	mes "the hallway to the left in";
	mes "order to find our Library.";
	mes "Thank you and have a nice day.";
	set lhz_curse,8;
	close;	
}

lhz_in01,27,247,5	script	Representative	71,{

	if(lhz_curse > 6)
	{
		mes "[Representative]";
		mes "Welcome to the";
		mes "Rekenber Corporation.";
		mes "How may I help you?";
		next;
		switch( select( "Corporation History","Rekenber's Businesses" ) )
		{
			case 1:
				mes "[Representative]";
				mes "Rekenber was established";
				mes "400 years ago, around the";
				mes "same time as the foundation";
				mes "of the Schwaltzvalt Republic.";
				next;
				mes "[Representative]";
				mes "We began as the ''Zent Zerter";
				mes "Lighthal Research Center,''";
				mes "named after our first chairman.";
				mes "In 560 A.W. (After War), our";
				mes "organization was renamed after";
				mes "our new chairman, Mr. Rekenber.";
				next;
				mes "[Representative]";
				mes "Mr. Rekenber expanded the";
				mes "Corporation's purposes, but";
				mes "also founded the Regenschirm";
				mes "Laboratory to continue this";
				mes "company's original goal of";
				mes "scientific research.";
				next;
				mes "[Representative]";
				mes "In the year 700 A.W.,";
				mes "^ff0000Doctor Varmunt^000000 joined";
				mes "Regenschirm. It was his work";
				mes "in science that enabled the";
				mes "Rekenber Corporation to grow";
				mes "into the nation's biggest company.";
				if(lhz_curse == 8) set lhz_curse,9;
				else if(lhz_curse == 9) set lhz_curse,10;
				next;
				break;

			case 2:
				mes "[Representative]";
				mes "In addition to merchandising,";
				mes "freight transport and trading,";
				mes "the Rekenber Corporation is";
				mes "also heavily involved with";
				mes "providing the Airship service,";
				mes "one of our major projects.";
				next;
				mes "[Representative]";
				mes "Rekenber is involved in";
				mes "almost any business that";
				mes "you can imagine. Remember";
				mes "that Rekenber is the name";
				mes "that you can trust.";
				if (lhz_curse == 8) set lhz_curse,9;
				else if(lhz_curse == 9) set lhz_curse,10;
				next;
				break;
		}
		mes "[Representative]";
		mes "If you'd like to know more";
		mes "about our mission statement,";
		mes "please refer to the Rekenber";
		mes "Guidebook located to my side.";
		mes "Thank you and have a nice day.";
		close;
	}
	mes "[Representative]";
	mes "Greetings, and welcome";
	mes "to the Rekenber Corporation.";
	mes "How may I be of service today?";
	next;
	switch( select( "Building Information" ) )
	{
		case 1:
L_Building:
			mes "[Representative]";
			mes "Please tell me";
			mes "which floor you'd like";
			mes "to know more about.";
			next;
			switch( select( "1F","2F","B1","Cancel" ) )
			{
				case 1:
					mes "[Representative]";
					mes "The ^3131FFRekenber Library^000000 can";
					mes "be found at the end of the";
					mes "left hallway. Our library is";
					mes "a great resource of innovative";
					mes "ideas and information for our";
					mes "system development employees.";
					next;
					mes "[Representative]";
					mes "The ^3131FFBall Room^000000, where";
					mes "various official events are";
					mes "usually held, can be accessed";
					mes "through the right hallway.";
					next;
					goto L_Building;

				case 2:
					mes "[Representative]";
					mes "Please use the stairs";
					mes "located on both sides of";
					mes "the Help Desk to go to the";
					mes "Second Floor. The Second";
					mes "Floor is mostly used for";
					mes "administrative purposes.";
					next;
					mes "[Representative]";
					mes "There, you can find";
					mes "the ^3131FFConference Room^000000,";
					mes "^3131FFSecretary Office^000000, the";
					mes "^3131FFAuditorium^000000 and the";
					mes "^3131FFChairman's Office^000000.";
					next;
					goto L_Building;

				case 3:
					mes "[Representative]";
					mes "The first underground floor";
					mes "is used by the ^3131FFRegenshirm^000000,";
					mes "our laboratory affiliate. For";
					mes "security reasons, this floor";
					mes "is not accessible to visitors";
					next;
					goto L_Building;

				case 4:
					mes "[Representative]";
					mes "We are always doing our";
					mes "best to provide the best";
					mes "services to our customers.";
					mes "Remember that Rekenber";
					mes "is the name you can trust.";
					mes "Thank you and have a nice day.";
					close;
			}
	}
}

lhz_in01,25,251,3	script	Rekenber Guidebook	111,{

	mes "...............";
	next;
	mes "^0000FF#The Vision^000000";
	mes "In the pursuit of knowledge,";
	mes "Rekenber will search the";
	mes "Rune-Midgart continent for";
	mes "ancient relics. We hope to make";
	mes "significant scientific progress by";
	mes "learning the secrets of the past.";
	next;
	mes "By making scientific";
	mes "headway, we hope we can";
	mes "improve current technologies";
	mes "to provide more convenient";
	mes "and affordable services in";
	mes "the Schwaltzvalt Republic.";
	next;
	mes "^0000ff#The Commitment^000000";
	mes "Although magic and the";
	mes "power of gods has always";
	mes "maintained an aura of mystery";
	mes "and superstition, Rekenber hopes";
	mes "^0000ffto understand these forces from";
	mes "a more logical standpoint^000000.";
	next;
	mes "^ff0000Our goal is to make";
	mes "the lives of our customers";
	mes "easier and more enjoyable";
	mes "by making the ancient power";
	mes "of the gods more accessible";
	mes "by means of new technologies.^000000";
	if(lhz_curse == 10) set lhz_curse,11;
	next;
	mes "...............";
	close;
}

lhz_in01,273,121,1	script	Mad Scientist	865,{

	if(lhz_curse == 13)
	{
		mes "[Wolfchev]";
		mes "No one shall";
		mes "interrupt my";
		mes "research! If you";
		mes "dare, I'll simply...";
		mes "Eat you. Eat you alive.";
		next;
		switch( select( "No... N-no!","Do you need any help?" ) )
		{
			case 1:
				mes "[Wolfchev]";
				mes "Out of my sight,";
				mes "microcephalic fool!";
				close;

			case 2:
				mes "[Wolfchev]";
				mes "Huh? You think I have";
				mes "the luxury of remembering";
				mes "the face of every part-timer";
				mes "I've fired? Get lost, or I'll";
				mes "treat you to the pain of";
				mes "being eaten alive!";
				set lhz_curse,14;
				close;
		}
	}
	else if(lhz_curse == 14)
	{
		mes "[Wolfchev]";
		mes "You again?!";
		mes "What the hell do";
		mes "you want from me?!";
		emotion e_ag,0;
		next;
		switch( select( "Let me speak with you.","Sorry for bothering you." ) )
		{
			case 1:
				mes "[Wolfchev]";
				mes "I don't have time to";
				mes "waste with drivel! I'm";
				mes "too busy with my research!";
				next;
				mes "[Wolfchev]";
				mes "............!";
				emotion e_gasp,0;
				next;
				mes "[Wolfchev]";
				mes "Ah, but wait! I am collecting";
				mes "something. Yes, bring me the";
				mes "thing I must collect. Yes, yes.";
				mes "Here's a hint... It's round...";
				mes "Shiny... Kids love playing games";
				mes "with them! Oh, I said too much!";
				set lhz_curse,15;
				close;

			case 2:
				emotion e_pif;
				mes "[Wolfchev]";
				mes "''Sorry?!'' Do you";
				mes "think ''sorry'' will";
				mes "get back that precious";
				mes "minute I've lost yelling";
				mes "at you?! Get the hell out!";
				close;
		}
	}
	else if(lhz_curse == 15)
	{
		if(!countitem(746))
		{
			mes "[Wolfchev]";
			mes "It's a round and shining thing!";
			mes "Hurry up! Bweh-heh-heh!";
			emotion e_slur,0;
			close;
		}
		delitem 746,1;
		mes "[Wolfchev]";
		mes "Yes...! Beads!";
		mes "You brought them!";
		mes "You're not as dumb";
		mes "as I thought you'd be!";
		next;
		switch( select( "Why do you want Glass Beads?" ) )
		{
			case 1:
				break;
		}
		mes "[Wolfchev]";
		mes "............";
		mes "I take that back!";
		mes "You should know by";
		mes "now that I would never";
		mes "tell you why I neeeed";
		mes "these Beads. Bweh-heh!";
		emotion e_slur,0;
		next;
		mes "[Wolfchev]";
		mes "This favor you've done";
		mes "is worth a small chat and";
		mes "I can spare a minute or two";
		mes "for you inane questions. So";
		mes "what is it you want to know?!";
		next;
L_Ask1:
		switch( select( "Ask about hobbies","Ask about work" ) )
		{
			case 1:
				mes "[Wolfchev]";
				mes "Oh. Oh no, oh no,";
				mes "I couldn't possibly...";
				mes "It's a-- I-it's a secret.";
				mes "You wouldn't want to know";
				mes "anyway. Bweh-heh-heh-heh!";
				next;
				goto L_Ask1;

			case 2:
				mes "[Wolfchev]";
				mes "Oh, I don't know if you";
				mes "can call it work. After all,";
				mes "I do research whatever it is";
				mes "I want. And they pay me to";
				mes "do it! This is the best place";
				mes "for a scientist like me, yes.";
				next;
				mes "[Wolfchev]";
				mes "Now, in a perfect world,";
				mes "my test subjects would be";
				mes "much more cooperative, but";
				mes "I suppose I cannot blame";
				mes "them. Not that I cause them";
				mes "undue suffering or anything...";
				next;
		}
		switch( select( "What kind of research?" ) )
		{
			case 1:				
				mes "[Wolfchev]";
				mes "Well, I couldn't tell you";
				mes "exactly. But don't you";
				mes "worry, the discovery I'm";
				mes "working on will benefit the";
				mes "entire world, you'll see.";
				next;
				mes "[Wolfchev]";
				mes "Let's just say that once";
				mes "I'm successful, I'll satisfy";
				mes "one of mankind's most primal";
				mes "instincts, the desire to become";
				mes "powerful and gain dominance";
				mes "over those that are weaker.";
				next;
				mes "[Wolfchev]";
				mes "I haven't made as much";
				mes "progress as I'd like, but";
				mes "no matter. It's only a matter";
				mes "of experimentation! Yes, to";
				mes "make mankind stronger and";
				mes "better and more powerful and--";
				next;
		}
		switch( select( "Um, what are you testing on?" ) )
		{
			case 1:
				mes "[Wolfchev]";
				mes "What do you know?";
				mes "I better get back to";
				mes "work if I wish to keep";
				mes "on schedule. I can't afford";
				mes "the leisure of speaking with";
				mes "you any longer. Bweh heh heh!";
				set lhz_curse,16;
				close;
		}
	}
	else
	{
		mes "[Wolfchev]";
		mes "Waaah~!";
		mes "Do not disturb my study!";
		close;
	}
}

lhz_in01,286,226,3	script	Secretary Slierre	831,{

	if(lhz_curse == 26)
	{
		mes "[Sueii Slierre]";
		mes "Excuse me, but you are";
		mes "not allowed to be in here.";
		mes "If you have questions regarding";
		mes "the Rekenber Corporation, I can";
		mes "direct you to someone qualified";
		mes "to give you an answer.";
		next;
		switch( select( "About the slums.","About you." ) )
		{
			case 1:
				mes "[Sueii Slierre]";
				mes "The slums? All I know";
				mes "is that this corporation";
				mes "specifically targeted that";
				mes "area in order to provide ample";
				mes "opportunity for employment.";
				set lhz_curse,27;
				close;
			
			case 2:
				mes "[Sueii Slierre]";
				mes "I'm Sueii Slierre,";
				mes "the personal secretary";
				mes "for the chairman of the";
				mes "Rekenber Corporation.";
				close;
		}
	}
	else if(lhz_curse == 27)
	{
		mes "[Sueii Slierre]";
		mes "Did you have something";
		mes "else to ask? I can only";
		mes "divulge information that is";
		mes "public knowledge, but I can";
		mes "tell you who to contact for";
		mes "more specific inquiries.";
		next;
		switch( select( "About the Laboratory","About the Corporation" ) )
		{
			case 1:
				mes "[Sueii Slierre]";
				mes "Rekenber is perhaps the";
				mes "biggest contributer of the";
				mes "Regenschirm Laboratory.";
				mes "Their work will benefit the";
				mes "entire Rune-Midgart continent,";
				mes "hence our highly involved support.";
				next;
				mes "[Sueii Slierre]";
				mes "A representative at the";
				mes "Help Desk will be happy";
				mes "to assist you if you have";
				mes "more inquiries regarding";
				mes "the Regenschirm Laboratory.";
				set lhz_curse,28;
				close;
		
			case 2:
				mes "[Sueii Slierre]";
				mes "I'm sorry, but I don't have";
				mes "any special information";
				mes "regarding our corporation.";
				mes "Why don't you ask one of";
				mes "our representatives at the";
				mes "Help Desk to learn more?";
				close;
		}
	}
	else if(lhz_curse == 28)
	{
		mes "[Sueii Slierre]";
		mes "You're back? I really";
		mes "doubt that I can be of";
		mes "any assistance to you.";
		next;
		switch( select( "Wolfchev's Research" ) )
		{
			case 1:
				break;
		}
		mes "[Sueii Slierre]";
		mes "..............!";
		emotion e_gasp,0;
		next;
		mes "[Sueii Slierre]";
		mes "How do you know";
		mes "Wolfchev? Are you an";
		mes "acquaintance of his or...?";
		next;
		switch( select( "I'm a friend of his.","Oh, we're family, you know...","I've heard about him before, so..." ) )
		{
			case 1:
				mes "[Sueii Slierre]";
				mes "Well, Wolfchev is not";
				mes "only brilliant, he's also";
				mes "a respected professional.";
				mes "He should be doing just fine.";
				next;
				break;

			case 2:
				mes "[Sueii Slierre]";
				mes "Ah, you should be";
				mes "very proud of Wolfchev.";
				mes "In addition to being a";
				mes "genius, Wolfchev is also";
				mes "quite the professional,";
				mes "truly a model scientist.";
				next;
				break;

			case 3:
				mes "[Sueii Slierre]";
				mes "Ah yes, Wolfchev has";
				mes "quite the reputation. In";
				mes "fact, he's in such high";
				mes "demand that Regenschirm";
				mes "wants him on their staff.";
				close;
		}
		mes "[Sueii Slierre]";
		mes "...";
		mes "......";
		next;
		mes "[Sueii Slierre]";
		mes "I'm sorry, but please";
		mes "understand that my office";
		mes "isn't the place for visitors to";
		mes "submit their general inquiries.";
		mes "Please visit the Help Desk if";
		mes "you have any more questions.";
		next;
		switch( select( "About Wolfchev's Research" ) )
		{
			case 1:
				break;
		}
		mes "[Sueii Slierre]";
		mes "I couldn't tell you any";
		mes "more about Wolfchev.";
		mes "But is there anything you";
		mes "need to tell me about him?";
		mes "Well, if you have something";
		mes "to ask, be quick about it.";
		emotion e_hmm,0;
		next;
		switch( select( "Wolfchev's Past","Wolfchev's Test Subjects" ) )
		{
			case 1:
				mes "[Sueii Slierre]";
				mes "I remember hearing that he";
				mes "received a high recommendation";
				mes "to work here, but specifics elude";
				mes "me since I don't work in Human";
				mes "Resources. There's a rumor that";
				mes "he had a troubled love life...";
				next;
				mes "[Sueii Slierre]";
				mes "But aside from a few";
				mes "rumors, we really don't";
				mes "know much about Wolfchev's";
				mes "personal life. But then again,";
				mes "it may be unethical to pry too";
				mes "much into our employee's lives.";
				close;
			
			case 2:
				mes "[Sueii Slierre]";
				mes "Wolfchev's test subjects?";
				mes "Well, I know we have a policy";
				mes "of using the most humane";
				mes "methods depending on the";
				mes "experiment. And of course, he";
				mes "should only be testing on animals.";
				next;
				switch( select( "Wolfchev's research is great!","His experiments are suspicius..." ) )
				{		
					case 1:
						mes "[Sueii Slierre]";
						mes "Yes yes, I'd agree if";
						mes "I understood science a";
						mes "little bit better. Now, you'll";
						mes "have to excuse me. I've been";
						mes "distracted long enough as it is...";
						close2;
						warp "lhz_in01",228,226;
						end;

					case 2:
						mes "[Sueii Slierre]";
						mes "What exactly do you mean?";
						mes "Are you sure that you haven't";
						mes "misunderstood anything about";
						mes "Wolfchev's work? You'll need";
						mes "to illustrate your claim for us";
						mes "to be on the same page...";
						next;
						switch( select( "Show Evidence","Cancel" ) )
						{
							case 1:
L_Evidence:
								if (!countitem(7345))
								{
									mes "[Sueii Slierre]";
									mes "What evidence are you";
									mes "talking about? Look,";
									mes "I'm very busy at the moment,";
									mes "I can't lose too much time";
									mes "with you. Talk to me when you";
									mes "have something concrete.";
									set lhz_curse,29;
									close;
								}
								mes "^3131ffWhile saying that you";
								mes "show the handcuffs to";
								mes "Sueii Slierre.^000000";
								next;
								mes "^3131ffThe expression in";
								mes "Sueii Slierre's face tenses";
								mes "a little.^000000";
								next;
								mes "[Sueii Slierre]";
								mes "...............";
								next;
								mes "[Sueii Slierre]";
								mes "...............";
								next;
								mes "[Sueii Slierre]";
								mes "...............";
								next;
								switch( select( "What's Wolfchev up to?","What's Regenschirm up to?" ) )
								{
									case 1:
										break;

									case 2:
										break;
								}
								mes "[Sueii Slierre]";
								mes "...............";
								mes "...............";
								mes "...............";
								mes "...............";
								next;
								mes "[Sueii Slierre]";
								mes "...............";
								emotion e_heh,0;
								next;
								mes "[Sueii Slierre]";
								mes "Then, you say that";
								mes "Wolfchev is doing a";
								mes "suspicious research or that";
								mes "the Regenschirm Laboratory";
								mes "is behind all of this?";
								next;
								switch( select( "Both","No" ) )
								{
									case 1:
										break;

									case 2:
										mes "[Sueii Slierre]";
										mes "Where do you see suspicious";
										mes "behaviour?";
										next;
										switch( select( "Regenschirm Laboratory","Wolfchev" ) )
										{
											case 1:
												mes "[Sueii Slierre]";
												mes "Regenschirm is part of";
												mes "the culture of Schwaltzvalt";
												mes "Republic.";
												next;
												mes "[Sueii Slierre]";
												mes "It's not possible that they're";
												mes "doing suspicious research.";
												next;
												switch( select( "What about Regenschirm's Life Form Research?" ) )
												{
													case 1:
														mes "[Sueii Slierre]";
														mes "...............?";
														mes "I don't know much of that";
														mes "kind of research.";
														next;
														break;
												}
												break;

											case 2:
												break;
										}
										break;
								}
								mes "[Sueii Slierre]";
								mes "Anyway, we'll start";
								mes "an investigation about";
								mes "Wolfchev and his research";
								mes "to bright this matter a bit.";
								next;
								mes "[Sueii Slierre]";
								mes "I'll tell you if we";
								mes "find something of interest.";
								set lhz_curse,30;
								close;
				
							case 2:
								mes "[Sueii Slierre]";
								mes "If you're finished,";
								mes "I'd like to get back on";
								mes "task. Please excuse me.";
								close;
						}
				}
				
		}
	}
	else if(lhz_curse == 29) goto L_Evidence;
	else if(lhz_curse == 30)
	{
		set @lhz_invest,rand(1,10);
		if (@lhz_invest < 8)
		{
			mes "[Sueii Slierre]";
			mes "We're still investigating.";
			mes "Please wait.";
			close;
		}
		else if(checkweight(1119,1) != 1)
		{
			mes "^3355FFWait a second! Right now,";
			mes "you have too many items in your";
			mes "inventory. Please come back";
			mes "after you've made more available";
			mes "inventory space.^000000";
			close;
		}
		mes "[Sueii Slierre]";
		mes "Oh good, you're here.";
		mes "You were right all along.";
		mes "In our investigation, we found";
		mes "that Wolfchev was conducting";
		mes "unauthorized and very dangerous";
		mes "research. I owe you our thanks.";
		next;
		switch( select( "What was he doing...?" ) )
		{
			case 1:
				break;
		}
		mes "[Sueii Slierre]";
		mes "It turns out that Wolfchev";
		mes "was kidnapping weak and sick";
		mes "people from the slums and";
		mes "using them as his guinea pigs.";
		mes "Rest assured, he'll be punished";
		mes "for his behavior, if not fired.";
		next;
		mes "[Sueii Slierre]";
		mes "I think you deserve an";
		mes "apology. Without your";
		mes "report, our corporation's";
		mes "reputation could have been";
		mes "potetially damaged. Thank you.";
		next;
		mes "[Sueii Slierre]";
		mes "Yes, there's nothing so";
		mes "taboo as trying to perform";
		mes "Homunculus experiments";
		mes "on people! Anyway, please";
		mes "accept this as a token of";
		mes "our gratitude, adventurer.";
		set lhz_curse,31;
		getitem 617,1;
		getitem 12016,10;
		next;
		mes "[Sueii Slierre]";
		mes "Let me promise you";
		mes "that Rekenber will ensure";
		mes "that this kind of incident";
		mes "will not be repeated and";
		mes "we'll do everything in our";
		mes "power to compensate for this...";
		close;
	}
	else if(lhz_curse > 30)
	{
		mes "[Sueii Slierre]";
		mes "I'm glad to know that";
		mes "we have such proactive";
		mes "and concerned customers";
		mes "such as yourself to support";
		mes "the Rekenber Corporation.";
		close;
	}
	else
	{
		mes "[Sueii Slierre]";
		mes "Excuse me, but you are";
		mes "not allowed to be in here.";
		mes "Please visit the Help Desk";
		mes "if you have any questions about";
		mes "the Rekenber Corporation.";
		mes "Thank you for cooperating.";
		close;
	}
}

lhz_que01,94,24,0	script	#trace	-1,2,2,{

OnTouch:
	if(lhz_curse > 30)
	{
		mes "^3131FFThere's no trace of";
		mes "that mad scientist. Only";
		mes "his stacks of well organized";
		mes "files remain here in the lab.^000000";
		if(lhz_curse == 31) set lhz_curse,32;
		close;
	}
}

lhz_in01,43,114,1	script	#warp1	45,1,1,{

OnTouch:
	if(lhz_curse > 30)
	{
		warp "lhz_que01",97,30;
		end;
	}
	warp "lhz_in01",277,130;
	end;
}

lhz_que01,97,33,1	script	#warp2	45,1,1,{

OnTouch:
	warp "lhz_in01",43,120;
	end;
}

lhz_in01,278,132,1	script	#warp3	45,1,1,{

OnTouch:
	warp "lhz_in01",43,120;
	end;
}

lhz_que01,89,15,3	script	A File	111,{

	mes "............";
	next;
	mes "Name: Engeod";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "Name: Kashutii";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "Name: Prufoz";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "............";
	close;
}

lhz_in01,269,114,3	script	Documents	111,{

	mes "............";
	next;
	mes "Name: Engeod";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "Name: Kashutii";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "Name: Prufoz";
	mes "Age: XX";
	mes "Height: XXX";
	mes "Weight: XX";
	next;
	mes "............";
	close;
}