summaryrefslogblamecommitdiff
path: root/npc/quests/quests_juperos.txt
blob: 2edaee134b58010eef0604f9c837e6886e95bce1 (plain) (tree)
1
2
3
4
5
6
7
8
9
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
                                                              



                                                              
       
                                                              
               
                                                              

                                       



                                                              
                                                                           

                                                                         
                                                                    
                                                            
                                                                  
                                                                 
                                                          
                                                            



























































































































































































































































































































































































































                                                                                                                            
                                       






















































































































































































                                                                                                                            
                                         



























                                                                                              
                                       















































































                                                                                                             
                                               
































































































































                                                                                                              
                                               



































































































                                                                                                           
                                               














































































































































































































































































































































                                                                                                                            
                                                     




























































                                                     
                                                     














































































































































                                                                                        
                              





























































































































































































































                                                                     
                                                     





























                                                     



                                                              
                         




                                                              
                                     











                                                                  
                                              
                       

                                          
                      





                                                           
                       
                             
                                        
                      
         
            

             
                     
                                  
                                           



                                                        
       

                                 
 

                                
                                 












                                  



                                                              



                                                            
 


                                                                    
 


                                        

            




                                                                                                 
                     
            
 







                                                                                                                    
                                   



                                                            
            
 
 
 


                                                                 

            

                                         
                     




































                                                                                                                                                                        
                          










                                                                                                                        
                          















                                                                                        
                     





















                                                              
                    
















                                                                                                            
                                                         






























































                                                                                   
                    






                     
                     











                                                         
                          








                                         
                     









                                                        


                                                

                                




















                                                                                        














                                                                                                            
                     







                                    

                                  






















                                                                                             
                              

                                             
















                                                    

                                  


































                                                                                                



                                

                              








                                                                                




















                                                              
                    
















                                                                                                            
                                                         































































                                                                                   
                    



             
                     


             
                     











                                                         
                          









































                                                                                      












                                                                                                       
                     







                                    

                                  






















                                                                                                    
                              

                                             
















                                                    

                                  



                                                             
                                 












                                                                                                                            

















                                                                                        



                                

                              








                                                                      





















                                                              
         















                                                                                                            
                                                         






































































                                                                                   
                     











                                                         
                          









































                                                                                        












                                                                                                         
                     







                                    

                                  






















                                                                                       
                                             

















                                                    

                                  




                                                             
                                 











                                                                                                                        



















                                                                                                     



                                

                              








                                                                                                             




                                        
 
































                                                                                                            
                                                         







































































                                                                                   
                     











                                                         
                          













































                                                                                                                     











                                                                                                 
                     








                                      

                                  






















                                                                                         
                     
                              
                                             
















                                                    
          
                                                             
                                  


            
                                 












                                                                                                                       













                                                                                         
                                
                                                                             


              

                                             







                                                                                     















                                                              
                                                 












                                                     

                              
                     







                                                         

                                  
                          








                                         
                     








                                                              
                                     












                                                                                                            
                                          












                                                                       
                                                         

                                              
                                                             



































































                                                                                   
                     











                                                         
                          








                                         
                     









                                                        


                                                

                                




















                                                                                        














                                                                                                            
                     







                                    

                                  


















                                                                                             
                                


              
                              

                                             
















                                                    

                                  


































                                                                                                
                                


              

                              








                                                                                
                                        









                                                              
                                     


























                                                                                                            
                                                         

                                              
                                                             





































































                                                                                   
                     











                                                         
                          


















                                                        
                                





















                                                                                      












                                                                                                       
                     







                                    

                                  


















                                                                                                    
                                


              
                              

                                             
















                                                    

                                  



                                                             
                                 












                                                                                                                            

















                                                                                         
                                


              

                              








                                                                      
                                        









                                                              
                                     


























                                                                                                            
                                                         

                                              
                                                             



































































                                                                                   
                     











                                                         
                          


















                                                        
                                



































                                                                                                         
                     







                                    

                                  


















                                                                                        
                                


              
                                             

















                                                    

                                  




                                                             
                                 











                                                                                                                        




















                                                                                                     
                                


              

                              








                                                                                                             
                                        









                                                              
                                     


























                                                                                                            
                                                         

                                              
                                                             




































































                                                                                   
                     











                                                         
                          






















                                                        
                                





















                                                                                                                     











                                                                                                 
                     








                                      

                                  


















                                                                                        
                                


              
                     
                              
                                             
















                                                    
          
                                                             
                                  


            
                                 












                                                                                                                       















                                                                                        
                                
                                                                             


              

                                             







                                                                                     
                                        














                                                              
                                                 












                                                      

                               
                     







                                                         

                                   
                          








                                         
                     









































                                                                                                                       
                                                                







































                                                                                                      
                                                                           
                                                                                           




































































                                                                                                                             
                     

































































                                                                                                                                        
                               












                                                                    

















                                                                                                                     
                                           

















                                                                  
                                     



                     
                             





                                                 





































                                                                  
                     

















                                                              
                                          



                                                    









                                           



                                            



























                                                                                                              



                                               
              



















                                             





















                                                                                                
                                   


             
                                        







                                                   
                                                

                                                           


                                                                                                                                                                                                    













                                             

























                                                                                                           
                                   


             
                                        







                                                   
                                                

                                                           


                                                                                                                                                                                                    













                                             





















                                                                                            
                                   


             
                                        







                                                   
                                                


                                                           


                                                                                                                                                                                                  













                                             








                                                                                                                 








                                                                           
                                   



                              




                                                                                                                                                             











































                                                                                                                
                                           











                                               



                                   
                                             


















                                                              
                                    





                                              
                                              
                       

                                          
                      



                                               
                       
                             
                                        
                      

































                                                        
 
//===== rAthena Script =======================================
//= Juperos Dungeon Quests
//===== By ===================================================
//= MasterOfMuppets
//===== Version ==============================================
//= 1.7
//===== Compatible With ======================================
//= rAthena SVN
//===== Description ==========================================
//= [Partial Aegis COnversion]
//= Juperos Ruins related Quests/Events
//===== Comments =============================================
//= 1.0 First version, partly implemented [MasterOfMuppets]
//= 1.1 Added official Juperos Ruins History Quest. Thanks
//= to Keplerk for his first version. [SinSloth]
//= 1.2 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 1.3 Removed semi-official core access NPCs, replaced with [L0ne_W0lf]
//=	event-driven story progressive NPCs. Optimization needed.
//= 1.3a Adjusted the elevafor timer. (132000 -> 142000) [L0ne_W0lf]
//= 1.3b Minor updates to juperos elevator NPCs. [L0ne_W0lf]
//= 1.4 Fixed Elevator not working after failing once. [L0ne_W0lf]
//= 1.5 Lots of Fixes, missing stopnpctimers, cleanup. [Zephyrus]
//= 1.6 Added missing close in "Popular Feats" [L0ne_W0lf]
//= 1.7 Replaced effect numerics with constants. [L0ne_W0lf]
//============================================================

