//==================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - ˹ ű - 
//===================================
// 汾1.7
//====================================
//= *̽˹
//= *ǰż
//====================================
yuno_in04,190,125,4	script	ѧ#yuno	700,{
	switch(yuno_hist) {
	case 0:
		mes "[ѧ]";
		mes "?";
		next;
		mes "[ѧ]";
		mes "?";
		next;
		switch(select("û:..." )) {
		case 1:
			mes "[ѧ]";
			mes "...";
			close;
		case 2:
			mes "[ѧ]";
			mes "?";
			mes "˵Ҳֵһ鰡?";
			next;
			mes "[ѧ]";
			mes "You must be lost.";
			mes "This is the scholarly";
			mes "research section, you know,";
			mes "content you couldn't possibly";
			mes "fathom. The popular novels and picture books are someplace else.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "...";
			mes "......";
			next;
			mes "[ѧ]";
			mes "Why don't you rummage";
			mes "through the bookshelves?";
			mes "I'm sure you can find some";
			mes "book there that can hold your";
			mes "interest. Well, depending on";
			mes "your actual attention span...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "(What's her damage?!";
			mes "Does she have an attitude problem or is she just stuck-up?)";
			close;
		}
	case 1:
		mes "[ѧ]";
		mes "...Mm? ";
		mes "...Yes?";
		next;
		mes "[ѧ]";
		mes "...";
		mes "......";
		mes "May I help you?";
		next;
		switch(select( "Oh! N-Nothing!:By any chance..." )) {
		case 1:
			mes "[ѧ]";
			mes "...";
			mes "......";
			mes "Hmm?";
			mes "...........";
			mes "Hmpf.";
			close;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "By any chance...";
			mes "Are you conducting";
			mes "research about Juperos?";
			next;
			mes "[ѧ]";
			mes "Why yes, that is";
			mes "correct. But how did";
			mes "you come to learn about";
			mes "my current research project?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Oh, I managed to read";
			mes "a thesis paper entitled,";
			mes "''The Fall of Juperos,'' and";
			mes "I just thought that the writing";
			mes "style and your personality";
			mes "seem to match for some reason.";
			next;
			mes "[ѧ]";
			mes "Oh...! You read my";
			mes "thesis? So what did";
			mes "you think about it?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "So far, it's alright, but";
			mes "quite frankly it's incomplete.";
			mes "I mean, you don't have much in";
			mes "in the way of conjecture, much";
			mes "less any evidence to back up";
			mes "any of your statements.";
			next;
			mes "[ѧ]";
			mes "....";
			mes "Let me apologize for";
			mes "being rude to you earlier.";
			mes "As you know, my name is";
			mes "˹ Khrhiyha. May I ask";
			mes "what your name might be?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "I'm "+strcharinfo(0)+",";
			mes "a brave adventurer in the";
			mes "service of his royal majesty,";
			mes "the wise and benevolent";
			mes "King Tristram III.";
			set yuno_hist,2;
			next;
			mes "[˹]";
			mes "Well, "+strcharinfo(0)+",";
			mes "I understand that my thesis";
			mes "still requires more evidence.";
			mes "But I'd need some ancient";
			mes "documents from Juperos";
			mes "to complete my research...";
			next;
			mes "[˹]";
			mes "If you happen to travel";
			mes "through Juperos and find";
			mes "any ancient documents, would";
			mes "you bring them to me? Having";
			mes "those would help my research";
			mes "efforts immensely. Thank you...";
			close;
		}
	case 2:
		if( (countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)) ) {
			mes "[˹]";
			mes "Ah, it's you! Listen,";
			mes "I just found a record of";
			mes "an adventurer who explored";
			mes "Juperos. There's mention";
			mes "of a stone statue here that";
			mes "just might be noteworthy...";
			next;
			mes "[˹]";
			mes "If you happen to find";
			mes "yourself in Juperos,";
			mes "would you find the stone";
			mes "statue at the entrance of";
			mes "its dungeon and read the";
			mes "engraved message for me?";
			next;
			mes "[˹]";
			mes "According to my notes,";
			mes "there's a spell that will";
			mes "make its reader memorize";
			mes "its message, even if they don't";
			mes "know the language. So come";
			mes "to me if you manage to read it.";
			close;
		}
		mes "[˹]";
		mes "If you ever chance to";
		mes "travel through Juperos,";
		mes "would you let me know if you";
		mes "find anything that might help";
		mes "my research there? I'd be";
		mes "very grateful for your help.";
		close;
	case 3:
		mes "[˹]";
		mes "Well, you look";
		mes "quite pleased.";
		mes "May I asked what";
		mes "happened to put that";
		mes "expression on your face?";
		next;
		switch( select( "I found something in Juperos.:Nothing much." ) ){
		case 1:
			mes "[" +strcharinfo(0)+"]";
			mes "I went to Juperos like";
			mes "you asked and found that";
			mes "stone statue you were talking";
			mes "about. Just like you said, there was an engraved message on it.";
			next;
			mes "[˹]";
			mes "Fascinating!";
			mes "So is it really enchanted";
			mes "so anyone can memorize it?";
			mes "Wh-what does the message say?";
			next;
			mes "^3355FFYou recite the message";
			mes "engraved on the stone";
			mes "statue, unable to interpret";
			mes "the sounds you're uttering,";
			mes "but weirdly enough, you can";
			mes "easily recall them from memory.^000000";
			next;
			mes "[˹]";
			mes "Ah, I see! Wait,";
			mes "give me a moment to";
			mes "properly translate this...";
			next;
			mes "...";
			mes "......";
			mes ".........";
			next;
			mes "[˹]";
			mes "It means, ''Do you wish to";
			mes "see the end of the madness?";
			mes "He is waiting where the three";
			mes "columns were destroyed, where";
			mes "two hundred illusions wander.''";
			next;
			mes "[˹]";
			mes "''You will see him, the one";
			mes "who was vain and extravagant,";
			mes "with your own eyes at the place where the light passes through.";
			set yuno_hist,4;
			next;
			mes "[˹]";
			mes "Ah, usually, descriptions";
			mes "of the ''vain and extravagant";
			mes "one'' refer to the mad scientist rumored to have lived in that";
			mes "ancient era. But if this is true, I may have to rework my thesis...";
			next;
			mes "[˹]";
			mes "I have another favor to";
			mes "ask of you. If you find any";
			mes "object of historical significance in Juperos, would you bring it to";
			mes "me? I'll reward you, of course.";
			next;
			mes "[˹]";
			mes "It would be most helpful";
			mes "if you could manage to find";
			mes "documents that existed from that era. Fortunately, back then,";
			mes "they made all their records on material more durable than paper.";
			close;
		case 2:
			mes "[˹]";
			mes "Nothing, huh?";
			mes "My life is also fairly";
			mes "uneventful, but somehow,";
			mes "I'm don't think I'm content.";
			close;
		}
	case 4:	
		mes "[˹]";
		mes "Oh hello, "+strcharinfo(0)+".";
		mes "So what brings you to";
		mes "the Juno Library today?";
		next;
		switch( select ( "Nice weather today, isn't it?:I found something in Juperos.:Nothing much.") ) {
		case 1:
			mes "[˹]";
			mes "Well, I wouldn't know.";
			mes "It's late whenever I go";
			mes "out, so I always happen to";
			mes "miss the sunlight. I guess";
			mes "I really miss nice weather";
			mes "sometimes, you know?";
			close;
		case 2:
			if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355))) {
				mes "[˹]";
				mes "Oh, really?!";
				mes "That's great news!";
				mes "W-what did you find?";
				next;
				mes "^3355FFIn her excitement,";
				mes "˹ begins to";
				mes "rummage through your";
				mes "things before you get";
				mes "the chance to answer her.^000000";
				next;
				mes "[˹]";
				mes "Oh, this must be it!";
				mes "Would you mind if I keep";
				mes "this Transparent Plate for";
				mes "my research? In return, I'll";
				mes "tell you some tales about";
				mes "Juperos that I've learned.";
				next;
				switch( select ("Please, be my guest.:No way, you can't have it.") )	{
				case 1:
					if(countitem(7352)) callfunc "Func_JupHist",7352,1;
					else if(countitem(7353)) callfunc "Func_JupHist",7353,2;
					else if(countitem(7354)) callfunc "Func_JupHist",7354,4;
					else if(countitem(7355)) callfunc "Func_JupHist",7352,8;
				case 2:
					mes "[˹]";
					mes "Mm? Are you serious?";
					mes "This object is very valuable";
					mes "to a researcher like me, but";
					mes "I have no idea what use it";
					mes "would be for an adventurer.";
					mes "Well, you have your reasons...";
					close;
				}
			}
			mes "[˹]";
			mes "Oh, really?!";
			mes "That's great news!";
			mes "W-what did you find?";
			next;
			mes "^3355FFIn her excitement,";
			mes "˹ begins to";
			mes "rummage through your";
			mes "things before you get";
			mes "the chance to answer her.^000000";
			next;
			mes "[˹]";
			mes "Oh. There isn't anything";
			mes "here that would help in my";
			mes "research, but thank you anyway.";
			mes "If you find anything else while";
			mes "you're in Juperos, please come back and show it to me, alright?";
			close;
		case 3:
			mes "[˹]";
			mes "Ah, I see. Well, while";
			mes "you're here, why don't you";
			mes "read something? There are";
			mes "many books that cover some";
			mes "interesting topics, like the";
			mes "Schwaltzvalt economy...";
			next;
			mes "[˹]";
			mes "Oh, in any case, please";
			mes "don't forget the favor I asked";
			mes "of you. If you find anything";
			mes "in Juperos that's historically";
			mes "significant, I'd appreciate it";
			mes "if you bring it right away.";
			close;
		}
	case 5:
		mes "[˹]";
		mes "Oh, "+strcharinfo(0)+"!";
		mes "Have you come back with";
		mes "something from Juperos?";
		mes "I've been hoping you'd come";
		mes "back with something that'd";
		mes "help me in my research!";
		next;
		switch( select( "Take a look at this.:Oh, I'm sorry...") ) {
		case 1:	
			switch(jupe_hist) {
			case 1:
				callfunc "Func_JupHist",7353,7354,7355,7352;
			case 2:
				callfunc "Func_JupHist",7352,7354,7355,7353;
			case 4:
				callfunc "Func_JupHist",7352,7353,7355,7354;
			case 8:
				callfunc "Func_JupHist",7352,7353,7354,7355;
			}
		case 2:
			mes "[˹]";
			mes "Ah, I see. Well, while";
			mes "you're here, why don't you";
			mes "read something? There are";
			mes "many books that cover some";
			mes "interesting topics, like...";
			mes "like... Self-Honesty (?).";
			next;
			mes "[˹]";
			mes "Oh, in any case, please";
			mes "don't forget the favor I asked";
			mes "of you. If you find anything";
			mes "in Juperos that's historically";
			mes "significant, I'd appreciate it";
			mes "if you bring it right away.";
			close;
		}
	case 6:
		mes "[˹]";
		mes "Oh, "+strcharinfo(0)+"!";
		mes "The Transparent Plate";
		mes "that you brought for me";
		mes "last time is really helping me";
		mes "in my research. If you get the";
		mes "chance, please bring me more!";
		set yuno_hist,7;
		next;
		mes "[˹]";
		mes "This new data is adding";
		mes "a lot more credibility to my";
		mes "thesis. Oh, I'll be with you";
		mes "in a moment, let me finish";
		mes "translating this one last";
		mes "passage really quickly...";
		close;
	case 7:
		mes "[˹]";
		mes "Hello, "+strcharinfo(0)+"~";
		mes "Oh, were you able to look";
		mes "in Juperos for anything that";
		mes "might help me in my research?";
		next;
		switch( select( "Yeah, take a look at this.:No, I'm sorry...") ) {
		case 1:
			switch(jupe_hist) {
			case 3:
				callfunc "Func_JupHist",7354,7355,7352,7353;
			case 5:
				callfunc "Func_JupHist",7353,7355,7352,7354;
			case 6:
				callfunc "Func_JupHist",7352,7355,7353,7354;
			case 9:
				callfunc "Func_JupHist",7353,7354,7352,7355;
			case 10:
				callfunc "Func_JupHist",7352,7354,7353,7355;
			case 12:
				callfunc "Func_JupHist",7352,7353,7354,7355;
			}
		case 2:
			mes "[˹]";
			mes "Oh, that's fine.";
			mes "Besides, I don't really";
			mes "have a deadline to complete";
			mes "this research project. Still,";
			mes "I just want you to know that";
			mes "I really appreciate your help.";
			close;
		}
	case 8:
		mes "[˹]";
		mes ""+strcharinfo(0)+"...";
		mes "I'm having great difficulty in";
		mes "translating that Transparent";
		mes "Plate you brought for me that";
		mes "last time. I'm so frustrated...";
		next;
		mes "[˹]";
		mes "Wait a minute...";
		mes "This here means...";
		mes "Alright. Okay. Yes.";
		mes "Yes! Of course, how";
		mes "could I not see it before!";
		set yuno_hist,9;
		next;
		mes "[˹]";
		mes "I'll be with you";
		mes "in just a second!";
		mes "I think I just made";
		mes "a real through...!";
		next;
	case 9:
		mes "[˹]";
		mes "Ah, I've been";
		mes "expecting you, "+strcharinfo(0)+".";
		mes "So did you have been to Juperos again? I'm really hoping that you";
		mes "were able to find something new that would help in my research...";
		next;
		switch( select("Actually, I did find this...:I'm sorry, I haven't...") ) {
		case 1:
			switch(jupe_hist) {
			case 7:
				callfunc "Func_JupHist",7355,7352,7353,7354;
			case 11:
				callfunc "Func_JupHist",7354,7352,7353,7355;
			case 13:
				callfunc "Func_JupHist",7353,7352,7354,7355;
			case 14:
				callfunc "Func_JupHist",7352,7353,7354,7355;
			}
		case 2:
			mes "[˹]";
			mes "Ah, I see. Well, while";
			mes "you're here, why don't you";
			mes "read something? There are";
			mes "many books that cover some";
			mes "interesting topics, like";
			mes "modern adventure history.";
			next;
			mes "[˹]";
			mes "Oh, in any case, please";
			mes "don't forget the favor I asked";
			mes "of you. If you find anything";
			mes "in Juperos that's historically";
			mes "significant, I'd appreciate it";
			mes "if you bring it right away.";
			close;
		}
	case 10:
		mes "[˹]";
		mes "Oh hello, "+strcharinfo(0)+"...";
		mes "So what exactly brings you";
		mes "to the Juno Library this time?";
		next;
		switch( select("I found another Transparent Plate.:Just visiting, really.") ) {
		case 1:
			if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355))) {
				mes "[˹]";
				mes "Hmm, well, we've made as";
				mes "much headway as we can";
				mes "with the Transparent Plates";
				mes "you've already given me, but";
				mes "it can't hurt to have too much";
				mes "evidence to back my theories.";
				next;
				mes "[˹]";
				mes "I really appreciate";
				mes "your continuing efforts";
				mes "to help me. Please, would";
				mes "you take this as my way";
				mes "saying ''Thanks?'' You've been";
				mes "great, "+strcharinfo(0)+"...";
				if(countitem(7352)) delitem 7352,1;
				else if(countitem(7353)) delitem 7353,1;
				else if(countitem(7354)) delitem 7354,1;
				else delitem 7355,1;
				getitem 644,1;
				close;
			}
			mes "[˹]";
			mes "Mmm...?";
			mes "It doesn't look like";
			mes "you brought another";
			mes "Transparent Plate.";
			mes "Are you sure that you";
			mes "didn't misplace it?";
			close;
		case 2:
			mes "[˹]";
			mes "Ah, I see. Well,";
			mes "thanks to your help,";
			mes "I've made a great deal";
			mes "of progress on my thesis.";
			mes "I really appreciate what you";
			mes "have done for me, adventurer.";
			close;
		}
	}
}

