path: root/npc/quests/quests_lighthalzen.txt

//===== eAthena Script ======================================= 
//= Quest NPCs located in Lighthalzen
//===== By: ================================================== 
//= Persian, Vicious_Pucca, Completed by aoa00
//= Evera, MasterOfMupppets
//===== Current Version: ===================================== 
//= 2.6
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= Event for the Mobster respawn
//= Bio Labs Quest
//= Friendship 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 small bug fixes
//= 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 couls 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]
//============================================================ 
//= aoa's comment
//= In future, Need for new monsters. No-Drop, No-Exp, Weak "Mobster","VENOMOUS","NOXIOUS"
//= In future, Teleport skill is impossible in Lighthalzen.
//============================================================ 

lighthalzen.gat,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.gat,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.gat","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.gat",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.gat","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.gat","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.gat,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.gat",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.gat",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.gat",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.gat,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.gat",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.gat",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.gat",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.gat,341,224,4	script	Piciburn	868,{
	if (BaseLevel > 60) goto Lstart;
	mes "[Piciburn]";
	mes "Keep moving.";
	close;

Lstart:
	if (hzdun == 1) goto L_11;
	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.gat",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.gat",67,193;
	end;

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

L_11:
	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.gat,248,179,0	script	Box#01	111,{
	if (axe == 1) goto L_2;
	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 axe,1;
	close;

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

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

