rathena/npc/re/quests/quests_15_2.txt
Atemo e172c4365d
Added setpcblock to some official scripts (#4067)
* Added setpcblock to official scripts to mimic some npc interaction.
* Clean-up the docs.
* Added the WORK_IN_PROGRESS message when PCBLOCK_USEITEM and PCBLOCK_SKILL are enabled.

Thanks to @aleos89 for the review!
2019-04-02 02:12:10 +02:00

2578 lines
86 KiB
Plaintext

//===== rAthena Script =======================================
//= Phantasmagorika Quests.
//===== Description: =========================================
//--- Memory Record Daily Quests:
//- Help Her
//- Air Purifier
//- Grape Harvest
//- Subdue Hysterical Patients
//- Daily Necessities Transport
//===== Changelogs: ==========================================
//= 1.0 First version. [Capuche]
//============================================================
// Return 0 if a time limit of "Restriction on the Journey" quests has been reached.
function script F_time_limit_recorder {
return (checkquest(5341,PLAYTIME) != 2 && checkquest(5351,PLAYTIME) != 2 && checkquest(5358,PLAYTIME) != 2 && checkquest(5363,PLAYTIME) != 2 && checkquest(5366,PLAYTIME) != 2);
}
// Erase datas if a time limit of "Restriction on the Journey" quests has been reached.
function script F_erase_datas_recorder {
if (callfunc("F_time_limit_recorder") == 1)
return;
mes "Your whole body suddenly becomes heavy and time seems to be passing faster around you.";
for ( .@quest_id = 5341; .@quest_id < 5371; .@quest_id++ ) {
if (isbegin_quest(.@quest_id) > 0)
erasequest .@quest_id;
}
delitem 6825, countitem(6825);// Air Purifier Box
delitem 6826, countitem(6826);// Fresh Grape
recorder_quest_type = 0;
recorder_quest_status = 0;
mes "Ah- This cozy and snug fe...el.....ling";
warp "un_bunker",98,91;
close;
}
// Monitoring room
un_bk_q,97,141,0 script Monitoring room#A-0 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 1 && recorder_quest_status == 0) {
mes "[Bunker Sayhu]";
mes "Hey!! Where do you think you're going when we're trying to get a headcount? Get over here.";
close;
}
warp "un_bk_q",98,121;
end;
}
un_bk_q,69,167,0 script Monitoring room#L-1 WARPNPC,1,1,{
end;
OnTouch:
if (recorder_quest_type == 1 && recorder_quest_status == 0) {
mes "[Bunker Sayhu]";
mes "Hey!! Where do you think you're going when we're trying to get a headcount? Get over here.";
close;
}
warp "un_bk_q",57,168;
end;
}
un_bk_q,126,168,0 script Monitoring room#L-2 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 1 && recorder_quest_status == 0) {
mes "[Bunker Sayhu]";
mes "Hey!! Where do you think you're going when we're trying to get a headcount? Get over here.";
close;
}
warp "un_bk_q",140,167;
end;
}
un_bk_q,103,147,4 script Bunker Sayhu#EP15.2MR 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
switch( recorder_quest_status ) {
case 0:
emotion ET_CONGRATULATION;
mes "[Bunker Sayhu]";
mes "First congratulations on surviving. I'm glad you got into the air-raid shelter. If you were outside..";
next;
mes "[Bunker Sayhu]";
mes "...";
next;
mes "[Bunker Sayhu]";
mes "Whew.. even thinking about it makes me dizzy. Both of us were lucky. Don't you think so?";
next;
select("I think so too.");
emotion ET_CRY;
mes "[Bunker Sayhu]";
mes "I feel a lot of sympathy though. It looks like a lot of people are blaming this explosion on Fresa.";
next;
mes "[Bunker Sayhu]";
mes "The explosion can't be only Lona's responsibility.";
next;
select("Lona?");
emotion ET_QUESTION, playerattached();
mes "[Bunker Sayhu]";
mes "A great person for sure despite failing the experiment.";
next;
mes "[Bunker Sayhu]";
mes "She took charge of figuring out the number of survivors in that confusing mess of a situation.";
next;
mes "[Bunker Sayhu]";
mes "If it was me...";
next;
mes "[Bunker Sayhu]";
mes "I would probably be wandering around without knowing what do to right about now..";
next;
mes "[Bunker Sayhu]";
mes "Ugh- I guess even I should go and help. Want to help?";
next;
select("Agree to help.");
emotion ET_THANKS;
mes "[Bunker Sayhu]";
mes "Really? You will help? What a relief because I wasn't confident about going by myself.";
next;
mes "[Bunker Sayhu]";
mes "There is a researcher with a cold demeanor in the center of this room, right?";
next;
mes "[Bunker Sayhu]";
mes "She is the head of the experiment, Lona Fresa. People usually call her Dr. Fresa.";
next;
setquest 5341;// Limits of Journeys
setquest 5342;// Help Her
recorder_quest_status = 1;
mes "[Bunker Sayhu]";
mes "Do you want to go and ask her if she needs any help?";
close;
case 1:
mes "[Bunker Sayhu]";
mes "There is a researcher with a cold demeanor in the center of this room, right?";
next;
mes "[Bunker Sayhu]";
mes "Do you want to go and ask her if she needs any help?";
close;
case 3:
case 5:
case 9:
case 17:
mes "[Bunker Sayhu]";
mes "I was asked to find out how many are capable of cooking.";
next;
mes "[Bunker Sayhu]";
mes "We have to try hard even though the air-raid shelter is complex and wide.";
close;
case 100:
mes "[Bunker Sayhu]";
mes "Thanks for helping her.";
next;
mes "[Bunker Sayhu]";
mes "Is it because we helped? I thought I saw a faint smile on her face.";
close;
}
end;
case 2:
emotion ET_QUESTION;
mes "[Bunker Sayhu]";
mes "Uh?! I don't think I've seen you before in the air-raid shelter?";
next;
mes "[Bunker Sayhu]";
mes "Ah! Are you the Adventurer who's helping with moving the newly made air cleaning unit?";
next;
mes "[Bunker Sayhu]";
mes "You are working a lot because of those thoughtless Mechanicians.";
close;
case 3:
mes "[Bunker Sayhu]";
mes "The Bioengineers succeeded in cultivating grapes right?";
next;
mes "[Bunker Sayhu]";
mes "They say at least one grape harvest every 2 weeks is possible? The harvest day is probably either today or tomorrow.";
next;
mes "[Bunker Sayhu]";
mes "I want to taste fresh grapes soon. I've been eating only dry food for the past few days.";
close;
case 4:
mes "[Bunker Sayhu]";
mes "There's a rumor going around in the air-raid shelter.";
next;
mes "[Bunker Sayhu]";
mes "A while ago the Chemical Substance Specialist and a few others went outside the air-raid shelter.";
next;
mes "[Bunker Sayhu]";
mes "Apparently some contaminated substance got inside the air-raid shelter.";
next;
mes "[Bunker Sayhu]";
mes "I heard the number of convulsing patients are rapidly increasing because of the contaminant.";
next;
mes "[Bunker Sayhu]";
mes "Ah! It's just a rumor! A Rumor!!";
close;
case 5:
mes "[Bunker Sayhu]";
mes "It seems the rumor going around was true.";
next;
mes "[Bunker Sayhu]";
mes "I hear they are moving supplies to the clean Zone Z-2 even though it's newly opened because of the contaminant.";
next;
mes "[Bunker Sayhu]";
mes "I think I will lend a hand even just a little.";
close;
}
}
un_bk_q,93,168,4 script Dr.Fresa#EP15.2MR 4_F_BERRYTEA,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
switch( recorder_quest_status ) {
case 0:
mes "[Lona Fresa]";
emotion ET_SORRY;
mes "I am sorry. Right now I am a little busy with several problems. Can we speak later?";
close;
case 1:
mes "[Lona Fresa]";
emotion ET_SORRY;
mes "I am sorry. Right now I am a little busy with several problems. Can we speak later?";
next;
select("No! What I mean..");
emotion ET_SURPRISE;
emotion ET_QUESTION;
mes "[Lona Fresa]";
mes "What?! The Adventurer wants to help me?";
next;
mes "[Lona Fresa]";
mes "Good. The people are uncontrollable because they are shocked and confused.";
next;
mes "[Lona Fresa]";
mes "If the intimidating Adventurer helps out it will be easier to control the confused masses.";
next;
mes "[Lona Fresa]";
mes "Good!! I approve. Just in time for a troublesome problem as well.";
next;
select("Troublesome problem?");
emotion ET_QUESTION, playerattached();
mes "[Lona Fresa]";
mes "The personnel with various specialties such as yourself have not changed their positions and are easy to grasp, but the other employees are the problem.";
next;
mes "[Lona Fresa]";
mes "Surely they are moving according to the Emergency Situation Guidelines of their respective teams.";
next;
emotion ET_SCRATCH;
mes "[Lona Fresa]";
mes "I cannot figure out from here where they are and what they are doing.";
next;
mes "[Lona Fresa]";
mes "So I was thinking if you";
next;
mes "[Lona Fresa]";
.@r = rand(1,4);
switch(.@r) {
case 1:
setquest 5343;// Headcount
mes "Can you figure out the number of ^0000FFBioengineers ^000000?";
break;
case 2:
setquest 5344;// Headcount
mes "Can you figure out the number of ^0000FFMechanicians^000000?";
break;
case 3:
setquest 5345;// Headcount
mes "Can you figure out the number of ^0000FFFacilities managers^000000?";
break;
case 4:
setquest 5346;// Headcount
mes "Can you figure out the number of ^0000FFChemical Substance Specialists^000000?";
break;
}
recorder_quest_status = recorder_quest_status | pow(2,.@r);
next;
mes "[Lona Fresa]";
mes "I ask you for this favor even though it won't be easy in this large and complex shelter.";
close;
case 3:
callsub( S_Num, 22, 5343, "Bioengineers" );
case 5:
callsub( S_Num, 18, 5344, "Mechanicians" );
case 9:
callsub( S_Num, 28, 5345, "Facilities managers" );
case 17:
callsub( S_Num, 11, 5346, "Chemical Substance Specialists" );
case 100:
mes "[Lona Fresa]";
mes "I know it is frustrating but I hope you will adjust to life inside the air-raid shelter until the outside situation becomes safer.";
close;
}
end;
case 2:
emotion ET_SORRY;
mes "[Lona Fresa]";
mes "I am sorry. Right now I am a little busy with several problems. It would be better if we speak later.";
close;
case 4:
if (recorder_quest_status == 2) {
emotion ET_SORRY;
mes "[Lona Fresa]";
mes "I am sorry. Right now I am a little busy with several problems. It would be better if we speak later.";
next;
select("I have something urgent to tell you.");
mes "[Lona Fresa]";
mes "What?! What is going on?";
next;
mes "Explain current situation at the temporary clinic.";
next;
emotion ET_HUK;
mes "[Lona Fresa]";
mes "Patients are convulsing simultaneously.. this is not good.";
next;
mes "[Lona Fresa]";
mes "I got it. We need to take measures.";
next;
erasequest 5364;// Convulsing Patient Suppression
erasequest 5365;// Urgent News
setquest 5370;// Memory Record
getexp 750000,750000;
recorder_quest_status = 3;
mes "The small round capsule has percolated through the skin. It feels like experience has accumulated.";
next;
mes "[Lona Fresa]";
mes "Thank you for informing me.";
close;
}
emotion ET_PROFUSELY_SWEAT;
mes "[Lona Fresa]";
mes "This situation is grave so we need to quickly take measures.";
close;
case 5:
emotion ET_SORRY;
mes "[Lona Fresa]";
mes "I am sorry. Right now I am a little busy with several problems. It would be better if we speak later.";
close;
}
end;
S_Num:
.@bon_nombre = getarg(0);
.@quest_id = getarg(1);
.@headcount_complete = isbegin_quest(getarg(1)+4);
mes "[Lona Fresa]";
if (.@headcount_complete > 0)
mes "Ah! You are here. Isn't the interior of the shelter a bit complicated? The favor I asked of you..";
else {
emotion ET_QUESTION;
mes "Huh?! You're already back? You came back earlier than I thought.";
next;
mes "[Lona Fresa]";
mes "The favor that I asked.. ah?! Ah!!";
}
next;
mes "[Lona Fresa]";
mes "The number of ^0000FF" + getarg(2) + "^000000? How many do they say have survived?";
next;
input .@num;
mes "[Lona Fresa]";
if (.@num != .@bon_nombre || .@headcount_complete == 0) {
mes "" + .@num + " people you say?";
next;
emotion ET_SCRATCH;
mes "[Lona Fresa]";
mes "That's strange? According to the list they have never been that number.";
next;
mes "[Lona Fresa]";
mes "Can you check again?";
close;
}
mes "Really? It is roughly the same as the number on the list. Good work.";
next;
mes "[Lona Fresa]";
mes "Sayhu says Adventurers like this kind of stuff. This is compensation for your help.";
next;
mes "The small round capsule has percolated through the skin. It feels like experience has accumulated.";
next;
erasequest 5342;// Help Her
erasequest .@quest_id;// Headcount
erasequest (.@quest_id + 4);// Headcount Complete
setquest 5370;// Memory Record
getexp 750000,750000;
recorder_quest_status = 100;
mes "[Lona Fresa]";
mes "Good work. I know it is frustrating but I hope you will adjust to the life inside the air-raid shelter until the outside situation becomes safer.";
close;
}
un_bk_q,76,175,4 script Researcher Grum#EP15.2M 4_F_SCIENCE,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
if (recorder_quest_status == 0) {
mes "[Researcher Grum]";
mes "I really don't like self-righteous and hypocritical Fresa.";
close;
}
mes "[Researcher Grum]";
mes "Who is that woman to conduct a headcount as if she's the leader?";
next;
mes "[Researcher Grum]";
mes "There wouldn't have been an explosion if there was no experiment the first place? Right?";
close;
case 2:
mes "[Researcher Grum]";
mes "I think the self-righteous and haggardly Fresa has changed.";
next;
mes "[Researcher Grum]";
mes "She's become more warm compared to the past, right?";
close;
case 3:
mes "[Researcher Grum]";
mes "Fresa has definitely changed a lot.";
next;
mes "[Researcher Grum]";
mes "Today she is handing out grapes to people. In the past that would have been unimaginable.";
close;
case 4:
mes "[Researcher Grum]";
mes "Why is that Fresa acting like the leader alone but still hasn't taken measures?";
next;
mes "[Researcher Grum]";
mes "Measures need to taken about the convulsing patients. Are you going to cover this up like in the past?";
close;
case 5:
mes "[Researcher Grum]";
mes "So this is what's happening?";
next;
mes "[Researcher Grum]";
mes "I should have known when she tried to half-ass things.";
close;
}
}
// Corridor Monitoring room
un_bk_q,86,121,4 script Chemical Substance Specialist Karsten 4_M_ALCHE_B,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
if (recorder_quest_status == 17) {
if (isbegin_quest(5350) == 0) {
mes "[Chemical Substance Specialist Karsten]";
emotion ET_QUESTION;
mes "Who are you?";
next;
select("I am...");
emotion ET_SURPRISE;
mes "[Chemical Substance Specialist Karsten]";
mes "Ah! Ah! Fresa? I have met her a few times at plenary sessions.";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "If I recall she is the one in charge of this failed project?";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Anyway!!";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Not everybody is fit to be director. A headcount in this hectic situation.";
next;
emotion ET_PROFUSELY_SWEAT;
mes "[Chemical Substance Specialist Karsten]";
mes "Wait a minute. I did a headcount and wrote it down somewhere..";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Was it this number? That number? Ah?! This number.";
next;
setquest 5350;// Headcount Complete
mes "[Chemical Substance Specialist Karsten]";
mes "Total number of Chemical Substance Specialists is ^FF000011^000000. Damn a lot less.";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Ah! Tell Fresa on your way that we are checking for hazardous substances within the air-raid shelter according to emergency protocol.";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "We have to do our job even if there aren't many of us left.";
close;
}
mes "[Chemical Substance Specialist Karsten]";
mes "Total number of Chemical Substance Specialists is ^FF000011^000000.";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Tell Fresa that although there are only a few left but, we are checking for hazardous substances within the air-raid shelter.";
close;
}
mes "[Chemical Substance Specialist Karsten]";
mes "We are checking for hazardous substances within the air-raid shelter according to emergency protocol.";
close;
case 3:
if (recorder_quest_status == 2) {
mes "[Chemical Substance Specialist Karsten]";
mes "Is that the first grape harvested by the Bioengineers?";
next;
emotion ET_QUESTION;
mes "[Chemical Substance Specialist Karsten]";
mes "The rumors say a grape tree got smashed because of the Mechanicians but it seems it hasn't affected the harvest.";
next;
mes "[Chemical Substance Specialist Karsten]";
mes "Anyway thanks. I prepared this for compensation.";
next;
erasequest 5359;// Grape Harvest
erasequest 5362;// Grape Delivery
setquest 5370;// Memory Record
getexp 1000000,1000000;
recorder_quest_status = 3;
mes "- The small round capsule has percolated through skin. It feels like experience has accumulated.";
next;
emotion ET_CRY;
mes "[Chemical Substance Specialist Karsten]";
mes "I've been eating nothing but dried food for the past few days so it moves me to eat fresh grape.";
close;
}
mes "[Chemical Substance Specialist Karsten]";
mes "I've been eating nothing but dried food so eating fresh grape makes me feel fresh.";
close;
case 2:
case 4:
case 5:
emotion ET_SMILE;
mes "[Chemical Substance Specialist Karsten]";
mes "Us Chemical Substance Specialists are living like we always do. It's not like we can do chemical experiments in a place like this.";
close;
}
}
// Control Room
un_bk_q,98,246,8 script Facilities manager Jiko 4_M_EINMAN2,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Facilities manager Jiko]";
mes "Aah- I don't know the reason but the control room is";
next;
mes "[Facilities manager Jiko]";
mes "is damaged a lot. At this point it isn't a control room but a warehouse.";
close;
case 2:
mes "[Facilities manager Jiko]";
mes "Ah the air cleaning unit doesn't belong here.";
next;
mes "[Facilities manager Jiko]";
mes "If my memory is correct, you have to deliver them to Zones C-0, F-1, F-2, I-0, Z-0.";
close;
case 3:
mes "[Facilities manager Jiko]";
mes "Haa- I have been cleaning the Control room for several days now";
next;
mes "[Facilities manager Jiko]";
mes "This place cannot be organized no matter how I much organize it. I guess we should just use it for storage.";
close;
case 4:
mes "[Facilities manager Jiko]";
mes "Come on in. Welcome to the Warehouse.";
next;
mes "[Facilities manager Jiko]";
mes "Urrghh";
close;
case 5:
mes "[Facilities manager Jiko]";
mes "This is not the control room.";
next;
mes "[Facilities manager Jiko]";
mes "It's the warehouse!!";
close;
}
}
un_bk_q,108,243,4 script Discarded Mechanical Device 4_ENERGY_BLUE,{
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 1) {
mes "The mechanical device thrown on the floor cannot be determined if it is still operable.";
close;
}
for ( .@i = 0; .@i < (recorder_quest_type - 1); .@i++ )
.@listen_continue$[.@i] = "Continue listening.";
.@listen_again$[.@i] = "Listen again.";
mes "There is a Memory Record somebody is recording.";
next;
if (select( "Listen.", "Quit." ) == 2)
close;
while(true) {
mes "Oh- Is this a memory record? Does it work? Oh it works. Works! Should I try it since I'm bored?";
next;
mes "My name is Maso an Adventurer traveling the world. Today is 4th day of entering the air-raid shelter? 3rd day? The vibe here is weird and hard to adjust to.";
next;
mes "Verus city has Adventurers amongst its original population but the treatment towards Adventurers is strangely good.";
next;
mes "The mood is that Adventurers are people caught up in an uncontrollable accident and need to be treated well.";
next;
mes "As an Adventurer who eats and plays as much as he works, I cannot stand the itching for action. Urgh";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Is today day 6? Details aren't told to Adventurers so I am not sure but the people of Verus city seem very gloomy.";
next;
mes "The Adventurer's blood is boiling and wanting to explore places but there isn't much to do.";
next;
mes "I looked around the air-raid shelter but whoever designed it has not one artistic hair on him.";
next;
mes "It is no fun to keep looking at the same hallways and same room lay outs.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Is today day 21? The Verus City people look happy to have solved the food problem.";
next;
mes "It is cute to see the mild looking researchers going around cheering and screaming.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "The 30th night but because it's always dark I don't really know if it's night or day. I just ate supper so it must be night.";
next;
mes "Today I moved the really heavy air cleaning units made by the Mechanicians with the other Adventurers.";
next;
mes "The air-raid shelter is so large that I had no idea where they were but thanks to that I became friends with some of the Adventurers, especially Castle and Blat.";
next;
mes "By the way the Mechanicians seem to have mental problems. They make a ruckus for not being able to make machines and got dragged out by the guards.";
next;
mes "The Mechanicians are definitely going to cause trouble someday.";
next;
switch( select( .@listen_again$[1], .@listen_continue$[1], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Today is day 32 and I worked on the grape harvest.";
next;
mes "I ate fresh grapes and since I don't have anything to do anything to do, I'm going to sleep early.";
next;
mes "Ah.. the grape was good, I want it again. Did they say harvest was possible once every 2 weeks?";
next;
switch( select( .@listen_again$[2], .@listen_continue$[2], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Today is the 38th day of being in the shelter and there is a fuss since the morning.";
next;
mes "This morning the recruited Adventurers to join the Chemical Substance Specialists for an investigation outside the air-raid shelter, many volunteered despite the dangers.";
next;
mes "I am of the belief danger should be avoided but my friends Castle and Blat volunteered.";
next;
mes "Well I understand that they were sick of living in the shelter for a while.";
next;
mes "They have not returned past the afternoon. Verus City leader Fresa has concluded that the people who left are dead.";
next;
mes "Everybody had a moment of silence at dawn. They were good people so it is sad to part like this.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Is it since the morning of the 40th day? There is a mysterious infectious disease going around the shelter.";
next;
mes "A few people have suddenly attacked those near them and convulsed";
next;
mes "And Adventurers have been deployed to suppress the convulsing people because a lot of the weak researchers are wounded.";
next;
mes "There is a rumor saying a contaminant came in because of the people who went outside the shelter a while go.";
next;
switch( select( .@listen_again$[3], .@listen_continue$[3], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Lunch during day 44 the air-raid shelter leader Fresa gathered the Adventurers and had a presentation.";
next;
mes "The rumor has been confirmed true and a safety partition will be built in Zone Z-0";
next;
mes "A decision has been made to move necessities to Zone Z-2 tomorrow and I heard they need the help of Adventurers.";
next;
mes "I have to work tomorrow so I am doing to sleep early.";
next;
mes "There is no more recorded content.";
next;
switch( select( .@listen_again$[4], .@listen_continue$[4], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
}
}
// Corridor Control Room
un_bk_q,56,192,4 script Chemical Substance Specialist Kori 4_M_ALCHE_B,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Chemical Substance Specialist Kori]";
mes "We are seeing if there are hazardous substances within the air-raid shelter according to emergency protocol.";
next;
mes "[Chemical Substance Specialist Kori]";
mes "You want to know how many Chemical Substance Specialists there are? Go to Karsten then. Should be here somewhere.";
close;
case 2:
mes "[Chemical Substance Specialist Kori]";
mes "This next room is temporarily being used by the Chemical Substance Specialist.";
next;
mes "[Chemical Substance Specialist Kori]";
mes "We tightly hid away dangerous things but don't touch anything just in case.";
close;
case 3:
mes "[Chemical Substance Specialist Kori]";
mes "Karsten gave me grapes.";
next;
mes "[Chemical Substance Specialist Kori]";
mes "How fresh and tasty it was.";
close;
case 4:
mes "[Chemical Substance Specialist Kori]";
mes "My colleagues left the air-raid shelter to investigate and haven't come back.";
next;
mes "[Chemical Substance Specialist Kori]";
mes "It was concluded they are dead but are they really all dead? I want to see my colleagues.";
close;
case 5:
mes "[Chemical Substance Specialist Kori]";
mes "Good work.";
next;
mes "[Chemical Substance Specialist Kori]";
mes "We are working to find a solution for the contaminant.";
close;
}
}
// Corridor K-0
un_bk_q,161,193,6 script Adventurer Bamdaku#EP15.2MR 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Adventurer Bamdaku]";
mes "I found this while looking around the air-raid shelter";
next;
mes "[Adventurer Bamdaku]";
mes "but there is a lot of this on the wall. What can it be?";
close;
case 2:
mes "[Adventurer Bamdaku]";
mes "I have been investigating this for 30 days already but I do not know what it is.";
next;
mes "[Adventurer Bamdaku]";
mes "I am too proud to ask somebody.";
close;
case 3:
mes "[Adventurer Bamdaku]";
mes "I have been investigating this for 32 days already but I do not know what it is.";
next;
mes "[Adventurer Bamdaku]";
mes "Ugh what to do.. Should I just ask somebody?";
close;
case 4:
mes "[Adventurer Bamdaku]";
mes "I have been investigating this for 40 days already.";
next;
mes "[Adventurer Bamdaku]";
mes "My pride won't let me quit now.";
close;
case 5:
mes "[Adventurer Bamdaku]";
mes "45 days have passed since I started investigating this unknown thing.";
next;
mes "[Adventurer Bamdaku]";
mes "How did I come to investigate this?";
close;
}
}
un_bk_q,103,393,4 script Memory_Record#EP15.2MR 4_ENERGY_BLUE,{
callfunc("F_time_limit_recorder");
for ( .@i = 0; .@i < (recorder_quest_type - 1); .@i++ )
.@listen_continue$[.@i] = "Continue listening.";
.@listen_again$[.@i] = "Listen again.";
mes "There is a Memory Record somebody is recording.";
next;
if (select( "Listen.", "Quit." ) == 2)
close;
while(true) {
mes "Ah ah- One two three test- test-";
next;
mes "To distinguish survival days in the air-raid shelter, today will be designated Explosion Day 1 after the experiment explosion.";
next;
mes "Everybody fell into panic after seeing the outside situation on the monitor after the explosion.";
next;
mes "But chief researcher Dr. Fresa calmly consoled everybody and checked how many survived.";
next;
mes "The final number of survivors including adventurers seems to be 326.";
next;
mes "The camera showing outside was damaged in the afternoon. It seems we cannot see the situation outside anymore.";
next;
mes "There is no more recorded content.";
next;
switch( select( .@listen_again$[0], .@listen_continue$[0], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Explosion Day 2";
next;
mes "A witch hunt against the director and chief researcher Fresa began.";
next;
mes "My opinion is different. The research and experiment was conducted under her direction but this is an accident.";
next;
mes "If not Fresa, they would have made somebody else to blame.";
next;
mes "But she is handling it in a dignified manner despite concerns.";
next;
mes "She says problem solving is more important than blame and is checking assignments of survivors before the accident.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 3";
next;
mes "Fresa.. She naturally became the leader of the survivors.";
next;
mes "There was no vote of sorts, but nobody is complaining about her being the leader.";
next;
mes "The day before she had a briefing on the situation of the total survivors.";
next;
mes "20 Bioengineers";
mes "16 Mechanicians";
mes "27 Facilities managers";
mes "10 Chemical Substance Specialists";
mes "Other than specialists the assignments of survivors such as cafeteria staff, janitors, gardeners, distribution directors, health professionals, adventurers caught in the accident have been assessed.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 4";
next;
mes "Everybody's work has been decided based on Fresa's briefing the day before.";
next;
mes "It was decided that researchers including myself know nothing much research and must continue our lives in the air-raid shelter under the guidance of those who have technical skill needed for survival.";
next;
mes "First the Chemical Substance Specialists and Facilities managers started to install Air Contamination Gauge Sensors in the air-raid shelter.";
next;
mes "After evaluating that oxygen levels were low the Mechanicians have started to assemble Air cleaning units.";
next;
mes "Lora, a former cafeteria employee was consulted on the important problem of food.";
next;
mes "We assessed that about 40 days of survival is possible based on the food in the warehouse and the number of survivors.";
next;
mes "This prompted the Bioengineers to cultivate plants that can self-produce.";
next;
mes "Other miscellaneous assignments were issued under Fresa's direction.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 5";
next;
mes "I don't know the details but the air pollution level outside of the shelter was measured.";
next;
mes "According to the Chemical Substance Specialists the situation is hopeless.";
next;
mes "It seems life in the air-raid shelter has to continue longer. Just can quietly keep working..";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 21";
next;
mes "After silently working for several days the Bioengineers have good news.";
next;
mes "They have succeeded in artificially germinating a plant that can self-produce.";
next;
mes "Fortunately the air-raid shelter has a warehouse spacious enough to grow plants in.";
next;
mes "It seems we can forget about our food problem now.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 30";
next;
mes "A small problem has occurred in the air-raid shelter. The air cleaning units made in the beginning are broken.";
next;
mes "Fortunately there will be no problem maintaining oxygen concentration levels thanks to the air cleaning units the Mechanicians made without approval.";
next;
mes "They are too heavy so adventurers were deployed because nobody else is able to move them.";
next;
switch( select( .@listen_again$[1], .@listen_continue$[1], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Explosion Day 32";
next;
mes "Today is the first harvest of the grape tree cultivated by the Bioengineers.";
next;
mes "Although there was a small problem of the Mechanicians destroying one grape tree";
next;
mes "The air-raid shelter residents are throwing a small party to celebrate the successful harvest.";
next;
mes "There is no more recorded content.";
next;
switch( select( .@listen_again$[2], .@listen_continue$[2], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Explosion Day 38";
next;
mes "Chemical Substance Specialists and some Adventurers sick of living in the air-raid shelter have left the shelter to measure the air.";
next;
mes "They have not returned by evening.";
next;
mes "Was the freedom of outside better than the life in the dark air-raid shelter?";
next;
mes "After midnight the remaining Chemical Substance Specialists assessed that they were dead and everybody had a brief moment of silence.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 40";
next;
mes "A dark rumor is going around the shelter.";
next;
mes "There is a rumor that a contaminant from the outside has invaded the air-raid shelter because of the people who left a while ago.";
next;
mes "Is it because of the contaminant? There are patients who suddenly convulse and attack others.";
next;
mes "Under the leader Fresa's decision, everybody was checked and those found with transfectants were quarantined in the temporary clinic.";
next;
switch( select( .@listen_again$[3], .@listen_continue$[3], "Stop listening." ) ) {
case 1:
continue;
case 2:
break;
case 3:
close;
}
mes "Explosion Day 43";
next;
mes "The rumor in the air-raid shelter has come true.";
next;
mes "The remaining Chemical Substance Specialists have confirmed that the contaminant is eroding into the air-raid shelter";
next;
mes "And Fresa and experts have started taking measures.";
next;
if (select( "Continue listening.", "Stop listening." ) == 2)
close;
mes "Explosion Day 45";
next;
mes "The invading contaminant will not stop.";
next;
mes "It has been decided to move all equipment and necessities to the less contaminated Zone Z-2";
next;
mes "And facility managers have started to install a partition in Zone Z-0 to prevent the contaminant from coming in further.";
next;
mes "There is no more recorded content.";
next;
if (select( "Listen again.", "Stop listening." ) == 2)
close;
}
}
// Machine Warehouse
un_bk_q,41,275,0 script Machine Warehouse#J-0 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 2 && recorder_quest_status == 0) {
emotion ET_O, getnpcid(0, "Mechanician Mugeosi#EP1");
mes "[Mechanician Mugeosi]";
mes "Ah! You're the adventurer send to deliver air cleaners. You are at the right place. Come this way.";
close;
}
warp "un_bk_q",21,276;
end;
}
un_bk_q,56,286,4 script Mechanician Mugeosi#EP1 4_M_REPAIR,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Mechanician Mugeosi]";
mes "Are you an Adventurer? This is the machine warehouse.";
next;
mes "[Mechanician Mugeosi]";
mes "It was originally a warehouse but it is now being used by Mechanicians to assemble machines for the air-raid shelter.";
next;
emotion ET_FRET;
mes "[Mechanician Mugeosi]";
mes "You want to know the total number of Mechanicians? I don't think I know?";
next;
mes "[Mechanician Mugeosi]";
mes "Ah! Al up there might know. Go to Al.";
close;
case 2:
if (recorder_quest_status == 0) {
mes "[Mechanician Mugeosi]";
mes "An adventure to move the air cleaner?";
next;
mes "[Mechanician Mugeosi]";
mes "You look solid just like the other researchers mentioned. I bet you can lift the air cleaner like nothing!!";
next;
mes "[Mechanician Mugeosi]";
mes "We shouldn't be ordering people like you who got caught up in an accident, but the situation is urgent.";
next;
mes "[Mechanician Mugeosi]";
mes "We made a new air cleaning unit because the one operating previously broke down a while ago.";
next;
mes "[Mechanician Mugeosi]";
mes "We should have made it in modular form. Made it as one solid piece by mistake.";
next;
emotion ET_SMILE;
mes "[Mechanician Mugeosi]";
mes "Didn't think of it when we were making it!!";
next;
mes "[Mechanician Mugeosi]";
mes "It happens. Right?";
next;
mes "[Mechanician Mugeosi]";
mes "Facilities managers are making a fuss about needing the air cleaning unit soon.";
next;
mes "[Mechanician Mugeosi]";
mes "We can't move the air cleaning unit with the equipment we have now..";
next;
mes "[Mechanician Mugeosi]";
mes "We could make the machine that can transport it if we had more time..";
next;
mes "[Mechanician Mugeosi]";
mes "So we ended up asking the strong Adventurer.";
next;
select("Yes sir.");
emotion ET_SMILE;
mes "[Mechanician Mugeosi]";
mes "Aren't you refreshing!!";
next;
setquest 5351;// Limits of Journeys
setquest 5352;// Air Cleaning Unit
recorder_quest_status = 1;
mes "[Mechanician Mugeosi]";
mes "We are counting on you. Take five air cleaning units to areas C-0, F-1, F-2, I-0, Z-0. Talk to me when you're ready.";
close;
}
if (recorder_quest_status == 1) {
.@total = isbegin_quest(5353) + isbegin_quest(5354) + isbegin_quest(5355) + isbegin_quest(5356) + isbegin_quest(5357);
if (.@total < 5) {
emotion ET_QUESTION;
mes "[Mechanician Mugeosi]";
mes "Are you ready to move heavy objects?";
next;
select("Give it to me.");
if (checkweight(6825,1) == 0) {
mes "[Mechanician Mugeosi]";
mes "You look strong but seems you are weak. You can't lift the air cleaning unit like that.";
close;
}
getitem 6825,1;// Air Purifier Box
mes "[Mechanician Mugeosi]";
mes "Deliver them to zones C-0, F-1, F-2, I-0, Z-0. The order doesn't matter and please be careful since they are precise machines.";
close;
}
emotion ET_BEST;
mes "[Mechanician Mugeosi]";
mes "Good work. The air cleaning units are heavy, right?";
next;
mes "[Mechanician Mugeosi]";
mes "Sayhu says Adventurers like this kind of stuff and I should use this as compensation after giving you work.";
next;
erasequest 5352;// Air Cleaning Unit
erasequest 5353;// C-0 Delivery Complete
erasequest 5354;// F-1 Delivery Complete
erasequest 5355;// F-2 Delivery Complete
erasequest 5356;// I-0 Delivery Complete
erasequest 5357;// Z-0 Delivery Complete
setquest 5370;// Memory Record
getexp 1000000,1000000;
recorder_quest_status = 2;
mes "The small round capsule has percolated through skin. It feels like experience has accumulated.";
next;
mes "[Mechanician Mugeosi]";
mes "Thanks to you we overcame a crisis. I need to make a machine that can move heavy objects in case this happens again.";
close;
}
mes "[Mechanician Mugeosi]";
mes "Good work. Let's relax for now.";
close;
case 3:
mes "[Mechanician Mugeosi]";
mes "Have you tried the grapes made by the Bioengineers using that growth thingy?";
next;
mes "[Mechanician Mugeosi]";
mes "We can now eat fresh fruit in this dull and dark air-raid shelter.";
close;
case 4:
mes "[Mechanician Mugeosi]";
mes "Are you worried because people are suddenly attacking? What? You aren't infected right?";
close;
case 5:
mes "[Mechanician Mugeosi]";
mes "Why is everybody rejecting us making a machine that can make shipping easier? Pssh!!";
close;
}
}
un_bk_q,82,323,2 script Mechanician Al#EP15.2MR 4_M_REPAIR,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
switch( recorder_quest_status ) {
case 3:
case 9:
case 17:
mes "[Mechanician Al]";
mes "So busy. This is why I asked for additional manpower in the first place. No use now I guess.";
close;
case 5:
if (isbegin_quest(5348) == 0) {
mes "[Mechanician Al]";
emotion ET_DELIGHT;
mes "You are?";
next;
select("I am...");
emotion ET_SCRATCH;
mes "[Mechanician Al]";
mes "Fresa? Hm? Who is Fresa?";
next;
mes "[Mechanician Al]";
mes "Ah?! Ah!! The chief director of the experiment was ^0000FF Lona Fresa^000000.";
next;
mes "[Mechanician Al]";
mes "OK Adventurer man, identity confirmation complete!!";
next;
mes "[Mechanician Al]";
mes "Was it your business to check the Mechanician survivor headcount?";
next;
setquest 5348;// Headcount Complete
mes "[Mechanician Al]";
mes "There weren't many in the first place, and too bad for the poor bastards who didn't make it into the shelter.";
next;
mes "[Mechanician Al]";
mes "Tell Fresa, Fress or whatever her name is, that the Mechanicians are inspecting";
next;
mes "[Mechanician Al]";
mes "the mechanical systems in the air-raid shelter according to the emergency protocols. Thanks~";
close;
}
mes "[Mechanician Al]";
mes "^FF000018^000000 Mechanicians have survived.";
next;
mes "[Mechanician Al]";
mes "Tell Fresa, Fress or whatever her name is, that the Mechanicians are inspecting the mechanical systems in the air-raid shelter.";
close;
default:
mes "[Mechanician Al]";
mes "The Mechanicians are checking for irregularities in the internal mechanical systems according to Emergency Situation Guidelines.";
next;
emotion ET_FRET;
mes "[Mechanician Al]";
mes "Darn it- Why am I even explaining this? You're bothering me so go away.";
close;
}
case 2:
mes "[Mechanician Al]";
mes "So busy. This is why I asked for additional manpower in the first place. No use now I guess.";
close;
case 3:
mes "[Mechanician Al]";
mes "Is that grape for me? It's not? Pssh!!";
close;
case 4:
mes "[Mechanician Al]";
mes "So busy. This is why I asked for additional manpower in the first place. No use now I guess.";
close;
case 5:
switch( recorder_quest_status ) {
case 0:
end;
case 1:
mes "[Mechanician Al]";
mes "Huh? What's going on?";
next;
mes "[Mechanician Al]";
mes "What, shouldn't the items be moved to Zone Z-2 and not here? Take them there.";
close;
case 2:
mes "[Mechanician Al]";
mes "Huh? What's going on? I heard the Adventurers are being used to move the supplies?";
next;
select("The message from Ernon..");
mes "[Mechanician Al]";
mes "Ernon? Goods manager Ernon? He has a message for me? What is it?";
next;
input .@string$;
setquest 5369;// Message Delivery Complete
recorder_quest_status = 3;
mes "[" + strcharinfo(0) + "]";
mes .@string$;
next;
emotion ET_OTL;
mes "[Mechanician Al]";
mes "Huh.. uh.. buh.. buh..";
next;
mes "He seems shocked and out of it. Go back to Ernon since the message has been delivered.";
close;
case 3:
emotion ET_OTL;
mes "[Mechanician Al]";
mes "Huh.. uh.. buh.. buh..";
next;
mes "He is out of it. Go back to Ernon since the message has been delivered.";
close;
case 4:
emotion ET_OTL;
mes "[Mechanician Al]";
mes "Er.. non.. ar.. argh!!";
next;
mes "He is convulsing like an infected patient.";
close;
}
}
}
un_bk_q,100,312,6 script Mechanician Bukal#EP15. 4_M_REPAIR,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Mechanician Bukal]";
mes "You're conducting a headcount?";
next;
mes "[Mechanician Bukal]";
mes "I am not sure. Maybe you can ask Al over there?";
close;
case 2:
if (recorder_quest_status == 0) {
mes "[Mechanician Bukal]";
mes "Ugh.. I want to make something.";
close;
}
mes "[Mechanician Bukal]";
mes "I mean the air cleaning unit you are moving now.";
next;
mes "[Mechanician Bukal]";
mes "I made that. Isn't it awesome?";
close;
case 3:
mes "[Mechanician Bukal]";
mes "Ah!! You're the adventurer. You could check out the farm.";
next;
mes "[Mechanician Bukal]";
mes "Isn't the farm good because it's warm? I made the temperature control device there. Isn't it awesome?";
close;
case 4:
mes "[Mechanician Bukal]";
mes "I am worried of the people suddenly attacking.";
next;
mes "[Mechanician Bukal]";
mes "Since we're already here should I make something like a patient suppression device?";
close;
case 5:
mes "[Mechanician Bukal]";
mes "I don't know why everybody is rejecting a device that can move heavy objects.";
next;
mes "[Mechanician Bukal]";
mes "I should have made one when they were making new air cleaning units..";
close;
}
}
un_bk_q,91,283,2 script Guard#EP15.2MR 4_M_HUMAN_02,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Guard]";
mes "Hello adventurer?";
next;
mes "[Guard]";
mes "I don't know the reason, but Fresa assigned me here.";
close;
case 2:
if (recorder_quest_status == 0) {
mes "[Guard]";
mes "Hello adventurer?";
close;
}
mes "[Guard]";
mes "I always wondered why I was assigned here but now I think I know the reason.";
next;
mes "[Guard]";
mes "It is to watch if the Mechanicians make useless things.";
close;
case 3:
mes "[Guard]";
mes "The Mechanicians occasionally want to make something.";
next;
mes "[Guard]";
mes "My job is to stop them.";
close;
case 4:
mes "[Guard]";
mes "I hear patients these days are convulsing and attacking the people around them?";
next;
mes "[Guard]";
mes "The Mechanician constantly convulse saying they want to make something so it's not weird to me.";
close;
case 5:
mes "[Guard]";
mes "The convulsion of Mechanicians are reaching extremes.";
next;
mes "[Guard]";
mes "They are convulsing so much I may need to call back up.";
close;
}
}
un_bk_q,212,294,6 script Zone C-0 Facilities man#1 4_M_EINMAN2,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Facilities manager]";
mes "We are inspecting the interior facilities of the air-raid shelter according to emergency regulations.";
close;
case 2:
.@npc_num = strnpcinfo(2);
switch(.@npc_num) {
case 1:
if (isbegin_quest(5353) == 0 && recorder_quest_status == 1) {
emotion ET_DELIGHT;
mes "[Facilities manager]";
mes "Oh- You're here? I was waiting.";
next;
mes "[Facilities manager]";
mes "I have heard Adventurers are all strong as oxen but it is still impressive.";
next;
if (countitem(6825) < 1) {
mes "[Facilities manager]";
mes "But where is the air cleaning unit? You didn't bring the most important thing. Bring it here.";
close;
}
delitem 6825,1;// Air Purifier Box
setquest 5353;// C-0 Delivery Complete
mes "[Facilities manager]";
mes "Good work. Good work. We have received the air cleaning unit.";
close;
}
mes "[Facilities manager]";
mes "Good work. Good work. We have received the air cleaning unit.";
close;
case 2:
if (isbegin_quest(5354) == 0 && recorder_quest_status == 1) {
emotion ET_THANKS;
mes "[Facilities manager]";
mes "Oh my you are working hard. You can place the item over here.";
next;
mes "[Facilities manager]";
mes "Whoa- I heard the rumors but you are really strong.";
next;
mes "[Facilities manager]";
mes "It's hard for even four of us Facilities managers to lift it for a moment..";
next;
if (countitem(6825) < 1) {
mes "[Facilities manager]";
mes "But where is the air cleaning unit? You didn't bring the most important thing. Bring it here.";
close;
}
delitem 6825,1;// Air Purifier Box
setquest 5354;// F-1 Delivery Complete
mes "[Facilities manager]";
mes "Anyway we have received the air cleaning unit.";
close;
}
mes "[Facilities manager]";
mes "Anyway we have received the air cleaning unit.";
close;
case 3:
if (isbegin_quest(5355) == 0 && recorder_quest_status == 1) {
emotion ET_QUESTION;
mes "[Facilities manager]";
mes "Ah?! Are you the Adventurer who's delivering air cleaning units?";
next;
if (countitem(6825) < 1) {
mes "[Facilities manager]";
mes "But where is the air cleaning unit? Did you not bring it?";
close;
}
delitem 6825,1;// Air Purifier Box
setquest 5355;// F-2 Delivery Complete
mes "[Facilities manager]";
mes "We need to work fast so place the item here.";
close;
}
mes "[Facilities manager]";
mes "We have received the air cleaning unit.";
close;
case 4:
if (isbegin_quest(5356) == 0 && recorder_quest_status == 1) {
emotion ET_QUESTION;
mes "[Facilities manager]";
mes "Has the adventurer not delivered the air cleaning unit yet? Uh?! It's here. Hurry.. the air cleaning unit..";
next;
if (countitem(6825) < 1) {
mes "[Facilities manager]";
mes "Arwhat!! Why didn't you bring it. Bring it now, okay?";
close;
}
delitem 6825,1;// Air Purifier Box
setquest 5356;// I-0 Delivery Complete
mes "[Facilities manager]";
mes "It's urgent. I'll thank you later..";
close;
}
mes "[Facilities manager]";
mes "Don't talk to me. Every hour is precious.";
close;
case 5:
if (isbegin_quest(5357) == 0 && recorder_quest_status == 1) {
emotion ET_BEST;
mes "[Facilities manager]";
mes "Oh- You're here? I was waiting.";
next;
mes "[Facilities manager]";
mes "I have heard Adventurers are all strong as oxen but it is still impressive.";
next;
if (countitem(6825) < 1) {
mes "[Facilities manager]";
mes "But where is the air cleaning unit? You didn't bring the most important thing. Bring it here.";
close;
}
delitem 6825,1;// Air Purifier Box
setquest 5357;// Z-0 Delivery Complete
mes "[Facilities manager]";
mes "Good work. Good work. We have received the air cleaning unit.";
close;
}
mes "[Facilities manager]";
mes "Good work. Good work. We have received the air cleaning unit.";
close;
}
end;
case 3:
mes "[Facilities manager]";
mes "Have you tried the grape made by the Bioengineers?";
next;
mes "[Facilities manager]";
mes "Science is truly amazing to have us enjoy fresh grapes in this underground air-raid shelter.";
close;
case 4:
mes "[Facilities manager]";
mes "I think the air cleaner might be useless because the contaminant has already infiltrated the air-raid shelter.";
close;
case 5:
mes "[Facilities manager]";
mes "You are going through a lot.";
close;
}
}
un_bk_q,223,217,4 duplicate(Zone C-0 Facilities man#1) Zone F-1 Facilities man#2 4_M_EINMAN2
un_bk_q,372,217,6 duplicate(Zone C-0 Facilities man#1) Zone F-2 Facilities man#3 4_M_EINMAN2
un_bk_q,389,276,6 duplicate(Zone C-0 Facilities man#1) Zone I-0 Facilities man#4 4_M_EINMAN2
un_bk_q,291,158,4 duplicate(Zone C-0 Facilities man#1) Zone Z-0 Facilities man#5 4_M_EINMAN2
// Corridor Farm
un_bk_q,213,303,4 script Bioengineer Touring#EP1 4W_M_02,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
if (recorder_quest_status == 3) {
if (isbegin_quest(5347) == 0) {
mes "[Bioengineer Touring]";
emotion ET_QUESTION;
mes "Huh?! Who are you?";
next;
select("I am...");
emotion ET_SURPRISE;
mes "[Bioengineer Touring]";
mes "Ah! Dr. Fresa sent you to check the conditions of survivor assignments?";
next;
mes "[Bioengineer Touring]";
mes "What a relief. The disaster network came on a bit ago and we just confirmed how many Bioengineers have survived.";
next;
setquest 5347;// Headcount
mes "[Bioengineer Touring]";
mes "We have confirmed ^FF000022 ^000000Bioengineers have survived including myself.";
next;
mes "[Bioengineer Touring]";
mes "Oh yeah! Tell Dr. Fresa that the Bioengineers are using growth acceleration technology for food production according to the Emergency Situation Guidelines.";
next;
emotion ET_THANKS;
mes "[Bioengineer Touring]";
mes "I will count on you.";
close;
}
mes "[Bioengineer Touring]";
mes "We have confirmed ^FF000022 ^000000Bioengineers have survived including myself.";
next;
mes "[Bioengineer Touring]";
mes "Oh yeah! Tell Dr. Fresa that the Bioengineers are using growth acceleration technology for food production according to the Emergency Situation Guidelines.";
next;
emotion ET_THANKS;
mes "[Bioengineer Touring]";
mes "I will count on you.";
close;
}
mes "[Bioengineer Touring]";
mes "We Bioengineers are doing all we can to produce food for the people inside the air-raid shelter.";
close;
case 2:
mes "[Bioengineer Touring]";
mes "Wait a minute. You cannot enter the farm right now.";
close;
case 3:
mes "[Bioengineer Touring]";
mes "We have just finished the last grape harvest and are getting ready for the next one.";
next;
emotion ET_SORRY;
mes "[Bioengineer Touring]";
mes "If people come and go often, it may interfere with the work so access is prohibited.";
close;
case 4:
mes "[Bioengineer Touring]";
mes "We Bioengineers are doing all we can to produce food for the people inside the air-raid shelter.";
next;
emotion ET_SORRY;
mes "[Bioengineer Touring]";
mes "If people come and go often, it may interfere with the work for the next harvest so access will be prohibited.";
close;
case 5:
mes "[Bioengineer Touring]";
mes "We Bioengineers are doing all we can to produce food for the people inside the air-raid shelter.";
next;
emotion ET_SORRY;
mes "[Bioengineer Touring]";
mes "If people come and go often, it may interfere with the work for the next harvest so access will be prohibited.";
close;
}
}
// Farm
un_bk_q,216,300,0 script C-0#farm WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
mes "[Bioengineer Touring]";
mes "Wait a minute. You cannot enter the farm right now.";
close;
}
un_bk_q,213,346,0 script farm#C-0 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 3 && recorder_quest_status == 0) {
emotion ET_BIGTHROB, getnpcid(0, "Bioengineer Ebrik#EP15.2MR");
mes "[Bioengineer Ebrik]";
mes "Are you the Adventurer here to help us with the grape harvest? Right here!!";
close;
}
warp "un_bk_q",213,299;
end;
}
un_bk_q,220,350,4 script Bioengineer Ebrik#EP15.2MR 4_M_01,{
callfunc("F_time_limit_recorder");
if (recorder_quest_type != 3)
end;
switch( recorder_quest_status ) {
case 0:
emotion ET_QUESTION;
mes "[Bioengineer Ebrik]";
mes "Are you the Adventurer here to help us with the grape harvest? Nice to meet you.";
next;
mes "[Bioengineer Ebrik]";
mes "Bioengineers alone do not have enough hands to harvest the amount of grapes we need to provide all the people inside the air-raid shelter.";
next;
mes "[Bioengineer Ebrik]";
mes "So we ended up asking the Adventurers.";
next;
select("Are there others who can help?");
mes "[Bioengineer Ebrik]";
mes "Don't even mention it. We gave the task of harvesting grapes to the meandering Mechanicians and..";
next;
emotion ET_KEK;
mes "[Bioengineer Ebrik]";
mes "They ended up smashing one of the grape trees!!";
next;
mes "[Bioengineer Ebrik]";
mes "We were lucky to have found out and stopped them before they destroyed the other trees. The thought of it is horrible.";
next;
mes "[Bioengineer Ebrik]";
mes "Ah! That is not what's important.";
next;
mes "[Bioengineer Ebrik]";
mes "We used growth acceleration to make ripe grapes drop periodically.";
next;
mes "[Bioengineer Ebrik]";
mes "It would be nice if you can wait in front of the grape tree and collect 30 bunches of grapes.";
next;
mes "[Bioengineer Ebrik]";
mes "You can collect more, but the remaining ones from the harvest will naturally decompose and disappear.";
next;
setquest 5358;// Limits of Journeys
setquest 5359;// Grape Harvest
recorder_quest_status = 1;
mes "[Bioengineer Ebrik]";
mes "Then the soil fertility will recover partially. Good luck.";
close;
case 1:
if (countitem(6826) < 30) {
mes "[Bioengineer Ebrik]";
mes "We have decided to give out one grape box per team.";
next;
mes "[Bioengineer Ebrik]";
mes "One box can hold 30~32 bunches so collect accordingly.";
close;
}
emotion ET_BEST;
mes "[Bioengineer Ebrik]";
mes "Whoa good job. As I thought Adventurers are so much more capable than Mechanicians.";
next;
mes "[Bioengineer Ebrik]";
mes "Since the grapes are harvested should we deliver them to each team?";
next;
mes "[Bioengineer Ebrik]";
mes "I will be rude and ask you another favor on top of your hard work.";
next;
mes "[Bioengineer Ebrik]";
mes "Let's see.. the grapes you just harvested";
next;
delitem 6826, countitem(6826);// Fresh Grape
setquest 5362;// Grape Delivery
recorder_quest_status = 2;
mes "[Bioengineer Ebrik]";
mes "This should be delivered to the Chemical Substance team. You can deliver this to Karsten.";
next;
mes "[Bioengineer Ebrik]";
mes "Oh! You do not have to come back after the deliveries. We will be busy starting the next project.";
next;
mes "[Bioengineer Ebrik]";
mes "The people receiving the deliveries will probably give you compensation. If they don't, you can nag them.";
close;
case 2:
mes "[Bioengineer Ebrik]";
mes "That grape box you are holding";
next;
mes "[Bioengineer Ebrik]";
mes "Has to be delivered to Karsten of the Chemical substance team.";
next;
mes "[Bioengineer Ebrik]";
mes "Compensation will be paid by the people receiving the deliveries so you do not have to come back here.";
close;
}
end;
OnInit:
freeloop 1;
setarray .amount[0],1,1,2;
setarray .grap_num[0],1,2,3,4,5;
setarray .coord[0],
242,391, // Grape tree 1
274,391, // Grape tree 2
333,360, // Grape tree 3
316,344, // Grape tree 4
241,343; // Grape tree 5
while(true) {
sleep 60000;
callsub( S_Random_Grap, 0 );
callsub( S_Random_Grap, 1 );
}
S_Random_Grap:
.@end = 4 - getarg(0);
.@r = rand(3);
.@tmp = .grap_num[.@r];
.@index = (.@tmp - 1) * 2;
.grap_num[.@r] = .grap_num[.@end];
.grap_num[.@end] = .@tmp;
for ( .@i = 0; .@i < 3; .@i++ ) {
do {
.@x = .coord[.@index] + rand(-2,2);
.@y = .coord[.@index+1] + rand(-2,2);
}
while( !checkcell("un_bk_q",.@x,.@y,cell_chkpass) );
makeitem 6826, .amount[.@i], "un_bk_q",.@x,.@y;
}
return;
}
un_bk_q,240,380,8 script Bioengineer#EP15.2MR1 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
mes "[Bioengineer]";
mes "It seems we can harvest grape tree number 1 without problems. What a relief.";
next;
mes "[Bioengineer]";
mes "My heart sank when the Mechanicians destroyed a tree..";
close;
}
un_bk_q,274,380,8 script Bioengineer#EP15.2MR2 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
mes "[Bioengineer]";
mes "The soil grape tree number 2 is in seems to be lacking nutrition.";
next;
mes "[Bioengineer]";
mes "We need to prepare fertilizer to provide the soil more nutrition.";
close;
}
un_bk_q,327,360,6 script Bioengineer#EP15.2MR3 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
mes "[Bioengineer]";
mes "I worried because a lot of weird stuff was growing around grape tree number 3.";
next;
mes "[Bioengineer]";
mes "It seems the harvest will have no problem.";
close;
}
un_bk_q,316,351,4 script Bioengineer#EP15.2MR4 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
mes "[Bioengineer]";
mes "Grape tree number 4 has no particular problem.";
next;
mes "[Bioengineer]";
mes "Nutrition state good. Harvest state good.";
close;
}
un_bk_q,249,344,2 script Bioengineer#EP15.2MR5 4_M_ALCHE_C,{
callfunc("F_time_limit_recorder");
mes "[Bioengineer]";
mes "The nutrition of grape tree number 5 is too good.";
next;
mes "[Bioengineer]";
mes "That doesn't mean there will be a higher harvest yield..";
close;
}
// Clinic
un_bk_q,269,236,0 script Clinic#G-1 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 4 && recorder_quest_status == 0) {
mes "[Nurse Lapplad]";
mes "Look here?! Where are you trying to go? We have to do some tests so don't leave and wait here!!";
close;
}
warp "un_bk_q",255,235;
end;
}
un_bk_q,297,221,0 script Clinic#H-0 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 4 && recorder_quest_status == 0) {
mes "[Nurse Lapplad]";
mes "Look here?! Where are you trying to go? We have to do some tests so don't leave and wait here!!";
close;
}
warp "un_bk_q",298,203;
end;
}
un_bk_q,326,236,0 script Clinic#G-2 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 4 && recorder_quest_status == 0) {
mes "[Nurse Lapplad]";
mes "Look here?! Where are you trying to go? We have to do some tests so don't leave and wait here!!";
close;
}
warp "un_bk_q",340,235;
end;
}
un_bk_q,276,243,4 script Nurse Lapplad#EP15.2MR 4_F_BRZ_WOMAN,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 4:
switch( recorder_quest_status ) {
case 0:
emotion ET_SORRY;
mes "[Nurse Lapplad]";
mes "Sorry. Did you wait long? There are a lot of suspected infection patients as you can see..";
next;
select("Not really..");
emotion ET_HUK;
mes "[Nurse Lapplad]";
mes "Eh?! You didn't wait? That's strange? Did you cut in line? Cutting is bad.";
next;
mes "[Nurse Lapplad]";
mes "As you know there are infectees who are suddenly showing strange phenomena..";
next;
emotion ET_SCISSOR;
mes "[Nurse Lapplad]";
mes "Um...";
next;
mes "[Nurse Lapplad]";
mes "...Ah...";
next;
emotion ET_SURPRISE;
mes "[Nurse Lapplad]";
mes "...Oh!!";
next;
mes "[Nurse Lapplad]";
mes "I don't see any problematic symptoms. Fortunate.";
next;
mes "[Nurse Lapplad]";
mes "We are having trouble because of the suddenly convulsing patients.";
next;
mes "[Nurse Lapplad]";
mes "Look here. My skin is getting crispy from not being able to sleep for days~";
next;
mes "Thudunk!! Babang!! Crash!!";
if (mobcount( "un_bk_q", "Nurse Lapplad#EP15.2MR::OnMobDead" ) < 1)
callsub S_Random, 1; // always starts on Patient 1
next;
emotion ET_SMILE;
mes "[Nurse Lapplad]";
mes "Yes.. Just like that";
next;
emotion ET_SCISSOR;
mes "[Nurse Lapplad]";
mes ". .";
next;
mes "[Nurse Lapplad]";
mes "Argh!! Another convulsing patient.";
next;
mes "[Nurse Lapplad]";
mes "Hey. Aren't you an adventurer? You must be really strong.";
next;
setquest 5363;// Limits of Journeys
setquest 5364;// Convulsing Patient Suppression
recorder_quest_status = 1;
mes "[Nurse Lapplad]";
mes "Can you suppress that convulsing patient? I am counting on you.";
close;
case 1:
if (mobcount( "un_bk_q", "Nurse Lapplad#EP15.2MR::OnMobDead" ) > 0) {
emotion ET_CRY;
mes "[Nurse Lapplad]";
mes "Ee~~ ee~ ek~~~~~~~~~!!";
next;
emotion ET_CRY;
mes "[Nurse Lapplad]";
mes "Take those patients down quickly! You're an adventurer!!";
close;
}
mes "[Nurse Lapplad]";
mes "You didn't get bit or scratched by the convulsing patient, did you?";
next;
select("Why?");
mes "[Nurse Lapplad]";
mes "Hmm~ I don't see any particular wounds.";
next;
mes "[Nurse Lapplad]";
mes "Since I can't figure out the infection route...";
next;
mes "[Nurse Lapplad]";
mes "We have to prepare for a possible disaster...";
next;
mes "[Nurse Lapplad]";
mes "Anyway, Adventurer~ Assuring and the best!";
next;
mes "[Nurse Lapplad]";
mes "I haven't been that bewildered by simultaneously convulsing patients before..";
next;
mes "[Nurse Lapplad]";
mes "Lucky you were here to suppress it with ease.";
next;
mes "[Nurse Lapplad]";
mes "I am sorry but can you report this to Fresa on your way? You know who Fresa is?";
next;
setquest 5365;// Urgent News
recorder_quest_status = 2;
mes "[Nurse Lapplad]";
mes "It is a situation so I am asking you a favor.";
close;
case 2:
mes "[Nurse Lapplad]";
mes "I am sorry but can you report this to Fresa on your way? This is a favor.";
close;
}
}
end;
S_Random:
.rand_npc = getarg(0);
getmapxy .@map$,.@x,.@y, BL_NPC, "Patient#EP15.2MR_0" + .rand_npc;
disablenpc "Patient#EP15.2MR_0" + .rand_npc;
monster .@map$,.@x,.@y, "Convulsing Patient",1015,1,"Nurse Lapplad#EP15.2MR::OnMobDead";
.mob_id = $@mobid[0];
initnpctimer;
return;
OnMobDead:
enablenpc "Patient#EP15.2MR_0" + .rand_npc;
stopnpctimer;
if (rand(7) > 0) // inaccurate
callsub S_Random, rand(1,7);
end;
OnTimer3000:
if (rand(100) < 50) {
if (.rand_npc == 1) unittalk .mob_id, "Woouuu~";
else if (.rand_npc == 2) unittalk .mob_id, "Wooaa~";
else if (.rand_npc == 3) unittalk .mob_id, "Eh~";
else if (.rand_npc == 4) unittalk .mob_id, "Ha-ak-ha-ak~";
else if (.rand_npc == 5) unittalk .mob_id, "Uh- Ugh~";
else if (.rand_npc == 6) unittalk .mob_id, "Eh~";
else if (.rand_npc == 7) unittalk .mob_id, "Kur..urk..kekek..";
}
initnpctimer;
end;
}
// Patients
un_bk_q,286,254,4 script Patient#EP15.2MR_01 4_M_LIEMAN,{
callfunc("F_time_limit_recorder");
emotion ET_PROFUSELY_SWEAT;
mes "[Patient]";
mes "Hurts.. It hurts..";
close;
}
un_bk_q,296,252,4 script Patient#EP15.2MR_02 4_M_DSTMANDEAD,{
callfunc("F_time_limit_recorder");
mes "[Patient]";
mes "I'm fine. They're making a fuss for no reason.";
close;
}
un_bk_q,316,231,4 script Patient#EP15.2MR_03 4_M_DIEMAN,{
callfunc("F_time_limit_recorder");
emotion ET_SLEEPY;
mes "[Patient]";
mes "I keep feeling sleepy for some reason. Is it because I'm sick?";
close;
}
un_bk_q,281,226,4 script Patient#EP15.2MR_04 4_F_PATIENT,{
callfunc("F_time_limit_recorder");
emotion ET_OHNO;
mes "[Patient]";
mes "My head feels blank.. Uh? Did you say something?";
close;
}
un_bk_q,320,249,4 script Patient#EP15.2MR_05 4_M_PATIENT,{
callfunc("F_time_limit_recorder");
emotion ET_CONFUSE;
mes "[Patient]";
mes "Ugh.. Feels like my whole body is cramped.";
close;
}
un_bk_q,306,233,4 script Patient#EP15.2MR_06 4_M_DIEMAN,{
callfunc("F_time_limit_recorder");
emotion ET_SEXY;
mes "[Patient]";
mes "Urk.. I feel sick even though I didn't drink.";
close;
}
un_bk_q,310,261,4 script Patient#EP15.2MR_07 4_M_LIEMAN,{
callfunc("F_time_limit_recorder");
emotion ET_OTL;
mes "[Patient]";
mes "Oh no is there a transfectant found in me..";
close;
}
// Nurses
un_bk_q,313,261,2 script Nurse#EP15.2MR1 4_F_NURSE,{
callfunc("F_time_limit_recorder");
mes "[Nurse]";
mes "Patient~ That chair is quite high.. doesn't your head ache?";
close;
}
un_bk_q,322,249,2 script Nurse#EP15.2MR2 4_F_NURSE,{
callfunc("F_time_limit_recorder");
mes "[Nurse]";
mes "Why does he say he has a cramp? The other patients didn't have that problem.";
close;
}
un_bk_q,316,233,4 script Nurse#EP15.2MR3 4_F_NURSE,{
callfunc("F_time_limit_recorder");
mes "[Nurse]";
mes "Argh- I told you not to scribble on the floor while pretending to sleep.";
close;
}
un_bk_q,304,233,4 script Nurse#EP15.2MR4 4_F_NURSE,{
callfunc("F_time_limit_recorder");
mes "[Nurse]";
mes "You ran around the elephant trunk thirty times so you must be sick. Claiming he can't feel dizziness. Quite the bluffer.";
close;
}
un_bk_q,283,226,2 script Nurse#EP15.2MR5 4_F_NURSE,{
callfunc("F_time_limit_recorder");
emotion ET_CRY;
mes "[Nurse]";
mes "Ah geez! There is no other issues yet but why is he saying he's dizzy?";
close;
}
un_bk_q,284,255,4 script Nurse#EP15.2MR6 4_F_NURSE,{
callfunc("F_time_limit_recorder");
mes "[Nurse]";
mes "So what do you mean!! Where does it hurt!!";
close;
}
un_bk_q,296,254,4 script Nurse#EP15.2MR7 4_F_NURSE,{
callfunc("F_time_limit_recorder");
emotion ET_CRY;
mes "[Nurse]";
mes "What do you mean nothing is wrong, your face has gone purple.";
close;
}
// Cafeteria
un_bk_q,271,290,0 script Cafeteria#G-1 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 5 && recorder_quest_status == 0) {
emotion ET_FRET, getnpcid(0, "Transportation Executive Ernon");
mes "[Transportation Executive Ernon]";
mes "Hey~ This is a time to borrow even the hands of small children. Stop goofing around and come here.";
close;
}
warp "un_bk_q",255,261;
end;
}
un_bk_q,324,290,0 script Cafeteria#G-2 WARPNPC,1,1,{
end;
OnTouch:
callfunc("F_time_limit_recorder");
if (recorder_quest_type == 5 && recorder_quest_status == 0) {
mes "[Transportation Executive Ernon]";
mes "Hey~ This is a time to borrow even the hands of small children. Stop goofing around and come here.";
close;
}
warp "un_bk_q",340,261;
end;
}
un_bk_q,279,294,4 script Transportation Executive Ernon 4_M_LGTMAN,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Transportation Executive Ernon]";
mes "We used to deliver things like daily necessities or research tools here before the accident.";
next;
mes "[Transportation Executive Ernon]";
mes "Work that involved going out to other places a lot more even as a staff member here.";
close;
case 2:
emotion ET_QUESTION;
mes "[Transportation Executive Ernon]";
mes "What?! Is something going on? The Mechanicians and Facilities managers look busy.";
close;
case 3:
emotion ET_BEST;
mes "[Transportation Executive Ernon]";
mes "Yaa~ Did you try the grapes?";
next;
mes "[Transportation Executive Ernon]";
mes "Isn't it great that we can grow fresh grapes in an underground evacuation facility like this?";
close;
case 4:
mes "[Transportation Executive Ernon]";
mes "Some people are suddenly attacking others.";
next;
mes "[Transportation Executive Ernon]";
mes "What in the hell is going on?";
close;
case 5:
switch( recorder_quest_status ) {
case 0:
emotion ET_QUESTION;
mes "[Transportation Executive Ernon]";
mes "They were talking about it in the broadcast since yesterday so you know the gist of the situation, right?";
next;
mes "[Transportation Executive Ernon]";
mes "The contaminant is getting to the interior of the air-raid shelter so the decision has been made to move all supplies to the uncontaminated zone Z-2 that the Chemical Substance Specialists found.";
next;
mes "[Transportation Executive Ernon]";
mes "There was a request to move the cargo with the Adventurers since the scrawny researchers won't be of help.";
next;
mes "[Transportation Executive Ernon]";
mes "Alright- let's move the cargo to Zone Z-2 first.";
next;
mes "[Transportation Executive Ernon]";
mes "If you go to the machine Warehouse on your way back there will a person called Al. Tell him";
next;
emotion ET_KIK;
mes "[Transportation Executive Ernon]";
mes "^0000FF You idiots!! Stop wasting material with stupid machines!!^000000 for me and come back.";
next;
select("Eh?");
mes "[Transportation Executive Ernon]";
mes "Don't understand? Tell Al in the machine Warehouse";
next;
emotion ET_KIK;
mes "[Transportation Executive Ernon]";
mes "^0000FF You idiots!! Stop wasting material with stupid machines!!^000000 and come back.";
next;
setquest 5366;// Limits of Journeys
setquest 5367;// Transport Necessities
recorder_quest_status = 1;
mes "[Transportation Executive Ernon]";
mes "Remember to get every postposition right and convey my feeling 100%.";
close;
case 1:
case 2:
mes "[Transportation Executive Ernon]";
mes "Transport the cargo to Zone Z-2 first.";
next;
mes "[Transportation Executive Ernon]";
mes "On your way back go to the machine Warehouse and tell Al";
next;
emotion ET_KIK;
mes "[Transportation Executive Ernon]";
mes "??^0000FF You idiots!! Stop wasting material with stupid machines!!^000000?? for me and come back.";
close;
case 3:
mes "[Transportation Executive Ernon]";
mes "You conveyed my feeling right?";
next;
mes "[Transportation Executive Ernon]";
mes "They should be smartened up by now. They wouldn't waste precious components again, right?";
next;
mes "[Transportation Executive Ernon]";
mes "Here! This is compensation for the job.";
next;
erasequest 5367;// Transport Necessities
erasequest 5368;// Goods delivery Complete
erasequest 5369;// Message Delivery Complete
setquest 5370;// Memory Record
getexp 750000,500000;
recorder_quest_status = 4;
mes "- The small round capsule has percolated through skin. It feels like experience has accumulated.";
next;
mes "[Transportation Executive Ernon]";
mes "Though our survival isn't sure because of the contaminant,";
next;
mes "[Transportation Executive Ernon]";
mes "The chief researcher told us to adequately compensate the adventurers who were caught up in the explosion.";
next;
mes "[Transportation Executive Ernon]";
mes "Don't worry about it though.";
close;
case 4:
mes "[Transportation Executive Ernon]";
mes "Though our survival isn't sure because of the contaminant,";
next;
mes "[Transportation Executive Ernon]";
mes "The chief researcher told us to adequately compensate the adventurers who were caught up in the explosion.";
next;
mes "[Transportation Executive Ernon]";
mes "Don't worry about it though.";
close;
}
}
}
un_bk_q,297,287,6 script Adventurer Jean#EP15.2M 4_M_HUBOY,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Adventurer Jean]";
mes "Uh?! You're an adventurer too?";
next;
mes "[Adventurer Jean]";
mes "Ugh.. It seems you are unlucky as well.";
close;
case 2:
mes "[Adventurer Jean]";
mes "Don't you think this place is trying to exploit us Adventurers?";
next;
mes "[Adventurer Jean]";
mes "The Cafeteria food is good though.";
close;
case 3:
mes "[Adventurer Jean]";
mes "Grapes were served on the side today.";
next;
mes "[Adventurer Jean]";
mes "I like grapes. I want to eat more.";
close;
case 4:
mes "[Adventurer Jean]";
mes "A friend I made here is confined in the temporary clinic. They found a transfectant or something.";
next;
mes "[Adventurer Jean]";
mes "To us adventurers a healthy body is an asset.";
close;
case 5:
mes "[Adventurer Jean]";
mes "I ate a lot of different things from adventuring places.";
next;
mes "[Adventurer Jean]";
mes "I think the food here is one of the best.";
close;
}
}
un_bk_q,318,299,2 script Cafeteria Lady#EP15.2MR 4_F_CAVE1,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Cafeteria Lady]";
mes "Sorry. We aren't ready to distribute food yet.";
close;
case 2:
mes "[Cafeteria Lady]";
mes "Grab a plate or tray and wait in line.";
close;
case 3:
mes "[Cafeteria Lady]";
mes "Oh no what should we do? We ran out of grapes.";
next;
mes "[Cafeteria Lady]";
mes "New grapes should be delivered from the farm soon. Do you want to wait?";
close;
case 4:
mes "[Cafeteria Lady]";
mes "Do you know that's the temporary clinic? You cannot go that way now.";
next;
mes "[Cafeteria Lady]";
mes "The passage is blocked because of convulsing patients.";
close;
case 5:
mes "[Cafeteria Lady]";
mes "You are working hard.";
close;
}
}
// Corridor
un_bk_q,280,280,8 script Access Control Guard#EP_clinic1 4_M_HUMAN_02,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
case 2:
case 3:
mes "[Access Control Guard]";
mes "You cannot enter this area because it is under construction.";
next;
mes "[Access Control Guard]";
mes "According to the Facilities managers it will be later used as a Clinic.";
close;
case 4:
mes "[Access Control Guard]";
mes "Access to the temporary clinic is restricted to quarantine convulsing patients.";
next;
mes "[Access Control Guard]";
mes "I ask for your understanding.";
close;
case 5:
mes "[Access Control Guard]";
mes "Movement in this area is currently prohibited.";
next;
mes "[Access Control Guard]";
mes "I ask for your understanding.";
close;
}
}
un_bk_q,313,280,8 duplicate(Access Control Guard#EP_clinic1) Access Control Guard#EP_clinic2 4_M_HUMAN_02
un_bk_q,340,235,6 duplicate(Access Control Guard#EP_clinic1) Access Control Guard#EP_clinic3 4_M_HUMAN_02
un_bk_q,298,203,4 duplicate(Access Control Guard#EP_clinic1) Access Control Guard#EP_clinic4 4_M_HUMAN_02
un_bk_q,255,236,2 duplicate(Access Control Guard#EP_clinic1) Access Control Guard#EP_clinic5 4_M_HUMAN_02
un_bk_q,248,258,2 script Adventurer Dally#EP15.2 4_F_SITDOWN,{
callfunc("F_time_limit_recorder");
mes "[Adventurer Dally]";
mes "Darn it!! Frustrating";
next;
sc_start SC_INCREASEAGI,240000,10;
mes "[Adventurer Dally]";
mes "Sister- Run~";
close;
}
// Z-2 Zone
un_bk_q,72,53,4 script Distribution Chief Avrandi 4_M_TWTEAMAN,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
emotion ET_OHNO;
mes "[Distribution Chief Avrandi]";
mes "It is a relief we were able to evacuate to the air-raid shelter interior in advance.";
next;
mes "[Distribution Chief Avrandi]";
mes "If we weren't able to evacuate..? We probably won't be here.";
close;
case 2:
emotion ET_QUESTION;
mes "[Distribution Chief Avrandi]";
mes "Is there something wrong?";
next;
mes "[Distribution Chief Avrandi]";
mes "A while ago the Facilities managers were running around in haste.";
close;
case 3:
emotion ET_HUK;
mes "[Distribution Chief Avrandi]";
mes "What in the world?! You ate fresh grapes? Why didn't I get to eat them? Why?";
close;
case 4:
emotion ET_SHY;
mes "[Distribution Chief Avrandi]";
mes "This place is sure quiet. Why you ask?";
next;
mes "[Distribution Chief Avrandi]";
mes "Not many people come this far.";
close;
case 5:
if (recorder_quest_status == 1) {
mes "[Distribution Chief Avrandi]";
mes "Ah! Come on in. It seems there are a lot of visitors today because of the broadcast this morning.";
next;
mes "[Distribution Chief Avrandi]";
mes "You're here because Ernon sent you right?";
next;
mes "[Distribution Chief Avrandi]";
mes "I have received the item you have brought.";
next;
setquest 5368;// Goods delivery Complete
recorder_quest_status = 2;
mes "[Distribution Chief Avrandi]";
mes "Eh-? Are you taking it back? That is a lot of work.";
close;
}
mes "[Distribution Chief Avrandi]";
mes "Good luck. You are working hard.";
close;
}
}
// B-1 Warehouse
un_bk_q,34,138,4 script Warehouse Keeper Pik#EP 4W_M_03,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Warehouse Keeper Pik]";
mes "I don't know what brings you here but please don't touch anything.";
next;
mes "[Warehouse Keeper Pik]";
mes "I haven't finished checking the stock and it would be annoying if anything went missing.";
close;
case 2:
mes "[Warehouse Keeper Pik]";
mes "You're an adventurer. You don't have to deliver air cleaners here.";
next;
mes "[Warehouse Keeper Pik]";
mes "It's a warehouse anyway. The independent air circulation system is enough.";
close;
case 3:
mes "[Warehouse Keeper Pik]";
mes "Aahh- Looking after the warehouse is annoying.";
next;
mes "[Warehouse Keeper Pik]";
mes "There is nobody to rotate my shift";
close;
case 4:
mes "[Warehouse Keeper Pik]";
mes "Wha- wha- wait stop!!";
next;
mes "[Warehouse Keeper Pik]";
mes "You're not here to ambush me right? It's alright if not.";
close;
case 5:
mes "[Warehouse Keeper Pik]";
mes "Are you here to move items?";
next;
mes "[Warehouse Keeper Pik]";
mes "The goods in this warehouse should not be today I think? From what I know today we are moving necessities first.";
close;
}
}
// Corridor F-2
un_bk_q,347,217,4 script Facilities manager Remodeling 4_M_EINMAN,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
if (recorder_quest_status == 9) {
if (isbegin_quest(5349) == 0) {
emotion ET_QUESTION;
mes "[Facilities manager Remodeling]";
mes "Uh?! Hello. First time meeting you. What brings you here?";
next;
select("Explain situation.");
mes "[Facilities manager Remodeling]";
mes "Ah! Is that so? Fresa you say? It hasn't been long since my department was placed here.";
next;
mes "[Facilities manager Remodeling]";
mes "I only heard of the name Fresa.";
next;
setquest 5349;// Headcount Complete
mes "[Facilities manager Remodeling]";
mes "Anyway the current number of us facilities managers is ^FF000028^000000.";
next;
mes "[Facilities manager Remodeling]";
mes "There might be some others who are hiding somewhere but as of right now there are ^FF000028^000000.";
next;
mes "[Facilities manager Remodeling]";
mes "Tell Fresa on your way that Facilities managers are inspecting facilities in their assigned areas because the air-raid shelter facilities have not really been used.";
close;
}
mes "[Facilities manager Remodeling]";
mes "The current number of facilities managers is ^FF000028^000000.";
next;
mes "[Facilities manager Remodeling]";
mes "Tell Fresa that Facilities managers are inspecting facilities in their assigned areas because the air-raid shelter facilities have not really been used.";
close;
}
mes "[Facilities manager Remodeling]";
mes "I don't know who equipped the air-raid shelter. But it surely is well made and sturdy.";
close;
case 2:
mes "[Facilities manager Remodeling]";
mes "I don't know who equipped the air-raid shelter. But it surely is well made and sturdy.";
close;
case 3:
mes "[Facilities manager Remodeling]";
mes "What!! That grape!! I had some already so I am guessing it's not mine.";
close;
case 4:
mes "[Facilities manager Remodeling]";
mes "I don't know who equipped the air-raid shelter. But it surely is well made and sturdy.";
close;
case 5:
mes "[Facilities manager Remodeling]";
mes "I don't know who equipped the air-raid shelter. But it surely is well made and sturdy.";
close;
}
}
// Off Limits
un_bk_q,102,97,2 script Adventurer Breezin#EP15.2MR 4_F_BRZ_INDOLD,{
callfunc("F_time_limit_recorder");
switch( recorder_quest_type ) {
case 1:
mes "[Adventurer Breezin]";
mes "Ahh.. Why did I travel here..";
next;
mes "[Adventurer Breezin]";
mes "Hey don't think of going out that way. It's going to be dangerous because of the explosion.";
close;
case 2:
mes "[Adventurer Breezin]";
mes "Today is strange. Hey do you see the mysterious device over there too?";
close;
case 3:
mes "[Adventurer Breezin]";
mes "I think I said it 30 times today alone but there is no device at the door.";
next;
mes "[Adventurer Breezin]";
mes "I am itching for an adventure but safety outside isn't confirmed so don't think of going outside.";
close;
case 4:
mes "[Adventurer Breezin]";
mes "A while I ago I couldn't stop the Chemical Substance Specialists from going outside.";
next;
mes "[Adventurer Breezin]";
mes "Seeing how they didn't return, they must be dead, right?";
close;
case 5:
mes "[Adventurer Breezin]";
mes "The situation has grown out of control.";
next;
mes "[Adventurer Breezin]";
mes "Haa- Should have I stopped those people leaving the air-raid shelter?";
close;
}
}
// Bulletin Board
un_bk_q,101,92,8 script Off Limits#01 4_BULLETIN_BOARD2,{ end; }
un_bk_q,94,92,8 duplicate(Off Limits#01) Off Limits#02 4_BULLETIN_BOARD2
un_bk_q,22,279,4 duplicate(Off Limits#01) Machine Warehouse 4_BULLETIN_BOARD2
un_bk_q,215,303,4 duplicate(Off Limits#01) farm#C0 4_BULLETIN_BOARD2
un_bk_q,58,185,4 duplicate(Off Limits#01) Control room#Left 4_BULLETIN_BOARD2
un_bk_q,139,187,4 duplicate(Off Limits#01) Control room#Right 4_BULLETIN_BOARD2
un_bk_q,101,122,4 duplicate(Off Limits#01) Monitoring room#A0Center 4_BULLETIN_BOARD2
un_bk_q,58,171,4 duplicate(Off Limits#01) Monitoring room#L1Left 4_BULLETIN_BOARD2
un_bk_q,139,171,4 duplicate(Off Limits#01) Monitoring room#L2Right 4_BULLETIN_BOARD2
un_bk_q,256,239,4 duplicate(Off Limits#01) Temporary Clinic#G1 4_BULLETIN_BOARD2
un_bk_q,301,204,4 duplicate(Off Limits#01) Temporary Clinic#H0 4_BULLETIN_BOARD2
un_bk_q,58,121,4 duplicate(Off Limits#01) A-0 Zone#L1 4_BULLETIN_BOARD2
un_bk_q,141,115,4 duplicate(Off Limits#01) A-0 Zone#L2 4_BULLETIN_BOARD2
un_bk_q,278,193,4 duplicate(Off Limits#01) A-0 Zone#H0Left 4_BULLETIN_BOARD2
un_bk_q,317,193,4 duplicate(Off Limits#01) A-0 Zone#H0Right 4_BULLETIN_BOARD2
un_bk_q,49,137,4 duplicate(Off Limits#01) B-1 Warehouse 4_BULLETIN_BOARD2
un_bk_q,219,265,4 duplicate(Off Limits#01) C-0 Zone#G1 4_BULLETIN_BOARD2
un_bk_q,247,217,4 duplicate(Off Limits#01) F-1 Zone#G1 4_BULLETIN_BOARD2
un_bk_q,349,217,4 duplicate(Off Limits#01) F-2 Zone#G2 4_BULLETIN_BOARD2
un_bk_q,214,283,4 duplicate(Off Limits#01) G-1 Zone#C0 4_BULLETIN_BOARD2
un_bk_q,228,217,4 duplicate(Off Limits#01) G-1 Zone#F1 4_BULLETIN_BOARD2
un_bk_q,273,203,4 duplicate(Off Limits#01) G-1 Zone#H0 4_BULLETIN_BOARD2
un_bk_q,322,203,4 duplicate(Off Limits#01) G-2 Zone#H0 4_BULLETIN_BOARD2
un_bk_q,388,266,4 duplicate(Off Limits#01) G-2 Zone#I0 4_BULLETIN_BOARD2
un_bk_q,122,125,4 duplicate(Off Limits#01) H-0 Zone#Right 4_BULLETIN_BOARD2
un_bk_q,78,125,4 duplicate(Off Limits#01) H-0 Zone#Left 4_BULLETIN_BOARD2
un_bk_q,340,203,4 duplicate(Off Limits#01) H-0 Zone#H0 4_BULLETIN_BOARD2
un_bk_q,300,184,4 duplicate(Off Limits#01) H-0 Zone#Z0 4_BULLETIN_BOARD2
un_bk_q,368,267,4 duplicate(Off Limits#01) I-0 Zone#G2 4_BULLETIN_BOARD2
un_bk_q,25,193,4 duplicate(Off Limits#01) J-0 Zone#L1 4_BULLETIN_BOARD2
un_bk_q,173,193,4 duplicate(Off Limits#01) K-0 Zone#L2 4_BULLETIN_BOARD2
un_bk_q,71,121,4 duplicate(Off Limits#01) L-1 Zone#A0 4_BULLETIN_BOARD2
un_bk_q,22,259,4 duplicate(Off Limits#01) L-1 Zone#J0 4_BULLETIN_BOARD2
un_bk_q,126,121,4 duplicate(Off Limits#01) L-2 Zone#A0 4_BULLETIN_BOARD2
un_bk_q,171,233,4 duplicate(Off Limits#01) L-2 Zone#K0 4_BULLETIN_BOARD2
un_bk_q,300,194,4 duplicate(Off Limits#01) Z-0 Zone#H0 4_BULLETIN_BOARD2
un_bk_q,164,55,4 duplicate(Off Limits#01) Z-0 Zone#Z1 4_BULLETIN_BOARD2
un_bk_q,27,55,4 duplicate(Off Limits#01) Z-0 Zone#Z2 4_BULLETIN_BOARD2
un_bk_q,230,167,4 duplicate(Off Limits#01) Z-1 Zone#Z0 4_BULLETIN_BOARD2
un_bk_q,365,167,4 duplicate(Off Limits#01) Z-2 Zone#Z0 4_BULLETIN_BOARD2
un_bk_q,97,84,4 script Dimension move Portal#E PORTAL,{
callfunc("F_time_limit_recorder");
mes "[Dimension-mover]";
mes "Do you want finish your travels and";
mes "go back to your original time?";
mes "^FF0000All traces in this place will be erased if you go back to your original time.^000000";
next;
if (select( "Stay here.", "Go back." ) == 2) {
mes "[Dimension-mover]";
delitem 6825, countitem(6825);// Air Purifier Box
delitem 6826, countitem(6826);// Fresh Grape
for ( .@quest_id = 5341; .@quest_id < 5371; .@quest_id++ ) {
if (isbegin_quest(.@quest_id) > 0)
erasequest .@quest_id;
}
recorder_quest_type = 0;
recorder_quest_status = 0;
mes "Your whole body becomes heavy and time seems to be passing faster around you.";
close2;
warp "un_bunker",98,91;
}
end;
}