//===== eAthena Script =======================================
//= Quest NPCs related to Einbroch and Einbech
//===== By: ==================================================
//= Evera and The eAthena Dev Team
//===== Current Version: =====================================
//= 1.9
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= Shinokas Quest, Einbroch Lover Quest, Factory Quest,
//= Uwe Quest.
//===== Additional Comments: =================================
//= 1.0 Initial Release [Evera]
//= 1.1 Added more quests [Evera]
//= 1.2 Added quest bits from Einbech and renamed file to
//= quests_ein.txt [Evera]
//= 1.3 Implemented the polution quest. [MasterOfMuppets]
//= 1.4.1 Massive bugfix. Fixed Pollution exploit [Lupus]
//= 1.4.2 Fixed Khowropher bug [Lupus]
//= 1.5 Fixed double levelup bug [Lupus]
//= 1.5.1 Fixed exploit [KarLaeda]
//= 1.5.2 Updated Shino Quest to leave no grabage vars [Lupus]
//= 1.5.3 Fixed some typos regarding Schwartzvalt Trilogy [SinSloth]
//= 1.6 Updated Laboratory Entrance regarding Heart Fragment quest. [SinSloth]
//= 1.7 Changed the laboratory entrance checking to prevent players
//= from being stuck in the quest. [SinSloth]
//= 1.8 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
//= 1.9 Fixed a bug with Einbroch Pollution quest. [SinSloth]
//============================================================
//============================================================
//=================================================== Shinokas
//====================================================== Quest
ein_in01,231,163,1 script Sick Old Man 849,6,6,{
switch(Shinokas_Quest){
case 9:
mes "^3131FFShinokas's";
mes "body has grown";
mes "cold to the tough.";
close;
case 8:
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 "*Cough 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,9;
close;
case 7:
mes "[Shinokas]";
mes "...";
mes "......";
close;
case 6:
mes "[Shinokas]";
mes "So...?";
mes "Did you learn";
mes "anything new";
mes "in the Factory?";
next;
mes "["+strcharinfo(0)+"]";
if(EinFactory != 16){
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;
}
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 "[Shinokas]";
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,7;
close;
}
}
case 5:
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,6;
close;
case 4:
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;
}
//Shinokas_Quest = 0 1 2 3 10
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(Shinokas_Quest != 3){
mes "^3131FFYou feel really awkward";
mes "just staring at this old";
mes "man violently rolling";
mes "around in his bed.";
close;
}
//Shinokas_Quest = 3
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(@shinqst2 > 4 || @shinqst3 > 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(@shinqst2 > 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 @shinqst2,@shinqst2 + 1;
if(@shinqst3)set @shinqst3,0;
next;
break;
case 3: //einbroch
if(@shinqst3 > 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 @shinqst3,@shinqst3 + 1;
if(@shinqst2)set @shinqst2,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,4;
close;
OnTouch:
if(Shinokas_Quest != 8) 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.";
close;
}
ein_in01,32,133,6 script Maid 850,{
mes "[Maid]";
if(Shinokas_Quest != 4){
mes "There's no end";
mes "to all these plates";
mes "I have to clean...!";
close;
}
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 Shinokas_Quest,5;
close;
}
einbroch,51,52,1 script lab_warp 45,2,2{
if(Shinokas_Quest != 7 && lhz_heart != 9 && lhz_heart != 10){
mes "^3131FFThe door is locked.";
mes "You cannot enter.";
close;
}
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 of 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.openOpen0p3nOpEn0pen`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",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";
mes "the identification";
mes "check. Access denied.";
close;
}
einbroch,51,56,6 script Laboratory Soldier#01 852,{
mes "[Laboratory Soldier]";
mes "This area is off limits.";
mes "Please leave";
mes "immediately";
close;
OnHide:
specialeffect 16;
disablenpc "Laboratory Soldier#01";
end;
OnUnhide:
misceffect 215;
end;
}
einbroch,51,47,6 script Laboratory Soldier#02 852,{
mes "[Laboratory Soldier]";
mes "This area is off limits.";
mes "Please leave";
mes "immediately";
close;
OnHide:
specialeffect 16;
disablenpc "Laboratory Soldier#02";
end;
OnUnhide:
misceffect 215;
end;
}
ein_in01,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;
if(select("What's wrong?:Catch you later.")==2){
mes "[Scientist]";
mes "Right.";
mes "Yeah.";
mes "Later, man.";
close;
}
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!";
if(Shinokas_Quest == 7) 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,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";
if(Shinokas_Quest == 7) set ein_stuff,1;
close;
}
airplane,31,77,4 script Drunken Man#03 853,{
if(Shinokas_Quest >= 8){
mes "[Drunken Man]";
mes "Hahahahaha!";
mes "You're great!";
mes "I feel great!";
mes "Everything's great!";
mes "Bwahahahaahahah!";
mes "*Hiccup*";
close;
}
mes "[Drunken Man]";
mes "Okay okay...";
mes "Daddy's gonna";
mes "win some Apples";
mes "this time for sure!";
next;
if(ein_stuff && ein_scientist){
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_stuff && ein_scientist) 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){
if(rand(2)){
if(@man != 12)
set @man,@man+1;
else
set @man,@man-1;
}else{
if(@man != 2)
set @man,@man-1;
else
set @man,@man+1;
}
}
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;
if(select("So what was that about Ymir's Heart?:Hehe, you're welcome.")==2){
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 Shinokas_Quest,8;
//cleaning temp variables from the lab.
set ein_stuff,0;
set ein_scientist,0;
close;
}
einbech,57,210,4 script Young Man#04 854,{
mes "[Young Man]";
mes "Behind the pub,";
mes "you'll see this old man";
mes "who's always mumbling";
mes "something to himself.";
next;
mes "[Young Man]";
mes "Sometimes he seems really";
mes "angry, but other times he looks";
mes "awfully depressed. He must have";
mes "lived through some really horrible";
mes "experiences. I can't help but feel";
mes "really sorry for the old guy.";
next;
mes "[Young Man]";
mes "He says and does";
mes "a lot of strange things.";
mes "It's sad to see someone";
mes "that old act that way, but";
mes "it makes me wonder what";
mes "could have happened to him.";
if(!Shinokas_Quest)set Shinokas_Quest,1;
close;
}
einbech,165,105,7 script Buender Hikeman 847,{
if(Shinokas_Quest >= 9) goto L_P2;
if(Shinokas_Quest == 3) goto L_BEST;
if(Shinokas_Quest == 2) goto L_BASTARD;
mes "[Buender Hikeman]";
mes "...";
mes "......";
if(!Shinokas_Quest)close;
next;
mes "[Buender Hikeman]";
mes "...";
mes "......";
mes "......You...";
next;
mes "[Buender Hikeman]";
mes "...";
mes "......";
mes "......You...";
mes "......Stop it...";
next;
mes "[Buender Hikeman]";
mes "...";
mes "......";
mes "......You...";
mes "......Stop it...";
mes "...You ^FF0000bastard^000000!";
next;
mes "[Buender Hikeman]";
mes "RaaaaAAAARGHHH!!";
next;
mes "[Buender Hikeman]";
mes "^0000FFThe old man seems^000000";
mes "^0000FFslightly irked at seeing^000000";
mes "^0000FFyou. Unfortunately, his^000000";
mes "^0000FFscreaming and rambling^000000";
mes "^0000FFis totally incoherent.^000000";
next;
mes "[Buender Hikeman]";
mes "It ^FF0000is^000000 you!";
mes "You're responsible!";
mes "You've taken everything";
mes "away from me!!";
next;
menu "What are you talking about?",L_WHAT,"Ignore Him.",-;
mes "[Buender Hikeman]";
mes "W...wait!";
mes "I said wait!";
mes "*Cough!*";
close;
L_WHAT:
mes "[Buender Hikeman]";
mes "How dare you...";
mes "How dare you treat";
mes "after destroying all the";
mes "happiness in my life!";
next;
mes "[Buender Hikeman]";
mes "Damn you...";
mes "How can you have";
mes "the audacity to pretend";
mes "as if nothing happened?!";
mes "*C-cough Cough...*";
next;
mes "[Buender Hikeman]";
mes "Are you so evil to";
mes "just shallowly forget";
mes "what you've done to our";
mes "lives? Did you already";
mes "forget what you did";
mes "here in Einbech?!";
next;
mes "[Buender Hikeman]";
mes "It was such a long";
mes "time ago, but I'll never";
mes "forget. This town was";
mes "small, but full of folk";
mes "with warm hearts...";
next;
mes "[Buender Hikeman]";
mes "Me, Khartophe, Anuto,";
mes "Maskharundt... All of";
mes "us were friends hired";
mes "by that businessman";
mes "to dig up ores in the mine.";
next;
mes "[Buender Hikeman]";
mes "And then there";
mes "was you! All of us";
mes "put together made the";
mes "greatest mining team!";
mes "That was, until, we";
mes "discovered ^FF0000it^000000.";
next;
mes "[Buender Hikeman]";
mes "Yes...";
mes "The mysterious ore";
mes "that dazzled with a";
mes "magnificent light.";
next;
mes "[Buender Hikeman]";
mes "But we should have known";
mes "that the ^0000FFUngoliant^000000 would";
mes "be arround that ore. We";
mes "should have realized";
mes "the danger...";
next;
mes "[Buender Hikeman]";
mes "We reported our findings";
mes "to our employer, and then";
mes "the ore just disappeared. He";
mes "must have sent it somewhere,";
mes "it was none of our business.";
next;
mes "[Buender Hikeman]";
mes "Then life was back";
mes "to normal for a while.";
mes "But one day you yelled";
mes "to us that you had found";
mes "another special, mysterious";
mes "ore in the mines.";
next;
mes "[Buender Hikeman]";
mes "But when we came";
mes "over to check the hole";
mes "you dug up, you know";
mes "what we found...?!";
next;
menu "Ungoliant?",L_UNGOLIANT,"A mysterious ore, right?",L_ORE,"Nothing...?",-;
mes "[Buender Hikeman]";
mes "Yes...";
mes "Nothing.";
next;
goto L_CONTINUE;
L_UNGOLIANT:
mes "[Buender Hikeman]";
mes "Don't you remember";
mes "what happened? What";
mes "you did to us at that time?!";
next;
L_CONTINUE:
mes "[Buender Hikeman]";
mes "There was nothing";
mes "inside the hole!";
next;
mes "[Buender Hikeman]";
mes "Then you pointed to";
mes "the wall behind us and";
mes "screamed that Ungoliant";
mes "was coming! In our panic";
mes "we started to dig our way out!";
next;
mes "[Buender Hikeman]";
mes "I remember that the expression on";
mes "your face seemed so strange. I had";
mes "thought you looked sad, but now I'm";
mes "sure you were consumed by greed! We";
mes "trusted you and you betrayed us!";
next;
mes "[Buender Hikeman]";
mes "When we finally smashed";
mes "down that last wall, everything";
mes "started to fall around us. We";
mes "were the only two to survive";
mes "that tunnel collapse.";
next;
mes "[Buender Hikeman]";
mes "Then I learned...";
mes "You planned it all along.";
if(Shinokas_Quest == 1) set Shinokas_Quest,2;
close;
L_ORE:
mes "[Buender Hikeman]";
mes "Don't you remember";
mes "what happened? What";
mes "you did to us at that time?!";
next;
goto L_CONTINUE;
L_BASTARD:
mes "[Buender Hikeman]";
mes "Bastard!";
mes "I'm sick of";
mes "your lies!";
next;
menu "I'm not who you think!",L_IM,"How did you survive the accident?",-;
L_HOW:
mes "[Buender Hikeman]";
mes "When I came to,";
mes "I was lying on my";
mes "stomach in the ruins";
mes "of that dark tunnel.";
next;
mes "[Buender Hikeman]";
mes "And I found...";
mes "You know what I found.";
next;
mes "[Buender Hikeman]";
mes "*Cough Cough*";
mes "The corpses of my friends!";
mes "Kartophe, Anuto, Maskharundt";
mes "Great men and my best friends.";
mes "But where were you?!";
next;
mes "[Buender Hikeman]";
mes "Your body was nowhere";
mes "to be found. I searched";
mes "the tunnel and finnaly";
mes "climbed outside where";
mes "I was found unconscious.";
next;
mes "[Buender Hikeman]";
mes "I was so stupid.";
mes "It was because of";
mes "that ore! You killed our";
mes "friend and destroyed";
mes "my life for that thing!";
next;
mes "[Buender Hikeman]";
mes "And now...";
mes "You come out of";
mes "hiding and show up.";
mes "What do you want of";
mes "me? What more can";
mes "you possibly take away?!";
next;
menu "I'm not who you think I am!",L_THINK,"I'd like to apologize.",-;
mes "[Buender Hikeman]";
mes "Ha ha...";
mes "Apologize?";
mes "The harm is";
mes "already done...";
goto L_CONTINUE2;
L_THINK:
mes "[Buender Hikeman]";
mes "Quit lying!";
mes "You've stirred up";
mes "my hatred by showing";
mes "up again! I've never";
mes "forgotten that day!";
next;
L_CONTINUE2:
mes "[Buender Hikeman]";
mes "It's too late";
mes "for you now. For";
mes "the sake of my friends,";
mes "I'll have my vengeance!";
next;
mes "[Buender Hikeman]";
mes "Prepare to die!";
mes "^0000FFShinokas^000000!!!!";
next;
mes "[Buender Hikeman]";
mes "...!";
mes "*Cough! Cough!*";
mes "Noooo! N-not now...";
mes "*Cough! Cough!*";
next;
mes "[" + strcharinfo(0) + "]";
mes "...";
mes "I better";
mes "get away";
mes "from him!";
next;
mes "^0000FFYou ran away from Hikeman^000000";
mes "^0000FFas he collapsed on the ground^000000";
mes "^0000FFIt wouldn't be a good idea to^000000";
mes "^0000FFprovoke the old man anymore,^000000";
mes "^0000FFintentionally or not.^000000";
if(Shinokas_Quest == 2) set Shinokas_Quest,3;
close;
L_BEST:
mes "^0000FFIt'd be best^000000";
mes "^0000FFto avoid aggravating^000000";
mes "^0000FFthe old man for now.^000000";
close;
L_IM:
mes "[Buender Hikeman]";
mes "Ha...!";
mes "Do you think";
mes "I'd so easily";
mes "forget the face";
mes "of the person who";
mes "shattered my life?!";
next;
goto L_HOW;
L_P2:
mes "^0000FFHikeman is dozing^000000";
mes "^0000FFoff in his chair. Judging^000000";
mes "^0000FFfrom the look of discomfort^000000";
mes "^0000FFon his face, he seems to be^000000";
mes "^0000FFhaving a nightmare.^000000";
if(Shinokas_Quest == 10) close;
next;
mes "["+strcharinfo(0)+"]";
mes "Excuse me...";
next;
mes "[Buender Hikeman]";
mes "Huh...?";
mes ".........!!";
mes "Hahahahaha!";
mes "Come back for";
mes "your beating,";
mes "eh, Shinokas?!";
next;
mes "["+strcharinfo(0)+"]";
mes "Look...!";
mes "I'm not Shinokas,";
mes "okay? How can you";
mes "forget what he looks";
mes "like or how old he is?";
mes "I'm way younger!";
next;
mes "[Buender Hikeman]";
mes "What...?";
next;
mes "[Buender Hikeman]";
mes "..................";
next;
mes "[Buender Hikeman]";
mes "Uhhhh......";
next;
mes "[Buender Hikeman]";
mes "Huh.";
next;
mes "[Buender Hikeman]";
mes "It seems...";
mes "I've made a";
mes "huge mistake.";
next;
mes "[Buender Hikeman]";
mes "Ever since the accident, people";
mes "have said that I haven't been the";
mes "same. Maybe they're right.";
next;
mes "[Buender Hikeman]";
mes "I keep making the same";
mes "mistakes, so maybe they're";
mes "right about me getting senile.";
mes "Did you come just to clear";
mes "up this misunderstanding?";
next;
mes "["+strcharinfo(0)+"]";
mes "Um...";
mes "Actually...";
next;
menu "Tell Hikeman about Shinakas's death.",-,"Don't notify Hikeman",L_NNotify;
set Shinokas_Quest,10;
mes "["+strcharinfo(0)+"]";
mes "Shinokas died";
mes "a while ago in";
mes "Einbroch.";
next;
mes "[Buender Hikeman]";
mes "Wh-what...?";
next;
mes "["+strcharinfo(0)+"]";
mes "Shinokas was killed by";
mes "some men. He thinks they";
mes "may have been the ones";
mes "who hired you guys. In the";
mes "end, he was betrayed too...";
next;
mes "[Buender Hikeman]";
mes "I...";
mes "I see...";
next;
mes "["+strcharinfo(0)+"]";
mes "Shinokas may have";
mes "gotten some money,";
mes "but he spent the rest";
mes "of his life in hiding,";
mes "being hunted down.";
next;
mes "[Buender Hikeman]";
mes "Nothing's left.";
mes "I've got nothing";
mes "to look forward to.";
mes "I was living only to";
mes "avenge my friends...";
next;
mes "[Buender Hikeman]";
mes "Please...";
mes "Just go back to";
mes "wherever you came";
mes "from. Leave me alone...";
next;
mes "["+strcharinfo(0)+"]";
mes "...";
next;
mes "["+strcharinfo(0)+"]";
mes "Did Hikeman really want";
mes "revenge on Shinokas or did";
mes "he want to hear him out since";
mes "they used to be close friends?";
next;
mes "["+strcharinfo(0)+"]";
mes "If I mention that";
mes "what they found was";
mes "the Ymir Heart Piece,";
mes "Hikeman might end up";
mes "getting hunter down, so";
mes "I better not say anything.";
next;
mes "["+strcharinfo(0)+"]";
mes "Why are those men";
mes "so obsessed with that";
mes "Ymir Heart Piece? Is it";
mes "really worth this kind of";
mes "cruelty? Whoever they are,";
mes "their intentions can't be good.";
if(BaseLevel < 41) getexp 34750,0;
else if(BaseLevel > 40 && BaseLevel < 61) getexp 69500,0;
else if(BaseLevel > 60 && BaseLevel < 71) getexp 139000,0;
else if(BaseLevel > 70 && BaseLevel < 81) getexp 278000,0;
else if(BaseLevel > 80 && BaseLevel < 91) getexp 417000,0;
else if(BaseLevel > 90) getexp 556000,0;
close;
L_NNotify:
mes "["+strcharinfo(0)+"]";
mes "Yeah...";
mes "That's right.";
mes "I wanted to clear up";
mes "this misunderstanding";
mes "so you could calm down,";
mes "even if it's just a little bit.";
next;
mes "[Buender Hikeman]";
mes "Well, you don't have";
mes "to worry so much about";
mes ",u stress. I find that the";
mes "winds that pass through";
mes "this town to be very relaxing.";
next;
mes "[Buender Hikeman]";
mes "Each time the wind";
mes "blows by, my vision blurs,";
mes "my memories haze and all";
mes "of my hatred just drifts away.";
next;
mes "[Buender Hikeman]";
mes "Without the wind, I'd only";
mes "have my hatred towards ^FF0000him^000000.";
mes "Maybe it's my only reason for";
mes "living and maybe I'm lonely,";
mes "but it's too late to feel";
mes "sorry for myself now.";
close;
}
//============================================================
//============================================= Einbroch Lover
//====================================================== Quest
ein_in01,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$;
mes "[Satra]";
if(@str$ != "Clitzer"){
mes "I beg your pardon?";
mes "" + @str$ + "? Oh my...";
mes "I believe I may have";
mes "misheard you. Ho ho ho ho~";
close;
}
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_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,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$;
mes "[Calla]";
if(@str$ != strcharinfo(0)){
mes "I'm sorry...";
mes "I didn't catch that.";
mes "would you please tell";
mes "me your name again?";
close;
}
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) getexp 3712,0;
else if(BaseLevel > 40 && BaseLevel < 61) getexp 7425,0;
else if(BaseLevel > 60 && BaseLevel < 71) getexp 14850,0;
else if(BaseLevel > 70 && BaseLevel < 81) getexp 29700,0;
else if(BaseLevel > 80 && BaseLevel < 91) getexp 59400,0;
else if(BaseLevel > 90) getexp 118800,0;
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;
}
}
ein_in01,191,102,4 script Kaijeta 846,{
if(EIN_LOVERQ > 13)goto s_Learned;
if(EIN_LOVERQ == 13)goto s_Clothes;
if(EIN_LOVERQ > 6 && EIN_LOVERQ < 13)goto s_Hatred;
if(EIN_LOVERQ == 6)goto s_Helping;
mes "[Kaijeta]";
mes "Welcome to my humble";
mes "abode, adventurer. I'm";
mes "sorry if I'm a poor host.";
next;
mes "[Kaijeta]";
mes "As you can see, we have";
mes "to share this house with";
mes "other families so we don't";
mes "have much open space or";
mes "privacy. I'm afraid we can't";
mes "even affor basic comfort.";
next;
mes "[Kaijeta]";
mes "For now, this is the best";
mes "we can do. We don't have";
mes "the zeny to buy a house or";
mes "land, so we have no choice";
mes "but to endure through this...";
close;
s_Helping:
mes "[Kaijeta]";
mes "Thank you for helping my";
mes "son. He may look like a fool";
mes "for falling in love with someone";
mes "from Einbroch, but he's an honest";
mes "hard working man.";
next;
mes "[Kaijeta]";
mes "Then again, it was bound to";
mes "happen sometime. Einbech is";
mes "a very poor town while Einbroch";
mes "is a very rich town. I'd understand";
mes "if you don't agree, but opposites";
mes "attract sooner of later.";
next;
mes "[Kaijeta]";
mes "^565656*Sigh...*^000000";
mes "If my son and Calla can";
mes "work things out, maybe it";
mes "would improve relations";
mes "between our two towns.";
mes "I certainly hope so...";
next;
mes "[Kaijeta]";
mes "Still, I'm quite baffled!";
mes "I raised my son to have more";
mes "guts than to wallow in misery";
mes "when his heart's broken. And";
mes "I still have no idea how he got";
mes "together with such a rich woman.";
next;
mes "[Kaijeta]";
mes "Do you have any idea";
mes "how we can put an end";
mes "to the hate between our";
mes "two towns? I don't want to";
mes "see this couple separated";
mes "because of such pettiness.";
set EIN_LOVERQ,7;
close;
s_Hatred:
mes "[Kaijeta]";
mes "I can't bear to see the";
mes "petty hatred between our";
mes "two towns stop my son from";
mes "seeing the woman he loves...";
close;
s_Clothes:
mes "[Kaijeta]";
mes "Thank you for helping";
mes "my son Clitzer. Sadly, the";
mes "little fool doesn't have any";
mes "clue when it comes to certain";
mes "things like choosing clothing.";
mes "he gets so nervous about it!";
next;
mes "[Kaijeta]";
mes "A man should wear nice";
mes "clothes, like a Formal Suit";
mes "or a Tuxedo, for important";
mes "meetings and special occassions.";
mes "hopefully, he'll learn that soon.";
close;
s_Learned:
mes "[Kaijeta]";
mes "My son learned";
mes "an awful lot from";
mes "your good example.";
mes "As a mother, I really";
mes "appreciate everything";
mes "you've done for him.";
next;
mes "[Kaijeta]";
mes "Well, adventurer,";
mes "I will be praying for";
mes "your safety wherever";
mes "your journeys may";
mes "take you.";
close;
}
ein_in01,200,101,4 script Clitzer 854,{
if(EIN_LOVERQ)goto s_Switches;
s_Back:
mes "[Clitzer]";
mes "Is there something";
mes "that you really want";
mes "in life, but it's just";
mes "beyond your grasp?";
next;
mes "[Clitzer]";
mes "I wish I was more";
mes "like you adventurers.";
mes "People like you never";
mes "seem to give up, no matter";
mes "what the obstacles may be.";
mes "But I'm so helpless...";
next;
mes "[Clitzer]";
mes "I can't even see";
mes "the one person that";
mes "I love. We're just so";
mes "different that it's not";
mes "even possible anymore...";
close;
s_Switches:
switch(EIN_LOVERQ){
case 1:
mes "[Clitzer]";
mes "That faintly sweet";
mes "and pleasant scent...";
mes "It's just like the fragrance";
mes "they use in Calla's house.";
next;
mes "[Clitzer]";
mes "Ah, so you visited";
mes "Calla in Einbroch?";
mes "I miss her sooo much!";
mes "Is she doing alright?";
next;
mes "[Clitzer]";
mes "Calla's so beautiful.";
mes "And she's so lovely.";
mes "Every time I close my";
mes "eyes, I can still see";
mes "her lovely smile.";
next;
mes "[Clitzer]";
mes "I'm sorry if I sound";
mes "silly, but I can't help";
mes "it. I know I'm acting like";
mes "a complete idiot. But I'd";
mes "give anything to see her...";
next;
mes "[Clitzer]";
mes "Just...";
mes "Just don't listen";
mes "to anything I say.";
mes "I'm just a poor fool";
mes "in love with the wrong";
mes "person. That has to be it...";
set EIN_LOVERQ,2;
close;
break;
case 2:
mes "[Clitzer]";
mes "^565656*Sigh*^000000";
mes "I really appreciate your";
mes "sympathy, but I'm merely";
mes "a coward and a fool.";
next;
mes "[Clitzer]";
mes "Yeah...";
mes "I'm a coward for doing";
mes "nothing about my feelings";
mes "and an idiot for falling in love";
mes "with such a high class girl in";
mes "the first place... Oh, Calla...";
close;
break;
case 3:
if(!countitem(1901))goto s_Back;
mes "[Clitzer]";
mes "What brings you here?";
mes "aren't you tired of hearing";
mes "me moan and whine about";
mes "lost love? ^111111*Siiiiigh...*^000000";
next;
mes "[Clitzer]";
mes "Hey, this violin...";
mes "Calla used to play";
mes "such beautiful music";
mes "on this for me. Did";
mes "she give this to you?";
next;
mes "[Clitzer]";
mes "I see. Calla must have";
mes "known that I'm all broken up";
mes "right now. She's too good to";
mes "me. How can se consider";
mes "my feelings before thinking";
mes "about herself?";
next;
mes "[Clitzer]";
mes "I know I'm being";
mes "shameless, but I have";
mes "a favor to ask. Adventurer,";
mes "would you please send";
mes "Calla a present for me?";
next;
mes "[Clitzer]";
mes "All you need to do is";
mes "just give her ^FF00001 Flower^000000.";
mes "I don't have the zeny and";
mes "I don't think I'm welcome";
mes "at Kapellthaine Manor.";
next;
mes "[Clitzer]";
mes "Here, in return, I'll";
mes "give you this health";
mes "massage. It's not a";
mes "big deal, but when I'm";
mes "done, your mind and body";
mes "will be refreshed. Here goes!";
next;
mes "^3151FF*Knead Knead*";
mes "*Rub Rub Rub Rub*";
mes "*Press Press Press*";
mes "*C-c-c-c-c-c-crakck!*^000000";
next;
mes "[" + strcharinfo(0) + "]";
mes "Oh--";
mes "Hell yeah!";
mes "That's the stuff!";
delitem 1901,1;
if(BaseLevel < 41) getexp 3712,0;
else if(BaseLevel > 40 && BaseLevel < 61) getexp 7425,0;
else if(BaseLevel > 60 && BaseLevel < 71) getexp 14850,0;
else if(BaseLevel > 70 && BaseLevel < 81) getexp 29700,0;
else if(BaseLevel > 80 && BaseLevel < 91) getexp 59400,0;
else if(BaseLevel > 90) getexp 118800,0;
set EIN_LOVERQ,4;
next;
mes "[Clitzer]";
mes "Would you please bring";
mes "1 Flower to Calla for me?";
mes "I'm sorry for troubling you...";
close;
break;
case 4:
mes "[Clitzer]";
mes "Would you please bring";
mes "1 Flower to Calla for me?";
mes "I'm sorry for troubling you...";
close;
break;
case 5:
mes "[Clitzer]";
mes "You've given her";
mes "the flower? That's";
mes "great! Thank you,";
mes "thank you so mu--";
next;
mes "[Clitzer]";
mes "...Oh!";
mes "Gosh! I was thinking so";
mes "much about myself that";
mes "I forgot to ask you for your";
mes "name! I'm sorry for being";
mes "so knuckle-headed...";
next;
mes "[Clitzer]";
mes "So...";
mes "What's your name?";
next;
input @str$;
mes "[Clitzer]";
if(@str$ != strcharinfo(0)){
mes "Hm...?";
mes "Oh, don't be";
mes "so nervous~";
mes "But would you please";
mes "tell me your name again?";
mes "I couldn't hear you...";
close;
}
mes "" + strcharinfo(0) + "...";
mes "That's very nice. Thank you,";
mes "I'm really grateful for your help.";
mes "Although I can't see Calla in";
mes "person, I can at least send";
mes "my regards if you help me.";
next;
mes "[Clitzer]";
mes "I feel so much";
mes "better now. Oh!";
mes "When you have the";
mes "time, why don't you talk";
mes "to my mother? She always";
mes "likes meeting my friends.";
set EIN_LOVERQ,6;
close;
break;
case 6:
case 7:
case 8:
case 9:
case 10:
case 11:
mes "[Clitzer]";
mes "^111111*Sigh...*^000000";
mes "What can I do to";
mes "get Calla's parents";
mes "to accept me as her";
mes "boyfriend? I can't";
mes "think of anything...";
close;
break;
case 12:
mes "[Clitzer]";
mes "Eh...?";
mes "What did you just say?";
mes "You did something for";
mes "the Kapellthaines?";
next;
mes "[Clitzer]";
mes "What...?";
mes "Did you just say";
mes "that Calla's mother";
mes "wants me to have tea";
mes "with her? Holy moley...!";
next;
mes "[Clitzer]";
mes "Okay, okay.";
mes "I-I I'll need something";
mes "nice to wear, right? Oh.";
mes "Wow. This is so sudden!";
mes "W-what should I do?";
next;
mes "[Clitzer]";
mes "This monkey suit";
mes "that I've got on just";
mes "won't do! Arrrgh! But I've";
mes "already outgrown all of my";
mes "nice clothes already. Boy,";
mes "am I in a pickle...";
set EIN_LOVERQ,13;
close;
break;
case 13:
if(countitem(2320) || countitem(7170))goto s_Clothes;
mes "[Clitzer]";
mes "Noooooo!";
mes "I've got to find";
mes "the perfect thing";
mes "to wear or Calla's";
mes "mother might ^FF0000hate^000000 me!";
next;
mes "[Clitzer]";
mes "Think, Clitzer, think!";
mes "Okay, no fun colors.";
mes "I don't want her to";
mes "think I'm not serious";
mes "about Calla. Stripes";
mes "might be bad too...";
close;
break;
case 14:
case 15:
mes "[Clitzer]";
mes "Look out, world!";
mes "I'm gonna become";
mes "worth of Calla's love!";
mes "Someday, maybe even her";
mes "parents will approve me!";
close;
break;
}
s_Clothes:
mes "[Clitzer]";
mes "Waaah!";
mes "What should I wear?!";
mes "I can't for the life of me";
mes "figure this out! Something,";
mes "um, formal? I've never worn";
mes "anything like that before!";
next;
if(countitem(7170)){
set @clothes,7170;
mes "[Clitzer]";
mes "Wait, " + strcharinfo(0) + ".";
mes "What's that you've got";
mes "there? I've seen something";
mes "like that before. It's called";
mes "a Tuxedo, right? Something";
mes "like that would be perfect!";
next;
menu "Give it to him.",s_Giveclothes,"Ignore him.",-;
mes "[Clitzer]";
mes "But how can I get";
mes "a Tuxedo? Ooh, I hope";
mes "it doesn't cost too much";
mes "zeny or I won't be able to";
mes "get one of those soon...";
} else if(countitem(2320)){
set @clothes,2320;
mes "[Clitzer]";
mes "Wait, " + strcharinfo(0) + ".";
mes "What's that you've got";
mes "there? I've seen something";
mes "like that before. It's called";
mes "a Formal Suit, right?";
mes "Something like that would";
mes "be perfect!";
next;
menu "Give it to him.",s_Giveclothes,"Ignore him.",-;
mes "[Clitzer]";
mes "But how can I get";
mes "a Formal Suit? I hope";
mes "it doesn't cost too much";
mes "zeny or I won't be able to";
mes "get one of those soon...";
}
close;
s_Giveclothes:
mes "[Clitzer]";
mes "I can have this?";
mes "Oh, thank you so much!";
mes "Finally, I have something";
mes "nice enough to wear to meet";
mes "Calla's mom! What a relief!";
next;
mes "[Clitzer]";
mes "You've been helping me all";
mes "this time and I haven't properly";
mes "expressed my gratitude. I'm sorry";
mes "if I've been to absorbed in my own";
mes "problems. I may be poor, but I need";
mes "to repay you somehow...";
next;
mes "[Clitzer]";
mes "Wait...";
mes "Why don't you have this";
mes "ore? I don't how";
mes "valuable it is, but I know";
mes "that it's pretty rare. It may";
mes "even be useful to you later~";
delitem @clothes,1;
set EIN_LOVERQ,14;
switch(rand(1,9)){
case 1:
getitem 7289,1;
break;
case 2:
getitem 7290,1;
break;
case 3:
getitem 7291,1;
break;
case 4:
getitem 7292,1;
break;
case 5:
getitem 7293,1;
break;
case 6:
getitem 7294,1;
break;
case 7:
getitem 7295,1;
break;
case 8:
getitem 7296,1;
break;
case 9:
getitem 7297,1;
break;
}
next;
mes "[Clitzer]";
mes "" + strcharinfo(0) + ",";
mes "you've really opened";
mes "my eyes. From now on,";
mes "I'll do my best to earn the";
mes "approval of Calla's parents and";
mes "become worthy of Calla's love.";
close;
}
//============================================================
//=========================================== Einbroch Polution
//============================================================
einbroch,1,1,0 script #PolutionNPC -1,{
OnPolution:
set $@AlrdEinPoll,1;
donpcevent "Liotzburg::OnHide";
donpcevent "Morei::OnHide";
donpcevent "Mark::OnHide";
donpcevent "Khemko::OnHide";
donpcevent "Oberu::OnHide";
donpcevent "Khowropher::OnHide";
donpcevent "Kesunboss::OnHide";
donpcevent "Train Station Staff#01::OnHide";
donpcevent "Train Station Staff#02::OnHide";
donpcevent "Leslie::OnHide";
donpcevent "Little Toby::OnHide";
donpcevent "Tan::OnHide";
donpcevent "Keneshiotz::OnHide";
donpcevent "Sleik::OnHide";
donpcevent "Uwe Kleine::OnHide";
donpcevent "Laboratory Soldier#01::OnHide";
donpcevent "Laboratory Soldier#02::OnHide";
disablenpc "Paddler";
disablenpc "Head Gear Dealer";
mapannounce "einbroch","This is a state of emercency! Harmful smog is reaching high levels of saturation. Residents of Einbroch must find shelter immediately.",bc_map;
monster "einbroch",82,332,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",99,328,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",122,317,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",138,319,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",147,312,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",159,316,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",173,315,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",161,311,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",147,296,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",168,282,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",175,271,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",146,274,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",160,272,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",155,256,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",179,262,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",192,248,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",212,255,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",230,250,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",246,251,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",262,254,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",253,240,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",202,245,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",181,251,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",172,238,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",146,242,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",186,226,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",173,239,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",124,248,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",120,234,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",98,234,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",101,219,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",89,208,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",96,191,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",76,194,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",60,196,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",45,194,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",34,201,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",40,184,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",64,173,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",96,173,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",41,155,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",46,131,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",46,108,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",38,93,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",55,86,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",81,81,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",107,82,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",107,104,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",123,73,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",132,87,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",125,63,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",142,64,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",150,52,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",157,37,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",179,39,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",197,46,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",217,67,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",246,54,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",228,110,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",250,118,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",273,127,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",288,138,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",281,160,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",281,192,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",291,201,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",283,218,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",268,216,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",273,196,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",262,164,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",241,180,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",216,205,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",209,198,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",224,177,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",227,163,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",208,166,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
monster "einbroch",132,87,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",149,119,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",119,36,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",84,155,"Toxic Fog",1621,1,"#PolutionNPC::OnMobChk";
monster "einbroch",82,107,"Red Fog",1620,1,"#PolutionNPC::OnMobChk";
initnpctimer;
end;
OnMobChk:
if(mobcount("einbroch","#PolutionNPC::OnMobChk"))end;
OnTimer600000:
killmonster "einbroch","#PolutionNPC::OnMobChk";
mapannounce "einbroch","Emergency status is now cancelled. Air pollution levels are now within the safety zone.",bc_map;
enablenpc "Liotzburg";
donpcevent "Liotzburg::OnUnHide";
enablenpc "Morei";
donpcevent "Morei::OnUnHide";
enablenpc "Mark";
donpcevent "Mark::OnUnHide";
enablenpc "Khemko";
donpcevent "Khemko::OnUnHide";
enablenpc "Oberu";
donpcevent "Oberu::OnUnHide";
enablenpc "Khowropher";
donpcevent "Khowropher::OnUnHide";
enablenpc "Kesunboss";
donpcevent "Kesunboss::OnUnHide";
enablenpc "Train Station Staff#01";
donpcevent "Train Station Staff#01::OnUnHide";
enablenpc "Train Station Staff#02";
donpcevent "Train Station Staff#02::OnUnHide";
enablenpc "Leslie";
donpcevent "Leslie::OnUnHide";
enablenpc "Little Toby";
donpcevent "Little Toby::OnUnHide";
enablenpc "Tan";
donpcevent "Tan::OnUnHide";
enablenpc "Keneshiotz";
donpcevent "Keneshiotz::OnUnHide";
enablenpc "Sleik";
donpcevent "Sleik::OnUnHide";
enablenpc "Uwe Kleine";
donpcevent "Uwe Kleine::OnUnHide";
enablenpc "Laboratory Soldier#01";
donpcevent "Laboratory Soldier#01::OnUnHide";
enablenpc "Laboratory Soldier#02";
donpcevent "Laboratory Soldier#02::OnUnHide";
enablenpc "Paddler";
enablenpc "Head Gear Dealer";
set $EinPolution,0;
set $@AlrdEinPoll,0;
end;
}
sec_in02,127,86,3 script Einbroch Polution 851,{
if(getgmlevel() > 79){
mes "[Einbroch Polution Variable Management]";
mes "$EinPolution is currently: " + $EinPolution + ".";
mes "What would you like to do?";
next;
menu "Reset $EinPolution to 0",s_0,"Input My Own Value",s_Input,"Cancel.",-;
close;
s_0:
mes "[Einbroch Polution Variable Management]";
mes "$EinPolution has been reset to 0.";
set $EinPolution,0;
set $@AlrdEinPoll,0;
close;
s_Input:
mes "[Einbroch Polution Variable Management]";
mes "Insert a number you want $EinPollution";
mes "to be replaced with. Type '0' to cancel.";
input @temppol;
if(@temppol == 0)close;
set $EinPolution,@temppol;
mes "[Einbroch Polution Variable Management]";
mes "$EinPolution has been set to: " + $EinPolution + ".";
close;
} else {
mes "[Einbroch Polution Variable Management]";
mes "Sorry you don't have authorization";
mes "to use this NPC.";
close;
}
}
//============================================================
//=========================================== Einbroch Factory
//====================================================== Quest
einbroch,132,84,3 script Liotzburg 853,{
if($EinPolution > 9){
mes "[Liotzburg]";
mes "What's going on?!";
mes "Who's responsible?!";
mes "God, I can't believe";
mes "this is happening!";
mes "^333333*Cough Cough!*^000000";
next;
mes "[Liotzburg]";
mes "I need to get out of here!";
mes "You! D-do something and";
mes "fix this! I gotta hide and find";
mes "someplace safe!";
close2;
if(!$@AlrdEinPoll)donpcevent "#PolutionNPC::OnPolution";
end;
}
if(EinFactory >= 13){
if(EinFactory > 13){
mes "[Liotzburg]";
mes "What...?";
mes "Factory Repair";
mes "budget? No way!";
next;
}
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;
}
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;
OnHide:
specialeffect 16;
disablenpc "Liotzburg";
end;
OnUnhide:
misceffect 215;
end;
}
ein_in01,67,243,3 script Zelmeto 851,{
if($EinPolution > 9){
mes "[Zelmeto]";
mes "We've got a big problem";
mes "here! I appreciate that you've";
mes "been gathering the materials,";
mes "but the machines have been";
mes "broken for too long!";
next;
mes "[Zelmeto]";
mes "Right when I tried to";
mes "fix it, a huge shortout";
mes "occurred. Our town is";
mes "probably filled with";
mes "toxic fog right now!";
next;
mes "[Zelmeto]";
mes "I'll try my best to fix";
mes "this, but we really should";
mes "have allocated some funds";
mes "to fix this machine earlier!";
next;
mes "[Zelmeto]";
mes "The most important";
mes "thing is that you get";
mes "out of here and find";
mes "shelter! Right now!";
close2;
warp "einbroch",131,83;
end;
}
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.";
next;
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:
mes "[Zelmeto]";
if(countitem(7325) < 20 || countitem(7317) < 10 || countitem(7319) < 10){
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;
}
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;
set $EinPolution,$EinPolution+1;
if(BaseLevel < 41) getexp 615,0;
else if(BaseLevel >= 41 && BaseLevel < 51) getexp 3075,0;
else if(BaseLevel >= 51 && BaseLevel < 61) getexp 6604,0;
else if(BaseLevel >= 61 && BaseLevel < 71) getexp 18508,0;
else if(BaseLevel >= 71 && BaseLevel < 81) getexp 32062,0;
else if(BaseLevel >= 81 && BaseLevel < 91) getexp 76026,0;
else if(BaseLevel >= 91) getexp 290675,0;
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,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,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,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,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,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,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 Uwe
//====================================================== Quest
einbroch,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 "Schwarzwald Republic~";
next;
mes "[Uwe]";
mes "So, how can";
if(Sex){
mes "I help you, you";
mes "adoooooooooorable";
mes "hunk of a man?";
}else{
mes "I help you?";
}
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:
mes "[Uwe]";
if(countitem(7126) < 6){
mes "Huh...?";
mes "You brought";
if(countitem(7126))
mes "only " + countitem(7126) + " of them?";
else
mes "none at all...?";
mes "Next time, be sure";
mes "to bring 6 Large Jellopies,";
mes "okay? Don't forget, cutie~";
close;
}
delitem 7126,6;
getitem 1003,1;
set EinUwe,2;
mes "Thank you ^EFAEBDso^000000 much!";
mes "Here's the Coal I promised~";
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;
OnHide:
specialeffect 16;
disablenpc "Uwe Kleine";
end;
OnUnhide:
misceffect 215;
end;
}