function	script	Func_JupHist	{
	switch(yuno_hist) {
	case 4:
		mes "[˹]";
		mes "Thank you so much,";
		mes "you don't know what";
		mes "this means to me! Okay,";
		mes "please relax and take a";
		mes "seat. Close your eyes while";
		mes "I tell you this ancient story.";
		next;
		mes "^3355FF˹ begins to";
		mes "relate an ancient tale";
		mes "about Juperos that seems";
		mes "typical for a classic story, but her way of storytelling subtly";
		mes "draws you into a vicarious, yet extremely vivid experience.";
		next;
		mes "^3355FFYou feel the protagonist's";
		mes "glories and tragedies as if";
		mes "you were actually there with";
		mes "the hero on his journeys. The";
		mes "tale eventually comes to an end";
		mes "and you awaken from the trance,";
		mes "gently brought back to reality.^000000";
		delitem getarg(0),1;
		set yuno_hist,5;
		set jupe_hist,getarg(1);
		getexp 100000,0;
		next;
		mes "[˹]";
		mes "Everyone can relate";
		mes "to these old, classic";
		mes "stories. I hope this tale had";
		mes "as meaning for you as it did";
		mes "for me when I first heard it.";
		next;
		mes "[˹]";
		mes "If you can find me";
		mes "another artifact from";
		mes "Juperos, I'll share another";
		mes "tale like that with you. Now";
		mes "how does that sound? Okay";
		mes "then, I'll see you, adventurer~";
		close;
	case 5:
		if((countitem(getarg(0))) || (countitem(getarg(1))) || (countitem(getarg(2)))) {
			mes "[˹]";
			mes "Oh, that's unexpected.";
			mes "This Transparent Plate";
			mes "seems to have been made";
			mes "in a different era than the";
			mes "one you gave me earlier.";
			mes "How intriguing...";
			next;
			mes "[˹]";
			mes "*Sigh* I really wish";
			mes "that I could explore";
			mes "Juperos on my own, but";
			mes "I'm just not strong enough.";
			mes "In a way, I'm quite jealous of you. But it can't be helped...";
			next;
			mes "[˹]";
			mes "You know, that reminds";
			mes "me of this great story of";
			mes "a tragic hero that I'd like to";
			mes "share with you. Let your";
			mes "mind wander as I relate this ageless, yet bittersweet tale...";
			next;
			mes "^3355FF˹ tells you a story";
			mes "with a bright beginning, full";
			mes "of hope that fills you with the";
			mes "bliss of the heavens, but then";
			mes "suddenly plummets you into all the despair and torment of hell.^000000";
			next;
			mes "^3355FFThe story finally";
			mes "reaches its ending";
			mes "and you're surprised";
			mes "to find yourself sitting";
			mes "in the Juno Library.^000000";
			next;
			mes "[˹]";
			mes "I know it's a very";
			mes "depressing story, but";
			mes "I hope you enjoyed it.";
			mes "I think you'd agree that";
			mes "it contains a truth about";
			mes "mankind that can't be ignored.";
			if(countitem(getarg(0))) {
				delitem getarg(0),1;
				if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
				else set jupe_hist,jupe_hist +2;
			}
			else if(countitem(getarg(1))) {
				delitem getarg(1),1;
				if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
				else set jupe_hist,jupe_hist +4;
			}
			else {
				delitem getarg(2),1;
				if(getarg(2) == 7354) set jupe_hist,jupe_hist +4;
				else set jupe_hist,jupe_hist +8;
			}
			set yuno_hist,6;
			getexp 100000,0;
			next;
			mes "[˹]";
			mes "By now I'm sure you've";
			mes "figured that these classic";
			mes "tales are like condensed";
			mes "experiences, refined and";
			mes "immutable truths that we";
			mes "can see in our own reality.";
			next;
			mes "[˹]";
			mes "If you find more of";
			mes "these Transparent";
			mes "Plates in Juperos, I'd be";
			mes "very happy to share another";
			mes "story with you, "+strcharinfo(0)+".";
			close;
		}
		else if(countitem(getarg(3))) {
			mes "[˹]";
			mes "Oh, this one seems";
			mes "to have been created";
			mes "in a similar era as the";
			mes "one you gave me earlier.";
			mes "I'm not sure how much new";
			mes "information this may provide...";
			next;
			mes "[˹]";
			mes "Still, I'm sure this will";
			mes "helpful in my research. I just";
			mes "won't be as making progress";
			mes "as quickly as I had projected.";
			mes "Please, I'd like you to take this as a token of my gratitude.";
			delitem getarg(3),1;
			getitem 644,1;
			next;
			mes "[˹]";
			mes "Now if you'll excuse";
			mes "me, I need to go back";
			mes "to compiling my research...";
			mes "Thank you so much for";
			mes "your help, "+strcharinfo(0)+".";
			close;
		}
		else {
			mes "[˹]";
			mes "Oh. There isn't anything";
			mes "here that would help in my";
			mes "research, but thank you anyway.";
			mes "If you find anything else while";
			mes "you're in Juperos, please come back and show it to me, alright?";
			close;
		}
	case 7:
		if((countitem(getarg(0))) || (countitem(getarg(1)))) {
			mes "[˹]";
			mes "Is this another";
			mes "Transparent Plate?";
			mes "Yes, it's quite different";
			mes "than the last one you";
			mes "brought over to me...";
			mes "This is so exciting!";
			next;
			mes "[˹]";
			mes "Oh. You must be thinking";
			mes "that I'm a complete academia";
			mes "addict. Well, my life might be";
			mes "a little uneventful, but there";
			mes "are other things I think about!";
			mes "Like, well... It's weird but...";
			next;
			mes "[˹]";
			mes "You see, there's this";
			mes "guy that I like. I'm not sure";
			mes "where he might be now, but";
			mes "his name is Nadim Amal. He's";
			mes "my friend's brother who I first";
			mes "met 10 years ago. ^333333*Sigh...*^000000";
			next;
			mes "[˹]";
			mes "Just recently, I saw";
			mes "him with his sister, my";
			mes "friend from Morroc. It's";
			mes "weird to think that I'd have";
			mes "these feelings for him after";
			mes "all this time, isn't it? Oh...!";
			next;
			mes "[˹]";
			mes "I really should repay";
			mes "you for this Transparent";
			mes "Plate. Why don't I tell you";
			mes "the scariest story that I know?";
			next;
			mes "^3355FF˹ tells you a";
			mes "creepy horror story that";
			mes "makes you shiver with fear.";
			mes "You've heard other ghost";
			mes "stories, but you've never been";
			mes "so deeply immersed in one before.^000000";
			next;
			mes "It is only when the";
			mes "story ends and you return";
			mes "to your senses that you notice that you're soaked in cold sweat.^000000";
			next;
			mes "[˹]";
			mes "It may be a natural";
			mes "response, but all people";
			mes "fear the unknown in one way";
			mes "or another. Scary stories are";
			mes "appealing because we actually";
			mes "like the strange and grotesque.";
			if(countitem(getarg(0))) {
				delitem getarg(0),1;
				if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
				else if(getarg(0) == 7353) set jupe_hist,jupe_hist +2;
				else set jupe_hist,jupe_hist +4;
			}
			else if(countitem(getarg(1))) {
				delitem getarg(1),1;
				if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
				else if(getarg(1) == 7354) set jupe_hist,jupe_hist +4;
				else set jupe_hist,jupe_hist +8;
			}
			set yuno_hist,8;
			getexp 100000,0;
			next;
			mes "[˹]";
			mes "Well... That's just my";
			mes "opinion. Anyway, if you";
			mes "find anything else in Juperos";
			mes "that may help in my research,";
			mes "please come back and show it";
			mes "to me, alright? See you later~";
			close;
		}
		else if((countitem(getarg(2))) || (countitem(getarg(3)))) {
			mes "[˹]";
			mes "Oh, this one seems";
			mes "to have been created";
			mes "in a similar era as the";
			mes "one you gave me earlier.";
			mes "I'm not sure how much new";
			mes "information this may provide...";
			next;
			mes "[˹]";
			mes "Still, I'm sure this will";
			mes "helpful in my research. I just";
			mes "won't be as making progress";
			mes "as quickly as I had projected.";
			mes "Please, I'd like you to take this as a token of my gratitude.";
			next;
			mes "[˹]";
			mes "Now if you'll excuse";
			mes "me, I need to go back";
			mes "to compiling my research...";
			mes "Thank you so much for";
			mes "your help, "+strcharinfo(0)+".";
			if(countitem(getarg(2))) delitem getarg(2),1;
			else if(countitem(getarg(3))) delitem getarg(3),1;
			getitem 644,1;
			close;
		}
		else {
			mes "[˹]";
			mes "Oh. There isn't anything";
			mes "here that would help in my";
			mes "research, but thank you anyway.";
			mes "If you find anything else while";
			mes "you're in Juperos, please come back and show it to me, alright?";
			close;
		}
	case 9:
		if(countitem(getarg(0))) {
			mes "[˹]";
			mes "Oooh...! This one is";
			mes "much different than the";
			mes "other ones you gave me";
			mes "before. This should provide";
			mes "a wealth of brand new insights";
			mes "into the Juperos civilization!";
			next;
			mes "[˹]";
			mes "All the Transparent";
			mes "Plates you've given me";
			mes "should contain more than";
			mes "enough data for me to fully";
			mes "complete my research thesis.";
			mes "Once again, thank you so much~";
			next;
			mes "[˹]";
			mes "Still, that doesn't mean that";
			mes "I will stop collecting data for";
			mes "my research. Anyway, I have one last story to tell you, about";
			mes "a man of pure heart chosen by the gods to serve and protect mankind.";
			next;
			mes "[˹]";
			mes "For this purpose he was given";
			mes "gaudy armor which contained";
			mes "amazing powers, as well as a";
			mes "book detailing the instructions";
			mes "for its use. However, he promptly";
			mes "lost these instructions...";
			next;
			mes "^3355FFThe story about the";
			mes "greatest Juperosian hero";
			mes "that ˹ tells you is very";
			mes "humorous at first, but then it";
			mes "covers the entire spectrum";
			mes "of emotion and humanity...";
			next;
			mes "^3355FFThe story ends and you";
			mes "are left with a swelling";
			mes "feeling of indefatigable";
			mes "hope and inspiration...";
			mes "You can make it if you try!^000000";
			if(getarg(0) == 7352) set jupe_hist,jupe_hist+1;
			else if(getarg(0) == 7353) set jupe_hist,jupe_hist+2;
			else if(getarg(0) == 7354) set jupe_hist,jupe_hist+4;
			else set jupe_hist,jupe_hist+8;
			set yuno_hist,10;
			delitem getarg(0),1;
			getexp 100000,0;
			next;
			mes "[˹]";
			mes "Well, that is the";
			mes "last and the best story";
			mes "that I have to share";
			mes "with you. Perhaps next";
			mes "time, I'll fill you in on my";
			mes "research progress~";
			close;
		}
		else if((countitem(getarg(1))) || (countitem(getarg(2))) || (countitem(getarg(3)))) {
			mes "[˹]";
			mes "Hmm...";
			mes "This one seems to be created in a similar time";
			mes "as the previous one.";
			next;
			mes "[˹]";
			mes "Don't you worry.";
			mes "This will help my research of course,";
			mes "although I do not think this will";
			mes "help me in advancing my research";
			mes "with a great speed unlike this other one.";
			next;
			mes "[˹]";
			mes "Please take this as a token of my gratitude.";
			next;
			mes "[˹]";
			mes "Now, excuse me. I need to go back to my research.";
			if(countitem(getarg(1))) delitem getarg(1),1;
			else if(countitem(getarg(2))) delitem getarg(2),1;
			else delitem getarg(3),1;
			getitem 644,1;
			close;
		}
		else {
			mes "[˹]";
			mes "Oh. There isn't anything";
			mes "here that would help in my";
			mes "research, but thank you anyway.";
			mes "If you find anything else while";
			mes "you're in Juperos, please come back and show it to me, alright?";
			close;
		}
	}
}