yuno_in04,190,125,4	script	Scholar	700,{

	switch(yuno_hist)
	{
		case 0:
			mes "[Scholar]";
			mes "...Mm? ";
			mes "...Yes?";
			next;
			mes "[Scholar]";
			mes "...";
			mes "......";
			mes "May I help you?";
			next;
			switch( select( "Oh! N-Nothing!","Excuse me..." ) )
			{
				case 1:
					mes "[Scholar]";
					mes "...";
					mes "......";
					mes "Hmm?";
					mes "...........";
					mes "Hmpf.";
					close;
			
				case 2:
					mes "[Scholar]";
					mes "...";
					mes "......";
					mes "Hmm?";
					mes "...........";
					mes "Hmmm...";
					next;
					mes "[Scholar]";
					mes "You must be lost.";
					mes "This is the scholarly";
					mes "research section, you know,";
					mes "content you couldn't possibly";
					mes "fathom. The popular novels and picture books are someplace else.";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "...";
					mes "......";
					next;
					mes "[Scholar]";
					mes "Why don't you rummage";
					mes "through the bookshelves?";
					mes "I'm sure you can find some";
					mes "book there that can hold your";
					mes "interest. Well, depending on";
					mes "your actual attention span...";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "(What's her damage?!";
					mes "Does she have an attitude problem or is she just stuck-up?)";
					close;
			}

		case 1:
			mes "[Scholar]";
			mes "...Mm? ";
			mes "...Yes?";
			next;
			mes "[Scholar]";
			mes "...";
			mes "......";
			mes "May I help you?";
			next;
			switch( select( "Oh! N-Nothing!","By any chance..." ) )
			{
				case 1:
					mes "[Scholar]";
					mes "...";
					mes "......";
					mes "Hmm?";
					mes "...........";
					mes "Hmpf.";
					close;
			
				case 2:
					mes "["+strcharinfo(0)+"]";
					mes "By any chance...";
					mes "Are you conducting";
					mes "research about Juperos?";
					next;
					mes "[Scholar]";
					mes "Why yes, that is";
					mes "correct. But how did";
					mes "you come to learn about";
					mes "my current research project?";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "Oh, I managed to read";
					mes "a thesis paper entitled,";
					mes "''The Fall of Juperos,'' and";
					mes "I just thought that the writing";
					mes "style and your personality";
					mes "seem to match for some reason.";
					next;
					mes "[Scholar]";
					mes "Oh...! You read my";
					mes "thesis? So what did";
					mes "you think about it?";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "So far, it's alright, but";
					mes "quite frankly it's incomplete.";
					mes "I mean, you don't have much in";
					mes "in the way of conjecture, much";
					mes "less any evidence to back up";
					mes "any of your statements.";
					next;
					mes "[Scholar]";
					mes "....";
					mes "Let me apologize for";
					mes "being rude to you earlier.";
					mes "As you know, my name is";
					mes "Fayruz Khrhiyha. May I ask";
					mes "what your name might be?";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "I'm "+strcharinfo(0)+",";
					mes "a brave adventurer in the";
					mes "service of his royal majesty,";
					mes "the wise and benevolent";
					mes "King Tristram III.";
					set yuno_hist,2;
					next;
					mes "[Fayruz]";
					mes "Well, "+strcharinfo(0)+",";
					mes "I understand that my thesis";
					mes "still requires more evidence.";
					mes "But I'd need some ancient";
					mes "documents from Juperos";
					mes "to complete my research...";
					next;
					mes "[Fayruz]";
					mes "If you happen to travel";
					mes "through Juperos and find";
					mes "any ancient documents, would";
					mes "you bring them to me? Having";
					mes "those would help my research";
					mes "efforts immensely. Thank you...";
					close;
			}

		case 2:
			if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
			{
				mes "[Fayruz]";
				mes "Ah, it's you! Listen,";
				mes "I just found a record of";
				mes "an adventurer who explored";
				mes "Juperos. There's mention";
				mes "of a stone statue here that";
				mes "just might be noteworthy...";
				next;
				mes "[Fayruz]";
				mes "If you happen to find";
				mes "yourself in Juperos,";
				mes "would you find the stone";
				mes "statue at the entrance of";
				mes "its dungeon and read the";
				mes "engraved message for me?";
				next;
				mes "[Fayruz]";
				mes "According to my notes,";
				mes "there's a spell that will";
				mes "make its reader memorize";
				mes "its message, even if they don't";
				mes "know the language. So come";
				mes "to me if you manage to read it.";
				close;
			}
			mes "[Fayruz]";
			mes "If you ever chance to";
			mes "travel through Juperos,";
			mes "would you let me know if you";
			mes "find anything that might help";
			mes "my research there? I'd be";
			mes "very grateful for your help.";
			close;

		case 3:
			mes "[Fayruz]";
			mes "Well, you look";
			mes "quite pleased.";
			mes "May I asked what";
			mes "happened to put that";
			mes "expression on your face?";
			next;
			switch( select( "I found something in Juperos.","Nothing much." ) )
			{
		
				case 1:
					mes "[" +strcharinfo(0)+"]";
					mes "I went to Juperos like";
					mes "you asked and found that";
					mes "stone statue you were talking";
					mes "about. Just like you said, there was an engraved message on it.";
					next;
					mes "[Fayruz]";
					mes "Fascinating!";
					mes "So is it really enchanted";
					mes "so anyone can memorize it?";
					mes "Wh-what does the message say?";
					next;
					mes "^3355FFYou recite the message";
					mes "engraved on the stone";
					mes "statue, unable to interpret";
					mes "the sounds you're uttering,";
					mes "but weirdly enough, you can";
					mes "easily recall them from memory.^000000";
					next;
					mes "[Fayruz]";
					mes "Ah, I see! Wait,";
					mes "give me a moment to";
					mes "properly translate this...";
					next;
					mes "...";
					mes "......";
					mes ".........";
					next;
					mes "[Fayruz]";
					mes "It means, ''Do you wish to";
					mes "see the end of the madness?";
					mes "He is waiting where the three";
					mes "columns were destroyed, where";
					mes "two hundred illusions wander.''";
					next;
					mes "[Fayruz]";
					mes "''You will see him, the one";
					mes "who was vain and extravagant,";
					mes "with your own eyes at the place where the light passes through.";
					set yuno_hist,4;
					next;
					mes "[Fayruz]";
					mes "Ah, usually, descriptions";
					mes "of the ''vain and extravagant";
					mes "one'' refer to the mad scientist rumored to have lived in that";
					mes "ancient era. But if this is true, I may have to rework my thesis...";
					next;
					mes "[Fayruz]";
					mes "I have another favor to";
					mes "ask of you. If you find any";
					mes "object of historical significance in Juperos, would you bring it to";
					mes "me? I'll reward you, of course.";
					next;
					mes "[Fayruz]";
					mes "It would be most helpful";
					mes "if you could manage to find";
					mes "documents that existed from that era. Fortunately, back then,";
					mes "they made all their records on material more durable than paper.";
					close;

				case 2:
					mes "[Fayruz]";
					mes "Nothing, huh?";
					mes "My life is also fairly";
					mes "uneventful, but somehow,";
					mes "I'm don't think I'm content.";
					close;		
			}

		case 4:	
			mes "[Fayruz]";
			mes "Oh hello, "+strcharinfo(0)+".";
			mes "So what brings you to";
			mes "the Juno Library today?";
			next;
			switch( select ( "Nice weather today, isn't it?","I found something in Juperos.","Nothing much.") )
			{
				case 1:
					mes "[Fayruz]";
					mes "Well, I wouldn't know.";
					mes "It's late whenever I go";
					mes "out, so I always happen to";
					mes "miss the sunlight. I guess";
					mes "I really miss nice weather";
					mes "sometimes, you know?";
					close;
			
				case 2:
					if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
					{
						mes "[Fayruz]";
						mes "Oh, really?!";
						mes "That's great news!";
						mes "W-what did you find?";
						next;
						mes "^3355FFIn her excitement,";
						mes "Fayruz begins to";
						mes "rummage through your";
						mes "things before you get";
						mes "the chance to answer her.^000000";
						next;
						mes "[Fayruz]";
						mes "Oh, this must be it!";
						mes "Would you mind if I keep";
						mes "this Transparent Plate for";
						mes "my research? In return, I'll";
						mes "tell you some tales about";
						mes "Juperos that I've learned.";
						next;
						switch( select ("Please, be my guest.","No way, you can't have it.") )
						{
							case 1:
								if(countitem(7352)) callfunc "Func_JupHist",7352,1;
								else if(countitem(7353)) callfunc "Func_JupHist",7353,2;
								else if(countitem(7354)) callfunc "Func_JupHist",7354,4;
								else if(countitem(7355)) callfunc "Func_JupHist",7352,8;

		
							case 2:
								mes "[Fayruz]";
								mes "Mm? Are you serious?";
								mes "This object is very valuable";
								mes "to a researcher like me, but";
								mes "I have no idea what use it";
								mes "would be for an adventurer.";
								mes "Well, you have your reasons...";
								close;
						}
					}
					mes "[Fayruz]";
					mes "Oh, really?!";
					mes "That's great news!";
					mes "W-what did you find?";
					next;
					mes "^3355FFIn her excitement,";
					mes "Fayruz begins to";
					mes "rummage through your";
					mes "things before you get";
					mes "the chance to answer her.^000000";
					next;
					mes "[Fayruz]";
					mes "Oh. There isn't anything";
					mes "here that would help in my";
					mes "research, but thank you anyway.";
					mes "If you find anything else while";
					mes "you're in Juperos, please come back and show it to me, alright?";
					close;
		
				case 3:
					mes "[Fayruz]";
					mes "Ah, I see. Well, while";
					mes "you're here, why don't you";
					mes "read something? There are";
					mes "many books that cover some";
					mes "interesting topics, like the";
					mes "Schwaltzvalt economy...";
					next;
					mes "[Fayruz]";
					mes "Oh, in any case, please";
					mes "don't forget the favor I asked";
					mes "of you. If you find anything";
					mes "in Juperos that's historically";
					mes "significant, I'd appreciate it";
					mes "if you bring it right away.";
					close;
				
			}

		case 5:
			mes "[Fayruz]";
			mes "Oh, "+strcharinfo(0)+"!";
			mes "Have you come back with";
			mes "something from Juperos?";
			mes "I've been hoping you'd come";
			mes "back with something that'd";
			mes "help me in my research!";
			next;
			switch( select( "Take a look at this.","Oh, I'm sorry...") )
			{
				case 1:	
					switch(jupe_hist)
					{
						case 1:
							callfunc "Func_JupHist",7353,7354,7355,7352;

						case 2:
							callfunc "Func_JupHist",7352,7354,7355,7353;

						case 4:
							callfunc "Func_JupHist",7352,7353,7355,7354;

						case 8:
							callfunc "Func_JupHist",7352,7353,7354,7355;
					}

				case 2:
					mes "[Fayruz]";
				mes "Ah, I see. Well, while";
				mes "you're here, why don't you";
				mes "read something? There are";
				mes "many books that cover some";
				mes "interesting topics, like...";
				mes "like... Self-Honesty (?).";
				next;
				mes "[Fayruz]";
				mes "Oh, in any case, please";
				mes "don't forget the favor I asked";
				mes "of you. If you find anything";
				mes "in Juperos that's historically";
				mes "significant, I'd appreciate it";
				mes "if you bring it right away.";
				close;
			}

		case 6:
			mes "[Fayruz]";
			mes "Oh, "+strcharinfo(0)+"!";
			mes "The Transparent Plate";
			mes "that you brought for me";
			mes "last time is really helping me";
			mes "in my research. If you get the";
			mes "chance, please bring me more!";
			set yuno_hist,7;
			next;
			mes "[Fayruz]";
			mes "This new data is adding";
			mes "a lot more credibility to my";
			mes "thesis. Oh, I'll be with you";
			mes "in a moment, let me finish";
			mes "translating this one last";
			mes "passage really quickly...";
			close;

		case 7:
			mes "[Fayruz]";
			mes "Hello, "+strcharinfo(0)+"~";
			mes "Oh, were you able to look";
			mes "in Juperos for anything that";
			mes "might help me in my research?";
			next;
			switch( select( "Yeah, take a look at this.","No, I'm sorry...") )
			{
				case 1:
					switch(jupe_hist)
					{
						case 3:
							callfunc "Func_JupHist",7354,7355,7352,7353;

						case 5:
							callfunc "Func_JupHist",7353,7355,7352,7354;

						case 6:
							callfunc "Func_JupHist",7352,7355,7353,7354;

						case 9:
							callfunc "Func_JupHist",7353,7354,7352,7355;

						case 10:
							callfunc "Func_JupHist",7352,7354,7353,7355;

						case 12:
							callfunc "Func_JupHist",7352,7353,7354,7355;
					}

				case 2:
					mes "[Fayruz]";
					mes "Oh, that's fine.";
					mes "Besides, I don't really";
					mes "have a deadline to complete";
					mes "this research project. Still,";
					mes "I just want you to know that";
					mes "I really appreciate your help.";
					close;
			}

		case 8:
			mes "[Fayruz]";
			mes ""+strcharinfo(0)+"...";
			mes "I'm having great difficulty in";
			mes "translating that Transparent";
			mes "Plate you brought for me that";
			mes "last time. I'm so frustrated...";
			next;
			mes "[Fayruz]";
			mes "Wait a minute...";
			mes "This here means...";
			mes "Alright. Okay. Yes.";
			mes "Yes! Of course, how";
			mes "could I not see it before!";
			set yuno_hist,9;
			next;
			mes "[Fayruz]";
			mes "I'll be with you";
			mes "in just a second!";
			mes "I think I just made";
			mes "a real through...!";
			next;

		case 9:
			mes "[Fayruz]";
			mes "Ah, I've been";
			mes "expecting you, "+strcharinfo(0)+".";
			mes "So did you have been to Juperos again? I'm really hoping that you";
			mes "were able to find something new that would help in my research...";
			next;
			switch( select("Actually, I did find this...","I'm sorry, I haven't...") )
			{
				case 1:
					switch(jupe_hist)
					{
						case 7:
							callfunc "Func_JupHist",7355,7352,7353,7354;

						case 11:
							callfunc "Func_JupHist",7354,7352,7353,7355;

						case 13:
							callfunc "Func_JupHist",7353,7352,7354,7355;

						case 14:
							callfunc "Func_JupHist",7352,7353,7354,7355;
					}

				case 2:
					mes "[Fayruz]";
					mes "Ah, I see. Well, while";
					mes "you're here, why don't you";
					mes "read something? There are";
					mes "many books that cover some";
					mes "interesting topics, like";
					mes "modern adventure history.";
					next;
					mes "[Fayruz]";
					mes "Oh, in any case, please";
					mes "don't forget the favor I asked";
					mes "of you. If you find anything";
					mes "in Juperos that's historically";
					mes "significant, I'd appreciate it";
					mes "if you bring it right away.";
					close;
			}

		case 10:
			mes "[Fayruz]";
			mes "Oh hello, "+strcharinfo(0)+"...";
			mes "So what exactly brings you";
			mes "to the Juno Library this time?";
			next;
			switch( select("I found another Transparent Plate.","Just visiting, really.") )
			{
				case 1:
					if((countitem(7352)) || (countitem(7353)) || (countitem(7354)) || (countitem(7355)))
					{
						mes "[Fayruz]";
						mes "Hmm, well, we've made as";
						mes "much headway as we can";
						mes "with the Transparent Plates";
						mes "you've already given me, but";
						mes "it can't hurt to have too much";
						mes "evidence to back my theories.";
						next;
						mes "[Fayruz]";
						mes "I really appreciate";
						mes "your continuing efforts";
						mes "to help me. Please, would";
						mes "you take this as my way";
						mes "saying ''Thanks?'' You've been";
						mes "great, "+strcharinfo(0)+"...";
						if(countitem(7352)) delitem 7352,1;
						else if(countitem(7353)) delitem 7353,1;
						else if(countitem(7354)) delitem 7354,1;
						else delitem 7355,1;
						getitem 644,1;
						close;
					}
					mes "[Fayruz]";
					mes "Mmm...?";
					mes "It doesn't look like";
					mes "you brought another";
					mes "Transparent Plate.";
					mes "Are you sure that you";
					mes "didn't misplace it?";
					close;

				case 2:
					mes "[Fayruz]";
					mes "Ah, I see. Well,";
					mes "thanks to your help,";
					mes "I've made a great deal";
					mes "of progress on my thesis.";
					mes "I really appreciate what you";
					mes "have done for me, adventurer.";
					close;
			}
	}


}

