//===== eAthena Script ======================================= 
//= Einbroch Town
//===== By: ================================================== 
//= Nexon
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= eAthena Revision 3000+
//===== Description: ========================================= 
//=
//===== Additional Comments: ================================= 
//= 0.2 Added some NPCs [MasterOfMuppets]
//= 0.3 Added a few npcs by reddozen [MasterOfMuppets]
//= 0.4 Added a crappy quest, have fun guys... [MasterOfMuppets]
//= 0.4a Added exp bonus for the factory quest, borrowed from a Korean fansite.
//= 0.4b Added missing close [Komurka]
//= 0.5 Added Temporal Locations of Gunslinger Job Change map.
//=	Info provided by RockmanEXE [erKURITA]
//= 0.6 Implemented a crap quest [MasterOfMuppets]
//= 0.7 Implemented an inn NPC [MasterOfMuppets]
//= 0.8 Implemented the Shinokas quest, thanks to [MasterOfMuppets]
//= 	Dj-Yhn for scripting it.
//= 0.9 Removed Duplicates [Silent]
//= 1.0 Implemented the Lover's quest. [MasterOfMuppets]
//============================================================


//== some boards, signs ======================
einbroch.gat,220,208,5	script	Notice Board#01	858,{
	mes "[Weapon Shop Entrance]";
	close;
}

einbroch.gat,183,174,5	script	Bulletin Board#01	858,{
	mes "East - Weapon Shop, Hotel";
	mes "South - Factory";
	mes "Southwest - Airship Repair Shop,";
	mes "Laboratory";
	mes "Northwest - Airport";
	close;
}

einbroch.gat,244,255,5	script	Bulletin Board#02	858,{
	mes " ";
	mes " Train Station";
	close;
}
	
einbroch.gat,68,206,5	script	Bulletin Board#03	858,{
	mes " ";
	mes " Airship Airport";
	close;
}
	
einbroch.gat,162,256,5	script	Bulletin Board#04	858,{
	mes "East - Train Station";
	mes "Southeast - Hotel";
	mes "South - Weapon Shop, Factory";
	mes "Southwest - Airport, Airship Repair";
	mes "Shop, Laboratory";
	close;
}

einbroch.gat,235,141,5	script	Bulletin Board#05	858,{
	mes "Southwest- Airship Repair Shop,";
	mes "Laboratory";
	mes "Northwest- Airport";
	mes "Northwest- Weapon Shop, Hotel, Train";
	mes "Station";
	close;
}

//===== Town NPC ===========================================
function	script	Ein_Tower	{
	mes "["+ @Tower_Name$ +"]";
	mes "Good day~";
	mes "I'm " + @Tower_Name$ +", your";
	mes "guide to exploring";
	mes "the Einbroch Tower.";
	next;
	mes "["+ @Tower_Name$ +"]";
	mes "Einbroch Tower offers";
	mes "the best view of our city";
	mes "and it's a great place to";
	mes "meet with friends or take";
	mes "a date. The Einbroch Tower";
	mes "admission fee is 10 zeny.";
	next;
	mes "["+ @Tower_Name$ +"]";
	mes "Right now, we're offering";
	mes "a special promotion called";
	mes "the Apple Combo Set for only";
	mes "20 zeny. This set includes";
	mes "Einbroch Tower admission";
	mes "and an Apple to snack on.";
	next;
	menu "Tower Admission Only",s_Tower,"Apple Combo Set",s_Apple,"Cancel",-;

	mes "["+ @Tower_Name$ +"]";
	mes "I see.";
	mes "Feel free to";
	mes "come back any";
	mes "time. Thank you.";
	close2;
	return;
	
s_Tower:
	if(Zeny < 10)goto s_NEnough;
	set Zeny,Zeny - 10;
s_Tower2:
	mes "["+ @Tower_Name$ +"]";
	mes "Thank you for";
	mes "using our services.";
	mes "Let me guide you to";
	mes "the tower right away.";
	close2;
	warp "einbroch.gat",174,204;
	return;
	
s_Apple:
	if(Zeny < 20)goto s_NEnough;
	mes "["+ @Tower_Name$ +"]";
	mes "Before I guide you to";
	mes "the tower, let me check";
	mes "your status to insure";
	mes "your safety before I give";
	mes "you the Apple Combo Set.";
	next;
	set Zeny,Zeny - 20;
	getitem 512,1;
	goto s_Tower2;
	
s_NEnough:
	mes "["+ @Tower_Name$ +"]";
	mes "I'm sorry but you don't";
	mes "have enough zeny for the";
	mes "requested service.";
	close2;
	return;
}
	
einbroch.gat,176,172,5	script	Khemko	855,{
	set @Tower_Name$,"Khemko";
	callfunc "Ein_Tower";
	end;
}
	
einbroch.gat,218,198,5	script	Mark	855,{
	set @Tower_Name$,"Mark";
	callfunc "Ein_Tower";
	end;
}
	
einbroch.gat,174,228,5	script	Oberu	855,{
	set @Tower_Name$,"Oberu";
	callfunc "Ein_Tower";
	end;
}
	
einbroch.gat,175,196,5	script	Morei	854,{
	mes "[Morei]";
	mes "Greetings,";
	mes "I am Morei,";
	mes "Assistant Guide";
	mes "of Einbroch Tower.";
	next;
	mes "[Morei]";
	mes "If you wish to return";
	mes "to the ground floor,";
	mes "please let me know.";
	mes "Would you like to go";
	mes "back to ground level?";
	next;
	menu "Yes.",s_Goback,"No.",-;

	mes "[Morei]";
	mes "I see.";
	mes "I hope you";
	mes "enjoy your time";
	mes "in Einbroch Tower.";
	close;
s_Goback:
	mes "[Morei]";
	mes "I see.";
	mes "Let me lead you";
	mes "to the ground floor.";
	mes "Thank you for using";
	mes "our services.";
	close2;
	set @towerwarp,rand(1,3);
	if(@towerwarp == 0)warp "einbroch.gat",218,196;
	if(@towerwarp == 1)warp "einbroch.gat",178,172;
	if(@towerwarp == 3)warp "einbroch.gat",172,228;
	end;
}
	
einbroch.gat,208,208,3	script	Kesunboss	850,{
	mes "[Kesunboss]";
	mes "Lady Calla is the";
	mes "epitome of elegance,";
	mes "a veritable goddess";
	mes "of Einbroch";
	next;
	mes "[Kesunboss]";
	mes "Her gentle voice,";
	mes "that angelic smile, her";
	mes "kindness and warmth";
	mes "towards other people";
	mes "and above all...";
	next;
	mes "[Kesunboss]";
	mes "Calla's family";
	mes "is wealthy beyond";
	mes "imagination! She's";
	mes "perfect! I don't know who";
	mes "she'll marry, but he'd be";
	mes "a lucky gentleman, I'm sure.";
	next;
	mes "[Kesunboss]";
	mes "Lady Calla lives in a magnificent";
	mes "mansion that makes other houses";
	mes "look like schacks in comparison.";
	mes "Head north and then west from";
	mes "here if you wish to marvel in its";
	mes "beauty and elegance.";
	close;
}

einbroch.gat,232,255,5	script	Khowropher	847,{
	mes "[Khowropher]";
	mes "^6A6A6A*Cough cough*^000000";
	mes "Jiminy! The air here";
	mes "is so thick and grimy!";
	mes "And it's worse for us old";
	mes "people with breathing";
	mes "problems! ^111111*Haaack*^000000";
	next;
	mes "[Khowropher]";
	mes "I don't care if they keep";
	mes "building more and more";
	mes "factories and homes in this";
	mes "town. Still, I'd like to spend";
	mes "the rest of my life somewhere";
	mes "quiet and with clean air...";
	next;
	mes "[Khowropher]";
	mes "Then again, Einbroch is my";
	mes "hometown and I can't just up";
	mes "and leave. I suppose it's my";
	mes "fate to suffer from this fould air";
	mes "until the day I die.^6A6A6A*Sigh...*";
	close;
}

einbroch.gat,259,327,5	script	Leslie	846,{
	mes "[Leslie]";
	mes "^6A6A6A*Cough cough*^000000";
	mes "Laaaand sakes!";
	next;
	mes "[Leslie]";
	mes "An old woman like me";
	mes "can't breathe this air! How";
	mes "do people even live in all this";
	mes "smog? Sure, the air in Einbech";
	mes "isn't pristine, but the air here in";
	mes "Einbroch is much worse! ^111111*Cough~!*^000000";
	next;
	mes "[Leslie]";
	mes "I hate coming here";
	mes "sometimes! The air is";
	mes "totally polluted and this";
	mes "city is full of stuck up";
	mes "pricks! But they sell stuff";
	mes "here I can't buy back home...";
	close;
}

einbroch.gat,232,272,3	script	Train Station Staff#01::EinbrochTrain	852,{
	mes "[Staff]";
	mes "Welcome to";
	mes "the Train Station.";
	mes "Trains to Einbech";
	mes "are always running";
	mes "so if you miss one,";
	mes "it's no problem.";
	next;
	mes "[Staff]";
	mes "The fare to board the";
	mes "train that runs the Einbroch";
	mes "to Einbech line is 200 zeny.";
	mes "Would you like to buy a ticket?";
	next;
	menu "Yes.",s_Yes,"No.",-,"About the Enviroment...",s_Enviroment;

	mes "[Staff]";
	mes "Very well, then.";
	mes "Please enjoy your";
	mes "stay in Einbroch.";
	close;
s_Yes:
	if(Zeny < 200)goto s_NEnough;
	mes "[Staff]";
	mes "Thank you";
	mes "very much.";
	mes "Have a safe trip.";
	mes "^111111*Ahem*^000000 All aboard!";
	close2;
	set Zeny,Zeny - 200;
	warp "einbech.gat",43,215;
	end;
s_NEnough:
	mes "[Staff]";
	mes "I'm sorry but you";
	mes "do not have enough";
	mes "money to pay the fee.";
	close;
s_Enviroment:
	mes "[Staff]";
	mes "Einbroch is infamous for";
	mes "its air pollution, no doubt";
	mes "caused by the industrial";
	mes "facilities located here.";
	mes "it's really horrible...";
	next;
	mes "[Staff]";
	mes "Sometimes the air pollution";
	mes "gets so bad that it becomes";
	mes "hard to breathe. If you hear";
	mes "the Einbroch Smog Alert, you";
	mes "should find shelter immediately!";
	close;
}
	
einbroch.gat,252,301,3	duplicate(EinbrochTrain)	Train Station Staff#02	852

einbroch.gat,228,121,5	script	Little Toby	855,{
	mes "[Little Toby]";
	mes "Excuse me...";
	mes "But I'm lost!";
	mes "I can't find my";
	mes "mom or dad!";
	next;
	mes "[Little Toby]";
	mes "A-am I at the airport?!";
	mes "My parents are suposed";
	mes "to come get me, but I still";
	mes "haven't found them! We just";
	mes "moved here, so i dont know";
	mes "where anything is!";
	next;
	mes "[Little Toby]";
	mes "W-wait!";
	mes "Where are you";
	mes "going?! Dont leave";
	mes "me, I'm all alone...!";
	close;
}
	
einbroch.gat,229,149,3	script	Sleik	854,{
	mes "[Sleik]";
	mes "Surprisingly, we have";
	mes "a Train Station that everyone";
	mes "has been calling a victory for";
	mes "science. I mean, shouldn't we";
	mes "be more amazed by the airship";
	next;
	mes "[Sleik]";
	mes "Now, if you want to know";
	mes "where the train actually goes";
	mes "I wouldn't be able to tell you.";
	mes "After all, I never rode it. But";
	mes "still, I guess having our own";
	mes "Train Station is a good thing";
	close;
}

einbroch.gat,236,191,3	script	Tan	855,{
	mes "[Tan]";
	mes "All the factories";
	mes "here in Einbroch are";
	mes "causing a serious air";
	mes "pollution problem.";
	next;
	mes "[Tan]";
	mes "I'm an Airship engineer and";
	mes "everyday, all day long, I deal";
	mes "with oil stains and all sorts";
	mes "of pollutants. i'm supprised";
	mes "I havn't gotten sick yet...";
	next;
	mes "[Tan]";
	mes "Still, I try to be careful";
	mes "when I can. Whenever I go";
	mes "out into the city's red fog,";
	mes "I always wear my Flu Mask.";
	mes "If you'll be here a while,";
	mes "you should carry one with you.";
	close;
}

einbroch.gat,132,84,3	script	Liotzburg	853,{

if(EinFactory > 13)goto s_Budget2;
if(EinFactory == 13)goto s_Budget;
	mes "[Liotzburg]";
	mes "I'm the plant";
	mes "superintendant of this";
	mes "factory. Most of my employees";
	mes "are diligent workers. I can't say";
	mes "that of everyone, but overall we're";
	mes "doing an excellent job. Ha ha ha~!";
	next;
	mes "[Liotzburg]";
	mes "So long as this factory";
	mes "is well maintained, we won't";
	mes "have to worry about this city's";
	mes "safety. The field overseer,";
	mes "Zelmeto, is also very reliable.";
	next;
	mes "[Liotzburg]";
	mes "I can trust Zelmeto";
	mes "to look after things,";
	mes "so there's no need for";
	mes "me to go inside the factory.";
	mes "Delegating work is great!";
	next;
	mes "[Liotzburg]";
	mes "Our factory will";
	mes "continue to develop";
	mes "and everyone will be";
	mes "proud of the progress";
	mes "we're making. Yes, I can";
	mes "assure you of that!";
	close;
s_Budget:
	mes "[Liotzburg]";
	mes "Why waste money?";
	mes "We haven't had any";
	mes "problems so far! Look,";
	mes "everything's fine! Why";
	mes "are you exaggerating";
	mes "such small details?";
	next;
	mes "[Liotzburg]";
	mes "The field overseer,";
	mes "Zelmeto, just came by to";
	mes "ask for a budget increase.";
	mes "Well, I think he's lying!";
	mes "Everything's perfect!";
	if(EinFactory == 13)set EinFactory,14;
	close;
s_Budget2:
	mes "[Liotzburg]";
	mes "What...?";
	mes "Factory Repair";
	mes "budget? No way!";
	next;
	goto s_Budget;

}