yuno_in04,186,125,4	script	һ ļ#yu	111,{
	mes "";
	mes "* : ˹ ˵ *";
	mes ": ˹ ";
	mes " ߳Ǳ  оԱ";
	next;
	switch( select("һĿ¼:ȡ")) {
	case 1:
		if(yuno_hist > 4) {
			mes " 1. ";
			mes " 2. Juperos Background";
			mes " 3. Theory Behind Its Fall";
			next;
			switch( select("Preface:Juperos Background:Theory Behind Its Fall:Leave it alone.")) {
			case 1:
				mes "^8B6914Scholars are certain";
				mes "that the Juperos civilization";
				mes "used to be located above the";
				mes "ground, but it is now buried";
				mes "beneath the El Mes Plateau.";
				mes "The reasons for the city's";
				if(yuno_hist < 9) {
					mes "ruin are still nebulous...^000000";
					next;
					mes "^8B6914There is much speculation";
					mes "about the reasons for Jupero's";
					mes "downfall, but any documentation";
					mes "from that time period has been";
					mes "difficult to find. As for now, any evidence we have regarding";
					mes "Juperos is inconclusive.^000000";
					next;
					mes "^8B6914In spite of this lack";
					mes "of empirical or concrete";
					mes "data on the civilization of";
					mes "Juperos, our modern world";
					mes "may be able to learn much";
					mes "from that ancient city's ruins.";
					mes "..................^000000";
					if(yuno_hist < 7) {
						next;
						mes "["+strcharinfo(0)+"]";
						mes "Hmmm...";
						mes "A whole chapter";
						mes "dedicated to saying,";
						mes "''We know absolutely";
						mes "nothing about something.''";
						mes "I should write a book~";
					}
					close;
				}
				mes "ruin are still in debate...^000000";
				next;
				mes "^8B6914However, new findings";
				mes "regarding the history";
				mes "of Juperos have allowed";
				mes "us to make a few conclusions.^000000";
				close;
			case 2:
				if(yuno_hist < 9) {
					mes "^8B6914...";
					mes "......";
					mes "..........^000000";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "This is all just idle";
					mes "conjecture! This paper";
					mes "isn't developed enough";
					mes "yet to be a real thesis...";
					close;
				}
				else if(yuno_hist == 9) {
					mes "^8B6914Juperos was built over";
					mes "a thousand years ago in";
					mes "an era of peace just after";
					mes "a major war. Contrary to";
					mes "popular belief, there isn't any";
					mes "evidence proving that Juno may";
					mes "have descended from Juperos.^000000";
					next;
					mes "^8B6914In fact, there is a";
					mes "strong possibility that";
					mes "another war, between Juno";
					mes "and Juperos, resulted in Juno's";
					mes "independence from Juperos and";
					mes "the destruction of any existing";
					mes "documentation from that era.^000000";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Yes... Of course!";
					mes "It all makes sense now!";
					close;
				}
				mes "^8B6914Juperos was built over";
				mes "a thousand years ago in";
				mes "an era of peace just after";
				mes "a major war. There is now";
				mes "direct evidence linking Juno";
				mes "to Juperos proving that Juno";
				mes "was but a part of Juperos.^000000";
				next;
				mes "^8B6914Just like Juno, Juperos";
				mes "was a society that prided";
				mes "itself on its advancement";
				mes "in the sciences which played";
				mes "a permeating role in civilized";
				mes "life. Science was reponsible for Juperos's rise and downfall.";
				close;
			case 3:
				if(yuno_hist < 10) {
					mes "^8B6914...";
					mes "......";
					mes "..........^000000";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Huh. This writer keeps";
					mes "talking about theories,";
					mes "but the more I read, the";
					mes "less clear I am on what";
					mes "the theory actually is.";
					mes "I don't think there is one...";
					emotion 4,1;
					close;
				}
				mes "^8B6914What is most unsettling";
				mes "is recent evidence, including";
				mes "a first hand written account,";
				mes "regarding the role of one of";
				mes "Jupero's foremost scientists";
				mes "in that city's rise and fall.";
				next;
				mes "^8B6914If these writings are";
				mes "authentic, then what actually";
				mes "happened was that a scientific";
				mes "revolution occurred as a direct";
				mes "result of one scientist's effort to manipulate the energies of the";
				mes "artifact known as Ymir's heart.";
				next;
				mes "^8B6914This one man and Ymir's";
				mes "Heart are credited with";
				mes "the success and prosperity";
				mes "of the Jupero's civilization.";
				mes "However, there are various accounts prior to Jupero's fall";
				mes "detailing his work with chimera...^000000";
				next;
				mes "^8B6914This scientist, supposedly";
				mes "in his passion to benefit his";
				mes "people by finding a scientific";
				mes "method for immortality by using";
				mes "chimera for testing, was driven";
				mes "insane. He experimented on";
				mes "himself with disatrous results.^000000";
				next;
				mes "^8B6914There was an error in the";
				mes "energy calibration of Ymir's";
				mes "Heart and the scientist was";
				mes "transformed into the monster";
				mes "we now know as Chimera. He";
				mes "and his test subjects were set";
				mes "loose into the city of Juperos.^000000";
				next;
				mes "^8B6914These immortal Chimeras";
				mes "razed the entire city, killing";
				mes "countless people. Apparently,";
				mes "a team of scientists were able";
				mes "to salvage a fragment of Ymir's";
				mes "Heart, and use it to lauch part";
				mes "of Juperos into the sky.^000000";
				next;
				mes "^8B6914That section of Juperos";
				mes "eventually developed into";
				mes "the city of Juno. Since the";
				mes "scientists who launched Juno into the sky all immediately died";
				mes "afterwards from an unknown cause, they left no documentation.^000000";
				next;
				mes "^8B6914The Chimera, and the";
				mes "laboratory in which it";
				mes "was created, is rumored to";
				mes "remain beneath the ruins of";
				mes "the once great city of Juperos.^000000";
				close;
			case 4:
				mes "["+strcharinfo(0)+"]";
				mes "Ugh... My head hurts";
				mes "too much from reading";
				mes "a book for smarty people.";
				mes "I know! I'll play videogames!";
				close;
			}
		}
		switch( select( "Preface:Close the file.")) {
		case 1:
			mes "^8B6914Scholars are certain";
			mes "that the Juperos civilization";
			mes "used to be located above the";
			mes "ground, but it is now buried";
			mes "beneath the El Mes Plateau.";
			mes "The reasons for the city's";
			mes "ruin are still nebulous...^000000";
			next;
			mes "^8B6914There is much speculation";
			mes "about the reasons for Jupero's";
			mes "downfall, but any documentation";
			mes "from that time period has been";
			mes "difficult to find. As for now, any evidence we have regarding";
			mes "Juperos is inconclusive.^000000";
			next;
			mes "^8B6914In spite of this lack";
			mes "of empirical or concrete";
			mes "data on the civilization of";
			mes "Juperos, our modern world";
			mes "may be able to learn much";
			mes "from that ancient city's ruins.";
			mes "..................^000000";
			if(!yuno_hist) set yuno_hist,1;
			next;
			mes "["+strcharinfo(0)+"]";
			mes "This...";
			mes "This is supposed to";
			mes "be a research thesis?";
			mes "There's barely any";
			mes "research in it...";
			close;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "Hmm...";
			mes "This isn't heavy";
			mes "enough to be a real";
			mes "academic work. It must";
			mes "not even be finished yet.";
			close;
		}
	case 2:
		if(yuno_hist < 5) {
			mes "["+strcharinfo(0)+"]";
			mes "Nah...";
			mes "I'm tired of reading.";
			mes "Ironically enough.";
			close;
		}
		else if(yuno_hist < 7) {
			mes "["+strcharinfo(0)+"]";
			mes "I don't feel like";
			mes "reading this. Not";
			mes "enough pictures...";
			close;
		}
		else if(yuno_hist < 9) {
			mes "["+strcharinfo(0)+"]";
			mes "It looks very sophisticated...";
			close;
		}
		else if(yuno_hist < 10) {
			mes "["+strcharinfo(0)+"]";
			mes "I know this book...";
			mes "But I don't feel like";
			mes "reading it right now.";
			close;
		}
		else {
			mes "["+strcharinfo(0)+"]";
			mes "This thesis is";
			mes "looking pretty good~";
			mes "Of course, I did have";
			mes "a hand in making it...";
			close;
		}
	}
}

yuno_in04,188,118,4	script	Book#juperos	111,{
	if(yuno_hist > 7) {
		mes "^8B6914*Self-Honesty*";
		mes "*'Benefits Fo' Life!'*";
		mes "By Stephen Oyoung";
		mes " ";
		mes " ";
		mes "Publisher:";
		mes "Wushu Publishing, Co.^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "W-whoa!";
		mes "This book wasn't";
		mes "here before! It looks";
		mes "pretty interesting...";
		close;
	}
	mes "["+strcharinfo(0)+"]";
	mes "You know what?";
	mes "I think I'll just flip";
	mes "through some pages";
	mes "from a random book.";
	mes "Hmmm, let's see...";
	next;
	mes "^8B6914''Admiral, the Kylorians are";
	mes "still advancing!'' Commander";
	mes "McKenrick announced without";
	mes "his usual swagger. ''They're...";
	mes "They're not stopping!'' But";
	mes "Admiral Leh's eyes were a cold,";
	mes "unfeeling shade of sternness.^000000";
	next;
	mes "^8B6914''Let the goddamned space";
	mes "aliens come,'' hissed Leh.";
	mes "''We don't stand a chance";
	mes "without the Zenoi Sword";
	mes "to summon the power of";
	mes "GOD-POING. It's... It's";
	mes "all over. Damn it all...''^000000";
	next;
	mes "^8B6914The doors burst open as";
	mes "Bucky flew into the room.";
	mes "''The Zenoi Sword! The";
	mes "Zenoi Sword! Someone's";
	mes "found it!'' the boy yelled.";
	mes "''Really?! We better hurry:";
	mes "Earth doesn't have much time!''^000000";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "...";
	mes "......";
	mes "Whoa. I really";
	mes "should have read";
	mes "this masterpiece";
	mes "from the beginning...";
	close;
}

// Bronze Statue - juperos_01 99 112

juperos_01,99,112,4	script	Bronze Statue#1	844,{
	if(yuno_hist > 3) {
		mes "^3355FF''Do you wish to see";
		mes "the end of the madness?";
		mes "He is waiting where the three";
		mes "columns were destroyed, where";
		mes "two hundred illusions wander.''^000000";
		close;
	}
	else if(yuno_hist == 3) {
		mes "["+strcharinfo(0)+"]";
		mes "I better go and";
		mes "see ˹ in the";
		mes "Juno Library and tell";
		mes "her about the inscription.";
		close;
	}
	else {
		mes "^3355FFThere's a peculiar";
		mes "engraving on the";
		mes "Bronze Statue's rod.^000000";
		next;
		switch( select( "Investigate:Ignore it" ) ) {
		case 1 :
			mes "^3355FFIt's an inscription that's";
			mes "written in an old language";
			mes "that you can't understand,";
			mes "but have no problem reading";
			mes "and making out the sounds";
			mes "for some weird reason.^000000";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "This is creepy!";
			mes "I know that I'm not";
			mes "supposed to be able";
			mes "to read this, but here";
			mes "I am. I know what sounds";
			mes "all of these letters make...";
			next;
			if(yuno_hist == 2) {
				mes "["+strcharinfo(0)+"]";
				mes "Then again, ˹ did";
				mes "say this was enchanted.";
				mes "Okay, I guess I'll go back";
				mes "to the Juno Library and";
				mes "tell her what I found.";
				set yuno_hist,3;
				close;
			}
			mes "["+strcharinfo(0)+"]";
			mes "Huh. Only a scholar,";
			mes "maybe someone even in";
			mes "Juno, could make sense";
			mes "of what this stuff says.";
		case 2 : 
			close;
		}
	}
}

yuno_in04,169,109,1	script	Ambitious Hollgrehenn	111,{
	mes "*Hollgrehenn: The Ambition*";
	mes "By Aragham Caul*";
	mes "";
	mes "";
	mes "";
	mes "";
	mes "Publisher:";
	mes "Muha Books, Co.";
	next;
	mes "...";
	mes "He would stop at nothing";
	mes "to have the greatest weapon";
	mes "in the world in his possession.";
	mes "He became a smith so that he";
	mes "could discern which weapons";
	mes "were the most powerful...";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "That's strange...";
	mes "The next page";
	mes "has been torn out.";
	close;
}