function	script	Func_JupHist	{

	switch(yuno_hist)
	{
		case 4:
			mes "[Fayruz]";
			mes "Thank you so much,";
			mes "you don't know what";
			mes "this means to me! Okay,";
			mes "please relax and take a";
			mes "seat. Close your eyes while";
			mes "I tell you this ancient story.";
			next;
			mes "^3355FFFayruz begins to";
			mes "relate an ancient tale";
			mes "about Juperos that seems";
			mes "typical for a classic story, but her way of storytelling subtly";
			mes "draws you into a vicarious, yet extremely vivid experience.";
			next;
			mes "^3355FFYou feel the protagonist's";
			mes "glories and tragedies as if";
			mes "you were actually there with";
			mes "the hero on his journeys. The";
			mes "tale eventually comes to an end";
			mes "and you awaken from the trance,";
			mes "gently brought back to reality.^000000";
			delitem getarg(0),1;
			set yuno_hist,5;
			set jupe_hist,getarg(1);
			getexp 10000,0;
			next;
			mes "[Fayruz]";
			mes "Everyone can relate";
			mes "to these old, classic";
			mes "stories. I hope this tale had";
			mes "as meaning for you as it did";
			mes "for me when I first heard it.";
			next;
			mes "[Fayruz]";
			mes "If you can find me";
			mes "another artifact from";
			mes "Juperos, I'll share another";
			mes "tale like that with you. Now";
			mes "how does that sound? Okay";
			mes "then, I'll see you, adventurer~";
			close;

		case 5:
			if((countitem(getarg(0))) || (countitem(getarg(1))) || (countitem(getarg(2))))
			{
				mes "[Fayruz]";
				mes "Oh, that's unexpected.";
				mes "This Transparent Plate";
				mes "seems to have been made";
				mes "in a different era than the";
				mes "one you gave me earlier.";
				mes "How intriguing...";
				next;
				mes "[Fayruz]";
				mes "*Sigh* I really wish";
				mes "that I could explore";
				mes "Juperos on my own, but";
				mes "I'm just not strong enough.";
				mes "In a way, I'm quite jealous of you. But it can't be helped...";
				next;
				mes "[Fayruz]";
				mes "You know, that reminds";
				mes "me of this great story of";
				mes "a tragic hero that I'd like to";
				mes "share with you. Let your";
				mes "mind wander as I relate this ageless, yet bittersweet tale...";
				next;
				mes "^3355FFFayruz tells you a story";
				mes "with a bright beginning, full";
				mes "of hope that fills you with the";
				mes "bliss of the heavens, but then";
				mes "suddenly plummets you into all the despair and torment of hell.^000000";
				next;
				mes "^3355FFThe story finally";
				mes "reaches its ending";
				mes "and you're surprised";
				mes "to find yourself sitting";
				mes "in the Juno Library.^000000";
				next;
				mes "[Fayruz]";
				mes "I know it's a very";
				mes "depressing story, but";
				mes "I hope you enjoyed it.";
				mes "I think you'd agree that";
				mes "it contains a truth about";
				mes "mankind that can't be ignored.";
				if(countitem(getarg(0)))
				{
					delitem getarg(0),1;
					if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
					else set jupe_hist,jupe_hist +2;
				}
				else if(countitem(getarg(1)))
				{
					delitem getarg(1),1;
					if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
					else set jupe_hist,jupe_hist +4;
				}
				else
				{
					delitem getarg(2),1;
					if(getarg(2) == 7354) set jupe_hist,jupe_hist +4;
					else set jupe_hist,jupe_hist +8;
				}
				set yuno_hist,6;
				getexp 10000,0;
				next;
				mes "[Fayruz]";
				mes "By now I'm sure you've";
				mes "figured that these classic";
				mes "tales are like condensed";
				mes "experiences, refined and";
				mes "immutable truths that we";
				mes "can see in our own reality.";
				next;
				mes "[Fayruz]";
				mes "If you find more of";
				mes "these Transparent";
				mes "Plates in Juperos, I'd be";
				mes "very happy to share another";
				mes "story with you, "+strcharinfo(0)+".";
				close;
			}
			else if(countitem(getarg(3)))
			{
				mes "[Fayruz]";
				mes "Oh, this one seems";
				mes "to have been created";
				mes "in a similar era as the";
				mes "one you gave me earlier.";
				mes "I'm not sure how much new";
				mes "information this may provide...";
				next;
				mes "[Fayruz]";
				mes "Still, I'm sure this will";
				mes "helpful in my research. I just";
				mes "won't be as making progress";
				mes "as quickly as I had projected.";
				mes "Please, I'd like you to take this as a token of my gratitude.";
				delitem getarg(3),1;
				getitem 644,1;
				next;
				mes "[Fayruz]";
				mes "Now if you'll excuse";
				mes "me, I need to go back";
				mes "to compiling my research...";
				mes "Thank you so much for";
				mes "your help, "+strcharinfo(0)+".";
				close;
			}
			else
			{
				mes "[Fayruz]";
				mes "Oh. There isn't anything";
				mes "here that would help in my";
				mes "research, but thank you anyway.";
				mes "If you find anything else while";
				mes "you're in Juperos, please come back and show it to me, alright?";
				close;
			}

		case 7:
			if((countitem(getarg(0))) || (countitem(getarg(1))))
			{
				mes "[Fayruz]";
				mes "Is this another";
				mes "Transparent Plate?";
				mes "Yes, it's quite different";
				mes "than the last one you";
				mes "brought over to me...";
				mes "This is so exciting!";
				next;
				mes "[Fayruz]";
				mes "Oh. You must be thinking";
				mes "that I'm a complete academia";
				mes "addict. Well, my life might be";
				mes "a little uneventful, but there";
				mes "are other things I think about!";
				mes "Like, well... It's weird but...";
				next;
				mes "[Fayruz]";
				mes "You see, there's this";
				mes "guy that I like. I'm not sure";
				mes "where he might be now, but";
				mes "his name is Nadim Amal. He's";
				mes "my friend's brother who I first";
				mes "met 10 years ago. ^333333*Sigh...*^000000";
				next;
				mes "[Fayruz]";
				mes "Just recently, I saw";
				mes "him with his sister, my";
				mes "friend from Morroc. It's";
				mes "weird to think that I'd have";
				mes "these feelings for him after";
				mes "all this time, isn't it? Oh...!";
				next;
				mes "[Fayruz]";
				mes "I really should repay";
				mes "you for this Transparent";
				mes "Plate. Why don't I tell you";
				mes "the scariest story that I know?";
				next;
				mes "^3355FFFayruz tells you a";
				mes "creepy horror story that";
				mes "makes you shiver with fear.";
				mes "You've heard other ghost";
				mes "stories, but you've never been";
				mes "so deeply immersed in one before.^000000";
				next;
				mes "It is only when the";
				mes "story ends and you return";
				mes "to your senses that you notice that you're soaked in cold sweat.^000000";
				next;
				mes "[Fayruz]";
				mes "It may be a natural";
				mes "response, but all people";
				mes "fear the unknown in one way";
				mes "or another. Scary stories are";
				mes "appealing because we actually";
				mes "like the strange and grotesque.";
				if(countitem(getarg(0)))
				{
					delitem getarg(0),1;
					if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
					else if(getarg(0) == 7353) set jupe_hist,jupe_hist +2;
					else set jupe_hist,jupe_hist +4;
				}
				else if(countitem(getarg(1)))
				{
					delitem getarg(1),1;
					if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
					else if(getarg(1) == 7354) set jupe_hist,jupe_hist +4;
					else set jupe_hist,jupe_hist +8;
				}
				set yuno_hist,8;
				getexp 10000,0;
				next;
				mes "[Fayruz]";
				mes "Well... That's just my";
				mes "opinion. Anyway, if you";
				mes "find anything else in Juperos";
				mes "that may help in my research,";
				mes "please come back and show it";
				mes "to me, alright? See you later~";
				close;
			}
			else if((countitem(getarg(2))) || (countitem(getarg(3))))
			{
				mes "[Fayruz]";
				mes "Oh, this one seems";
				mes "to have been created";
				mes "in a similar era as the";
				mes "one you gave me earlier.";
				mes "I'm not sure how much new";
				mes "information this may provide...";
				next;
				mes "[Fayruz]";
				mes "Still, I'm sure this will";
				mes "helpful in my research. I just";
				mes "won't be as making progress";
				mes "as quickly as I had projected.";
				mes "Please, I'd like you to take this as a token of my gratitude.";
				next;
				mes "[Fayruz]";
				mes "Now if you'll excuse";
				mes "me, I need to go back";
				mes "to compiling my research...";
				mes "Thank you so much for";
				mes "your help, "+strcharinfo(0)+".";
				if(countitem(getarg(2))) delitem getarg(2),1;
				else if(countitem(getarg(3))) delitem getarg(3),1;
				getitem 644,1;
				close;
			}
			else
			{
				mes "[Fayruz]";
				mes "Oh. There isn't anything";
				mes "here that would help in my";
				mes "research, but thank you anyway.";
				mes "If you find anything else while";
				mes "you're in Juperos, please come back and show it to me, alright?";
				close;
			}

		case 9:
			if(countitem(getarg(0)))
			{
				mes "[Fayruz]";
				mes "Oooh...! This one is";
				mes "much different than the";
				mes "other ones you gave me";
				mes "before. This should provide";
				mes "a wealth of brand new insights";
				mes "into the Juperos civilization!";
				next;
				mes "[Fayruz]";
				mes "All the Transparent";
				mes "Plates you've given me";
				mes "should contain more than";
				mes "enough data for me to fully";
				mes "complete my research thesis.";
				mes "Once again, thank you so much~";
				next;
				mes "[Fayruz]";
				mes "Still, that doesn't mean that";
				mes "I will stop collecting data for";
				mes "my research. Anyway, I have one last story to tell you, about";
				mes "a man of pure heart chosen by the gods to serve and protect mankind.";
				next;
				mes "[Fayruz]";
				mes "For this purpose he was given";
				mes "gaudy armor which contained";
				mes "amazing powers, as well as a";
				mes "book detailing the instructions";
				mes "for its use. However, he promptly";
				mes "lost these instructions...";
				next;
				mes "^3355FFThe story about the";
				mes "greatest Juperosian hero";
				mes "that Fayruz tells you is very";
				mes "humorous at first, but then it";
				mes "covers the entire spectrum";
				mes "of emotion and humanity...";
				next;
				mes "^3355FFThe story ends and you";
				mes "are left with a swelling";
				mes "feeling of indefatigable";
				mes "hope and inspiration...";
				mes "You can make it if you try!^000000";
				if(getarg(0) == 7352) set jupe_hist,jupe_hist+1;
				else if(getarg(0) == 7353) set jupe_hist,jupe_hist+2;
				else if(getarg(0) == 7354) set jupe_hist,jupe_hist+4;
				else set jupe_hist,jupe_hist+8;
				set yuno_hist,10;
				delitem getarg(0),1;
				getexp 10000,0;
				next;
				mes "[Fayruz]";
				mes "Well, that is the";
				mes "last and the best story";
				mes "that I have to share";
				mes "with you. Perhaps next";
				mes "time, I'll fill you in on my";
				mes "research progress~";
				close;
			}
			else if((countitem(getarg(1))) || (countitem(getarg(2))) || (countitem(getarg(3))))
			{
				mes "[Fayruz]";
				mes "Hmm...";
				mes "This one seems to be created in a similar time";
				mes "as the previous one.";
				next;
				mes "[Fayruz]";
				mes "Don't you worry.";
				mes "This will help my research of course,";
				mes "although I do not think this will";
				mes "help me in advancing my research";
				mes "with a great speed unlike this other one.";
				next;
				mes "[Fayruz]";
				mes "Please take this as a token of my gratitude.";
				next;
				mes "[Fayruz]";
				mes "Now, excuse me. I need to go back to my research.";
				if(countitem(getarg(1))) delitem getarg(1),1;
				else if(countitem(getarg(2))) delitem getarg(2),1;
				else delitem getarg(3),1;
				getitem 644,1;
				close;
			}
			else
			{
				mes "[Fayruz]";
				mes "Oh. There isn't anything";
				mes "here that would help in my";
				mes "research, but thank you anyway.";
				mes "If you find anything else while";
				mes "you're in Juperos, please come back and show it to me, alright?";
				close;
			}
	}
}

