npc/quests/quests_juperos.txt

   1 //===== rAthena Script =======================================
   2 //= Juperos Dungeon Quests
   3 //===== By ===================================================
   4 //= MasterOfMuppets
   5 //===== Version ==============================================
   6 //= 2.0
   7 //===== Compatible With ======================================
   8 //= rAthena Project
   9 //===== Description ==========================================
  10 //= [Partial Official Conversion]
  11 //= Juperos Ruins related Quests/Events
  12 //===== Comments =============================================
  13 //= 1.0 First version, partly implemented [MasterOfMuppets]
  14 //= 1.1 Added official Juperos Ruins History Quest. Thanks
  15 //=     to Keplerk for his first version. [SinSloth]
  16 //= 1.2 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
  17 //= 1.3 Removed semi-official core access NPCs, replaced with [L0ne_W0lf]
  18 //=     event-driven story progressive NPCs. Optimization needed.
  19 //= 1.3a Adjusted the elevafor timer. (132000 -> 142000) [L0ne_W0lf]
  20 //= 1.3b Minor updates to juperos elevator NPCs. [L0ne_W0lf]
  21 //= 1.4 Fixed Elevator not working after failing once. [L0ne_W0lf]
  22 //= 1.5 Lots of Fixes, missing stopnpctimers, cleanup. [Zephyrus]
  23 //= 1.6 Added missing close in "Popular Feats" [L0ne_W0lf]
  24 //= 1.7 Replaced effect numerics with constants. [L0ne_W0lf]
  25 //= 1.8 Updated RE/Pre-RE EXP. [Euphy]
  26 //= 1.9 Added GM management NPC. [Euphy]
  27 //= 2.0 Added Juperos Ruins History quest logs. [Capuche]
  28 //============================================================
  29
  30 yuno_in04,190,125,4     script  Scholar 700,{
  31 function Func_JupHist;
  32         switch(yuno_hist) {
  33         case 0:
  34                 mes "[Scholar]";
  35                 mes "...Mm? ";
  36                 mes "...Yes?";
  37                 next;
  38                 mes "[Scholar]";
  39                 mes "...";
  40                 mes "......";
  41                 mes "May I help you?";
  42                 next;
  43                 switch(select("Oh! N-Nothing!:Excuse me...")) {
  44                 case 1:
  45                         mes "[Scholar]";
  46                         mes "...";
  47                         mes "......";
  48                         mes "Hmm?";
  49                         mes "...........";
  50                         mes "Hmpf.";
  51                         close;
  52                 case 2:
  53                         mes "[Scholar]";
  54                         mes "...";
  55                         mes "......";
  56                         mes "Hmm?";
  57                         mes "...........";
  58                         mes "Hmmm...";
  59                         next;
  60                         mes "[Scholar]";
  61                         mes "You must be lost.";
  62                         mes "This is the scholarly";
  63                         mes "research section, you know,";
  64                         mes "content you couldn't possibly";
  65                         mes "fathom. The popular novels and picture books are someplace else.";
  66                         next;
  67                         mes "["+strcharinfo(0)+"]";
  68                         mes "...";
  69                         mes "......";
  70                         next;
  71                         mes "[Scholar]";
  72                         mes "Why don't you rummage";
  73                         mes "through the bookshelves?";
  74                         mes "I'm sure you can find some";
  75                         mes "book there that can hold your";
  76                         mes "interest. Well, depending on";
  77                         mes "your actual attention span...";
  78                         next;
  79                         mes "["+strcharinfo(0)+"]";
  80                         mes "(What's her damage?!";
  81                         mes "Does she have an attitude problem or is she just stuck-up?)";
  82                         close;
  83                 }
  84         case 1:
  85                 mes "[Scholar]";
  86                 mes "...Mm? ";
  87                 mes "...Yes?";
  88                 next;
  89                 mes "[Scholar]";
  90                 mes "...";
  91                 mes "......";
  92                 mes "May I help you?";
  93                 next;
  94                 switch(select("Oh! N-Nothing!:By any chance...")) {
  95                 case 1:
  96                         mes "[Scholar]";
  97                         mes "...";
  98                         mes "......";
  99                         mes "Hmm?";
 100                         mes "...........";
 101                         mes "Hmpf.";
 102                         close;
 103                 case 2:
 104                         mes "["+strcharinfo(0)+"]";
 105                         mes "By any chance...";
 106                         mes "Are you conducting";
 107                         mes "research about Juperos?";
 108                         next;
 109                         mes "[Scholar]";
 110                         mes "Why yes, that is";
 111                         mes "correct. But how did";
 112                         mes "you come to learn about";
 113                         mes "my current research project?";
 114                         next;
 115                         mes "["+strcharinfo(0)+"]";
 116                         mes "Oh, I managed to read";
 117                         mes "a thesis paper entitled,";
 118                         mes "''The Fall of Juperos,'' and";
 119                         mes "I just thought that the writing";
 120                         mes "style and your personality";
 121                         mes "seem to match for some reason.";
 122                         next;
 123                         mes "[Scholar]";
 124                         mes "Oh...! You read my";
 125                         mes "thesis? So what did";
 126                         mes "you think about it?";
 127                         next;
 128                         mes "["+strcharinfo(0)+"]";
 129                         mes "So far, it's alright, but";
 130                         mes "quite frankly it's incomplete.";
 131                         mes "I mean, you don't have much in";
 132                         mes "in the way of conjecture, much";
 133                         mes "less any evidence to back up";
 134                         mes "any of your statements.";
 135                         next;
 136                         mes "[Scholar]";
 137                         mes "....";
 138                         mes "Let me apologize for";
 139                         mes "being rude to you earlier.";
 140                         mes "As you know, my name is";
 141                         mes "Fayruz Khrhiyha. May I ask";
 142                         mes "what your name might be?";
 143                         next;
 144                         mes "["+strcharinfo(0)+"]";
 145                         mes "I'm "+strcharinfo(0)+",";
 146                         mes "a brave adventurer in the";
 147                         mes "service of his royal majesty,";
 148                         mes "the wise and benevolent";
 149                         mes "King Tristram III.";
 150                         set yuno_hist,2;
 151                         setquest 11017;
 152                         next;
 153                         mes "[Fayruz]";
 154                         mes "Well, "+strcharinfo(0)+",";
 155                         mes "I understand that my thesis";
 156                         mes "still requires more evidence.";
 157                         mes "But I'd need some ancient";
 158                         mes "documents from Juperos";
 159                         mes "to complete my research...";
 160                         next;
 161                         mes "[Fayruz]";
 162                         mes "If you happen to travel";
 163                         mes "through Juperos and find";
 164                         mes "any ancient documents, would";
 165                         mes "you bring them to me? Having";
 166                         mes "those would help my research";
 167                         mes "efforts immensely. Thank you...";
 168                         close;
 169                 }
 170         case 2:
 171                 if (countitem(7352) || countitem(7353) || countitem(7354) || countitem(7355)) {
 172                         mes "[Fayruz]";
 173                         mes "Ah, it's you! Listen,";
 174                         mes "I just found a record of";
 175                         mes "an adventurer who explored";
 176                         mes "Juperos. There's mention";
 177                         mes "of a stone statue here that";
 178                         mes "just might be noteworthy...";
 179                         next;
 180                         mes "[Fayruz]";
 181                         mes "If you happen to find";
 182                         mes "yourself in Juperos,";
 183                         mes "would you find the stone";
 184                         mes "statue at the entrance of";
 185                         mes "its dungeon and read the";
 186                         mes "engraved message for me?";
 187                         next;
 188                         mes "[Fayruz]";
 189                         mes "According to my notes,";
 190                         mes "there's a spell that will";
 191                         mes "make its reader memorize";
 192                         mes "its message, even if they don't";
 193                         mes "know the language. So come";
 194                         mes "to me if you manage to read it.";
 195                         close;
 196                 }
 197                 mes "[Fayruz]";
 198                 mes "If you ever chance to";
 199                 mes "travel through Juperos,";
 200                 mes "would you let me know if you";
 201                 mes "find anything that might help";
 202                 mes "my research there? I'd be";
 203                 mes "very grateful for your help.";
 204                 close;
 205         case 3:
 206                 mes "[Fayruz]";
 207                 mes "Well, you look";
 208                 mes "quite pleased.";
 209                 mes "May I asked what";
 210                 mes "happened to put that";
 211                 mes "expression on your face?";
 212                 next;
 213                 switch(select("I found something in Juperos.:Nothing much.")) {
 214                 case 1:
 215                         mes "[" +strcharinfo(0)+"]";
 216                         mes "I went to Juperos like";
 217                         mes "you asked and found that";
 218                         mes "stone statue you were talking";
 219                         mes "about. Just like you said, there was an engraved message on it.";
 220                         next;
 221                         mes "[Fayruz]";
 222                         mes "Fascinating!";
 223                         mes "So is it really enchanted";
 224                         mes "so anyone can memorize it?";
 225                         mes "Wh-what does the message say?";
 226                         next;
 227                         mes "^3355FFYou recite the message";
 228                         mes "engraved on the stone";
 229                         mes "statue, unable to interpret";
 230                         mes "the sounds you're uttering,";
 231                         mes "but weirdly enough, you can";
 232                         mes "easily recall them from memory.^000000";
 233                         next;
 234                         mes "[Fayruz]";
 235                         mes "Ah, I see! Wait,";
 236                         mes "give me a moment to";
 237                         mes "properly translate this...";
 238                         next;
 239                         mes "...";
 240                         mes "......";
 241                         mes ".........";
 242                         next;
 243                         mes "[Fayruz]";
 244                         mes "It means, ''Do you wish to";
 245                         mes "see the end of the madness?";
 246                         mes "He is waiting where the three";
 247                         mes "columns were destroyed, where";
 248                         mes "two hundred illusions wander.''";
 249                         next;
 250                         mes "[Fayruz]";
 251                         mes "''You will see him, the one";
 252                         mes "who was vain and extravagant,";
 253                         mes "with your own eyes at the place where the light passes through.";
 254                         set yuno_hist,4;
 255                         changequest 11018,11019;
 256                         next;
 257                         mes "[Fayruz]";
 258                         mes "Ah, usually, descriptions";
 259                         mes "of the ''vain and extravagant";
 260                         mes "one'' refer to the mad scientist rumored to have lived in that";
 261                         mes "ancient era. But if this is true, I may have to rework my thesis...";
 262                         next;
 263                         mes "[Fayruz]";
 264                         mes "I have another favor to";
 265                         mes "ask of you. If you find any";
 266                         mes "object of historical significance in Juperos, would you bring it to";
 267                         mes "me? I'll reward you, of course.";
 268                         next;
 269                         mes "[Fayruz]";
 270                         mes "It would be most helpful";
 271                         mes "if you could manage to find";
 272                         mes "documents that existed from that era. Fortunately, back then,";
 273                         mes "they made all their records on material more durable than paper.";
 274                         close;
 275                 case 2:
 276                         mes "[Fayruz]";
 277                         mes "Nothing, huh?";
 278                         mes "My life is also fairly";
 279                         mes "uneventful, but somehow,";
 280                         mes "I'm don't think I'm content.";
 281                         close;
 282                 }
 283         case 4:
 284                 mes "[Fayruz]";
 285                 mes "Oh hello, "+strcharinfo(0)+".";
 286                 mes "So what brings you to";
 287                 mes "the Juno Library today?";
 288                 next;
 289                 switch(select("Nice weather today, isn't it?:I found something in Juperos.:Nothing much.")) {
 290                 case 1:
 291                         mes "[Fayruz]";
 292                         mes "Well, I wouldn't know.";
 293                         mes "It's late whenever I go";
 294                         mes "out, so I always happen to";
 295                         mes "miss the sunlight. I guess";
 296                         mes "I really miss nice weather";
 297                         mes "sometimes, you know?";
 298                         close;
 299                 case 2:
 300                         if (countitem(7352) || countitem(7353) || countitem(7354) || countitem(7355)) {
 301                                 mes "[Fayruz]";
 302                                 mes "Oh, really?!";
 303                                 mes "That's great news!";
 304                                 mes "W-what did you find?";
 305                                 next;
 306                                 mes "^3355FFIn her excitement,";
 307                                 mes "Fayruz begins to";
 308                                 mes "rummage through your";
 309                                 mes "things before you get";
 310                                 mes "the chance to answer her.^000000";
 311                                 next;
 312                                 mes "[Fayruz]";
 313                                 mes "Oh, this must be it!";
 314                                 mes "Would you mind if I keep";
 315                                 mes "this Transparent Plate for";
 316                                 mes "my research? In return, I'll";
 317                                 mes "tell you some tales about";
 318                                 mes "Juperos that I've learned.";
 319                                 next;
 320                                 switch(select("Please, be my guest.:No way, you can't have it.")) {
 321                                 case 1:
 322                                         if (countitem(7352)) Func_JupHist(7352,1);
 323                                         else if (countitem(7353)) Func_JupHist(7353,2);
 324                                         else if (countitem(7354)) Func_JupHist(7354,4);
 325                                         else if (countitem(7355)) Func_JupHist(7352,8);
 326                                 case 2:
 327                                         mes "[Fayruz]";
 328                                         mes "Mm? Are you serious?";
 329                                         mes "This object is very valuable";
 330                                         mes "to a researcher like me, but";
 331                                         mes "I have no idea what use it";
 332                                         mes "would be for an adventurer.";
 333                                         mes "Well, you have your reasons...";
 334                                         close;
 335                                 }
 336                         }
 337                         mes "[Fayruz]";
 338                         mes "Oh, really?!";
 339                         mes "That's great news!";
 340                         mes "W-what did you find?";
 341                         next;
 342                         mes "^3355FFIn her excitement,";
 343                         mes "Fayruz begins to";
 344                         mes "rummage through your";
 345                         mes "things before you get";
 346                         mes "the chance to answer her.^000000";
 347                         next;
 348                         mes "[Fayruz]";
 349                         mes "Oh. There isn't anything";
 350                         mes "here that would help in my";
 351                         mes "research, but thank you anyway.";
 352                         mes "If you find anything else while";
 353                         mes "you're in Juperos, please come back and show it to me, alright?";
 354                         close;
 355                 case 3:
 356                         mes "[Fayruz]";
 357                         mes "Ah, I see. Well, while";
 358                         mes "you're here, why don't you";
 359                         mes "read something? There are";
 360                         mes "many books that cover some";
 361                         mes "interesting topics, like the";
 362                         mes "Schwaltzvalt economy...";
 363                         next;
 364                         mes "[Fayruz]";
 365                         mes "Oh, in any case, please";
 366                         mes "don't forget the favor I asked";
 367                         mes "of you. If you find anything";
 368                         mes "in Juperos that's historically";
 369                         mes "significant, I'd appreciate it";
 370                         mes "if you bring it right away.";
 371                         close;
 372                 }
 373         case 5:
 374                 mes "[Fayruz]";
 375                 mes "Oh, "+strcharinfo(0)+"!";
 376                 mes "Have you come back with";
 377                 mes "something from Juperos?";
 378                 mes "I've been hoping you'd come";
 379                 mes "back with something that'd";
 380                 mes "help me in my research!";
 381                 next;
 382                 switch(select("Take a look at this.:Oh, I'm sorry...")) {
 383                 case 1:
 384                         switch(jupe_hist) {
 385                                 case 1: Func_JupHist(7353,7354,7355,7352);
 386                                 case 2: Func_JupHist(7352,7354,7355,7353);
 387                                 case 4: Func_JupHist(7352,7353,7355,7354);
 388                                 case 8: Func_JupHist(7352,7353,7354,7355);
 389                         }
 390                 case 2:
 391                         mes "[Fayruz]";
 392                         mes "Ah, I see. Well, while";
 393                         mes "you're here, why don't you";
 394                         mes "read something? There are";
 395                         mes "many books that cover some";
 396                         mes "interesting topics, like...";
 397                         mes "like... Self-Honesty (?).";
 398                         next;
 399                         mes "[Fayruz]";
 400                         mes "Oh, in any case, please";
 401                         mes "don't forget the favor I asked";
 402                         mes "of you. If you find anything";
 403                         mes "in Juperos that's historically";
 404                         mes "significant, I'd appreciate it";
 405                         mes "if you bring it right away.";
 406                         close;
 407                 }
 408         case 6:
 409                 mes "[Fayruz]";
 410                 mes "Oh, "+strcharinfo(0)+"!";
 411                 mes "The Transparent Plate";
 412                 mes "that you brought for me";
 413                 mes "last time is really helping me";
 414                 mes "in my research. If you get the";
 415                 mes "chance, please bring me more!";
 416                 set yuno_hist,7;
 417                 next;
 418                 mes "[Fayruz]";
 419                 mes "This new data is adding";
 420                 mes "a lot more credibility to my";
 421                 mes "thesis. Oh, I'll be with you";
 422                 mes "in a moment, let me finish";
 423                 mes "translating this one last";
 424                 mes "passage really quickly...";
 425                 close;
 426         case 7:
 427                 mes "[Fayruz]";
 428                 mes "Hello, "+strcharinfo(0)+"~";
 429                 mes "Oh, were you able to look";
 430                 mes "in Juperos for anything that";
 431                 mes "might help me in my research?";
 432                 next;
 433                 switch(select("Yeah, take a look at this.:No, I'm sorry...")) {
 434                 case 1:
 435                         switch(jupe_hist) {
 436                                 case 3: Func_JupHist(7354,7355,7352,7353);
 437                                 case 5: Func_JupHist(7353,7355,7352,7354);
 438                                 case 6: Func_JupHist(7352,7355,7353,7354);
 439                                 case 9: Func_JupHist(7353,7354,7352,7355);
 440                                 case 10: Func_JupHist(7352,7354,7353,7355);
 441                                 case 12: Func_JupHist(7352,7353,7354,7355);
 442                         }
 443                 case 2:
 444                         mes "[Fayruz]";
 445                         mes "Oh, that's fine.";
 446                         mes "Besides, I don't really";
 447                         mes "have a deadline to complete";
 448                         mes "this research project. Still,";
 449                         mes "I just want you to know that";
 450                         mes "I really appreciate your help.";
 451                         close;
 452                 }
 453         case 8:
 454                 mes "[Fayruz]";
 455                 mes ""+strcharinfo(0)+"...";
 456                 mes "I'm having great difficulty in";
 457                 mes "translating that Transparent";
 458                 mes "Plate you brought for me that";
 459                 mes "last time. I'm so frustrated...";
 460                 next;
 461                 mes "[Fayruz]";
 462                 mes "Wait a minute...";
 463                 mes "This here means...";
 464                 mes "Alright. Okay. Yes.";
 465                 mes "Yes! Of course, how";
 466                 mes "could I not see it before!";
 467                 set yuno_hist,9;
 468                 next;
 469                 mes "[Fayruz]";
 470                 mes "I'll be with you";
 471                 mes "in just a second!";
 472                 mes "I think I just made";
 473                 mes "a real through...!";
 474                 next;
 475         case 9:
 476                 mes "[Fayruz]";
 477                 mes "Ah, I've been";
 478                 mes "expecting you, "+strcharinfo(0)+".";
 479                 mes "So did you have been to Juperos again? I'm really hoping that you";
 480                 mes "were able to find something new that would help in my research...";
 481                 next;
 482                 switch(select("Actually, I did find this...:I'm sorry, I haven't...")) {
 483                 case 1:
 484                         switch(jupe_hist) {
 485                                 case 7: Func_JupHist(7355,7352,7353,7354);
 486                                 case 11: Func_JupHist(7354,7352,7353,7355);
 487                                 case 13: Func_JupHist(7353,7352,7354,7355);
 488                                 case 14: Func_JupHist(7352,7353,7354,7355);
 489                         }
 490                 case 2:
 491                         mes "[Fayruz]";
 492                         mes "Ah, I see. Well, while";
 493                         mes "you're here, why don't you";
 494                         mes "read something? There are";
 495                         mes "many books that cover some";
 496                         mes "interesting topics, like";
 497                         mes "modern adventure history.";
 498                         next;
 499                         mes "[Fayruz]";
 500                         mes "Oh, in any case, please";
 501                         mes "don't forget the favor I asked";
 502                         mes "of you. If you find anything";
 503                         mes "in Juperos that's historically";
 504                         mes "significant, I'd appreciate it";
 505                         mes "if you bring it right away.";
 506                         close;
 507                 }
 508         case 10:
 509                 mes "[Fayruz]";
 510                 mes "Oh hello, "+strcharinfo(0)+"...";
 511                 mes "So what exactly brings you";
 512                 mes "to the Juno Library this time?";
 513                 next;
 514                 switch(select("I found another Transparent Plate.:Just visiting, really.")) {
 515                 case 1:
 516                         if (countitem(7352) || countitem(7353) || countitem(7354) || countitem(7355)) {
 517                                 mes "[Fayruz]";
 518                                 mes "Hmm, well, we've made as";
 519                                 mes "much headway as we can";
 520                                 mes "with the Transparent Plates";
 521                                 mes "you've already given me, but";
 522                                 mes "it can't hurt to have too much";
 523                                 mes "evidence to back my theories.";
 524                                 next;
 525                                 mes "[Fayruz]";
 526                                 mes "I really appreciate";
 527                                 mes "your continuing efforts";
 528                                 mes "to help me. Please, would";
 529                                 mes "you take this as my way";
 530                                 mes "saying ''Thanks?'' You've been";
 531                                 mes "great, "+strcharinfo(0)+"...";
 532                                 if (countitem(7352)) delitem 7352,1;
 533                                 else if (countitem(7353)) delitem 7353,1;
 534                                 else if (countitem(7354)) delitem 7354,1;
 535                                 else delitem 7355,1;
 536                                 getitem 644,1;
 537                                 close;
 538                         }
 539                         mes "[Fayruz]";
 540                         mes "Mmm...?";
 541                         mes "It doesn't look like";
 542                         mes "you brought another";
 543                         mes "Transparent Plate.";
 544                         mes "Are you sure that you";
 545                         mes "didn't misplace it?";
 546                         close;
 547                 case 2:
 548                         mes "[Fayruz]";
 549                         mes "Ah, I see. Well,";
 550                         mes "thanks to your help,";
 551                         mes "I've made a great deal";
 552                         mes "of progress on my thesis.";
 553                         mes "I really appreciate what you";
 554                         mes "have done for me, adventurer.";
 555                         close;
 556                 }
 557         }
 558
 559 function Func_JupHist {
 560         setarray .@arg[0], getarg(0), getarg(1), getarg(2,0), getarg(3,0);
 561         switch(yuno_hist) {
 562         case 4:
 563                 mes "[Fayruz]";
 564                 mes "Thank you so much,";
 565                 mes "you don't know what";
 566                 mes "this means to me! Okay,";
 567                 mes "please relax and take a";
 568                 mes "seat. Close your eyes while";
 569                 mes "I tell you this ancient story.";
 570                 next;
 571                 mes "^3355FFFayruz begins to";
 572                 mes "relate an ancient tale";
 573                 mes "about Juperos that seems";
 574                 mes "typical for a classic story, but her way of storytelling subtly";
 575                 mes "draws you into a vicarious, yet extremely vivid experience.";
 576                 next;
 577                 mes "^3355FFYou feel the protagonist's";
 578                 mes "glories and tragedies as if";
 579                 mes "you were actually there with";
 580                 mes "the hero on his journeys. The";
 581                 mes "tale eventually comes to an end";
 582                 mes "and you awaken from the trance,";
 583                 mes "gently brought back to reality.^000000";
 584                 delitem .@arg[0],1;
 585                 set yuno_hist,5;
 586                 jupe_hist = .@arg[1];
 587                 getexp (checkre(3))?10000:100000,0;
 588                 changequest 11019,11020;
 589                 next;
 590                 mes "[Fayruz]";
 591                 mes "Everyone can relate";
 592                 mes "to these old, classic";
 593                 mes "stories. I hope this tale had";
 594                 mes "as meaning for you as it did";
 595                 mes "for me when I first heard it.";
 596                 next;
 597                 mes "[Fayruz]";
 598                 mes "If you can find me";
 599                 mes "another artifact from";
 600                 mes "Juperos, I'll share another";
 601                 mes "tale like that with you. Now";
 602                 mes "how does that sound? Okay";
 603                 mes "then, I'll see you, adventurer~";
 604                 close;
 605         case 5:
 606                 if (countitem(.@arg[0]) || countitem(.@arg[1]) || countitem(.@arg[2])) {
 607                         mes "[Fayruz]";
 608                         mes "Oh, that's unexpected.";
 609                         mes "This Transparent Plate";
 610                         mes "seems to have been made";
 611                         mes "in a different era than the";
 612                         mes "one you gave me earlier.";
 613                         mes "How intriguing...";
 614                         next;
 615                         mes "[Fayruz]";
 616                         mes "*Sigh* I really wish";
 617                         mes "that I could explore";
 618                         mes "Juperos on my own, but";
 619                         mes "I'm just not strong enough.";
 620                         mes "In a way, I'm quite jealous of you. But it can't be helped...";
 621                         next;
 622                         mes "[Fayruz]";
 623                         mes "You know, that reminds";
 624                         mes "me of this great story of";
 625                         mes "a tragic hero that I'd like to";
 626                         mes "share with you. Let your";
 627                         mes "mind wander as I relate this ageless, yet bittersweet tale...";
 628                         next;
 629                         mes "^3355FFFayruz tells you a story";
 630                         mes "with a bright beginning, full";
 631                         mes "of hope that fills you with the";
 632                         mes "bliss of the heavens, but then";
 633                         mes "suddenly plummets you into all the despair and torment of hell.^000000";
 634                         next;
 635                         mes "^3355FFThe story finally";
 636                         mes "reaches its ending";
 637                         mes "and you're surprised";
 638                         mes "to find yourself sitting";
 639                         mes "in the Juno Library.^000000";
 640                         next;
 641                         mes "[Fayruz]";
 642                         mes "I know it's a very";
 643                         mes "depressing story, but";
 644                         mes "I hope you enjoyed it.";
 645                         mes "I think you'd agree that";
 646                         mes "it contains a truth about";
 647                         mes "mankind that can't be ignored.";
 648                         if (countitem(.@arg[0])) {
 649                                 delitem .@arg[0],1;
 650                                 if (.@arg[0] == 7352) set jupe_hist,jupe_hist +1;
 651                                 else set jupe_hist,jupe_hist +2;
 652                         }
 653                         else if (countitem(.@arg[1])) {
 654                                 delitem .@arg[1],1;
 655                                 if (.@arg[1] == 7353) set jupe_hist,jupe_hist +2;
 656                                 else set jupe_hist,jupe_hist +4;
 657                         }
 658                         else {
 659                                 delitem .@arg[2],1;
 660                                 if (.@arg[2] == 7354) set jupe_hist,jupe_hist +4;
 661                                 else set jupe_hist,jupe_hist +8;
 662                         }
 663                         set yuno_hist,6;
 664                         changequest 11020,11021;
 665                         getexp (checkre(3))?10000:100000,0;
 666                         next;
 667                         mes "[Fayruz]";
 668                         mes "By now I'm sure you've";
 669                         mes "figured that these classic";
 670                         mes "tales are like condensed";
 671                         mes "experiences, refined and";
 672                         mes "immutable truths that we";
 673                         mes "can see in our own reality.";
 674                         next;
 675                         mes "[Fayruz]";
 676                         mes "If you find more of";
 677                         mes "these Transparent";
 678                         mes "Plates in Juperos, I'd be";
 679                         mes "very happy to share another";
 680                         mes "story with you, "+strcharinfo(0)+".";
 681                         close;
 682                 }
 683                 else if (countitem(.@arg[3])) {
 684                         mes "[Fayruz]";
 685                         mes "Oh, this one seems";
 686                         mes "to have been created";
 687                         mes "in a similar era as the";
 688                         mes "one you gave me earlier.";
 689                         mes "I'm not sure how much new";
 690                         mes "information this may provide...";
 691                         next;
 692                         mes "[Fayruz]";
 693                         mes "Still, I'm sure this will";
 694                         mes "helpful in my research. I just";
 695                         mes "won't be as making progress";
 696                         mes "as quickly as I had projected.";
 697                         mes "Please, I'd like you to take this as a token of my gratitude.";
 698                         delitem .@arg[3],1;
 699                         getitem 644,1;
 700                         next;
 701                         mes "[Fayruz]";
 702                         mes "Now if you'll excuse";
 703                         mes "me, I need to go back";
 704                         mes "to compiling my research...";
 705                         mes "Thank you so much for";
 706                         mes "your help, "+strcharinfo(0)+".";
 707                         close;
 708                 }
 709                 else {
 710                         mes "[Fayruz]";
 711                         mes "Oh. There isn't anything";
 712                         mes "here that would help in my";
 713                         mes "research, but thank you anyway.";
 714                         mes "If you find anything else while";
 715                         mes "you're in Juperos, please come back and show it to me, alright?";
 716                         close;
 717                 }
 718         case 7:
 719                 if (countitem(.@arg[0]) || countitem(.@arg[1])) {
 720                         mes "[Fayruz]";
 721                         mes "Is this another";
 722                         mes "Transparent Plate?";
 723                         mes "Yes, it's quite different";
 724                         mes "than the last one you";
 725                         mes "brought over to me...";
 726                         mes "This is so exciting!";
 727                         next;
 728                         mes "[Fayruz]";
 729                         mes "Oh. You must be thinking";
 730                         mes "that I'm a complete academia";
 731                         mes "addict. Well, my life might be";
 732                         mes "a little uneventful, but there";
 733                         mes "are other things I think about!";
 734                         mes "Like, well... It's weird but...";
 735                         next;
 736                         mes "[Fayruz]";
 737                         mes "You see, there's this";
 738                         mes "guy that I like. I'm not sure";
 739                         mes "where he might be now, but";
 740                         mes "his name is Nadim Amal. He's";
 741                         mes "my friend's brother who I first";
 742                         mes "met 10 years ago. ^333333*Sigh...*^000000";
 743                         next;
 744                         mes "[Fayruz]";
 745                         mes "Just recently, I saw";
 746                         mes "him with his sister, my";
 747                         mes "friend from Morroc. It's";
 748                         mes "weird to think that I'd have";
 749                         mes "these feelings for him after";
 750                         mes "all this time, isn't it? Oh...!";
 751                         next;
 752                         mes "[Fayruz]";
 753                         mes "I really should repay";
 754                         mes "you for this Transparent";
 755                         mes "Plate. Why don't I tell you";
 756                         mes "the scariest story that I know?";
 757                         next;
 758                         mes "^3355FFFayruz tells you a";
 759                         mes "creepy horror story that";
 760                         mes "makes you shiver with fear.";
 761                         mes "You've heard other ghost";
 762                         mes "stories, but you've never been";
 763                         mes "so deeply immersed in one before.^000000";
 764                         next;
 765                         mes "It is only when the";
 766                         mes "story ends and you return";
 767                         mes "to your senses that you notice that you're soaked in cold sweat.^000000";
 768                         next;
 769                         mes "[Fayruz]";
 770                         mes "It may be a natural";
 771                         mes "response, but all people";
 772                         mes "fear the unknown in one way";
 773                         mes "or another. Scary stories are";
 774                         mes "appealing because we actually";
 775                         mes "like the strange and grotesque.";
 776                         if (countitem(.@arg[0])) {
 777                                 delitem .@arg[0],1;
 778                                 if (.@arg[0] == 7352) set jupe_hist,jupe_hist +1;
 779                                 else if (.@arg[0] == 7353) set jupe_hist,jupe_hist +2;
 780                                 else set jupe_hist,jupe_hist +4;
 781                         }
 782                         else if (countitem(.@arg[1])) {
 783                                 delitem .@arg[1],1;
 784                                 if (.@arg[1] == 7353) set jupe_hist,jupe_hist +2;
 785                                 else if (.@arg[1] == 7354) set jupe_hist,jupe_hist +4;
 786                                 else set jupe_hist,jupe_hist +8;
 787                         }
 788                         set yuno_hist,8;
 789                         changequest 11021,11022;
 790                         getexp (checkre(3))?10000:100000,0;
 791                         next;
 792                         mes "[Fayruz]";
 793                         mes "Well... That's just my";
 794                         mes "opinion. Anyway, if you";
 795                         mes "find anything else in Juperos";
 796                         mes "that may help in my research,";
 797                         mes "please come back and show it";
 798                         mes "to me, alright? See you later~";
 799                         close;
 800                 }
 801                 else if (countitem(.@arg[2]) || countitem(.@arg[3])) {
 802                         mes "[Fayruz]";
 803                         mes "Oh, this one seems";
 804                         mes "to have been created";
 805                         mes "in a similar era as the";
 806                         mes "one you gave me earlier.";
 807                         mes "I'm not sure how much new";
 808                         mes "information this may provide...";
 809                         next;
 810                         mes "[Fayruz]";
 811                         mes "Still, I'm sure this will";
 812                         mes "helpful in my research. I just";
 813                         mes "won't be as making progress";
 814                         mes "as quickly as I had projected.";
 815                         mes "Please, I'd like you to take this as a token of my gratitude.";
 816                         next;
 817                         mes "[Fayruz]";
 818                         mes "Now if you'll excuse";
 819                         mes "me, I need to go back";
 820                         mes "to compiling my research...";
 821                         mes "Thank you so much for";
 822                         mes "your help, "+strcharinfo(0)+".";
 823                         if (countitem(.@arg[2])) delitem .@arg[2],1;
 824                         else if (countitem(.@arg[3])) delitem .@arg[3],1;
 825                         getitem 644,1;
 826                         close;
 827                 }
 828                 else {
 829                         mes "[Fayruz]";
 830                         mes "Oh. There isn't anything";
 831                         mes "here that would help in my";
 832                         mes "research, but thank you anyway.";
 833                         mes "If you find anything else while";
 834                         mes "you're in Juperos, please come back and show it to me, alright?";
 835                         close;
 836                 }
 837         case 9:
 838                 if (countitem(.@arg[0])) {
 839                         mes "[Fayruz]";
 840                         mes "Oooh...! This one is";
 841                         mes "much different than the";
 842                         mes "other ones you gave me";
 843                         mes "before. This should provide";
 844                         mes "a wealth of brand new insights";
 845                         mes "into the Juperos civilization!";
 846                         next;
 847                         mes "[Fayruz]";
 848                         mes "All the Transparent";
 849                         mes "Plates you've given me";
 850                         mes "should contain more than";
 851                         mes "enough data for me to fully";
 852                         mes "complete my research thesis.";
 853                         mes "Once again, thank you so much~";
 854                         next;
 855                         mes "[Fayruz]";
 856                         mes "Still, that doesn't mean that";
 857                         mes "I will stop collecting data for";
 858                         mes "my research. Anyway, I have one last story to tell you, about";
 859                         mes "a man of pure heart chosen by the gods to serve and protect mankind.";
 860                         next;
 861                         mes "[Fayruz]";
 862                         mes "For this purpose he was given";
 863                         mes "gaudy armor which contained";
 864                         mes "amazing powers, as well as a";
 865                         mes "book detailing the instructions";
 866                         mes "for its use. However, he promptly";
 867                         mes "lost these instructions...";
 868                         next;
 869                         mes "^3355FFThe story about the";
 870                         mes "greatest Juperosian hero";
 871                         mes "that Fayruz tells you is very";
 872                         mes "humorous at first, but then it";
 873                         mes "covers the entire spectrum";
 874                         mes "of emotion and humanity...";
 875                         next;
 876                         mes "^3355FFThe story ends and you";
 877                         mes "are left with a swelling";
 878                         mes "feeling of indefatigable";
 879                         mes "hope and inspiration...";
 880                         mes "You can make it if you try!^000000";
 881                         if (.@arg[0] == 7352) set jupe_hist,jupe_hist+1;
 882                         else if (.@arg[0] == 7353) set jupe_hist,jupe_hist+2;
 883                         else if (.@arg[0] == 7354) set jupe_hist,jupe_hist+4;
 884                         else set jupe_hist,jupe_hist+8;
 885                         set yuno_hist,10;
 886                         completequest 11022;
 887                         delitem .@arg[0],1;
 888                         getexp (checkre(3))?10000:100000,0;
 889                         next;
 890                         mes "[Fayruz]";
 891                         mes "Well, that is the";
 892                         mes "last and the best story";
 893                         mes "that I have to share";
 894                         mes "with you. Perhaps next";
 895                         mes "time, I'll fill you in on my";
 896                         mes "research progress~";
 897                         close;
 898                 }
 899                 else if (countitem(.@arg[1]) || countitem(.@arg[2]) || countitem(.@arg[3])) {
 900                         mes "[Fayruz]";
 901                         mes "Hmm...";
 902                         mes "This one seems to be created in a similar time";
 903                         mes "as the previous one.";
 904                         next;
 905                         mes "[Fayruz]";
 906                         mes "Don't you worry.";
 907                         mes "This will help my research of course,";
 908                         mes "although I do not think this will";
 909                         mes "help me in advancing my research";
 910                         mes "with a great speed unlike this other one.";
 911                         next;
 912                         mes "[Fayruz]";
 913                         mes "Please take this as a token of my gratitude.";
 914                         next;
 915                         mes "[Fayruz]";
 916                         mes "Now, excuse me. I need to go back to my research.";
 917                         if (countitem(.@arg[1])) delitem .@arg[1],1;
 918                         else if (countitem(.@arg[2])) delitem .@arg[2],1;
 919                         else delitem .@arg[3],1;
 920                         getitem 644,1;
 921                         close;
 922                 }
 923                 else {
 924                         mes "[Fayruz]";
 925                         mes "Oh. There isn't anything";
 926                         mes "here that would help in my";
 927                         mes "research, but thank you anyway.";
 928                         mes "If you find anything else while";
 929                         mes "you're in Juperos, please come back and show it to me, alright?";
 930                         close;
 931                 }
 932         }
 933 }
 934 }
 935
 936 yuno_in04,186,125,4     script  Bundle of Files 111,{
 937         mes "^8B6914*Thesis: The Fall of Juperos*";
 938         mes "By Fayruz Khrhiyha";
 939         mes "Sage Castle Researcher^000000";
 940         next;
 941         switch(select("Table of Contents.:Leave it alone.")) {
 942         case 1:
 943                 if (yuno_hist > 4) {
 944                         mes "^8B6914 1. Preface";
 945                         mes " 2. Juperos Background";
 946                         mes " 3. Theory Behind Its Fall^000000";
 947                         next;
 948                         switch(select("Preface:Juperos Background:Theory Behind Its Fall:Leave it alone.")) {
 949                         case 1:
 950                                 mes "^8B6914Scholars are certain";
 951                                 mes "that the Juperos civilization";
 952                                 mes "used to be located above the";
 953                                 mes "ground, but it is now buried";
 954                                 mes "beneath the El Mes Plateau.";
 955                                 mes "The reasons for the city's";
 956                                 if (yuno_hist < 9) {
 957                                         mes "ruin are still nebulous...^000000";
 958                                         next;
 959                                         mes "^8B6914There is much speculation";
 960                                         mes "about the reasons for Jupero's";
 961                                         mes "downfall, but any documentation";
 962                                         mes "from that time period has been";
 963                                         mes "difficult to find. As for now, any evidence we have regarding";
 964                                         mes "Juperos is inconclusive.^000000";
 965                                         next;
 966                                         mes "^8B6914In spite of this lack";
 967                                         mes "of empirical or concrete";
 968                                         mes "data on the civilization of";
 969                                         mes "Juperos, our modern world";
 970                                         mes "may be able to learn much";
 971                                         mes "from that ancient city's ruins.";
 972                                         mes "..................^000000";
 973                                         if (yuno_hist < 7) {
 974                                                 next;
 975                                                 mes "["+strcharinfo(0)+"]";
 976                                                 mes "Hmmm...";
 977                                                 mes "A whole chapter";
 978                                                 mes "dedicated to saying,";
 979                                                 mes "''We know absolutely";
 980                                                 mes "nothing about something.''";
 981                                                 mes "I should write a book~";
 982                                         }
 983                                         close;
 984                                 }
 985                                 mes "ruin are still in debate...^000000";
 986                                 next;
 987                                 mes "^8B6914However, new findings";
 988                                 mes "regarding the history";
 989                                 mes "of Juperos have allowed";
 990                                 mes "us to make a few conclusions.^000000";
 991                                 close;
 992                         case 2:
 993                                 if (yuno_hist < 9) {
 994                                         mes "^8B6914...";
 995                                         mes "......";
 996                                         mes "..........^000000";
 997                                         next;
 998                                         mes "["+strcharinfo(0)+"]";
 999                                         mes "This is all just idle";
1000                                         mes "conjecture! This paper";
1001                                         mes "isn't developed enough";
1002                                         mes "yet to be a real thesis...";
1003                                         close;
1004                                 }
1005                                 else if (yuno_hist == 9) {
1006                                         mes "^8B6914Juperos was built over";
1007                                         mes "a thousand years ago in";
1008                                         mes "an era of peace just after";
1009                                         mes "a major war. Contrary to";
1010                                         mes "popular belief, there isn't any";
1011                                         mes "evidence proving that Juno may";
1012                                         mes "have descended from Juperos.^000000";
1013                                         next;
1014                                         mes "^8B6914In fact, there is a";
1015                                         mes "strong possibility that";
1016                                         mes "another war, between Juno";
1017                                         mes "and Juperos, resulted in Juno's";
1018                                         mes "independence from Juperos and";
1019                                         mes "the destruction of any existing";
1020                                         mes "documentation from that era.^000000";
1021                                         next;
1022                                         mes "["+strcharinfo(0)+"]";
1023                                         mes "Yes... Of course!";
1024                                         mes "It all makes sense now!";
1025                                         close;
1026                                 }
1027                                 mes "^8B6914Juperos was built over";
1028                                 mes "a thousand years ago in";
1029                                 mes "an era of peace just after";
1030                                 mes "a major war. There is now";
1031                                 mes "direct evidence linking Juno";
1032                                 mes "to Juperos proving that Juno";
1033                                 mes "was but a part of Juperos.^000000";
1034                                 next;
1035                                 mes "^8B6914Just like Juno, Juperos";
1036                                 mes "was a society that prided";
1037                                 mes "itself on its advancement";
1038                                 mes "in the sciences which played";
1039                                 mes "a permeating role in civilized";
1040                                 mes "life. Science was reponsible for Juperos's rise and downfall.";
1041                                 close;
1042                         case 3:
1043                                 if (yuno_hist < 10) {
1044                                         mes "^8B6914...";
1045                                         mes "......";
1046                                         mes "..........^000000";
1047                                         next;
1048                                         mes "["+strcharinfo(0)+"]";
1049                                         mes "Huh. This writer keeps";
1050                                         mes "talking about theories,";
1051                                         mes "but the more I read, the";
1052                                         mes "less clear I am on what";
1053                                         mes "the theory actually is.";
1054                                         mes "I don't think there is one...";
1055                                         emotion e_swt,1;
1056                                         close;
1057                                 }
1058                                 mes "^8B6914What is most unsettling";
1059                                 mes "is recent evidence, including";
1060                                 mes "a first hand written account,";
1061                                 mes "regarding the role of one of";
1062                                 mes "Jupero's foremost scientists";
1063                                 mes "in that city's rise and fall.";
1064                                 next;
1065                                 mes "^8B6914If these writings are";
1066                                 mes "authentic, then what actually";
1067                                 mes "happened was that a scientific";
1068                                 mes "revolution occurred as a direct";
1069                                 mes "result of one scientist's effort to manipulate the energies of the";
1070                                 mes "artifact known as Ymir's heart.";
1071                                 next;
1072                                 mes "^8B6914This one man and Ymir's";
1073                                 mes "Heart are credited with";
1074                                 mes "the success and prosperity";
1075                                 mes "of the Jupero's civilization.";
1076                                 mes "However, there are various accounts prior to Jupero's fall";
1077                                 mes "detailing his work with chimera...^000000";
1078                                 next;
1079                                 mes "^8B6914This scientist, supposedly";
1080                                 mes "in his passion to benefit his";
1081                                 mes "people by finding a scientific";
1082                                 mes "method for immortality by using";
1083                                 mes "chimera for testing, was driven";
1084                                 mes "insane. He experimented on";
1085                                 mes "himself with disatrous results.^000000";
1086                                 next;
1087                                 mes "^8B6914There was an error in the";
1088                                 mes "energy calibration of Ymir's";
1089                                 mes "Heart and the scientist was";
1090                                 mes "transformed into the monster";
1091                                 mes "we now know as Chimera. He";
1092                                 mes "and his test subjects were set";
1093                                 mes "loose into the city of Juperos.^000000";
1094                                 next;
1095                                 mes "^8B6914These immortal Chimeras";
1096                                 mes "razed the entire city, killing";
1097                                 mes "countless people. Apparently,";
1098                                 mes "a team of scientists were able";
1099                                 mes "to salvage a fragment of Ymir's";
1100                                 mes "Heart, and use it to lauch part";
1101                                 mes "of Juperos into the sky.^000000";
1102                                 next;
1103                                 mes "^8B6914That section of Juperos";
1104                                 mes "eventually developed into";
1105                                 mes "the city of Juno. Since the";
1106                                 mes "scientists who launched Juno into the sky all immediately died";
1107                                 mes "afterwards from an unknown cause, they left no documentation.^000000";
1108                                 next;
1109                                 mes "^8B6914The Chimera, and the";
1110                                 mes "laboratory in which it";
1111                                 mes "was created, is rumored to";
1112                                 mes "remain beneath the ruins of";
1113                                 mes "the once great city of Juperos.^000000";
1114                                 close;
1115                         case 4:
1116                                 mes "["+strcharinfo(0)+"]";
1117                                 mes "Ugh... My head hurts";
1118                                 mes "too much from reading";
1119                                 mes "a book for smarty people.";
1120                                 mes "I know! I'll play videogames!";
1121                                 close;
1122                         }
1123                 }
1124                 switch(select("Preface:Close the file.")) {
1125                 case 1:
1126                         mes "^8B6914Scholars are certain";
1127                         mes "that the Juperos civilization";
1128                         mes "used to be located above the";
1129                         mes "ground, but it is now buried";
1130                         mes "beneath the El Mes Plateau.";
1131                         mes "The reasons for the city's";
1132                         mes "ruin are still nebulous...^000000";
1133                         next;
1134                         mes "^8B6914There is much speculation";
1135                         mes "about the reasons for Jupero's";
1136                         mes "downfall, but any documentation";
1137                         mes "from that time period has been";
1138                         mes "difficult to find. As for now, any evidence we have regarding";
1139                         mes "Juperos is inconclusive.^000000";
1140                         next;
1141                         mes "^8B6914In spite of this lack";
1142                         mes "of empirical or concrete";
1143                         mes "data on the civilization of";
1144                         mes "Juperos, our modern world";
1145                         mes "may be able to learn much";
1146                         mes "from that ancient city's ruins.";
1147                         mes "..................^000000";
1148                         if (!yuno_hist) set yuno_hist,1;
1149                         next;
1150                         mes "["+strcharinfo(0)+"]";
1151                         mes "This...";
1152                         mes "This is supposed to";
1153                         mes "be a research thesis?";
1154                         mes "There's barely any";
1155                         mes "research in it...";
1156                         close;
1157                 case 2:
1158                         mes "["+strcharinfo(0)+"]";
1159                         mes "Hmm...";
1160                         mes "This isn't heavy";
1161                         mes "enough to be a real";
1162                         mes "academic work. It must";
1163                         mes "not even be finished yet.";
1164                         close;
1165                 }
1166         case 2:
1167                 if (yuno_hist < 5) {
1168                         mes "["+strcharinfo(0)+"]";
1169                         mes "Nah...";
1170                         mes "I'm tired of reading.";
1171                         mes "Ironically enough.";
1172                         close;
1173                 }
1174                 else if (yuno_hist < 7) {
1175                         mes "["+strcharinfo(0)+"]";
1176                         mes "I don't feel like";
1177                         mes "reading this. Not";
1178                         mes "enough pictures...";
1179                         close;
1180                 }
1181                 else if (yuno_hist < 9) {
1182                         mes "["+strcharinfo(0)+"]";
1183                         mes "It looks very sophisticated...";
1184                         close;
1185                 }
1186                 else if (yuno_hist < 10) {
1187                         mes "["+strcharinfo(0)+"]";
1188                         mes "I know this book...";
1189                         mes "But I don't feel like";
1190                         mes "reading it right now.";
1191                         close;
1192                 }
1193                 else {
1194                         mes "["+strcharinfo(0)+"]";
1195                         mes "This thesis is";
1196                         mes "looking pretty good~";
1197                         mes "Of course, I did have";
1198                         mes "a hand in making it...";
1199                         close;
1200                 }
1201         }
1202 }
1203
1204 yuno_in04,188,118,4     script  Book#juperos    111,{
1205         if (yuno_hist > 7) {
1206                 mes "^8B6914*Self-Honesty*";
1207                 mes "*'Benefits Fo' Life!'*";
1208                 mes "By Stephen Oyoung";
1209                 mes " ";
1210                 mes " ";
1211                 mes "Publisher:";
1212                 mes "Wushu Publishing, Co.^000000";
1213                 next;
1214                 mes "["+strcharinfo(0)+"]";
1215                 mes "W-whoa!";
1216                 mes "This book wasn't";
1217                 mes "here before! It looks";
1218                 mes "pretty interesting...";
1219                 close;
1220         }
1221         mes "["+strcharinfo(0)+"]";
1222         mes "You know what?";
1223         mes "I think I'll just flip";
1224         mes "through some pages";
1225         mes "from a random book.";
1226         mes "Hmmm, let's see...";
1227         next;
1228         mes "^8B6914''Admiral, the Kylorians are";
1229         mes "still advancing!'' Commander";
1230         mes "McKenrick announced without";
1231         mes "his usual swagger. ''They're...";
1232         mes "They're not stopping!'' But";
1233         mes "Admiral Leh's eyes were a cold,";
1234         mes "unfeeling shade of sternness.^000000";
1235         next;
1236         mes "^8B6914''Let the goddamned space";
1237         mes "aliens come,'' hissed Leh.";
1238         mes "''We don't stand a chance";
1239         mes "without the Zenoi Sword";
1240         mes "to summon the power of";
1241         mes "GOD-POING. It's... It's";
1242         mes "all over. Damn it all...''^000000";
1243         next;
1244         mes "^8B6914The doors burst open as";
1245         mes "Bucky flew into the room.";
1246         mes "''The Zenoi Sword! The";
1247         mes "Zenoi Sword! Someone's";
1248         mes "found it!'' the boy yelled.";
1249         mes "''Really?! We better hurry:";
1250         mes "Earth doesn't have much time!''^000000";
1251         next;
1252         mes "["+strcharinfo(0)+"]";
1253         mes "...";
1254         mes "......";
1255         mes "Whoa. I really";
1256         mes "should have read";
1257         mes "this masterpiece";
1258         mes "from the beginning...";
1259         close;
1260 }
1261
1262 // Bronze Statue - juperos_01 99 112
1263
1264 juperos_01,99,112,4     script  Bronze Statue#1 844,{
1265         if (yuno_hist > 3) {
1266                 mes "^3355FF''Do you wish to see";
1267                 mes "the end of the madness?";
1268                 mes "He is waiting where the three";
1269                 mes "columns were destroyed, where";
1270                 mes "two hundred illusions wander.''^000000";
1271                 close;
1272         }
1273         else if (yuno_hist == 3) {
1274                 mes "["+strcharinfo(0)+"]";
1275                 mes "I better go and";
1276                 mes "see Fayruz in the";
1277                 mes "Juno Library and tell";
1278                 mes "her about the inscription.";
1279                 close;
1280         }
1281         else {
1282                 mes "^3355FFThere's a peculiar";
1283                 mes "engraving on the";
1284                 mes "Bronze Statue's rod.^000000";
1285                 next;
1286                 switch(select("Investigate:Ignore it")) {
1287                 case 1:
1288                         mes "^3355FFIt's an inscription that's";
1289                         mes "written in an old language";
1290                         mes "that you can't understand,";
1291                         mes "but have no problem reading";
1292                         mes "and making out the sounds";
1293                         mes "for some weird reason.^000000";
1294                         next;
1295                         mes "["+strcharinfo(0)+"]";
1296                         mes "This is creepy!";
1297                         mes "I know that I'm not";
1298                         mes "supposed to be able";
1299                         mes "to read this, but here";
1300                         mes "I am. I know what sounds";
1301                         mes "all of these letters make...";
1302                         next;
1303                         if (yuno_hist == 2) {
1304                                 mes "["+strcharinfo(0)+"]";
1305                                 mes "Then again, Fayruz did";
1306                                 mes "say this was enchanted.";
1307                                 mes "Okay, I guess I'll go back";
1308                                 mes "to the Juno Library and";
1309                                 mes "tell her what I found.";
1310                                 set yuno_hist,3;
1311                                 changequest 11017,11018;
1312                                 close;
1313                         }
1314                         mes "["+strcharinfo(0)+"]";
1315                         mes "Huh. Only a scholar,";
1316                         mes "maybe someone even in";
1317                         mes "Juno, could make sense";
1318                         mes "of what this stuff says.";
1319                         close;
1320                 case 2:
1321                         close;
1322                 }
1323         }
1324 }
1325
1326 yuno_in04,169,109,1     script  Ambitious Hollgrehenn   111,{
1327         mes "*Hollgrehenn: The Ambition*";
1328         mes "By Aragham Caul*";
1329         mes " ";
1330         mes " ";
1331         mes " ";
1332         mes " ";
1333         mes "Publisher:";
1334         mes "Muha Books, Co.";
1335         next;
1336         mes "...";
1337         mes "He would stop at nothing";
1338         mes "to have the greatest weapon";
1339         mes "in the world in his possession.";
1340         mes "He became a smith so that he";
1341         mes "could discern which weapons";
1342         mes "were the most powerful...";
1343         next;
1344         mes "[" + strcharinfo(0) + "]";
1345         mes "That's strange...";
1346         mes "The next page";
1347         mes "has been torn out.";
1348         close;
1349 }
1350
1351 yuno_in04,174,111,1     script  Penniless Hollgrehenn   111,{
1352         mes "^8B6914*Penniless Hollgrehenn*";
1353         mes " * Pennyless Hollgrehenn * ";
1354         mes "By Hollgrehenn";
1355         mes " ";
1356         mes " ";
1357         mes "Publisher:";
1358         mes "Muha Books, Co.^000000";
1359         next;
1360         mes "["+strcharinfo(0)+"]";
1361         mes "This book looks";
1362         mes "like a total piece of";
1363         mes "crap. I'd have more";
1364         mes "fun getting my teeth";
1365         mes "drilled by a blindfolded";
1366         mes "dentist. Or would I...?";
1367         close;
1368 }
1369
1370 yuno_in04,102,106,1     script  Popular Feasts  111,{
1371         mes "^8B6914*Popular Feasts*";
1372         mes "By Cabbage Pickle Community";
1373         mes " ";
1374         mes " ";
1375         mes " ";
1376         mes "Publisher:";
1377         mes "Muha Books, Co.^000000";
1378         next;
1379         switch(select(" 1. Fried Yoyo Tails: 14. Poring Salad: 252. Beak Soup")) {
1380         case 1:
1381                 mes "^8B6914...";
1382                 mes "If possible, try";
1383                 mes "to use tails cut";
1384                 mes "from live Yoyos.";
1385                 mes "Now, as for skinning...^000000";
1386                 next;
1387                 mes "["+strcharinfo(0)+"]";
1388                 mes "Um...";
1389                 mes "Barf?";
1390                 close;
1391         case 2:
1392                 mes "["+strcharinfo(0)+"]";
1393                 mes "Hey, this page is gone!";
1394                 mes "I guess Poring Salad is";
1395                 mes "the most popular feast";
1396                 mes "in this entire book.";
1397                 close;
1398         case 3:
1399                 mes "^8B6914...";
1400                 mes "Fry the cut beaks";
1401                 mes "using herbal oil until";
1402                 mes "crisp. Then, pour the";
1403                 mes "feathers into a blender...^000000";
1404                 next;
1405                 mes "["+strcharinfo(0)+"]";
1406                 mes "Hmm...";
1407                 mes "Sounds a little";
1408                 mes "too gourmet for my";
1409                 mes "taste. And by ''gourmet,''";
1410                 mes "I mean, ''totally gross.''";
1411                 close;
1412         }
1413 }
1414
1415 yuno_in04,111,108,1     script  Hamerun, Rat Hunter     111,{
1416         mes "["+strcharinfo(0)+"]";
1417         mes "I can't...";
1418         mes "reach it...!";
1419         close;
1420 }
1421
1422 yuno_in04,167,127,1     script  Red Book        111,{
1423         mes "^3355FFYou find a book";
1424         mes "with red binding.^000000";
1425         next;
1426         switch(select("Read.:Leave it alone.")) {
1427         case 1:
1428                 mes "^8B6914...^000000";
1429                 next;
1430                 mes "^8B6914...";
1431                 mes "......^000000";
1432                 next;
1433                 mes "^8B6914...";
1434                 mes "......";
1435                 mes ".........^000000";
1436                 next;
1437                 mes "^8B6914...";
1438                 mes "......";
1439                 mes ".........";
1440                 mes "............^000000";
1441                 next;
1442                 mes "["+strcharinfo(0)+"]";
1443                 mes "This is...";
1444                 mes "A compilation of";
1445                 mes "Shakespeare in ";
1446                 mes "coloring book format?";
1447                 next;
1448                 mes "["+strcharinfo(0)+"]";
1449                 mes "Wait...";
1450                 mes "Why would fans of";
1451                 mes "Shakespeare even";
1452                 mes "want a coloring book?";
1453                 next;
1454                 mes "["+strcharinfo(0)+"]";
1455                 mes "Hmm... Well...";
1456                 mes "I suppose little kids who";
1457                 mes "read Shakespeare would";
1458                 mes "appreciate something like that.";
1459                 next;
1460                 mes "["+strcharinfo(0)+"]";
1461                 mes "Hold on...";
1462                 mes "Do little kids who";
1463                 mes "are able to read the";
1464                 mes "works of Shakespeare";
1465                 mes "even exist? I hope not...";
1466                 close;
1467         case 2:
1468                 mes "["+strcharinfo(0)+"]";
1469                 mes "What a strange";
1470                 mes "and mysterious book.";
1471                 mes "I'll never know what's";
1472                 mes "inside unless I read it!";
1473                 mes "Come on! Doesn't the red";
1474                 mes "binding mean something?";
1475                 close;
1476         }
1477 }
1478
1479 yuno_in04,121,109,1     script  Scroll  111,{
1480         mes "^3355FFYou've found an";
1481         mes "antiquated scroll";
1482         mes "that's collected a";
1483         mes "layer of fine dust.^000000";
1484         next;
1485         switch(select("Peruse:Leave it alone")) {
1486         case 1:
1487                 mes "^8B6914Item Upgrade Introduction";
1488                 mes " ";
1489                 mes " ";
1490                 mes " ";
1491                 mes "1. Item Upgrade Definition";
1492                 mes " ";
1493                 mes "The key to success when";
1494                 mes "upgrading items comes from";
1495                 mes "only one place: Your ''Mind.''";
1496                 mes " ";
1497                 mes " ";
1498                 mes " ";
1499                 mes "2. Power of a Positive Attitude";
1500                 mes "Before trying to upgrade";
1501                 mes "an item, plan out how high";
1502                 mes "you want to upgrade and how";
1503                 mes "much you'll spend beforehand.";
1504                 mes "But like all ladies, Lady Luck";
1505                 mes "smiles when you fully splurge.^000000";
1506                 mes " ";
1507                 mes " ";
1508                 next;
1509                 mes "["+strcharinfo(0)+"]";
1510                 mes "Wait, wait...";
1511                 mes "This thing IS old.";
1512                 mes "I mean, it's obviously";
1513                 mes "written from a patriarchal";
1514                 mes "standpoint that promotes";
1515                 mes "bipartisan gender roles.";
1516                 next;
1517                 mes "["+strcharinfo(0)+"]";
1518                 mes "I'm...";
1519                 mes "I'm so offended.";
1520                 close;
1521         case 2:
1522                 mes "["+strcharinfo(0)+"]";
1523                 mes "This scroll is far too";
1524                 mes "primitive. There's been";
1525                 mes "all sorts of technological";
1526                 mes "reading advances that I can't";
1527                 mes "live without... Like pages.";
1528                 close;
1529         }
1530 }
1531
1532 yuno_in04,118,116,4     script  Paper   111,{
1533         mes "^3355FFIt's a piece of";
1534         mes "paper that looks";
1535         mes "like a personal letter.^000000";
1536         next;
1537         switch(select("Read it.:Leave it alone.")) {
1538         case 1:
1539                 if (yuno_hist > 7) {
1540                         mes "^8B6914P.S.";
1541                         mes "Please...";
1542                         mes "Come back to me.";
1543                         mes " ";
1544                         mes " ";
1545                         mes "Love,";
1546                         mes "Fayruz^000000";
1547                         close;
1548                 }
1549                 mes "^8B6914...";
1550                 mes "I can't forget your smile.";
1551                 mes "No matter what, even if you";
1552                 mes "hate me, I'll always have these";
1553                 mes "feelings just for you. You are";
1554                 mes "the one who is most special,";
1555                 mes "who means the most to my heart.^000000";
1556                 next;
1557                 mes "^8B6914I know we've had our";
1558                 mes "differences, but please";
1559                 mes "don't refuse my love. By";
1560                 mes "your hands, I hope that";
1561                 mes "you can forgive me for us.";
1562                 mes "- Love, Fayruz^000000";
1563                 next;
1564                 if (getpartnerid()) {
1565                         mes "["+strcharinfo(0)+"]";
1566                         mes "Ahhhhhh~";
1567                         mes "Love sure is nice!";
1568                         close;
1569                 }
1570                 mes "["+strcharinfo(0)+"]";
1571                 mes "What th--?!";
1572                 mes "Booooooooo!";
1573                 mes "Love stinks!";
1574                 close;
1575         case 2:
1576                 mes "["+strcharinfo(0)+"]";
1577                 mes "I guess I better";
1578                 mes "not look at this.";
1579                 mes "I mean, I might";
1580                 mes "regret reading it.";
1581                 close;
1582         }
1583 }
1584
1585 juperos_01,123,92,4     script  Stone Statue    844,{
1586         if (yuno_hist) {
1587                 mes "^3355FFIt's a stone statue";
1588                 mes "that looks exactly like";
1589                 mes "the one in the Juno Library.";
1590                 mes "However, it has sculptures";
1591                 mes "of books instead of real ones.^000000";
1592                 next;
1593                 mes "^3355FFIt's possible that the";
1594                 mes "statue in the Juno Library";
1595                 mes "was made after this one.";
1596                 mes "But who can be sure?^000000";
1597                 close;
1598         }
1599         mes "^3355FFIt's an old";
1600         mes "statue sculpted";
1601         mes "out of stone.^000000";
1602         close;
1603 }
1604
1605 juperos_01,99,71,4      script  Bronze Statue#2 844,{
1606         mes "^3355FFIt's an elaborate";
1607         mes "bronze statue that";
1608         mes "is twice the height of";
1609         mes "a normal human being.^000000";
1610         close;
1611 }
1612
1613 juperos_01,79,92,4      script  Sculpture       844,{
1614         mes "^3355FFIt's a sculpture that";
1615         mes "looks familiar to you.^000000";
1616         close;
1617 }
1618
1619 juperos_01,215,127,4    script  Machine Statue  844,{
1620         mes "^3355FFThis is the bust of a";
1621         mes "humanoid machine with";
1622         mes "a familiar Crest Piece";
1623         mes "carved into the middle.^000000";
1624         next;
1625         mes "^3355FFThe statue's entire";
1626         mes "form is mind boggling,";
1627         mes "but you manage to note";
1628         mes "that its outstretched";
1629         mes "arm points westward.^000000";
1630         close;
1631 }
1632
1633 //============================================================
1634 // Jupers Core access Story Event
1635 //============================================================
1636 //============================================================
1637 // 1rd Floor -> 2nd Floor
1638 //============================================================
1639 juperos_01,100,91,0     script  jupe_goto#1     -1,2,2,{
1640         end;
1641
1642 OnTouch_:
1643         initnpctimer "jupe_goto#1",1;
1644         mes "^777777["+ strcharinfo(0) +"]^000000";
1645         mes "This light...";
1646         mes "It feels like...";
1647         mes "Its warmth is...";
1648         mes "Wrapping all over me...";
1649         next;
1650         switch(select("Ah, it's so nice...:No! This is wrong!")) {
1651         case 1:
1652                 mes "^777777["+ strcharinfo(0) +"]^000000";
1653                 mes "Ahhhh...";
1654                 mes "It feels like";
1655                 mes "I'm floating...";
1656                 specialeffect2 EF_LIGHTSPHERE;
1657                 close2;
1658                 stopnpctimer;
1659                 warp "juperos_02",128,278;
1660                 break;
1661         case 2:
1662                 mes "^777777["+ strcharinfo(0) +"]^000000";
1663                 mes "N-No! This is";
1664                 mes "wrong! Something";
1665                 mes "weird's happening!";
1666                 mes "I gotta get away!";
1667                 close2;
1668                 stopnpctimer;
1669                 warp "juperos_01",96,91;
1670                 break;
1671         }
1672         end;
1673
1674 OnTimer10000:
1675         stopnpctimer;
1676         warp "juperos_02",128,278;
1677         donpcevent "jupe_goto#2::OnEnable";
1678         end;
1679 }
1680
1681 juperos_01,100,91,0     script  jupe_goto#2     -1,2,2,{
1682 OnInit:
1683         disablenpc "jupe_goto#2";
1684         end;
1685
1686 OnEnable:
1687         enablenpc "jupe_goto#2";
1688         disablenpc "jupe_goto#1";
1689         initnpctimer;
1690         end;
1691
1692 OnTouch_:
1693         warp "juperos_02",128,278;
1694         end;
1695
1696 OnTimer2000:
1697         enablenpc "jupe_goto#1";
1698         disablenpc "jupe_goto#2";
1699         end;
1700 }
1701
1702 //============================================================
1703 // 2nd Floor
1704 //============================================================
1705
1706 juperos_02,97,70,0      script  3F Gate Switch#jupe     -1,{
1707 OnInit:
1708         initnpctimer;
1709         end;
1710
1711 OnReset:
1712         killmonster "juperos_02","3F Gate Switch#jupe::OnMyMobDead";
1713         end;
1714
1715 OnEnable:
1716         enablenpc "3F Gate Switch#jupe";
1717         initnpctimer;
1718         end;
1719
1720 OnTimer5000:
1721         set .MyMobs,3;
1722         monster "juperos_02",24,275,"1st Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1723         monster "juperos_02",240,29,"2nd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1724         monster "juperos_02",282,183,"3rd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1725         stopnpctimer;
1726         end;
1727
1728 OnMyMobDead:
1729         set .MyMobs,.MyMobs-1;
1730         if (.MyMobs == 2)
1731                 mapannounce "juperos_02","Who are you to come here?",bc_map,"0xFF0000";
1732         else if (.MyMobs == 1)
1733                 mapannounce "juperos_02","Have you come seeking Juperos?! It no longer exists...",bc_map,"0xFF0000";
1734         else if (.MyMobs == 0) {
1735                 mapannounce "juperos_02","Have you come to see me? Fine! Find me first!",bc_map,"0xFF0000";
1736                 specialeffect2 EF_SCREEN_QUAKE;
1737                 soundeffectall "earth_quake.wav",0;
1738                 disablenpc "3F Gate Switch#jupe";
1739                 donpcevent "Restricted Area#jupe::OnEnable";
1740         }
1741         end;
1742 }
1743
1744
1745 juperos_02,130,149,0    script  Restricted Area#jupe    139,2,2,{
1746 OnInit:
1747         disablenpc "Restricted Area#jupe";
1748         end;
1749
1750 OnEnable:
1751         enablenpc "Restricted Area#jupe";
1752         initnpctimer;
1753         end;
1754
1755 OnTimer5000:
1756         mapannounce "juperos_02","Vroom! Vroom!",bc_map,"0xE559A2";
1757         end;
1758
1759 OnTimer7000:
1760         mapannounce "juperos_02","Attention, visitors.",bc_map,"0xE559A2";
1761         end;
1762
1763 OnTimer9000:
1764         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";
1765         end;
1766
1767 OnTimer9001:
1768 OnTimer23000:
1769 OnTimer46000:
1770 OnTimer69000:
1771 OnTimer92000:
1772 OnTimer115000:
1773 OnTimer161000:
1774 OnTimer184000:
1775 OnTimer207000:
1776 OnTimer230000:
1777 OnTimer253000:
1778 OnTimer276000:
1779 OnTimer299000:
1780 OnTimer322000:
1781 OnTimer345000:
1782 OnTimer368000:
1783 OnTimer391000:
1784 OnTimer414000:
1785 OnTimer460000:
1786 OnTimer483000:
1787 OnTimer506000:
1788 OnTimer529000:
1789 OnTimer552000:
1790         specialeffect EF_BIG_PORTAL;
1791         end;
1792
1793 OnTimer556000:
1794         mapannounce "juperos_02","Attention, visitors. The gate to the next zone will close shortly.",bc_map,"0xE559A2";
1795         end;
1796
1797 OnTimer561000:
1798         mapannounce "juperos_02","1 minute remaining until Gate Closure. ",bc_map,"0xE559A2";
1799         end;
1800
1801 OnTimer598000:
1802         specialeffect EF_BIG_PORTAL;
1803         end;
1804
1805 OnTimer600000:
1806         mapannounce "juperos_02","The gate is being closed...",bc_map,"0xE559A2";
1807         end;
1808
1809 OnTimer603000:
1810         mapannounce "juperos_02"," Switches will reactivate shortly.",bc_map,"0xE559A2";
1811         end;
1812
1813 OnTimer621000:
1814         disablenpc "Restricted Area#jupe";
1815         end;
1816
1817 OnTimer1200000:
1818         donpcevent "3F Gate Switch#jupe::OnEnable";
1819         stopnpctimer;
1820         end;
1821
1822 OnTouch_:
1823         warp "jupe_gate",50,167;
1824         end;
1825 }
1826
1827 //============================================================
1828 // Security Checkpoint 1-1
1829 //============================================================
1830 jupe_area1,88,224,0     script  #hole#1-1       844,{
1831         cutin "1",2;
1832         if ($@JupreArea1InUse == 1) {
1833                 mes "^3355FFThis seems like";
1834                 mes "some kind of device";
1835                 mes "that will allow you to";
1836                 mes "pass to the other side.";
1837                 mes "There's a slot where you";
1838                 mes "probably need to insert";
1839                 mes "some kind of object...^000000";
1840                 close2;
1841                 cutin "1",255;
1842                 end;
1843         }
1844         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
1845                 mes "^3355FFThis seems like";
1846                 mes "some kind of device";
1847                 mes "that will allow you to";
1848                 mes "pass to the other side.";
1849                 mes "There's a slot where you";
1850                 mes "probably need to insert";
1851                 mes "some kind of object...^000000";
1852                 next;
1853                 switch(select("Insert a Crest Piece.:Cancel.")) {
1854                 case 1:
1855                         if (countitem(7356) > 0) {
1856                                 mes "^3355FFYou take out your";
1857                                 mes "Crest Piece and place";
1858                                 mes "it into the slot where it";
1859                                 mes "happens to fit perfectly.^000000";
1860                                 specialeffect EF_TOPRANK;
1861                                 cutin "1-1",2;
1862                                 next;
1863                                 if ($@JupreArea1InUse == 1) {
1864                                         mes "^3355FFNothing happens.";
1865                                         mes "Perhaps an alarm or";
1866                                         mes "some other safety measure";
1867                                         mes "was activated to keep the";
1868                                         mes "Crest Piece from activating";
1869                                         mes "this transportation device.";
1870                                         mes "You retrieve the Crest Piece.^000000";
1871                                         close2;
1872                                         cutin "1-1",255;
1873                                         end;
1874                                 }
1875                                 else {
1876                                         mes "^3355FFThe slot rotates and";
1877                                         mes "the Crest Piece moves as";
1878                                         mes "if it were turning a key. You";
1879                                         mes "feel a weak tremor as a Warp";
1880                                         mes "Portal to the other side is";
1881                                         mes "activated. You then retrieve";
1882                                         mes "your Crest Piece.^000000";
1883                                         initnpctimer;
1884                                         donpcevent "Warp#1-1::OnEnable";
1885                                         enablenpc "Red Alarm#1-1";
1886                                         disablenpc "#hole#1-1";
1887                                         close2;
1888                                         cutin "1-1",255;
1889                                         end;
1890                                 }
1891                         }
1892                         else {
1893                                 mes "^3355FFUnfortunately, you're";
1894                                 mes "not carrying anything";
1895                                 mes "that might be able to fit";
1896                                 mes "into the slot and activate";
1897                                 mes "this mechanical device.^000000";
1898                                 close2;
1899                                 cutin "1",255;
1900                                 end;
1901                         }
1902                 case 2:
1903                         mes "[" + strcharinfo(0) + "]";
1904                         mes "Hmmm...";
1905                         mes "Do I have anything";
1906                         mes "that might make this";
1907                         mes "weird machine work?";
1908                         close2;
1909                         cutin "1",255;
1910                         end;
1911                 }
1912                 close;
1913         }
1914         else {
1915                 mes "^3355FFThis seems like";
1916                 mes "some kind of device";
1917                 mes "that will allow you to";
1918                 mes "pass to the other side.";
1919                 mes "There's a slot where you";
1920                 mes "probably need to insert";
1921                 mes "some kind of object...^000000";
1922                 close2;
1923                 cutin "1",255;
1924                 end;
1925         }
1926
1927 OnStop_Timer:
1928         stopnpctimer;
1929         end;
1930
1931 OnTimer22500:
1932         stopnpctimer;
1933         enablenpc "#hole#1-1";
1934         disablenpc "Red Alarm#1-1";
1935         end;
1936 }
1937
1938 jupe_area1,83,221,0     script  Warp#1-1        139,2,2,{
1939 OnInit:
1940         disablenpc "Warp#1-1";
1941         end;
1942
1943 OnEnable:
1944         enablenpc "Warp#1-1";
1945         specialeffect EF_BIG_PORTAL;
1946         soundeffectall "jupe_warp.wav",0;
1947         initnpctimer;
1948         end;
1949
1950 OnTouch_:
1951         warp "jupe_area1",47,259;
1952         end;
1953
1954 OnTimer22500:
1955         stopnpctimer;
1956         disablenpc "Warp#1-1";
1957         end;
1958 }
1959
1960 jupe_area1,47,259,0     script  Red Alarm#1-1   -1,2,2,{
1961 OnInit:
1962         disablenpc "Red Alarm#1-1";
1963         end;
1964
1965 OnTouch_:
1966         donpcevent "Red Alarm On#1-1::OnEnable";
1967         disablenpc "Red Alarm#1-1";
1968         donpcevent "#hole#1-1::OnStop_Timer";
1969         set $@JupreArea1InUse,1;
1970         disablenpc "#hole#1-1";
1971         end;
1972 }
1973
1974 -       script  Red Alarm On#1-1        -1,{
1975 OnInit:
1976         disablenpc "Red Alarm On#1-1";
1977         end;
1978
1979 OnEnable:
1980         enablenpc "Red Alarm On#1-1";
1981         initnpctimer;
1982         end;
1983
1984 OnTimer1000:
1985         mapannounce "jupe_area1","Those of you who have come here...",bc_map,"0xFF0000";
1986         end;
1987
1988 OnTimer3000:
1989         mapannounce "jupe_area1","I do not intend to stop you.",bc_map,"0xFF0000";
1990         soundeffectall "jupe_warning.wav",0,"jupe_area1";
1991         soundeffectall "jupe_warning.wav",0,"jupe_area1";
1992         end;
1993
1994 OnTimer5000:
1995         mapannounce "jupe_area1","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
1996         donpcevent "Monster1#1-1::OnEnable";
1997         end;
1998
1999 OnTimer7000:
2000         mapannounce "jupe_area1","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
2001         end;
2002
2003 OnTimer8000:
2004         disablenpc "Red Alarm On#1-1";
2005         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2006         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2007         stopnpctimer;
2008         end;
2009 }
2010
2011 -       script  Monster1#1-1    -1,{
2012 OnInit:
2013         disablenpc "Monster1#1-1";
2014         end;
2015
2016 OnDisable:
2017         disablenpc "Monster1#1-1";
2018         killmonster "jupe_area1","Monster1#1-1::OnMyMobDead";
2019         end;
2020
2021 OnEnable:
2022         enablenpc "Monster1#1-1";
2023         initnpctimer;
2024         set .MyMobs,8;
2025         monster "jupe_area1",30,263,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2026         monster "jupe_area1",30,262,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2027         monster "jupe_area1",30,261,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2028         monster "jupe_area1",30,260,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2029         monster "jupe_area1",30,259,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2030         monster "jupe_area1",30,258,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2031         monster "jupe_area1",30,257,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2032         monster "jupe_area1",30,256,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2033         end;
2034
2035 OnTimer300000:
2036         mapannounce "jupe_area1","Do you realize this is a hallucination?",bc_map,"0xFF0000";
2037         set $@JupreArea1InUse,0;
2038         end;
2039
2040 OnTimer300002:
2041         enablenpc "#hole#1-1";
2042         stopnpctimer;
2043         donpcevent "Monster1#1-1::OnDisable";
2044         end;
2045
2046 OnMyMobDead:
2047         set .MyMobs,.MyMobs-1;
2048         if (.MyMobs < 1) {
2049                 donpcevent "Monster2#1-1::OnEnable";
2050                 disablenpc "Monster1#1-1";
2051                 stopnpctimer;
2052         }
2053         end;
2054 }
2055
2056 -       script  Monster2#1-1    -1,{
2057 OnInit:
2058         disablenpc "Monster2#1-1";
2059         end;
2060
2061 OnDisable:
2062         disablenpc "Monster2#1-1";
2063         killmonster "jupe_area1","Monster2#1-1::OnMyMobDead";
2064         end;
2065
2066 OnEnable:
2067         enablenpc "Monster2#1-1";
2068         initnpctimer;
2069         end;
2070
2071 OnTimer2000:
2072         mapannounce "jupe_area1","How about now?",bc_map,"0xFF0000";
2073         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2074         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2075         end;
2076
2077 OnTimer4000:
2078         mapannounce "jupe_area1","Let me see...",bc_map,"0xFF0000";
2079         end;
2080
2081 OnTimer7000:
2082         mapannounce "jupe_area1","Just how strong you are!",bc_map,"0xFF0000";
2083         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2084         soundeffectall "jupe_warning.wav",0,"jupe_area1";
2085         set .MyMobs,8;
2086         monster "jupe_area1",30,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2087         monster "jupe_area1",31,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2088         monster "jupe_area1",32,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2089         monster "jupe_area1",33,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2090         monster "jupe_area1",34,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2091         monster "jupe_area1",35,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2092         monster "jupe_area1",36,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2093         monster "jupe_area1",37,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2094         end;
2095
2096 OnTimer300000:
2097         mapannounce "jupe_area1","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
2098         set $@JupreArea1InUse,0;
2099         end;
2100
2101 OnTimer300002:
2102         enablenpc "#hole#1-1";
2103         stopnpctimer;
2104         donpcevent "Monster2#1-1::OnDisable";
2105         end;
2106
2107 OnMyMobDead:
2108         set .MyMobs,.MyMobs-1;
2109         if (.MyMobs < 1) {
2110                 mapannounce "jupe_area1","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
2111                 disablenpc "Monster2#1-1";
2112                 enablenpc "#hole#1-1";
2113                 set $@JupreArea1InUse,0;
2114                 stopnpctimer;
2115         }
2116         end;
2117 }
2118
2119 //============================================================
2120 // Security Checkpoint 1-2
2121 //============================================================
2122 jupe_area1,25,238,0     script  #hole#1-2       844,{
2123         cutin "2",2;
2124         if ($@JupreArea1InUse == 1) {
2125                 mes "^3355FFThis seems like";
2126                 mes "some kind of device";
2127                 mes "that will allow you to";
2128                 mes "pass to the other side.";
2129                 mes "There's a slot where you";
2130                 mes "probably need to insert";
2131                 mes "some kind of object...^000000";
2132                 close2;
2133                 cutin "2",255;
2134                 end;
2135         }
2136         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
2137                 mes "^3355FFThis seems like";
2138                 mes "some kind of device";
2139                 mes "that will allow you to";
2140                 mes "pass to the other side.";
2141                 mes "There's a slot where you";
2142                 mes "probably need to insert";
2143                 mes "some kind of object...^000000";
2144                 next;
2145                 switch(select("Insert a Crest Piece.:Cancel.")) {
2146                 case 1:
2147                         if (countitem(7357) > 0) {
2148                                 mes "^3355FFYou take out your";
2149                                 mes "Crest Piece and place";
2150                                 mes "it into the slot where it";
2151                                 mes "happens to fit perfectly.^000000";
2152                                 specialeffect EF_TOPRANK;
2153                                 cutin "2-1",2;
2154                                 next;
2155                                 if ($@JupreArea1InUse == 1) {
2156                                         mes "^3355FFNothing happens.";
2157                                         mes "Perhaps an alarm or";
2158                                         mes "some other safety measure";
2159                                         mes "was activated to keep the";
2160                                         mes "Crest Piece from activating";
2161                                         mes "this transportation device.";
2162                                         mes "You retrieve the Crest Piece.^000000";
2163                                         close2;
2164                                         cutin "2-1",255;
2165                                         end;
2166                                 }
2167                                 else {
2168                                         mes "^3355FFThe slot rotates and";
2169                                         mes "the Crest Piece moves as";
2170                                         mes "if it were turning a key. You";
2171                                         mes "feel a weak tremor as a Warp";
2172                                         mes "Portal to the other side is";
2173                                         mes "activated. You then retrieve";
2174                                         mes "your Crest Piece.^000000";
2175                                         initnpctimer;
2176                                         donpcevent "Warp#1-2::OnEnable";
2177                                         enablenpc "Red Alarm#1-2";
2178                                         disablenpc "#hole#1-2";
2179                                         close2;
2180                                         cutin "2-1",255;
2181                                         end;
2182                                 }
2183                         }
2184                         else {
2185                                 mes "^3355FFUnfortunately, you're";
2186                                 mes "not carrying anything";
2187                                 mes "that might be able to fit";
2188                                 mes "into the slot and activate";
2189                                 mes "this mechanical device.^000000";
2190                                 close2;
2191                                 cutin "2",255;
2192                                 end;
2193                         }
2194                         break;
2195                 case 2:
2196                         mes "[" + strcharinfo(0) + "]";
2197                         mes "Hmmm...";
2198                         mes "Do I have anything";
2199                         mes "that might make this";
2200                         mes "weird machine work?";
2201                         close2;
2202                         cutin "2",255;
2203                         end;
2204                 }
2205                 close;
2206         }
2207         else {
2208                 mes "^3355FFThis seems like";
2209                 mes "some kind of device";
2210                 mes "that will allow you to";
2211                 mes "pass to the other side.";
2212                 mes "There's a slot where you";
2213                 mes "probably need to insert";
2214                 mes "some kind of object...^000000";
2215                 close2;
2216                 cutin "2",255;
2217                 end;
2218         }
2219         end;
2220
2221 OnStop_Timer:
2222         stopnpctimer;
2223         end;
2224
2225 OnTimer22500:
2226         stopnpctimer;
2227         enablenpc "#hole#1-2";
2228         disablenpc "Red Alarm#1-2";
2229         end;
2230 }
2231
2232 jupe_area1,21,225,0     script  Warp#1-2        139,2,2,{
2233 OnInit:
2234         disablenpc "Warp#1-2";
2235         end;
2236
2237 OnEnable:
2238         enablenpc "Warp#1-2";
2239         specialeffect EF_BIG_PORTAL;
2240         soundeffectall "jupe_warp.wav",0;
2241         initnpctimer;
2242         end;
2243
2244 OnTouch_:
2245         warp "jupe_area1",21,191;
2246         end;
2247
2248 OnTimer22500:
2249         disablenpc "Warp#1-2";
2250         end;
2251 }
2252
2253 jupe_area1,21,191,0     script  Red Alarm#1-2   -1,2,2,{
2254 OnInit:
2255         disablenpc "Red Alarm#1-2";
2256         end;
2257
2258 OnTouch_:
2259         set $@JupreArea1InUse,1;
2260         donpcevent "Red Alarm On#1-2::OnEnable";
2261         disablenpc "Red Alarm#1-2";
2262         disablenpc "#hole#1-2";
2263         end;
2264 }
2265
2266 -       script  Red Alarm On#1-2        -1,{
2267 OnInit:
2268         disablenpc "Red Alarm On#1-2";
2269         end;
2270
2271 OnEnable:
2272         enablenpc "Red Alarm On#1-2";
2273         initnpctimer;
2274         end;
2275
2276 OnTimer1000:
2277         mapannounce "jupe_area1","Come on, come on!",bc_map,"0xFF0000";
2278         end;
2279
2280 OnTimer3000:
2281         mapannounce "jupe_area1","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
2282         end;
2283
2284 OnTimer5000:
2285         mapannounce "jupe_area1","Do you want to know who I am?",bc_map,"0xFF0000";
2286         donpcevent "Monster1#1-2::OnEnable";
2287         end;
2288
2289 OnTimer7000:
2290         mapannounce "jupe_area1","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
2291         end;
2292
2293 OnTimer8000:
2294         disablenpc "Red Alarm On#1-2";
2295         stopnpctimer;
2296         end;
2297 }
2298
2299 -       script  Monster1#1-2    -1,{
2300 OnInit:
2301         disablenpc "Monster1#1-2";
2302         end;
2303
2304 OnDisable:
2305         disablenpc "Monster1#1-2";
2306         killmonster "jupe_area1","Monster1#1-2::OnMyMobDead";
2307         end;
2308
2309 OnEnable:
2310         initnpctimer;
2311         enablenpc "Monster1#1-2";
2312         set .MyMobs,8;
2313         monster "jupe_area1",30,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2314         monster "jupe_area1",31,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2315         monster "jupe_area1",32,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2316         monster "jupe_area1",33,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2317         monster "jupe_area1",34,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2318         monster "jupe_area1",35,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2319         monster "jupe_area1",36,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2320         monster "jupe_area1",37,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2321         end;
2322
2323 OnTimer300000:
2324         mapannounce "jupe_area1","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
2325         set $@JupreArea1InUse,0;
2326         end;
2327
2328 OnTimer300002:
2329         enablenpc "#hole#1-2";
2330         stopnpctimer;
2331         donpcevent "Monster1#1-2::OnDisable";
2332         end;
2333
2334 OnMyMobDead:
2335         set .MyMobs,.MyMobs-1;
2336         if (.MyMobs < 1) {
2337                 donpcevent "Monster2#1-2::OnEnable";
2338                 disablenpc "Monster1#1-2";
2339                 stopnpctimer;
2340         }
2341         end;
2342 }
2343
2344 -       script  Monster2#1-2    -1,{
2345 OnInit:
2346         disablenpc "Monster2#1-2";
2347         end;
2348
2349 OnDisable:
2350         disablenpc "Monster2#1-2";
2351         killmonster "jupe_area1","Monster2#1-2::OnMyMobDead";
2352         end;
2353
2354 OnEnable:
2355         enablenpc "Monster2#1-2";
2356         initnpctimer;
2357         end;
2358
2359 OnTimer2000:
2360         mapannounce "jupe_area1","I was the head of this underground laboratory.",bc_map,"0xFF0000";
2361         end;
2362
2363 OnTimer4000:
2364         mapannounce "jupe_area1","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
2365         end;
2366
2367 OnTimer6000:
2368         mapannounce "jupe_area1","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
2369         set .MyMobs,13;
2370         monster "jupe_area1",30,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2371         monster "jupe_area1",31,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2372         monster "jupe_area1",32,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2373         monster "jupe_area1",33,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2374         monster "jupe_area1",34,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2375         monster "jupe_area1",35,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2376         monster "jupe_area1",36,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2377         monster "jupe_area1",37,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2378         monster "jupe_area1",30,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2379         monster "jupe_area1",31,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2380         monster "jupe_area1",32,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2381         monster "jupe_area1",33,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2382         monster "jupe_area1",34,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2383         end;
2384
2385 OnTimer300000:
2386         mapannounce "jupe_area1","...Not yet.",bc_map,"0xFF0000";
2387         set $@JupreArea1InUse,0;
2388         end;
2389
2390 OnTimer300002:
2391         enablenpc "#hole#1-2";
2392         stopnpctimer;
2393         donpcevent "Monster2#1-2::OnDisable";
2394         end;
2395
2396 OnMyMobDead:
2397         set .MyMobs,.MyMobs-1;
2398         if (.MyMobs < 1) {
2399                 mapannounce "jupe_area1","Not yet!",bc_map,"0xFF0000";
2400                 disablenpc "Monster2#1-2";
2401                 enablenpc "#hole#1-2";
2402                 set $@JupreArea1InUse,0;
2403                 stopnpctimer;
2404         }
2405         end;
2406 }
2407
2408 //============================================================
2409 // Security Checkpoint 1-3
2410 //============================================================
2411 jupe_area1,36,146,0     script  #hole#1-3       844,{
2412         cutin "3",2;
2413         if ($@JupreArea1InUse == 1) {
2414                 mes "^3355FFThis seems like";
2415                 mes "some kind of device";
2416                 mes "that will allow you to";
2417                 mes "pass to the other side.";
2418                 mes "There's a slot where you";
2419                 mes "probably need to insert";
2420                 mes "some kind of object...^000000";
2421                 close2;
2422                 cutin "3",255;
2423                 end;
2424         }
2425         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
2426                 mes "^3355FFThis seems like";
2427                 mes "some kind of device";
2428                 mes "that will allow you to";
2429                 mes "pass to the other side.";
2430                 mes "There's a slot where you";
2431                 mes "probably need to insert";
2432                 mes "some kind of object...^000000";
2433                 next;
2434                 switch(select("Insert a Crest Piece.:Cancel.")) {
2435                 case 1:
2436                         if (countitem(7358) > 0) {
2437                                 mes "^3355FFYou take out your";
2438                                 mes "Crest Piece and place";
2439                                 mes "it into the slot where it";
2440                                 mes "happens to fit perfectly.^000000";
2441                                 specialeffect EF_TOPRANK;
2442                                 cutin "3-1",2;
2443                                 next;
2444                                 if ($@JupreArea1InUse == 1) {
2445                                         mes "^3355FFNothing happens.";
2446                                         mes "Perhaps an alarm or";
2447                                         mes "some other safety measure";
2448                                         mes "was activated to keep the";
2449                                         mes "Crest Piece from activating";
2450                                         mes "this transportation device.";
2451                                         mes "You retrieve the Crest Piece.^000000";
2452                                         close2;
2453                                         cutin "3-1",255;
2454                                         end;
2455                                 }
2456                                 else {
2457                                         mes "^3355FFThe slot rotates and";
2458                                         mes "the Crest Piece moves as";
2459                                         mes "if it were turning a key. You";
2460                                         mes "feel a weak tremor as a Warp";
2461                                         mes "Portal to the other side is";
2462                                         mes "activated. You then retrieve";
2463                                         mes "your Crest Piece.^000000";
2464                                         initnpctimer;
2465                                         donpcevent "Warp#1-3::OnEnable";
2466                                         enablenpc "Red Alarm#1-3";
2467                                         disablenpc "#hole#1-3";
2468                                         close2;
2469                                         cutin "3-1",255;
2470                                         end;
2471                                 }
2472                         }
2473                         else {
2474                                 mes "^3355FFUnfortunately, you're";
2475                                 mes "not carrying anything";
2476                                 mes "that might be able to fit";
2477                                 mes "into the slot and activate";
2478                                 mes "this mechanical device.^000000";
2479                                 close2;
2480                                 cutin "3",255;
2481                                 end;
2482                         }
2483                 case 2:
2484                         mes "[" + strcharinfo(0) + "]";
2485                         mes "Hmmm...";
2486                         mes "Do I have anything";
2487                         mes "that might make this";
2488                         mes "weird machine work?";
2489                         close2;
2490                         cutin "3",255;
2491                         end;
2492                 }
2493         }
2494         else {
2495                 mes "^3355FFThis seems like";
2496                 mes "some kind of device";
2497                 mes "that will allow you to";
2498                 mes "pass to the other side.";
2499                 mes "There's a slot where you";
2500                 mes "probably need to insert";
2501                 mes "some kind of object...^000000";
2502                 close2;
2503                 cutin "3",255;
2504                 end;
2505         }
2506         end;
2507
2508 OnStop_Timer:
2509         stopnpctimer;
2510         end;
2511
2512 OnTimer22500:
2513         stopnpctimer;
2514         enablenpc "#hole#1-3";
2515         disablenpc "Red Alarm#1-3";
2516         end;
2517 }
2518
2519 jupe_area1,33,137,0     script  Warp#1-3        139,2,2,{
2520 OnInit:
2521         disablenpc "Warp#1-3";
2522         end;
2523
2524 OnEnable:
2525         enablenpc "Warp#1-3";
2526         specialeffect EF_BIG_PORTAL;
2527         soundeffectall "jupe_warp.wav",0;
2528         initnpctimer;
2529         end;
2530
2531 OnTouch_:
2532         warp "jupe_area1",33,105;
2533         end;
2534
2535 OnTimer22500:
2536         disablenpc "Warp#1-3";
2537         end;
2538 }
2539
2540 jupe_area1,33,105,0     script  Red Alarm#1-3   -1,0,4,{
2541 OnInit:
2542         disablenpc "Red Alarm#1-3";
2543         end;
2544
2545 OnTouch_:
2546         set $@JupreArea1InUse,1;
2547         donpcevent "Red Alarm On#1-3::OnEnable";
2548         disablenpc "Red Alarm#1-3";
2549         disablenpc "#hole#1-3";
2550         end;
2551 }
2552
2553 -       script  Red Alarm On#1-3        -1,{
2554 OnInit:
2555         disablenpc "Red Alarm On#1-3";
2556         end;
2557
2558 OnEnable:
2559         enablenpc "Red Alarm On#1-3";
2560         initnpctimer;
2561         end;
2562
2563 OnTimer1000:
2564         mapannounce "jupe_area1","These security systems...",bc_map,"0xFF0000";
2565         end;
2566
2567 OnTimer3000:
2568         mapannounce "jupe_area1","They're not really for protection.",bc_map,"0xFF0000";
2569         end;
2570
2571 OnTimer5000:
2572         mapannounce "jupe_area1","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
2573         donpcevent "Monster1#1-3::OnEnable";
2574         end;
2575
2576 OnTimer7000:
2577         mapannounce "jupe_area1","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
2578         end;
2579
2580 OnTimer8000:
2581         disablenpc "Red Alarm On#1-3";
2582         stopnpctimer;
2583         end;
2584 }
2585
2586 -       script  Monster1#1-3    -1,{
2587 OnInit:
2588         disablenpc "Monster1#1-3";
2589         end;
2590
2591 OnDisable:
2592         disablenpc "Monster1#1-3";
2593         killmonster "jupe_area1","Monster1#1-3::OnMyMobDead";
2594         end;
2595
2596 OnEnable:
2597         initnpctimer;
2598         enablenpc "Monster1#1-3";
2599         set .MyMobs,8;
2600         monster "jupe_area1",30,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2601         monster "jupe_area1",31,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2602         monster "jupe_area1",32,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2603         monster "jupe_area1",33,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2604         monster "jupe_area1",34,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2605         monster "jupe_area1",35,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2606         monster "jupe_area1",36,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2607         monster "jupe_area1",37,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2608         end;
2609
2610 OnTimer300000:
2611         mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
2612         set $@JupreArea1InUse,0;
2613         end;
2614
2615 OnTimer300002:
2616         donpcevent "Monster1#1-3::OnDisable";
2617         enablenpc "#hole#1-3";
2618         end;
2619
2620 OnMyMobDead:
2621         set .MyMobs,.MyMobs-1;
2622         if (.MyMobs < 1) {
2623                 donpcevent "Monster2#1-3::OnEnable";
2624                 disablenpc "Monster1#1-3";
2625                 stopnpctimer;
2626         }
2627         end;
2628 }
2629
2630 -       script  Monster2#1-3    -1,{
2631 OnInit:
2632         disablenpc "Monster2#1-3";
2633         end;
2634
2635 OnDisable:
2636         disablenpc "Monster2#1-3";
2637         killmonster "jupe_area1","Monster2#1-3::OnMyMobDead";
2638         end;
2639
2640 OnEnable:
2641         initnpctimer;
2642         enablenpc "Monster2#1-3";
2643         end;
2644
2645 OnTimer2000:
2646         mapannounce "jupe_area1","Why have you come?",bc_map,"0xFF0000";
2647         end;
2648
2649 OnTimer5000:
2650         mapannounce "jupe_area1","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
2651         end;
2652
2653 OnTimer8000:
2654         mapannounce "jupe_area1","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
2655         set .MyMobs,15;
2656         monster "jupe_area1",42,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2657         monster "jupe_area1",43,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2658         monster "jupe_area1",44,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2659         monster "jupe_area1",45,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2660         monster "jupe_area1",46,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2661         monster "jupe_area1",47,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2662         monster "jupe_area1",48,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2663         monster "jupe_area1",49,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2664         monster "jupe_area1",42,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2665         monster "jupe_area1",43,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2666         monster "jupe_area1",44,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2667         monster "jupe_area1",45,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2668         monster "jupe_area1",46,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2669         monster "jupe_area1",47,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2670         monster "jupe_area1",48,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2671         end;
2672
2673 OnTimer300000:
2674         mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
2675         set $@JupreArea1InUse,0;
2676         end;
2677
2678 OnTimer300002:
2679         enablenpc "#hole#1-3";
2680         stopnpctimer;
2681         donpcevent "Monster2#1-3::OnDisable";
2682         end;
2683
2684 OnMyMobDead:
2685         set .MyMobs,.MyMobs-1;
2686         if (.MyMobs < 1) {
2687                 mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
2688                 disablenpc "Monster2#1-3";
2689                 enablenpc "#hole#1-3";
2690                 set $@JupreArea1InUse,0;
2691                 stopnpctimer;
2692         }
2693         end;
2694 }
2695
2696 //============================================================
2697 // Security Checkpoint 1-4
2698 //============================================================
2699 jupe_area1,50,49,0      script  #hole#1-4       844,{
2700         cutin "4",2;
2701         if ($@JupreArea1InUse == 1) {
2702                 mes "^3355FFThis seems like";
2703                 mes "some kind of device";
2704                 mes "that will allow you to";
2705                 mes "pass to the other side.";
2706                 mes "There's a slot where you";
2707                 mes "probably need to insert";
2708                 mes "some kind of object...^000000";
2709                 close2;
2710                 cutin "4",255;
2711                 end;
2712         }
2713         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
2714                 mes "^3355FFThis seems like";
2715                 mes "some kind of device";
2716                 mes "that will allow you to";
2717                 mes "pass to the other side.";
2718                 mes "There's a slot where you";
2719                 mes "probably need to insert";
2720                 mes "some kind of object...^000000";
2721                 next;
2722                 switch(select("Insert a Crest Piece.:Cancel.")) {
2723                 case 1:
2724                         if (countitem(7359) > 0) {
2725                                 mes "^3355FFYou take out your";
2726                                 mes "Crest Piece and place";
2727                                 mes "it into the slot where it";
2728                                 mes "happens to fit perfectly.^000000";
2729                                 specialeffect EF_TOPRANK;
2730                                 cutin "4-1",2;
2731                                 next;
2732                                 if ($@JupreArea1InUse == 1) {
2733                                         mes "^3355FFNothing happens.";
2734                                         mes "Perhaps an alarm or";
2735                                         mes "some other safety measure";
2736                                         mes "was activated to keep the";
2737                                         mes "Crest Piece from activating";
2738                                         mes "this transportation device.";
2739                                         mes "You retrieve the Crest Piece.^000000";
2740                                         close2;
2741                                         cutin "4-1",255;
2742                                         end;
2743                                 }
2744                                 else {
2745                                         mes "^3355FFThe slot rotates and";
2746                                         mes "the Crest Piece moves as";
2747                                         mes "if it were turning a key. You";
2748                                         mes "feel a weak tremor as a Warp";
2749                                         mes "Portal to the other side is";
2750                                         mes "activated. You then retrieve";
2751                                         mes "your Crest Piece.^000000";
2752                                         initnpctimer;
2753                                         donpcevent "Warp#1-4::OnEnable";
2754                                         donpcevent "Red Alarm#1-4::OnEnable";
2755                                         disablenpc "#hole#1-4";
2756                                         close2;
2757                                         cutin "4-1",255;
2758                                         end;
2759                                 }
2760                         }
2761                         else {
2762                                 mes "^3355FFUnfortunately, you're";
2763                                 mes "not carrying anything";
2764                                 mes "that might be able to fit";
2765                                 mes "into the slot and activate";
2766                                 mes "this mechanical device.^000000";
2767                                 close2;
2768                                 cutin "4",255;
2769                                 end;
2770                         }
2771                         break;
2772                 case 2:
2773                         mes "[" + strcharinfo(0) + "]";
2774                         mes "Hmmm...";
2775                         mes "Do I have anything";
2776                         mes "that might make this";
2777                         mes "weird machine work?";
2778                         close2;
2779                         cutin "4",255;
2780                         end;
2781                 }
2782         }
2783         else {
2784                 mes "^3355FFThis seems like";
2785                 mes "some kind of device";
2786                 mes "that will allow you to";
2787                 mes "pass to the other side.";
2788                 mes "There's a slot where you";
2789                 mes "probably need to insert";
2790                 mes "some kind of object...^000000";
2791                 close2;
2792                 cutin "4",255;
2793                 end;
2794         }
2795         end;
2796
2797 OnStop_Timer:
2798         stopnpctimer;
2799         end;
2800
2801 OnTimer5000:
2802         stopnpctimer;
2803         enablenpc "#hole#1-4";
2804         disablenpc "Red Alarm#1-4";
2805         end;
2806 }
2807
2808 jupe_area1,57,53,0      script  Warp#1-4        139,2,2,{
2809 OnInit:
2810         disablenpc "Warp#1-4";
2811         end;
2812
2813 OnEnable:
2814         enablenpc "Warp#1-4";
2815         specialeffect EF_BIG_PORTAL;
2816         soundeffectall "jupe_warp.wav",0;
2817         initnpctimer;
2818         end;
2819
2820 OnTouch_:
2821         warp "jupe_area1",83,157;
2822         end;
2823
2824 OnTimer5000:
2825         disablenpc "Warp#1-4";
2826         end;
2827 }
2828
2829 jupe_area1,83,157,0     script  Red Alarm#1-4   -1,2,2,{
2830 OnInit:
2831         disablenpc "Red Alarm#1-4";
2832         end;
2833
2834 OnEnable:
2835         enablenpc "Red Alarm#1-4";
2836         end;
2837
2838 OnTouch_:
2839         set $@JupreArea1InUse,1;
2840         donpcevent "Red Alarm On#1-4::OnEnable";
2841         disablenpc "Red Alarm#1-4";
2842         disablenpc "#hole#1-4";
2843         end;
2844 }
2845
2846 -       script  Red Alarm On#1-4        -1,{
2847 OnInit:
2848         disablenpc "Red Alarm On#1-4";
2849         end;
2850
2851 OnEnable:
2852         enablenpc "Red Alarm On#1-4";
2853         initnpctimer;
2854         end;
2855
2856 OnTimer1000:
2857         mapannounce "jupe_area1","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
2858         end;
2859
2860 OnTimer3000:
2861         mapannounce "jupe_area1","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
2862         end;
2863
2864 OnTimer5000:
2865         mapannounce "jupe_area1","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
2866         donpcevent "Monster1#1-4::OnEnable";
2867         end;
2868
2869 OnTimer7000:
2870         mapannounce "jupe_area1","Is somewhere down here, wandering...",bc_map,"0xFF0000";
2871         end;
2872
2873 OnTimer8000:
2874         stopnpctimer;
2875         disablenpc "Red Alarm On#1-4";
2876         end;
2877 }
2878
2879 -       script  Monster1#1-4    -1,{
2880 OnInit:
2881         disablenpc "Monster1#1-4";
2882         end;
2883
2884 OnDisable:
2885         disablenpc "Monster1#1-4";
2886         killmonster "jupe_area1","Monster1#1-4::OnMyMobDead";
2887         end;
2888
2889 OnEnable:
2890         initnpctimer;
2891         enablenpc "Monster1#1-4";
2892         set .MyMobs,8;
2893         monster "jupe_area1",92,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
2894         monster "jupe_area1",96,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
2895         monster "jupe_area1",100,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
2896         monster "jupe_area1",104,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
2897         monster "jupe_area1",92,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
2898         monster "jupe_area1",96,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
2899         monster "jupe_area1",100,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
2900         monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
2901         end;
2902
2903 OnTimer300000:
2904         mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
2905         set $@JupreArea1InUse,0;
2906         end;
2907
2908 OnTimer300002:
2909         stopnpctimer;
2910         enablenpc "#hole#1-4";
2911         donpcevent "Monster1#1-4::OnDisable";
2912         end;
2913
2914 OnMyMobDead:
2915         set .MyMobs,.MyMobs-1;
2916         if (.MyMobs < 1) {
2917                 donpcevent "Monster2#1-4::OnEnable";
2918                 disablenpc "Monster1#1-4";
2919                 stopnpctimer;
2920         }
2921         end;
2922 }
2923
2924 -       script  Monster2#1-4    -1,{
2925 OnInit:
2926         disablenpc "Monster2#1-4";
2927         end;
2928
2929 OnDisable:
2930         killmonster "jupe_area1","Monster2#1-4::OnMyMobDead";
2931         disablenpc "Monster2#1-4";
2932         end;
2933
2934 OnEnable:
2935         enablenpc "Monster2#1-4";
2936         initnpctimer;
2937         end;
2938
2939 OnTimer2000:
2940         mapannounce "jupe_area1","I can never rest in peace...",bc_map,"0xFF0000";
2941         end;
2942
2943 OnTimer4000:
2944         mapannounce "jupe_area1","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
2945         end;
2946
2947 OnTimer6000:
2948         mapannounce "jupe_area1","I will be waiting for you!",bc_map,"0xFF0000";
2949         set .MyMobs,10;
2950         monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
2951         monster "jupe_area1",108,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
2952         monster "jupe_area1",111,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
2953         monster "jupe_area1",112,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
2954         monster "jupe_area1",115,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
2955         monster "jupe_area1",104,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
2956         monster "jupe_area1",108,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
2957         monster "jupe_area1",111,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
2958         monster "jupe_area1",112,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
2959         monster "jupe_area1",115,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
2960         end;
2961
2962 OnTimer300000:
2963         set $@JupreArea1InUse,0;
2964         mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
2965         end;
2966
2967 OnTimer300002:
2968         enablenpc "#hole#1-4";
2969         donpcevent "Monster2#1-4::OnDisable";
2970         end;
2971
2972 OnMyMobDead:
2973         set .MyMobs,.MyMobs-1;
2974         if (.MyMobs < 1) {
2975                 mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
2976                 disablenpc "Monster2#1-4";
2977                 enablenpc "#hole#1-4";
2978                 set $@JupreArea1InUse,0;
2979                 stopnpctimer;
2980         }
2981         end;
2982 }
2983
2984 //============================================================
2985 // Move to Elevator
2986 //============================================================
2987 jupe_area1,112,162,0    script  Lever#ufe       844,{
2988         mes "^3355FFIt's a lever";
2989         mes "whose function";
2990         mes "is not known to you.^000000";
2991         next;
2992         switch(select("Pull.:Cancel.")) {
2993         case 1:
2994                 if ($@JupreArea1InUse == 1) close;
2995                 initnpctimer;
2996                 donpcevent "LeverWarp#ufe::OnEnable";
2997                 disablenpc "Lever#ufe";
2998                 close;
2999         case 2:
3000                 mes "[" + strcharinfo(0) + "]";
3001                 mes "Pull this lever?";
3002                 mes "I don't even know";
3003                 mes "what will happen...";
3004                 close;
3005         }
3006         close;
3007
3008 OnTimer3000:
3009         enablenpc "Lever#ufe";
3010         stopnpctimer;
3011         end;
3012 }
3013
3014 jupe_area1,117,157,0    script  LeverWarp#ufe   139,2,2,{
3015 OnInit:
3016         disablenpc "LeverWarp#ufe";
3017         end;
3018
3019 OnEnable:
3020         enablenpc "LeverWarp#ufe";
3021         specialeffect EF_BIG_PORTAL;
3022         soundeffectall "jupe_warp.wav",0;
3023         initnpctimer;
3024         end;
3025
3026 OnTouch_:
3027         warp "jupe_gate",28,30;
3028         end;
3029
3030 OnTimer3000:
3031         stopnpctimer;
3032         disablenpc "LeverWarp#ufe";
3033         end;
3034 }
3035
3036 //============================================================
3037 // Security Checkpoint 2-1
3038 //============================================================
3039 jupe_area2,74,224,0     script  #hole#2-1       844,{
3040         cutin "1",2;
3041         if ($@JupreArea2InUse == 1) {
3042                 mes "^3355FFThis seems like";
3043                 mes "some kind of device";
3044                 mes "that will allow you to";
3045                 mes "pass to the other side.";
3046                 mes "There's a slot where you";
3047                 mes "probably need to insert";
3048                 mes "some kind of object...^000000";
3049                 close2;
3050                 cutin "1",255;
3051                 end;
3052         }
3053         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
3054                 mes "^3355FFThis seems like";
3055                 mes "some kind of device";
3056                 mes "that will allow you to";
3057                 mes "pass to the other side.";
3058                 mes "There's a slot where you";
3059                 mes "probably need to insert";
3060                 mes "some kind of object...^000000";
3061                 next;
3062                 switch(select("Insert a Crest Piece.:Cancel.")) {
3063                 case 1:
3064                         if (countitem(7356) > 0) {
3065                                 mes "^3355FFYou take out your";
3066                                 mes "Crest Piece and place";
3067                                 mes "it into the slot where it";
3068                                 mes "happens to fit perfectly.^000000";
3069                                 specialeffect EF_TOPRANK;
3070                                 cutin "1-1",2;
3071                                 next;
3072                                 if ($@JupreArea2InUse == 1) {
3073                                         mes "^3355FFNothing happens.";
3074                                         mes "Perhaps an alarm or";
3075                                         mes "some other safety measure";
3076                                         mes "was activated to keep the";
3077                                         mes "Crest Piece from activating";
3078                                         mes "this transportation device.";
3079                                         mes "You retrieve the Crest Piece.^000000";
3080                                         close2;
3081                                         cutin "1-1",255;
3082                                         end;
3083                                 }
3084                                 else {
3085                                         mes "^3355FFThe slot rotates and";
3086                                         mes "the Crest Piece moves as";
3087                                         mes "if it were turning a key. You";
3088                                         mes "feel a weak tremor as a Warp";
3089                                         mes "Portal to the other side is";
3090                                         mes "activated. You then retrieve";
3091                                         mes "your Crest Piece.^000000";
3092                                         initnpctimer;
3093                                         donpcevent "Warp#2-1::OnEnable";
3094                                         enablenpc "Red Alarm#2-1";
3095                                         disablenpc "#hole#2-1";
3096                                         close2;
3097                                         cutin "1-1",255;
3098                                         end;
3099                                 }
3100                         }
3101                         else {
3102                                 mes "^3355FFUnfortunately, you're";
3103                                 mes "not carrying anything";
3104                                 mes "that might be able to fit";
3105                                 mes "into the slot and activate";
3106                                 mes "this mechanical device.^000000";
3107                                 close2;
3108                                 cutin "1",255;
3109                                 end;
3110                         }
3111                 case 2:
3112                         mes "[" + strcharinfo(0) + "]";
3113                         mes "Hmmm...";
3114                         mes "Do I have anything";
3115                         mes "that might make this";
3116                         mes "weird machine work?";
3117                         close2;
3118                         cutin "1",255;
3119                         end;
3120                 }
3121                 close;
3122         }
3123         else {
3124                 mes "^3355FFThis seems like";
3125                 mes "some kind of device";
3126                 mes "that will allow you to";
3127                 mes "pass to the other side.";
3128                 mes "There's a slot where you";
3129                 mes "probably need to insert";
3130                 mes "some kind of object...^000000";
3131                 close2;
3132                 cutin "1",255;
3133                 end;
3134         }
3135
3136 OnStop_Timer:
3137         stopnpctimer;
3138         end;
3139
3140 OnTimer22500:
3141         stopnpctimer;
3142         enablenpc "#hole#2-1";
3143         disablenpc "Red Alarm#2-1";
3144         end;
3145 }
3146
3147 jupe_area2,80,221,0     script  Warp#2-1        139,2,2,{
3148 OnInit:
3149         disablenpc "Warp#2-1";
3150         end;
3151
3152 OnEnable:
3153         enablenpc "Warp#2-1";
3154         specialeffect EF_BIG_PORTAL;
3155         soundeffectall "jupe_warp.wav",0;
3156         initnpctimer;
3157         end;
3158
3159 OnTouch_:
3160         warp "jupe_area2",116,259;
3161         end;
3162
3163 OnTimer22500:
3164         stopnpctimer;
3165         disablenpc "Warp#2-1";
3166         end;
3167 }
3168
3169 jupe_area2,116,259,0    script  Red Alarm#2-1   -1,2,2,{
3170 OnInit:
3171         disablenpc "Red Alarm#2-1";
3172         end;
3173
3174 OnTouch_:
3175         donpcevent "Red Alarm On#2-1::OnEnable";
3176         disablenpc "Red Alarm#2-1";
3177         donpcevent "#hole#2-1::OnStop_Timer";
3178         set $@JupreArea2InUse,1;
3179         disablenpc "#hole#2-1";
3180         end;
3181 }
3182
3183 -       script  Red Alarm On#2-1        -1,{
3184 OnInit:
3185         disablenpc "Red Alarm On#2-1";
3186         end;
3187
3188 OnEnable:
3189         enablenpc "Red Alarm On#2-1";
3190         initnpctimer;
3191         end;
3192
3193 OnTimer1000:
3194         mapannounce "jupe_area2","Those of you who have come here...",bc_map,"0xFF0000";
3195         end;
3196
3197 OnTimer3000:
3198         mapannounce "jupe_area2","I do not intend to stop you.",bc_map,"0xFF0000";
3199         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3200         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3201         end;
3202
3203 OnTimer5000:
3204         mapannounce "jupe_area2","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
3205         donpcevent "Monster1#2-1::OnEnable";
3206         end;
3207
3208 OnTimer7000:
3209         mapannounce "jupe_area2","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
3210         end;
3211
3212 OnTimer8000:
3213         disablenpc "Red Alarm On#2-1";
3214         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3215         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3216         stopnpctimer;
3217         end;
3218 }
3219
3220 -       script  Monster1#2-1    -1,{
3221 OnInit:
3222         disablenpc "Monster1#2-1";
3223         end;
3224
3225 OnDisable:
3226         disablenpc "Monster1#2-1";
3227         killmonster "jupe_area2","Monster1#2-1::OnMyMobDead";
3228         end;
3229
3230 OnEnable:
3231         enablenpc "Monster1#2-1";
3232         initnpctimer;
3233         set .MyMobs,8;
3234         monster "jupe_area2",126,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3235         monster "jupe_area2",127,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3236         monster "jupe_area2",128,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3237         monster "jupe_area2",129,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3238         monster "jupe_area2",130,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3239         monster "jupe_area2",131,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3240         monster "jupe_area2",132,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3241         monster "jupe_area2",133,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3242         end;
3243
3244 OnTimer300000:
3245         mapannounce "jupe_area2","Do you realize this is a hallucination?",bc_map,"0xFF0000";
3246         set $@JupreArea2InUse,0;
3247         end;
3248
3249 OnTimer300002:
3250         enablenpc "#hole#2-1";
3251         stopnpctimer;
3252         donpcevent "Monster1#2-1::OnDisable";
3253         end;
3254
3255 OnMyMobDead:
3256         set .MyMobs,.MyMobs-1;
3257         if (.MyMobs < 1) {
3258                 donpcevent "Monster2#2-1::OnEnable";
3259                 disablenpc "Monster1#2-1";
3260                 stopnpctimer;
3261         }
3262         end;
3263 }
3264
3265 -       script  Monster2#2-1    -1,{
3266 OnInit:
3267         disablenpc "Monster2#2-1";
3268         end;
3269
3270 OnDisable:
3271         disablenpc "Monster2#2-1";
3272         killmonster "jupe_area2","Monster2#2-1::OnMyMobDead";
3273         end;
3274
3275 OnEnable:
3276         enablenpc "Monster2#2-1";
3277         initnpctimer;
3278         end;
3279
3280 OnTimer2000:
3281         mapannounce "jupe_area2","How about now?",bc_map,"0xFF0000";
3282         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3283         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3284         end;
3285
3286 OnTimer4000:
3287         mapannounce "jupe_area2","Let me see...",bc_map,"0xFF0000";
3288         end;
3289
3290 OnTimer7000:
3291         mapannounce "jupe_area2","Just how strong you are!",bc_map,"0xFF0000";
3292         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3293         soundeffectall "jupe_warning.wav",0,"jupe_area2";
3294         set .MyMobs,8;
3295         monster "jupe_area2",126,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3296         monster "jupe_area2",127,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3297         monster "jupe_area2",128,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3298         monster "jupe_area2",129,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3299         monster "jupe_area2",130,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3300         monster "jupe_area2",131,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3301         monster "jupe_area2",132,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3302         monster "jupe_area2",133,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3303         end;
3304
3305 OnTimer300000:
3306         mapannounce "jupe_area2","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
3307         set $@JupreArea2InUse,0;
3308         end;
3309
3310 OnTimer300002:
3311         enablenpc "#hole#2-1";
3312         stopnpctimer;
3313         donpcevent "Monster2#2-1::OnDisable";
3314         end;
3315
3316 OnMyMobDead:
3317         set .MyMobs,.MyMobs-1;
3318         if (.MyMobs < 1) {
3319                 mapannounce "jupe_area2","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
3320                 disablenpc "Monster2#2-1";
3321                 enablenpc "#hole#2-1";
3322                 set $@JupreArea2InUse,0;
3323                 stopnpctimer;
3324         }
3325         end;
3326 }
3327
3328 //============================================================
3329 // Security Checkpoint 2-2
3330 //============================================================
3331 jupe_area2,138,238,0    script  #hole#2-2       844,{
3332         cutin "2",2;
3333         if ($@JupreArea2InUse == 1) {
3334                 mes "^3355FFThis seems like";
3335                 mes "some kind of device";
3336                 mes "that will allow you to";
3337                 mes "pass to the other side.";
3338                 mes "There's a slot where you";
3339                 mes "probably need to insert";
3340                 mes "some kind of object...^000000";
3341                 close2;
3342                 cutin "2",255;
3343                 end;
3344         }
3345         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
3346                 mes "^3355FFThis seems like";
3347                 mes "some kind of device";
3348                 mes "that will allow you to";
3349                 mes "pass to the other side.";
3350                 mes "There's a slot where you";
3351                 mes "probably need to insert";
3352                 mes "some kind of object...^000000";
3353                 next;
3354                 switch(select("Insert a Crest Piece.:Cancel.")) {
3355                 case 1:
3356                         if (countitem(7357) > 0) {
3357                                 mes "^3355FFYou take out your";
3358                                 mes "Crest Piece and place";
3359                                 mes "it into the slot where it";
3360                                 mes "happens to fit perfectly.^000000";
3361                                 specialeffect EF_TOPRANK;
3362                                 cutin "2-1",2;
3363                                 next;
3364                                 if ($@JupreArea2InUse == 1) {
3365                                         mes "^3355FFNothing happens.";
3366                                         mes "Perhaps an alarm or";
3367                                         mes "some other safety measure";
3368                                         mes "was activated to keep the";
3369                                         mes "Crest Piece from activating";
3370                                         mes "this transportation device.";
3371                                         mes "You retrieve the Crest Piece.^000000";
3372                                         close2;
3373                                         cutin "2-1",255;
3374                                         end;
3375                                 }
3376                                 else {
3377                                         mes "^3355FFThe slot rotates and";
3378                                         mes "the Crest Piece moves as";
3379                                         mes "if it were turning a key. You";
3380                                         mes "feel a weak tremor as a Warp";
3381                                         mes "Portal to the other side is";
3382                                         mes "activated. You then retrieve";
3383                                         mes "your Crest Piece.^000000";
3384                                         initnpctimer;
3385                                         donpcevent "Warp#2-2::OnEnable";
3386                                         enablenpc "Red Alarm#2-2";
3387                                         disablenpc "#hole#2-2";
3388                                         close2;
3389                                         cutin "2-1",255;
3390                                         end;
3391                                 }
3392                         }
3393                         else {
3394                                 mes "^3355FFUnfortunately, you're";
3395                                 mes "not carrying anything";
3396                                 mes "that might be able to fit";
3397                                 mes "into the slot and activate";
3398                                 mes "this mechanical device.^000000";
3399                                 close2;
3400                                 cutin "2",255;
3401                                 end;
3402                         }
3403                         break;
3404                 case 2:
3405                         mes "[" + strcharinfo(0) + "]";
3406                         mes "Hmmm...";
3407                         mes "Do I have anything";
3408                         mes "that might make this";
3409                         mes "weird machine work?";
3410                         close2;
3411                         cutin "2",255;
3412                         end;
3413                 }
3414                 close;
3415         }
3416         else {
3417                 mes "^3355FFThis seems like";
3418                 mes "some kind of device";
3419                 mes "that will allow you to";
3420                 mes "pass to the other side.";
3421                 mes "There's a slot where you";
3422                 mes "probably need to insert";
3423                 mes "some kind of object...^000000";
3424                 close2;
3425                 cutin "2",255;
3426                 end;
3427         }
3428         end;
3429
3430 OnStop_Timer:
3431         stopnpctimer;
3432         end;
3433
3434 OnTimer22500:
3435         stopnpctimer;
3436         enablenpc "#hole#2-2";
3437         disablenpc "Red Alarm#2-2";
3438         end;
3439 }
3440
3441 jupe_area2,142,225,0    script  Warp#2-2        139,2,2,{
3442 OnInit:
3443         disablenpc "Warp#2-2";
3444         end;
3445
3446 OnEnable:
3447         enablenpc "Warp#2-2";
3448         specialeffect EF_BIG_PORTAL;
3449         soundeffectall "jupe_warp.wav",0;
3450         initnpctimer;
3451         end;
3452
3453 OnTouch_:
3454         warp "jupe_area2",142,191;
3455         end;
3456
3457 OnTimer22500:
3458         disablenpc "Warp#2-2";
3459         end;
3460 }
3461
3462 jupe_area2,142,191,0    script  Red Alarm#2-2   -1,2,2,{
3463 OnInit:
3464         disablenpc "Red Alarm#2-2";
3465         end;
3466
3467 OnTouch_:
3468         set $@JupreArea2InUse,1;
3469         donpcevent "Red Alarm On#2-2::OnEnable";
3470         disablenpc "Red Alarm#2-2";
3471         disablenpc "#hole#2-2";
3472         end;
3473 }
3474
3475 -       script  Red Alarm On#2-2        -1,{
3476 OnInit:
3477         disablenpc "Red Alarm On#2-2";
3478         end;
3479
3480 OnEnable:
3481         enablenpc "Red Alarm On#2-2";
3482         initnpctimer;
3483         end;
3484
3485 OnTimer1000:
3486         mapannounce "jupe_area2","Come on, come on!",bc_map,"0xFF0000";
3487         end;
3488
3489 OnTimer3000:
3490         mapannounce "jupe_area2","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
3491         end;
3492
3493 OnTimer5000:
3494         mapannounce "jupe_area2","Do you want to know who I am?",bc_map,"0xFF0000";
3495         donpcevent "Monster1#2-2::OnEnable";
3496         end;
3497
3498 OnTimer7000:
3499         mapannounce "jupe_area2","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
3500         end;
3501
3502 OnTimer8000:
3503         disablenpc "Red Alarm On#2-2";
3504         stopnpctimer;
3505         end;
3506 }
3507
3508 -       script  Monster1#2-2    -1,{
3509 OnInit:
3510         disablenpc "Monster1#2-2";
3511         end;
3512
3513 OnDisable:
3514         disablenpc "Monster1#2-2";
3515         killmonster "jupe_area2","Monster1#2-2::OnMyMobDead";
3516         end;
3517
3518 OnEnable:
3519         initnpctimer;
3520         enablenpc "Monster1#2-2";
3521         set .MyMobs,8;
3522         monster "jupe_area2",126,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3523         monster "jupe_area2",127,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3524         monster "jupe_area2",128,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3525         monster "jupe_area2",129,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3526         monster "jupe_area2",130,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3527         monster "jupe_area2",131,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3528         monster "jupe_area2",132,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3529         monster "jupe_area2",133,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3530         end;
3531
3532 OnTimer300000:
3533         mapannounce "jupe_area2","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
3534         set $@JupreArea2InUse,0;
3535         end;
3536
3537 OnTimer300002:
3538         enablenpc "#hole#2-2";
3539         stopnpctimer;
3540         donpcevent "Monster1#2-2::OnDisable";
3541         end;
3542
3543 OnMyMobDead:
3544         set .MyMobs,.MyMobs-1;
3545         if (.MyMobs < 1) {
3546                 donpcevent "Monster2#2-2::OnEnable";
3547                 disablenpc "Monster1#2-2";
3548                 stopnpctimer;
3549         }
3550         end;
3551 }
3552
3553 -       script  Monster2#2-2    -1,{
3554 OnInit:
3555         disablenpc "Monster2#2-2";
3556         end;
3557
3558 OnDisable:
3559         disablenpc "Monster2#2-2";
3560         killmonster "jupe_area2","Monster2#2-2::OnMyMobDead";
3561         end;
3562
3563 OnEnable:
3564         enablenpc "Monster2#2-2";
3565         initnpctimer;
3566         end;
3567
3568 OnTimer2000:
3569         mapannounce "jupe_area2","I was the head of this underground laboratory.",bc_map,"0xFF0000";
3570         end;
3571
3572 OnTimer4000:
3573         mapannounce "jupe_area2","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
3574         end;
3575
3576 OnTimer6000:
3577         mapannounce "jupe_area2","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
3578         set .MyMobs,13;
3579         monster "jupe_area2",126,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3580         monster "jupe_area2",127,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3581         monster "jupe_area2",128,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3582         monster "jupe_area2",129,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3583         monster "jupe_area2",130,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3584         monster "jupe_area2",131,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3585         monster "jupe_area2",132,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3586         monster "jupe_area2",133,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3587         monster "jupe_area2",133,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3588         monster "jupe_area2",127,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3589         monster "jupe_area2",129,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3590         monster "jupe_area2",130,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3591         monster "jupe_area2",132,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3592         end;
3593
3594 OnTimer300000:
3595         mapannounce "jupe_area2","...Not yet.",bc_map,"0xFF0000";
3596         set $@JupreArea2InUse,0;
3597         end;
3598
3599 OnTimer300002:
3600         enablenpc "#hole#2-2";
3601         stopnpctimer;
3602         donpcevent "Monster2#2-2::OnDisable";
3603         end;
3604
3605 OnMyMobDead:
3606         set .MyMobs,.MyMobs-1;
3607         if (.MyMobs < 1) {
3608                 mapannounce "jupe_area2","Not yet!",bc_map,"0xFF0000";
3609                 disablenpc "Monster2#2-2";
3610                 enablenpc "#hole#2-2";
3611                 set $@JupreArea2InUse,0;
3612                 stopnpctimer;
3613         }
3614         end;
3615 }
3616
3617 //============================================================
3618 // Security Checkpoint 2-3
3619 //============================================================
3620 jupe_area2,127,146,0    script  #hole#2-3       844,{
3621         cutin "3",2;
3622         if ($@JupreArea2InUse == 1) {
3623                 mes "^3355FFThis seems like";
3624                 mes "some kind of device";
3625                 mes "that will allow you to";
3626                 mes "pass to the other side.";
3627                 mes "There's a slot where you";
3628                 mes "probably need to insert";
3629                 mes "some kind of object...^000000";
3630                 close2;
3631                 cutin "3",255;
3632                 end;
3633         }
3634         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
3635                 mes "^3355FFThis seems like";
3636                 mes "some kind of device";
3637                 mes "that will allow you to";
3638                 mes "pass to the other side.";
3639                 mes "There's a slot where you";
3640                 mes "probably need to insert";
3641                 mes "some kind of object...^000000";
3642                 next;
3643                 switch(select("Insert a Crest Piece.:Cancel.")) {
3644                 case 1:
3645                         if (countitem(7358) > 0) {
3646                                 mes "^3355FFYou take out your";
3647                                 mes "Crest Piece and place";
3648                                 mes "it into the slot where it";
3649                                 mes "happens to fit perfectly.^000000";
3650                                 specialeffect EF_TOPRANK;
3651                                 cutin "3-1",2;
3652                                 next;
3653                                 if ($@JupreArea2InUse == 1) {
3654                                         mes "^3355FFNothing happens.";
3655                                         mes "Perhaps an alarm or";
3656                                         mes "some other safety measure";
3657                                         mes "was activated to keep the";
3658                                         mes "Crest Piece from activating";
3659                                         mes "this transportation device.";
3660                                         mes "You retrieve the Crest Piece.^000000";
3661                                         close2;
3662                                         cutin "3-1",255;
3663                                         end;
3664                                 }
3665                                 else {
3666                                         mes "^3355FFThe slot rotates and";
3667                                         mes "the Crest Piece moves as";
3668                                         mes "if it were turning a key. You";
3669                                         mes "feel a weak tremor as a Warp";
3670                                         mes "Portal to the other side is";
3671                                         mes "activated. You then retrieve";
3672                                         mes "your Crest Piece.^000000";
3673                                         initnpctimer;
3674                                         donpcevent "Warp#2-3::OnEnable";
3675                                         enablenpc "Red Alarm#2-3";
3676                                         disablenpc "#hole#2-3";
3677                                         close2;
3678                                         cutin "3-1",255;
3679                                         end;
3680                                 }
3681                         }
3682                         else {
3683                                 mes "^3355FFUnfortunately, you're";
3684                                 mes "not carrying anything";
3685                                 mes "that might be able to fit";
3686                                 mes "into the slot and activate";
3687                                 mes "this mechanical device.^000000";
3688                                 close2;
3689                                 cutin "3",255;
3690                                 end;
3691                         }
3692                 case 2:
3693                         mes "[" + strcharinfo(0) + "]";
3694                         mes "Hmmm...";
3695                         mes "Do I have anything";
3696                         mes "that might make this";
3697                         mes "weird machine work?";
3698                         close2;
3699                         cutin "3",255;
3700                         end;
3701                 }
3702         }
3703         else {
3704                 mes "^3355FFThis seems like";
3705                 mes "some kind of device";
3706                 mes "that will allow you to";
3707                 mes "pass to the other side.";
3708                 mes "There's a slot where you";
3709                 mes "probably need to insert";
3710                 mes "some kind of object...^000000";
3711                 close2;
3712                 cutin "3",255;
3713                 end;
3714         }
3715         end;
3716
3717 OnStop_Timer:
3718         stopnpctimer;
3719         end;
3720
3721 OnTimer22500:
3722         stopnpctimer;
3723         enablenpc "#hole#2-3";
3724         disablenpc "Red Alarm#2-3";
3725         end;
3726 }
3727
3728 jupe_area2,130,137,0    script  Warp#2-3        139,2,2,{
3729 OnInit:
3730         disablenpc "Warp#2-3";
3731         end;
3732
3733 OnEnable:
3734         enablenpc "Warp#2-3";
3735         specialeffect EF_BIG_PORTAL;
3736         soundeffectall "jupe_warp.wav",0;
3737         initnpctimer;
3738         end;
3739
3740 OnTouch_:
3741         warp "jupe_area2",130,105;
3742         end;
3743
3744 OnTimer22500:
3745         disablenpc "Warp#2-3";
3746         end;
3747 }
3748
3749 jupe_area2,130,105,0    script  Red Alarm#2-3   -1,0,4,{
3750 OnInit:
3751         disablenpc "Red Alarm#2-3";
3752         end;
3753
3754 OnTouch_:
3755         set $@JupreArea2InUse,1;
3756         donpcevent "Red Alarm On#2-3::OnEnable";
3757         disablenpc "Red Alarm#2-3";
3758         disablenpc "#hole#2-3";
3759         end;
3760 }
3761
3762 -       script  Red Alarm On#2-3        -1,{
3763 OnInit:
3764         disablenpc "Red Alarm On#2-3";
3765         end;
3766
3767 OnEnable:
3768         enablenpc "Red Alarm On#2-3";
3769         initnpctimer;
3770         end;
3771
3772 OnTimer1000:
3773         mapannounce "jupe_area2","These security systems...",bc_map,"0xFF0000";
3774         end;
3775
3776 OnTimer3000:
3777         mapannounce "jupe_area2","They're not really for protection.",bc_map,"0xFF0000";
3778         disablenpc "#hole#2-3";
3779         end;
3780
3781 OnTimer5000:
3782         mapannounce "jupe_area2","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
3783         donpcevent "Monster1#2-3::OnEnable";
3784         end;
3785
3786 OnTimer7000:
3787         mapannounce "jupe_area2","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
3788         end;
3789
3790 OnTimer8000:
3791         disablenpc "Red Alarm On#2-3";
3792         stopnpctimer;
3793         end;
3794 }
3795
3796 -       script  Monster1#2-3    -1,{
3797 OnInit:
3798         disablenpc "Monster1#2-3";
3799         end;
3800
3801 OnDisable:
3802         disablenpc "Monster1#2-3";
3803         killmonster "jupe_area2","Monster1#2-3::OnMyMobDead";
3804         end;
3805
3806 OnEnable:
3807         initnpctimer;
3808         enablenpc "Monster1#2-3";
3809         set .MyMobs,8;
3810         monster "jupe_area2",126,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3811         monster "jupe_area2",127,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3812         monster "jupe_area2",128,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3813         monster "jupe_area2",129,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3814         monster "jupe_area2",130,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3815         monster "jupe_area2",131,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3816         monster "jupe_area2",132,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3817         monster "jupe_area2",133,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3818         end;
3819
3820 OnTimer300000:
3821         mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
3822         set $@JupreArea2InUse,0;
3823         end;
3824
3825 OnTimer300002:
3826         donpcevent "Monster1#2-3::OnDisable";
3827         enablenpc "#hole#2-3";
3828         end;
3829
3830 OnMyMobDead:
3831         set .MyMobs,.MyMobs-1;
3832         if (.MyMobs < 1) {
3833                 donpcevent "Monster2#2-3::OnEnable";
3834                 disablenpc "Monster1#2-3";
3835                 stopnpctimer;
3836         }
3837         end;
3838 }
3839
3840 -       script  Monster2#2-3    -1,{
3841 OnInit:
3842         disablenpc "Monster2#2-3";
3843         end;
3844
3845 OnDisable:
3846         disablenpc "Monster2#2-3";
3847         killmonster "jupe_area2","Monster2#2-3::OnMyMobDead";
3848         end;
3849
3850 OnEnable:
3851         initnpctimer;
3852         enablenpc "Monster2#2-3";
3853         end;
3854
3855 OnTimer2000:
3856         mapannounce "jupe_area2","Why have you come?",bc_map,"0xFF0000";
3857         end;
3858
3859 OnTimer5000:
3860         mapannounce "jupe_area2","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
3861         end;
3862
3863 OnTimer8000:
3864         mapannounce "jupe_area2","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
3865         set .MyMobs,16;
3866         monster "jupe_area2",114,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3867         monster "jupe_area2",115,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3868         monster "jupe_area2",116,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3869         monster "jupe_area2",117,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3870         monster "jupe_area2",118,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3871         monster "jupe_area2",119,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3872         monster "jupe_area2",120,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3873         monster "jupe_area2",121,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3874         monster "jupe_area2",114,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3875         monster "jupe_area2",115,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3876         monster "jupe_area2",116,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3877         monster "jupe_area2",117,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3878         monster "jupe_area2",118,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3879         monster "jupe_area2",119,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3880         monster "jupe_area2",120,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3881         monster "jupe_area2",121,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3882         end;
3883
3884 OnTimer300000:
3885         mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
3886         set $@JupreArea2InUse,0;
3887         end;
3888
3889 OnTimer300002:
3890         enablenpc "#hole#2-3";
3891         stopnpctimer;
3892         donpcevent "Monster2#2-3::OnDisable";
3893         end;
3894
3895 OnMyMobDead:
3896         set .MyMobs,.MyMobs-1;
3897         if (.MyMobs < 1) {
3898                 mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
3899                 disablenpc "Monster2#2-3";
3900                 enablenpc "#hole#2-3";
3901                 set $@JupreArea2InUse,0;
3902                 stopnpctimer;
3903         }
3904         end;
3905 }
3906
3907 //============================================================
3908 // Security Checkpoint 2-4
3909 //============================================================
3910 jupe_area2,113,49,0     script  #hole#2-4       844,{
3911         cutin "4",2;
3912         if ($@JupreArea2InUse == 1) {
3913                 mes "^3355FFThis seems like";
3914                 mes "some kind of device";
3915                 mes "that will allow you to";
3916                 mes "pass to the other side.";
3917                 mes "There's a slot where you";
3918                 mes "probably need to insert";
3919                 mes "some kind of object...^000000";
3920                 close2;
3921                 cutin "4",255;
3922                 end;
3923         }
3924         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
3925                 mes "^3355FFThis seems like";
3926                 mes "some kind of device";
3927                 mes "that will allow you to";
3928                 mes "pass to the other side.";
3929                 mes "There's a slot where you";
3930                 mes "probably need to insert";
3931                 mes "some kind of object...^000000";
3932                 next;
3933                 switch(select("Insert a Crest Piece.:Cancel.")) {
3934                 case 1:
3935                         if (countitem(7359) > 0) {
3936                                 mes "^3355FFYou take out your";
3937                                 mes "Crest Piece and place";
3938                                 mes "it into the slot where it";
3939                                 mes "happens to fit perfectly.^000000";
3940                                 specialeffect EF_TOPRANK;
3941                                 cutin "4-1",2;
3942                                 next;
3943                                 if ($@JupreArea2InUse == 1) {
3944                                         mes "^3355FFNothing happens.";
3945                                         mes "Perhaps an alarm or";
3946                                         mes "some other safety measure";
3947                                         mes "was activated to keep the";
3948                                         mes "Crest Piece from activating";
3949                                         mes "this transportation device.";
3950                                         mes "You retrieve the Crest Piece.^000000";
3951                                         close2;
3952                                         cutin "4-1",255;
3953                                         end;
3954                                 }
3955                                 else {
3956                                         mes "^3355FFThe slot rotates and";
3957                                         mes "the Crest Piece moves as";
3958                                         mes "if it were turning a key. You";
3959                                         mes "feel a weak tremor as a Warp";
3960                                         mes "Portal to the other side is";
3961                                         mes "activated. You then retrieve";
3962                                         mes "your Crest Piece.^000000";
3963                                         initnpctimer;
3964                                         donpcevent "Warp#2-4::OnEnable";
3965                                         donpcevent "Red Alarm#2-4::OnEnable";
3966                                         disablenpc "#hole#2-4";
3967                                         close2;
3968                                         cutin "4-1",255;
3969                                         end;
3970                                 }
3971                         }
3972                         else {
3973                                 mes "^3355FFUnfortunately, you're";
3974                                 mes "not carrying anything";
3975                                 mes "that might be able to fit";
3976                                 mes "into the slot and activate";
3977                                 mes "this mechanical device.^000000";
3978                                 close2;
3979                                 cutin "4",255;
3980                                 end;
3981                         }
3982                         break;
3983                 case 2:
3984                         mes "[" + strcharinfo(0) + "]";
3985                         mes "Hmmm...";
3986                         mes "Do I have anything";
3987                         mes "that might make this";
3988                         mes "weird machine work?";
3989                         close2;
3990                         cutin "4",255;
3991                         end;
3992                 }
3993         }
3994         else {
3995                 mes "^3355FFThis seems like";
3996                 mes "some kind of device";
3997                 mes "that will allow you to";
3998                 mes "pass to the other side.";
3999                 mes "There's a slot where you";
4000                 mes "probably need to insert";
4001                 mes "some kind of object...^000000";
4002                 close2;
4003                 cutin "4",255;
4004                 end;
4005         }
4006         end;
4007
4008 OnStop_Timer:
4009         stopnpctimer;
4010         end;
4011
4012 OnTimer5000:
4013         stopnpctimer;
4014         enablenpc "#hole#2-4";
4015         disablenpc "Red Alarm#2-4";
4016         end;
4017 }
4018
4019 jupe_area2,106,53,0     script  Warp#2-4        139,2,2,{
4020 OnInit:
4021         disablenpc "Warp#2-4";
4022         end;
4023
4024 OnEnable:
4025         enablenpc "Warp#2-4";
4026         specialeffect EF_BIG_PORTAL;
4027         soundeffectall "jupe_warp.wav",0;
4028         initnpctimer;
4029         end;
4030
4031 OnTouch_:
4032         warp "jupe_area2",80,157;
4033         end;
4034
4035 OnTimer5000:
4036         disablenpc "Warp#2-4";
4037         end;
4038 }
4039
4040 jupe_area2,80,157,0     script  Red Alarm#2-4   -1,2,2,{
4041 OnInit:
4042         disablenpc "Red Alarm#2-4";
4043         end;
4044
4045 OnEnable:
4046         enablenpc "Red Alarm#2-4";
4047         end;
4048
4049 OnTouch_:
4050         set $@JupreArea2InUse,1;
4051         donpcevent "Red Alarm On#2-4::OnEnable";
4052         disablenpc "Red Alarm#2-4";
4053         disablenpc "#hole#2-4";
4054         end;
4055 }
4056
4057 -       script  Red Alarm On#2-4        -1,{
4058 OnInit:
4059         disablenpc "Red Alarm On#2-4";
4060         end;
4061
4062 OnEnable:
4063         enablenpc "Red Alarm On#2-4";
4064         initnpctimer;
4065         end;
4066
4067 OnTimer1000:
4068         mapannounce "jupe_area2","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
4069         end;
4070
4071 OnTimer3000:
4072         mapannounce "jupe_area2","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
4073         end;
4074
4075 OnTimer5000:
4076         mapannounce "jupe_area2","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
4077         donpcevent "Monster1#2-4::OnEnable";
4078         end;
4079
4080 OnTimer7000:
4081         mapannounce "jupe_area2","Is somewhere down here, wandering...",bc_map,"0xFF0000";
4082         end;
4083
4084 OnTimer8000:
4085         stopnpctimer;
4086         disablenpc "Red Alarm On#2-4";
4087         end;
4088 }
4089
4090 -       script  Monster1#2-4    -1,{
4091 OnInit:
4092         disablenpc "Monster1#2-4";
4093         end;
4094
4095 OnDisable:
4096         disablenpc "Monster1#2-4";
4097         killmonster "jupe_area2","Monster1#2-4::OnMyMobDead";
4098         end;
4099
4100 OnEnable:
4101         initnpctimer;
4102         enablenpc "Monster1#2-4";
4103         set .MyMobs,8;
4104         monster "jupe_area2",75,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4105         monster "jupe_area2",72,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4106         monster "jupe_area2",71,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4107         monster "jupe_area2",68,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4108         monster "jupe_area2",75,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4109         monster "jupe_area2",72,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4110         monster "jupe_area2",71,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4111         monster "jupe_area2",68,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4112         end;
4113
4114 OnTimer300000:
4115         mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
4116         set $@JupreArea2InUse,0;
4117         end;
4118
4119 OnTimer300002:
4120         stopnpctimer;
4121         enablenpc "#hole#2-4";
4122         donpcevent "Monster1#2-4::OnDisable";
4123         end;
4124
4125 OnMyMobDead:
4126         set .MyMobs,.MyMobs-1;
4127         if (.MyMobs < 1) {
4128                 donpcevent "Monster2#2-4::OnEnable";
4129                 disablenpc "Monster1#2-4";
4130                 stopnpctimer;
4131         }
4132         end;
4133 }
4134
4135 -       script  Monster2#2-4    -1,{
4136 OnInit:
4137         disablenpc "Monster2#2-4";
4138         end;
4139
4140 OnDisable:
4141         killmonster "jupe_area2","Monster2#2-4::OnMyMobDead";
4142         disablenpc "Monster2#2-4";
4143         end;
4144
4145 OnEnable:
4146         enablenpc "Monster2#2-4";
4147         initnpctimer;
4148         end;
4149
4150 OnTimer2000:
4151         mapannounce "jupe_area2","I can never rest in peace...",bc_map,"0xFF0000";
4152         end;
4153
4154 OnTimer4000:
4155         mapannounce "jupe_area2","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
4156         end;
4157
4158 OnTimer6000:
4159         mapannounce "jupe_area2","I will be waiting for you!",bc_map,"0xFF0000";
4160         set .MyMobs,12;
4161         monster "jupe_area2",63,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4162         monster "jupe_area2",61,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4163         monster "jupe_area2",59,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4164         monster "jupe_area2",57,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4165         monster "jupe_area2",55,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4166         monster "jupe_area2",53,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4167         monster "jupe_area2",53,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4168         monster "jupe_area2",55,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4169         monster "jupe_area2",57,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4170         monster "jupe_area2",59,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4171         monster "jupe_area2",61,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4172         monster "jupe_area2",63,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4173         end;
4174
4175 OnTimer300000:
4176         set $@JupreArea2InUse,0;
4177         mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
4178         end;
4179
4180 OnTimer300002:
4181         enablenpc "#hole#2-4";
4182         donpcevent "Monster2#2-4::OnDisable";
4183         end;
4184
4185 OnMyMobDead:
4186         set .MyMobs,.MyMobs-1;
4187         if (.MyMobs < 1) {
4188                 mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
4189                 disablenpc "Monster2#2-4";
4190                 enablenpc "#hole#2-4";
4191                 set $@JupreArea2InUse,0;
4192                 stopnpctimer;
4193         }
4194         end;
4195 }
4196
4197 //============================================================
4198 // Move to Elevator
4199 //============================================================
4200 jupe_area2,51,162,0     script  Lever#ufe2      844,{
4201         mes "^3355FFIt's a lever";
4202         mes "whose function";
4203         mes "is not known to you.^000000";
4204         next;
4205         switch(select("Pull.:Cancel.")) {
4206         case 1:
4207                 if ($@JupreArea2InUse == 1) close;
4208                 initnpctimer;
4209                 donpcevent "LeverWarp#ufe2::OnEnable";
4210                 disablenpc "Lever#ufe2";
4211                 close;
4212         case 2:
4213                 mes "[" + strcharinfo(0) + "]";
4214                 mes "Pull this lever?";
4215                 mes "I don't even know";
4216                 mes "what will happen...";
4217                 close;
4218         }
4219         close;
4220
4221 OnTimer3000:
4222         enablenpc "Lever#ufe2";
4223         stopnpctimer;
4224         end;
4225 }
4226
4227 jupe_area2,46,157,0     script  LeverWarp#ufe2  139,2,2,{
4228 OnInit:
4229         disablenpc "LeverWarp#ufe2";
4230         end;
4231
4232 OnEnable:
4233         enablenpc "LeverWarp#ufe2";
4234         specialeffect EF_BIG_PORTAL;
4235         soundeffectall "jupe_warp.wav",0;
4236         initnpctimer;
4237         end;
4238
4239 OnTouch_:
4240         warp "jupe_gate",71,29;
4241         end;
4242
4243 OnTimer3000:
4244         stopnpctimer;
4245         disablenpc "LeverWarp#ufe2";
4246         end;
4247 }
4248
4249 //============================================================
4250 // Elevator Reception Room
4251 //============================================================
4252 jupe_ele_r,51,98,0      script  Switch#ufe      844,{
4253         if ($@JupeElevatorInUse == 1) {
4254                 mes "^3355FFIt's some sort of";
4255                 mes "lever that looks like";
4256                 mes "it was already pulled";
4257                 mes "by someone else.^000000";
4258                 close;
4259         }
4260         else {
4261                 cutin "5",2;
4262                 mes "^3355FFIt's some sort of";
4263                 mes "lever that's located";
4264                 mes "next to four empty slots.^000000";
4265                 next;
4266                 switch(select("Pull the lever.:Leave it alone.")) {
4267                 case 1:
4268                         mes "^3355FF*Snap Snap*^000000";
4269                         next;
4270                         mes "^3355FFYou pull the lever,";
4271                         mes "but nothing happened.";
4272                         mes "You probably need to";
4273                         mes "insert the correct objects";
4274                         mes "into the slots in order";
4275                         mes "for the lever to operate.^000000";
4276                         next;
4277                         if (countitem(7356) > 0 && countitem(7359) > 0 && countitem(7357) > 0 && countitem(7358) > 0) {
4278                                 switch(select("Insert all of your Crest Pieces.")) {
4279                                 case 1:
4280                                         mes "^3300FF*Snap!*^000000";
4281                                         mes "^3300FFStrangely enough,";
4282                                         mes "all four of the Crest";
4283                                         mes "Pieces fit perfectly into";
4284                                         mes "the slots and begin to";
4285                                         mes "emit a strange light.^000000";
4286                                         cutin "5-1",2;
4287                                         specialeffect EF_SPHERE;
4288                                         delitem 7356,1; //Piece_Of_Crest1
4289                                         delitem 7359,1; //Piece_Of_Crest4
4290                                         delitem 7357,1; //Piece_Of_Crest2
4291                                         delitem 7358,1; //Piece_Of_Crest3
4292                                         next;
4293                                         switch(select("Pull out the Crest Pieces.:Pull the lever.")) {
4294                                         case 1:
4295                                                 cutin "5",2;
4296                                                 mes "^3355FFYou pull out all";
4297                                                 mes "the Crest Pieces";
4298                                                 mes "that you inserted";
4299                                                 mes "into the slots.^000000";
4300                                                 getitem 7356,1; //Piece_Of_Crest1
4301                                                 getitem 7359,1; //Piece_Of_Crest4
4302                                                 getitem 7357,1; //Piece_Of_Crest2
4303                                                 getitem 7358,1; //Piece_Of_Crest3
4304                                                 close2;
4305                                                 cutin "5",255;
4306                                                 end;
4307                                         case 2:
4308                                                 if ($@JupeElevatorInUse == 1) {
4309                                                         mes "^3355FFIt's strange,";
4310                                                         mes "but this lever has";
4311                                                         mes "already been pulled.^000000";
4312                                                         close2;
4313                                                         cutin "5",255;
4314                                                         end;
4315                                                 }
4316                                                 else {
4317                                                         mes "^3355FFOnce you pull the lever,";
4318                                                         mes "the Crest Piece slots are";
4319                                                         mes "suddenly covered, making";
4320                                                         mes "them irretrievable, and the";
4321                                                         mes "ground begins to shake";
4322                                                         mes "violently. This isn't normal!^000000";
4323                                                         next;
4324                                                         set $@JupeElevatorInUse,1;
4325                                                         disablenpc "Switch#ufe";
4326                                                         enablenpc "Switch On#ufe";
4327                                                         initnpctimer;
4328                                                         specialeffect2 EF_SCREEN_QUAKE;
4329                                                         soundeffectall "earth_quake.wav",0;
4330                                                         close2;
4331                                                         cutin "5-1",255;
4332                                                         end;
4333                                                 }
4334                                         }
4335                                 }
4336                         }
4337                         else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
4338                                 select("Insert Crest Pieces.");
4339                                 mes "^3355FFRight now, you don't";
4340                                 mes "have enough Crest Pieces";
4341                                 mes "to place into all four of these";
4342                                 mes "slots. You'll need to find and^FFFFFF ^3355FF bring them all to make this work.^000000";
4343                                 close2;
4344                                 cutin "5-1",255;
4345                                 end;
4346                         }
4347                         else {
4348                                 mes "^3355FFYou need to find";
4349                                 mes "some kind of object";
4350                                 mes "that you can fit into";
4351                                 mes "each of these four slots...^000000";
4352                                 close2;
4353                                 cutin "5-1",255;
4354                                 end;
4355                         }
4356                 case 2:
4357                         mes "^3355FFWho knows what";
4358                         mes "this lever may do?";
4359                         mes "You'll never know unless";
4360                         mes "you have the courage to try.^000000";
4361                         close2;
4362                         cutin "5",255;
4363                         end;
4364                 }
4365         }
4366         end;
4367
4368 OnTimer2000:
4369         mapannounce "jupe_ele_r","My descendents...",bc_map,"0x66FF00";
4370         end;
4371
4372 OnTimer3000:
4373         mapannounce "jupe_ele_r","Do you want to know why this city was buried beneath the earth...?",bc_map,"0x66FF00";
4374         end;
4375
4376 OnTimer7000:
4377         mapannounce "jupe_ele_r","If so, follow my voice...",bc_map,"0x66FF00";
4378         end;
4379
4380 OnTimer10000:
4381         mapannounce "jupe_ele_r","I shall let you see for yourself what you desire to know...",bc_map,"0x66FF00";
4382         end;
4383
4384 OnTimer17000:
4385         mapannounce "jupe_ele_r","Overcome all the hallucinations.",bc_map,"0xCC6600";
4386         end;
4387
4388 OnTimer20000:
4389         mapannounce "jupe_ele_r","Open your eyes and see past all of the lies.",bc_map,"0xFF0000";
4390         end;
4391
4392 OnTimer23000:
4393         mapannounce "jupe_ele_r","I can only maintain this vision for you for 20 minutes.",bc_map,"0xFF0000";
4394         donpcevent "Elevator Guard1#ufe::OnEnable";
4395         end;
4396
4397 OnTimer27000:
4398         mapannounce "jupe_ele_r","Look! And remember!",bc_map,"0xFF0000";
4399         stopnpctimer;
4400         end;
4401 }
4402
4403 jupe_ele_r,51,98,0      script  Switch On#ufe   844,{
4404         mes "^3355FFIt seems like";
4405         mes "someone else is";
4406         mes "using this machine...^000000";
4407         close;
4408
4409 OnInit:
4410         disablenpc "Switch On#ufe";
4411         end;
4412 }
4413
4414 //============================================================
4415 // Elevator Receptoin Guards
4416 //============================================================
4417 jupe_ele_r,10,50,0      script  Elevator Guard1#ufe     -1,{
4418 OnInit:
4419         disablenpc "Elevator Guard1#ufe";
4420         end;
4421
4422 OnEnable:
4423         set .MyMobs,9;
4424         enablenpc "Elevator Guard1#ufe";
4425         initnpctimer;
4426         end;
4427
4428 OnTimer1000:
4429         monster "jupe_ele_r",44,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4430         end;
4431
4432 OnTimer1200:
4433         monster "jupe_ele_r",55,99,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
4434         end;
4435
4436 OnTimer1400:
4437         monster "jupe_ele_r",45,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4438         end;
4439
4440 OnTimer1600:
4441         monster "jupe_ele_r",54,84,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
4442         end;
4443
4444 OnTimer1800:
4445         monster "jupe_ele_r",45,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4446         end;
4447
4448 OnTimer2000:
4449         monster "jupe_ele_r",54,99,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4450         end;
4451
4452 OnTimer2200:
4453         monster "jupe_ele_r",48,84,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4454         end;
4455
4456 OnTimer2400:
4457         monster "jupe_ele_r",52,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4458         end;
4459
4460 OnTimer2600:
4461         monster "jupe_ele_r",50,84,"Chief Guard",1684,1,"Elevator Guard1#ufe::OnMyMobDead";
4462         end;
4463
4464 OnTimer120000:
4465         mapannounce "jupe_ele_r","It is disappointing to see that you are too weak to even defeat a hallucination...",bc_map,"0x66FF00";
4466         enablenpc "Switch#ufe";
4467         disablenpc "Switch On#ufe";
4468         donpcevent "Annihilation#ufe::OnEnable";
4469         set $@JupeElevatorInUse,0;
4470         end;
4471
4472 OnTimer120005:
4473         killmonster "jupe_ele_r","Elevator Guard1#ufe::OnMyMobDead";
4474         stopnpctimer;
4475         end;
4476
4477 OnMyMobDead:
4478         set .MyMobs,.MyMobs-1;
4479         if (.MyMobs < 1) {
4480                 donpcevent "Elevator Safety#ufe::OnEnable";
4481                 stopnpctimer;
4482         }
4483         end;
4484 }
4485
4486 jupe_ele_r,10,52,0      script  Elevator Safety#ufe     -1,{
4487 OnInit:
4488         disablenpc "Elevator Safety#ufe";
4489         end;
4490
4491 OnEnable:
4492         enablenpc "Elevator Safety#ufe";
4493         initnpctimer;
4494         end;
4495
4496 OnTimer5000:
4497         mapannounce "jupe_ele_r","Those of you who have defeated the hallucination, step forward.",bc_map,"0x66FF00";
4498         soundeffectall "earth_quake.wav",0;
4499         end;
4500
4501 OnTimer8000:
4502         donpcevent "Elevator On#ufe::OnEnable";
4503         end;
4504
4505 OnTimer10000:
4506         disablenpc "Elevator Safety#ufe";
4507         stopnpctimer;
4508         end;
4509 }
4510
4511 jupe_ele_r,50,89,0      script  Annihilation#ufe        -1,35,50,{
4512 OnInit:
4513         disablenpc "Annihilation#ufe";
4514         end;
4515
4516 OnEnable:
4517         enablenpc "Annihilation#ufe";
4518         initnpctimer;
4519         end;
4520
4521 OnTouch_:
4522         percentheal -99,-100;
4523         end;
4524
4525 OnTimer1000:
4526         mapwarp "jupe_ele_r", "jupe_gate",49,138;
4527         end;
4528
4529 OnTimer1600:
4530         enablenpc "Elevator Escape#ufe";
4531         end;
4532
4533 OnTimer3000:
4534         disablenpc "Annihilation#ufe";
4535         disablenpc "Elevator Escape#ufe";
4536         end;
4537 }
4538
4539 jupe_ele_r,50,89,0      script  Elevator Escape#ufe     -1,35,50,{
4540 OnInit:
4541         disablenpc "Elevator Escape#ufe";
4542         end;
4543
4544 OnTouch_:
4545         mapwarp "jupe_ele_r", "jupe_gate",49,138;
4546         end;
4547 }
4548
4549 jupe_ele_r,10,54,0      script  Elevator On#ufe -1,{
4550 OnInit:
4551         disablenpc "Elevator On#ufe";
4552         end;
4553
4554 OnEnable:
4555         enablenpc "Elevator On#ufe";
4556         initnpctimer;
4557         end;
4558
4559 OnTimer1000:
4560         mapwarp "jupe_ele_r", "jupe_ele",42,47;
4561         set $@JupeElevatorInUse2,0;
4562         donpcevent "TimeOut#ufe::OnEnable";
4563         donpcevent "Guard-1#ufe::OnEnable";
4564         end;
4565
4566 OnTimer10000:
4567         stopnpctimer;
4568         disablenpc "Elevator On#ufe";
4569         end;
4570 }
4571
4572 //============================================================
4573 // Elevator NPCs
4574 //============================================================
4575 jupe_ele,14,6,1 script  TimeOut#ufe     844,{
4576 OnEnable:
4577         initnpctimer;
4578         end;
4579
4580 OnDisable:
4581         stopnpctimer;
4582         end;
4583
4584 OnTimer59000:
4585         if (getmapusers("jupe_ele") == 0) {
4586                 killmonsterall "jupe_ele";
4587                 donpcevent "Guard-1#ufe::OnDisable";
4588                 donpcevent "Guard-2#ufe::OnDisable";
4589                 donpcevent "Guard-3#ufe::OnDisable";
4590                 donpcevent "Guard-4#ufe::OnDisable";
4591                 stopnpctimer;
4592                 set $@JupeElevatorInUse2,0;
4593                 set $@JupeElevatorInUse,0;
4594                 disablenpc "Switch On#ufe";
4595                 enablenpc "Switch#ufe";
4596         }
4597         end;
4598
4599 OnTimer120000:
4600         killmonsterall "jupe_ele";
4601         donpcevent "Guard-1#ufe::OnDisable";
4602         donpcevent "Guard-2#ufe::OnDisable";
4603         donpcevent "Guard-3#ufe::OnDisable";
4604         donpcevent "Guard-4#ufe::OnDisable";
4605         mapannounce "jupe_ele","In the end, you can't even overcome your inner fear...",bc_map,"0xFF0000";
4606         end;
4607
4608 OnTimer122000:
4609         mapannounce "jupe_ele","You have never encountered your inner fears, have you?",bc_map,"0xFF0000";
4610         end;
4611
4612 OnTimer125000:
4613         mapannounce "jupe_ele","Did you expect this would be the end of the hallucination?",bc_map,"0xFF0000";
4614         end;
4615
4616 OnTimer127000:
4617         mapannounce "jupe_ele","What if the voice you're hearing is also a hallucination?",bc_map,"0xFF0000";
4618         end;
4619
4620 OnTimer129000:
4621         mapannounce "jupe_ele","What if you're just dreaming all of this?",bc_map,"0xFF0000";
4622         end;
4623
4624 OnTimer131000:
4625         mapannounce "jupe_ele","What if the existence of this city is a lie?",bc_map,"0xFF0000";
4626         end;
4627
4628 OnTimer133000:
4629         mapannounce "jupe_ele","Are you even real?",bc_map,"0xFF0000";
4630         end;
4631
4632 OnTimer134000:
4633 OnTimer135000:
4634         mapwarp "jupe_ele", "jupe_gate",49,138;
4635         end;
4636
4637 OnTimer142000:
4638         disablenpc "GuardEnd#ufe";
4639         disablenpc "4F Enter#ufe";
4640         donpcevent "TimeOut#ufe::OnDisable";
4641         set $@JupeElevatorInUse2,0;
4642         set $@JupeElevatorInUse,0;
4643         disablenpc "Switch On#ufe";
4644         enablenpc "Switch#ufe";
4645         stopnpctimer;
4646         end;
4647 }
4648
4649 jupe_ele,15,6,1 script  Guard-1#ufe     844,{
4650 OnEnable:
4651         initnpctimer;
4652         end;
4653
4654 OnDisable:
4655         stopnpctimer;
4656         end;
4657
4658 OnTimer2000:
4659         mapannounce "jupe_ele","I admire your patience.",bc_map,"0xFF0000";
4660         end;
4661
4662 OnTimer5000:
4663         mapannounce "jupe_ele","Let's see if everything you have experienced",bc_map,"0xFF0000";
4664         end;
4665
4666 OnTimer8000:
4667         mapannounce "jupe_ele","were traps for intruders...",bc_map,"0xFF0000";
4668         end;
4669
4670 OnTimer12000:
4671         set .MyMobs,8;
4672         monster "jupe_ele",48,44,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4673         monster "jupe_ele",45,42,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4674         monster "jupe_ele",38,42,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4675         monster "jupe_ele",35,44,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4676         monster "jupe_ele",35,51,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4677         monster "jupe_ele",38,53,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4678         monster "jupe_ele",45,53,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4679         monster "jupe_ele",48,51,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4680         set $@JupeElevatorInUse2,1;
4681         end;
4682
4683 OnTimer30000:
4684         if ($@JupeElevatorInUse2 == 1) {
4685                 donpcevent "Guard-2#ufe::OnEnable";
4686                 stopnpctimer;
4687         }
4688         end;
4689
4690 OnMyMobDead:
4691         set .MyMobs,.MyMobs-1;
4692         if (.MyMobs < 1) {
4693                 if ($@JupeElevatorInUse2 == 1) {
4694                         donpcevent "Guard-2#ufe::OnEnable";
4695                         stopnpctimer;
4696                 } else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4697                         donpcevent "GuardEnd#ufe::OnEnable";
4698                         stopnpctimer;
4699                 }
4700         }
4701         end;
4702 }
4703
4704 jupe_ele,16,6,1 script  Guard-2#ufe     844,{
4705 OnEnable:
4706         initnpctimer;
4707         end;
4708
4709 OnDisable:
4710         stopnpctimer;
4711         end;
4712
4713 OnTimer2000:
4714         mapannounce "jupe_ele","This city was not",bc_map,"0xFF0000";
4715         end;
4716
4717 OnTimer5000:
4718         mapannounce "jupe_ele","as magnificient as you thought.",bc_map,"0xFF0000";
4719         end;
4720
4721 OnTimer8000:
4722         mapannounce "jupe_ele","This is a place where all the fears of humans flourish.",bc_map,"0xFF0000";
4723         end;
4724
4725 OnTimer11000:
4726         mapannounce "jupe_ele","Yes. Nobody leaves alive!",bc_map,"0xFF0000";
4727         end;
4728
4729 OnTimer12000:
4730         set .MyMobs,8;
4731         monster "jupe_ele",48,44,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4732         monster "jupe_ele",45,42,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4733         monster "jupe_ele",38,42,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4734         monster "jupe_ele",35,44,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4735         monster "jupe_ele",35,51,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4736         monster "jupe_ele",38,53,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4737         monster "jupe_ele",45,53,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4738         monster "jupe_ele",48,51,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4739         set $@JupeElevatorInUse2,2;
4740         end;
4741
4742 OnTimer30000:
4743         if ($@JupeElevatorInUse2 == 2) {
4744                 donpcevent "Guard-3#ufe::OnEnable";
4745                 stopnpctimer;
4746         }
4747         end;
4748
4749 OnMyMobDead:
4750         set .MyMobs,.MyMobs-1;
4751         if (.MyMobs < 1) {
4752                 if ($@JupeElevatorInUse2 == 2) {
4753                         donpcevent "Guard-3#ufe::OnEnable";
4754                         stopnpctimer;
4755                 } else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4756                         donpcevent "GuardEnd#ufe::OnEnable";
4757                         stopnpctimer;
4758                 }
4759         }
4760         end;
4761 }
4762
4763 jupe_ele,17,6,1 script  Guard-3#ufe     844,{
4764 OnEnable:
4765         initnpctimer;
4766         end;
4767
4768 OnDisable:
4769         stopnpctimer;
4770         end;
4771
4772 OnTimer2000:
4773         mapannounce "jupe_ele","What do you see?",bc_map,"0xFF0000";
4774         end;
4775
4776 OnTimer5000:
4777         mapannounce "jupe_ele","Are your eyes actually seeing something?",bc_map,"0xFF0000";
4778         end;
4779
4780 OnTimer8000:
4781         mapannounce "jupe_ele","Or do you just believe you are seeing?",bc_map,"0xFF0000";
4782         end;
4783
4784 OnTimer12000:
4785         set .MyMobs,8;
4786         monster "jupe_ele",48,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4787         monster "jupe_ele",45,42,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4788         monster "jupe_ele",38,42,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
4789         monster "jupe_ele",35,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4790         monster "jupe_ele",35,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4791         monster "jupe_ele",38,53,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
4792         monster "jupe_ele",45,53,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4793         monster "jupe_ele",48,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4794         set $@JupeElevatorInUse2,3;
4795         end;
4796
4797 OnTimer30000:
4798         if ($@JupeElevatorInUse2 == 3) {
4799                 donpcevent "Guard-4#ufe::OnEnable";
4800                 stopnpctimer;
4801         }
4802         end;
4803
4804 OnMyMobDead:
4805         set .MyMobs,.MyMobs-1;
4806         if (.MyMobs < 1) {
4807                 if ($@JupeElevatorInUse2 == 3) {
4808                         donpcevent "Guard-4#ufe::OnEnable";
4809                         stopnpctimer;
4810                 }
4811                 else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4812                         donpcevent "GuardEnd#ufe::OnEnable";
4813                         stopnpctimer;
4814                 }
4815         }
4816         end;
4817 }
4818
4819 jupe_ele,18,6,1 script  Guard-4#ufe     844,{
4820 OnEnable:
4821         initnpctimer;
4822         end;
4823
4824 OnDisable:
4825         stopnpctimer;
4826         end;
4827
4828 OnTimer2000:
4829         mapannounce "jupe_ele","Do not forget. That which limits you is nothing but yourself.",bc_map,"0xFF0000";
4830         end;
4831
4832 OnTimer5000:
4833         mapannounce "jupe_ele","Nothing is what you fear and you have nothing to fear...",bc_map,"0xFF0000";
4834         end;
4835
4836 OnTimer8000:
4837         set .MyMobs,8;
4838         monster "jupe_ele",48,44,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
4839         monster "jupe_ele",45,42,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4840         monster "jupe_ele",38,42,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
4841         monster "jupe_ele",35,44,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4842         monster "jupe_ele",35,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
4843         monster "jupe_ele",38,53,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4844         monster "jupe_ele",45,53,"Guard",1683,1,"Guard-4#ufe::OnMyMobDead";
4845         monster "jupe_ele",48,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
4846         set $@JupeElevatorInUse2,4;
4847         end;
4848
4849 OnMyMobDead:
4850         set .MyMobs,.MyMobs-1;
4851         if (.MyMobs < 1) {
4852                 if (getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1) {
4853                         donpcevent "GuardEnd#ufe::OnEnable";
4854                         stopnpctimer;
4855                 }
4856         }
4857         end;
4858 }
4859
4860 jupe_ele,19,6,1 script  GuardEnd#ufe    844,{
4861 OnInit:
4862         disablenpc "GuardEnd#ufe";
4863         end;
4864
4865 OnEnable:
4866         enablenpc "GuardEnd#ufe";
4867         donpcevent "TimeOut#ufe::OnDisable";
4868         initnpctimer;
4869         end;
4870
4871 OnDisable:
4872         disablenpc "GuardEnd#ufe";
4873         stopnpctimer;
4874         end;
4875
4876 OnTimer2000:
4877         mapannounce "jupe_ele","I am not going to tell you anything.",bc_map,"0x66FF00";
4878         end;
4879
4880 OnTimer5000:
4881         mapannounce "jupe_ele","My city, my people are now but a memory.",bc_map,"0x66FF00";
4882         end;
4883
4884 OnTimer8000:
4885         mapannounce "jupe_ele","Everything was a mistake. We were not supposed to be here.",bc_map,"0x66FF00";
4886         end;
4887
4888 OnTimer11000:
4889         mapannounce "jupe_ele","Is this a place where humans are forbidden?",bc_map,"0x66FF00";
4890         end;
4891
4892 OnTimer12000:
4893         mapannounce "jupe_ele","You want to know, don't you? Go ahead... Go deeper.",bc_map,"0x66FF00";
4894         enablenpc "4F Enter#ufe";
4895         end;
4896
4897 OnTimer22000:
4898         mapannounce "jupe_ele","It's not real anyway. All of it's safe, it can't hurt you...",bc_map,"0x66FF00";
4899         soundeffectall "earth_quake.wav",0;
4900         disablenpc "4F Enter#ufe";
4901         end;
4902
4903 OnTimer24000:
4904         mapwarp "jupe_ele","jupe_core",150,286;
4905         end;
4906
4907 OnTimer25000:
4908         mapwarp "jupe_ele","jupe_core",151,286;
4909         end;
4910
4911 OnTimer26000:
4912         set $@JupeElevatorInUse2,0;
4913         set $@JupeElevatorInUse,0;
4914         disablenpc "Switch On#ufe";
4915         enablenpc "Switch#ufe";
4916         donpcevent "GuardEnd#ufe::OnDisable";
4917 }
4918
4919 jupe_ele,41,33,0        script  4F Enter#ufe    45,4,4,{
4920 OnInit:
4921         disablenpc "4F Enter#ufe";
4922         end;
4923
4924 OnTouch_:
4925         warp "jupe_core",rand(149,151),286;
4926         end;
4927 }
4928
4929 //============================================================
4930 // Warps
4931 //============================================================
4932 jupe_gate,50,173,0      script  gate#start      -1,2,3,{
4933         end;
4934
4935 OnTouch_:
4936         initnpctimer "gate#start",1;
4937         mes "^3355FFIt's a Warp Portal";
4938         mes "that will teleport you";
4939         mes "to the previous floor.^000000";
4940         next;
4941         switch(select("Use it.:Ignore it.")) {
4942         case 1:
4943                 specialeffect2 EF_LIGHTSPHERE;
4944                 close2;
4945                 stopnpctimer;
4946                 warp "juperos_02",130,142;
4947                 break;
4948         case 2:
4949                 mes "[" + strcharinfo(0) + "]";
4950                 mes "Not now!";
4951                 mes "I can't leave yet!";
4952                 close2;
4953                 stopnpctimer;
4954                 warp "jupe_gate",50,168;
4955                 break;
4956         }
4957         end;
4958
4959 OnTimer10000:
4960         warp "juperos_02",128,278;
4961         enablenpc "gate#start#2";
4962         disablenpc "gate#start";
4963         end;
4964 }
4965
4966 jupe_gate,50,171,0      script  gate#start#2    -1,2,2,{
4967 OnInit:
4968         disablenpc "gate#start#2";
4969         end;
4970
4971 OnTouch_:
4972         warp "juperos_02",130,142;
4973         end;
4974
4975 OnTimer2000:
4976         enablenpc "gate#start";
4977         disablenpc "gate#start#2";
4978         end;
4979 }
4980
4981 juperos_02,33,59,0      script  jupe_goto2F     45,2,2,{
4982 OnTouch_:
4983         switch(rand(1,4)) {
4984         case 1: warp "juperos_01",120,72; end;
4985         case 2: warp "juperos_01",120,112; end;
4986         case 3: warp "juperos_01",79,112; end;
4987         case 4: warp "juperos_01",79,72; end;
4988         }
4989         end;
4990 }
4991
4992 //============================================================
4993 // GM Management NPC
4994 //============================================================
4995 sec_in02,39,167,0       script  Juperos Manager 864,{
4996         callfunc "F_GM_NPC";
4997         mes "[Juperos Manager]";
4998         mes "I'm the NPC in";
4999         mes "charge of managing";
5000         mes "the global variables for";
5001         mes "the quests related to";
5002         mes "Juperos. GM, please";
5003         mes "enter the password.";
5004         next;
5005         if (callfunc("F_GM_NPC",1854,0) < 1) {
5006                 mes "[Juperos Manager]";
5007                 mes "Incorrect password.";
5008                 close;
5009         } else {
5010                 mes "[Juperos Manager]";
5011                 mes "Select a map. Remember:";
5012                 mes "Make sure that users aren't";
5013                 mes "doing the quest on the map";
5014                 mes "you're going to reset, or else";
5015                 mes "you'll cancel their progress";
5016                 mes "through the quest.";
5017                 next;
5018                 switch(select("jupe_Area1:jupe_Area2:jupe_ele_r:jupe_ele")) {
5019                 case 1:
5020                         set .@loc$,"jupe_Area1";
5021                         set .@var$,"$@JupreArea1InUse";
5022                         break;
5023                 case 2:
5024                         set .@loc$,"jupe_Area2";
5025                         set .@var$,"$@JupreArea2InUse";
5026                         break;
5027                 case 3:
5028                         set .@loc$,"jupe_ele_r";
5029                         set .@var$,"$@JupeElevatorInUse";
5030                         break;
5031                 case 4:
5032                         set .@loc$,"jupe_ele";
5033                         set .@var$,"$@JupeElevatorInUse2";
5034                         break;
5035                 }
5036                 mes "[Juperos Manager]";
5037                 mes "You've decided";
5038                 mes "to reset "+.@loc$+".";
5039                 mes "Shall we proceed?";
5040                 next;
5041                 switch(select("Yes.:No.")) {
5042                 case 1:
5043                         mes "[Juperos Manager]";
5044                         mes "The global variable in";
5045                         mes .@loc$+" has been";
5046                         mes "reset to 0. Thank you.";
5047                         setd .@var$,0;
5048                         close;
5049                 case 2:
5050                         mes "[Juperos Manager]";
5051                         mes "This command";
5052                         mes "has been canceled.";
5053                         close;
5054                 }
5055         }
5056 }