yuno_in04,102,106,1	script	Popular Feasts	111,{
	mes "^8B6914*Popular Feasts*";
	mes "By Cabbage Pickle Community";
	mes " ";
	mes " ";
	mes " ";
	mes "Publisher:";
	mes "Muha Books, Co.^000000";
	next;
	switch( select( " 1. Fried Yoyo Tails: 14. Poring Salad: 252. Beak Soup" )) {
	case 1:
		mes "^8B6914...";
		mes "If possible, try";
		mes "to use tails cut";
		mes "from live Yoyos.";
		mes "Now, as for skinning...^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Um...";
		mes "Barf?";
		close;
	case 2:
		mes "["+strcharinfo(0)+"]";
		mes "Hey, this page is gone!";
		mes "I guess Poring Salad is";
		mes "the most popular feast";
		mes "in this entire book.";
		close;
	case 3:
		mes "^8B6914...";
		mes "Fry the cut beaks";
		mes "using herbal oil until";
		mes "crisp. Then, pour the";
		mes "feathers into a blender...^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hmm...";
		mes "Sounds a little";
		mes "too gourmet for my";
		mes "taste. And by ''gourmet,''";
		mes "I mean, ''totally gross.''";
		close;
	}
}

yuno_in04,167,127,1	script	Red Book	111,{
	mes "^3355FFYou find a book";
	mes "with red binding.^000000";
	next;
	switch( select( "Read.:Leave it alone." ) ) {
	case 1:
		mes "^8B6914...^000000";
		next;
		mes "^8B6914...";
		mes "......^000000";
		next;
		mes "^8B6914...";
		mes "......";
		mes ".........^000000";
		next;
		mes "^8B6914...";
		mes "......";
		mes ".........";
		mes "............^000000";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "This is...";
		mes "A compilation of";
		mes "Shakespeare in ";
		mes "coloring book format?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Wait...";
		mes "Why would fans of";
		mes "Shakespeare even";
		mes "want a coloring book?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hmm... Well...";
		mes "I suppose little kids who";
		mes "read Shakespeare would";
		mes "appreciate something like that.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Hold on...";
		mes "Do little kids who";
		mes "are able to read the";
		mes "works of Shakespeare";
		mes "even exist? I hope not...";
		close;
	case 2:
		mes "["+strcharinfo(0)+"]";
		mes "What a strange";
		mes "and mysterious book.";
		mes "I'll never know what's";
		mes "inside unless I read it!";
		mes "Come on! Doesn't the red";
		mes "binding mean something?";
		close;
	}
}

yuno_in04,121,109,1	script	Scroll	111,{
	mes "^3355FFYou've found an";
	mes "antiquated scroll";
	mes "that's collected a";
	mes "layer of fine dust.^000000";
	next;
	switch( select( "Peruse:Leave it alone" ) ) {
	case 1:
		mes "^8B6914Item Upgrade Introduction";
		mes " ";
		mes " ";
		mes " ";
		mes "1. Item Upgrade Definition";
		mes " ";
		mes "The key to success when";
		mes "upgrading items comes from";
		mes "only one place: Your ''Mind.''";
		mes " ";
		mes " ";
		mes " ";
		mes "2. Power of a Positive Attitude";
		mes "Before trying to upgrade";
		mes "an item, plan out how high";
		mes "you want to upgrade and how";
		mes "much you'll spend beforehand.";
		mes "But like all ladies, Lady Luck";
		mes "smiles when you fully splurge.^000000";
		mes " ";
		mes " ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Wait, wait...";
		mes "This thing IS old.";
		mes "I mean, it's obviously";
		mes "written from a patriarchal";
		mes "standpoint that promotes";
		mes "bipartisan gender roles.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "I'm...";
		mes "I'm so offended.";
		close;
	case 2:
		mes "["+strcharinfo(0)+"]";
		mes "This scroll is far too";
		mes "primitive. There's been";
		mes "all sorts of technological";
		mes "reading advances that I can't";
		mes "live without... Like pages.";
		close;
	}
}

yuno_in04,118,116,4	script	Paper	111,{
	mes "^3355FFIt's a piece of";
	mes "paper that looks";
	mes "like a personal letter.^000000";
	next;
	switch( select("Read it.:Leave it alone.") ) {
	case 1:
		if(yuno_hist > 7) {
			mes "^8B6914P.S.";
			mes "Please...";
			mes "Come back to me.";
			mes " ";
			mes " ";
			mes "Love,";
			mes "˹^000000";
			close;
		}
		mes "^8B6914...";
		mes "I can't forget your smile.";
		mes "No matter what, even if you";
		mes "hate me, I'll always have these";
		mes "feelings just for you. You are";
		mes "the one who is most special,";
		mes "who means the most to my heart.^000000";
		next;
		mes "^8B6914I know we've had our";
		mes "differences, but please";
		mes "don't refuse my love. By";
		mes "your hands, I hope that";
		mes "you can forgive me for us.";
		mes "- Love, ˹^000000";
		next;
		if(getpartnerid()) {
			mes "["+strcharinfo(0)+"]";
			mes "Ahhhhhh~";
			mes "Love sure is nice!";
			close;
		}
		mes "["+strcharinfo(0)+"]";
		mes "What th--?!";
		mes "Booooooooo!";
		mes "Love stinks!";
		close;
	case 2:
		mes "["+strcharinfo(0)+"]";
		mes "I guess I better";
		mes "not look at this.";
		mes "I mean, I might";
		mes "regret reading it.";
		close;
	}
}

juperos_01,99,112,4	script	ͭ#1	844,{
	if(yuno_hist > 3) {
		mes "^3355FF''Do you wish to see";
		mes "the end of the madness?";
		mes "He is waiting where the three";
		mes "columns were destroyed, where";
		mes "two hundred illusions wander.''^000000";
		close;
	}
	else if(yuno_hist == 3) {
		mes "["+strcharinfo(0)+"]";
		mes "I better go and";
		mes "see ˹ in the";
		mes "Juno Library and tell";
		mes "her about the inscription.";
		close;
	}
	else {
		mes "ͭĹϣ";
		mes "ĳֶ";
		next;
		switch( select( "۲:ȡ" )) {
		case 1 :
			mes "һ൱";
			mes "׶־䣬";
			mes "ֻǲ֪";
			mes "˼ʲô...";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "д־";
			mes "ǹĿ...";
			next;
			if (yuno_hist == 2) {
				mes "["+strcharinfo(0)+"]";
				mes "Then again, ˹ did";
				mes "say this was enchanted.";
				mes "Okay, I guess I'll go back";
				mes "to the Juno Library and";
				mes "tell her what I found.";
				set yuno_hist,3;
				close;
			}
			mes "["+strcharinfo(0)+"]";
			mes "ŵ";
			mes "оѧ?";
		case 2 : 
			close;
		}
	}
}

yuno_in04,174,111,1	script	Penniless Hollgrehenn	111,{
	mes "^8B6914*Penniless Hollgrehenn*";
	mes " * Pennyless Hollgrehenn * ";
	mes "By Hollgrehenn";
	mes " ";
	mes " ";
	mes "Publisher:";
	mes "Muha Books, Co.^000000";
	next;
	mes "["+strcharinfo(0)+"]";
	mes "This book looks";
	mes "like a total piece of";
	mes "crap. I'd have more";
	mes "fun getting my teeth";
	mes "drilled by a blindfolded";
	mes "dentist. Or would I...?";
	close;
}

yuno_in04,111,108,1	script	Hamerun, Rat Hunter	111,{
	mes "["+strcharinfo(0)+"]";
	mes "I can't...";
	mes "reach it...!";
	close;
}

juperos_01,123,92,4	script	ʯ	844,{
	if (yuno_hist) {
		mes "^3355FFIt's a stone statue";
		mes "that looks exactly like";
		mes "the one in the Juno Library.";
		mes "However, it has sculptures";
		mes "of books instead of real ones.^000000";
		next;
		mes "^3355FFIt's possible that the";
		mes "statue in the Juno Library";
		mes "was made after this one.";
		mes "But who can be sure?^000000";
		close;
	}
	mes "ʶ";
	mes "޴ʯ";
	mes "̨鼮ֻ";
	mes "ɵĵ̶ѣ";
	mes "ȴ޷ó";
	close;
}

juperos_01,99,71,4	script	ͭ#2	844,{
	mes "ǵ̵ĺܾɵͭ";
	mes "߸߹һ˵";
	mes "֮";
	close;
}

juperos_01,79,92,4	script		844,{
	mes "ʶ";
	mes "";
	close;
}

juperos_01,215,127,4	script	Machine Statue	844,{
	mes "^3355FFThis is the bust of a";
	mes "humanoid machine with";
	mes "a familiar Crest Piece";
	mes "carved into the middle.^000000";
	next;
	mes "^3355FFThe statue's entire";
	mes "form is mind boggling,";
	mes "but you manage to note";
	mes "that its outstretched";
	mes "arm points westward.^000000";
	close;
}

//============================================================
// ǰż
//============================================================
// 1¥ -> 2¥
//============================================================
juperos_01,100,91,0	script	jupe_goto#1	-1,2,2,{
	end;
OnTouch:
	initnpctimer;
	mes "^777777["+ strcharinfo(0) +"]^000000";
	mes "ůǻ壬";
	mes "оƮƮȻ...";
	mes "...";
	next;
	switch(select("ɹһ...:! !")) {
	case 1:
		mes "^777777["+ strcharinfo(0) +"]^000000";
		mes ".. оӯ";
		specialeffect2 EF_LIGHTSPHERE;
		close2;
		stopnpctimer;
		warp "juperos_02",128,278;
		end;
	case 2:
		mes "^777777["+ strcharinfo(0) +"]^000000";
		mes "ǴĶ!";
		mes "Ҫʱرһ";
		close2;
		warp "juperos_01",96,91;
		stopnpctimer;
		end;
	}
OnTimer10000:
	stopnpctimer;
	warp "juperos_02",128,278;
	donpcevent "jupe_goto#2::OnEnable";
	end;
}

juperos_01,100,91,0	script	jupe_goto#2	-1,2,2,{
OnInit:
	disablenpc "jupe_goto#2";
	end;

OnEnable:
	enablenpc "jupe_goto#2";
	disablenpc "jupe_goto#1";
	initnpctimer;
	end;

OnTouch:
	warp "juperos_02",127,278;
	end;

OnTimer2000:
	enablenpc "jupe_goto#1";
	disablenpc "jupe_goto#2";
	end;
}

//============================================================
// 2nd Floor 
//============================================================

juperos_02,97,70,0	script	3F Gate Switch#jupe	-1,{
OnInit:
	initnpctimer;
	end;

Onreset:
	killmonster "juperos_02","3F Gate Switch#jupe::OnMyMobDead";
	end;

OnEnable:
	enablenpc "3F Gate Switch#jupe";
	initnpctimer;
	end;

OnTimer5000:
	set .MyMobs,3;
	monster "juperos_02",24,275,"1  װ",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
	monster "juperos_02",240,29,"2  װ",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
	monster "juperos_02",282,183,"3  װ",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
	stopnpctimer;
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs == 2)
		mapannounce "juperos_02","˭ù?",bc_map,"0xFF0000";
	else if (.MyMobs == 1)
		mapannounce "juperos_02","Ѳյ˹...",bc_map,"0xFF0000";
	else if (.MyMobs == 0) {
		mapannounce "juperos_02","һʱ! ҪҵĻҰ!",bc_map,"0xFF0000";
		specialeffect2 563; // 563
		soundeffectall "earth_quake.wav",0;
		disablenpc "3F Gate Switch#jupe";
		donpcevent "Restricted Area#jupe::OnEnable";
	}
	end;
}


juperos_02,130,149,0	script	Restricted Area#jupe	139,2,2,{
OnInit:
	disablenpc "Restricted Area#jupe";
	end;

OnEnable:
	enablenpc "Restricted Area#jupe";
	initnpctimer;
	end;

OnTimer5000:
	mapannounce "juperos_02","! !",bc_map,"0xE559A2";
	end;

OnTimer7000:
	mapannounce "juperos_02","֪λÿ",bc_map,"0xE559A2";
	end;

OnTimer9000:
	mapannounce "juperos_02","ʱһſڽ",bc_map,"0xE559A2";
	end;

OnTimer9001:
OnTimer23000:
OnTimer46000:
OnTimer69000:
OnTimer92000:
OnTimer115000:
OnTimer161000:
OnTimer184000:
OnTimer207000:
OnTimer230000:
OnTimer253000:
OnTimer276000:
OnTimer299000:
OnTimer322000:
OnTimer345000:
OnTimer368000:
OnTimer391000:
OnTimer414000:
OnTimer460000:
OnTimer483000:
OnTimer506000:
OnTimer529000:
OnTimer552000:
	specialeffect 561; //"Restricted Area#jupe" 561
	end;

OnTimer556000:
	mapannounce "juperos_02","ÿע⣬ͨһڽҪر",bc_map,"0xE559A2";
	end;

OnTimer561000:
	mapannounce "juperos_02","رʱ仹ʣ1",bc_map,"0xE559A2";
	end;

OnTimer598000:
	specialeffect 561; //"Restricted Area#jupe" 561
	end;