ein_in01.gat,31,217,3	script	Cendadt	851,{

	mes "[Cendadt]";
	mes "This factory has a lot";
	mes "of things that need fixing,";
	mes "pronto! I'm amazed that";
	mes "the place is still operating!";
	next;
	mes "[Cendadt]";
	mes "Lucky for us, I head that";
	mes "some altruistic adventurers";
	mes "have been donating materials";
	mes "to help keep this factory from";
	mes "falling apart... Or worse.";
	mes "But that's just a rumor.";
	next;
	mes "[Cendadt]";
	mes "^6A6A6A*Sigh*^000000";
	mes "Even if it is true,";
	mes "there's nothing no one";
	mes "here can do. Nobody has";
	mes "the courage to challenge";
	mes "the system, you know?";
	next;
	mes "[Cendadt]";
	mes "I...";
	mes "I better get";
	mes "back to work";
	mes "before I get";
	mes "in trouble...";
	close;
}

ein_in01.gat,36,204,3	script	Rombell	851,{

	mes "[Rombell]";
	mes "It's great that the";
	mes "factory is making good";
	mes "business and drawing";
	mes "in a lot of profit, but I still";
	mes "have one major convern.";
	next;
	mes "[Rombell]";
	mes "The ammount of pollution";
	mes "that this place is causing";
	mes "is horrific! We've got these";
	mes "machines blowing out toxic";
	mes "gas all day long! The air";
	mes "can't be safe for very long...";
	next;
	mes "[Rombell]";
	mes "I mean, the air we're";
	mes "breathing right now is";
	mes "pretty foul and things";
	mes "are only going to get";
	mes "worse. How can we";
	mes "solve this problem?";
	close;
}

ein_in01.gat,49,202,3	script	Dorf	851,{

	mes "[Dorf]";
	mes "machines are sooo";
	mes "convenient. Just look";
	mes "at this contraption easily";
	mes "do tasks that'd be tough";
	mes "for me to finish alone";
	next;
	mes "[Dorf]";
	mes "Now this is what";
	mes "I call technology!";
	mes "Sure, it takes effort and";
	mes "money to make one of";
	mes "these, but what do I care?";
	next;
	mes "[Dorf]";
	mes "I've got no problems,";
	mes "so long as this freaking";
	mes "thing keeps working the";
	mes "way I want it to!";
	close;
}

ein_in01.gat,48,220,3	script	Lowe	851,{

	mes "[Lowe]";
	mes "...";
	next;
	mes "[Lowe]";
	mes "...";
	mes "......";
	next;
	mes "[Lowe]";
	mes "...";
	mes "......";
	mes ".........";
	next;
	mes "[Lowe]";
	mes "Hey. Why are you";
	mes "looking at me like";
	mes "that? There's no idle";
	mes "chatting allowed at work.";
	mes "If Canphotii catches";
	mes "you, you'll be punished";
	next;
	mes "[Lowe]";
	mes "Oh wait...";
	mes "You don't work here.";
	mes "I appologize, that kind";
	mes "of reaction's an old";
	mes "habit for me, adventurer.";
	close;
}

ein_in01.gat,43,253,4	script	Canphotii	852,{

	mes "[Canphotii]";
	mes "Hustle, hustle!";
	mes "Pick up the pace!";
	mes "Anyone working too";
	mes "slowly will be punished!";
	next;
	mes "[Canphotii]";
	mes "Can't you understand";
	mes "that?! Now go to your";
	mes "station and get back to";
	mes "work! Wait, are you even";
	mes "an employee? If not, then";
	mes "stop wandering around!";
	next;
	mes "[Canphotii]";
	mes "You're not supposed";
	mes "to be able to get in here!";
	mes "I can't believe they let you";
	mes "in! This requires extreme";
	mes "disciplinary action!";
	close;
}

ein_in01.gat,68,209,4	script	Khashurantze	852,{

	mes "[Khashurantze]";
	mes "I'm sorry, but you need";
	mes "special authority in order";
	mes "to enter this place. I'll have";
	mes "to ask you to leave right now.";
	if(EinFactory > 0)goto L_work;
	close2;
	warp "einbroch.gat",179,63;
	end;

L_work:
	next;
	mes "[Khashurantze]";
	mes "Oh? Mr. Zelmeto asked you to help out?";
	mes "In that case excuse me.";
	close;
}

ein_in01.gat,113,211,3	script	Treinz	851,{

	mes "[Treinz]";
	mes "If you just pay me money,";
	mes "I'll be your slave! There's";
	mes "nothing I won't do! Anything";
	mes "is fair game. Hell, I'll get buck";
	mes "naked if you pay me enough.";
	next;
	mes "[Treinz]";
	mes "If you pay me what I'm";
	mes "worth, I'll work hard at";
	mes "any task you set me to.";
	mes "Sure, mining's rough, but";
	mes "as long as the zeny's coming";
	mes "in, I'm happy. Heh heh heh~";
	close;
}

ein_in01.gat,84,218,3	script	Tsuen	851,{

	mes "[Tsuen]";
	mes "There was a time";
	mes "when I dreamed of";
	mes "being an adventurer,";
	mes "just like you. But that";
	mes "was a long time ago...";
	next;
	mes "[Tsuen]";
	mes "Now, I'm nothing but";
	mes "a factory manager. Still,";
	mes "even if my job's not that";
	mes "great, I'm pretty satisifed.";
	mes "I'm sure people enjoy the";
	mes "products I oversee and all...";
	next;
	mes "[Tsuen]";
	mes "Maybe my life was meant";
	mes "to be this way, even if it's";
	mes "not how I planned it. But the";
	mes "time will come when I up and";
	mes "leave and travel the world";
	mes "once I get my chance!";
	next;
	mes "[Tsuen]";
	mes "I hope the day will";
	mes "come when I can meet";
	mes "you out in that big wide";
	mes "world and greet you as";
	mes "a fellow adventurer.";
	close;
}

ein_in01.gat,85,261,3	script	Zherin	851,{

	mes "[Zherin]";
	mes "I'm in charge of this";
	mes "blast furnace which";
	mes "contains all of this";
	mes "boiling magma.";
	next;
	mes "[Zherin]";
	mes "Even though it doesn't";
	mes "require actual labor, this";
	mes "job is pretty tiring. I've got";
	mes "to pay careful attention all";
	mes "the time. It's pretty stressful.";
	next;
	mes "[Zherin]";
	mes "Still, I'm proud of my job";
	mes "since I have the responsibility";
	mes "of ensuring employee safety.";
	mes "Anyway, don't get too close";
	mes "to the furnace. It won't do if";
	mes "you get burned on accident!";
	close;
}

ein_in01.gat,64,271,3	script	Vonstein	851,{

	mes "[Vonstein]";
	mes "Staring at this";
	mes "bubbling hot liquid";
	mes "metal gives me a good";
	mes "feeling inside. It's like";
	mes "that stuff can melt anything!";
	next;
	mes "[Vonstein]";
	mes "Imagine covering an";
	mes "entire street of people";
	mes "with that stuff! Bwahah--";
	mes "Oh, I'm sorry if I'm talking";
	mes "crazy talk! I'm just kidding~";
	close;	
}

ein_in01.gat,33,275,9	script	Pevtatin	848,{

	mes "[Pevtatin]";
	mes "Good god!";
	mes "I'm so stressed!";
	mes "It's been nonstop";
	mes "since I moved here!";
	next;
	mes "[Pevtatin]";
	mes "The work is tough and";
	mes "already the boss hates";
	mes "me! I didn't move here";
	mes "for this! Still, the pay is";
	mes "decent so I guess I should";
	mes "endure just a little longer.";
	next;
	mes "[Pevtatin]";
	mes "Here goes...!";
	mes "Yo-heave-ho!";
	mes "Yo-heave-ho~!";
	close;
}

ein_in01.gat,87,237,3	script	Dinje	850,{

	mes "[Dinje]";
	mes "Do you know why a woman";
	mes "like me has to work in this";
	mes "factory? I'll tell you why...";
	next;
	mes "[Dinje]";
	mes "My lazy husband, Gesin,";
	mes "is just lying there on the";
	mes "ground! So I have to work";
	mes "in order to support us!";
	next;
	mes "[Dinje]";
	mes "We can't rest for even";
	mes "a second if we want to save";
	mes "enough money to become";
	mes "wealthy and powerful some";
	mes "day. Don't you understand?";
	next;
	mes "[Dinje]";
	mes "Well, my husband obviously";
	mes "doesn't! How can he not know";
	mes "how the real world works?!";
	mes "Hey, kick his ass for me if";
	mes "he doesn't wake up soon!";
	close;
}

ein_in01.gat,103,238,9	script	Gesin	849,{

	mes "[Gesin]";
	mes "Arrgh!";
	mes "This is killing me!";
	mes "Why should I be rich?!";
	mes "What's wrong with living";
	mes "within our means?";
	next;
	mes "[Gesin]";
	mes "I've got no problem";
	mes "with my current way";
	mes "of life, but the old ball";
	mes "and chain disagrees.";
	mes "Why is she so obsessed";
	mes "with riches and power?";
	next;
	mes "[Gesin]";
	mes "Well, in any case, I'd";
	mes "like to help her, but I can't";
	mes "get up! I'm exhausted and";
	mes "my body is just overtaxed.";
	mes "I have no strength at all.";
	next;
	mes "[Gesin]";
	mes "This is horrible~";
	mes "I should be resting";
	mes "instead of worrying";
	mes "about making money...";
	close;
}