yuno_in04,186,125,4	script	Bundle of Files	111,{

	mes "^8B6914*Thesis: The Fall of Juperos*";
	mes "By Fayruz Khrhiyha";
	mes "Sage Castle Researcher^000000";
	next;
	switch( select("Table of Contents.","Leave it alone.") )
	{
		case 1:
			if(yuno_hist > 4)
			{
				mes "^8B6914 1. Preface";
				mes " 2. Juperos Background";
				mes " 3. Theory Behind Its Fall^000000";
				next;
				switch( select("Preface","Juperos Background","Theory Behind Its Fall","Leave it alone.") )
				{
					case 1:
						mes "^8B6914Scholars are certain";
						mes "that the Juperos civilization";
						mes "used to be located above the";
						mes "ground, but it is now buried";
						mes "beneath the El Mes Plateau.";
						mes "The reasons for the city's";
						if(yuno_hist < 9)
						{
							mes "ruin are still nebulous...^000000";
							next;
							mes "^8B6914There is much speculation";
							mes "about the reasons for Jupero's";
							mes "downfall, but any documentation";
							mes "from that time period has been";
							mes "difficult to find. As for now, any evidence we have regarding";
							mes "Juperos is inconclusive.^000000";
							next;
							mes "^8B6914In spite of this lack";
							mes "of empirical or concrete";
							mes "data on the civilization of";
							mes "Juperos, our modern world";
							mes "may be able to learn much";
							mes "from that ancient city's ruins.";
							mes "..................^000000";
							if(yuno_hist < 7)
							{
								next;
								mes "["+strcharinfo(0)+"]";
								mes "Hmmm...";
								mes "A whole chapter";
								mes "dedicated to saying,";
								mes "''We know absolutely";
								mes "nothing about something.''";
								mes "I should write a book~";
							}
							close;
						}
						mes "ruin are still in debate...^000000";
						next;
						mes "^8B6914However, new findings";
						mes "regarding the history";
						mes "of Juperos have allowed";
						mes "us to make a few conclusions.^000000";
						close;			
				
					case 2:
						if(yuno_hist < 9)
						{
							mes "^8B6914...";
							mes "......";
							mes "..........^000000";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "This is all just idle";
							mes "conjecture! This paper";
							mes "isn't developed enough";
							mes "yet to be a real thesis...";
							close;
						}
						else if(yuno_hist == 9)
						{
							mes "^8B6914Juperos was built over";
							mes "a thousand years ago in";
							mes "an era of peace just after";
							mes "a major war. Contrary to";
							mes "popular belief, there isn't any";
							mes "evidence proving that Juno may";
							mes "have descended from Juperos.^000000";
							next;
							mes "^8B6914In fact, there is a";
							mes "strong possibility that";
							mes "another war, between Juno";
							mes "and Juperos, resulted in Juno's";
							mes "independence from Juperos and";
							mes "the destruction of any existing";
							mes "documentation from that era.^000000";
							next;
							mes "["+strcharinfo(0)+"]";
							mes "Yes... Of course!";
							mes "It all makes sense now!";
							close;
						}
						mes "^8B6914Juperos was built over";
						mes "a thousand years ago in";
						mes "an era of peace just after";
						mes "a major war. There is now";
						mes "direct evidence linking Juno";
						mes "to Juperos proving that Juno";
						mes "was but a part of Juperos.^000000";
						next;
						mes "^8B6914Just like Juno, Juperos";
						mes "was a society that prided";
						mes "itself on its advancement";
						mes "in the sciences which played";
						mes "a permeating role in civilized";
						mes "life. Science was reponsible for Juperos's rise and downfall.";
						close;

					case 3:
						if(yuno_hist < 10)
						{
							mes "^8B6914...";
							mes "......";
							mes "..........^000000";
							next;				
							mes "["+strcharinfo(0)+"]";
							mes "Huh. This writer keeps";
							mes "talking about theories,";
							mes "but the more I read, the";
							mes "less clear I am on what";
							mes "the theory actually is.";
							mes "I don't think there is one...";
							emotion 4,1;
							close;
						}
						mes "^8B6914What is most unsettling";
						mes "is recent evidence, including";
						mes "a first hand written account,";
						mes "regarding the role of one of";
						mes "Jupero's foremost scientists";
						mes "in that city's rise and fall.";
						next;
						mes "^8B6914If these writings are";
						mes "authentic, then what actually";
						mes "happened was that a scientific";
						mes "revolution occurred as a direct";
						mes "result of one scientist's effort to manipulate the energies of the";
						mes "artifact known as Ymir's heart.";
						next;
						mes "^8B6914This one man and Ymir's";
						mes "Heart are credited with";
						mes "the success and prosperity";
						mes "of the Jupero's civilization.";
						mes "However, there are various accounts prior to Jupero's fall";
						mes "detailing his work with chimera...^000000";
						next;
						mes "^8B6914This scientist, supposedly";
						mes "in his passion to benefit his";
						mes "people by finding a scientific";
						mes "method for immortality by using";
						mes "chimera for testing, was driven";
						mes "insane. He experimented on";
						mes "himself with disatrous results.^000000";
						next;
						mes "^8B6914There was an error in the";
						mes "energy calibration of Ymir's";
						mes "Heart and the scientist was";
						mes "transformed into the monster";
						mes "we now know as Chimera. He";
						mes "and his test subjects were set";
						mes "loose into the city of Juperos.^000000";
						next;
						mes "^8B6914These immortal Chimeras";
						mes "razed the entire city, killing";
						mes "countless people. Apparently,";
						mes "a team of scientists were able";
						mes "to salvage a fragment of Ymir's";
						mes "Heart, and use it to lauch part";
						mes "of Juperos into the sky.^000000";
						next;
						mes "^8B6914That section of Juperos";
						mes "eventually developed into";
						mes "the city of Juno. Since the";
						mes "scientists who launched Juno into the sky all immediately died";
						mes "afterwards from an unknown cause, they left no documentation.^000000";
						next;
						mes "^8B6914The Chimera, and the";
						mes "laboratory in which it";
						mes "was created, is rumored to";
						mes "remain beneath the ruins of";
						mes "the once great city of Juperos.^000000";
						close;

					case 4:
						mes "["+strcharinfo(0)+"]";
						mes "Ugh... My head hurts";
						mes "too much from reading";
						mes "a book for smarty people.";
						mes "I know! I'll play videogames!";
						close;
				}
			}
			switch( select( "Preface","Close the file.") )
			{
				case 1:
					mes "^8B6914Scholars are certain";
					mes "that the Juperos civilization";
					mes "used to be located above the";
					mes "ground, but it is now buried";
					mes "beneath the El Mes Plateau.";
					mes "The reasons for the city's";
					mes "ruin are still nebulous...^000000";
					next;
					mes "^8B6914There is much speculation";
					mes "about the reasons for Jupero's";
					mes "downfall, but any documentation";
					mes "from that time period has been";
					mes "difficult to find. As for now, any evidence we have regarding";
					mes "Juperos is inconclusive.^000000";
					next;
					mes "^8B6914In spite of this lack";
					mes "of empirical or concrete";
					mes "data on the civilization of";
					mes "Juperos, our modern world";
					mes "may be able to learn much";
					mes "from that ancient city's ruins.";
					mes "..................^000000";
					if(!yuno_hist) set yuno_hist,1;
					next;
					mes "["+strcharinfo(0)+"]";
					mes "This...";
					mes "This is supposed to";
					mes "be a research thesis?";
					mes "There's barely any";
					mes "research in it...";
					close;
				
				case 2:
					mes "["+strcharinfo(0)+"]";
					mes "Hmm...";
					mes "This isn't heavy";
					mes "enough to be a real";
					mes "academic work. It must";
					mes "not even be finished yet.";
					close;
			}
		case 2:
			if(yuno_hist < 5)
			{		
				mes "["+strcharinfo(0)+"]";
				mes "Nah...";
				mes "I'm tired of reading.";
				mes "Ironically enough.";
				close;
			}
			else if(yuno_hist < 7)
			{
				mes "["+strcharinfo(0)+"]";
				mes "I don't feel like";
				mes "reading this. Not";
				mes "enough pictures...";
				close;
			}
			else if(yuno_hist < 9)
			{
				mes "["+strcharinfo(0)+"]";
				mes "It looks very sophisticated...";
				close;
			}
			else if(yuno_hist < 10)
			{
				mes "["+strcharinfo(0)+"]";
				mes "I know this book...";
				mes "But I don't feel like";
				mes "reading it right now.";
				close;
			}
			else
			{
				mes "["+strcharinfo(0)+"]";
				mes "This thesis is";
				mes "looking pretty good~";
				mes "Of course, I did have";
				mes "a hand in making it...";
				close;
			}
	}
}