OnTimer600000:
	mapannounce "juperos_02","Ҫر",bc_map,"0xE559A2";
	end;

OnTimer603000:
	mapannounce "juperos_02"," װҪ׼״̬",bc_map,"0xE559A2";
	end;

OnTimer621000:
	disablenpc "Restricted Area#jupe";
	end;

OnTimer1200000:
	donpcevent "3F Gate Switch#jupe::OnEnable";
	stopnpctimer;
	end;

OnTouch:
	warp "jupe_gate",50,167;
	end;
}

//============================================================
// Security Checkpoint 1-1
//============================================================
jupe_area1,88,224,0	script	#hole#1-1	844,{
	cutin "1",2;
	if ($@JupreArea1InUse == 1) {
		mes "иʶ";
		mes "õĶ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð...";
		close2;
		cutin "1",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7356) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#1-1" EF_TOPRANK
				cutin "1-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "1-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#1-1::OnEnable";
					enablenpc "Red Alarm#1-1";
					disablenpc "#hole#1-1";
					close2;
					cutin "1-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "1",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "1",255;
			end;
		}
		close;
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "1",255;
		end;
	}

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	stopnpctimer;
	enablenpc "#hole#1-1";
	disablenpc "Red Alarm#1-1";
	end;
}

jupe_area1,83,221,0	script	Warp#1-1	139,2,2,{
OnInit:
	disablenpc "Warp#1-1";
	end;

OnEnable:
	enablenpc "Warp#1-1";
	specialeffect 561; //"Warp#1-1" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area1",47,259;
	end;

OnTimer22500:
	stopnpctimer;
	disablenpc "Warp#1-1";
	end;
}

jupe_area1,47,259,0	script	Red Alarm#1-1	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#1-1";
	end;

OnTouch:
	donpcevent "Red Alarm On#1-1::OnEnable";
	disablenpc "Red Alarm#1-1";
	donpcevent "#hole#1-1::Onstop_timer";
	set $@JupreArea1InUse,1;
	disablenpc "#hole#1-1";
	end;
}

-	script	Red Alarm On#1-1	-1,{
OnInit:
	disablenpc "Red Alarm On#1-1";
	end;

OnEnable:
	enablenpc "Red Alarm On#1-1";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area1","ĸλŶ...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","Ҫ赲λ",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	end;

OnTimer5000:
	mapannounce "jupe_area1","ȻѾرյĵط",bc_map,"0xFF0000";
	donpcevent "Monster1#1-1::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Ӧ׼˰?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	disablenpc "Red Alarm On#1-1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	stopnpctimer;
	end;
}

-	script	Monster1#1-1	-1,{
OnInit:
	disablenpc "Monster1#1-1";
	end;

OnDisable:
	disablenpc "Monster1#1-1";
	killmonster "jupe_area1","Monster1#1-1::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster1#1-1";
	initnpctimer;
	set .MyMobs,8;
	monster "jupe_area1",30,263," ȫԱ",1675,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,262," ȫԱ",1669,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,261," ȫԱ",1675,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,260," ȫԱ",1669,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,259," ȫԱ",1675,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,258," ȫԱ",1669,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,257," ȫԱ",1675,1,"Monster1#1-1::OnMyMobDead";
	monster "jupe_area1",30,256," ȫԱ",1669,1,"Monster1#1-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ǻӰ?",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	killmonsterall "jupe_area1";
	end;

OnTimer300002:
	enablenpc "#hole#1-1";
	stopnpctimer;
	donpcevent "Monster1#1-1::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#1-1::OnEnable";
		disablenpc "Monster1#1-1";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#1-1	-1,{
OnInit:
	disablenpc "Monster2#1-1";
	end;

OnDisable:
	disablenpc "Monster2#1-1";
	killmonster "jupe_area1","Monster2#1-1::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster2#1-1";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area1","ôλ?",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	end;

OnTimer4000:
	mapannounce "jupe_area1","...",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	end;

OnTimer7000:
	mapannounce "jupe_area1","չһʵ!",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	set .MyMobs,8;
	monster "jupe_area1",30,238," ȫԱ",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",31,238," ȫԱ",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",32,238," ȫԱ",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",33,238," ȫԱ",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",34,238," ȫԱ",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",35,238," ȫԱ",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",36,238," ȫԱ",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",37,238," ȫԱ",1669,1,"Monster2#1-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ֻҲ㱾!",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#1-1";
	stopnpctimer;
	donpcevent "Monster2#1-1::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1"," ȴ. ȴ.....",bc_map,"0xFF0000";
		disablenpc "Monster2#1-1";
		enablenpc "#hole#1-1";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 1-2
//============================================================
jupe_area1,25,238,0	script	#hole#1-2	844,{
	cutin "2",2;
	if ($@JupreArea1InUse == 1) {
		mes "иʶ";
		mes "õĶ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð...";
		close2;
		cutin "2",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7357) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#1-2" EF_TOPRANK
				cutin "2-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "2-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#1-2::OnEnable";
					enablenpc "Red Alarm#1-2";
					disablenpc "#hole#1-2";
					close2;
					cutin "2-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "2",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "2",255;
			end;
		}
		close;
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "2",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	stopnpctimer;
	enablenpc "#hole#1-2";
	disablenpc "Red Alarm#1-2";
	end;
}

jupe_area1,21,225,0	script	Warp#1-2	139,2,2,{
OnInit:
	disablenpc "Warp#1-2";
	end;

OnEnable:
	enablenpc "Warp#1-2";
	specialeffect 561; //"Warp#1-2" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area1",21,191;
	end;

OnTimer22500:
	disablenpc "Warp#1-2";
	end;
}

jupe_area1,21,191,0	script	Red Alarm#1-2	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#1-2";
	end;

OnTouch:
	set $@JupreArea1InUse,1;
	donpcevent "Red Alarm On#1-2::OnEnable";
	disablenpc "Red Alarm#1-2";
	disablenpc "#hole#1-2";
	end;
}

-	script	Red Alarm On#1-2	-1,{
OnInit:
	disablenpc "Red Alarm On#1-2";
	end;

OnEnable:
	enablenpc "Red Alarm On#1-2";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area1","!",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","!",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","ܺ˭?",bc_map,"0xFF0000";
	donpcevent "Monster1#1-2::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","ܴǵĻҾ͸",bc_map,"0xFF0000";
	end;

OnTimer8000:
	disablenpc "Red Alarm On#1-2";
	stopnpctimer;
	end;
}

-	script	Monster1#1-2	-1,{
OnInit:
	disablenpc "Monster1#1-2";
	end;

OnDisable:
	disablenpc "Monster1#1-2";
	killmonster "jupe_area1","Monster1#1-2::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#1-2";
	set .MyMobs,8;
	monster "jupe_area1",30,176,"ϵ ",1669,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",31,176,"ϵ ",1675,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",32,176,"ϵ ",1669,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",33,176,"ϵ ",1675,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",34,176,"ϵ ",1669,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",35,176,"ϵ ",1675,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",36,176,"ϵ ",1669,1,"Monster1#1-2::OnMyMobDead";
	monster "jupe_area1",37,176,"ϵ ",1675,1,"Monster1#1-2::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ЩС...",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	killmonsterall "jupe_area1";
	end;

OnTimer300002:
	enablenpc "#hole#1-2";
	stopnpctimer;
	donpcevent "Monster1#1-2::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#1-2::OnEnable";
		disablenpc "Monster1#1-2";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#1-2	-1,{
OnInit:
	disablenpc "Monster2#1-2";
	end;

OnDisable:
	disablenpc "Monster2#1-2";
	killmonster "jupe_area1","Monster2#1-2::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster2#1-2";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area1","о",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area1","ǣ...",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area1","˿ ţ٣ǳƺΪӱ˿",bc_map,"0xFF0000";
	set .MyMobs,13;
	monster "jupe_area1",30,152," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",31,152," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",32,152," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",33,152," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",34,152," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",35,152," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",36,152," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",37,152," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",30,150," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",31,150," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",32,150," ",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",33,150," ",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",34,150," ",1669,1,"Monster2#1-2::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","...ú",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#1-2";
	stopnpctimer;
	donpcevent "Monster2#1-2::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1","...ú",bc_map,"0xFF0000";
		disablenpc "Monster2#1-2";
		enablenpc "#hole#1-2";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 1-3
//============================================================
jupe_area1,36,146,0	script	#hole#1-3	844,{
	cutin "3",2;
	if ($@JupreArea1InUse == 1) {
		mes "иʶ";
		mes "õĶ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð...";
		close2;
		cutin "3",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7358) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#1-3" EF_TOPRANK
				cutin "3-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "3-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#1-3::OnEnable";
					enablenpc "Red Alarm#1-3";
					disablenpc "#hole#1-3";
					close2;
					cutin "3-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "3",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "3",255;
			end;
		}
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "3",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	stopnpctimer;
	enablenpc "#hole#1-3";
	disablenpc "Red Alarm#1-3";
	end;
}

jupe_area1,33,137,0	script	Warp#1-3	139,2,2,{
OnInit:
	disablenpc "Warp#1-3";
	end;

OnEnable:
	enablenpc "Warp#1-3";
	specialeffect 561; //"Warp#1-3" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area1",33,105;
	end;

OnTimer22500:
	disablenpc "Warp#1-3";
	end;
}

jupe_area1,33,105,0	script	Red Alarm#1-3	-1,0,4,{
OnInit:
	disablenpc "Red Alarm#1-3";
	end;

OnTouch:
	set $@JupreArea1InUse,1;
	donpcevent "Red Alarm On#1-3::OnEnable";
	disablenpc "Red Alarm#1-3";
	disablenpc "#hole#1-3";
	end;
}

-	script	Red Alarm On#1-3	-1,{
OnInit:
	disablenpc "Red Alarm On#1-3";
	end;

OnEnable:
	enablenpc "Red Alarm On#1-3";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area1","ҲΪ",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","ľϵͳ",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","ĳ˵ҵ",bc_map,"0xFF0000";
	donpcevent "Monster1#1-3::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Ϊ˳ģ!",bc_map,"0xFF0000";
	end;

OnTimer8000:
	disablenpc "Red Alarm On#1-3";
	stopnpctimer;
	end;
}

-	script	Monster1#1-3	-1,{
OnInit:
	disablenpc "Monster1#1-3";
	end;

OnDisable:
	disablenpc "Monster1#1-3";
	killmonster "jupe_area1","Monster1#1-3::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#1-3";
	set .MyMobs,8;
	monster "jupe_area1",30,89," ",1675,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",31,89," ",1669,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",32,89," ",1675,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",33,89," ",1669,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",34,89," ",1675,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",35,89," ",1669,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",36,89," ",1675,1,"Monster1#1-3::OnMyMobDead";
	monster "jupe_area1",37,89," ",1669,1,"Monster1#1-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ȴ... ȴ....",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	killmonsterall "jupe_area1";
	end;

OnTimer300002:
	donpcevent "Monster1#1-3::OnDisable";
	enablenpc "#hole#1-3";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#1-3::OnEnable";
		disablenpc "Monster1#1-3";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#1-3	-1,{
OnInit:
	disablenpc "Monster2#1-3";
	end;

OnDisable:
	disablenpc "Monster2#1-3";
	killmonster "jupe_area1","Monster2#1-3::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster2#1-3";
	end;

OnTimer2000:
	mapannounce "jupe_area1","ΪѰʲô?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","Ϊʲô?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_area1","Ҹ㣬ǵ!",bc_map,"0xFF0000";
	set .MyMobs,15;
	monster "jupe_area1",42,64," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",43,64," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",44,64," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",45,64," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",46,64," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",47,64," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",48,64," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",49,64," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",42,62," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",43,62," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",44,62," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",45,62," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",46,62," ",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",47,62," ",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",48,62," ",1669,1,"Monster2#1-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ĻǾ",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#1-3";
	stopnpctimer;
	donpcevent "Monster2#1-3::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1","ĻǾ",bc_map,"0xFF0000";
		disablenpc "Monster2#1-3";
		enablenpc "#hole#1-3";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 1-4
//============================================================
jupe_area1,50,49,0	script	#hole#1-4	844,{
	cutin "4",2;
	if ($@JupreArea1InUse == 1) {
		mes "иʶ";
		mes "õĶ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð...";
		close2;
		cutin "4",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7359) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#1-4" EF_TOPRANK
				cutin "4-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "4-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#1-4::OnEnable";
					donpcevent "Red Alarm#1-4::OnEnable";
					disablenpc "#hole#1-4";
					close2;
					cutin "4-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "4",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "4",255;
			end;
		}
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "4",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer5000:
	stopnpctimer;
	enablenpc "#hole#1-4";
	disablenpc "Red Alarm#1-4";
	end;
}

jupe_area1,57,53,0	script	Warp#1-4	139,2,2,{
OnInit:
	disablenpc "Warp#1-4";
	end;

OnEnable:
	enablenpc "Warp#1-4";
	specialeffect 561; //"Warp#1-4" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area1",83,157;
	end;

OnTimer5000:
	disablenpc "Warp#1-4";
	end;
}

jupe_area1,83,157,0	script	Red Alarm#1-4	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#1-4";
	end;

OnEnable:
	enablenpc "Red Alarm#1-4";
	end;