ein_in01.gat,67,243,3	script	Zelmeto	851,{
	
	if(EinFactory > 0)goto s_Switches;
	mes "[Zelmeto]";
	mes "Ah, you must be a visitor.";
	mes "I'm Zelmeto Abellov, the";
	mes "field overseer. Have you";
	mes "been in this facility before?";
	next;
	mes "[Zelmeto]";
	mes "This factory plays an";
	mes "important role in our city";
	mes "and generates a lot of income.";
	mes "However, our employess suffer";
	mes "from a poor work environment.";
	next;
	mes "[Zelmeto]";
	mes "Our superintendant makes a lot";
	mes "of money and seems content with";
	mes "the current situation. However, the";
	mes "rest of the workforce doesn't enjoy";
	mes "all of the benefits he receives.";
	mes "[Zelmeto]";
	mes "Many people have already";
	mes "quit and there are only a few";
	mes "people who continue to work";
	mes "here. So now we're understaffed";
	mes "and I'm in quite a bind...";
	next;
	mes "[Zelmeto]";
	mes "There are some urgent";
	mes "tasks I need done, but";
	mes "there's no way for me";
	mes "to recruit new workers.";
	mes "Ah, I'm sorry, I've spoken too";
	mes "freely about my own problems...";
	next;
	menu "You're understaffed?",s_Underst,"No, it's okay.",-;

	mes "[Zelmeto]";
	mes "Thank you for";
	mes "your kindness.";
	mes "And please don't";
	mes "let anyone know about";
	mes "anything I just told you.";
	close;

s_Underst:
	mes "[Zelmeto]";
	mes "Yes, we are!";
	mes "I don't have enough";
	mes "people to inspect the";
	mes "factory machines and";
	mes "determine what kinds";
	mes "of problems we have.";
	next;
	mes "[Zelmeto]";
	mes "It's a time consuming";
	mes "task I'd rather do on my";
	mes "own. However, between that";
	mes "and managing the workforce,";
	mes "I don't have enough time...";
	next;
	menu "I can help you.",s_Help,"Keep up the good job.",-;

	mes "[Zelmeto]";
	mes "Well, it's a living.";
	mes "^6A6A6A*Sigh*^000000 I can put up with";
	mes "this, but I hope the higher";
	mes "ups will consider improving";
	mes "the work environment here...";
	close;

s_Help:
	mes "[Zelmeto]";
	mes "You can help me?";
	mes "I know something like";
	mes "this is too much to ask,";
	mes "but I'll accept any help";
	mes "anyone offers me. I'm";
	mes "that desperate.";
	next;
	mes "[Zelmeto]";
	mes "Alright, I'll have you";
	mes "inspect the machines";
	mes "in the factory one by one.";
	mes "It's imperative that we know";
	mes "what needs to be repaired";
	mes "and what's working fine";
	next;
	mes "[Zelmeto]";
	mes "First, find the ^FF00002nd control";
	mes "panel^000000 and determine its";
	mes "status. I'm fairly certain that";
	mes "it broke a long time ago, but";
	mes "it wouldn't hur to make sure.";
	mes "You should find it easily.";
	next;
	mes "[Zelmeto]";
	mes "When you finish your";
	mes "inspection, report back";
	mes "to me so I can tell you";
	mes "which machine to check";
	mes "next. Thanks again for";
	mes "offering to help";
	set EinFactory,1;
	close;
s_Switches:
	switch(EinFactory)
{
	case 1:
		mes "[Zelmeto]";
		mes "If you would,";
		mes "please inspect the";
		mes "2nd control panel that";
		mes "seems to have been";
		mes "broken for a while...";
		close;
	break;

	case 2:
		mes "[Zelmeto]";
		mes "Huh, I see.";
		mes "We must do something";
		mes "about that as soon as";
		mes "we can. Now, let me tell";
		mes "you what to check next.";
		next;
		mes "[Zelmeto]";
		mes "There are 3 automatic";
		mes "pressure governors which";
		mes "hammer the bent iron plates";
		mes "from above to flatten them. It";
		mes "seems that one of them may";
		mes "have some kind of problem.";
		next;
		mes "[Zelmeto]";
		mes "Please inspect the ^FF0000automatic";
		mes "pressure governors^000000. Even if the";
		mes "problem seems small, please";
		mes "report it to me. I know it might";
		mes "seem fine now, but I want to";
		mes "prevent an accident if I can.";
		next;
		mes "[Zelmeto]";
		mes "Thank you";
		mes "in advance,";
		mes "adventurer.";
		set EinFactory,3;
		close;
	break;

	case 3:
		mes "[Zelmeto]";
		mes "You need to inspect";
		mes "an automatic pressure";
		mes "governor. It looks fine,";
		mes "but sometimes it makes";
		mes "strange noises.";
		next;
		mes "[Zelmeto]";
		mes "It probably will";
		mes "be a good idea to";
		mes "check that machine";
		mes "more carefully this";
		mes "time, just in case.";
		next;
		mes "[Zelmeto]";
		mes "Thank you";
		mes "for helping us,";
		mes "adventurer.";
		close;
	break;

	case 4:
		mes "[Zelmeto]";
		mes "What...?";
		mes "This is worse";
		mes "than I expected. But";
		mes "it's good that we know";
		mes "about these problems";
		mes "as soon as possible.";
		next;
		mes "[Zelmeto]";
		mes "Don't you worry,";
		mes "we'll take care of";
		mes "this. In the meantime,";
		mes "I'd like you to inspect";
		mes "the next machine for me.";
		next;
		mes "[Zelmeto]";
		mes "I want you to check";
		mes "a ^FF0000control panel^000000. It's the";
		mes "same kind as the one";
		mes "you just inspected, but";
		mes "bigger in size.";
		next;
		mes "[Zelmeto]";
		mes "It's located in the";
		mes "middle of the factory,";
		mes "so you should be able";
		mes "to find it. It may be in bad";
		mes "condition, even though it's";
		mes "operating fine for now...";
		next;
		mes "[Zelmeto]";
		mes "We need to ensure that";
		mes "it's stable, reliable and";
		mes "doesn't pose a threat to";
		mes "our workforce. Thanks";
		mes "again, adventurer.";
		set EinFactory,5;
		close;
	break;

	case 5:
		mes "[Zelmeto]";
		mes "I'd like you to inspect";
		mes "the control panel. It's";
		mes "fairly large and can be";
		mes "found in the middle of the";
		mes "factory. You shouldn't have";
		mes "too much trouble finding it.";
		close;
	break;

	case 6:
		mes "[Zelmeto]";
		mes "I see...";
		mes "It's most likely that";
		mes "there was a short";
		mes "circuit and most";
		mes "of the internal devices";
		mes "were burnt out...";
		next;
		mes "[Zelmeto]";
		mes "Thanks for checking";
		mes "that out for me. Now,";
		mes "the next machine I need";
		mes "you to inspect is different";
		mes "than the others I've had";
		mes "you examine.";
		next;
		mes "[Zelmeto]";
		mes "It's a mechanical";
		mes "hand that transports";
		mes "small objects. We didn't";
		mes "really give it a name, but";
		mes "you should be able to find it.";
		next;
		mes "[Zelmeto]";
		mes "Recently, it seems";
		mes "that there have been";
		mes "problems in operating";
		mes "that machine. If something's";
		mes "broken, we need to know";
		mes "and fix it right away.";
		next;
		mes "[Zelmeto]";
		mes "Thanks again";
		mes "in advance.";
		set EinFactory,7;
		close;		
	break;

	case 7:
		mes "[Zelmeto]";
		mes "The machine which";
		mes "I want you to inspect";
		mes "this time is a small";
		mes "sized conveyor.";
		next;
		mes "[Zelmeto]";
		mes "Be sure that you";
		mes "inspect the small";
		mes "one, since we also";
		mes "have a large conveyor";
		mes "in the factory as well";
		close;
	break;

	case 8:
		mes "[Zelmeto]";
		mes "Huh?";
		mes "I'm suprised to hear";
		mes "that. ^6A6A6A*Sigh*^000000 There's just";
		mes "too many things that need";
		mes "fixing. This is terrible...";
		next;
		mes "[Zelmeto]";
		mes "Well, let me worry";
		mes "about that for now. Please";
		mes "focus on continuing to inspect";
		mes "some of the other machines.";
		next;
		mes "[Zelmeto]";
		mes "Now, there's a pipe inside";
		mes "this factory that I want you";
		mes "to look at. Many of our pipes";
		mes "aren't in the best condition,";
		mes "but this particular one might";
		mes "be severely damaged.";
		next;
		mes "[Zelmeto]";
		mes "Now, the pipe I want";
		mes "you to inspect is located";
		mes "near those large caultrons";
		mes "of molten metal. You should";
		mes "be able to find it pretty easily";
		next;
		mes "[Zelmeto]";
		mes "Thanks again";
		mes "for your help,";
		mes "adventurer.";
		set EinFactory,9;
		close;
	break;

	case 9:
		mes "[Zelmeto]";
		mes "The pipe I want";
		mes "you to inspect is located";
		mes "near those large caultrons";
		mes "of molten metal. You should";
		mes "be able to find it pretty easily";
		next;
		mes "[Zelmeto]";
		mes "Thanks again";
		mes "for your help,";
		mes "adventurer.";
		close;
	break;

	case 10:
		mes "[Zelmeto]";
		mes "This is";
		mes "worse than";
		mes "I imagined...";
		next;
		mes "[Zelmeto]";
		mes "We've got to start";
		mes "repairs as soon as we";
		mes "can! Hopefully, we can";
		mes "resolve this before";
		mes "any serious problems happen...";
		next;
		mes "[Zelmeto]";
		mes "Alright, the last";
		mes "thing that you need to";
		mes "inspect is a ^FF0000large conveyor^000000.";
		mes "It's similiar to the one you";
		mes "inspected before, but it's";
		mes "bigger and more powerful.";
		next;
		mes "[Zelmeto]";
		mes "We have only one of these";
		mes "machines and it's usually";
		mes "moved around a lot since";
		mes "a lot of people in the factory";
		mes "use it. I really don't know";
		mes "where it could be now.";
		next;
		mes "[Zelmeto]";
		mes "Still I'm sure that";
		mes "it's inside the building,";
		mes "so you should be able to";
		mes "find it. I hope you can inspect";
		mes "that conveyor for me soon.";
		set EinFactory,11;
		close;
	break;

	case 11:
		mes "[Zelmeto]";
		mes "The machine which";
		mes "you are supposed to";
		mes "inspect right now";
		mes "is a large convyore.";
		next;
		mes "[Zelmeto]";
		mes "Remember that we";
		mes "also have a small sized";
		mes "conveyor, so make sure";
		mes "that you examine the";
		mes "larger one, alright?";
		close;
	break;

	case 12:
		mes "[Zelmeto]";
		mes "Well, I figured that both";
		mes "conveyors would have";
		mes "similiar problems. We";
		mes "can fix them at the";
		mes "same time, but it'll";
		mes "be a hassle";
		next;
		mes "[Zelmeto]";
		mes "Thank you so much for";
		mes "your help. Without you,";
		mes "I'm pretty sure we wouldn't";
		mes "know about these problems";
		mes "until it was too late.";
		next;
		mes "[Zelmeto]";
		mes "Now, I've got to make sure";
		mes "we have enough materials";
		mes "to make the repairs so that";
		mes "the machines will be safely";
		mes "functioning again.";
		next;
		mes "[Zelmeto]";
		mes "First, I better";
		mes "hurry and request";
		mes "an increase for the";
		mes "Factory Repair budget";
		mes "from our superintendant.";
		set EinFactory,13;
		close;
	break;

	case 13:
		mes "[Zelmeto]";
		mes "I've got to report this";
		mes "to our superintendant";
		mes "as soon as possible.";
		next;
		mes "[Zelmeto]";
		mes "With any luck, he'll approve";
		mes "a budget increase so that we";
		mes "can get all of the materials";
		mes "needed for the repairs.";
		close;
	break;

	case 14:
		mes "[Zelmeto]";
		mes "...";
		mes "......";
		next;
		mes "[Zelmeto]";
		mes "^6A6A6A*Sigh*^000000";
		mes "My proposal was rejected";
		mes "by our superintendant. But";
		mes "maintainance and repairs";
		mes "are crucial for peak operating";
		mes "efficiency and worker safety!";
		next;
		mes "[Zelmeto]";
		mes "I'm frustrated and worried.";
		mes "Maybe nothing will happen";
		mes "for now, but we've got to";
		mes "safeguard our future by";
		mes "regularly maintaining";
		mes "all of these machines";
		next;
		mes "[Zelmeto]";
		mes "Even possible threats";
		mes "to the safety of our workers";
		mes "can't be ignored. Isn't there";
		mes "something I can do? ^6A6A6A*Sigh*^000000";
		next;
		mes "[Zelmeto]";
		mes "If we can";
		mes "just get";
		mes "20 ^FF0000Flexible Tube^000000,";
		mes "10 ^FF0000Rusty Screw^000000 and";
		mes "10 ^FF0000Used Iron Plate^000000,";
		mes "we could make those repairs.";	
		next;
		mes "[Zelmeto]";
		mes "But without funds, there's";
		mes "no way we can purchase";
		mes "those items. If something";
		mes "happens, who's going to";
		mes "be responsible?";
		set EinFactory,15;
		close;
	break;

	case 15:
	if(countitem(7325) > 19 && countitem(7317) > 9 && countitem(7319) > 9)goto s_Again;
		mes "[Zelmeto]";
		mes "We need";
		mes "at least";
		mes "20 ^FF0000Flexible Tube^000000,";
		mes "10 ^FF0000Rusty Screw^000000 and";
		mes "10 ^FF0000Used Iron Plate^000000,";
		mes "to repair this factory.";
		next;
		mes "[Zelmeto]";
		mes "^6A6A6A*Sigh*^000000";
		mes "But there's no way";
		mes "we can get all of those";
		mes "things. Our budget isn't";
		mes "big enough to cover it.";
		close;
	s_Again:
		mes "[Zelmeto]";
		mes "Ah, it's you again.";
		mes "It's shameful letting";
		mes "other people know about";
		mes "our miserable situation...";
		next;
		mes "[Zelmeto]";
		mes "There's nothing";
		mes "worth seeing here,";
		mes "so there really isn't";
		mes "a point in you coming to";
		mes "visit this place anymore.";
		next;
		menu "Give him the materials.",s_Give,"Huh.",-;

		mes "[Zelmeto]";
		mes "^6A6A6A*Sigh*^000000";
		mes "I'm really worried";
		mes "about this factory's";
		mes "future. What is our";
		mes "superintendant thinking...?";
		close;

	s_Give:	
		mes "[Zelmeto]";
		mes "...Hm?";
		mes "Aren't these the";
		mes "materials we need";
		mes "to make repairs in";
		mes "the factory? How did";
		mes "you find all of these?";
		next;
		if(countitem(7325) < 20 || countitem(7317) < 10 || countitem(7319) < 10)close;
		delitem 7325,20;
		delitem 7317,10;
		delitem 7319,10;
		set EinFactory,16;
		if (BaseLevel < 80) set BaseExp,BaseExp+35000;
		if ((BaseLevel >= 80) && (BaseLevel < 90)) set BaseExp,BaseExp+88000;
		if (BaseLevel >= 90) set BaseExp,BaseExp+367000;
		mes "[Zelmeto]";
		mes "I don't know how";
		mes "I can possible pay you";
		mes "back for this great favor.";
		mes "I appreciate that you've";
		mes "stepped forward to help us.";
		next;
		mes "[Zelmeto]";
		mes "Oh...!";
		mes "In my years of managing,";
		mes "I've learned the ultimate";
		mes "motivation techniques. Let";
		mes "me enhance your motivation";
		mes "to show you my gratitude.";
		next;
		mes "[Zelmeto]";
		mes "Now...";
		mes "Just open your mind";
		mes "and listen to my words";
		mes "of encouragement";
		mes "and inspiration...";
		next;
		mes "[Zelmeto]";
		mes "^3131FFWhen the going";
		mes "gets rough, you've";
		mes "gotta get rougher!";
		mes "You gotta climb that";
		mes "mountain 'cause no one's";
		mes "gonna climb it for you!";
		next;
		mes "[Zelmeto]";
		mes "^3131FFDon't give it up!";
		mes "Go for broke!";
		mes "Losers are quitters";
		mes "and quitters are losers!";
		next;
		mes "[Zelmeto]";
		mes "^6A6A6A*Whew*";
		mes "^000000I haven't given that much";
		mes "inspiration in a while, but";
		mes "your help was well worth it.";
		mes "I'm going to start  the repairs, but";
		mes "once again I'd like to thank you.";
		close;
	break;

	case 16:
		mes "[Zelmeto]";
		mes "We'll be putting good";
		mes "use to the materials you";
		mes "gave me. With your help,";
		mes "our factory will operate";
		mes "safely. At least, for just";
		mes "a little while longer.";
		close;
}	

}