yuno_in04,188,118,4	script	Book#juperos	111,{

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

// Bronze Statue - juperos_01 99 112

juperos_01,99,112,4	script	Bronze Statue#1	844,{

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

yuno_in04,169,109,1	script	Ambitious Hollgrehenn	111,{

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

yuno_in04,174,111,1	script	Penniless Hollgrehenn	111,{

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

yuno_in04,102,106,1	script	Popular Feasts	111,{

	mes "^8B6914*Popular Feasts*";
	mes "By Cabbage Pickle Community";
	mes " ";
	mes " ";
	mes " ";
	mes "Publisher:";
	mes "Muha Books, Co.^000000";
	next;
	switch( select( " 1. Fried Yoyo Tails"," 14. Poring Salad"," 252. Beak Soup" ) )
	{
		case 1:
			mes "^8B6914...";
			mes "If possible, try";
			mes "to use tails cut";
			mes "from live Yoyos.";
			mes "Now, as for skinning...^000000";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Um...";
			mes "Barf?";
			close;

		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "Hey, this page is gone!";
			mes "I guess Poring Salad is";
			mes "the most popular feast";
			mes "in this entire book.";
			close;

		case 3:
			mes "^8B6914...";
			mes "Fry the cut beaks";
			mes "using herbal oil until";
			mes "crisp. Then, pour the";
			mes "feathers into a blender...^000000";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hmm...";
			mes "Sounds a little";
			mes "too gourmet for my";
			mes "taste. And by ''gourmet,''";
			mes "I mean, ''totally gross.''";
			close;
	}
}

yuno_in04,111,108,1	script	Hamerun, Rat Hunter	111,{

	mes "["+strcharinfo(0)+"]";
	mes "I can't...";
	mes "reach it...!";
	close;
}

yuno_in04,167,127,1	script	Red Book	111,{

	mes "^3355FFYou find a book";
	mes "with red binding.^000000";
	next;
	switch( select( "Read.","Leave it alone." ) )
	{
		case 1:
			mes "^8B6914...^000000";
			next;
			mes "^8B6914...";
			mes "......^000000";
			next;
			mes "^8B6914...";
			mes "......";
			mes ".........^000000";
			next;
			mes "^8B6914...";
			mes "......";
			mes ".........";
			mes "............^000000";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "This is...";
			mes "A compilation of";
			mes "Shakespeare in ";
			mes "coloring book format?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Wait...";
			mes "Why would fans of";
			mes "Shakespeare even";
			mes "want a coloring book?";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hmm... Well...";
			mes "I suppose little kids who";
			mes "read Shakespeare would";
			mes "appreciate something like that.";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "Hold on...";
			mes "Do little kids who";
			mes "are able to read the";
			mes "works of Shakespeare";
			mes "even exist? I hope not...";
			close;

		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "What a strange";
			mes "and mysterious book.";
			mes "I'll never know what's";
			mes "inside unless I read it!";
			mes "Come on! Doesn't the red";
			mes "binding mean something?";
			close;
	}
}

yuno_in04,121,109,1	script	Scroll	111,{

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

		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "This scroll is far too";
			mes "primitive. There's been";
			mes "all sorts of technological";
			mes "reading advances that I can't";
			mes "live without... Like pages.";
			close;
	}
}

yuno_in04,118,116,4	script	Paper	111,{

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

juperos_01,123,92,4	script	Stone Statue	844,{
	
	if(yuno_hist)
	{
		mes "^3355FFIt's a stone statue";
		mes "that looks exactly like";
		mes "the one in the Juno Library.";
		mes "However, it has sculptures";
		mes "of books instead of real ones.^000000";
		next;
		mes "^3355FFIt's possible that the";
		mes "statue in the Juno Library";
		mes "was made after this one.";
		mes "But who can be sure?^000000";
		close;
	}
	mes "^3355FFIt's an old";
	mes "statue sculpted";
	mes "out of stone.^000000";
	close;
}

juperos_01,99,71,4	script	Bronze Statue#2	844,{

	mes "^3355FFIt's an elaborate";
	mes "bronze statue that";
	mes "is twice the height of";
	mes "a normal human being.^000000";
	close;
}

juperos_01,79,92,4	script	Sculpture	844,{

	mes "^3355FFIt's a sculpture that";
	mes "looks familiar to you.^000000";
	close;
}

juperos_01,215,127,4	script	Machine Statue	844,{

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

//============================================================
// Jupers Core access Story Event
//============================================================
//============================================================
// 1rd Floor -> 2nd Floor
//============================================================
juperos_01,100,91,0	script	jupe_goto#1	-1,2,2,{
	end;

OnTouch:
	initnpctimer "jupe_goto#1",1;
	mes "^777777["+ strcharinfo(0) +"]^000000";
	mes "This light...";
	mes "It feels like...";
	mes "Its warmth is...";
	mes "Wrapping all over me...";
	next;
	switch(select("Ah, it's so nice...:No! This is wrong!")) {
	case 1:
		mes "^777777["+ strcharinfo(0) +"]^000000";
		mes "Ahhhh...";
		mes "It feels like";
		mes "I'm floating...";
		specialeffect2 EF_LIGHTSPHERE;
		close2;
		stopnpctimer;
		warp "juperos_02",128,278;
		break;
	case 2:
		mes "^777777["+ strcharinfo(0) +"]^000000";
		mes "N-No! This is";
		mes "wrong! Something";
		mes "weird's happening!";
		mes "I gotta get away!";
		close2;
		stopnpctimer;
		warp "juperos_01",96,91;
		break;
	}
	end;

OnTimer10000:
	stopnpctimer;
	warp "juperos_02",128,278;
	donpcevent "jupe_goto#2::OnEnable";
	end;
}

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

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

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

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

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

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

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

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

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

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs == 2)
		mapannounce "juperos_02","Who are you to come here?",bc_map,"0xFF0000";
	else if (.MyMobs == 1)
		mapannounce "juperos_02","Have you come seeking Juperos?! It no longer exists...",bc_map,"0xFF0000";
	else if (.MyMobs == 0) {
		mapannounce "juperos_02","Have you come to see me? Fine! Find me first!",bc_map,"0xFF0000";
		specialeffect2 563;
		soundeffectall "earth_quake.wav",0;
		disablenpc "3F Gate Switch#jupe";
		donpcevent "Restricted Area#jupe::OnEnable";
	}
	end;
}


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

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

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