OnTouch:
	set $@JupreArea1InUse,1;
	donpcevent "Red Alarm On#1-4::OnEnable";
	disablenpc "Red Alarm#1-4";
	disablenpc "#hole#1-4";
	end;
}

-	script	Red Alarm On#1-4	-1,{
OnInit:
	disablenpc "Red Alarm On#1-4";
	end;

OnEnable:
	enablenpc "Red Alarm On#1-4";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area1","Ѱܴҵ",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","ϢӦֻ?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","Ѹı",bc_map,"0xFF0000";
	donpcevent "Monster1#1-4::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Ӧĳ˰",bc_map,"0xFF0000";
	end;

OnTimer8000:
	stopnpctimer;
	disablenpc "Red Alarm On#1-4";
	end;
}

-	script	Monster1#1-4	-1,{
OnInit:
	disablenpc "Monster1#1-4";
	end;

OnDisable:
	disablenpc "Monster1#1-4";
	killmonster "jupe_area1","Monster1#1-4::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#1-4";
	set .MyMobs,8;
	monster "jupe_area1",92,154," ",1669,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",96,154," ",1675,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",100,154," ",1669,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",104,154," ",1675,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",92,161," ",1669,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",96,161," ",1675,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",100,161," ",1669,1,"Monster1#1-4::OnMyMobDead";
	monster "jupe_area1",104,161," ",1675,1,"Monster1#1-4::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ȴ... ȴ....",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	killmonsterall "jupe_area1";
	end;

OnTimer300002:
	stopnpctimer;
	enablenpc "#hole#1-4";
	donpcevent "Monster1#1-4::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#1-4::OnEnable";
		disablenpc "Monster1#1-4";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#1-4	-1,{
OnInit:
	disablenpc "Monster2#1-4";
	end;

OnDisable:
	killmonster "jupe_area1","Monster2#1-4::OnMyMobDead";
	disablenpc "Monster2#1-4";
	end;

OnEnable:
	enablenpc "Monster2#1-4";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area1","ҵǲ!",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area1","ôһȴǿߵ",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area1","ԶأԶԶ!",bc_map,"0xFF0000";
	set .MyMobs,10;
	monster "jupe_area1",104,161," ",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",108,161," ",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",111,161," ",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",112,161," ",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",115,161," ",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",104,154," ",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",108,154," ",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",111,154," ",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",112,154," ",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",115,154," ",1669,1,"Monster2#1-4::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","ǺȤ?",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#1-4";
	donpcevent "Monster2#1-4::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1","ǺȤ?",bc_map,"0xFF0000";
		disablenpc "Monster2#1-4";
		enablenpc "#hole#1-4";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Move to Elevator
//============================================================
jupe_area1,112,162,0	script	Ƹ#ufe	844,{
	mes "[δ֪ װ]";
	mes "ſ";
	mes "Ƹ";
	next;
	switch(select("Ƹ:ȡ")) {
	case 1:
		if($@JupreArea1InUse == 1) close;
		initnpctimer;
		donpcevent "LeverWarp#ufe::OnEnable";
		disablenpc "Ƹ#ufe";
		close;
	case 2:
		mes "[" + strcharinfo(0) + "]";
		mes "ûʱȴ..";
		close;
	}
	close;

OnTimer3000:
	enablenpc "Ƹ#ufe";
	stopnpctimer;
	end;
}

jupe_area1,117,157,0	script	LeverWarp#ufe	139,2,2,{
OnInit:
	disablenpc "LeverWarp#ufe";
	end;

OnEnable:
	enablenpc "LeverWarp#ufe";
	specialeffect 561; //"LeverWarp#ufe" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_gate",28,30;
	end;

OnTimer3000:
	stopnpctimer;
	disablenpc "LeverWarp#ufe";
	end;
}

//============================================================
// Security Checkpoint 2-1
//============================================================
jupe_area2,74,224,0	script	#hole#2-1	844,{
	cutin "1",2;
	if ($@JupreArea2InUse == 1) {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "1",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7356) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#2-1" EF_TOPRANK
				cutin "1-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "1-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#2-1::OnEnable";
					enablenpc "Red Alarm#2-1";
					disablenpc "#hole#2-1";
					close2;
					cutin "1-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "1",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "1",255;
			end;
		}
		close;
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "1",255;
		end;
	}

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	stopnpctimer;
	enablenpc "#hole#2-1";
	disablenpc "Red Alarm#2-1";
	end;
}

jupe_area2,80,221,0	script	Warp#2-1	139,2,2,{
OnInit:
	disablenpc "Warp#2-1";
	end;

OnEnable:
	enablenpc "Warp#2-1";
	specialeffect 561; //"Warp#2-1" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area2",116,259;
	end;

OnTimer22500:
	stopnpctimer;
	disablenpc "Warp#2-1";
	end;
}

jupe_area2,116,259,0	script	Red Alarm#2-1	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#2-1";
	end;

OnTouch:
	donpcevent "Red Alarm On#2-1::OnEnable";
	disablenpc "Red Alarm#2-1";
	donpcevent "#hole#2-1::Onstop_timer";
	set $@JupreArea2InUse,1;
	disablenpc "#hole#2-1";
	end;
}

-	script	Red Alarm On#2-1	-1,{
OnInit:
	disablenpc "Red Alarm On#2-1";
	end;

OnEnable:
	enablenpc "Red Alarm On#2-1";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area2","ĸλŶ...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","Ҫ赲λ",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	end;

OnTimer5000:
	mapannounce "jupe_area2","ȻѾرյĵط",bc_map,"0xFF0000";
	donpcevent "Monster1#2-1::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","Ӧ׼˰?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	disablenpc "Red Alarm On#2-1";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	stopnpctimer;
	end;
}

-	script	Monster1#2-1	-1,{
OnInit:
	disablenpc "Monster1#2-1";
	end;

OnDisable:
	disablenpc "Monster1#2-1";
	killmonster "jupe_area2","Monster1#2-1::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster1#2-1";
	initnpctimer;
	set .MyMobs,8;
	monster "jupe_area2",126,247," ȫԱ",1669,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",127,247," ȫԱ",1675,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",128,247," ȫԱ",1669,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",129,247," ȫԱ",1675,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",130,247," ȫԱ",1669,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",131,247," ȫԱ",1675,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",132,247," ȫԱ",1669,1,"Monster1#2-1::OnMyMobDead";
	monster "jupe_area2",133,247," ȫԱ",1675,1,"Monster1#2-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ǻӰ?",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	killmonsterall "jupe_area2";
	end;

OnTimer300002:
	enablenpc "#hole#2-1";
	stopnpctimer;
	donpcevent "Monster1#2-1::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#2-1::OnEnable";
		disablenpc "Monster1#2-1";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#2-1	-1,{
OnInit:
	disablenpc "Monster2#2-1";
	end;

OnDisable:
	disablenpc "Monster2#2-1";
	killmonster "jupe_area2","Monster2#2-1::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster2#2-1";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area2","ôλ?",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	end;

OnTimer4000:
	mapannounce "jupe_area2","...",bc_map,"0xFF0000";
	end;

OnTimer7000:
	mapannounce "jupe_area1","չһʵ!",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	set .MyMobs,8;
	monster "jupe_area2",127,239," ȫԱ",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",126,239," ȫԱ",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",129,239," ȫԱ",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",128,239," ȫԱ",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",131,239," ȫԱ",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",130,239," ȫԱ",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",133,239," ȫԱ",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",132,239," ȫԱ",1669,1,"Monster2#2-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ֻҲǱ!",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#2-1";
	stopnpctimer;
	donpcevent "Monster2#2-1::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","ȴ. ȴ.....",bc_map,"0xFF0000";
		disablenpc "Monster2#2-1";
		enablenpc "#hole#2-1";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 2-2
//============================================================
jupe_area2,138,238,0	script	#hole#2-2	844,{
	cutin "2",2;
	if ($@JupreArea2InUse == 1) {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "2",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7357) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#2-2" EF_TOPRANK
				cutin "2-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "2-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#2-2::OnEnable";
					enablenpc "Red Alarm#2-2";
					disablenpc "#hole#2-2";
					close2;
					cutin "2-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "2",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "2",255;
			end;
		}
		close;
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "2",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	enablenpc "#hole#2-2";
	disablenpc "Red Alarm#2-2";
	stopnpctimer;
	end;
}

jupe_area2,142,225,0	script	Warp#2-2	139,2,2,{
OnInit:
	disablenpc "Warp#2-2";
	end;

OnEnable:
	enablenpc "Warp#2-2";
	specialeffect 561; //"Warp#2-2" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area2",142,191;
	end;

OnTimer22500:
	disablenpc "Warp#2-2";
	end;
}

jupe_area2,142,191,0	script	Red Alarm#2-2	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#2-2";
	end;

OnTouch:
	set $@JupreArea2InUse,1;
	donpcevent "Red Alarm On#2-2::OnEnable";
	disablenpc "Red Alarm#2-2";
	disablenpc "#hole#2-2";
	end;
}

-	script	Red Alarm On#2-2	-1,{
OnInit:
	disablenpc "Red Alarm On#2-2";
	end;

OnEnable:
	enablenpc "Red Alarm On#2-2";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area2","!",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","!",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","ܺ˭?",bc_map,"0xFF0000";
	donpcevent "Monster1#2-2::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","ܴǵĻҾ͸!",bc_map,"0xFF0000";
	end;

OnTimer8000:
	disablenpc "Red Alarm On#2-2";
	stopnpctimer;
	end;
}

-	script	Monster1#2-2	-1,{
OnInit:
	disablenpc "Monster1#2-2";
	end;

OnDisable:
	disablenpc "Monster1#2-2";
	killmonster "jupe_area2","Monster1#2-2::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#2-2";
	set .MyMobs,8;
	monster "jupe_area2",126,177,"ϵ ",1669,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",127,177,"ϵ ",1675,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",128,177,"ϵ ",1669,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",129,177,"ϵ ",1675,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",130,177,"ϵ ",1669,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",131,177,"ϵ ",1675,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",132,177,"ϵ ",1669,1,"Monster1#2-2::OnMyMobDead";
	monster "jupe_area2",133,177,"ϵ ",1675,1,"Monster1#2-2::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ЩС...",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	killmonsterall "jupe_area2";
	end;

OnTimer300002:
	enablenpc "#hole#2-2";
	stopnpctimer;
	donpcevent "Monster1#2-2::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#2-2::OnEnable";
		disablenpc "Monster1#2-2";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#2-2	-1,{
OnInit:
	disablenpc "Monster2#2-2";
	end;

OnDisable:
	disablenpc "Monster2#2-2";
	killmonster "jupe_area2","Monster2#2-2::OnMyMobDead";
	end;

OnEnable:
	enablenpc "Monster2#2-2";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area2","о",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area2","ǣ...",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area2","˿ ţ٣ǳƺΪӱ˿",bc_map,"0xFF0000";
	set .MyMobs,13;
	monster "jupe_area2",126,156," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",127,156," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",128,156," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",129,156," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",130,156," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",131,156," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",132,156," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",133,156," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",133,156," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",127,152," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",129,152," ",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",130,152," ",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",132,152," ",1675,1,"Monster2#2-2::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","...ú",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#2-2";
	stopnpctimer;
	donpcevent "Monster2#2-2::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","...ú",bc_map,"0xFF0000";
		disablenpc "Monster2#2-2";
		enablenpc "#hole#2-2";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 2-3
//============================================================
jupe_area2,127,146,0	script	#hole#2-3	844,{
	cutin "3",2;
	if ($@JupreArea2InUse == 1) {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "3",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7358) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#2-3" EF_TOPRANK
				cutin "3-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "3-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#2-3::OnEnable";
					enablenpc "Red Alarm#2-3";
					disablenpc "#hole#2-3";
					close2;
					cutin "3-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "3",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "3",255;
			end;
		}
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "3",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer22500:
	stopnpctimer;
	enablenpc "#hole#2-3";
	disablenpc "Red Alarm#2-3";
	end;
}

jupe_area2,130,137,0	script	Warp#2-3	139,2,2,{
OnInit:
	disablenpc "Warp#2-3";
	end;

OnEnable:
	enablenpc "Warp#2-3";
	specialeffect 561; //"Warp#2-3" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area2",130,105;
	end;

OnTimer22500:
	disablenpc "Warp#2-3";
	end;
}

jupe_area2,130,105,0	script	Red Alarm#2-3	-1,0,4,{
OnInit:
	disablenpc "Red Alarm#2-3";
	end;

OnTouch:
	set $@JupreArea2InUse,1;
	donpcevent "Red Alarm On#2-3::OnEnable";
	disablenpc "Red Alarm#2-3";
	disablenpc "#hole#2-3";
	end;
}

-	script	Red Alarm On#2-3	-1,{
OnInit:
	disablenpc "Red Alarm On#2-3";
	end;

OnEnable:
	enablenpc "Red Alarm On#2-3";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area2","ҲΪ",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","ľϵͳ",bc_map,"0xFF0000";
	disablenpc "#hole#2-3";
	end;

OnTimer5000:
	mapannounce "jupe_area2","ĳ˵ҵ",bc_map,"0xFF0000";
	donpcevent "Monster1#2-3::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","Ϊ˳ģ!",bc_map,"0xFF0000";
	end;

OnTimer8000:
	stopnpctimer;
	disablenpc "Red Alarm On#2-3";
	end;
}

-	script	Monster1#2-3	-1,{
OnInit:
	disablenpc "Monster1#2-3";
	end;