ein_in01.gat,50,232,4	script	2nd Control Panel	111,{

if(EinFactory == 1)
{
	mes "^3131FFIt's the 2nd control panel";
	mes "Zelmeto asked you to inspect.";
	mes "it looks totally broken: screws";
	mes "are missing, and the iron cover";
	mes "has been bent open, revealing";
	mes "a tangled mess of wires inside.";
	set EinFactory,2;
	close;
}
end;
}


ein_in01.gat,108,217,4	script	3rd Pressure Governor	111,{

if(EinFactory == 3)
{
	mes "^3131FFAt first glance, this";
	mes "pressure governor looks";
	mes "perfectly fine. But after you";
	mes "check it more carefully, you";
	mes "find that it's making strange";
	mes "grinding noises and a few of";
	mes "the surface screws are loose.";
	set EinFactory,4;
	close;
}
end;
}

ein_in01.gat,61,259,4	script	Main Control Panel	111,{

if(EinFactory == 5)
{
	mes "^3131FFThe main control panel";
	mes "doesn't look like it has";
	mes "any problems. But after";
	mes "tapping on its surface,";
	mes "you hear a disheartening";
	mes "hollow sound. It looks like";
	mes "it's missing some parts...";
	set EinFactory,6;
	close;
}
end;
}
ein_in01.gat,47,197,4	script	Conveyor#01	111,{

if(EinFactory == 7)
{
	mes "^3131FFThe conveyor's movements";
	mes "look jittery and clumsy. The";
	mes "mechanical arm also doesn't";
	mes "look powerful enough to bear";
	mes "the loads that it's carrying. The";
	mes "screws in the conveyor look";
	mes "loose and rusted over.";
	set EinFactory,8;
	close;
}
end;
}

ein_in01.gat,100,267,4	script	Pipe	111,{

if(EinFactory == 9)
{
	mes "^3131FFThe inspection of this";
	mes "pipe didn't take very long.";
	mes "It's bloated and worn out";
	mes "from long durations of";
	mes "being overloaded with";
	mes "pressure. It's a wonder";
	mes "it hasn't exploded yet.";
	set EinFactory,10;
	close;
}
end;
}

ein_in01.gat,95,238,4	script	Conveyor#02	111,{

if(EinFactory == 11)
{
	mes "^3131FFThis conveyor seems";
	mes "to have similiar problems";
	mes "as its smaller version. Its";
	mes "movements are awkward,";
	mes "erratic and weak, and almost";
	mes "all of its screws are rusted.";
	set EinFactory,12;
	close;
}
end;
}

einbroch.gat,188,72,3	script	Keneshiotz	855,{

	mes "[Keneshiotz]";
	mes "This city is full of sky";
	mes "high smokestacks and";
	mes "the droning hum of machines.";
	next;
	mes "[Keneshiotz]";
	mes "Sure, the air is polluted,";
	mes "but I think it's a fair price";
	mes "to pay for wealth and a";
	mes "modern life of comfort.";
	mes "Screw the environment!";
	next;
	mes "[Keneshiotz]";
	mes "I'd much rather live like";
	mes "this than end up like those";
	mes "backwards vagrants in that";
	mes "filthy Einbech. Don't they";
	mes "know that money makes";
	mes "the world go 'round?";
	close;
}

einbroch.gat,215,180,5	script	Uwe Kleine	85,{

	if(EinUwe == 2)goto s_Cont2;
	if(EinUwe == 1)goto s_Cont;
	mes "[Uwe]";
	mes "Cooking is such a joy~!";
	mes "The scents, the flavors, the";
	mes "sensation of sheer ^EFAEBDsatiation^000000...";
	next;
	menu "Um, isn't this a forge?",s_Forge,"Ignore him.",-;

	mes "[Uwe]";
	mes "Cooking begins with";
	mes "fire and ends with fire.";
	mes "There's a certain art to";
	mes "creating fine, delicious";
	mes "foods to delight the palate~";
	close;

s_Forge:
	mes "[Uwe]";
	mes "Is this a forge?";
	mes "Oh, sugar honey,";
	mes "you haven't been here";
	mes "before, haven't you?";
	next;
	mes "[Uwe]";
	mes "My name is Uwe Kleine";
	mes "and this is my forge~! I am";
	mes "the most elegant Blacksmith";
	mes "and the best chef here in the";
	mes "Schwartzwald Republic~";
	next;
	mes "[Uwe]";
	mes "So, how can";
	if(!Sex)mes "I help you?";
	if(Sex)
	{
	mes "I help you, you";
	mes "adoooooooooorable";
	mes "hunk of a man?";
	}
	next;
	menu "Talk about Einbroch",s_Ein,"Ask him to forge a Weapon.",s_Weap,"Master, I want to learn cooking.",s_Cook,"Cancel.",-;

	mes "[Uwe]";
	mes "Take care,";
	mes "sugar honey~";
	mes "Ho ho ho!";
	close;

s_Ein:
	mes "[Uwe]";
	mes "Einbroch was originally";
	mes "build to support Einbech's";
	mes "mining efforts. Because it's";
	mes "small and crowded with people,";
	mes "there's no room to build the ore";
	mes "refining factories over there.";
	next;
	mes "[Uwe]";
	mes "Sine Einbroch used to be";
	mes "an empty lot, it was perfect";
	mes "for building factories. That's";
	mes "what my grandfather told me a";
	mes "long time ago. Anyway, Einbroch";
	mes "quickly grew into a major city.";
	next;
	mes "[Uwe]";
	mes "Now people think that this";
	mes "city was never planned to be";
	mes "just an extension of Einbech.";
	mes "See that rampart over there?";
	mes "It doesn't connection to Einbech";
	mes "at all! No protection for them...";
	next;
	mes "[Uwe]";
	mes "It's like the government";
	mes "lost all interest in Einbech.";
	mes "Even the miners there have";
	mes "been moving here to work in";
	mes "the factories. But more people";
	mes "hasn't made this city more lively.";
	next;
	mes "[Uwe]";
	mes "Einbroch may look modern";
	mes "and exciting now, but soon";
	mes "you'll see that there's no sign";
	mes "of warmth or life. So... Just";
	mes "don't live here in your old age.";
	next;
	menu "Then why are you here?",s_WhyHere,"I won't. Thanks for the advice.",-;

	mes "[Uwe]";
	mes "Oh, that is such";
	mes "a good decision,";
	mes "sugar honey! Oh, you";
	mes "cutie adventurers are";
	mes "so precious, so lovable.";
	mes "^111111*Tee hee hee~*^000000";
	next;
	mes "[Uwe]";
	mes "Well, that was";
	mes "a fun talk. Come";
	mes "back and visit, 'kay?";
	mes "I'll miss you until";
	mes "the next time~";
	close;

s_WhyHere:
	mes "[Uwe]";
	mes "Well, I have some";
	mes "precious memories of";
	mes "this place. Once, there was";
	mes "a man who lived here who";
	mes "was just like a father to me.";
	next;
	mes "[Uwe]";
	mes "Oh, but I'm sure that";
	mes "you don't want to hear";
	mes "about that. Next time you";
	mes "drop by, we'll talk about";
	mes "something more fun, 'kay?";
	mes "Buhbye for now, cutie~";
	close;

s_Weap:
	mes "[Uwe]";
	mes "Well...";
	mes "I actually just";
	mes "do smithing work";
	mes "to create my own";
	mes "cooking tools.";
	next;
	mes "[Uwe]";
	mes "Oh, I understand";
	mes "that somebody needs";
	mes "to fight the monsters,";
	mes "but I'm the wrong person";
	mes "to ask for forging weapons.";
	mes "I... am a strict pacifist~";
	next;
	mes "[Uwe]";
	mes "Just go look";
	mes "around for a little";
	mes "bit, I'm sure you'll";
	mes "find a Blacksmith";
	mes "who's willing to forge";
	mes "you a good weapon~";
	close;

s_Cook:
	mes "[Uwe]";
	mes "Mm...?";
	mes "Did you just";
	mes "say that you";
	mes "want to learn";
	mes "the art of cooking?";
	next;
	mes "[Uwe]";
	mes "I'm sorry, but I can't";
	mes "really give culinary";
	mes "lessons. But I will";
	mes "give good advice for";
	mes "hopeful beginners.";
	next;
	mes "[Uwe]";
	mes "Now...";
	mes "For your tuiton";
	mes "I'll need-- Gosh,";
	mes "there's just so many";
	mes "things. Get some paper,";
	mes "and a pen for this list...";
	next;
	mes "[Uwe]";
	mes "Just kidding!";
	mes "^111111*Titter~* ^000000I don't need";
	mes "much to make some";
	mes "cooking utensils. Bring";
	mes "6 ^0000FFLarge Jellopies^000000. That's it!";
	next;
	mes "[Uwe]";
	mes "In return, I will give you";
	mes "1 Coal and some useful";
	mes "cooking advice for novices.";
	mes "I give this advice for free to";
	mes "my smithing colleages, though.";
	next;
	mes "[Uwe]";
	mes "Why ^EFAEBDdon't^000000 you";
	mes "become a Blacksmith?";
	mes "I'm much more confident";
	mes "in that field. ^111111*Tee hee~*^000000";
	next;
	mes "[Uwe]";
	mes "Well, I'll be";
	mes "waiting right";
	mes "here until you";
	mes "come back.";
	mes "^111111...*Tee hee~*";
	set EinUwe,1;
	close;

s_Cont:
	mes "[Uwe]";
	mes "Oh hello hello~";
	mes "It's been a long";
	mes "time since we've talked,";
	mes "you cutie adventurer~";
	next;
	mes "[Uwe]";
	mes "So, sugar honey,";
	mes "how is it going with";
	mes "the little favor I asked";
	mes "you about last time?";
	mes "Did you already forget";
	mes "the 6 Large Jellopies?";
	next;
	menu "Talk about Einbroch",s_Ein,"Ask him to forge a Weapon.",s_Weap,"Give him the Materials.",s_Material,"Cancel.",-;

s_Material:
	if(countitem(7126) > 5)goto s_EnoughItems;
	mes "[Uwe]";
	mes "Huh...?";
	mes "You brought";
	if(countitem(7126))mes "only " + countitem(7126) + " of them?";
	if(!countitem(7126))mes "none at all...?";
	mes "Next time, be sure";
	mes "to bring 6 Large Jellopies,";
	mes "okay? Don't forget, cutie~";
	close;

s_EnoughItems:
	mes "[Uwe]";
	mes "Thank you ^EFAEBDso^000000 much!";
	mes "Here's the Coal I promised~";
	delitem 7126,6;
	getitem 1003,1;
	set EinUwe,2;
	next;
	mes "[Uwe]";
	mes "Now, I can't teach you everything";
	mes "about cooking, but I will give you";
	mes "some good advice for beginners.";
	mes "I hope you pay attnetion, sugar";
	mes "honey. Now what would you like";
	mes "to hear more about? Hmm...?";
	next;
s_Menu3:
	menu "Heart",s_Heart,"Ingredients",s_Ingredients,"Skills",s_Skills,"Tools",s_Tools,"Cancel.",-;

	mes "[Uwe]";
	mes "Take care,";
	mes "sugar honey~";
	mes "Ho ho ho!";
	close;

s_Heart:
	mes "[Uwe]";
	mes "Ah, heart. Just like forging,";
	mes "you need passion and desire";
	mes "to create something special.";
	mes "Every smith and cook knows that";
	mes "you can do anything if you have";
	mes "the will and the commitments.";
	next;
	mes "[Uwe]";
	mes "Well, that's all";
	mes "I really have to";
	mes "say about that. But";
	mes "come back and chat";
	mes "whenever you please.";
	mes "...Behbie~";
	close;

s_Ingredients:
	mes "[Uwe]";
	mes "Now, for beginners,";
	mes "learning to select";
	mes "and use ingredients";
	mes "is one of the most";
	mes "important fundamentals.";
	next;
	mes "[Uwe]";
	mes "Cooking is like forging";
	mes "since specific ingredients";
	mes "are needed to make specialty";
	mes "items or dishes. You can't just";
	mes "skip them if you really need";
	mes "them, right? Right!";
	next;
	mes "[Uwe]";
	mes "Once you make up your";
	mes "mind to do something,";
	mes "focus on finishing it, 'kay?";
	mes "Never cut corners and always";
	mes "dedicate yourself to make the";
	mes "very best finished product~";
	next;
	mes "[Uwe]";
	mes "Well, that was";
	mes "a fun talk. Come";
	mes "back and visit, 'kay?";
	mes "I'll miss you until";
	mes "the next time~";
	mes "...Ho ho~";
	close;

s_Skills:
	mes "[Uwe]";
	mes "When you're beginning to learn";
	mes "skills, you can't let yourself be";
	mes "discouraged! Practice makes";
	mes "perfect, you know? But never";
	mes "use your lack of skills as an";
	mes "excuse if you happen to fail...";
	next;
	mes "[Uwe]";
	mes "Effort is also an essential";
	mes "in forging and cooking! Now,";
	mes "on the oher hand, if you put";
	mes "in all the effort but didn't learn";
	mes "any of the skills, you'll still get";
	mes "nowhere fast, right? Right!";
	next;
	mes "[Uwe]";
	mes "The key is to always";
	mes "give 100% effort and work";
	mes "on improving your skills.";
	mes "Before you know it, you'll";
	mes "be a respected master!";
	next;
	mes "[Uwe]";
	mes "Well, that was";
	mes "a fun talk. Come";
	mes "back and visit, 'kay?";
	mes "I'll miss you until";
	mes "the next time~";
	mes "...Ho ho~";
	close;

s_Tools:
	mes "[Uwe]";
	mes "Cooking is a little";
	mes "easier if you have";
	mes "nicer tools to use,";
	mes "but that's it. Tools by";
	mes "themselves can't make";
	mes "just anybody a master.";
	next;
	mes "[Uwe]";
	mes "In the end, the best";
	mes "tools are the ones you're";
	mes "most comfortable with using.";
	mes "In fact, I still use the old knife";
	mes "I used back when I was just";
	mes "a little novice chef~";
	next;
	mes "[Uwe]";
	mes "Well, that was";
	mes "a fun talk. Come";
	mes "back and visit, 'kay?";
	mes "I'll miss you until";
	mes "the next time~";
	mes "...Ho ho~";
	close; 

s_Cont2:
	mes "[Uwe]";
	mes "Ah, hello again,";
	mes "cutie adventurer.";
	mes "How can I help you?";
	next;
	menu "Talk about Einbroch",s_Ein,"Ask him to forge a Weapon.",s_Weap,"Talk about Cooking.",s_Cooking,"Cancel.",-;	

	mes "[Uwe]";
	mes "Take care,";
	mes "sugar honey~";
	mes "Ho ho ho!";
	close;


s_Cooking:
	mes "[Uwe]";
	mes "Ooh, cooking!";
	mes "So what did you";
	mes "want to ask me...?";
	next;
	goto s_Menu3;

}