OnTimer7000:
	mapannounce "juperos_02","Attention, visitors.",bc_map,"0xE559A2";
	end;

OnTimer9000:
	mapannounce "juperos_02","You are allowed to enter the next zone for a short period of time. Please use the portal in the center of the map.",bc_map,"0xE559A2";
	end;

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

OnTimer556000:
	mapannounce "juperos_02","Attention, visitors. The gate to the next zone will close shortly.",bc_map,"0xE559A2";
	end;

OnTimer561000:
	mapannounce "juperos_02","1 minute remaining until Gate Closure. ",bc_map,"0xE559A2";
	end;

OnTimer598000:
	specialeffect 561;
	end;

OnTimer600000:
	mapannounce "juperos_02","The gate is being closed...",bc_map,"0xE559A2";
	end;

OnTimer603000:
	mapannounce "juperos_02"," Switches will reactivate shortly.",bc_map,"0xE559A2";
	end;

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

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

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

//============================================================
// Security Checkpoint 1-1
//============================================================
jupe_area1,88,224,0	script	#hole#1-1	844,{
	cutin "1",2;
	if ($@JupreArea1InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "1",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7356) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "1-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "1-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#1-1::OnEnable";
					enablenpc "Red Alarm#1-1";
					disablenpc "#hole#1-1";
					close2;
					cutin "1-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "1",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "1",255;
			end;
		}
		close;
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "1",255;
		end;
	}

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area1","Those of you who have come here...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","I do not intend to stop you.",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	end;

OnTimer5000:
	mapannounce "jupe_area1","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
	donpcevent "Monster1#1-1::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
	end;

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

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

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

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

OnTimer300000:
	mapannounce "jupe_area1","Do you realize this is a hallucination?",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area1","How about now?",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	end;

OnTimer4000:
	mapannounce "jupe_area1","Let me see...",bc_map,"0xFF0000";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Just how strong you are!",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	soundeffectall "jupe_warning.wav",0,"jupe_area1";
	set .MyMobs,8;
	monster "jupe_area1",30,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",31,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",32,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",33,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",34,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",35,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",36,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
	monster "jupe_area1",37,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

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

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

//============================================================
// Security Checkpoint 1-2
//============================================================
jupe_area1,25,238,0	script	#hole#1-2	844,{
	cutin "2",2;
	if ($@JupreArea1InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "2",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7357) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "2-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "2-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#1-2::OnEnable";
					enablenpc "Red Alarm#1-2";
					disablenpc "#hole#1-2";
					close2;
					cutin "2-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "2",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "2",255;
			end;
		}
		close;
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "2",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer3000:
	mapannounce "jupe_area1","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","Do you want to know who I am?",bc_map,"0xFF0000";
	donpcevent "Monster1#1-2::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
	end;

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

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

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

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

OnTimer300000:
	mapannounce "jupe_area1","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area1","I was the head of this underground laboratory.",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area1","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area1","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
	set .MyMobs,13;
	monster "jupe_area1",30,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",31,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",32,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",33,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",34,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",35,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",36,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",37,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",30,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",31,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",32,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",33,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
	monster "jupe_area1",34,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
	end;

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

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

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

//============================================================
// Security Checkpoint 1-3
//============================================================
jupe_area1,36,146,0	script	#hole#1-3	844,{
	cutin "3",2;
	if ($@JupreArea1InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "3",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7358) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "3-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "3-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#1-3::OnEnable";
					enablenpc "Red Alarm#1-3";
					disablenpc "#hole#1-3";
					close2;
					cutin "3-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "3",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "3",255;
			end;
		}
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "3",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area1","These security systems...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","They're not really for protection.",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
	donpcevent "Monster1#1-3::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area1","Why have you come?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_area1","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
	set .MyMobs,15;
	monster "jupe_area1",42,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",43,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",44,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",45,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",46,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",47,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",48,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",49,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",42,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",43,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",44,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",45,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",46,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",47,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
	monster "jupe_area1",48,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
	set $@JupreArea1InUse,0;
	end;

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

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
		disablenpc "Monster2#1-3";
		enablenpc "#hole#1-3";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Security Checkpoint 1-4
//============================================================
jupe_area1,50,49,0	script	#hole#1-4	844,{
	cutin "4",2;
	if ($@JupreArea1InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "4",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7359) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "4-1",2;
				next;
				if ($@JupreArea1InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "4-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#1-4::OnEnable";
					donpcevent "Red Alarm#1-4::OnEnable";
					disablenpc "#hole#1-4";
					close2;
					cutin "4-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "4",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "4",255;
			end;
		}
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "4",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area1","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area1","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area1","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
	donpcevent "Monster1#1-4::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area1","Is somewhere down here, wandering...",bc_map,"0xFF0000";
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area1","I can never rest in peace...",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area1","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area1","I will be waiting for you!",bc_map,"0xFF0000";
	set .MyMobs,10;
	monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",108,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",111,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",112,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",115,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",104,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",108,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",111,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",112,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
	monster "jupe_area1",115,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
	end;