OnDisable:
	disablenpc "Monster1#2-3";
	killmonster "jupe_area2","Monster1#2-3::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#2-3";
	set .MyMobs,8;
	monster "jupe_area2",126,89," ",1675,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",127,89," ",1669,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",128,89," ",1675,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",129,89," ",1669,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",130,89," ",1675,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",131,89," ",1669,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",132,89," ",1675,1,"Monster1#2-3::OnMyMobDead";
	monster "jupe_area2",133,89," ",1669,1,"Monster1#2-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ȴ... ȴ....",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	killmonsterall "jupe_area2";
	end;

OnTimer300002:
	donpcevent "Monster1#2-3::OnDisable";
	enablenpc "#hole#2-3";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#2-3::OnEnable";
		disablenpc "Monster1#2-3";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#2-3	-1,{
OnInit:
	disablenpc "Monster2#2-3";
	end;

OnDisable:
	disablenpc "Monster2#2-3";
	killmonster "jupe_area2","Monster2#2-3::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster2#2-3";
	end;

OnTimer2000:
	mapannounce "jupe_area2","ΪѰʲô?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","Ϊʲô?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_area2","Ҹ㣬ǵ!",bc_map,"0xFF0000";
	set .MyMobs,16;
	monster "jupe_area2",114,64," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",115,64," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",116,64," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",117,64," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",118,64," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",119,64," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",120,64," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",121,64," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",114,62," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",115,62," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",116,62," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",117,62," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",118,62," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",119,62," ",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",120,62," ",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",121,62," ",1669,1,"Monster2#2-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ĻǾ",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#2-3";
	stopnpctimer;
	donpcevent "Monster2#2-3::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","ĻǾ",bc_map,"0xFF0000";
		disablenpc "Monster2#2-3";
		enablenpc "#hole#2-3";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 2-4
//============================================================
jupe_area2,113,49,0	script	#hole#2-4	844,{
	cutin "4",2;
	if ($@JupreArea2InUse == 1) {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "4",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "һĳ״Ķ";
		mes "ӦǿԲĳֶ";
		mes "˵ǿߵ";
		mes "װð";
		next;
		switch(select("ŲϵƬ:ȡ")) {
		case 1:
			if (countitem(7359) > 0) {
				mes "ЯƬ";
				mes "ȥǳǺ";
				specialeffect 159; //"#hole#2-4" EF_TOPRANK
				cutin "4-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "4-1",255;
					end;
				}
				else {
					mes "ƬĶʼת";
					mes "оذ΢΢ţ";
					mes "˿Դ͵";
					mes "͵";
					mes " - ջƬ -";
					initnpctimer;
					donpcevent "Warp#2-4::OnEnable";
					donpcevent "Red Alarm#2-4::OnEnable";
					disablenpc "#hole#2-4";
					close2;
					cutin "4-1",255;
					end;
				}
			}
			else {
				mes "ûЯ붴Ǻϵ";
				mes "Ʒ";
				close2;
				cutin "4",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "ûʱȴ..";
			close2;
			cutin "4",255;
			end;
		}
	}
	else {
		mes "иԲ";
		mes "ĳֶĶ";
		mes "Ҫߵ";
		mes "װ";
		close2;
		cutin "4",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

OnTimer5000:
	stopnpctimer;
	enablenpc "#hole#2-4";
	disablenpc "Red Alarm#2-4";
	end;
}

jupe_area2,106,53,0	script	Warp#2-4	139,2,2,{
OnInit:
	disablenpc "Warp#2-4";
	end;

OnEnable:
	enablenpc "Warp#2-4";
	specialeffect 561; //"Warp#2-4" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_area2",80,157;
	end;

OnTimer5000:
	disablenpc "Warp#2-4";
	end;
}

jupe_area2,80,157,0	script	Red Alarm#2-4	-1,2,2,{
OnInit:
	disablenpc "Red Alarm#2-4";
	end;

OnEnable:
	enablenpc "Red Alarm#2-4";
	end;

OnTouch:
	set $@JupreArea2InUse,1;
	donpcevent "Red Alarm On#2-4::OnEnable";
	disablenpc "Red Alarm#2-4";
	disablenpc "#hole#2-4";
	end;
}

-	script	Red Alarm On#2-4	-1,{
OnInit:
	disablenpc "Red Alarm On#2-4";
	end;

OnEnable:
	enablenpc "Red Alarm On#2-4";
	initnpctimer;
	end;

OnTimer1000:
	mapannounce "jupe_area2","Ѱܴҵ",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","ϢӦֻ?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","Ѹı",bc_map,"0xFF0000";
	donpcevent "Monster1#2-4::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","Ӧĳ˰",bc_map,"0xFF0000";
	end;

OnTimer8000:
	stopnpctimer;
	disablenpc "Red Alarm On#2-4";
	end;
}

-	script	Monster1#2-4	-1,{
OnInit:
	disablenpc "Monster1#2-4";
	end;

OnDisable:
	disablenpc "Monster1#2-4";
	killmonster "jupe_area2","Monster1#2-4::OnMyMobDead";
	end;

OnEnable:
	initnpctimer;
	enablenpc "Monster1#2-4";
	set .MyMobs,8;
	monster "jupe_area2",75,161," ",1675,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",72,161," ",1669,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",71,161," ",1675,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",68,161," ",1669,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",75,154," ",1675,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",72,154," ",1669,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",71,154," ",1675,1,"Monster1#2-4::OnMyMobDead";
	monster "jupe_area2",68,154," ",1669,1,"Monster1#2-4::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ȴ... ȴ....",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	killmonsterall "jupe_area2";
	end;

OnTimer300002:
	stopnpctimer;
	enablenpc "#hole#2-4";
	donpcevent "Monster1#2-4::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Monster2#2-4::OnEnable";
		disablenpc "Monster1#2-4";
		stopnpctimer;
	}
	end;
}

-	script	Monster2#2-4	-1,{
OnInit:
	disablenpc "Monster2#2-4";
	end;

OnDisable:
	killmonster "jupe_area2","Monster2#2-4::OnMyMobDead";
	disablenpc "Monster2#2-4";
	end;

OnEnable:
	enablenpc "Monster2#2-4";
	initnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_area2","ҵǲ!",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area2","ôһȴǿߵ",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area2","ԶأԶԶ!",bc_map,"0xFF0000";
	set .MyMobs,12;
	monster "jupe_area2",63,161," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",61,161," ",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",59,161," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",57,161," ",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",55,161," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",53,161," ",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",53,154," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",55,154," ",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",57,154," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",59,154," ",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",61,154," ",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",63,154," ",1669,1,"Monster2#2-4::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","ǺȤ?",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

OnTimer300002:
	enablenpc "#hole#2-4";
	donpcevent "Monster2#2-4::OnDisable";
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","ǺȤ?",bc_map,"0xFF0000";
		disablenpc "Monster2#2-4";
		enablenpc "#hole#2-4";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Move to Elevator
//============================================================
jupe_area2,51,162,0	script	Ƹ2#ufe2	844,{
	mes "[δ֪ װ]";
	mes "ſ";
	mes "Ƹ";
	next;
	switch(select("Ƹ:ȡ")) {
	case 1:
		if($@JupreArea2InUse == 1) close;
		initnpctimer;
		donpcevent "LeverWarp#ufe2::OnEnable";
		disablenpc "Ƹ2#ufe2";
		close;
	case 2:
		mes "[" + strcharinfo(0) + "]";
		mes "ûʱȴ..";
		close;
	}
	close;

OnTimer3000:
	enablenpc "Ƹ2#ufe2";
	stopnpctimer;
	end;
}

jupe_area2,46,157,0	script	LeverWarp#ufe2	139,2,2,{
OnInit:
	disablenpc "LeverWarp#ufe2";
	end;

OnEnable:
	enablenpc "LeverWarp#ufe2";
	specialeffect 561; //"LeverWarp#ufe2" 561
	soundeffectall "jupe_warp.wav",0;
	initnpctimer;
	end;

OnTouch:
	warp "jupe_gate",71,29;
	end;

OnTimer3000:
	stopnpctimer;
	disablenpc "LeverWarp#ufe2";
	end;
}

//============================================================
// Elevator Reception Room
//============================================================
jupe_ele_r,51,98,0	script	#ufe	844,{
	if ($@JupeElevatorInUse == 1) {
		mes "ƺʹõ";
		close;
	}
	else {
		cutin "5",2;
		mes "иƺĳֶ";
		mes "ƸˣԼв֪;";
		mes "4";
		next;
		switch(select("Ƹ:ȥ")) {
		case 1:
			mes "^777777!^000000";
			next;
			mes "^777777ȻƸˣ";
			mes "ûκηӦ^000000";
			mes "ҪڿƸԵĶϣ";
			mes "ĳֶŻƵ";
			next;
			if (countitem(7356) > 0 && countitem(7359) > 0 && countitem(7357) > 0 && countitem(7358) > 0) {
				switch(select("еĹŴƬ")) {
				case 1:
					mes "^777777!^000000";
					next;
					mes "^3300FF4ŴƬ!";
					mes "ЩƬʼâ^000000";
					cutin "5-1",2;
					specialeffect 72; //"Switch#ufe" EF_SPHERE
					delitem 7356,1; //Piece_Of_Crest1
					delitem 7359,1; //Piece_Of_Crest4
					delitem 7357,1; //Piece_Of_Crest2
					delitem 7358,1; //Piece_Of_Crest3
					next;
					switch(select("ٰƬγ:Ƹ")) {
					case 1:
						cutin "5",2;
						mes "^3300FFѹŴƬٰγ^000000";
						getitem 7356,1; //Piece_Of_Crest1
						getitem 7359,1; //Piece_Of_Crest4
						getitem 7357,1; //Piece_Of_Crest2
						getitem 7358,1; //Piece_Of_Crest3
						close2;
						cutin "5",255;
						end;
					case 2:
						if ($@JupeElevatorInUse == 1) {
							mes "^3355FFIt's strange,";
							mes "but this lever has";
							mes "already been pulled.^000000";
							close2;
							cutin "5",255;
							end;
						}
						else {
							mes "^777777Ƹһ俪ʼҡҡ";
							mes "!^000000";
							next;
							mes "ⲻƽķ䣬";
							mes "ĹŴƬ";
							mes "ˣ";
							mes "Ѿ޷!";
							set $@JupeElevatorInUse,1;
							disablenpc "#ufe";
							enablenpc "ؿ#ufe";
							initnpctimer;
							specialeffect2 563; // 563
							soundeffectall "earth_quake.wav",0;
							close2;
							cutin "5-1",255;
							end;
						}
					}
				}
			}
			else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
				select("ŲŴƬ");
				mes "Ƭ㣬";
				mes "ҿҪеƬ";
				mes "ͬʱ";
				close2;
				cutin "5-1",255;
				end;
			}
			else {
				mes "ҪҿƸԱ߶У";
				mes "ҪĶ";
				close2;
				cutin "5-1",255;
				end;
			}
		case 2:
			mes "֪ͲҶ...";
			close2;
			cutin "5",255;
			end;
		}
	}
	end;

OnTimer2000:
	mapannounce "jupe_ele_r","......",bc_map,"0x66FF00";
	end;

OnTimer3000:
	mapannounce "jupe_ele_r","ܺⶼΪλᱻڵص...?",bc_map,"0x66FF00";
	end;

OnTimer7000:
	mapannounce "jupe_ele_r","ô",bc_map,"0x66FF00";
	end;

OnTimer10000:
	mapannounce "jupe_ele_r","һ㿴뿴Ķ",bc_map,"0x66FF00";
	end;

OnTimer17000:
	mapannounce "jupe_ele_r","ԽһеĻӰ",bc_map,"0xCC6600";
	end;

OnTimer20000:
	mapannounce "jupe_ele_r","ԽһеĻ...",bc_map,"0xFF0000";
	end;

OnTimer23000:
	mapannounce "jupe_ele_r","һ20",bc_map,"0xFF0000";
	donpcevent "Elevator Guard1#ufe::OnEnable";
	end;

OnTimer27000:
	mapannounce "jupe_ele_r","ֻʱӰͬ",bc_map,"0xFF0000";
	stopnpctimer;
	end;
}

jupe_ele_r,51,98,0	script	ؿ#ufe	844,{
	mes "ƺʹõ";
	close;

OnInit:
	disablenpc "ؿ#ufe";
	end;
}

//============================================================
// Elevator Receptoin Guards
//============================================================
jupe_ele_r,10,50,0	script	Elevator Guard1#ufe	-1,{
OnInit:
	disablenpc "Elevator Guard1#ufe";
	end;

OnEnable:
	set .MyMobs,9;
	enablenpc "Elevator Guard1#ufe";
	initnpctimer;
	end;

OnTimer1000:
	monster "jupe_ele_r",44,99,"",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer1200:
	monster "jupe_ele_r",55,99,"",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer1400:
	monster "jupe_ele_r",45,84,"",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer1600:
	monster "jupe_ele_r",54,84,"",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer1800:
	monster "jupe_ele_r",45,99,"",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer2000:
	monster "jupe_ele_r",54,99,"",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer2200:
	monster "jupe_ele_r",48,84,"",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer2400:
	monster "jupe_ele_r",52,84,"",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer2600:
	monster "jupe_ele_r",50,84," ӳ",1684,1,"Elevator Guard1#ufe::OnMyMobDead";
	end;