ein_in01.gat,206,224,2	script	Hotel Employee	855,{

	mes "[Hotel Employee]";
	mes "Good day, welcome to the";
	mes "Einbroch Hotel. The staff is";
	mes "always striving to accomodate";
	mes "our guests with the highest";
	mes "standards in cleanliness,";
	mes "service and convenience~";
	next;
	menu "Save",s_Save,"Take Rest- 5,000 zeny",s_Rest,"Cancel",-;

	mes "[Hotel Employee]";
	mes "Thank you and";
	mes "please come again~";
	close;

s_Save:
	savepoint "ein_in01.gat",199,224;
	mes "[Hotel Employee]";
	mes "Your Respawn Point";
	mes "has been saved here";
	mes "in the Einbroch Hotel.";
	mes "Thank you, and please";
	mes "come again.";
	next;
	mes "[Hotel Employee]";
	mes "Have a good day.";
	close;

s_Rest:
	if(Zeny < 5000)goto s_NEnoughZeny;
	mes "[Hotel Employee]";
	mes "Thank you.";
	mes "Please enjoy";
	mes "your rest~";
	close2;
	set zeny,zeny - 5000;
	warp "ein_in01.gat",272,167;
	percentheal 100,100;
	end;

s_NEnoughZeny:
	mes "[Hotel Employee]";
	mes "I'm sorry but";
	mes "you don't seem";
	mes "to have enough zeny.";
	close;

}

ein_in01.gat,231,163,1	script	Sick Old Man	849,6,6,{
	if(Shinokas_Quest == 5) goto L_Dead;
	if(ein_lab == 2) goto L_Lab2;
	if(Shinokas_Quest == 4) goto L_Lab1;
	if(EinFactory == 16 && Shinokas_Quest == 3) goto L_Factory2;
	if(Shinokas_Quest == 3) goto L_Factory3;
	if(ein_maid) goto L_Factory;
	if(Shinokas_Quest == 2) goto L_Find;
	if(!Shinokas_Quest)set Shinokas_Quest,1;
	mes "[Sick Old Man]";
	mes "...!";
	next;
	mes "[Sick Old Man]";
	mes "Awwwk~";
	mes "It's killing me!";
	mes "Arrrgh! Awwwrgh!";
	mes "W-when will my son";
	mes "come back from";
	mes "the factory...?!";
	next;
	if (einbech_buender == 2) goto L_Ask;
	mes "^3131FFYou feel really awkward";
	mes "just staring at this old";
	mes "man violently rolling";
	mes "around in his bed.";
	close;
	
L_Ask:
	mes "["+strcharinfo(0)+"]";
	mes "Shi...";
	mes "Shinokas?";
	next;
	mes "[Sick Old Man]";
	mes "Huh...?";
	mes "Noooo! My name is";
	mes "Shinotarous. Y-you've";
	mes "got the wrong person!";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "This has to be the";
	mes "Shinokas that Hikeman";
	mes "was talking about in Einbech";
	mes "Hmmm, but how can I get";
	mes "him to admit it?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "*Ahem!*";
	mes "Excuse me...";
	next;
while(1)
{
	switch(select("Remember the mine tunnel collapse?:Didn't you used to be a miner?:Have you lived in Einbroch all your life?")) {
	 case 1: //remember
		  if(@quest2 > 4 || @quest3 > 4)goto L_Cont;
		  mes "[Sick Old Man]";
		  mes "Noooo!";
		  mes "I don't know";
		  mes "what the hell";
		  mes "you're talking";
		  mes "about!";
		  next;	
	 break;

	 case 2: //miner
		  if(@quest2 > 1)goto s_Quest2;
		  mes "[Sick Old Man]";
		  mes "Noooo...!";
	 	  mes "W-why would you";
		  mes "even ask me that";
		  mes "kind of question?!";
	  s_Quest2:
		  set @quest2,@quest2 + 1;
		  if(@quest3)set @quest3,0;
		  next;
	 break;

	 case 3: //einbroch
		  if(@quest3 > 1)goto s_Quest3;
		  mes "[Sick Old Man]";
		  mes "Y-yes!";
		  mes "Born and raised";
		  mes "raised here in";
		  mes "Einbe--Einbroch!";
		  next;
		  mes "^3131FFIt doesn't seem";
		  mes "like this old man";
		  mes "is telling the truth...";
	s_Quest3:
		  set @quest3,@quest3 + 1;
		  if(@quest2)set @quest2,0;
		  next;
	 break;
	}
}
	
L_Cont:
	mes "[Shinokas]";
	mes "Hmm...";
	mes "^0000FFBuender Hikeman^000000...";
	next;
	mes "[Shinokas]";
	mes "No!";
	mes "I've never met";
	mes "Buender Hikeman";
	mes "in my entire li--";
	next;
	mes "[Shinokas]";
	mes "...";
	mes "......";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "I was right!";
	mes "You're Shinokas!";
	next;
	mes "[Shinokas]";
	mes "Curses!";
	mes "I've blown";
	mes "my cover!";
	mes "W-wait! How much";
	mes "do you know?!";
	next;
	mes "[Shinokas]";
	mes "Did ^0000FFthey^000000 send you?";
	mes "*Sigh* I think that this";
	mes "is it. I'll never be";
	mes "able to solve the";
	mes "secret before I die.";
	next;
	mes "[Shinokas]";
	mes "Okay.";
	mes "Get on with it.";
	mes "I'm ready now...";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Tell me everything";
	mes "you know related to";
	mes "that incident where";
	mes "the mine tunnel";
	mes "collapsed around";
	mes "you and Hikeman.";
	next;
	mes "[Shinokas]";
	mes "...?";
	mes "Errr....";
	mes "You're not";
	mes "here to kill me?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "No...!";
	mes "I'm here to find";
	mes "out the truth";
	next;
	mes "[Shinokas]";
	mes "That means...";
	mes "I still have some time.";
	mes "This must be destiny!";
	mes "Allright, I'll tell you what";
	mes "happened. But it's a";
	mes "long story...";
	next;
	mes "[Shinokas]";
	mes "How much do you know";
	mes "about the accident? No,";
	mes "wait. Don't answer that.";
	mes "I don't want to hear it";
	next;
	mes "[Shinokas]";
	mes "I admit it. Yes.";
	mes "I stabbed my friends";
	mes "in the back. It was an";
	mes "unforgivable sin that will";
	mes "haunt me untill the day that I die";
	next;
	mes "[Shinokas]";
	mes "I sold out my friends for";
	mes "money. I destroyed that";
	mes "tunnel and killed them. But";
	mes "I suppose I was tricked as well.";
	mes "^0000FFThey^000000 never intended to keep";
	mes "their end of our agreement.";
	next;
	mes "[Shinokas]";
	mes "After I destroyed the tunnel,";
	mes "they targeted me and I ended";
	mes "spending the rest of my life being";
	mes "pursued and running for place to";
	mes "place. What the hell was that ^0000FFore^000000";
	mes "and why was it so important?";
	next;
	mes "[Shinokas]";
	mes "I need to know more about";
	mes "that ore if it's worth killing for.";
	mes "That's why I've risked sneaking";
	mes "into Einbroch. Sopposedly, an ore";
	mes "similar to the ore we found has";
	mes "been transported here recently";
	next;
	menu "Did you find it?",-;
	mes "[Shinokas]";
	mes "No, not yet.";
	mes "I've been searching";
	mes "for that ore every night.";
	mes "During the day, this kind";
	mes "blacksmith has managed";
	mes "to hide me from those men";
	next;
	mes "[Shinokas]";
	mes "But I won't be safe";
	mes "for very long. Look, I'm";
	mes "no saint, but before I die,";
	mes "I wanna do this one last";
	mes "thing and see what's so";
	mes "great about this ore...";
	next;
	menu "Wait, who's trying to get you?",-;
	mes "[Shinokas]";
	mes "Who's trying to kill me?";
	mes "The people who hired me and";
	mes "my friends to dig up that ore in";
	mes "the first place. We thought they";
	mes "were ordinary businessmen,";
	mes "but... They're dangerous.";
	next;
	mes "[Shinokas]";
	mes "So I told you everything";
	mes "and now you know that my";
	mes "day might be numbered.";
	mes "Please do an old man a favor";
	mes "and search Einbroch for that";
	mes "strange, mysterious ore.";
	next;
	mes "[Shinokas]";
	mes "Now, the first thing I learned";
	mes "in this tows is that the richest";
	mes "family is the Kapelltheines. Only";
	mes "the rich and powerful can possibly";
	mes "be involved in something so big.";
	next;
	mes "[Shinokas]";
	mes "Would you search";
	mes "Kappelltheine Manor";
	mes "for that ore? It's on the way";
	mes "to the Airport and it shouldn't be";
	mes "hard to miss. They're the richest";
	mes "people in Einbroch, after all.";
	next;
	mes "[Shinokas]";
	mes "I'm too old and weak to leave";
	mes "this house, and there's the change";
	mes "that those men will find me. If you";
	mes "can sympathize with my situation,";
	mes "please find out if the Kapelltheine";
	mes "family has any unique ores...";
	set Shinokas_Quest,2;
	close;
	
L_Find:
	mes "[Shinokas]";
	mes "Please...";
	mes "Find out if the Kapelltheines";
	mes "are keeping some kind of unique";
	mes "ore. Their manor is on the road";
	mes "that leads to the Airport.";
	close;
	
L_Factory:
	mes "[Shinokas]";
	mes "So, did you find";
	mes "anything from the";
	mes "Kapellthaines?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Well, Mr. Kapelltheine";
	mes "is kind of violent, but";
	mes "I didn't find anything";
	mes "really suspicious.";
	next;
	mes "[Shinokas]";
	mes "Huh...";
	mes "I must have";
	mes "been wrong, then...";
	mes "Where else could it be?";
	next;
	mes "[Shinokas]";
	mes "Oh, right! The huge";
	mes "factory in Einbroch!";
	mes "What could be more";
	mes "suspicious? There's a ton";
	mes "of workers, but no one really";
	mes "knows what they do there...";
	next;
	mes "[Shinokas]";
	mes "If they're so secretive";
	mes "it's possible that they're";
	mes "keeping the ore over there.";
	mes "Please go and search the";
	mes "Factory for that ore as";
	mes "soon as you can.";
	set Shinokas_Quest,3;
	close;

L_Factory3:
	mes "[Shinokas]";
	mes "So...";
	mes "Did you learn";
	mes "anything new";
	mes "in the Factory?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "I haven't went there";
	mes "yet.";
	next;
	mes "[Shinokas]";
	mes "Then why did you come";
	mes "back? Go and investigate";
	mes "the factory now.";
	close;
	
L_Factory2:
	mes "[Shinokas]";
	mes "So...?";
	mes "Did you learn";
	mes "anything new";
	mes "in the Factory?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Well...";
	mes "There's a lot of";
	mes "suspicious business";
	mes "in the factory, but I don't";
	mes "think any of it is related";
	mes "to that ore you mentioned.";
	next;
	mes "[Shinokas]";
	mes "Damn it...";
	mes "Then where did";
	mes "they hide it? Where";
	mes "do you think that";
	mes "ore might be?";
	next;
while(1)
{
	switch(select("Airport:Factory:Train Station:Airship Repairshop:Laboratory")) {
	 case 1: //airport
	  mes "[Shinokas]";
	  mes "No...";
	  mes "The Airport is always";
	  mes "crowded with people.";
	  mes "It'd be a bad idea to hide";
	  mes "something so important";
	  mes "in that kind of place.";
	  next;
		 break;
	 case 2: //factory
	  mes "[Shinokas]";
	  mes "Didn't you just";
	  mes "check the factory?";
	  mes "You couldn't find";
	  mes "any clues to the";
	  mes "ore over there...";
			next;
	 	break;
	 case 3: //train
	  mes "[Shinokas]";
	  mes "Hmm...";
	  mes "People are always going";
	  mes "in and out of the Train Station.";
	  mes "It's not the best place to hide";
	  mes "something as important as the ore.";
	  next;
		 break;
	 case 4: //repairshop
	  mes "The Airship? Hm, it does";
	  mes "fly through some mysterious";
	  mes "power... But I already checked";
	  mes "the Airship Replairshop myself.";
	  mes "I haven't found any trace of";
	  mes "the ore over there.";
			next;
		 break;
		case 5: //Laboratory
		 mes "[Shinokas]";
		 mes "...!";
		 mes "Yes. Yes...!";
		 mes "That could be it!";
		 mes "Why didn't I think";
		 mes "about the Laboratory?";
		 mes "It makes so much sense!";
			next;
			mes "[Shinokas]";
			mes "I have a good feeling";
			mes "about this. Please sneak";
			mes "into that Laboratory and";
			mes "see if you can find the ore!";
			next;
			mes "[Shinokas]";
			mes "Remember...";
			mes "Not just anybody";
			mes "can enter that kind";
			mes "of place. But I'm sure";
			mes "you'll figure something out.";
			set Shinokas_Quest,4;
			close;
	}
}

L_Lab1:
	mes "[Shinokas]";
	mes "...";
	mes "......";
	close;

OnTouch:
	if (ein_lab < 2) end;
	mes "^3131FFThe open window rattles";
	mes "as you enter the room and";
	mes "are welcomed by a sudden";
	mes "chill. A trail of red footprints";
	mes "lies near your feet.";
	next;
	mes "^3131FFA grey sheet lies";
	mes "rumpled on the bed,";
	mes "but you can see dark red";
	mes "stains in between the folds.";
	set ein_lab,3;
	close;
	
L_Lab2:
	mes "["+strcharinfo(0)+"]";
	mes "Shinokas,";
	mes "I found something!";
	next;
	mes "[Shinokas]";
	mes "You...";
	mes "Came... back...";
	mes "Even... if... it's";
	mes "already... Too late.";
	mes "*Couhg Cough*";
	next;
 	mes "^3131FFYou help Shinokas";
 	mes "sit up, but find that";
	mes "your hands have been";
	mes "stained with his blood.^000000";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Blood...?!";
	mes "Shinokas!";
	mes "Who did this to you?";
	mes "W-we need to call for help!";
	next;
	mes "[Shinokas]";
	mes "No...";
	mes "It's already";
	mes "too late for me.";
	mes "I should have died";
	mes "a long time ago...";
	next;
	mes "[Shinokas]";
	mes "*Cough*";
	mes "I only regret that";
	mes "I've never been able";
	mes "to apologize to my";
	mes "friends... *Cough!*";
	next;
	mes "[Shinokas]";
	mes "But did you";
	mes "find out? D-did";
	mes "you find out what's";
	mes "so special about";
	mes "that ore? W-what";
	mes "is it... Really?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "It was...";
	next;
	input @text$;
	mes "^0000FF"+@text$+"^000000!";
	next;
	mes "[Shinokas]";
	mes "W-wait...!";
	mes "What did...";
	mes "I can't underst--";
	mes "*Couhgh cough!*";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "No...!";
	mes "Tell me who";
	mes "did this to you!";
	mes "Where are they?";
	mes "Speak to me, please!";
	next;
	mes "[Shinokas]";
	mes "W-wha...?";
	mes "I told you.";
	mes "Th-they we--";
	next;
	mes "[Shinokas]";
	mes "...";
	mes "......";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "No!";
	mes "Shinokas!";
	mes "Why, God?";
	mes "Why...";
	set Shinokas_Quest,5;
	close;
	
L_Dead:
 mes "^3131FFShinokas's";
 mes "body has grown";
 mes "cold to the tough.";
 close;

}