OnTimer300000:
	set $@JupreArea1InUse,0;
	mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
	end;

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

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
		disablenpc "Monster2#1-4";
		enablenpc "#hole#1-4";
		set $@JupreArea1InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Move to Elevator
//============================================================
jupe_area1,112,162,0	script	Lever#ufe	844,{
	mes "^3355FFIt's a lever";
	mes "whose function";
	mes "is not known to you.^000000";
	next;
	switch(select("Pull.:Cancel.")) {
	case 1:
		if($@JupreArea1InUse == 1) close;
		initnpctimer;
		donpcevent "LeverWarp#ufe::OnEnable";
		disablenpc "Lever#ufe";
		close;
	case 2:
		mes "[" + strcharinfo(0) + "]";
		mes "Pull this lever?";
		mes "I don't even know";
		mes "what will happen...";
		close;
	}
	close;

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

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

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

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

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

//============================================================
// Security Checkpoint 2-1
//============================================================
jupe_area2,74,224,0	script	#hole#2-1	844,{
	cutin "1",2;
	if ($@JupreArea2InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "1",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7356) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "1-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "1-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#2-1::OnEnable";
					enablenpc "Red Alarm#2-1";
					disablenpc "#hole#2-1";
					close2;
					cutin "1-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "1",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "1",255;
			end;
		}
		close;
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "1",255;
		end;
	}

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area2","Those of you who have come here...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","I do not intend to stop you.",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	end;

OnTimer5000:
	mapannounce "jupe_area2","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
	donpcevent "Monster1#2-1::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
	end;

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

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

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

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

OnTimer300000:
	mapannounce "jupe_area2","Do you realize this is a hallucination?",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area2","How about now?",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	end;

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

OnTimer7000:
	mapannounce "jupe_area2","Just how strong you are!",bc_map,"0xFF0000";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	soundeffectall "jupe_warning.wav",0,"jupe_area2";
	set .MyMobs,8;
	monster "jupe_area2",126,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",127,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",128,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",129,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",130,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",131,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",132,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
	monster "jupe_area2",133,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

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

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

//============================================================
// Security Checkpoint 2-2
//============================================================
jupe_area2,138,238,0	script	#hole#2-2	844,{
	cutin "2",2;
	if ($@JupreArea2InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "2",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7357) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "2-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "2-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#2-2::OnEnable";
					enablenpc "Red Alarm#2-2";
					disablenpc "#hole#2-2";
					close2;
					cutin "2-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "2",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "2",255;
			end;
		}
		close;
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "2",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer3000:
	mapannounce "jupe_area2","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","Do you want to know who I am?",bc_map,"0xFF0000";
	donpcevent "Monster1#2-2::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
	end;

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

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

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

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

OnTimer300000:
	mapannounce "jupe_area2","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area2","I was the head of this underground laboratory.",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area2","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area2","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
	set .MyMobs,13;
	monster "jupe_area2",126,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",127,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",128,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",129,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",130,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",131,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",132,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",133,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",133,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",127,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",129,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",130,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
	monster "jupe_area2",132,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
	end;

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

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

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

//============================================================
// Security Checkpoint 2-3
//============================================================
jupe_area2,127,146,0	script	#hole#2-3	844,{
	cutin "3",2;
	if ($@JupreArea2InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "3",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7358) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "3-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "3-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#2-3::OnEnable";
					enablenpc "Red Alarm#2-3";
					disablenpc "#hole#2-3";
					close2;
					cutin "3-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "3",255;
				end;
			}
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "3",255;
			end;
		}
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "3",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area2","These security systems...",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","They're not really for protection.",bc_map,"0xFF0000";
	disablenpc "#hole#2-3";
	end;

OnTimer5000:
	mapannounce "jupe_area2","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
	donpcevent "Monster1#2-3::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area2","Why have you come?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_area2","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
	set .MyMobs,16;
	monster "jupe_area2",114,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",115,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",116,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",117,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",118,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",119,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",120,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",121,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",114,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",115,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",116,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",117,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",118,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",119,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",120,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
	monster "jupe_area2",121,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
	end;

OnTimer300000:
	mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
	set $@JupreArea2InUse,0;
	end;

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

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
		disablenpc "Monster2#2-3";
		enablenpc "#hole#2-3";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}
	
//============================================================
// Security Checkpoint 2-4
//============================================================
jupe_area2,113,49,0	script	#hole#2-4	844,{
	cutin "4",2;
	if ($@JupreArea2InUse == 1) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "4",255;
		end;
	}
	else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		next;
		switch(select("Insert a Crest Piece.:Cancel.")) {
		case 1:
			if (countitem(7359) > 0) {
				mes "^3355FFYou take out your";
				mes "Crest Piece and place";
				mes "it into the slot where it";
				mes "happens to fit perfectly.^000000";
				specialeffect EF_TOPRANK;
				cutin "4-1",2;
				next;
				if ($@JupreArea2InUse == 1) {
					mes "^3355FFNothing happens.";
					mes "Perhaps an alarm or";
					mes "some other safety measure";
					mes "was activated to keep the";
					mes "Crest Piece from activating";
					mes "this transportation device.";
					mes "You retrieve the Crest Piece.^000000";
					close2;
					cutin "4-1",255;
					end;
				}
				else {
					mes "^3355FFThe slot rotates and";
					mes "the Crest Piece moves as";
					mes "if it were turning a key. You";
					mes "feel a weak tremor as a Warp";
					mes "Portal to the other side is";
					mes "activated. You then retrieve";
					mes "your Crest Piece.^000000";
					initnpctimer;
					donpcevent "Warp#2-4::OnEnable";
					donpcevent "Red Alarm#2-4::OnEnable";
					disablenpc "#hole#2-4";
					close2;
					cutin "4-1",255;
					end;
				}
			}
			else {
				mes "^3355FFUnfortunately, you're";
				mes "not carrying anything";
				mes "that might be able to fit";
				mes "into the slot and activate";
				mes "this mechanical device.^000000";
				close2;
				cutin "4",255;
				end;
			}
			break;
		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "Hmmm...";
			mes "Do I have anything";
			mes "that might make this";
			mes "weird machine work?";
			close2;
			cutin "4",255;
			end;
		}
	}
	else {
		mes "^3355FFThis seems like";
		mes "some kind of device";
		mes "that will allow you to";
		mes "pass to the other side.";
		mes "There's a slot where you";
		mes "probably need to insert";
		mes "some kind of object...^000000";
		close2;
		cutin "4",255;
		end;
	}
	end;

Onstop_timer:
	stopnpctimer;
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer1000:
	mapannounce "jupe_area2","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
	end;

OnTimer3000:
	mapannounce "jupe_area2","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_area2","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
	donpcevent "Monster1#2-4::OnEnable";
	end;

OnTimer7000:
	mapannounce "jupe_area2","Is somewhere down here, wandering...",bc_map,"0xFF0000";
	end;

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

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

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

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

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

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_area2","I can never rest in peace...",bc_map,"0xFF0000";
	end;

OnTimer4000:
	mapannounce "jupe_area2","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
	end;

OnTimer6000:
	mapannounce "jupe_area2","I will be waiting for you!",bc_map,"0xFF0000";
	set .MyMobs,12;
	monster "jupe_area2",63,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",61,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",59,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",57,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",55,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",53,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",53,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",55,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",57,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",59,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",61,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
	monster "jupe_area2",63,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
	end;

OnTimer300000:
	set $@JupreArea2InUse,0;
	mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
	end;

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

OnMyMobDead:
	set .MyMobs,.MyMobs-1;
	if (.MyMobs < 1) {
		mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
		disablenpc "Monster2#2-4";
		enablenpc "#hole#2-4";
		set $@JupreArea2InUse,0;
		stopnpctimer;
	}
	end;
}

//============================================================
// Move to Elevator
//============================================================
jupe_area2,51,162,0	script	Lever#ufe2	844,{
	mes "^3355FFIt's a lever";
	mes "whose function";
	mes "is not known to you.^000000";
	next;
	switch(select("Pull.:Cancel.")) {
	case 1:
		if($@JupreArea2InUse == 1) close;
		initnpctimer;
		donpcevent "LeverWarp#ufe2::OnEnable";
		disablenpc "Lever#ufe2";
		close;
	case 2:
		mes "[" + strcharinfo(0) + "]";
		mes "Pull this lever?";
		mes "I don't even know";
		mes "what will happen...";
		close;
	}
	close;

OnTimer3000:
	enablenpc "Lever#ufe2";
	stopnpctimer;
	end;
}

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

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

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

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