OnTimer120000:
	mapannounce "jupe_ele_r","ӰҲӮ˵ļһǰ",bc_map,"0x66FF00";
	enablenpc "#ufe";
	disablenpc "ؿ#ufe";
	donpcevent "Annihilation#ufe::OnEnable";
	set $@JupeElevatorInUse,0;
	end;

OnTimer120005:
	killmonster "jupe_ele_r","Elevator Guard1#ufe::OnMyMobDead";
	stopnpctimer;
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		donpcevent "Elevator Safety#ufe::OnEnable";
		stopnpctimer;
	}
	end;
}

jupe_ele_r,10,52,0	script	Elevator Safety#ufe	-1,{
OnInit:
	disablenpc "Elevator Safety#ufe";
	end;

OnEnable:
	enablenpc "Elevator Safety#ufe";
	initnpctimer;
	end;

OnTimer5000:
	mapannounce "jupe_ele_r","Ӯ˻ӰรҪʤǰһ?",bc_map,"0x66FF00";
	soundeffectall "earth_quake.wav",0;
	end;

OnTimer8000:
	donpcevent "Elevator On#ufe::OnEnable";
	end;

OnTimer10000:
	disablenpc "Elevator Safety#ufe";
	stopnpctimer;
	end;
}

jupe_ele_r,50,89,0	script	Annihilation#ufe	-1,35,50,{
OnInit:
	disablenpc "Annihilation#ufe";
	end;

OnEnable:
	enablenpc "Annihilation#ufe";
	initnpctimer;
	end;

OnTouch:
	percentheal -99,-100;
	end;

OnTimer1000:
	mapwarp "jupe_ele_r", "jupe_gate",49,138;
	end;

OnTimer1600:
	enablenpc "Elevator Escape#ufe";
	end;

OnTimer3000:
	disablenpc "Annihilation#ufe";
	disablenpc "Elevator Escape#ufe";
	end;
}

jupe_ele_r,50,89,0	script	Elevator Escape#ufe	-1,35,50,{
OnInit:
	disablenpc "Elevator Escape#ufe";
	end;

OnTouch:
	mapwarp "jupe_ele_r", "jupe_gate",49,138;
	end;
}

jupe_ele_r,10,54,0	script	Elevator On#ufe	-1,{
OnInit:
	disablenpc "Elevator On#ufe";
	end;

OnEnable:
	enablenpc "Elevator On#ufe";
	initnpctimer;
	end;

OnTimer1000:
	mapwarp "jupe_ele_r", "jupe_ele",42,47;
	set $@JupeElevatorInUse2,0;
	donpcevent "TimeOut#ufe::OnEnable";
	donpcevent "Guard-1#ufe::OnEnable";
	end;

OnTimer10000:
	stopnpctimer;
	disablenpc "Elevator On#ufe";
	end;
}

//============================================================
// Elevator NPCs
//============================================================
jupe_ele,14,6,1	script	TimeOut#ufe	844,{
OnEnable:
	initnpctimer;
	end;

OnDisable:
	stopnpctimer;
	end;

OnTimer59000:
	if (getmapusers("jupe_ele") == 0) {
		killmonsterall "jupe_ele";
		donpcevent "Guard-1#ufe::OnDisable";
		donpcevent "Guard-2#ufe::OnDisable";
		donpcevent "Guard-3#ufe::OnDisable";
		donpcevent "Guard-4#ufe::OnDisable";
		stopnpctimer;
		set $@JupeElevatorInUse2,0;
		set $@JupeElevatorInUse,0;
		disablenpc "ؿ#ufe";
		enablenpc "#ufe";
	}
	end;

OnTimer120000:
	killmonsterall "jupe_ele";
	donpcevent "Guard-1#ufe::OnDisable";
	donpcevent "Guard-2#ufe::OnDisable";
	donpcevent "Guard-3#ufe::OnDisable";
	donpcevent "Guard-4#ufe::OnDisable";
	mapannounce "jupe_ele","վ޷˷־",bc_map,"0xFF0000";
	end;

OnTimer122000:
	mapannounce "jupe_ele","ԹԼĵĿ־?",bc_map,"0xFF0000";
	end;

OnTimer125000:
	mapannounce "jupe_ele","ΪӰֻ?",bc_map,"0xFF0000";
	end;

OnTimer127000:
	mapannounce "jupe_ele","ʵҵҲǻӰĻ?",bc_map,"0xFF0000";
	end;

OnTimer129000:
	mapannounce "jupe_ele","վõĻ?",bc_map,"0xFF0000";
	end;

OnTimer131000:
	mapannounce "jupe_ele","ⶼбõĻ?",bc_map,"0xFF0000";
	end;

OnTimer133000:
	mapannounce "jupe_ele","ʵ?",bc_map,"0xFF0000";
	end;

OnTimer134000:
OnTimer135000:
	mapwarp "jupe_ele", "jupe_gate",49,138;
	end;

OnTimer142000:
	disablenpc "GuardEnd#ufe";
	disablenpc "4F Enter#ufe";
	donpcevent "TimeOut#ufe::OnDisable";
	set $@JupeElevatorInUse2,0;
	set $@JupeElevatorInUse,0;
	disablenpc "ؿ#ufe";
	enablenpc "#ufe";
	stopnpctimer;
	end;
}

jupe_ele,15,6,1	script	Guard-1#ufe	844,{
OnEnable:
	initnpctimer;
	end;

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","ܹĴҵʾ",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","һжֻ壬ΪҪߵ۷",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","ҪҪһ...",bc_map,"0xFF0000";
	end;

OnTimer12000:
	set .MyMobs,8;
	monster "jupe_ele",48,44,"",1675,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",45,42,"",1669,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",38,42,"",1675,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",35,44,"",1669,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",35,51,"",1675,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",38,53,"",1669,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",45,53,"",1675,1,"Guard-1#ufe::OnMyMobDead";
	monster "jupe_ele",48,51,"",1669,1,"Guard-1#ufe::OnMyMobDead";
	set $@JupeElevatorInUse2,1;
	end;

OnTimer30000:
	if ($@JupeElevatorInUse2 == 1) {
		donpcevent "Guard-2#ufe::OnEnable";
		stopnpctimer;
	}
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		if ($@JupeElevatorInUse2 == 1) {
			set $@JupeElevatorInUse2,1;
			donpcevent "Guard-2#ufe::OnEnable";
			stopnpctimer;
		} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
			donpcevent "GuardEnd#ufe::OnEnable";
			stopnpctimer;	
		}
	}
	end;
}

jupe_ele,16,6,1	script	Guard-2#ufe	844,{
OnEnable:
	initnpctimer;
	end;

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","ﱾǸλ",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","ǸõĻ",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","־ܺ...",bc_map,"0xFF0000";
	end;

OnTimer11000:
	mapannounce "jupe_ele","Ǿ޷ͻƽľ",bc_map,"0xFF0000";
	end;

OnTimer12000:
	set .MyMobs,8;
	monster "jupe_ele",48,44,"",1683,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",45,42,"",1669,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",38,42,"",1683,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",35,44,"",1669,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",35,51,"",1683,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",38,53,"",1669,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",45,53,"",1683,1,"Guard-2#ufe::OnMyMobDead";
	monster "jupe_ele",48,51,"",1669,1,"Guard-2#ufe::OnMyMobDead";
	set $@JupeElevatorInUse2,2;
	end;

OnTimer30000:
	if ($@JupeElevatorInUse2 == 2) {
		donpcevent "Guard-3#ufe::OnEnable";
		stopnpctimer;
	}
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		if ($@JupeElevatorInUse2 == 2) {
			donpcevent "Guard-3#ufe::OnEnable";
			stopnpctimer;
		} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
			donpcevent "GuardEnd#ufe::OnEnable";
			stopnpctimer;
		}
	}
	end;
}

jupe_ele,17,6,1	script	Guard-3#ufe	844,{
OnEnable:
	initnpctimer;
	end;

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","ΪЩʲô?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","Ŀõĵ?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","... ֻԼŶ?",bc_map,"0xFF0000";
	end;

OnTimer12000:
	set .MyMobs,8;
	monster "jupe_ele",48,44,"",1675,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",45,42,"",1669,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",38,42,"",1683,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",35,44,"",1675,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",35,51,"",1669,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",38,53,"",1683,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",45,53,"",1675,1,"Guard-3#ufe::OnMyMobDead";
	monster "jupe_ele",48,51,"",1669,1,"Guard-3#ufe::OnMyMobDead";
	set $@JupeElevatorInUse2,3;
	end;

OnTimer30000:
	if ($@JupeElevatorInUse2 == 3) {
		donpcevent "Guard-4#ufe::OnEnable";
		stopnpctimer;
	}
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		if ($@JupeElevatorInUse2 == 3) {
			donpcevent "Guard-4#ufe::OnEnable";
			stopnpctimer;
		}
		else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
			donpcevent "GuardEnd#ufe::OnEnable";
			stopnpctimer;
		}
	}
	end;
}

jupe_ele,18,6,1	script	Guard-4#ufe	844,{
OnEnable:
	initnpctimer;
	end;

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","ˣٴսǲӵ...",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","ǣԼ",bc_map,"0xFF0000";
	end;

OnTimer8000:
	set .MyMobs,8;
	monster "jupe_ele",48,44,"",1684,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",45,42,"",1669,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",38,42,"",1684,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",35,44,"",1669,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",35,51,"",1675,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",38,53,"",1669,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",45,53,"",1683,1,"Guard-4#ufe::OnMyMobDead";
	monster "jupe_ele",48,51,"",1675,1,"Guard-4#ufe::OnMyMobDead";
	set $@JupeElevatorInUse2,4;
	end;

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		if(getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1)
		{
			donpcevent "GuardEnd#ufe::OnEnable";
			stopnpctimer;
		}
	}
	end;
}

jupe_ele,19,6,1	script	GuardEnd#ufe	844,{
OnInit:
	disablenpc "GuardEnd#ufe";
	end;

OnEnable:
	enablenpc "GuardEnd#ufe";
	donpcevent "TimeOut#ufe::OnDisable";
	initnpctimer;
	end;

OnDisable:
	disablenpc "GuardEnd#ufe";
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","Ҳ͸¶κ",bc_map,"0x66FF00";
	end;

OnTimer5000:
	mapannounce "jupe_ele","˻ʱǵĶпѾʧ",bc_map,"0x66FF00";
	end;

OnTimer8000:
	mapannounce "jupe_ele","һжǴǸͲڴ",bc_map,"0x66FF00";
	end;

OnTimer11000:
	mapannounce "jupe_ele","...?",bc_map,"0x66FF00";
	end;

OnTimer12000:
	mapannounce "jupe_ele","...ԸĻԵĵط",bc_map,"0x66FF00";
	enablenpc "4F Enter#ufe";
	misceffect 16;
	end;

OnTimer22000:
	mapannounce "jupe_ele","ȻĻӰ͵֧",bc_map,"0x66FF00";
	soundeffectall "earth_quake.wav",0;
	disablenpc "4F Enter#ufe";
	end;

OnTimer24000:
	mapwarp "jupe_ele","jupe_core",150,286;
	end;

OnTimer25000:
	mapwarp "jupe_ele","jupe_core",151,286;
	end;

OnTimer26000:
	set $@JupeElevatorInUse2,0;
	set $@JupeElevatorInUse,0;
	disablenpc "ؿ#ufe";
	enablenpc "#ufe";
	donpcevent "GuardEnd#ufe::OnDisable";
}

jupe_ele,41,33,0	script	4F Enter#ufe	-1,4,4,{
OnInit:
	disablenpc "4F Enter#ufe";
	end;

OnTouch:
	warp "jupe_core",rand(149,151),286;
	end;
}

//============================================================
// Warps
//============================================================
jupe_gate,49,171,0	script	gate#start	-1,1,1,{
	end;

OnTouch:
	initnpctimer "gate#start",1;
	mes "^777777[" + strcharinfo(0) + "]^000000";
	mes "ǿԵ";
	mes "ǰ¥Ĵ͵";
	next;
	switch(select("ίи͵:رܴ͵")) {
	case 1:
		mes "^777777[" + strcharinfo(0) + "]^000000";
		mes "оƮƮȻƵ";
		specialeffect2 348; // EF_LIGHTSPHERE
		close2;
		stopnpctimer;
		warp "juperos_02",130,142;
		end;
	case 2:
		mes "^777777[" + strcharinfo(0) + "]^000000";
		mes "ƶǰ¥Ƶ!";
		close2;
		warp "jupe_gate",50,168;
		stopnpctimer;
		end;
	}
	end;

OnTimer10000:
	warp "juperos_02",128,278;
	enablenpc "gate#start#2";
	disablenpc "gate#start";
	end;
}

jupe_gate,50,171,0	script	gate#start#2	-1,2,2,{
OnInit:
	disablenpc "gate#start#2";
	end;

OnTouch:
	warp "juperos_02",130,142;
	end;

OnTimer2000:
	enablenpc "gate#start";
	disablenpc "gate#start#2";
	end;
}

juperos_02,33,59,0	script	jupe_goto2F	45,2,2,{
OnTouch:
	switch(rand(1,4)) {
	case 1: warp "juperos_01",120,72; end;
	case 2: warp "juperos_01",120,112; end;
	case 3: warp "juperos_01",79,112; end;
	case 4: warp "juperos_01",79,72; end;
	}
	end;
}