ein_in01.gat,21,147,4	script	Megass	853,3,3,{
	end;

OnTouch:
	mes "[Megass]";
	mes "How dare you...";
	mes "A vagabond like";
	mes "you setting foot";
	mes "into my home!?";
	mes "Unthinkable!";
	next;
	mes "[Megass]";
	mes "Leave immediately";
	mes "before I report you";
	mes "to the authorities";
	mes "for trespassing!";
	close2;
	warp "einbroch.gat",112,245;
	end;
}

ein_in01.gat,31,151,4	script	Satra	850,{
	if(EIN_LOVERQ > 11)goto s_Intimi;
	if(EIN_LOVERQ == 11)goto s_Coal4;
	if(EIN_LOVERQ == 10)goto s_Coal3;
	if(EIN_LOVERQ == 9)goto s_Coal2;
	if(EIN_LOVERQ == 8)goto s_Coal1;
	if(EIN_LOVERQ == 7)goto s_Advent;
	mes "[Satra]";
	mes "A wandering";
	mes "adventurer...?";
	mes "How sinfully";
	mes "intriguing!";
	mes "Ho ho ho ho~";
	next;
	mes "[Satra]";
	mes "Oh, do not worry";
	mes "I'm sure the beauty of";
	mes "my home has captured your";
	mes "curiosity. My brutish excuse";
	mes "for a husband would have you";
	mes "beat if he found you...";
	next;
	mes "[Satra]";
	mes "But I'm far more genteel";
	mes "then Megass. You're more";
	mes "than welcome to enjoy the";
	mes "furnishings. Ho ho ho ho~";
	close;

s_Advent:
	mes "[Satra]";
	mes "A wandering adventurer...?";
	mes "How ravishingly delightful!";
	mes "You must have risked life and";
	mes "limb to sneak past my husband";
	mes "to enjoy the captivating sights";
	mes "of my home. Ho ho ho ho~";
	next;
	mes "[Satra]";
	mes "Since you're a very";
	mes "unique quest, I shall";
	mes "give you a unique honor";
	mes "and deign to converse";
	mes "with you, adventurer.";
	next;
	mes "[Satra]";
	mes "Einbech exists to provide";
	mes "my family with coal and";
	mes "materials from their mines.";
	mes "It's a natural law: workers";
	mes "must be led by a chosen few.";
	next;
	mes "[Satra]";
	mes "It's delightfully";
	mes "ludicrous to see those";
	mes "workers aspire to reach";
	mes "our heights of social";
	mes "prestige. Ho ho ho ho~";
	next;
	mes "[Satra]";
	mes "Oh, I haven't spoken to";
	mes "someone from a lower";
	mes "class in ages! It feels";
	mes "so forbiddenly exciting!";
	next;
	mes "[Satra]";
	mes "Well adventurer, that's";
	mes "the end of our informal";
	mes "chat. I'll even grant you";
	mes "full permission to boast";
	mes "of the fact that you've";
	mes "spoken to Lady Satra.";
	next;
	mes "[Satra]";
	mes "If you wish for";
	mes "me to share words with";
	mes "you once more, prove to";
	mes "me that you're worthier";
	mes "than the other peons of";
	mes "my graceful presence.";
	next;
s_Coal1:
	mes "[Satra]";
	mes "Oh, I have a marvelous";
	mes "idea! Why don't you bring";
	mes "me ^9C0000Coals^000000? It's not impossible";
	mes "for someone like yourself, but";
	mes "this kind of task will require";
	mes "some effort on your part.";
	next;
	if(EIN_LOVERQ == 8 && countitem(1003) > 9)goto s_GotCoal1;
	mes "[Satra]";
	mes "Tah tah,";
	mes "adventurer~";
	if(EIN_LOVERQ == 7)set EIN_LOVERQ,8;
	close;

s_GotCoal1:
	mes "[Satra]";
	mes "My, you've already";
	mes "brought the Coal?";
	mes "How charmingly";
	mes "prompt you are~";
	next;
	mes "[Satra]";
	mes "On behalf of the";
	mes "Kappellthaine family,";
	mes "I shall ignore your lowly";
	mes "status and graciously";
	mes "accept your small gift.";
	mes "Ho ho ho~";
	next;
	mes "[Satra]";
	mes "Do you hail from";
	mes "Einbech, adventurer?";
	mes "Ah, the Rune-Midgarts";
	mes "kingdom! I've visited your";
	mes "country. It's quite quaint";
	mes "and Jawaii is very lovely.";
	next;
	mes "[Satra]";
	mes "Well, I shall try to";
	mes "find some use for these.";
	mes "I'm afraid the gift I've asked";
	mes "from you isn't very practical.";
	mes "How is coal usually used?";
	mes "Ah, I have a novel idea!";
	next;
	mes "[Satra]";
	mes "Wouldn't it be";
	mes "intoxicatingly wild if";
	mes "Megass were to hold one";
	mes "of those social functions that";
	mes "the lower classes are so fond";
	mes "of? A 'barbeque', yes?";
	next;
	mes "[Satra]";
	mes "In any case, If you";
	mes "bring me more of that";
	mes "Coal, you would be even";
	mes "more favored by me and";
	mes "you'll become a recipient";
	mes "of my good graces. Ho ho~";
	set EIN_LOVERQ,9;
	delitem 1003,10;
	close;

s_Coal2:
	mes "[Satra]";
	mes "^111111*Titter~*^000000";
	mes "Why, if it isn't my";
	mes "intrepid adventurer.";
	mes "Ho ho ho ho~";
	next;
	if(countitem(1003) > 9)goto s_GotCoal2;
	mes "[Satra]";
	mes "My apologies, but you";
	mes "must first prove to me";
	mes "that you are worthy of";
	mes "conversation. Why don't";
	mes "you deliver more of those";
	mes "^9C0000Coals^000000, mmm?";
	next;
	mes "[Satra]";
	mes "After all, I have no other";
	mes "means of knowing whether";
	mes "or not you appreciate the time";
	mes "I sacrifice by socializing with";
	mes "someone of your status.";
	mes "Ho ho ho ho~";
	close;

s_GotCoal2:
	mes "[Satra]";
	mes "My word!";
	mes "Why are you carrying";
	mes "all of that dirty Coal";
	mes "with you? You poor,";
	mes "impoverished thing.";
	next;
	mes "[Satra]";
	mes "Oh! Dear me,";
	mes "I've nearly forgotten~";
	mes "How divinely silly of me!";
	mes "Once again, I graciously";
	mes "accept your small gift on";
	mes "behalf of the Kappelthaines.";
	next;
	mes "[Satra]";
	mes "Let me share a little";
	mes "bit of history concerning";
	mes "our lovely Einbroch. At one";
	mes "time, there was only Einbech,";
	mes "the mining village. You can";
	mes "imagine how long ago that was.";
	next;
	mes "[Satra]";
	mes "However, the minerals";
	mes "and ores mined in Einbech";
	mes "need to be processed and";
	mes "refined in factories that were";
	mes "all built in a nearby industrial";
	mes "comple which became Einbroch.";
	next;
	mes "[Satra]";
	mes "Now every citizen in";
	mes "Einbroch is wealthy and";
	mes "it's well known that there";
	mes "is a higher standard of";
	mes "living here than in Einbech.";
	next;
	mes "[Satra]";
	mes "Goodness, I believe";
	mes "it's time for a spot of tea~";
	mes "The next time you wish to have";
	mes "an audience with me, it would";
	mes "behoove you to bring another";
	mes "gift of Coal. Toodles~";
	set EIN_LOVERQ,10;
	delitem 1003,10;
	close;

s_Coal3:
	mes "[Satra]";
	mes "Why hello~";
	mes "Your visits have";
	mes "recently been quite";
	mes "delightful, fair adventurer.";
	next;
	mes "[Satra]";
	mes "Oh, my apologies!";
	mes "I supposed you're just";
	mes "here for sight seeing,";
	mes "or perhaps you're running";
	mes "some sort of adventurer's";
	mes "errand. Am I right?";
	next;
	if(countitem(1003) > 9)goto s_GotCoal3;
	mes "[Satra]";
	mes "I know you well enough";
	mes "to know that you wouldn't";
	mes "be so rude as to stop by";
	mes "and chat without bringing";
	mes "any ^9C0000Coal^000000. Ho ho ho ho~";
	close;

s_GotCoal3:
	mes "[Satra]";
	mes "Continue to show";
	mes "your appreciation";
	mes "and dedication to me";
	mes "and you'll soon be known";
	mes "to be my most favored";
	mes "commoner. Ho ho ho ho~";
	next;
	mes "[Satra]";
	mes "I'm sure you've noticed";
	mes "the strained relationship";
	mes "between Einbroch and Einbech";
	mes "by now. It's a shame, really.";
	next;
	mes "[Satra]";
	mes "As Einbroch grew wealthier";
	mes "and Einbech became more";
	mes "destitude, the affluent began";
	mes "despising the impoverished.";
	mes "I supposed it follows that the";
	mes "poor started to resent the rich.";
	next;
	mes "[Satra]";
	mes "It might be said that";
	mes "both towns have been";
	mes "trying to take advantage";
	mes "of each other, but it's";
	mes "clear that Einbroch has";
	mes "always had the upper hand.";
	next;
	mes "[Satra]";
	mes "In fact, because of";
	mes "this rift between our";
	mes "cities, our families are";
	mes "taught not to associate";
	mes "with the people of Einbech.";
	next;
	mes "[Satra]";
	mes "Now, I believe that most";
	mes "people who live in Einbech";
	mes "are peons, but that does not";
	mes "mean I will not give them a";
	mes "chance to prove their worth.";
	next;
	mes "[Satra]";
	mes "Why should I deprive";
	mes "the lowly of my gracious";
	mes "presence if they prove";
	mes "themselves meritable?";
	mes "Ho ho ho ho~";
	next;
	mes "[Satra]";
	mes "Oh, that was scrumptious!";
	mes "If you wish to pay me another";
	mes "visit, don't forget to bring some";
	mes "Coal with you. Tah tah~";
	set EIN_LOVERQ,11;
	delitem 1003,10;
	close;

s_Coal4:
	mes "[Satra]";
	mes "Ho ho ho ho~";
	mes "Welcome adventurer,";
	mes "I so enjoy our little chats.";
	mes "Hors d'oeuvre?";
	next;
	if(countitem(1003) > 9)goto s_GotCoal4;
	mes "[Satra]";
	mes "Ah...";
	mes "It seems you've";
	mes "forgotten your ^9C0000Coals^000000.";
	mes "A silly mistake, but one";
	mes "I'm willing to overlook.";
	close;

s_GotCoal4:
	mes "[Satra]";
	mes "Oh! You can't enjoy";
	mes "any food in that state!";
	mes "Your hands are atrociously";
	mes "grimy! May I ask why?";
	next;
	mes "[Satra]";
	mes "Ah~";
	mes "In my excitement,";
	mes "I nearly forgot that";
	mes "I asked you to bring";
	mes "Coals to me again!";
	mes "My apologies~";
	next;
	mes "[Satra]";
	mes "You've brought so much Coal";
	mes "to me, I'm convinced that you're";
	mes "much more diligent than those";
	mes "languid peasants in Einbech.";
	mes "I appreciate that you've labored";
	mes "so much to win my favor.";
	next;
	mes "[Satra]";
	mes "Hm, what was that?";
	mes "someone else provided";
	mes "these Coals and you were";
	mes "only delivering them? Then";
	mes "who actually gathered these?";
	next;
	input @str$;
	if(@str$ != "Clitzer")goto s_WrongName;
	mes "[Satra]";
	mes "Ah, Clitzer?";
	mes "I must say, that's";
	mes "a very humble name.";
	mes "Yet it's so familiar...";
	next;
	mes "[Satra]";
	mes "Ah, I recall there";
	mes "was a hooligan that";
	mes "has been pestering my";
	mes "daughter named Clitzer.";
	mes "Perhaps they are one";
	mes "and the same. Hmm...";
	next;
	mes "[Satra]";
	mes "I remember that he was";
	mes "rather shabby looking and";
	mes "lacked any semblance of";
	mes "etiquette whatsoever. Clearly,";
	mes "he is a fool and a coward, but";
	mes "now I see that he is sincere.";
	next;
	mes "[Satra]";
	mes "It might not be possible";
	mes "to let him go otu with my";
	mes "daughter straight away, but";
	mes "I will invite him for a spot of";
	mes "tea. And if Calla likes him,";
	mes "well, he must be special.";
	next;
	mes "[Satra]";
	mes "For a humble peasant,";
	mes "this must be like a dream";
	mes "come true! And to have tea";
	mes "with Clitzer. Oh, what would";
	mes "the girls say? Ah, but I did";
	mes "marry that oafish Megass~";
	next;
	mes "[Satra]";
	mes "Anyway, when you next";
	mes "meet Clitzer, please tell";
	mes "him to pay me a visit soon.";
	mes "Oh, and remind him to dress";
	mes "appropriately for this special";
	mes "occasion. Ho ho ho ho ho~";
	set EIN_LOVERQ,12;
	close;

s_WrongName:
	mes "[Satra]";
	mes "I beg your pardon?";
	mes "" + @str$ + "? Oh my...";
	mes "I believe I may have";
	mes "misheard you. Ho ho ho ho~";
	close;

s_Intimi:
	mes "[Satra]";
	mes "I understand that my";
	mes "home is extravagantly";
	mes "splendid and to approach";
	mes "any Kappelthaine is an";
	mes "honor t most commoners.";
	next;
	mes "[Satra]";
	mes "However, Clitzer";
	mes "has no reason to feel so";
	mes "intimidated. Tell the poor";
	mes "boy that he's earned the";
	mes "honor of speaking with me.";
	close;

}