lhz_cube.gat,237,183,0	script	Barrel	111,{
	if (ykey == 1) goto L_4;
	if (box == 1) goto L_2;
	mes "There is a box that looks weak.";
	if (axe == 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 box,1;
	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 ykey,1;
	close;

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

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

lhz_cube.gat,242,201,0	script	Drawer	111,{
	if (knife == 1) goto L_3;
	mes "The drawer is locked.";
	if (redkey == 1) 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 knife,1;
	close;

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

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

lhz_cube.gat,237,198,0	script	Documents	111,{
	if (redkey == 1) goto L_2;
	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 redkey,1;
	close;

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

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

lhz_cube.gat,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 (quadrangle >= 1) goto L_3;
	if (srod1 == 1) goto L_2;
	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.";
	if (srod2 == 1) goto L1_1;
	if (srod1 == 0) set srod1,1;
	close;

L1_1:
	set srod1,1;
	if (@bed == 0) next;
	mes "It looks similar to the 'small stick' that you";
	mes "found under the bed.";
	next;
	mes "You acquired '^FF0000long stick^000000'.";
	set rod,1;
	close;

L_2:
	set @bed,1;
	if (rod == 0 && srod1 == 1 && srod2 == 1) goto L1_1;
	mes "As you look under the bed, you see that there";
	mes "is a small object covered in dust.";
	next;
	input @bed$;

	if (@bed$ == "long stick" && rod == 1 || @bed$ == "Long Stick" && rod == 1) goto L2_1;
	mes "It looks like you need some kind of long item to";
	mes "Get the item out, you can't reach it!";
	close;

L2_1:
	mes "You used the long stick to pull it out.";
	next;
	mes "You acquired '^FF0000cube model^000000'.";
	set quadrangle,1;
	close;

L_3:
	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.gat,229,184,0	script	Cup	111,{
	if (fkey == 1) goto L_2;
	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 fkey,1;
	close;

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

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

lhz_cube.gat,233,206,0	script	Shelf	111,{
	if (gkey == 1) goto L_2;
	mes "There are lots of bottles filled with acids lined up";
	mes "Along the shelf, they have different labels.";
	next;
	input @lathe$;

	if (fkey == 1 && @lathe$ == "rusty key" || fkey == 1 && @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 gkey,1;
	close;

L_2:
	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.gat,249,191,0	script	Closet	111,{
	if (polygon >= 1) goto L_4;
	mes "There is a closet with lots of drawers.";
	if (gkey == 1) goto L_2;
	if (gkey == 0) 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 polygon,1;
	close;

L_4:
	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.gat,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 (rod == 1 || srod2 == 1) goto L1_2;
	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.";
	if (srod2 == 0) set srod2,1;
	if (srod2 == 0) close;

L1_1:
	if (@desk == 0) 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'";
	set rod,1;
	close;

L1_2:
	set @desk,1;
	if (srod1 == 1 && srod2 == 1) goto L1_1;
	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.gat,237,206,0	script	Picture	111,{
	if (num1 > 0) goto L_2;
	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 (knife == 1 && @knife$ == "small knife" ||knife == 1 &&  @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;
	goto L_2;

L_2:
	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.gat,224,192,0	script	Generator	111,{
	if (machine == 1) goto L_2;
	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 (ykey == 1 && @key$ == "yellow key" || ykey == 1 && @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 machine,1;
	close;

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

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

lhz_cube.gat,248,205,0	script	Lamp	111,{
	if (bkey == 1) goto L_3;
	if (machine == 1) 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 bkey,1;
	close;

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

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

lhz_cube.gat,248,193,0	script	Box#02	111,{
	if (countitem(2657) > 0 || @gotkey || hzdun) goto L_5;
	mes "There is a box with three holes.";
	next;
	if (ellipse == 2 && quadrangle == 2 && polygon == 2) goto L_4;
	menu "Ellipse hole",L_1,"Square hole",L_2,"Polygonal hole",L_3;

L_1:
	if (ellipse == 2) goto L1_2;
	input @ellipse$;

	if (ellipse == 1 && @ellipse$ == "ellipse model" ||ellipse == 1 && @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 ellipse,2;
	close;

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

L_2:
	if (quadrangle == 2) goto L2_2;
	input @quadrangle$;

	if (quadrangle == 1 && @quadrangle$ == "cube model" || quadrangle == 1 && @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 quadrangle,2;
	close;

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

L_3:
	if (polygon == 2) goto L3_2;
	input @polygon$;

	if (polygon == 1 && @polygon$ == "polygon model" || polygon == 1 && @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 polygon,2;
	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 @gotkey,1;
	getitem 2657,1;
	close;

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

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

lhz_cube.gat,224,197,0	script	Test Tube	111,{
	if (countitem(2657) > 0) goto L_3;
	if (ellipse >= 1) 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 (bkey == 1 && @key$ == "black key" || bkey == 1 && @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 ellipse,1;
	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.";
	close2;
	set axe,0;	set ykey,0;	set box,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 knife,0;	set redkey,0;	set srod1,0;	set srod2,0;
	set fkey,0;	set gkey,0;	set polygon,0;	set machine,0;
	set bkey,0;	set ellipse,0;	set quadrangle,0;	set rod,0;
	set hzdun,1;
	warp "lhz_cube.gat",177,13;
	end;
}

// Lighthalzen Pickpocket Mini-Quest
// By Lord Gywall
// Version 1.0
// Tested on: eAthena SVN Stable (Unknown version)
// Version History:
// 1.0 - Completed and working

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

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

lighthalzen.gat,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.gat,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.gat,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.";
	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.gat,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.gat,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_Dialog;
	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_Dialog:
	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;
	if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+99000;
	if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+198000;
	if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+396000;
	if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+594000;
	if(BaseLevel > 90)set BaseExp,BaseExp+792000;
	getitem 7350,1;
	set friendship,11;
	set friendship3,0;
	close;

}

yuno_in04.gat,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.gat,169,109,1	script	Ambitious Hollgrehenn	111,{

	mes "*Hollgrehenn: The Ambition*";
	mes "By Aragham Caul*";
	mes "";
	mes "";
	mes "";
	mes "";
	mes "Publisher:";
	mes "Muha Books, Co.";
	next;
	mes "...";
	mes "He would stop at nothing";
	mes "to have the greatest weapon";
	mes "in the world in his possession.";
	mes "He became a smith so that he";
	mes "could discern which weapons";
	mes "were the most powerful...";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "That's strange...";
	mes "The next page";
	mes "has been torn out.";
	close;

}

yuno_in04.gat,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;

}


//==============================================================
// Bio Ethics Quest
//==============================================================
//=====================Requires Bug Testing=====================
lhz_in01.gat,46,125,6	script	Rekenber Guard	867,{
	mes "[Rekenber Guard]";
	if(getequipid(9) == 2243){
		mes "......................";
		next;
		switch(select("Nice day, huh?","Cancel")){
			case 1:
				mes "[Rekenber Guard]";
				mes "...";
				close2;
				warp "lhz_in01.gat",282,172;
				end;
				break;
			case 2:
				close;
				break;
		}
	}
	else{
		mes "...";
		close;
	}
}
lhz_in01.gat,282,172,0	script	BioEthTrg1::BETrg1	-1,1,1{
	OnTouch:
		mes "[Researcher]";
		mes "This is a restricted";
		mes "area. Please leave";
		mes "immediately.";
		close2;
		warp "lhz_in01.gat",199,131;
		end;
}
		
lhz_in01.gat,285,169,7	script	Researcher	865,{
//Unknown Text
end;
}
lhz_in01.gat,199,137,8	script	Scientist	865,{
	mes "[Scientist]";
	mes "Whoa whoa~!";
	mes "Please! Don't";
	mes "touch anything!";
	mes "I'm dealing with highly";
	mes "volatile chemicals here!";
	close;
}
lhz_in01.gat,204,138,6	script	Keshibien	750,{
	if(bioeth >= 2){
		//Unofficial text
		mes "[Keshibien]";
		mes "Hello there~";
		mes "Are you looking for";
		mes "more information about";
		mes "homunculus?";
		next;
		mes "[Keshibien]";
		mes "I shouldn't say";
		mes "anything, but look";
		mes "for someone named";
		mes "Bringel in Lighthalzen.";
		if(bioeth == 2) set bioeth,3;
		close;
		//Unofficial text end
	}
	mes "[Keshibien]";
	mes "Hello there~";
	mes "You must be from";
	mes "Rune-Midgarts, right?";
	mes "It's nice to meet you.";
	next;
	mes "[Keshibien]";
	mes "I hear that the";
	mes "Alchemists from";
	mes "over there are pretty";
	mes "skilled. I wonder if I'll";
	mes "ever get the change to";
	mes "collaborate with any of them...";
	close;
}
lhz_in01.gat,203,123,8	script	Scientist	750,{
	mes "[Scientist]";
	mes "Alright. Pull one test";
	mes "tube out of the machine,";
	mes "replace the other test";
	mes "tube over here and then";
	mes "clean the first test tube?";
	next;
	mes "[Scientist]";
	mes "Or do I clean the test tube,";
	mes "put it into the machine and";
	mes "then replace the other one?";
	mes "I'm so confused with this";
	mes "procedure! If only I didn't";
	mes "lose the instructions...";
	close;
}
lhz_in01.gat,221,131,3	script	Scientist	865,{
	mes "[Scientist]";
	mes "It takes so long for";
	mes "this device to process";
	mes "all the data and give me";
	mes "the results. Still, the wait";
	mes "heightens my anticipation...";
	close;
}
lhz_in01.gat,218,141,0	script	Alchemist	98,{
	mes "[Alchemist]";
	mes "Out of all humans,";
	mes "I believe Kellasus is";
	mes "the one who has come";
	mes "closest to discovering";
	mes "the secrets of life. He";
	mes "never fails to amaze me...";
	next;
	mes "[Alchemist]";
	mes "I'm also impressed by the";
	mes "fact that he doesn't let his";
	mes "work keep him from being the";
	mes "best father and husband that";
	mes "he can for his family. He's";
	mes "an example for all of us.";
	next;
	mes "[Alchemist]";
	mes "Kellasus really is";
	mes "an amazing person.";
	mes "There isn't one Alchemist";
	mes "that I know who doesn't look";
	mes "up to him in the realms of";
	mes "both science and personal life.";
	close;
}
lhz_in01.gat,224,140,8	script	Kellasus	57,{
	if(MISC_QUEST&64){
		mes "[Kellasus]";
		mes "I already taught you";
		mes "skills of the homunculus...";
		if (getskilllv(238) == 0 && class == 18) skill 238,1,0;
		close;
	}
	switch(bioeth){
	default:
		break;
	case 4:
		mes "[Kellasus]";
		mes "...You're really hard to handle.";
		mes "I don't think I should";
		mes "teach you biotechnology.";
		mes "Besides that, you know";
		mes "nothing about homunculus!";
		next;
		menu "I've learned that",-;
		mes "[Kellasus]";
		mes "Oh really?";
		mes "I will have to test you";
		mes "on your knowledge of";
		mes "homunculus then.";
		next;
		mes "[Kellasus]";
		mes "First question.";
		mes "What is the skill that lets the";
		mes "homunculus stay in peace?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Rest"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "That's right. Second question.";
		mes "What is the item";
		mes "that is required to";
		mes "summon or create";
		mes "a homunculus?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Germination Breed"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "Correct. But this is not the end yet.";
		mes "What is the name";
		mes "of a skill";
		mes "that could let you";
		mes "revive a homunculus?";
		input @kelques$;
		next;
		mes "[Kellasus]";
		if(@kelques$ != "Resurrect Homunculus"){
			mes "Hmpf. I knew you had";
			mes "no knowledge on";
			mes "homunculus.";
			close;
		}
		mes "After all these discussions,";
		mes "I won't teach anyone";
		mes "the skills of homunculus.";
		mes "The decision is final";
		mes "and that's it!";
		set bioeth,5;
		close;
		break;
	case 5:
		mes "[Kellasus]";
		mes "After all these discussions,";
		mes "I won't teach anyone";
		mes "the skills of homunculus.";
		mes "The decision is final";
		mes "and that's it!";
		close;
		break;
	case 6:
	//Unofficial text and story -.-;
		mes "[Kellasus]";
		mes "Oh it's you again? You're really determined.";
		mes "Well most of the Alchemist";
		mes "are people who never";
		mes "let go of their dreams";
		next;
		menu "Let's talk about others",-;
		mes "[Kellasus]";
		mes "You've spoke to my son?";
		mes "What did he say?";
		next;
		mes "[Kellasus]";
		mes "...";
		next;
		mes "[Kellasus]";
		mes "I guess I could teach you a few skills..";
		//Gives player bio ethics and sets bitshift for quest finished
		if(class == 18) skill 238,1,0;
		set MISC_QUEST,MISC_QUEST|64;
		set bioeth,0;
		close;
	}
	switch(@keltalk){
	default:
		mes "[Kellasus]";
		mes "Hmm. Who decides what";
		mes "is right and wrong? What is";
		mes "meant to be known and what";
		mes "secrets were never intended";
		mes "for mankind to understand?";
		if(class == 18) set @keltalk,1;
		close;
		break;
	case 1:
	//No official text to put here, so I just repeated first text
		mes "[Kellasus]";
		mes "Hmm. Who decides what";
		mes "is right and wrong? What is";
		mes "meant to be known and what";
		mes "secrets were never intended";
		mes "for mankind to understand?";
		set @keltalk,2;
		close;
		break;
	case 2:
		mes "[Kellasus]";
		mes "Haven't I told you not to come back again?";
		mes "Please leave now!";
		mes "No matter what you do.";
		mes "I won't teach you anything about homunculus";
		set @keltalk,3;
		set bioeth,1;
		close;
		break;
	case 3:
		mes "[Kellasus]";
		mes "Haven't I told you not to come back again?";
		mes "Please leave now!";
		mes "No matter what you do.";
		mes "I won't teach you anything about homunculus";
		close;
		break;
	}
}
lhz_in01.gat,217,121,6	script	Repairman	851,{
	mes "[Repairman]";
	mes "No wonder these things";
	mes "break all the time! These";
	mes "machines have been totally";
	mes "abused! Ugh, there's no";
	mes "appreciation for all of this";
	mes "convenient technology...";
	next;
	mes "[Repairman]";
	mes "Yeah, all of this lab";
	mes "equipment is really sensitive,";
	mes "not to mention expensive. If";
	mes "you ever handle this stuff, you";
	mes "need to be extra cautious.";
	close;
}
lhz_in01.gat,225,122,4	script	Skrajiad	754,{
	mes "[Skrajiad]";
	mes "Alchemy is wondrous...";
	mes "It incorporates every";
	mes "science and many other";
	mes "fields of knowledge that";
	mes "it's not enough to be jack";
	mes "of all trades... No...";
	next;
	mes "[Skrajiad]";
	mes "In a sense, you must";
	mes "be a master of all trades";
	mes "to be proficient in Alchemy";
	mes "But it's incredibly rewarding to";
	mes "those of us who never stop askins";
	mes "how and why our world works.";
	if(bioeth == 1) set bioeth,2;
	close;
}
lhz_in02.gat,269,273,4	script	Bringel	709,{
//Unofficial Text
	if(bioeth > 3 || MISC_QUEST&64){
		if(getskilllv(247) == 0 && class == 18) skill 247,1,0;
	}
	if(bioeth == 3){
		mes "[Bringel]";
		mes "I see you're here to";
		mes "learn about homunculus...";
		mes "I will teach you a";
		mes "valuable skill to use.";
		//Learn res homun
		if(class == 18) skill 247,1,0;
		set bioeth,4;
		close;
	}
	mes "[Bringel]";
	mes "Isn't this hotel great?";
	mes "I can relax on the couch";
	mes "And not care about what I";
	mes "did in the past...";
	close;
}
lhz_in03.gat,106,34,4	script	Golin	706,{
//Unofficial text
	if(bioeth == 5){
		mes "[Golin]";
		mes "Did you see my";
		mes "daddy at the lab?";
		mes "Tell him I said hi!";
		set bioeth,6;
		close;
	}
	mes "[Golin]";
	mes "Where's daddy?";
	mes "I really want";
	mes "daddy to come back";
	mes "from the lab.";
	close;
}