//============================================================
// Elevator Reception Room
//============================================================
jupe_ele_r,51,98,0	script	Switch#ufe	844,{
	if ($@JupeElevatorInUse == 1) {
		mes "^3355FFIt's some sort of";
		mes "lever that looks like";
		mes "it was already pulled";
		mes "by someone else.^000000";
		close;
	}
	else {
		cutin "5",2;
		mes "^3355FFIt's some sort of";
		mes "lever that's located";
		mes "next to four empty slots.^000000";
		next;
		switch(select("Pull the lever.:Leave it alone.")) {
		case 1:
			mes "^3355FF*Snap Snap*^000000";
			next;
			mes "^3355FFYou pull the lever,";
			mes "but nothing happened.";
			mes "You probably need to";
			mes "insert the correct objects";
			mes "into the slots in order";
			mes "for the lever to operate.^000000";
			next;
			if (countitem(7356) > 0 && countitem(7359) > 0 && countitem(7357) > 0 && countitem(7358) > 0) {
				switch(select("Insert all of your Crest Pieces.")) {
				case 1:
					mes "^3300FF*Snap!*^000000";
					mes "^3300FFStrangely enough,";
					mes "all four of the Crest";
					mes "Pieces fit perfectly into";
					mes "the slots and begin to";
					mes "emit a strange light.^000000";
					cutin "5-1",2;
					specialeffect EF_SPHERE;
					delitem 7356,1; //Piece_Of_Crest1
					delitem 7359,1; //Piece_Of_Crest4
					delitem 7357,1; //Piece_Of_Crest2
					delitem 7358,1; //Piece_Of_Crest3
					next;
					switch(select("Pull out the Crest Pieces.:Pull the lever.")) {
					case 1:
						cutin "5",2;
						mes "^3355FFYou pull out all";
						mes "the Crest Pieces";
						mes "that you inserted";
						mes "into the slots.^000000";
						getitem 7356,1; //Piece_Of_Crest1
						getitem 7359,1; //Piece_Of_Crest4
						getitem 7357,1; //Piece_Of_Crest2
						getitem 7358,1; //Piece_Of_Crest3
						close2;
						cutin "5",255;
						end;
					case 2:
						if ($@JupeElevatorInUse == 1) {
							mes "^3355FFIt's strange,";
							mes "but this lever has";
							mes "already been pulled.^000000";
							close2;
							cutin "5",255;
							end;
						}
						else {
							mes "^3355FFOnce you pull the lever,";
							mes "the Crest Piece slots are";
							mes "suddenly covered, making";
							mes "them irretrievable, and the";
							mes "ground begins to shake";
							mes "violently. This isn't normal!^000000";
							next;
							set $@JupeElevatorInUse,1;
							disablenpc "Switch#ufe";
							enablenpc "Switch On#ufe";
							initnpctimer;
							specialeffect2 563;
							soundeffectall "earth_quake.wav",0;
							close2;
							cutin "5-1",255;
							end;
						}
					}
				}
			}
			else if (countitem(7356) > 0 || countitem(7359) > 0 || countitem(7357) > 0 || countitem(7358) > 0) {
				select("Insert Crest Pieces.");
				mes "^3355FFRight now, you don't";
				mes "have enough Crest Pieces";
				mes "to place into all four of these";
				mes "slots. You'll need to find and^FFFFFF ^3355FF bring them all to make this work.^000000";
				close2;
				cutin "5-1",255;
				end;
			}
			else {
				mes "^3355FFYou need to find";
				mes "some kind of object";
				mes "that you can fit into";
				mes "each of these four slots...^000000";
				close2;
				cutin "5-1",255;
				end;
			}
		case 2:
			mes "^3355FFWho knows what";
			mes "this lever may do?";
			mes "You'll never know unless";
			mes "you have the courage to try.^000000";
			close2;
			cutin "5",255;
			end;
		}
	}
	end;

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

OnTimer3000:
	mapannounce "jupe_ele_r","Do you want to know why this city was buried beneath the earth...?",bc_map,"0x66FF00";
	end;

OnTimer7000:
	mapannounce "jupe_ele_r","If so, follow my voice...",bc_map,"0x66FF00";
	end;

OnTimer10000:
	mapannounce "jupe_ele_r","I shall let you see for yourself what you desire to know...",bc_map,"0x66FF00";
	end;

OnTimer17000:
	mapannounce "jupe_ele_r","Overcome all the hallucinations.",bc_map,"0xCC6600";
	end;

OnTimer20000:
	mapannounce "jupe_ele_r","Open your eyes and see past all of the lies.",bc_map,"0xFF0000";
	end;

OnTimer23000:
	mapannounce "jupe_ele_r","I can only maintain this vision for you for 20 minutes.",bc_map,"0xFF0000";
	donpcevent "Elevator Guard1#ufe::OnEnable";
	end;

OnTimer27000:
	mapannounce "jupe_ele_r","Look! And remember!",bc_map,"0xFF0000";
	stopnpctimer;
	end;
}

jupe_ele_r,51,98,0	script	Switch On#ufe	844,{
	mes "^3355FFIt seems like";
	mes "someone else is";
	mes "using this machine...^000000";
	close;

OnInit:
	disablenpc "Switch On#ufe";
	end;
}

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

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

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

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

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

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

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

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

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

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

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

OnTimer120000:
	mapannounce "jupe_ele_r","It is disappointing to see that you are too weak to even defeat a hallucination...",bc_map,"0x66FF00";
	enablenpc "Switch#ufe";
	disablenpc "Switch On#ufe";
	donpcevent "Annihilation#ufe::OnEnable";
	set $@JupeElevatorInUse,0;
	end;

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

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

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

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

OnTimer5000:
	mapannounce "jupe_ele_r","Those of you who have defeated the hallucination, step forward.",bc_map,"0x66FF00";
	soundeffectall "earth_quake.wav",0;
	end;

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

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

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

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

OnTouch:
	percentheal -99,-100;
	end;

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

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

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

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

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

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

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

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

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

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

OnDisable:
	stopnpctimer;
	end;

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

OnTimer120000:
	killmonsterall "jupe_ele";
	donpcevent "Guard-1#ufe::OnDisable";
	donpcevent "Guard-2#ufe::OnDisable";
	donpcevent "Guard-3#ufe::OnDisable";
	donpcevent "Guard-4#ufe::OnDisable";
	mapannounce "jupe_ele","In the end, you can't even overcome your inner fear...",bc_map,"0xFF0000";
	end;

OnTimer122000:
	mapannounce "jupe_ele","You have never encountered your inner fears, have you?",bc_map,"0xFF0000";
	end;

OnTimer125000:
	mapannounce "jupe_ele","Did you expect this would be the end of the hallucination?",bc_map,"0xFF0000";
	end;

OnTimer127000:
	mapannounce "jupe_ele","What if the voice you're hearing is also a hallucination?",bc_map,"0xFF0000";
	end;

OnTimer129000:
	mapannounce "jupe_ele","What if you're just dreaming all of this?",bc_map,"0xFF0000";
	end;

OnTimer131000:
	mapannounce "jupe_ele","What if the existence of this city is a lie?",bc_map,"0xFF0000";
	end;

OnTimer133000:
	mapannounce "jupe_ele","Are you even real?",bc_map,"0xFF0000";
	end;

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

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

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

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","I admire your patience.",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","Let's see if everything you have experienced",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","were traps for intruders...",bc_map,"0xFF0000";
	end;

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

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

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

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

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","This city was not",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","as magnificient as you thought.",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","This is a place where all the fears of humans flourish.",bc_map,"0xFF0000";
	end;

OnTimer11000:
	mapannounce "jupe_ele","Yes. Nobody leaves alive!",bc_map,"0xFF0000";
	end;

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

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

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

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

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","What do you see?",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","Are your eyes actually seeing something?",bc_map,"0xFF0000";
	end;

OnTimer8000:
	mapannounce "jupe_ele","Or do you just believe you are seeing?",bc_map,"0xFF0000";
	end;

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

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

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

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

OnDisable:
	stopnpctimer;
	end;

OnTimer2000:
	mapannounce "jupe_ele","Do not forget. That which limits you is nothing but yourself.",bc_map,"0xFF0000";
	end;

OnTimer5000:
	mapannounce "jupe_ele","Nothing is what you fear and you have nothing to fear...",bc_map,"0xFF0000";
	end;

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

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

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

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

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

OnTimer2000:
	mapannounce "jupe_ele","I am not going to tell you anything.",bc_map,"0x66FF00";
	end;

OnTimer5000:
	mapannounce "jupe_ele","My city, my people are now but a memory.",bc_map,"0x66FF00";
	end;

OnTimer8000:
	mapannounce "jupe_ele","Everything was a mistake. We were not supposed to be here.",bc_map,"0x66FF00";
	end;

OnTimer11000:
	mapannounce "jupe_ele","Is this a place where humans are forbidden?",bc_map,"0x66FF00";
	end;

OnTimer12000:
	mapannounce "jupe_ele","You want to know, don't you? Go ahead... Go deeper.",bc_map,"0x66FF00";
	enablenpc "4F Enter#ufe";
	end;

OnTimer22000:
	mapannounce "jupe_ele","It's not real anyway. All of it's safe, it can't hurt you...",bc_map,"0x66FF00";
	soundeffectall "earth_quake.wav",0;
	disablenpc "4F Enter#ufe";
	end;

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

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

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

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

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

//============================================================
// Warps
//============================================================
jupe_gate,50,173,0	script	gate#start	-1,2,3,{
	end;

OnTouch:
	initnpctimer "gate#start",1;
	mes "^3355FFIt's a Warp Portal";
	mes "that will teleport you";
	mes "to the previous floor.^000000";
	next;
	switch(select("Use it.:Ignore it.")) {
	case 1:
		specialeffect2 EF_LIGHTSPHERE;
		close2;
		stopnpctimer;
		warp "juperos_02",130,142;
		break;
	case 2:
		mes "[" + strcharinfo(0) + "]";
		mes "Not now!";
		mes "I can't leave yet!";
		close2;
		stopnpctimer;
		warp "jupe_gate",50,168;
		break;
	}
	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;
}