ein_in01.gat,31,138,4	script	Calla	90,{
	if(EIN_LOVERQ > 4 && EIN_LOVERQ < 14)goto s_NoSwitch;
	if(EIN_LOVERQ > 1)goto s_Switches;
s_NoSwitch:
	mes "[Calla]";
	mes "Hello adventurer.";
	mes "Our city must just be";
	mes "another place where";
	mes "you'll stay no longer";
	mes "than a few days.";
	next;
	mes "[Calla]";
	mes "You must have so much";
	mes "freedom. I envy you. I can't";
	mes "do what I want to do. I don't";
	mes "even have the courage to tell";
	mes "my family what I really want,";
	mes "much less change things here...";
	next;
	mes "[Calla]";
	mes "How is it like?";
	mes "Going wherever you";
	mes "please, following your";
	mes "heart's true desire?";
	mes "What I would give to";
	mes "be able to do that...";
	if(!EIN_LOVERQ)set EIN_LOVERQ,1;
	close;

s_Switches:
	switch(EIN_LOVERQ)
	{

	case 2:
		mes "[Calla]";
		mes "You're the adventurer";
		mes "from before, aren't you?";
		mes "Sadly, there isn't much";
		mes "to do around here. This";
		mes "place is basically like";
		mes "a prison to me...";
		next;
		mes "[Calla]";
		mes "Oh, you've met Clitzer?";
		mes "Isn't he so kind, such";
		mes "a perfect gentleman?";
		next;
		mes "[Calla]";
		mes "I really wish I could";
		mes "see him, but it's almost";
		mes "impossible. My parents think";
		mes "he's not good enough for me,";
		mes "but they're wrong! What am";
		mes "I going to do? Oh, Clitzer...";
		next;
		mes "[Calla]";
		mes "Well, maybe I can't see";
		mes "him, but would you give";
		mes "my violin to Clitzer for me?";
		mes "I used to play this for him";
		mes "all the time...";
		next;
		mes "[Calla]";
		mes "I'm sorry to trouble you,";
		mes "but please understand";
		mes "that I want to comfort my";
		mes "Clitzer in any way that";
		mes "I possibly can. Thank";
		mes "you so much, adventurer...";
		set EIN_LOVERQ,3;
		getitem 1901,1;
		close;
	break;

	case 3:
	s_Regards:
		mes "[Calla]";
		mes "Oh, please send my";
		mes "regards to Clitzer for me.";
		mes "I wish I could comnfort";
		mes "him in person, but this";
		mes "is the best I can do for now.";
		close;
	break;

	case 4:
		if(!countitem(712))goto s_Regards;
		mes "[Calla]";
		mes "You've spoken";
		mes "with Clitzer? How";
		mes "is he? What did he say?";
		next;
		mes "[Calla]";
		mes "Oh...?";
		mes "He asked you to";
		mes "deliver this flower";
		mes "to me? How sweet~";
		mes "Thank you very much,";
		mes "kind adventurer~";
		next;
		mes "[Calla]";
		mes "Ah, I'm so rude!";
		mes "I've been calling you";
		mes "^111111*adventurer*^000000 this whole";
		mes "time you've been helping";
		mes "me! Would you please";
		mes "tell me your name?";
		next;
		input @str$;
		if(@str$ != strcharinfo(0))goto s_WrongName;
		mes "[Calla]";
		mes "Ah, " + strcharinfo(0) + "!";
		mes "Such a lovely name~";
		mes "I promise that I won't ever";
		mes "forget it. Oh, and if you pass by";
		mes "Einbech, would you thank Clitzer";
		mes "for the flower for me please?";
		next;
		mes "[Calla]";
		mes "A-and... And...";
		mes "Please tell him that";
		mes "I really miss him a lot.";
		mes "^565656*Sob Sob...*";
		delitem 712,1;
		set EIN_LOVERQ,5;
		close;
	break;

	case 14:
		mes "[Calla]";
		mes "I just heard from my mother";
		mes "that she's planning to have";
		mes "tea with Clitzer! I'm sure that";
		mes "I have you to thank for this~";
		next;
		mes "[Calla]";
		mes "I never dreamed that";
		mes "something as wonderful";
		mes "as this could happen.";
		mes "I'm so happy, I could cry...";
		mes "I'll always be grateful";
		mes "for what you've done.";
		next;
		mes "[Calla]";
		mes "I feel like such a fool,";
		mes "thinking it was all hopeless.";
		mes "I'll be doing my best to have";
		mes "my parents accept Clitzer and";
		mes "someday we'll be married~";
		next;
		mes "[Calla]";
		mes "There isn't much that I can";
		mes "give you, but I can show you";
		mes "one of my family's secrets.";
		mes "It's an invigorating massage";
		mes "technique that makes you alot";
		mes "healthier in only ten seconds.";
		next;
		mes "[Calla]";
		mes "Well, please take";
		mes "off your equipment";
		mes "and stand still while";
		mes "I give the massage. It";
		mes "might hurt a bit at first...";
		nude;
		next;
		mes "^3151FF*Rub Rub Rub*";
		mes "*Knead Knead Knead*";
		mes "*Crrack C-c-c--c-crack*";
		mes "*Crack Crack Crrrrrack*";
		mes "*Rub Crrraaaaaaaaaackk*^000000";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ooooooooh...";
		mes "I feel sooo";
		mes "sore and yet";
		mes "soooooo good.";
		mes "Wait. Now I just";
		mes "feel goooood~";
		if(BaseLevel < 41)set BaseExp,BaseExp+3712;
		else if(BaseLevel > 40 && BaseLevel < 61)set BaseExp,BaseExp+7425;
		else if(BaseLevel > 60 && BaseLevel < 71)set BaseExp,BaseExp+14850;
		else if(BaseLevel > 70 && BaseLevel < 81)set BaseExp,BaseExp+29700;
		else if(BaseLevel > 80 && BaseLevel < 91)set BaseExp,BaseExp+59400;
		else if(BaseLevel > 90)set BaseExp,BaseExp+118800;
		set EIN_LOVERQ,15;
		next;
		mes "[Calla]";
		mes "So how was it?";
		mes "I hope it was refreshing.";
		mes "Please understand that";
		mes "it's the best thing I can";
		mes "give you to show my gratitude.";
		next;
		mes "[Calla]";
		mes "Once again,";
		mes "thank you so";
		mes "much, " + strcharinfo(0) + ".";
		mes "I'll always pray for";
		mes "your safety on your";
		mes "your adventures~";
		close;
	break;

	case 15:
		mes "[Calla]";
		mes "Thank you so much!";
		mes "I'll try my best to convince";
		mes "my parents to accept our";
		mes "relationship. It'll be hard,";
		mes "but it's a good first step~";
		next;
		mes "[Calla]";
		mes "I hope that we can all";
		mes "work together ti improve";
		mes "relations between Einbech";
		mes "and Einbroch. The hatred";
		mes "between our towns must end...";
		next;
		mes "[Calla]";
		mes "I really appreciate";
		mes "what you've done for";
		mes "all of use. I'll be praying";
		mes "for your safety, adventurer.";
		close;
	break;

	}

s_WrongName:
	mes "[Calla]";
	mes "I'm sorry...";
	mes "I didn't catch that.";
	mes "would you please tell";
	mes "me your name again?";
	close;

}

ein_in01.gat,32,133,6	script	Maid	850,{
	if (Shinokas_Quest == 2 && ein_maid == 0) goto L_Ore;
	mes "[Maid]";
	mes "There's no end";
	mes "to all these plates";
	mes "I have to clean...!";
	close;
	
L_Ore:
	mes "[Maid]";
	mes "Did you ask me";
	mes "if I saw some kind";
	mes "of ore around here?";
	mes "That's strange...";
	next;
	mes "[Maid]";
	mes "Will, I've been with";
	mes "this family for a long";
	mes "time. Let me assure you";
	mes "that there's no secrets";
	mes "from me in this household!";
	next;
	mes "[Maid]";
	mes "I'm sorry, but I don't";
	mes "think we have any ores,";
	mes "special or otherwise, here";
	mes "in the manor. What exactly";
	mes "do you need them for?";
	set ein_maid,1;
	close;
}

