//===== eAthena Script =======================================
//= Juperos Dungeon Quests
//===== By ===================================================
//= MasterOfMuppets
//===== Version ==============================================
//= 1.7
//===== Compatible With ======================================
//= eAthena SVN
//===== Description ==========================================
//= [Partial Aegis COnversion]
//= Juperos Ruins related Quests/Events
//===== Comments =============================================
//= 1.0 First version, partly implemented [MasterOfMuppets]
//= 1.1 Added official Juperos Ruins History Quest. Thanks
//= to Keplerk for his first version. [SinSloth]
//= 1.2 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 1.3 Removed semi-official core access NPCs, replaced with [L0ne_W0lf]
//= event-driven story progressive NPCs. Optimization needed.
//= 1.3a Adjusted the elevafor timer. (132000 -> 142000) [L0ne_W0lf]
//= 1.3b Minor updates to juperos elevator NPCs. [L0ne_W0lf]
//= 1.4 Fixed Elevator not working after failing once. [L0ne_W0lf]
//= 1.5 Lots of Fixes, missing stopnpctimers, cleanup. [Zephyrus]
//= 1.6 Added missing close in "Popular Feats" [L0ne_W0lf]
//= 1.7 Replaced effect numerics with constants. [L0ne_W0lf]
//============================================================
yuno_in04,190,125,4 script Scholar 700,{
switch(yuno_hist)
{
case 0:
mes "[Scholar]";
mes "...Mm? ";
mes "...Yes?";
next;
mes "[Scholar]";
mes "...";
mes "......";
mes "May I help you?";
next;
switch( select( "Oh! N-Nothing!","Excuse me..." ) )
{
case 1:
mes "[Scholar]";
mes "...";
mes "......";
mes "Hmm?";
mes "...........";
mes "Hmpf.";
close;
case 2:
mes "[Scholar]";
mes "...";
mes "......";
mes "Hmm?";
mes "...........";
mes "Hmmm...";
next;
mes "[Scholar]";
mes "You must be lost.";
mes "This is the scholarly";
mes "research section, you know,";
mes "content you couldn't possibly";
mes "fathom. The popular novels and picture books are someplace else.";
next;
mes "["+strcharinfo(0)+"]";
mes "...";
mes "......";
next;
mes "[Scholar]";
mes "Why don't you rummage";
mes "through the bookshelves?";
mes "I'm sure you can find some";
mes "book there that can hold your";
mes "interest. Well, depending on";
mes "your actual attention span...";
next;
mes "["+strcharinfo(0)+"]";
mes "(What's her damage?!";
mes "Does she have an attitude problem or is she just stuck-up?)";
close;
}
case 1:
mes "[Scholar]";
mes "...Mm? ";
mes "...Yes?";
next;
mes "[Scholar]";
mes "...";
mes "......";
mes "May I help you?";
next;
switch( select( "Oh! N-Nothing!","By any chance..." ) )
{
case 1:
mes "[Scholar]";
mes "...";
mes "......";
mes "Hmm?";
mes "...........";
mes "Hmpf.";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "By any chance...";
mes "Are you conducting";
mes "research about Juperos?";
next;
mes "[Scholar]";
mes "Why yes, that is";
mes "correct. But how did";
mes "you come to learn about";
mes "my current research project?";
next;
mes "["+strcharinfo(0)+"]";
mes "Oh, I managed to read";
mes "a thesis paper entitled,";
mes "''The Fall of Juperos,'' and";
mes "I just thought that the writing";
mes "style and your personality";
mes "seem to match for some reason.";
next;
mes "[Scholar]";
mes "Oh...! You read my";
mes "thesis? So what did";
mes "you think about it?";
next;
mes "["+strcharinfo(0)+"]";
mes "So far, it's alright, but";
mes "quite frankly it's incomplete.";
mes "I mean, you don't have much in";
mes "in the way of conjecture, much";
mes "less any evidence to back up";
mes "any of your statements.";
next;
mes "[Scholar]";
mes "....";
mes "Let me apologize for";
mes "being rude to you earlier.";
mes "As you know, my name is";
mes "Fayruz Khrhiyha. May I ask";
mes "what your name might be?";
next;
mes "["+strcharinfo(0)+"]";
mes "I'm "+strcharinfo(0)+",";
mes "a brave adventurer in the";
mes "service of his royal majesty,";
mes "the wise and benevolent";
mes "King Tristram III.";
set yuno_hist,2;
next;
mes "[Fayruz]";
mes "Well, "+strcharinfo(0)+",";
mes "I understand that my thesis";
mes "still requires more evidence.";
mes "But I'd need some ancient";
mes "documents from Juperos";
mes "to complete my research...";
next;
mes "[Fayruz]";
mes "If you happen to travel";
mes "through Juperos and find";
mes "any ancient documents, would";
mes "you bring them to me? Having";
mes "those would help my research";
mes "efforts immensely. Thank you...";
close;
}
case 2:
if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
{
mes "[Fayruz]";
mes "Ah, it's you! Listen,";
mes "I just found a record of";
mes "an adventurer who explored";
mes "Juperos. There's mention";
mes "of a stone statue here that";
mes "just might be noteworthy...";
next;
mes "[Fayruz]";
mes "If you happen to find";
mes "yourself in Juperos,";
mes "would you find the stone";
mes "statue at the entrance of";
mes "its dungeon and read the";
mes "engraved message for me?";
next;
mes "[Fayruz]";
mes "According to my notes,";
mes "there's a spell that will";
mes "make its reader memorize";
mes "its message, even if they don't";
mes "know the language. So come";
mes "to me if you manage to read it.";
close;
}
mes "[Fayruz]";
mes "If you ever chance to";
mes "travel through Juperos,";
mes "would you let me know if you";
mes "find anything that might help";
mes "my research there? I'd be";
mes "very grateful for your help.";
close;
case 3:
mes "[Fayruz]";
mes "Well, you look";
mes "quite pleased.";
mes "May I asked what";
mes "happened to put that";
mes "expression on your face?";
next;
switch( select( "I found something in Juperos.","Nothing much." ) )
{
case 1:
mes "[" +strcharinfo(0)+"]";
mes "I went to Juperos like";
mes "you asked and found that";
mes "stone statue you were talking";
mes "about. Just like you said, there was an engraved message on it.";
next;
mes "[Fayruz]";
mes "Fascinating!";
mes "So is it really enchanted";
mes "so anyone can memorize it?";
mes "Wh-what does the message say?";
next;
mes "^3355FFYou recite the message";
mes "engraved on the stone";
mes "statue, unable to interpret";
mes "the sounds you're uttering,";
mes "but weirdly enough, you can";
mes "easily recall them from memory.^000000";
next;
mes "[Fayruz]";
mes "Ah, I see! Wait,";
mes "give me a moment to";
mes "properly translate this...";
next;
mes "...";
mes "......";
mes ".........";
next;
mes "[Fayruz]";
mes "It means, ''Do you wish to";
mes "see the end of the madness?";
mes "He is waiting where the three";
mes "columns were destroyed, where";
mes "two hundred illusions wander.''";
next;
mes "[Fayruz]";
mes "''You will see him, the one";
mes "who was vain and extravagant,";
mes "with your own eyes at the place where the light passes through.";
set yuno_hist,4;
next;
mes "[Fayruz]";
mes "Ah, usually, descriptions";
mes "of the ''vain and extravagant";
mes "one'' refer to the mad scientist rumored to have lived in that";
mes "ancient era. But if this is true, I may have to rework my thesis...";
next;
mes "[Fayruz]";
mes "I have another favor to";
mes "ask of you. If you find any";
mes "object of historical significance in Juperos, would you bring it to";
mes "me? I'll reward you, of course.";
next;
mes "[Fayruz]";
mes "It would be most helpful";
mes "if you could manage to find";
mes "documents that existed from that era. Fortunately, back then,";
mes "they made all their records on material more durable than paper.";
close;
case 2:
mes "[Fayruz]";
mes "Nothing, huh?";
mes "My life is also fairly";
mes "uneventful, but somehow,";
mes "I'm don't think I'm content.";
close;
}
case 4:
mes "[Fayruz]";
mes "Oh hello, "+strcharinfo(0)+".";
mes "So what brings you to";
mes "the Juno Library today?";
next;
switch( select ( "Nice weather today, isn't it?","I found something in Juperos.","Nothing much.") )
{
case 1:
mes "[Fayruz]";
mes "Well, I wouldn't know.";
mes "It's late whenever I go";
mes "out, so I always happen to";
mes "miss the sunlight. I guess";
mes "I really miss nice weather";
mes "sometimes, you know?";
close;
case 2:
if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
{
mes "[Fayruz]";
mes "Oh, really?!";
mes "That's great news!";
mes "W-what did you find?";
next;
mes "^3355FFIn her excitement,";
mes "Fayruz begins to";
mes "rummage through your";
mes "things before you get";
mes "the chance to answer her.^000000";
next;
mes "[Fayruz]";
mes "Oh, this must be it!";
mes "Would you mind if I keep";
mes "this Transparent Plate for";
mes "my research? In return, I'll";
mes "tell you some tales about";
mes "Juperos that I've learned.";
next;
switch( select ("Please, be my guest.","No way, you can't have it.") )
{
case 1:
if(countitem(7352)) callfunc "Func_JupHist",7352,1;
else if(countitem(7353)) callfunc "Func_JupHist",7353,2;
else if(countitem(7354)) callfunc "Func_JupHist",7354,4;
else if(countitem(7355)) callfunc "Func_JupHist",7352,8;
case 2:
mes "[Fayruz]";
mes "Mm? Are you serious?";
mes "This object is very valuable";
mes "to a researcher like me, but";
mes "I have no idea what use it";
mes "would be for an adventurer.";
mes "Well, you have your reasons...";
close;
}
}
mes "[Fayruz]";
mes "Oh, really?!";
mes "That's great news!";
mes "W-what did you find?";
next;
mes "^3355FFIn her excitement,";
mes "Fayruz begins to";
mes "rummage through your";
mes "things before you get";
mes "the chance to answer her.^000000";
next;
mes "[Fayruz]";
mes "Oh. There isn't anything";
mes "here that would help in my";
mes "research, but thank you anyway.";
mes "If you find anything else while";
mes "you're in Juperos, please come back and show it to me, alright?";
close;
case 3:
mes "[Fayruz]";
mes "Ah, I see. Well, while";
mes "you're here, why don't you";
mes "read something? There are";
mes "many books that cover some";
mes "interesting topics, like the";
mes "Schwaltzvalt economy...";
next;
mes "[Fayruz]";
mes "Oh, in any case, please";
mes "don't forget the favor I asked";
mes "of you. If you find anything";
mes "in Juperos that's historically";
mes "significant, I'd appreciate it";
mes "if you bring it right away.";
close;
}
case 5:
mes "[Fayruz]";
mes "Oh, "+strcharinfo(0)+"!";
mes "Have you come back with";
mes "something from Juperos?";
mes "I've been hoping you'd come";
mes "back with something that'd";
mes "help me in my research!";
next;
switch( select( "Take a look at this.","Oh, I'm sorry...") )
{
case 1:
switch(jupe_hist)
{
case 1:
callfunc "Func_JupHist",7353,7354,7355,7352;
case 2:
callfunc "Func_JupHist",7352,7354,7355,7353;
case 4:
callfunc "Func_JupHist",7352,7353,7355,7354;
case 8:
callfunc "Func_JupHist",7352,7353,7354,7355;
}
case 2:
mes "[Fayruz]";
mes "Ah, I see. Well, while";
mes "you're here, why don't you";
mes "read something? There are";
mes "many books that cover some";
mes "interesting topics, like...";
mes "like... Self-Honesty (?).";
next;
mes "[Fayruz]";
mes "Oh, in any case, please";
mes "don't forget the favor I asked";
mes "of you. If you find anything";
mes "in Juperos that's historically";
mes "significant, I'd appreciate it";
mes "if you bring it right away.";
close;
}
case 6:
mes "[Fayruz]";
mes "Oh, "+strcharinfo(0)+"!";
mes "The Transparent Plate";
mes "that you brought for me";
mes "last time is really helping me";
mes "in my research. If you get the";
mes "chance, please bring me more!";
set yuno_hist,7;
next;
mes "[Fayruz]";
mes "This new data is adding";
mes "a lot more credibility to my";
mes "thesis. Oh, I'll be with you";
mes "in a moment, let me finish";
mes "translating this one last";
mes "passage really quickly...";
close;
case 7:
mes "[Fayruz]";
mes "Hello, "+strcharinfo(0)+"~";
mes "Oh, were you able to look";
mes "in Juperos for anything that";
mes "might help me in my research?";
next;
switch( select( "Yeah, take a look at this.","No, I'm sorry...") )
{
case 1:
switch(jupe_hist)
{
case 3:
callfunc "Func_JupHist",7354,7355,7352,7353;
case 5:
callfunc "Func_JupHist",7353,7355,7352,7354;
case 6:
callfunc "Func_JupHist",7352,7355,7353,7354;
case 9:
callfunc "Func_JupHist",7353,7354,7352,7355;
case 10:
callfunc "Func_JupHist",7352,7354,7353,7355;
case 12:
callfunc "Func_JupHist",7352,7353,7354,7355;
}
case 2:
mes "[Fayruz]";
mes "Oh, that's fine.";
mes "Besides, I don't really";
mes "have a deadline to complete";
mes "this research project. Still,";
mes "I just want you to know that";
mes "I really appreciate your help.";
close;
}
case 8:
mes "[Fayruz]";
mes ""+strcharinfo(0)+"...";
mes "I'm having great difficulty in";
mes "translating that Transparent";
mes "Plate you brought for me that";
mes "last time. I'm so frustrated...";
next;
mes "[Fayruz]";
mes "Wait a minute...";
mes "This here means...";
mes "Alright. Okay. Yes.";
mes "Yes! Of course, how";
mes "could I not see it before!";
set yuno_hist,9;
next;
mes "[Fayruz]";
mes "I'll be with you";
mes "in just a second!";
mes "I think I just made";
mes "a real through...!";
next;
case 9:
mes "[Fayruz]";
mes "Ah, I've been";
mes "expecting you, "+strcharinfo(0)+".";
mes "So did you have been to Juperos again? I'm really hoping that you";
mes "were able to find something new that would help in my research...";
next;
switch( select("Actually, I did find this...","I'm sorry, I haven't...") )
{
case 1:
switch(jupe_hist)
{
case 7:
callfunc "Func_JupHist",7355,7352,7353,7354;
case 11:
callfunc "Func_JupHist",7354,7352,7353,7355;
case 13:
callfunc "Func_JupHist",7353,7352,7354,7355;
case 14:
callfunc "Func_JupHist",7352,7353,7354,7355;
}
case 2:
mes "[Fayruz]";
mes "Ah, I see. Well, while";
mes "you're here, why don't you";
mes "read something? There are";
mes "many books that cover some";
mes "interesting topics, like";
mes "modern adventure history.";
next;
mes "[Fayruz]";
mes "Oh, in any case, please";
mes "don't forget the favor I asked";
mes "of you. If you find anything";
mes "in Juperos that's historically";
mes "significant, I'd appreciate it";
mes "if you bring it right away.";
close;
}
case 10:
mes "[Fayruz]";
mes "Oh hello, "+strcharinfo(0)+"...";
mes "So what exactly brings you";
mes "to the Juno Library this time?";
next;
switch( select("I found another Transparent Plate.","Just visiting, really.") )
{
case 1:
if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
{
mes "[Fayruz]";
mes "Hmm, well, we've made as";
mes "much headway as we can";
mes "with the Transparent Plates";
mes "you've already given me, but";
mes "it can't hurt to have too much";
mes "evidence to back my theories.";
next;
mes "[Fayruz]";
mes "I really appreciate";
mes "your continuing efforts";
mes "to help me. Please, would";
mes "you take this as my way";
mes "saying ''Thanks?'' You've been";
mes "great, "+strcharinfo(0)+"...";
if(countitem(7352)) delitem 7352,1;
else if(countitem(7353)) delitem 7353,1;
else if(countitem(7354)) delitem 7354,1;
else delitem 7355,1;
getitem 644,1;
close;
}
mes "[Fayruz]";
mes "Mmm...?";
mes "It doesn't look like";
mes "you brought another";
mes "Transparent Plate.";
mes "Are you sure that you";
mes "didn't misplace it?";
close;
case 2:
mes "[Fayruz]";
mes "Ah, I see. Well,";
mes "thanks to your help,";
mes "I've made a great deal";
mes "of progress on my thesis.";
mes "I really appreciate what you";
mes "have done for me, adventurer.";
close;
}
}
}
function script Func_JupHist {
switch(yuno_hist)
{
case 4:
mes "[Fayruz]";
mes "Thank you so much,";
mes "you don't know what";
mes "this means to me! Okay,";
mes "please relax and take a";
mes "seat. Close your eyes while";
mes "I tell you this ancient story.";
next;
mes "^3355FFFayruz begins to";
mes "relate an ancient tale";
mes "about Juperos that seems";
mes "typical for a classic story, but her way of storytelling subtly";
mes "draws you into a vicarious, yet extremely vivid experience.";
next;
mes "^3355FFYou feel the protagonist's";
mes "glories and tragedies as if";
mes "you were actually there with";
mes "the hero on his journeys. The";
mes "tale eventually comes to an end";
mes "and you awaken from the trance,";
mes "gently brought back to reality.^000000";
delitem getarg(0),1;
set yuno_hist,5;
set jupe_hist,getarg(1);
getexp 100000,0;
next;
mes "[Fayruz]";
mes "Everyone can relate";
mes "to these old, classic";
mes "stories. I hope this tale had";
mes "as meaning for you as it did";
mes "for me when I first heard it.";
next;
mes "[Fayruz]";
mes "If you can find me";
mes "another artifact from";
mes "Juperos, I'll share another";
mes "tale like that with you. Now";
mes "how does that sound? Okay";
mes "then, I'll see you, adventurer~";
close;
case 5:
if((countitem(getarg(0))) || (countitem(getarg(1))) || (countitem(getarg(2))))
{
mes "[Fayruz]";
mes "Oh, that's unexpected.";
mes "This Transparent Plate";
mes "seems to have been made";
mes "in a different era than the";
mes "one you gave me earlier.";
mes "How intriguing...";
next;
mes "[Fayruz]";
mes "*Sigh* I really wish";
mes "that I could explore";
mes "Juperos on my own, but";
mes "I'm just not strong enough.";
mes "In a way, I'm quite jealous of you. But it can't be helped...";
next;
mes "[Fayruz]";
mes "You know, that reminds";
mes "me of this great story of";
mes "a tragic hero that I'd like to";
mes "share with you. Let your";
mes "mind wander as I relate this ageless, yet bittersweet tale...";
next;
mes "^3355FFFayruz tells you a story";
mes "with a bright beginning, full";
mes "of hope that fills you with the";
mes "bliss of the heavens, but then";
mes "suddenly plummets you into all the despair and torment of hell.^000000";
next;
mes "^3355FFThe story finally";
mes "reaches its ending";
mes "and you're surprised";
mes "to find yourself sitting";
mes "in the Juno Library.^000000";
next;
mes "[Fayruz]";
mes "I know it's a very";
mes "depressing story, but";
mes "I hope you enjoyed it.";
mes "I think you'd agree that";
mes "it contains a truth about";
mes "mankind that can't be ignored.";
if(countitem(getarg(0)))
{
delitem getarg(0),1;
if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
else set jupe_hist,jupe_hist +2;
}
else if(countitem(getarg(1)))
{
delitem getarg(1),1;
if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
else set jupe_hist,jupe_hist +4;
}
else
{
delitem getarg(2),1;
if(getarg(2) == 7354) set jupe_hist,jupe_hist +4;
else set jupe_hist,jupe_hist +8;
}
set yuno_hist,6;
getexp 100000,0;
next;
mes "[Fayruz]";
mes "By now I'm sure you've";
mes "figured that these classic";
mes "tales are like condensed";
mes "experiences, refined and";
mes "immutable truths that we";
mes "can see in our own reality.";
next;
mes "[Fayruz]";
mes "If you find more of";
mes "these Transparent";
mes "Plates in Juperos, I'd be";
mes "very happy to share another";
mes "story with you, "+strcharinfo(0)+".";
close;
}
else if(countitem(getarg(3)))
{
mes "[Fayruz]";
mes "Oh, this one seems";
mes "to have been created";
mes "in a similar era as the";
mes "one you gave me earlier.";
mes "I'm not sure how much new";
mes "information this may provide...";
next;
mes "[Fayruz]";
mes "Still, I'm sure this will";
mes "helpful in my research. I just";
mes "won't be as making progress";
mes "as quickly as I had projected.";
mes "Please, I'd like you to take this as a token of my gratitude.";
delitem getarg(3),1;
getitem 644,1;
next;
mes "[Fayruz]";
mes "Now if you'll excuse";
mes "me, I need to go back";
mes "to compiling my research...";
mes "Thank you so much for";
mes "your help, "+strcharinfo(0)+".";
close;
}
else
{
mes "[Fayruz]";
mes "Oh. There isn't anything";
mes "here that would help in my";
mes "research, but thank you anyway.";
mes "If you find anything else while";
mes "you're in Juperos, please come back and show it to me, alright?";
close;
}
case 7:
if((countitem(getarg(0))) || (countitem(getarg(1))))
{
mes "[Fayruz]";
mes "Is this another";
mes "Transparent Plate?";
mes "Yes, it's quite different";
mes "than the last one you";
mes "brought over to me...";
mes "This is so exciting!";
next;
mes "[Fayruz]";
mes "Oh. You must be thinking";
mes "that I'm a complete academia";
mes "addict. Well, my life might be";
mes "a little uneventful, but there";
mes "are other things I think about!";
mes "Like, well... It's weird but...";
next;
mes "[Fayruz]";
mes "You see, there's this";
mes "guy that I like. I'm not sure";
mes "where he might be now, but";
mes "his name is Nadim Amal. He's";
mes "my friend's brother who I first";
mes "met 10 years ago. ^333333*Sigh...*^000000";
next;
mes "[Fayruz]";
mes "Just recently, I saw";
mes "him with his sister, my";
mes "friend from Morroc. It's";
mes "weird to think that I'd have";
mes "these feelings for him after";
mes "all this time, isn't it? Oh...!";
next;
mes "[Fayruz]";
mes "I really should repay";
mes "you for this Transparent";
mes "Plate. Why don't I tell you";
mes "the scariest story that I know?";
next;
mes "^3355FFFayruz tells you a";
mes "creepy horror story that";
mes "makes you shiver with fear.";
mes "You've heard other ghost";
mes "stories, but you've never been";
mes "so deeply immersed in one before.^000000";
next;
mes "It is only when the";
mes "story ends and you return";
mes "to your senses that you notice that you're soaked in cold sweat.^000000";
next;
mes "[Fayruz]";
mes "It may be a natural";
mes "response, but all people";
mes "fear the unknown in one way";
mes "or another. Scary stories are";
mes "appealing because we actually";
mes "like the strange and grotesque.";
if(countitem(getarg(0)))
{
delitem getarg(0),1;
if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
else if(getarg(0) == 7353) set jupe_hist,jupe_hist +2;
else set jupe_hist,jupe_hist +4;
}
else if(countitem(getarg(1)))
{
delitem getarg(1),1;
if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
else if(getarg(1) == 7354) set jupe_hist,jupe_hist +4;
else set jupe_hist,jupe_hist +8;
}
set yuno_hist,8;
getexp 100000,0;
next;
mes "[Fayruz]";
mes "Well... That's just my";
mes "opinion. Anyway, if you";
mes "find anything else in Juperos";
mes "that may help in my research,";
mes "please come back and show it";
mes "to me, alright? See you later~";
close;
}
else if((countitem(getarg(2))) || (countitem(getarg(3))))
{
mes "[Fayruz]";
mes "Oh, this one seems";
mes "to have been created";
mes "in a similar era as the";
mes "one you gave me earlier.";
mes "I'm not sure how much new";
mes "information this may provide...";
next;
mes "[Fayruz]";
mes "Still, I'm sure this will";
mes "helpful in my research. I just";
mes "won't be as making progress";
mes "as quickly as I had projected.";
mes "Please, I'd like you to take this as a token of my gratitude.";
next;
mes "[Fayruz]";
mes "Now if you'll excuse";
mes "me, I need to go back";
mes "to compiling my research...";
mes "Thank you so much for";
mes "your help, "+strcharinfo(0)+".";
if(countitem(getarg(2))) delitem getarg(2),1;
else if(countitem(getarg(3))) delitem getarg(3),1;
getitem 644,1;
close;
}
else
{
mes "[Fayruz]";
mes "Oh. There isn't anything";
mes "here that would help in my";
mes "research, but thank you anyway.";
mes "If you find anything else while";
mes "you're in Juperos, please come back and show it to me, alright?";
close;
}
case 9:
if(countitem(getarg(0)))
{
mes "[Fayruz]";
mes "Oooh...! This one is";
mes "much different than the";
mes "other ones you gave me";
mes "before. This should provide";
mes "a wealth of brand new insights";
mes "into the Juperos civilization!";
next;
mes "[Fayruz]";
mes "All the Transparent";
mes "Plates you've given me";
mes "should contain more than";
mes "enough data for me to fully";
mes "complete my research thesis.";
mes "Once again, thank you so much~";
next;
mes "[Fayruz]";
mes "Still, that doesn't mean that";
mes "I will stop collecting data for";
mes "my research. Anyway, I have one last story to tell you, about";
mes "a man of pure heart chosen by the gods to serve and protect mankind.";
next;
mes "[Fayruz]";
mes "For this purpose he was given";
mes "gaudy armor which contained";
mes "amazing powers, as well as a";
mes "book detailing the instructions";
mes "for its use. However, he promptly";
mes "lost these instructions...";
next;
mes "^3355FFThe story about the";
mes "greatest Juperosian hero";
mes "that Fayruz tells you is very";
mes "humorous at first, but then it";
mes "covers the entire spectrum";
mes "of emotion and humanity...";
next;
mes "^3355FFThe story ends and you";
mes "are left with a swelling";
mes "feeling of indefatigable";
mes "hope and inspiration...";
mes "You can make it if you try!^000000";
if(getarg(0) == 7352) set jupe_hist,jupe_hist+1;
else if(getarg(0) == 7353) set jupe_hist,jupe_hist+2;
else if(getarg(0) == 7354) set jupe_hist,jupe_hist+4;
else set jupe_hist,jupe_hist+8;
set yuno_hist,10;
delitem getarg(0),1;
getexp 100000,0;
next;
mes "[Fayruz]";
mes "Well, that is the";
mes "last and the best story";
mes "that I have to share";
mes "with you. Perhaps next";
mes "time, I'll fill you in on my";
mes "research progress~";
close;
}
else if((countitem(getarg(1))) || (countitem(getarg(2))) || (countitem(getarg(3))))
{
mes "[Fayruz]";
mes "Hmm...";
mes "This one seems to be created in a similar time";
mes "as the previous one.";
next;
mes "[Fayruz]";
mes "Don't you worry.";
mes "This will help my research of course,";
mes "although I do not think this will";
mes "help me in advancing my research";
mes "with a great speed unlike this other one.";
next;
mes "[Fayruz]";
mes "Please take this as a token of my gratitude.";
next;
mes "[Fayruz]";
mes "Now, excuse me. I need to go back to my research.";
if(countitem(getarg(1))) delitem getarg(1),1;
else if(countitem(getarg(2))) delitem getarg(2),1;
else delitem getarg(3),1;
getitem 644,1;
close;
}
else
{
mes "[Fayruz]";
mes "Oh. There isn't anything";
mes "here that would help in my";
mes "research, but thank you anyway.";
mes "If you find anything else while";
mes "you're in Juperos, please come back and show it to me, alright?";
close;
}
}
}
yuno_in04,186,125,4 script Bundle of Files 111,{
mes "^8B6914*Thesis: The Fall of Juperos*";
mes "By Fayruz Khrhiyha";
mes "Sage Castle Researcher^000000";
next;
switch( select("Table of Contents.","Leave it alone.") )
{
case 1:
if(yuno_hist > 4)
{
mes "^8B6914 1. Preface";
mes " 2. Juperos Background";
mes " 3. Theory Behind Its Fall^000000";
next;
switch( select("Preface","Juperos Background","Theory Behind Its Fall","Leave it alone.") )
{
case 1:
mes "^8B6914Scholars are certain";
mes "that the Juperos civilization";
mes "used to be located above the";
mes "ground, but it is now buried";
mes "beneath the El Mes Plateau.";
mes "The reasons for the city's";
if(yuno_hist < 9)
{
mes "ruin are still nebulous...^000000";
next;
mes "^8B6914There is much speculation";
mes "about the reasons for Jupero's";
mes "downfall, but any documentation";
mes "from that time period has been";
mes "difficult to find. As for now, any evidence we have regarding";
mes "Juperos is inconclusive.^000000";
next;
mes "^8B6914In spite of this lack";
mes "of empirical or concrete";
mes "data on the civilization of";
mes "Juperos, our modern world";
mes "may be able to learn much";
mes "from that ancient city's ruins.";
mes "..................^000000";
if(yuno_hist < 7)
{
next;
mes "["+strcharinfo(0)+"]";
mes "Hmmm...";
mes "A whole chapter";
mes "dedicated to saying,";
mes "''We know absolutely";
mes "nothing about something.''";
mes "I should write a book~";
}
close;
}
mes "ruin are still in debate...^000000";
next;
mes "^8B6914However, new findings";
mes "regarding the history";
mes "of Juperos have allowed";
mes "us to make a few conclusions.^000000";
close;
case 2:
if(yuno_hist < 9)
{
mes "^8B6914...";
mes "......";
mes "..........^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "This is all just idle";
mes "conjecture! This paper";
mes "isn't developed enough";
mes "yet to be a real thesis...";
close;
}
else if(yuno_hist == 9)
{
mes "^8B6914Juperos was built over";
mes "a thousand years ago in";
mes "an era of peace just after";
mes "a major war. Contrary to";
mes "popular belief, there isn't any";
mes "evidence proving that Juno may";
mes "have descended from Juperos.^000000";
next;
mes "^8B6914In fact, there is a";
mes "strong possibility that";
mes "another war, between Juno";
mes "and Juperos, resulted in Juno's";
mes "independence from Juperos and";
mes "the destruction of any existing";
mes "documentation from that era.^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "Yes... Of course!";
mes "It all makes sense now!";
close;
}
mes "^8B6914Juperos was built over";
mes "a thousand years ago in";
mes "an era of peace just after";
mes "a major war. There is now";
mes "direct evidence linking Juno";
mes "to Juperos proving that Juno";
mes "was but a part of Juperos.^000000";
next;
mes "^8B6914Just like Juno, Juperos";
mes "was a society that prided";
mes "itself on its advancement";
mes "in the sciences which played";
mes "a permeating role in civilized";
mes "life. Science was reponsible for Juperos's rise and downfall.";
close;
case 3:
if(yuno_hist < 10)
{
mes "^8B6914...";
mes "......";
mes "..........^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "Huh. This writer keeps";
mes "talking about theories,";
mes "but the more I read, the";
mes "less clear I am on what";
mes "the theory actually is.";
mes "I don't think there is one...";
emotion 4,1;
close;
}
mes "^8B6914What is most unsettling";
mes "is recent evidence, including";
mes "a first hand written account,";
mes "regarding the role of one of";
mes "Jupero's foremost scientists";
mes "in that city's rise and fall.";
next;
mes "^8B6914If these writings are";
mes "authentic, then what actually";
mes "happened was that a scientific";
mes "revolution occurred as a direct";
mes "result of one scientist's effort to manipulate the energies of the";
mes "artifact known as Ymir's heart.";
next;
mes "^8B6914This one man and Ymir's";
mes "Heart are credited with";
mes "the success and prosperity";
mes "of the Jupero's civilization.";
mes "However, there are various accounts prior to Jupero's fall";
mes "detailing his work with chimera...^000000";
next;
mes "^8B6914This scientist, supposedly";
mes "in his passion to benefit his";
mes "people by finding a scientific";
mes "method for immortality by using";
mes "chimera for testing, was driven";
mes "insane. He experimented on";
mes "himself with disatrous results.^000000";
next;
mes "^8B6914There was an error in the";
mes "energy calibration of Ymir's";
mes "Heart and the scientist was";
mes "transformed into the monster";
mes "we now know as Chimera. He";
mes "and his test subjects were set";
mes "loose into the city of Juperos.^000000";
next;
mes "^8B6914These immortal Chimeras";
mes "razed the entire city, killing";
mes "countless people. Apparently,";
mes "a team of scientists were able";
mes "to salvage a fragment of Ymir's";
mes "Heart, and use it to lauch part";
mes "of Juperos into the sky.^000000";
next;
mes "^8B6914That section of Juperos";
mes "eventually developed into";
mes "the city of Juno. Since the";
mes "scientists who launched Juno into the sky all immediately died";
mes "afterwards from an unknown cause, they left no documentation.^000000";
next;
mes "^8B6914The Chimera, and the";
mes "laboratory in which it";
mes "was created, is rumored to";
mes "remain beneath the ruins of";
mes "the once great city of Juperos.^000000";
close;
case 4:
mes "["+strcharinfo(0)+"]";
mes "Ugh... My head hurts";
mes "too much from reading";
mes "a book for smarty people.";
mes "I know! I'll play videogames!";
close;
}
}
switch( select( "Preface","Close the file.") )
{
case 1:
mes "^8B6914Scholars are certain";
mes "that the Juperos civilization";
mes "used to be located above the";
mes "ground, but it is now buried";
mes "beneath the El Mes Plateau.";
mes "The reasons for the city's";
mes "ruin are still nebulous...^000000";
next;
mes "^8B6914There is much speculation";
mes "about the reasons for Jupero's";
mes "downfall, but any documentation";
mes "from that time period has been";
mes "difficult to find. As for now, any evidence we have regarding";
mes "Juperos is inconclusive.^000000";
next;
mes "^8B6914In spite of this lack";
mes "of empirical or concrete";
mes "data on the civilization of";
mes "Juperos, our modern world";
mes "may be able to learn much";
mes "from that ancient city's ruins.";
mes "..................^000000";
if(!yuno_hist) set yuno_hist,1;
next;
mes "["+strcharinfo(0)+"]";
mes "This...";
mes "This is supposed to";
mes "be a research thesis?";
mes "There's barely any";
mes "research in it...";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "Hmm...";
mes "This isn't heavy";
mes "enough to be a real";
mes "academic work. It must";
mes "not even be finished yet.";
close;
}
case 2:
if(yuno_hist < 5)
{
mes "["+strcharinfo(0)+"]";
mes "Nah...";
mes "I'm tired of reading.";
mes "Ironically enough.";
close;
}
else if(yuno_hist < 7)
{
mes "["+strcharinfo(0)+"]";
mes "I don't feel like";
mes "reading this. Not";
mes "enough pictures...";
close;
}
else if(yuno_hist < 9)
{
mes "["+strcharinfo(0)+"]";
mes "It looks very sophisticated...";
close;
}
else if(yuno_hist < 10)
{
mes "["+strcharinfo(0)+"]";
mes "I know this book...";
mes "But I don't feel like";
mes "reading it right now.";
close;
}
else
{
mes "["+strcharinfo(0)+"]";
mes "This thesis is";
mes "looking pretty good~";
mes "Of course, I did have";
mes "a hand in making it...";
close;
}
}
}
yuno_in04,188,118,4 script Book#juperos 111,{
if(yuno_hist > 7)
{
mes "^8B6914*Self-Honesty*";
mes "*'Benefits Fo' Life!'*";
mes "By Stephen Oyoung";
mes " ";
mes " ";
mes "Publisher:";
mes "Wushu Publishing, Co.^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "W-whoa!";
mes "This book wasn't";
mes "here before! It looks";
mes "pretty interesting...";
close;
}
mes "["+strcharinfo(0)+"]";
mes "You know what?";
mes "I think I'll just flip";
mes "through some pages";
mes "from a random book.";
mes "Hmmm, let's see...";
next;
mes "^8B6914''Admiral, the Kylorians are";
mes "still advancing!'' Commander";
mes "McKenrick announced without";
mes "his usual swagger. ''They're...";
mes "They're not stopping!'' But";
mes "Admiral Leh's eyes were a cold,";
mes "unfeeling shade of sternness.^000000";
next;
mes "^8B6914''Let the goddamned space";
mes "aliens come,'' hissed Leh.";
mes "''We don't stand a chance";
mes "without the Zenoi Sword";
mes "to summon the power of";
mes "GOD-POING. It's... It's";
mes "all over. Damn it all...''^000000";
next;
mes "^8B6914The doors burst open as";
mes "Bucky flew into the room.";
mes "''The Zenoi Sword! The";
mes "Zenoi Sword! Someone's";
mes "found it!'' the boy yelled.";
mes "''Really?! We better hurry:";
mes "Earth doesn't have much time!''^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "...";
mes "......";
mes "Whoa. I really";
mes "should have read";
mes "this masterpiece";
mes "from the beginning...";
close;
}
// Bronze Statue - juperos_01 99 112
juperos_01,99,112,4 script Bronze Statue#1 844,{
if(yuno_hist > 3)
{
mes "^3355FF''Do you wish to see";
mes "the end of the madness?";
mes "He is waiting where the three";
mes "columns were destroyed, where";
mes "two hundred illusions wander.''^000000";
close;
}
else if(yuno_hist == 3)
{
mes "["+strcharinfo(0)+"]";
mes "I better go and";
mes "see Fayruz in the";
mes "Juno Library and tell";
mes "her about the inscription.";
close;
}
else
{
mes "^3355FFThere's a peculiar";
mes "engraving on the";
mes "Bronze Statue's rod.^000000";
next;
switch( select( "Investigate","Ignore it" ) )
{
case 1 :
mes "^3355FFIt's an inscription that's";
mes "written in an old language";
mes "that you can't understand,";
mes "but have no problem reading";
mes "and making out the sounds";
mes "for some weird reason.^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "This is creepy!";
mes "I know that I'm not";
mes "supposed to be able";
mes "to read this, but here";
mes "I am. I know what sounds";
mes "all of these letters make...";
next;
if(yuno_hist == 2)
{
mes "["+strcharinfo(0)+"]";
mes "Then again, Fayruz did";
mes "say this was enchanted.";
mes "Okay, I guess I'll go back";
mes "to the Juno Library and";
mes "tell her what I found.";
set yuno_hist,3;
close;
}
mes "["+strcharinfo(0)+"]";
mes "Huh. Only a scholar,";
mes "maybe someone even in";
mes "Juno, could make sense";
mes "of what this stuff says.";
close;
case 2 :
close;
}
}
}
yuno_in04,169,109,1 script Ambitious Hollgrehenn 111,{
mes "*Hollgrehenn: The Ambition*";
mes "By Aragham Caul*";
mes "";
mes "";
mes "";
mes "";
mes "Publisher:";
mes "Muha Books, Co.";
next;
mes "...";
mes "He would stop at nothing";
mes "to have the greatest weapon";
mes "in the world in his possession.";
mes "He became a smith so that he";
mes "could discern which weapons";
mes "were the most powerful...";
next;
mes "[" + strcharinfo(0) + "]";
mes "That's strange...";
mes "The next page";
mes "has been torn out.";
close;
}
yuno_in04,174,111,1 script Penniless Hollgrehenn 111,{
mes "^8B6914*Penniless Hollgrehenn*";
mes " * Pennyless Hollgrehenn * ";
mes "By Hollgrehenn";
mes " ";
mes " ";
mes "Publisher:";
mes "Muha Books, Co.^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "This book looks";
mes "like a total piece of";
mes "crap. I'd have more";
mes "fun getting my teeth";
mes "drilled by a blindfolded";
mes "dentist. Or would I...?";
close;
}
yuno_in04,102,106,1 script Popular Feasts 111,{
mes "^8B6914*Popular Feasts*";
mes "By Cabbage Pickle Community";
mes " ";
mes " ";
mes " ";
mes "Publisher:";
mes "Muha Books, Co.^000000";
next;
switch( select( " 1. Fried Yoyo Tails"," 14. Poring Salad"," 252. Beak Soup" ) )
{
case 1:
mes "^8B6914...";
mes "If possible, try";
mes "to use tails cut";
mes "from live Yoyos.";
mes "Now, as for skinning...^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "Um...";
mes "Barf?";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "Hey, this page is gone!";
mes "I guess Poring Salad is";
mes "the most popular feast";
mes "in this entire book.";
close;
case 3:
mes "^8B6914...";
mes "Fry the cut beaks";
mes "using herbal oil until";
mes "crisp. Then, pour the";
mes "feathers into a blender...^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "Hmm...";
mes "Sounds a little";
mes "too gourmet for my";
mes "taste. And by ''gourmet,''";
mes "I mean, ''totally gross.''";
close;
}
}
yuno_in04,111,108,1 script Hamerun, Rat Hunter 111,{
mes "["+strcharinfo(0)+"]";
mes "I can't...";
mes "reach it...!";
close;
}
yuno_in04,167,127,1 script Red Book 111,{
mes "^3355FFYou find a book";
mes "with red binding.^000000";
next;
switch( select( "Read.","Leave it alone." ) )
{
case 1:
mes "^8B6914...^000000";
next;
mes "^8B6914...";
mes "......^000000";
next;
mes "^8B6914...";
mes "......";
mes ".........^000000";
next;
mes "^8B6914...";
mes "......";
mes ".........";
mes "............^000000";
next;
mes "["+strcharinfo(0)+"]";
mes "This is...";
mes "A compilation of";
mes "Shakespeare in ";
mes "coloring book format?";
next;
mes "["+strcharinfo(0)+"]";
mes "Wait...";
mes "Why would fans of";
mes "Shakespeare even";
mes "want a coloring book?";
next;
mes "["+strcharinfo(0)+"]";
mes "Hmm... Well...";
mes "I suppose little kids who";
mes "read Shakespeare would";
mes "appreciate something like that.";
next;
mes "["+strcharinfo(0)+"]";
mes "Hold on...";
mes "Do little kids who";
mes "are able to read the";
mes "works of Shakespeare";
mes "even exist? I hope not...";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "What a strange";
mes "and mysterious book.";
mes "I'll never know what's";
mes "inside unless I read it!";
mes "Come on! Doesn't the red";
mes "binding mean something?";
close;
}
}
yuno_in04,121,109,1 script Scroll 111,{
mes "^3355FFYou've found an";
mes "antiquated scroll";
mes "that's collected a";
mes "layer of fine dust.^000000";
next;
switch( select( "Peruse","Leave it alone" ) )
{
case 1:
mes "^8B6914Item Upgrade Introduction";
mes " ";
mes " ";
mes " ";
mes "1. Item Upgrade Definition";
mes " ";
mes "The key to success when";
mes "upgrading items comes from";
mes "only one place: Your ''Mind.''";
mes " ";
mes " ";
mes " ";
mes "2. Power of a Positive Attitude";
mes "Before trying to upgrade";
mes "an item, plan out how high";
mes "you want to upgrade and how";
mes "much you'll spend beforehand.";
mes "But like all ladies, Lady Luck";
mes "smiles when you fully splurge.^000000";
mes " ";
mes " ";
next;
mes "["+strcharinfo(0)+"]";
mes "Wait, wait...";
mes "This thing IS old.";
mes "I mean, it's obviously";
mes "written from a patriarchal";
mes "standpoint that promotes";
mes "bipartisan gender roles.";
next;
mes "["+strcharinfo(0)+"]";
mes "I'm...";
mes "I'm so offended.";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "This scroll is far too";
mes "primitive. There's been";
mes "all sorts of technological";
mes "reading advances that I can't";
mes "live without... Like pages.";
close;
}
}
yuno_in04,118,116,4 script Paper 111,{
mes "^3355FFIt's a piece of";
mes "paper that looks";
mes "like a personal letter.^000000";
next;
switch( select("Read it.","Leave it alone.") )
{
case 1:
if(yuno_hist > 7)
{
mes "^8B6914P.S.";
mes "Please...";
mes "Come back to me.";
mes " ";
mes " ";
mes "Love,";
mes "Fayruz^000000";
close;
}
mes "^8B6914...";
mes "I can't forget your smile.";
mes "No matter what, even if you";
mes "hate me, I'll always have these";
mes "feelings just for you. You are";
mes "the one who is most special,";
mes "who means the most to my heart.^000000";
next;
mes "^8B6914I know we've had our";
mes "differences, but please";
mes "don't refuse my love. By";
mes "your hands, I hope that";
mes "you can forgive me for us.";
mes "- Love, Fayruz^000000";
next;
if(getpartnerid())
{
mes "["+strcharinfo(0)+"]";
mes "Ahhhhhh~";
mes "Love sure is nice!";
close;
}
mes "["+strcharinfo(0)+"]";
mes "What th--?!";
mes "Booooooooo!";
mes "Love stinks!";
close;
case 2:
mes "["+strcharinfo(0)+"]";
mes "I guess I better";
mes "not look at this.";
mes "I mean, I might";
mes "regret reading it.";
close;
}
}
juperos_01,123,92,4 script Stone Statue 844,{
if(yuno_hist)
{
mes "^3355FFIt's a stone statue";
mes "that looks exactly like";
mes "the one in the Juno Library.";
mes "However, it has sculptures";
mes "of books instead of real ones.^000000";
next;
mes "^3355FFIt's possible that the";
mes "statue in the Juno Library";
mes "was made after this one.";
mes "But who can be sure?^000000";
close;
}
mes "^3355FFIt's an old";
mes "statue sculpted";
mes "out of stone.^000000";
close;
}
juperos_01,99,71,4 script Bronze Statue#2 844,{
mes "^3355FFIt's an elaborate";
mes "bronze statue that";
mes "is twice the height of";
mes "a normal human being.^000000";
close;
}
juperos_01,79,92,4 script Sculpture 844,{
mes "^3355FFIt's a sculpture that";
mes "looks familiar to you.^000000";
close;
}
juperos_01,215,127,4 script Machine Statue 844,{
mes "^3355FFThis is the bust of a";
mes "humanoid machine with";
mes "a familiar Crest Piece";
mes "carved into the middle.^000000";
next;
mes "^3355FFThe statue's entire";
mes "form is mind boggling,";
mes "but you manage to note";
mes "that its outstretched";
mes "arm points westward.^000000";
close;
}
//============================================================
// Jupers Core access Story Event
//============================================================
//============================================================
// 1rd Floor -> 2nd Floor
//============================================================
juperos_01,100,91,0 script jupe_goto#1 -1,2,2,{
end;
OnTouch:
initnpctimer "jupe_goto#1",1;
mes "^777777["+ strcharinfo(0) +"]^000000";
mes "This light...";
mes "It feels like...";
mes "Its warmth is...";
mes "Wrapping all over me...";
next;
switch(select("Ah, it's so nice...:No! This is wrong!")) {
case 1:
mes "^777777["+ strcharinfo(0) +"]^000000";
mes "Ahhhh...";
mes "It feels like";
mes "I'm floating...";
specialeffect2 EF_LIGHTSPHERE;
close2;
stopnpctimer;
warp "juperos_02",128,278;
case 2:
mes "^777777["+ strcharinfo(0) +"]^000000";
mes "N-No! This is";
mes "wrong! Something";
mes "weird's happening!";
mes "I gotta get away!";
close2;
stopnpctimer;
warp "juperos_01",96,91;
}
end;
OnTimer10000:
stopnpctimer;
warp "juperos_02",128,278;
donpcevent "jupe_goto#2::OnEnable";
end;
}
juperos_01,100,91,0 script jupe_goto#2 -1,2,2,{
OnInit:
disablenpc "jupe_goto#2";
end;
OnEnable:
enablenpc "jupe_goto#2";
disablenpc "jupe_goto#1";
initnpctimer;
end;
OnTouch:
warp "juperos_02",128,278;
end;
OnTimer2000:
enablenpc "jupe_goto#1";
disablenpc "jupe_goto#2";
end;
}
//============================================================
// 2nd Floor
//============================================================
juperos_02,97,70,0 script 3F Gate Switch#jupe -1,{
OnInit:
initnpctimer;
end;
Onreset:
killmonster "juperos_02","3F Gate Switch#jupe::OnMyMobDead";
end;
OnEnable:
enablenpc "3F Gate Switch#jupe";
initnpctimer;
end;
OnTimer5000:
set .MyMobs,3;
monster "juperos_02",24,275,"1st Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
monster "juperos_02",240,29,"2nd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
monster "juperos_02",282,183,"3rd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
stopnpctimer;
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs == 2)
mapannounce "juperos_02","Who are you to come here?",bc_map,"0xFF0000";
else if (.MyMobs == 1)
mapannounce "juperos_02","Have you come seeking Juperos?! It no longer exists...",bc_map,"0xFF0000";
else if (.MyMobs == 0) {
mapannounce "juperos_02","Have you come to see me? Fine! Find me first!",bc_map,"0xFF0000";
specialeffect2 563; // 563
soundeffectall "earth_quake.wav",0;
disablenpc "3F Gate Switch#jupe";
donpcevent "Restricted Area#jupe::OnEnable";
}
end;
}
juperos_02,130,149,0 script Restricted Area#jupe 139,2,2,{
OnInit:
disablenpc "Restricted Area#jupe";
end;
OnEnable:
enablenpc "Restricted Area#jupe";
initnpctimer;
end;
OnTimer5000:
mapannounce "juperos_02","Vroom! Vroom!",bc_map,"0xE559A2";
end;
OnTimer7000:
mapannounce "juperos_02","Attention, visitors.",bc_map,"0xE559A2";
end;
OnTimer9000:
mapannounce "juperos_02","You are allowed to enter the next zone for a short period of time. Please use the portal in the center of the map.",bc_map,"0xE559A2";
end;
OnTimer9001:
OnTimer23000:
OnTimer46000:
OnTimer69000:
OnTimer92000:
OnTimer115000:
OnTimer161000:
OnTimer184000:
OnTimer207000:
OnTimer230000:
OnTimer253000:
OnTimer276000:
OnTimer299000:
OnTimer322000:
OnTimer345000:
OnTimer368000:
OnTimer391000:
OnTimer414000:
OnTimer460000:
OnTimer483000:
OnTimer506000:
OnTimer529000:
OnTimer552000:
specialeffect 561; //"Restricted Area#jupe" 561
end;
OnTimer556000:
mapannounce "juperos_02","Attention, visitors. The gate to the next zone will close shortly.",bc_map,"0xE559A2";
end;
OnTimer561000:
mapannounce "juperos_02","1 minute remaining until Gate Closure. ",bc_map,"0xE559A2";
end;
OnTimer598000:
specialeffect 561; //"Restricted Area#jupe" 561
end;
OnTimer600000:
mapannounce "juperos_02","The gate is being closed...",bc_map,"0xE559A2";
end;
OnTimer603000:
mapannounce "juperos_02"," Switches will reactivate shortly.",bc_map,"0xE559A2";
end;
OnTimer621000:
disablenpc "Restricted Area#jupe";
end;
OnTimer1200000:
donpcevent "3F Gate Switch#jupe::OnEnable";
stopnpctimer;
end;
OnTouch:
warp "jupe_gate",50,167;
end;
}
//============================================================
// Security Checkpoint 1-1
//============================================================
jupe_area1,88,224,0 script #hole#1-1 844,{
cutin "1",2;
if ($@JupreArea1InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "1",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7356) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "1-1",2;
next;
if ($@JupreArea1InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "1-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#1-1::OnEnable";
enablenpc "Red Alarm#1-1";
disablenpc "#hole#1-1";
close2;
cutin "1-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "1",255;
end;
}
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "1",255;
end;
}
close;
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "1",255;
end;
}
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#1-1";
disablenpc "Red Alarm#1-1";
end;
}
jupe_area1,83,221,0 script Warp#1-1 139,2,2,{
OnInit:
disablenpc "Warp#1-1";
end;
OnEnable:
enablenpc "Warp#1-1";
specialeffect 561; //"Warp#1-1" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area1",47,259;
end;
OnTimer22500:
stopnpctimer;
disablenpc "Warp#1-1";
end;
}
jupe_area1,47,259,0 script Red Alarm#1-1 -1,2,2,{
OnInit:
disablenpc "Red Alarm#1-1";
end;
OnTouch:
donpcevent "Red Alarm On#1-1::OnEnable";
disablenpc "Red Alarm#1-1";
donpcevent "#hole#1-1::Onstop_timer";
set $@JupreArea1InUse,1;
disablenpc "#hole#1-1";
end;
}
- script Red Alarm On#1-1 -1,{
OnInit:
disablenpc "Red Alarm On#1-1";
end;
OnEnable:
enablenpc "Red Alarm On#1-1";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area1","Those of you who have come here...",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area1","I do not intend to stop you.",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
end;
OnTimer5000:
mapannounce "jupe_area1","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
donpcevent "Monster1#1-1::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area1","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#1-1";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
stopnpctimer;
end;
}
- script Monster1#1-1 -1,{
OnInit:
disablenpc "Monster1#1-1";
end;
OnDisable:
disablenpc "Monster1#1-1";
killmonster "jupe_area1","Monster1#1-1::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster1#1-1";
initnpctimer;
set .MyMobs,8;
monster "jupe_area1",30,263,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,262,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,261,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,260,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,259,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,258,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,257,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
monster "jupe_area1",30,256,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","Do you realize this is a hallucination?",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
enablenpc "#hole#1-1";
stopnpctimer;
donpcevent "Monster1#1-1::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#1-1::OnEnable";
disablenpc "Monster1#1-1";
stopnpctimer;
}
end;
}
- script Monster2#1-1 -1,{
OnInit:
disablenpc "Monster2#1-1";
end;
OnDisable:
disablenpc "Monster2#1-1";
killmonster "jupe_area1","Monster2#1-1::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster2#1-1";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area1","How about now?",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
end;
OnTimer4000:
mapannounce "jupe_area1","Let me see...",bc_map,"0xFF0000";
end;
OnTimer7000:
mapannounce "jupe_area1","Just how strong you are!",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
soundeffectall "jupe_warning.wav",0,"jupe_area1";
set .MyMobs,8;
monster "jupe_area1",30,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",31,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",32,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",33,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",34,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",35,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",36,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
monster "jupe_area1",37,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
enablenpc "#hole#1-1";
stopnpctimer;
donpcevent "Monster2#1-1::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area1","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
disablenpc "Monster2#1-1";
enablenpc "#hole#1-1";
set $@JupreArea1InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 1-2
//============================================================
jupe_area1,25,238,0 script #hole#1-2 844,{
cutin "2",2;
if ($@JupreArea1InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "2",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7357) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "2-1",2;
next;
if ($@JupreArea1InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "2-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#1-2::OnEnable";
enablenpc "Red Alarm#1-2";
disablenpc "#hole#1-2";
close2;
cutin "2-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "2",255;
end;
}
break;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "2",255;
end;
}
close;
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "2",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#1-2";
disablenpc "Red Alarm#1-2";
end;
}
jupe_area1,21,225,0 script Warp#1-2 139,2,2,{
OnInit:
disablenpc "Warp#1-2";
end;
OnEnable:
enablenpc "Warp#1-2";
specialeffect 561; //"Warp#1-2" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area1",21,191;
end;
OnTimer22500:
disablenpc "Warp#1-2";
end;
}
jupe_area1,21,191,0 script Red Alarm#1-2 -1,2,2,{
OnInit:
disablenpc "Red Alarm#1-2";
end;
OnTouch:
set $@JupreArea1InUse,1;
donpcevent "Red Alarm On#1-2::OnEnable";
disablenpc "Red Alarm#1-2";
disablenpc "#hole#1-2";
end;
}
- script Red Alarm On#1-2 -1,{
OnInit:
disablenpc "Red Alarm On#1-2";
end;
OnEnable:
enablenpc "Red Alarm On#1-2";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area1","Come on, come on!",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area1","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area1","Do you want to know who I am?",bc_map,"0xFF0000";
donpcevent "Monster1#1-2::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area1","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#1-2";
stopnpctimer;
end;
}
- script Monster1#1-2 -1,{
OnInit:
disablenpc "Monster1#1-2";
end;
OnDisable:
disablenpc "Monster1#1-2";
killmonster "jupe_area1","Monster1#1-2::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#1-2";
set .MyMobs,8;
monster "jupe_area1",30,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",31,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",32,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",33,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",34,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",35,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",36,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
monster "jupe_area1",37,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
enablenpc "#hole#1-2";
stopnpctimer;
donpcevent "Monster1#1-2::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#1-2::OnEnable";
disablenpc "Monster1#1-2";
stopnpctimer;
}
end;
}
- script Monster2#1-2 -1,{
OnInit:
disablenpc "Monster2#1-2";
end;
OnDisable:
disablenpc "Monster2#1-2";
killmonster "jupe_area1","Monster2#1-2::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster2#1-2";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area1","I was the head of this underground laboratory.",bc_map,"0xFF0000";
end;
OnTimer4000:
mapannounce "jupe_area1","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
end;
OnTimer6000:
mapannounce "jupe_area1","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
set .MyMobs,13;
monster "jupe_area1",30,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",31,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",32,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",33,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",34,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",35,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",36,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",37,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",30,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",31,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",32,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",33,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
monster "jupe_area1",34,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","...Not yet.",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
enablenpc "#hole#1-2";
stopnpctimer;
donpcevent "Monster2#1-2::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area1","Not yet!",bc_map,"0xFF0000";
disablenpc "Monster2#1-2";
enablenpc "#hole#1-2";
set $@JupreArea1InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 1-3
//============================================================
jupe_area1,36,146,0 script #hole#1-3 844,{
cutin "3",2;
if ($@JupreArea1InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "3",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7358) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "3-1",2;
next;
if ($@JupreArea1InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "3-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#1-3::OnEnable";
enablenpc "Red Alarm#1-3";
disablenpc "#hole#1-3";
close2;
cutin "3-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "3",255;
end;
}
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "3",255;
end;
}
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "3",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#1-3";
disablenpc "Red Alarm#1-3";
end;
}
jupe_area1,33,137,0 script Warp#1-3 139,2,2,{
OnInit:
disablenpc "Warp#1-3";
end;
OnEnable:
enablenpc "Warp#1-3";
specialeffect 561; //"Warp#1-3" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area1",33,105;
end;
OnTimer22500:
disablenpc "Warp#1-3";
end;
}
jupe_area1,33,105,0 script Red Alarm#1-3 -1,0,4,{
OnInit:
disablenpc "Red Alarm#1-3";
end;
OnTouch:
set $@JupreArea1InUse,1;
donpcevent "Red Alarm On#1-3::OnEnable";
disablenpc "Red Alarm#1-3";
disablenpc "#hole#1-3";
end;
}
- script Red Alarm On#1-3 -1,{
OnInit:
disablenpc "Red Alarm On#1-3";
end;
OnEnable:
enablenpc "Red Alarm On#1-3";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area1","These security systems...",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area1","They're not really for protection.",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area1","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
donpcevent "Monster1#1-3::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area1","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#1-3";
stopnpctimer;
end;
}
- script Monster1#1-3 -1,{
OnInit:
disablenpc "Monster1#1-3";
end;
OnDisable:
disablenpc "Monster1#1-3";
killmonster "jupe_area1","Monster1#1-3::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#1-3";
set .MyMobs,8;
monster "jupe_area1",30,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",31,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",32,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",33,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",34,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",35,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",36,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
monster "jupe_area1",37,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
donpcevent "Monster1#1-3::OnDisable";
enablenpc "#hole#1-3";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#1-3::OnEnable";
disablenpc "Monster1#1-3";
stopnpctimer;
}
end;
}
- script Monster2#1-3 -1,{
OnInit:
disablenpc "Monster2#1-3";
end;
OnDisable:
disablenpc "Monster2#1-3";
killmonster "jupe_area1","Monster2#1-3::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster2#1-3";
end;
OnTimer2000:
mapannounce "jupe_area1","Why have you come?",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area1","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
end;
OnTimer8000:
mapannounce "jupe_area1","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
set .MyMobs,15;
monster "jupe_area1",42,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",43,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",44,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",45,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",46,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",47,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",48,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",49,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",42,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",43,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",44,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",45,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",46,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",47,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
monster "jupe_area1",48,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
enablenpc "#hole#1-3";
stopnpctimer;
donpcevent "Monster2#1-3::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
disablenpc "Monster2#1-3";
enablenpc "#hole#1-3";
set $@JupreArea1InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 1-4
//============================================================
jupe_area1,50,49,0 script #hole#1-4 844,{
cutin "4",2;
if ($@JupreArea1InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "4",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7359) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "4-1",2;
next;
if ($@JupreArea1InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "4-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#1-4::OnEnable";
donpcevent "Red Alarm#1-4::OnEnable";
disablenpc "#hole#1-4";
close2;
cutin "4-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "4",255;
end;
}
break;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "4",255;
end;
}
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "4",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer5000:
stopnpctimer;
enablenpc "#hole#1-4";
disablenpc "Red Alarm#1-4";
end;
}
jupe_area1,57,53,0 script Warp#1-4 139,2,2,{
OnInit:
disablenpc "Warp#1-4";
end;
OnEnable:
enablenpc "Warp#1-4";
specialeffect 561; //"Warp#1-4" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area1",83,157;
end;
OnTimer5000:
disablenpc "Warp#1-4";
end;
}
jupe_area1,83,157,0 script Red Alarm#1-4 -1,2,2,{
OnInit:
disablenpc "Red Alarm#1-4";
end;
OnEnable:
enablenpc "Red Alarm#1-4";
end;
OnTouch:
set $@JupreArea1InUse,1;
donpcevent "Red Alarm On#1-4::OnEnable";
disablenpc "Red Alarm#1-4";
disablenpc "#hole#1-4";
end;
}
- script Red Alarm On#1-4 -1,{
OnInit:
disablenpc "Red Alarm On#1-4";
end;
OnEnable:
enablenpc "Red Alarm On#1-4";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area1","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area1","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area1","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
donpcevent "Monster1#1-4::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area1","Is somewhere down here, wandering...",bc_map,"0xFF0000";
end;
OnTimer8000:
stopnpctimer;
disablenpc "Red Alarm On#1-4";
end;
}
- script Monster1#1-4 -1,{
OnInit:
disablenpc "Monster1#1-4";
end;
OnDisable:
disablenpc "Monster1#1-4";
killmonster "jupe_area1","Monster1#1-4::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#1-4";
set .MyMobs,8;
monster "jupe_area1",92,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",96,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",100,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",104,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",92,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",96,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",100,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
set $@JupreArea1InUse,0;
end;
OnTimer300002:
stopnpctimer;
enablenpc "#hole#1-4";
donpcevent "Monster1#1-4::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#1-4::OnEnable";
disablenpc "Monster1#1-4";
stopnpctimer;
}
end;
}
- script Monster2#1-4 -1,{
OnInit:
disablenpc "Monster2#1-4";
end;
OnDisable:
killmonster "jupe_area1","Monster2#1-4::OnMyMobDead";
disablenpc "Monster2#1-4";
end;
OnEnable:
enablenpc "Monster2#1-4";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area1","I can never rest in peace...",bc_map,"0xFF0000";
end;
OnTimer4000:
mapannounce "jupe_area1","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
end;
OnTimer6000:
mapannounce "jupe_area1","I will be waiting for you!",bc_map,"0xFF0000";
set .MyMobs,10;
monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",108,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",111,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",112,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",115,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",104,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",108,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",111,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",112,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
monster "jupe_area1",115,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
end;
OnTimer300000:
set $@JupreArea1InUse,0;
mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
end;
OnTimer300002:
enablenpc "#hole#1-4";
donpcevent "Monster2#1-4::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
disablenpc "Monster2#1-4";
enablenpc "#hole#1-4";
set $@JupreArea1InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Move to Elevator
//============================================================
jupe_area1,112,162,0 script Lever#ufe 844,{
mes "^3355FFIt's a lever";
mes "whose function";
mes "is not known to you.^000000";
next;
switch(select("Pull.:Cancel.")) {
case 1:
if($@JupreArea1InUse == 1) close;
initnpctimer;
donpcevent "LeverWarp#ufe::OnEnable";
disablenpc "Lever#ufe";
close;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Pull this lever?";
mes "I don't even know";
mes "what will happen...";
close;
}
close;
OnTimer3000:
enablenpc "Lever#ufe";
stopnpctimer;
end;
}
jupe_area1,117,157,0 script LeverWarp#ufe 139,2,2,{
OnInit:
disablenpc "LeverWarp#ufe";
end;
OnEnable:
enablenpc "LeverWarp#ufe";
specialeffect 561; //"LeverWarp#ufe" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_gate",28,30;
end;
OnTimer3000:
stopnpctimer;
disablenpc "LeverWarp#ufe";
end;
}
//============================================================
// Security Checkpoint 2-1
//============================================================
jupe_area2,74,224,0 script #hole#2-1 844,{
cutin "1",2;
if ($@JupreArea2InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "1",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7356) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "1-1",2;
next;
if ($@JupreArea2InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "1-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#2-1::OnEnable";
enablenpc "Red Alarm#2-1";
disablenpc "#hole#2-1";
close2;
cutin "1-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "1",255;
end;
}
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "1",255;
end;
}
close;
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "1",255;
end;
}
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#2-1";
disablenpc "Red Alarm#2-1";
end;
}
jupe_area2,80,221,0 script Warp#2-1 139,2,2,{
OnInit:
disablenpc "Warp#2-1";
end;
OnEnable:
enablenpc "Warp#2-1";
specialeffect 561; //"Warp#2-1" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area2",116,259;
end;
OnTimer22500:
stopnpctimer;
disablenpc "Warp#2-1";
end;
}
jupe_area2,116,259,0 script Red Alarm#2-1 -1,2,2,{
OnInit:
disablenpc "Red Alarm#2-1";
end;
OnTouch:
donpcevent "Red Alarm On#2-1::OnEnable";
disablenpc "Red Alarm#2-1";
donpcevent "#hole#2-1::Onstop_timer";
set $@JupreArea2InUse,1;
disablenpc "#hole#2-1";
end;
}
- script Red Alarm On#2-1 -1,{
OnInit:
disablenpc "Red Alarm On#2-1";
end;
OnEnable:
enablenpc "Red Alarm On#2-1";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area2","Those of you who have come here...",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area2","I do not intend to stop you.",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
end;
OnTimer5000:
mapannounce "jupe_area2","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
donpcevent "Monster1#2-1::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area2","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#2-1";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
stopnpctimer;
end;
}
- script Monster1#2-1 -1,{
OnInit:
disablenpc "Monster1#2-1";
end;
OnDisable:
disablenpc "Monster1#2-1";
killmonster "jupe_area2","Monster1#2-1::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster1#2-1";
initnpctimer;
set .MyMobs,8;
monster "jupe_area2",126,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",127,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",128,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",129,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",130,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",131,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",132,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
monster "jupe_area2",133,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","Do you realize this is a hallucination?",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
enablenpc "#hole#2-1";
stopnpctimer;
donpcevent "Monster1#2-1::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#2-1::OnEnable";
disablenpc "Monster1#2-1";
stopnpctimer;
}
end;
}
- script Monster2#2-1 -1,{
OnInit:
disablenpc "Monster2#2-1";
end;
OnDisable:
disablenpc "Monster2#2-1";
killmonster "jupe_area2","Monster2#2-1::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster2#2-1";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area2","How about now?",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
end;
OnTimer4000:
mapannounce "jupe_area2","Let me see...",bc_map,"0xFF0000";
end;
OnTimer7000:
mapannounce "jupe_area2","Just how strong you are!",bc_map,"0xFF0000";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
soundeffectall "jupe_warning.wav",0,"jupe_area2";
set .MyMobs,8;
monster "jupe_area2",126,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",127,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",128,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",129,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",130,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",131,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",132,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
monster "jupe_area2",133,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
enablenpc "#hole#2-1";
stopnpctimer;
donpcevent "Monster2#2-1::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area2","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
disablenpc "Monster2#2-1";
enablenpc "#hole#2-1";
set $@JupreArea2InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 2-2
//============================================================
jupe_area2,138,238,0 script #hole#2-2 844,{
cutin "2",2;
if ($@JupreArea2InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "2",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7357) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "2-1",2;
next;
if ($@JupreArea2InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "2-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#2-2::OnEnable";
enablenpc "Red Alarm#2-2";
disablenpc "#hole#2-2";
close2;
cutin "2-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "2",255;
end;
}
break;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "2",255;
end;
}
close;
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "2",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#2-2";
disablenpc "Red Alarm#2-2";
end;
}
jupe_area2,142,225,0 script Warp#2-2 139,2,2,{
OnInit:
disablenpc "Warp#2-2";
end;
OnEnable:
enablenpc "Warp#2-2";
specialeffect 561; //"Warp#2-2" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area2",142,191;
end;
OnTimer22500:
disablenpc "Warp#2-2";
end;
}
jupe_area2,142,191,0 script Red Alarm#2-2 -1,2,2,{
OnInit:
disablenpc "Red Alarm#2-2";
end;
OnTouch:
set $@JupreArea2InUse,1;
donpcevent "Red Alarm On#2-2::OnEnable";
disablenpc "Red Alarm#2-2";
disablenpc "#hole#2-2";
end;
}
- script Red Alarm On#2-2 -1,{
OnInit:
disablenpc "Red Alarm On#2-2";
end;
OnEnable:
enablenpc "Red Alarm On#2-2";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area2","Come on, come on!",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area2","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area2","Do you want to know who I am?",bc_map,"0xFF0000";
donpcevent "Monster1#2-2::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area2","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#2-2";
stopnpctimer;
end;
}
- script Monster1#2-2 -1,{
OnInit:
disablenpc "Monster1#2-2";
end;
OnDisable:
disablenpc "Monster1#2-2";
killmonster "jupe_area2","Monster1#2-2::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#2-2";
set .MyMobs,8;
monster "jupe_area2",126,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",127,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",128,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",129,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",130,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",131,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",132,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
monster "jupe_area2",133,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
enablenpc "#hole#2-2";
stopnpctimer;
donpcevent "Monster1#2-2::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#2-2::OnEnable";
disablenpc "Monster1#2-2";
stopnpctimer;
}
end;
}
- script Monster2#2-2 -1,{
OnInit:
disablenpc "Monster2#2-2";
end;
OnDisable:
disablenpc "Monster2#2-2";
killmonster "jupe_area2","Monster2#2-2::OnMyMobDead";
end;
OnEnable:
enablenpc "Monster2#2-2";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area2","I was the head of this underground laboratory.",bc_map,"0xFF0000";
end;
OnTimer4000:
mapannounce "jupe_area2","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
end;
OnTimer6000:
mapannounce "jupe_area2","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
set .MyMobs,13;
monster "jupe_area2",126,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",127,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",128,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",129,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",130,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",131,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",132,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",133,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",133,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",127,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",129,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",130,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
monster "jupe_area2",132,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","...Not yet.",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
enablenpc "#hole#2-2";
stopnpctimer;
donpcevent "Monster2#2-2::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area2","Not yet!",bc_map,"0xFF0000";
disablenpc "Monster2#2-2";
enablenpc "#hole#2-2";
set $@JupreArea2InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 2-3
//============================================================
jupe_area2,127,146,0 script #hole#2-3 844,{
cutin "3",2;
if ($@JupreArea2InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "3",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7358) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "3-1",2;
next;
if ($@JupreArea2InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "3-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#2-3::OnEnable";
enablenpc "Red Alarm#2-3";
disablenpc "#hole#2-3";
close2;
cutin "3-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "3",255;
end;
}
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "3",255;
end;
}
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "3",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer22500:
stopnpctimer;
enablenpc "#hole#2-3";
disablenpc "Red Alarm#2-3";
end;
}
jupe_area2,130,137,0 script Warp#2-3 139,2,2,{
OnInit:
disablenpc "Warp#2-3";
end;
OnEnable:
enablenpc "Warp#2-3";
specialeffect 561; //"Warp#2-3" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area2",130,105;
end;
OnTimer22500:
disablenpc "Warp#2-3";
end;
}
jupe_area2,130,105,0 script Red Alarm#2-3 -1,0,4,{
OnInit:
disablenpc "Red Alarm#2-3";
end;
OnTouch:
set $@JupreArea2InUse,1;
donpcevent "Red Alarm On#2-3::OnEnable";
disablenpc "Red Alarm#2-3";
disablenpc "#hole#2-3";
end;
}
- script Red Alarm On#2-3 -1,{
OnInit:
disablenpc "Red Alarm On#2-3";
end;
OnEnable:
enablenpc "Red Alarm On#2-3";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area2","These security systems...",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area2","They're not really for protection.",bc_map,"0xFF0000";
disablenpc "#hole#2-3";
end;
OnTimer5000:
mapannounce "jupe_area2","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
donpcevent "Monster1#2-3::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area2","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
end;
OnTimer8000:
disablenpc "Red Alarm On#2-3";
stopnpctimer;
end;
}
- script Monster1#2-3 -1,{
OnInit:
disablenpc "Monster1#2-3";
end;
OnDisable:
disablenpc "Monster1#2-3";
killmonster "jupe_area2","Monster1#2-3::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#2-3";
set .MyMobs,8;
monster "jupe_area2",126,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",127,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",128,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",129,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",130,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",131,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",132,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
monster "jupe_area2",133,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
donpcevent "Monster1#2-3::OnDisable";
enablenpc "#hole#2-3";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#2-3::OnEnable";
disablenpc "Monster1#2-3";
stopnpctimer;
}
end;
}
- script Monster2#2-3 -1,{
OnInit:
disablenpc "Monster2#2-3";
end;
OnDisable:
disablenpc "Monster2#2-3";
killmonster "jupe_area2","Monster2#2-3::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster2#2-3";
end;
OnTimer2000:
mapannounce "jupe_area2","Why have you come?",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area2","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
end;
OnTimer8000:
mapannounce "jupe_area2","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
set .MyMobs,16;
monster "jupe_area2",114,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",115,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",116,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",117,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",118,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",119,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",120,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",121,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",114,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",115,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",116,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",117,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",118,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",119,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",120,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
monster "jupe_area2",121,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
enablenpc "#hole#2-3";
stopnpctimer;
donpcevent "Monster2#2-3::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
disablenpc "Monster2#2-3";
enablenpc "#hole#2-3";
set $@JupreArea2InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Security Checkpoint 2-4
//============================================================
jupe_area2,113,49,0 script #hole#2-4 844,{
cutin "4",2;
if ($@JupreArea2InUse == 1) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "4",255;
end;
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
next;
switch(select("Insert a Crest Piece.:Cancel.")) {
case 1:
if (countitem(7359) > 0) {
mes "^3355FFYou take out your";
mes "Crest Piece and place";
mes "it into the slot where it";
mes "happens to fit perfectly.^000000";
specialeffect EF_TOPRANK;
cutin "4-1",2;
next;
if ($@JupreArea2InUse == 1) {
mes "^3355FFNothing happens.";
mes "Perhaps an alarm or";
mes "some other safety measure";
mes "was activated to keep the";
mes "Crest Piece from activating";
mes "this transportation device.";
mes "You retrieve the Crest Piece.^000000";
close2;
cutin "4-1",255;
end;
}
else {
mes "^3355FFThe slot rotates and";
mes "the Crest Piece moves as";
mes "if it were turning a key. You";
mes "feel a weak tremor as a Warp";
mes "Portal to the other side is";
mes "activated. You then retrieve";
mes "your Crest Piece.^000000";
initnpctimer;
donpcevent "Warp#2-4::OnEnable";
donpcevent "Red Alarm#2-4::OnEnable";
disablenpc "#hole#2-4";
close2;
cutin "4-1",255;
end;
}
}
else {
mes "^3355FFUnfortunately, you're";
mes "not carrying anything";
mes "that might be able to fit";
mes "into the slot and activate";
mes "this mechanical device.^000000";
close2;
cutin "4",255;
end;
}
break;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Hmmm...";
mes "Do I have anything";
mes "that might make this";
mes "weird machine work?";
close2;
cutin "4",255;
end;
}
}
else {
mes "^3355FFThis seems like";
mes "some kind of device";
mes "that will allow you to";
mes "pass to the other side.";
mes "There's a slot where you";
mes "probably need to insert";
mes "some kind of object...^000000";
close2;
cutin "4",255;
end;
}
end;
Onstop_timer:
stopnpctimer;
end;
OnTimer5000:
stopnpctimer;
enablenpc "#hole#2-4";
disablenpc "Red Alarm#2-4";
end;
}
jupe_area2,106,53,0 script Warp#2-4 139,2,2,{
OnInit:
disablenpc "Warp#2-4";
end;
OnEnable:
enablenpc "Warp#2-4";
specialeffect 561; //"Warp#2-4" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_area2",80,157;
end;
OnTimer5000:
disablenpc "Warp#2-4";
end;
}
jupe_area2,80,157,0 script Red Alarm#2-4 -1,2,2,{
OnInit:
disablenpc "Red Alarm#2-4";
end;
OnEnable:
enablenpc "Red Alarm#2-4";
end;
OnTouch:
set $@JupreArea2InUse,1;
donpcevent "Red Alarm On#2-4::OnEnable";
disablenpc "Red Alarm#2-4";
disablenpc "#hole#2-4";
end;
}
- script Red Alarm On#2-4 -1,{
OnInit:
disablenpc "Red Alarm On#2-4";
end;
OnEnable:
enablenpc "Red Alarm On#2-4";
initnpctimer;
end;
OnTimer1000:
mapannounce "jupe_area2","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
end;
OnTimer3000:
mapannounce "jupe_area2","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_area2","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
donpcevent "Monster1#2-4::OnEnable";
end;
OnTimer7000:
mapannounce "jupe_area2","Is somewhere down here, wandering...",bc_map,"0xFF0000";
end;
OnTimer8000:
stopnpctimer;
disablenpc "Red Alarm On#2-4";
end;
}
- script Monster1#2-4 -1,{
OnInit:
disablenpc "Monster1#2-4";
end;
OnDisable:
disablenpc "Monster1#2-4";
killmonster "jupe_area2","Monster1#2-4::OnMyMobDead";
end;
OnEnable:
initnpctimer;
enablenpc "Monster1#2-4";
set .MyMobs,8;
monster "jupe_area2",75,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",72,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",71,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",68,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",75,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",72,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",71,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
monster "jupe_area2",68,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
end;
OnTimer300000:
mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
set $@JupreArea2InUse,0;
end;
OnTimer300002:
stopnpctimer;
enablenpc "#hole#2-4";
donpcevent "Monster1#2-4::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Monster2#2-4::OnEnable";
disablenpc "Monster1#2-4";
stopnpctimer;
}
end;
}
- script Monster2#2-4 -1,{
OnInit:
disablenpc "Monster2#2-4";
end;
OnDisable:
killmonster "jupe_area2","Monster2#2-4::OnMyMobDead";
disablenpc "Monster2#2-4";
end;
OnEnable:
enablenpc "Monster2#2-4";
initnpctimer;
end;
OnTimer2000:
mapannounce "jupe_area2","I can never rest in peace...",bc_map,"0xFF0000";
end;
OnTimer4000:
mapannounce "jupe_area2","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
end;
OnTimer6000:
mapannounce "jupe_area2","I will be waiting for you!",bc_map,"0xFF0000";
set .MyMobs,12;
monster "jupe_area2",63,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",61,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",59,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",57,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",55,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",53,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",53,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",55,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",57,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",59,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",61,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
monster "jupe_area2",63,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
end;
OnTimer300000:
set $@JupreArea2InUse,0;
mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
end;
OnTimer300002:
enablenpc "#hole#2-4";
donpcevent "Monster2#2-4::OnDisable";
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
disablenpc "Monster2#2-4";
enablenpc "#hole#2-4";
set $@JupreArea2InUse,0;
stopnpctimer;
}
end;
}
//============================================================
// Move to Elevator
//============================================================
jupe_area2,51,162,0 script Lever#ufe2 844,{
mes "^3355FFIt's a lever";
mes "whose function";
mes "is not known to you.^000000";
next;
switch(select("Pull.:Cancel.")) {
case 1:
if($@JupreArea2InUse == 1) close;
initnpctimer;
donpcevent "LeverWarp#ufe2::OnEnable";
disablenpc "Lever#ufe2";
close;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Pull this lever?";
mes "I don't even know";
mes "what will happen...";
close;
}
close;
OnTimer3000:
enablenpc "Lever#ufe2";
stopnpctimer;
end;
}
jupe_area2,46,157,0 script LeverWarp#ufe2 139,2,2,{
OnInit:
disablenpc "LeverWarp#ufe2";
end;
OnEnable:
enablenpc "LeverWarp#ufe2";
specialeffect 561; //"LeverWarp#ufe2" 561
soundeffectall "jupe_warp.wav",0;
initnpctimer;
end;
OnTouch:
warp "jupe_gate",71,29;
end;
OnTimer3000:
stopnpctimer;
disablenpc "LeverWarp#ufe2";
end;
}
//============================================================
// Elevator Reception Room
//============================================================
jupe_ele_r,51,98,0 script Switch#ufe 844,{
if ($@JupeElevatorInUse == 1) {
mes "^3355FFIt's some sort of";
mes "lever that looks like";
mes "it was already pulled";
mes "by someone else.^000000";
close;
}
else {
cutin "5",2;
mes "^3355FFIt's some sort of";
mes "lever that's located";
mes "next to four empty slots.^000000";
next;
switch(select("Pull the lever.:Leave it alone.")) {
case 1:
mes "^3355FF*Snap Snap*^000000";
next;
mes "^3355FFYou pull the lever,";
mes "but nothing happened.";
mes "You probably need to";
mes "insert the correct objects";
mes "into the slots in order";
mes "for the lever to operate.^000000";
next;
if (countitem(7356) > 0 && countitem(7359) > 0 && countitem(7357) > 0 && countitem(7358) > 0) {
switch(select("Insert all of your Crest Pieces.")) {
case 1:
mes "^3300FF*Snap!*^000000";
mes "^3300FFStrangely enough,";
mes "all four of the Crest";
mes "Pieces fit perfectly into";
mes "the slots and begin to";
mes "emit a strange light.^000000";
cutin "5-1",2;
specialeffect EF_SPHERE;
delitem 7356,1; //Piece_Of_Crest1
delitem 7359,1; //Piece_Of_Crest4
delitem 7357,1; //Piece_Of_Crest2
delitem 7358,1; //Piece_Of_Crest3
next;
switch(select("Pull out the Crest Pieces.:Pull the lever.")) {
case 1:
cutin "5",2;
mes "^3355FFYou pull out all";
mes "the Crest Pieces";
mes "that you inserted";
mes "into the slots.^000000";
getitem 7356,1; //Piece_Of_Crest1
getitem 7359,1; //Piece_Of_Crest4
getitem 7357,1; //Piece_Of_Crest2
getitem 7358,1; //Piece_Of_Crest3
close2;
cutin "5",255;
end;
case 2:
if ($@JupeElevatorInUse == 1) {
mes "^3355FFIt's strange,";
mes "but this lever has";
mes "already been pulled.^000000";
close2;
cutin "5",255;
end;
}
else {
mes "^3355FFOnce you pull the lever,";
mes "the Crest Piece slots are";
mes "suddenly covered, making";
mes "them irretrievable, and the";
mes "ground begins to shake";
mes "violently. This isn't normal!^000000";
next;
set $@JupeElevatorInUse,1;
disablenpc "Switch#ufe";
enablenpc "Switch On#ufe";
initnpctimer;
specialeffect2 563; // 563
soundeffectall "earth_quake.wav",0;
close2;
cutin "5-1",255;
end;
}
}
}
}
else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
select("Insert Crest Pieces.");
mes "^3355FFRight now, you don't";
mes "have enough Crest Pieces";
mes "to place into all four of these";
mes "slots. You'll need to find and^FFFFFF ^3355FF bring them all to make this work.^000000";
close2;
cutin "5-1",255;
end;
}
else {
mes "^3355FFYou need to find";
mes "some kind of object";
mes "that you can fit into";
mes "each of these four slots...^000000";
close2;
cutin "5-1",255;
end;
}
case 2:
mes "^3355FFWho knows what";
mes "this lever may do?";
mes "You'll never know unless";
mes "you have the courage to try.^000000";
close2;
cutin "5",255;
end;
}
}
end;
OnTimer2000:
mapannounce "jupe_ele_r","My descendents...",bc_map,"0x66FF00";
end;
OnTimer3000:
mapannounce "jupe_ele_r","Do you want to know why this city was buried beneath the earth...?",bc_map,"0x66FF00";
end;
OnTimer7000:
mapannounce "jupe_ele_r","If so, follow my voice...",bc_map,"0x66FF00";
end;
OnTimer10000:
mapannounce "jupe_ele_r","I shall let you see for yourself what you desire to know...",bc_map,"0x66FF00";
end;
OnTimer17000:
mapannounce "jupe_ele_r","Overcome all the hallucinations.",bc_map,"0xCC6600";
end;
OnTimer20000:
mapannounce "jupe_ele_r","Open your eyes and see past all of the lies.",bc_map,"0xFF0000";
end;
OnTimer23000:
mapannounce "jupe_ele_r","I can only maintain this vision for you for 20 minutes.",bc_map,"0xFF0000";
donpcevent "Elevator Guard1#ufe::OnEnable";
end;
OnTimer27000:
mapannounce "jupe_ele_r","Look! And remember!",bc_map,"0xFF0000";
stopnpctimer;
end;
}
jupe_ele_r,51,98,0 script Switch On#ufe 844,{
mes "^3355FFIt seems like";
mes "someone else is";
mes "using this machine...^000000";
close;
OnInit:
disablenpc "Switch On#ufe";
end;
}
//============================================================
// Elevator Receptoin Guards
//============================================================
jupe_ele_r,10,50,0 script Elevator Guard1#ufe -1,{
OnInit:
disablenpc "Elevator Guard1#ufe";
end;
OnEnable:
set .MyMobs,9;
enablenpc "Elevator Guard1#ufe";
initnpctimer;
end;
OnTimer1000:
monster "jupe_ele_r",44,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer1200:
monster "jupe_ele_r",55,99,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer1400:
monster "jupe_ele_r",45,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer1600:
monster "jupe_ele_r",54,84,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer1800:
monster "jupe_ele_r",45,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer2000:
monster "jupe_ele_r",54,99,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer2200:
monster "jupe_ele_r",48,84,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer2400:
monster "jupe_ele_r",52,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer2600:
monster "jupe_ele_r",50,84,"Chief Guard",1684,1,"Elevator Guard1#ufe::OnMyMobDead";
end;
OnTimer120000:
mapannounce "jupe_ele_r","It is disappointing to see that you are too weak to even defeat a hallucination...",bc_map,"0x66FF00";
enablenpc "Switch#ufe";
disablenpc "Switch On#ufe";
donpcevent "Annihilation#ufe::OnEnable";
set $@JupeElevatorInUse,0;
end;
OnTimer120005:
killmonster "jupe_ele_r","Elevator Guard1#ufe::OnMyMobDead";
stopnpctimer;
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
donpcevent "Elevator Safety#ufe::OnEnable";
stopnpctimer;
}
end;
}
jupe_ele_r,10,52,0 script Elevator Safety#ufe -1,{
OnInit:
disablenpc "Elevator Safety#ufe";
end;
OnEnable:
enablenpc "Elevator Safety#ufe";
initnpctimer;
end;
OnTimer5000:
mapannounce "jupe_ele_r","Those of you who have defeated the hallucination, step forward.",bc_map,"0x66FF00";
soundeffectall "earth_quake.wav",0;
end;
OnTimer8000:
donpcevent "Elevator On#ufe::OnEnable";
end;
OnTimer10000:
disablenpc "Elevator Safety#ufe";
stopnpctimer;
end;
}
jupe_ele_r,50,89,0 script Annihilation#ufe -1,35,50,{
OnInit:
disablenpc "Annihilation#ufe";
end;
OnEnable:
enablenpc "Annihilation#ufe";
initnpctimer;
end;
OnTouch:
percentheal -99,-100;
end;
OnTimer1000:
mapwarp "jupe_ele_r", "jupe_gate",49,138;
end;
OnTimer1600:
enablenpc "Elevator Escape#ufe";
end;
OnTimer3000:
disablenpc "Annihilation#ufe";
disablenpc "Elevator Escape#ufe";
end;
}
jupe_ele_r,50,89,0 script Elevator Escape#ufe -1,35,50,{
OnInit:
disablenpc "Elevator Escape#ufe";
end;
OnTouch:
mapwarp "jupe_ele_r", "jupe_gate",49,138;
end;
}
jupe_ele_r,10,54,0 script Elevator On#ufe -1,{
OnInit:
disablenpc "Elevator On#ufe";
end;
OnEnable:
enablenpc "Elevator On#ufe";
initnpctimer;
end;
OnTimer1000:
mapwarp "jupe_ele_r", "jupe_ele",42,47;
set $@JupeElevatorInUse2,0;
donpcevent "TimeOut#ufe::OnEnable";
donpcevent "Guard-1#ufe::OnEnable";
end;
OnTimer10000:
stopnpctimer;
disablenpc "Elevator On#ufe";
end;
}
//============================================================
// Elevator NPCs
//============================================================
jupe_ele,14,6,1 script TimeOut#ufe 844,{
OnEnable:
initnpctimer;
end;
OnDisable:
stopnpctimer;
end;
OnTimer59000:
if (getmapusers("jupe_ele") == 0) {
killmonsterall "jupe_ele";
donpcevent "Guard-1#ufe::OnDisable";
donpcevent "Guard-2#ufe::OnDisable";
donpcevent "Guard-3#ufe::OnDisable";
donpcevent "Guard-4#ufe::OnDisable";
stopnpctimer;
set $@JupeElevatorInUse2,0;
set $@JupeElevatorInUse,0;
disablenpc "Switch On#ufe";
enablenpc "Switch#ufe";
}
end;
OnTimer120000:
killmonsterall "jupe_ele";
donpcevent "Guard-1#ufe::OnDisable";
donpcevent "Guard-2#ufe::OnDisable";
donpcevent "Guard-3#ufe::OnDisable";
donpcevent "Guard-4#ufe::OnDisable";
mapannounce "jupe_ele","In the end, you can't even overcome your inner fear...",bc_map,"0xFF0000";
end;
OnTimer122000:
mapannounce "jupe_ele","You have never encountered your inner fears, have you?",bc_map,"0xFF0000";
end;
OnTimer125000:
mapannounce "jupe_ele","Did you expect this would be the end of the hallucination?",bc_map,"0xFF0000";
end;
OnTimer127000:
mapannounce "jupe_ele","What if the voice you're hearing is also a hallucination?",bc_map,"0xFF0000";
end;
OnTimer129000:
mapannounce "jupe_ele","What if you're just dreaming all of this?",bc_map,"0xFF0000";
end;
OnTimer131000:
mapannounce "jupe_ele","What if the existence of this city is a lie?",bc_map,"0xFF0000";
end;
OnTimer133000:
mapannounce "jupe_ele","Are you even real?",bc_map,"0xFF0000";
end;
OnTimer134000:
OnTimer135000:
mapwarp "jupe_ele", "jupe_gate",49,138;
end;
OnTimer142000:
disablenpc "GuardEnd#ufe";
disablenpc "4F Enter#ufe";
donpcevent "TimeOut#ufe::OnDisable";
set $@JupeElevatorInUse2,0;
set $@JupeElevatorInUse,0;
disablenpc "Switch On#ufe";
enablenpc "Switch#ufe";
stopnpctimer;
end;
}
jupe_ele,15,6,1 script Guard-1#ufe 844,{
OnEnable:
initnpctimer;
end;
OnDisable:
stopnpctimer;
end;
OnTimer2000:
mapannounce "jupe_ele","I admire your patience.",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_ele","Let's see if everything you have experienced",bc_map,"0xFF0000";
end;
OnTimer8000:
mapannounce "jupe_ele","were traps for intruders...",bc_map,"0xFF0000";
end;
OnTimer12000:
set .MyMobs,8;
monster "jupe_ele",48,44,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",45,42,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",38,42,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",35,44,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",35,51,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",38,53,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",45,53,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
monster "jupe_ele",48,51,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
set $@JupeElevatorInUse2,1;
end;
OnTimer30000:
if ($@JupeElevatorInUse2 == 1) {
donpcevent "Guard-2#ufe::OnEnable";
stopnpctimer;
}
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
if ($@JupeElevatorInUse2 == 1) {
donpcevent "Guard-2#ufe::OnEnable";
stopnpctimer;
} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
donpcevent "GuardEnd#ufe::OnEnable";
stopnpctimer;
}
}
end;
}
jupe_ele,16,6,1 script Guard-2#ufe 844,{
OnEnable:
initnpctimer;
end;
OnDisable:
stopnpctimer;
end;
OnTimer2000:
mapannounce "jupe_ele","This city was not",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_ele","as magnificient as you thought.",bc_map,"0xFF0000";
end;
OnTimer8000:
mapannounce "jupe_ele","This is a place where all the fears of humans flourish.",bc_map,"0xFF0000";
end;
OnTimer11000:
mapannounce "jupe_ele","Yes. Nobody leaves alive!",bc_map,"0xFF0000";
end;
OnTimer12000:
set .MyMobs,8;
monster "jupe_ele",48,44,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",45,42,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",38,42,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",35,44,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",35,51,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",38,53,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",45,53,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
monster "jupe_ele",48,51,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
set $@JupeElevatorInUse2,2;
end;
OnTimer30000:
if ($@JupeElevatorInUse2 == 2) {
donpcevent "Guard-3#ufe::OnEnable";
stopnpctimer;
}
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
if ($@JupeElevatorInUse2 == 2) {
donpcevent "Guard-3#ufe::OnEnable";
stopnpctimer;
} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
donpcevent "GuardEnd#ufe::OnEnable";
stopnpctimer;
}
}
end;
}
jupe_ele,17,6,1 script Guard-3#ufe 844,{
OnEnable:
initnpctimer;
end;
OnDisable:
stopnpctimer;
end;
OnTimer2000:
mapannounce "jupe_ele","What do you see?",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_ele","Are your eyes actually seeing something?",bc_map,"0xFF0000";
end;
OnTimer8000:
mapannounce "jupe_ele","Or do you just believe you are seeing?",bc_map,"0xFF0000";
end;
OnTimer12000:
set .MyMobs,8;
monster "jupe_ele",48,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",45,42,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",38,42,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",35,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",35,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",38,53,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",45,53,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
monster "jupe_ele",48,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
set $@JupeElevatorInUse2,3;
end;
OnTimer30000:
if ($@JupeElevatorInUse2 == 3) {
donpcevent "Guard-4#ufe::OnEnable";
stopnpctimer;
}
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
if ($@JupeElevatorInUse2 == 3) {
donpcevent "Guard-4#ufe::OnEnable";
stopnpctimer;
}
else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
donpcevent "GuardEnd#ufe::OnEnable";
stopnpctimer;
}
}
end;
}
jupe_ele,18,6,1 script Guard-4#ufe 844,{
OnEnable:
initnpctimer;
end;
OnDisable:
stopnpctimer;
end;
OnTimer2000:
mapannounce "jupe_ele","Do not forget. That which limits you is nothing but yourself.",bc_map,"0xFF0000";
end;
OnTimer5000:
mapannounce "jupe_ele","Nothing is what you fear and you have nothing to fear...",bc_map,"0xFF0000";
end;
OnTimer8000:
set .MyMobs,8;
monster "jupe_ele",48,44,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",45,42,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",38,42,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",35,44,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",35,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",38,53,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",45,53,"Guard",1683,1,"Guard-4#ufe::OnMyMobDead";
monster "jupe_ele",48,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
set $@JupeElevatorInUse2,4;
end;
OnMyMobDead:
set .MyMobs,.MyMobs-1;
if (.MyMobs < 1) {
if(getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1)
{
donpcevent "GuardEnd#ufe::OnEnable";
stopnpctimer;
}
}
end;
}
jupe_ele,19,6,1 script GuardEnd#ufe 844,{
OnInit:
disablenpc "GuardEnd#ufe";
end;
OnEnable:
enablenpc "GuardEnd#ufe";
donpcevent "TimeOut#ufe::OnDisable";
initnpctimer;
end;
OnDisable:
disablenpc "GuardEnd#ufe";
stopnpctimer;
end;
OnTimer2000:
mapannounce "jupe_ele","I am not going to tell you anything.",bc_map,"0x66FF00";
end;
OnTimer5000:
mapannounce "jupe_ele","My city, my people are now but a memory.",bc_map,"0x66FF00";
end;
OnTimer8000:
mapannounce "jupe_ele","Everything was a mistake. We were not supposed to be here.",bc_map,"0x66FF00";
end;
OnTimer11000:
mapannounce "jupe_ele","Is this a place where humans are forbidden?",bc_map,"0x66FF00";
end;
OnTimer12000:
mapannounce "jupe_ele","You want to know, don't you? Go ahead... Go deeper.",bc_map,"0x66FF00";
enablenpc "4F Enter#ufe";
end;
OnTimer22000:
mapannounce "jupe_ele","It's not real anyway. All of it's safe, it can't hurt you...",bc_map,"0x66FF00";
soundeffectall "earth_quake.wav",0;
disablenpc "4F Enter#ufe";
end;
OnTimer24000:
mapwarp "jupe_ele","jupe_core",150,286;
end;
OnTimer25000:
mapwarp "jupe_ele","jupe_core",151,286;
end;
OnTimer26000:
set $@JupeElevatorInUse2,0;
set $@JupeElevatorInUse,0;
disablenpc "Switch On#ufe";
enablenpc "Switch#ufe";
donpcevent "GuardEnd#ufe::OnDisable";
}
jupe_ele,41,33,0 script 4F Enter#ufe 45,4,4,{
OnInit:
disablenpc "4F Enter#ufe";
end;
OnTouch:
warp "jupe_core",rand(149,151),286;
end;
}
//============================================================
// Warps
//============================================================
jupe_gate,50,173,0 script gate#start -1,2,3,{
end;
OnTouch:
initnpctimer "gate#start",1;
mes "^3355FFIt's a Warp Portal";
mes "that will teleport you";
mes "to the previous floor.^000000";
next;
switch(select("Use it.:Ignore it.")) {
case 1:
specialeffect2 EF_LIGHTSPHERE;
close2;
stopnpctimer;
warp "juperos_02",130,142;
case 2:
mes "[" + strcharinfo(0) + "]";
mes "Not now!";
mes "I can't leave yet!";
close2;
stopnpctimer;
warp "jupe_gate",50,168;
}
end;
OnTimer10000:
warp "juperos_02",128,278;
enablenpc "gate#start#2";
disablenpc "gate#start";
end;
}
jupe_gate,50,171,0 script gate#start#2 -1,2,2,{
OnInit:
disablenpc "gate#start#2";
end;
OnTouch:
warp "juperos_02",130,142;
end;
OnTimer2000:
enablenpc "gate#start";
disablenpc "gate#start#2";
end;
}
juperos_02,33,59,0 script jupe_goto2F 45,2,2,{
OnTouch:
switch(rand(1,4)) {
case 1: warp "juperos_01",120,72; end;
case 2: warp "juperos_01",120,112; end;
case 3: warp "juperos_01",79,112; end;
case 4: warp "juperos_01",79,72; end;
}
end;
}