einbroch.gat,51,52,1	script	lab_warp	45,2,2{
	if(Shinokas_Quest >= 4 && ein_scientist != 1) goto L_Sec;
	mes "^3131FFThe door is locked.";
	mes "You cannot enter.";
	close;
	
L_Sec:
	mes "[Security System]";
	mes "^FF0000*Beep Boop*^000000";
	mes "Restricted Access Area.";
	mes "Please identify yourself";
	mes "through the system.";
	next;
	switch(select("Identify.:Information:Cancel")) {
	 case 1: //Identify
	  break; //continue after switch =\
		case 2: //information
		 mes "[Security System]";
		 mes "You must use the";
		 mes "security system in order";
		 mes "to gain access into the";
		 mes "Einbroch Laboratory.";
		 next;
		 mes "[Security System]";
		 mes "You will be given";
		 mes "a password that you";
		 mes "must input correctly";
		 mes "withing 60 seconds.";
		 mes "Otherwise, you will";
		 mes "fail the security check.";
		 //hell of a security system ye got there mate
		 //wonder if gravity co has the same sort? xD
		 next;
		 mes "[Security System]";
		 mes "If you take longer";
		 mes "then 3 minutes to";
		 mes "enter the password,";
		 mes "the security system";
		 mes "will initiate lockout.";
			close;
		case 3: //cancel
		 mes "[Security System]";
		 mes "You have canceled";
		 mes "the ID security check.";
		 close;
	}
	//ID check:
	mes "[Security System]";
	mes "Enter the following";
	mes "password in 60 seconds.";
	mes "Failure to do so will result";
	mes "in lockout. Please wait.";
	next;
	mes "[Security System]";
	set @startseconds,gettime(3)*60*60+gettime(2)*60+gettime(1);
	switch(rand(1,11)) {
	case 1:
		mes "^00CCFFburrdingdingdilidingdingphoohudaamb";
		mes "^00CCFFandoora^0000FFbambarambambamburanbamding";
		input @str$;
		if (@str$ != "burrdindingdilidingdingphoohudaambandoorabambarambambamburanbamding") goto L_SCFail;
		goto L_Suc;
	case 2:
		mes "^FF33CCbarapaphurarlandreamduranbatuhi^990066wooi";
		mes "^990066kabamturubamdingding";
		next;
		input @str$;
		if (@str$ != "barapaphurarlandreamduranbatuhiwooikabamturubamdingding") goto L_SCFail;
		goto L_Suc;
	case 3:
	 mes "^00CCFFbelief love luck grimace sweat rush";
	 mes "^00CCFFfolktale rodimus optimus burnblebe";
	 input @str$;
	 if (@str$ != "belief love luck grimace sweat rush folktale rodimus optimus burnblebe") goto L_SCFail;
	 goto L_Suc;
	case 4:
	 mes "^FF33CCLiGhTsPeEd RiGhT SPEed leFT TURn";
	 mes "^FF33CCRiGhT BuRn OrIGInAL GaNgSteR SmACk";
		input @str$;
		if (@str$ != "LiGhTsPeEd RiGhT SPEed leFT TURn RiGhT BuRn OrIGInAL GaNgSteR SmACk") goto L_SCFail;
		goto L_Suc;
	case 5:
	 mes "^00CCFFCoboman no chikara-yumei na";
	 mes "^00CCFFchikara-daiookii na chikara da ze!";
	 mes "^00CCFFCOBO ON";
	 input @str$;
	 if (@str$ != "Coboman no chikara-yumei na chikara-daiookii na chikara da ze! COBO ON") goto L_SCFail;
	 goto L_Suc;
	case 6:
		mes "^FF33CChfjdkeldjs^990066hfjdjeiskdlefvbd";
		input @str$;
		if (@str$ != "hfjdkeldjshfjdjeiskdlefvbd") goto L_SCFail;
		goto L_Suc;
	case 7:
	 mes "^00CCFFI'm the King of all Weirdos! Now";
	 mes "^00CCFFyou know of my true power. Obey~!";
	 input @str$;
	 if (@str$ != "I'm the King of all Weirdos! Now you know of my true power. Obey~!") goto L_SCFail;
	 goto L_Suc;
	case 8:
	 mes "^990066uNflAPPaBLe LoVaBLe SeCreTs AnD";
	 mes "^990066BoWLiNg aGaINST tHe KarMA of YoUtH";
	 input @str$;
	 if (@str$ != "uNflAPPaBLe LoVaBLe SeCreTs AnD BoWLiNg aGaINST tHe KarMA if YoUtH") goto L_SCFail;
	 goto L_Suc;
	case 9:
		mes "^00CCFFBy the power of^000000";
		mes "^00CCFFp-po-poi-po-poi-poin-poing";
		mes "^00CCFFGOD-POING. I NEVER LOSE!";
		input @str$;
		if (@str$ != "By the power of p-po-poi-po-poi-poin-poing GOD-POING. I NEVER LOSE!") goto L_SCFail;
		goto L_Suc;
	case 10:
	 mes "^00CCFF...silence. quiet benevolence...";
	 mes "^00CCFFsoul mate... wonder. enigma...";
	 mes "^00CCFFcloud.^000000";
	 input @str$;
	 if (@str$ != "...silence. quiet benevolence... soul mate... wonder. enigma... cloud") goto L_SCFail;
	 goto L_Suc;
	case 11:
	 mes "^FF33CCopeN,Open!op3n.openOpen0p3nOpEn0pen";
	 mes "^FF33CC`open'0Pen open?open!111OPENSESAME";
	 input @str$;
	 if (@str$ != "opeN,Open!op3n.openOpenOp3nIoEnOpen`open'0Pen open?open!111OPENSESAME") goto L_SCFail;
	 goto L_Suc;
	}
L_Suc:
	next;
	set @endtime,gettime(3)*60*60+gettime(2)*60+gettime(1);
	set @time,@endtime-@startseconds;
	if (@time > 60) goto L_SC60;
	mes "[Security System]";
	mes "It took ^FF0000"+@time+" seconds^000000";
	mes "for you to enter the";
	mes "password. Initiating";
	mes "override. Access granted.";
	close2;
	warp "ein_in01.gat",283,25;
	end;
	
L_SC60:
	mes "[Security System]";
	mes "Time over.";
	mes "It took ^FF0000"+@time+" seconds^000000";
	mes "for you to enter the";
	mes "password. Initiating";
	mes "lockout. Access denied.";
	close;
	
L_SCFail:
	next;
	mes "[Security System]";
	mes "You have failed"; //you haved? =\
	mes "the identification";
	mes "check. Access denied.";
	close;
}
einbroch.gat,51,56,6	script	Laboratory Soldier#01	852,{
	mes "[Laboratory Soldier]";
	mes "This area is off limits.";
	mes "Please leave";
	mes "immediately";
	close;
}
einbroch.gat,51,47,6	script	Laboratory Soldier#02	852,{
	mes "[Laboratory Soldier]";
	mes "This area is off limits.";
	mes "Please leave";
	mes "immediately";
	close;
}
ein_in01.gat,254,35,1	script	Scientist	749,{
	mes "[Scientist]";
	mes "*Grumble grumble*";
	next;
	if (ein_scientist == 1) goto L_P2;
	mes "[Scientist]";
	mes "Huh...?";
	mes "How did you";
	mes "get in here?";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Oh! Ah...";
	mes "I'm the new...";
	mes "Guard. Nice";
	mes "to meet you.";
	next;
	mes "[Scientist]";
	mes "Oh. Yeah.";
	mes "Nice-meet-you";
	mes "..............";
	mes "*Grumble grumble*";
	next;
	switch(select("What's wrong?:Catch you later.")) {
		case 2: //catch
		 mes "[Scientist]";
		 mes "Right.";
		 mes "Yeah.";
		 mes "Later, man.";
		 close;
		case 1:
	}
	mes "[Scientist]";
	mes "What's wrong...?!";
	mes "Oh, don't get me started!";
	mes "I'm stuck here doing all the";
	mes "work while the Lab Departement";
	mes "Head goes out every freakin' day!";
	next;
	mes "[Scientist]";
	mes "While I'm slaving";
	mes "away here, he's in";
	mes "that Airship, busy";
	mes "flirting with that";
	mes "woman. God...!";
	mes "I'm like, so teed off!";
	set ein_scientist,1;
	close;
	
L_P2:
	mes "[Scientist]";
	mes "Man alive!";
	mes "Would it kill the";
	mes "Department Head";
	mes "to come in here and do";
	mes "some work for a change?!";
	next;
	mes "[Scientist]";
	mes "I mean, come on!";
	mes "I shouldn't have to";
	mes "carry his workload!";
	close;
}

ein_in01.gat,266,26,1	script	Unknown Stuff	111,{
	mes "^3131FFThere's something";
	mes "attached to a huge";
	mes "machine with many cords";
	mes "and folds of barbed wire";
	set ein_lab,1;
	close;
}

airplane.gat,31,77,4	script	Drunken Man#03	853,{
	if (ein_lab == 2) goto L_Done;
	mes "[Drunken Man]";
	mes "Okay okay...";
	mes "Daddy's gonna";
	mes "win some Apples";
	mes "this time for sure!";
	next;
	if(ein_lab == 1)
	{
	mes "[Drunken Man]";
	mes "Let's do it!";
	mes "^3131FFYmir's Heart^000000 is";
	mes "on my side! GO!";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Huh...?";
	mes "What did he just say?";
	mes "It seemed important!";
	next;
	}
	mes "^0000FF*Rolling and rumbling*^000000";
	next;
	mes "[Kaci]";
	mes "I have a total of ^FF000011^000000";
	mes "and you have total ^FF00005^000000.";
	mes "You lose this game. I'm";
	mes "sorry, but I hope we play";
	mes "again sometime.";
	donpcevent "Kaci::OnLose";
	next;
	mes "[Drunken Man]";
	mes "Waaaaaahhhhhhhhh!";
	mes "Apples! My apples!";
	mes "Apples, I need more...!";
	if (countitem(512) && ein_lab==1) goto L_Apples;
	close;
	
L_Apples:
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Do you want";
	mes "some of mine?";
	next;
	if (countitem(512) <100) {
		mes "[Drunken Man]";
		mes "What...?";
		mes "I can't do anything";
		mes "with so few Apples!";
		mes "I'm a high roller and";
		mes "this is a high stakes game!";
		close;
	}
	mes "[Drunken Man]";
	mes "Wha--? Yes...";
	mes "Hell yes! Gimme";
	mes "some of your Apples!";
	mes "Yeeeeeeeeeeehaw!";
	mes "I'm back, baby!";
	next;
	mes "[Drunken Man]";
	mes "Now, to win!";
	mes "Daddy needs love...";
	mes "Time to go from";
	mes "crappy to classy!";
	next;
	mes "^0000FF*Rolling and rumbling*^000000";
	next;
	delitem 512,countitem(512);
	set @kaci,rand(2,12);
	set @man,rand(2,12);
	if(@man == @kaci){
	switch(rand(1,2))
		{
		case 1:
			if(@man != 12)set @man,@man+1;
			else set @man,@man-1;
		break;

		case 2:
			if(@man != 2)set @man,@man-1;
			else set @man,@man+1;
		break;

		}
	}
	mes "[Kaci]";
	mes "Oooh...";
	mes "I got a total of ^FF0000"+@kaci+"^000000,";
	mes "and you have a total of ^FF0000"+@man+"^000000.";
	if (@man < @kaci) {
	mes "I'm sorry, but you lose";
	mes "again. Better luck next time...";
	donpcevent "Kaci::OnLose";
	next;
	mes "[Drunken Man]";
	mes "Waaaaaahhhhhhhhhhhh!";
	mes "Waaaaaaaahhhhhhh!";
	close;
	}
	mes "Congratulations, you won!";
	mes "Let me give you your winning";
	mes "and we'll play again some time~";
	donpcevent "Kaci::OnWin";
	next;
	mes "[Drunken Man]";
	mes "Mwahhhahahahaha!";
	mes "Whahahahahahahahaha!";
	mes "That's why they call me";
	mes "the 'Resurrection Kid!'";
	mes "I always come back!";
	next;
	mes "[Drunken Man]";
	mes "Oh yes, right!";
	mes "You...! You lent";
	mes "me those lucky";
	mes "Apples. ^111111*Hiccup*^000000";
	next;
	mes "[Drunken Man]";
	mes "I'm Kurschenburg!";
	mes "Thanks to you, I'm";
	mes "on a winning streak!";
	mes "Hahaha! Th-thank you~";
	mes "^111111*Hic-hic-hiccup!*^000000";
	next;
	switch(select("So what was that about Ymir's Heart?:Hehe, you're welcome.")) {
		case 1: //heart
		 break;
		case 2: //welcome
		 mes "[Drunken Man]";
		 mes "Hahahaha!";
		 mes "You're great!";
		 mes "And I feel great!";
		 mes "Bwahahahaahahah!";
		 mes "^111111*Hiccup*^000000";
		 close;
	}
	mes "[Drunken Man]";
	mes "What...?";
	mes "Ymir's Heart?";
	mes "How do you know";
	mes "about that? ^111111*Hiccup*^000000";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Y-you...!";
	mes "You were just yelling,";
	mes "'Ymir's Heart is on my";
	mes "side,' while you were";
	mes "gambling with those Apples!";
	next;
	mes "[Drunken Man]";
	mes "What...?!";
	mes "No way~";
	mes "Err...? Did I...?";
	next;
	mes "[Drunken Man]";
	mes "Heh heh...";
	mes "I'm not really";
	mes "supposed to be talking";
	mes "about this. As head of";
	mes "the Laboratory, I'm sworn";
	mes "to secrecy about Ymir's Heart.";
	next;
	mes "[Drunken Man]";
	mes "But what do I care?!";
	mes "All they want are the";
	mes "results of my research!";
	mes "They don't appreciate";
	mes "my work at all! My title";
	mes "is completely worthless!";
	next;
	mes "[Drunken Man]";
	mes "You don't know how long I've";
	mes "been imprisoned in the lab and";
	mes "that the work conditions just get";
	mes "worse and worse. Screw them! I'll";
	mes "keep getting paid as long as I show";
	mes "them some progress in our project!";
	next;
	menu "Project?",-;
	mes "[Drunken Man]";
	mes "Yeah, we're researching";
	mes "Ymir's Heart. It was found";
	mes "a long time ago in ^3131FFEinbech^000000";
	mes "and it's in our lab now.";
	next;
	mes "[Drunken Man]";
	mes "Everyone knows it's supposed";
	mes "to hold some legendary power,";
	mes "but even I was surprised to see";
	mes "what it was capable of. It's both";
	mes "terrible and miraculous, scary";
	mes "and wondrous...";
	next;
	mes "[Drunken Man]";
	mes "So...";
	mes "I figure...";
	mes "It may even";
	mes "have the power to";
	mes "win me Dice games!";
	mes "Bwahaha--*Hiccup!*";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "(That thing I saw";
	mes "hooked up to all those";
	mes "wires in the Laboratory";
	mes "must have been a piece";
	mes "of ^3131FFYmir's Heart^000000. I better";
	mes "tell Shinokas about this.)";
	set ein_lab,2;
	close;
	
L_Done:
	mes "[Drunken Man]";
	mes "Hahahahaha!";
	mes "You're great!";
	mes "I feel great!";
	mes "Everything's great!";
	mes "Bwahahahaahahah!";
	mes "*Hiccup*";
	close;
}

//| Temporal NPC locations until the text inside it has been obtained

//que_ng.gat,182,85,2	script	TempNPC0	109,{
//end;
//}

//que_ng.gat,187,149,3	script	TempNPC1	83,{
//end;
//}

//que_ng.gat,187,154,3	script	TempNPC2	86,{
//end;
//}

//que_ng.gat,187,161,3	script	TempNPC3	744,{
//end;
//}

//que_ng.gat,185,180,3	script	TempNPC4	726,{
//end;
//}

//que_ng.gat,149,178,5	script	TempNPC5	744,{
//end;
//}