Context Navigation

Kiel_Hyre_Quest.txt @ 5

Revision 1, 217.9 kB (checked in by jinshiro, 17 years ago)

Line
1	//===== eAthena Script =======================================
2	//= Kiel Hyre Quest
3	//===== By: ==================================================
4	//= L0ne_W0lf (Script), DZeroX (Timer)
5	//===== Current Version: =====================================
6	//= 3.9
7	//===== Compatible With: =====================================
8	//= eAthena SVN
9	//===== Description: =========================================
10	//= Quest for opening Robot Factory first and second floors.
11	//===== Comments: ============================================
12	//= See below
13	//===== Additional Comments: =================================
14	//= 1.0 First version, needs testing [Playtester]
15	//= 1.1 Copied over some changes made by -Tsuyuki- [L0ne_W0lf]
16	//= Reworked variables slightly so that the permenents ones aside from the
17	//= main tracking variable, are deleted when no longer needed. Renamed
18	//= several variables that handle strings to @KHInput$. [L0ne_W0lf]
19	//= 1.2 Removed duplicate NPCs. [Toms]
20	//= 1.3 More Bug fixes, fixed typo. Updated Additional comments. [L0ne_W0lf]
21	//= 1.4 Fixed doors not resetting in kh_kiehl01 after 30 second timer is up. [L0ne_W0lf]
22	//= 1.5 Another bug fixed (&& instead of \|\|). [L0ne_W0lf]
23	//= 1.6 More squashed bugs with if checking. [L0ne_W0lf]
24	//= 1.7 Corrected some spelling mistakes. [Balish]
25	// Corrected Exploit with the pub man, giving infinite wine and money.
26	// Corrected pool and map not showing text for some states of the quest.
27	// Corrected Elly showing cutin but not text for some states of the quest (causing players to log off to continue).
28	// Let fisherman talk to you when you have 10 fishes OR MORE.
29	// Corrected not letting you enter the tombstone after finishing the quest.
30	//= 1.8 Elly now deletes the Steel_box, and Kiel Hyre deletes the Pin. [L0ne_W0lf]
31	//= More security on the 5th Big Door, now makes sure no one outside of who-
32	//= acticated it initially can use it. Resets after 10 minutes to make it.
33	//= Made it so that you need to be at least step 84 to activate the final door.
34	//= Corrected not deleting Allysia's Ring from inventory.
35	//= 1.9 Exit will now enable if you are just retrieving the Ring, keeps you from getting stuck. [L0ne_W0lf]
36	//= Corrected "KH_Kielh02", was setting off a debug, invalid map index. Should have been "kh_Kiehl02"
37	//= Made .KHQuestBusy$ into a temp global variable. $@KHQuestBusy$.
38	//= 2.0 Changed the labels on the "Big Doors" to "Identifier Names" to prevent an error with using getvariableofnpc [L0ne_W0lf]
39	//= 2.1 Fifth door now checks for a variable HIGHER or EQUAL to 74 not 84, as pointed out by Stollen. [L0ne_W0lf]
40	//= 2.2 Another fix for Elly, no longer RESETS to 26 when you talk to her. [L0ne_W0lf]
41	//= 2.3 Should NOT have been setting .KHQuestBusy at all. It's not used or accessed anymore. Removed. [L0ne_W0lf]
42	//= 2.4 Lots of fixes (4ish) from Valandi. [L0ne_W0lf]
43	//= Added a getmapuser check to the mapwarp in KHTimerEnd so it's not trying to warp out 0 users. [L0ne_W0lf]
44	//= 2.5 Fixed several small issues (and large one) such as typos in cutins, typos in dialog, etc. [L0ne_W0lf]
45	//= Added some of the missing dialogs for several NPCs, and fixed a few NPC locations.
46	//= ALL books can now trigger the wall.
47	//= Allysia will now summon 4 (was 2) G_CONSTANTS instead of REGULAR constants.
48	//= Fixed where Golden_Key and Exquisite_Button are deleted.
49	//= Removed KHTimerEnd, and instead use OnReset.
50	//= Fixed typo in the second NPC that gives Black Keycards.
51	//= Added Monster Warps. (Keeps monsters from being in dungeon quest area.) [Non-functional]
52	//= 2.6 Stupid mistake, accidentally had 4 copies of the same script in 1... [L0ne_W0lf the bonehead]
53	//= 2.7 Fixed the wrong name being displayed for Kiel Hyre in one dialog.
54	//= Removed $@KH_DoorInvoker entirely. The quest is now working like it should according to iRO.
55	//= Fixed up a few more NPC headers. Facing direction fixes mostly this time.
56	//= More progression changes to Kiehl Hyre. He no longer stops dialog after the agents appear.
57	//= 2.8 Fixed the weight checking in Vandt, and added official dialog. [L0ne_W0lf]
58	//= Added weight checks for all NPCs that give items. Semi-official dialog.
59	//= Got the missing portion of dialog for Mills'.
60	//= Will add further proper dialogs as I get to them on the second runthrough of the quest.
61	//= 2.8a minor optimization with extra goto, else or empty switch [Lupus]
62	//= 2.9 Fixed the "enablenpc" problem with the missing spaces. No idea how it happened. [L0ne_W0lf]
63	//= 3.0 Fixed a typo in Elly, in her room. (was <= should have been <) [L0ne_W0lf]
64	//= Added an 'end;' to the cookie basket. Kiel Hyre's final dialog will now delete all quest-related items.
65	//= 3.1 Moved the "delitem" for all related quest items to the proper NPC. [L0ne_W0lf]
66	//= 3.2 Fixed error with Allysia teling you to "Go away." maybe. [L0ne_W0lf]
67	//= 3.2b Fixed some typos and grammar mistakes. [SinSloth]
68	//= 3.3 Fixed the receiver log out bugs. [L0ne_W0lf]
69	//= 3.4 Fixed bug when u can't get a Yellow Keycard if u got the Blue one at first [Lupus]
70	//= Note: There are many condition checks that should be omitted in the future fixed item names in item_db.txt / txt resources according the quest
71	//= for items, should be used bitwise methods in a single variable. So let's fix the rest possible bugs (if they exist) and then optimize ^_-
72	//= 3.5 Changed the way the Black Keycard distibuting NPCs work slighty. [L0ne_W0lf]
73	//= 3.6 Keil Hyre removes ALL outstanding quest items when he is talked [L0ne_W0lf]
74	//= to after finishing the quest.
75	//= 3.7 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
76	//= 3.8 Corrected some delitems. (bugreport:690) [Samuray22]
77	//= 3.9 Fixed a cutin not being erased. (bugreport:1539) [L0ne_W0lf]
78	//============================================================
79	//============================================================================
80	// Kiel Hyre Quest/Robotic Lab Dungeon
81	//
82	// Script Dialog Obtained and Copied Down by L0ne_W0lf
83	// Timer work and some variable dances by DZeroX
84	// Based on [iRO Sakray] as of [03/29/2007]
85	//============================================================================
86	//----------------------------------------------------------------------------
87	// [Notes]
88	// - Let it be noted that ALL DIALOG IS OFFICIAL TO IRO UNLESS SPECIFIED.
89	// - I've fixed a few of iRO's mistakes, but I'm sure I made some of my own.
90	// - Will probably require a major optimizing.
91	// - Accidentally progressed Elly's dialog while reading 'Letter to Elly'. Improvising.
92	// - Possible missing dialog for some getitem weight checks.
93	// - Possible missing dialog for "Test Tube" if you haven't read the second poem.
94	// - Possible missing dialog for Elly in Dromitory if you don't have "Steel Box"
95	// - Possible missing dialog for "Grave" if you don't have "Yellow Keycard"
96	// - Not going to list ALL of the more usless NPCs. (Doors + Empty "Beautiful Ladies")
97	// - Accidently progressed Kiel Hyre's dialog. Improvising.
98	// - Improvising for getting back in to see Mitchell if you butterfly wing and need to get back in.
99	// - Possible missing dialog for "Odd Grandma"
100	// - Possible missing dialog for "Shelf"
101	// - Near the end I finshed the quest with some people. Used packet logging to get dialog.
102	// Because of the above mentioned, NPC placement and dialog is a little sloppier.
103	// - Possible missing dialog for "Kiel Hyre" (Accept and Okay responses)
104	// - Parties are NOT REQUIRED as per Doddler's Wiki information.
105	// - Possible missing dialog for "Kiel Hyre" if you don't have Allysia's Ring.
106	//
107	//----------------------------------------------------------------------------
108	// [Maps] [Use]
109	// yuno_in01 ........... Start quest in pub
110	// kh_school ........... Deliver Wine here, Meet Elly
111	// yuno ................ Get Delivery for/from "Little Kid"
112	// lighthalzen ......... Get Delivery package for "Little Kid"
113	// kh_vila ............. Kiel Hyre cottage.
114	// kh_dun01 ............ Robot Factory; Save Kiel Hyre
115	// kh_mansion .......... Kiel Hyre's Mansion in Lighthalzen
116	// kh_kiehl01 .......... Kiehl's room/Cave
117	// kh_kiehl02 .......... Kiehl's room/Boss Room
118	//
119	//----------------------------------------------------------------------------
120	// [Variables in Use]
121	// KielHyreQuest - Main quest tracking variable (Quest finished at 106)
122	//
123	// KHPubMasterEnd - Finished with Pun Master if set to 1
124	// - Deleted once no longer needed.
125	//
126	// KHToastGirlEnd - Pick up delivery if set to 1,
127	// - picked up delivery if set to 2
128	// - finished if set to 3
129	// - Deleted once no longer needed.
130	//
131	// KHCottagePoem1 - Tracks Poem 1 quest in cottage. (finished = 5)
132	// - Deleted once no longer needed.
133	//
134	// KHCottagePoem2 - Tracks Poem 2 quest in cottage. (finished = 3)
135	// - Deleted once no longer needed.
136	//
137	// @KHInput$ - Used with "Security Guard"
138	// - Used with "Test Tube"
139	// - Used when "Elly" (inputing string in attempt to wake her)
140	// - Used with "Grave", (twice)
141	// - Used with "Heavy Door"
142	// - Used with "Mechanical Device"
143	// - Used for opening various doors in Kiehl's area.
144	//
145	// @KHFirstKeyhole - Holds 1 (green keycard) or 2 (cottage key)
146	// @KHSecondKeyhole - Holds 1 (green keycard) or 2 (cottage key)
147	//
148	// @KHPotionColor$ - Holds 'red', 'green', or 'yellow' depending on what wrong potion is selected.
149	//
150	// @KHFirstSword - holds 1, 2, 3 or 4. Used to keep track of swords and snakes.
151	// @KHSecondSword - holds 1, 2, 3 or 4. Used to keep track of swords and snakes.
152	// @KHThirdSword - holds 1, 2, 3 or 4. Used to keep track of swords and snakes.
153	// @KHFourthSword - holds 1, 2, 3 or 4. Used to keep track of swords and snakes.
154	//
155	// @KHClimbAttempt - Set to random (1-5) to determine if you fail at climbing the water pipe.
156	//
157	// @KHQ1Read - Make sure player has asked question 1 to Kiel Hyre
158	// @KHQ2Read - Make sure player has asked question 2 to Kiel Hyre
159	// @KHQ3Read - Make sure player has asked question 3 to Kiel Hyre
160	//
161	// @KHTitle$ - Holds "Mr", "Mrs", or "Miss"
162	//
163	// @KHDoorPushAttempt - Keeps track of how many times a person has attmepted pushed the door open.
164	//
165	// @KHPryingItem$ - Used for incorrect options when prying open last door.
166	//
167	// .KHKilled - Tracks how many monsters have been killed. Used with "Receiver", "Robots", and "Kiehl" NPCs
168	//
169	// .KHDoor1Open - 0/1 Depending on if the first door is opened.
170	// .KHDoor2Open - 0/1 Depending on if the second door is opened.
171	// .KHDoor3Open - 0/1 Depending on if the third door is opened.
172	// .KHDoor4Open - 0/1 Depending on if the fourth door is opened.
173	// .KHDoor5Open - 0/1 Depending on if the fifth door is opened.
174	//
175	// .KHKilledBoss - 0/1 depending on if the boss has been killed.
176	//
177	// $@KHQuestBusy - 0/1 depending on if the boss room has been set in motion.
178	//
179	//----------------------------------------------------------------------------
180	// [NPCs] [Location]
181	// Pub Master .................. yuno_in01 [ 35,178]
182	// Hanie ....................... yuno_fild08 [196,196]
183	// Security Guard .............. yuno_fild08 [158,194]
184	// Security Guard .............. yuno_fild08 [158,183]
185	// Student ..................... kh_school [ 57,142]
186	// Student ..................... kh_school [ 57,139]
187	// Lady ........................ kh_school [176, 60]
188	// Cute Student ................ kh_school [179, 39]
189	// Little Kid .................. yuno [217,114]
190	// Windmill Owner .............. lighthalzen [365,300]
191	// Cottage Keeper .............. yuno_fild02 [ 93,210]
192	// Door ........................ yuno_fild02 [ 75,218]
193	// Door ........................ yuno_fild02 [109,218]
194	// Wall ........................ kh_vila [191, 14]
195	// Book ........................ kh_vila [184, 20]
196	// Book ........................ kh_vila [181, 20]
197	// Book ........................ kh_vila [178, 20]
198	// Book ........................ kh_vila [175, 19]
199	// KH_Letter_Trigger ........... kh_vila [179, 11]
200	// Box ......................... kh_vila [ 16,175]
201	// Apple Box ................... kh_vila [ 30,184]
202	// Map ......................... kh_vila [ 44,125]
203	// Pot ......................... kh_vila [ 33,148]
204	// Calabash .................... kh_vila [ 14, 55]
205	// Pool ........................ kh_vila [ 39, 39]
206	// Vicious Dog ................. kh_vila [180,178]
207	// Drawer ...................... kh_vila [115,186]
208	// Box ......................... kh_vila [107,126]
209	// Bookshelf ................... kh_vila [181,138]
210	// Sword Hilt .................. kh_vila [136, 69]
211	// Test Tube ................... kh_vila [179, 69]
212	// Test Tube ................... kh_vila [185, 69]
213	// Window ...................... yuno_fild08 [ 69,185]
214	// Elly ........................ kh_school [178,180]
215	// Cookie Basket ............... kh_school [175,175]
216	// Window ...................... kh_school [188,185]
217	// Grave ....................... yuno_fild08 [ 72,170]
218	// Heavy Door .................. kh_dun01 [236, 48]
219	// Beautiful lady .............. kh_school [119,149]
220	// Beautiful lady .............. kh_school [122,186]
221	// Signboard ................... kh_dun01 [163,223]
222	// Mechanical Device ........... kh_dun01 [166,223]
223	// Mechanical Device ........... kh_dun01 [162,206]
224	// Kiel_Hyre_Door .............. kh_dun01 [224,232]
225	// Steward ..................... kh_mansion [ 78, 55]
226	// Kiel Hyre ................... kh_mansion [ 22, 27]
227	// Allysia ..................... kh_mansion [ 22, 27]
228	// Abduction_trigger ........... lighthalzen [188,200]
229	// Mysterious Woman ............ kh_mansion [ 25, 79]
230	// Odd Granma .................. yuno [250,132]
231	// Old Lady .................... yuno [250,132]
232	// Rosimmir_Entrance ........... yuno [273,141]
233	// Table ....................... kh_rossi [ 23, 23]
234	// Shelf ....................... kh_rossi [ 92, 40]
235	// Desk ........................ kh_rossi [144,146]
236	// Bookshelf ................... kh_rossi [144,146]
237	// Old Fisherman ............... yuno_fild12 [232,222]
238	// Wooden Board ................ yuno_fild09 [158,217]
239	// Kiehl_Room_Warp ............. kh_mansion [ 29, 27]
240	// Entrance Device#KHEntry1 .... kh_dun01 [ 44, 20]
241	// Entrance Device#KHEntry2 .... kh_dun01 [ 44,203]
242	// Security Guard .............. yuno_fild08 [158,194]
243	// Receiver .................... kh_kiehl01 [ 17, 39]
244	// Flower Vase ................. kh_kiehl01 [ 13, 40]
245	// Box ......................... kh_kiehl01 [ 19, 25]
246	// Big Door .................... kh_kiehl01 [ 44, 33]
247	// Big_Door_1_Warp ............. kh_kiehl01 [ 43, 33]
248	// Big Door .................... kh_kiehl01 [174, 40]
249	// Big_Door_2_Warp ............. kh_kiehl01 [174, 39]
250	// Big Door .................... kh_kiehl01 [ 77,108]
251	// Big_Door_3_Warp ............. kh_kiehl01 [ 68,108]
252	// Big Door .................... kh_kiehl01 [ 41,177]
253	// Big_Door_4_Warp ............. kh_kiehl01 [ 78,177]
254	// Robots ...................... kh_kiehl01 [ 15,181]
255	// Big Door .................... kh_kiehl01 [166,187]
256	// Big_Door_5_Warp ............. kh_kiehl01 [166,186]
257	// Kiehl_Room_Trap ............. kh_kiehl02 [ 49, 15]
258	// Kiehl#Original .............. kh_kiehl02 [ 50, 52]
259	// KiehlRoom ................... kh_kiehl02 [ 1, 1]
260	// Floating NPC (Agent#KHAgent0::KHAgent)
261	// Mitchell#KiehlRoom .......... kh_kiehl02 [ 49, 55]
262	// Agent#KHAgent1 .... ....... kh_kiehl02 [ 53, 52]
263	// Agent#KHAgent2 .............. kh_kiehl02 [ 51, 49]
264	// Agent#KHAgent3 .............. kh_kiehl02 [ 47, 50]
265	// Agent#KHAgent4 .............. kh_kiehl02 [ 46, 53]
266	// Kiehl#Copy .................. kh_kiehl02 [ 48, 53]
267	// Kiehl_Roomn_Exit ............ kh_kiehl01 [ 50, 59]
268	//
269	//----------------------------------------------------------------------------
270	// [Functions]
271	// None
272	//
273	//----------------------------------------------------------------------------
274	// [Conflicts]
275	// Resolved
276	//
277	//============================================================================
278
279
280	//============================================================================
281	// Affiliated NPCs
282	//============================================================================
283
284	//----------------------------------------------------------------------------
285	// Juno Pub Master/Starting point.
286	//----------------------------------------------------------------------------
287	yuno_in01,35,179,1 script Pub Master 46,4,4,{
288	if (checkweight(7487,1) == 0) {
289	mes "[Vandt]";
290	mes "Just a second! You're";
291	mes "carrying too many items";
292	mes "right now. You'd better";
293	mes "put your stuff in Kafra";
294	mes "Storage or you won't be";
295	mes "able to pick up anything new...";
296	close;
297	}
298
299	if (KielHyreQuest == 1) {
300	mes "[Vandt]";
301	mes "Hi there, welcome";
302	mes "to my pub. So what";
303	mes "would you like to have?";
304	next;
305
306	switch(select("Beer, please","A cocktail, please","Soju, please.","You look worried, what's up?","Cancel")) {
307
308	case 1:
309	mes "[Vandt]";
310	mes "Alright, let me get";
311	mes "you a glass of beer on";
312	mes "tap. There you are, this";
313	mes "is out special Schwaltz Beer.";
314	next;
315	mes "^3355FFGulp gulp gulp^000000";
316	percentheal 5,-5;
317	next;
318	mes "["+strcharinfo(0)+"]";
319	mes "Ahhh, it's really";
320	mes "good! That really";
321	mes "hits the spot!";
322	close;
323
324	case 2:
325	mes "[Vandt]";
326	mes "I'm sorry, but I have to";
327	mes "deliver all of our cocktail";
328	mes "ingredients to other customers.";
329	mes "Maybe I'll have enough to make";
330	mes "you something next time, okay?";
331	close;
332
333	case 3:
334	mes "[Vandt]";
335	mes "S-soju? I'm sorry,";
336	mes "but we don't serve that";
337	mes "here. It's too much of";
338	mes "a tough guy drink for me...";
339	close;
340
341	case 4:
342	mes "[Vandt]";
343	mes "Oh, did you overhear?";
344	mes "I'm sorry, it's just that one";
345	mes "of my employees had an";
346	mes "accident and was pretty hurt,";
347	mes "so I have nodoby that can";
348	mes "deliver this merchandise.";
349	next;
350	mes "[Vandt]";
351	mes "I have an urgent order";
352	mes "that I need to send to";
353	mes "the Kiel Hyre Academy,";
354	mes "but I can't find anyone";
355	mes "that's available for this";
356	mes "kind of temporary job.";
357	next;
358
359	switch(select("I'm sorry to hear that","Do you want me to help you?")) {
360
361	case 1:
362	mes "[Vandt]";
363	mes "Well, I'm sure that I'll";
364	mes "figure something out.";
365	mes "Do you know anyone";
366	mes "that'd be interested in";
367	mes "some part time work?";
368	close;
369
370	case 2:
371	mes "[Vandt]";
372	mes "Really? That's great!";
373	mes "But first, I think it's fair to";
374	mes "tell you that this job may not";
375	mes "be as simple as you'd think.";
376	mes "I expect you to complete the";
377	mes "delivery, no matter what.";
378	next;
379
380	switch(select("Sure I'll do it", "Wait, let me think about it...")) {
381
382	case 1:
383	mes "[Vandt]";
384	mes "I'm glad to hear that.";
385	mes "Well then, please take this";
386	mes "bottle of Culinary Wine to";
387	mes "Mrs. ^ff0000Lecollane^000000 in the Kiel";
388	mes "Hyre Academy. I'll pay you";
389	mes "once you finish the job, okay?";
390	getitem 7487,1; //Culinary_Wine
391	set KielHyreQuest,2;
392	close;
393
394	case 2:
395	mes "[Vandt]";
396	mes "Sure thing. I really need";
397	mes "to get this done, so if you";
398	mes "can't do it, but know any";
399	mes "capable, responsible";
400	mes "people that can, then please";
401	mes "tell them about my situation.";
402	close;
403
404	}
405
406	}
407
408	case 5:
409	mes "[Vandt]";
410	mes "Sure, just take";
411	mes "your time, relax,";
412	mes "and order something";
413	mes "when you're ready.";
414	close;
415	}
416
417	}
418
419	else if ((KielHyreQuest >= 2) && (KielHyreQuest < 6)) {
420	mes "[Vandt]";
421	mes "Please deliver that bottle";
422	mes "of Wine I gave you to Mrs.";
423	mes "Mrs. ^ff0000Lecollane^000000, who should be";
424	mes "inside the Kiel Hyre Academy.";
425	mes "Hurry and get it to her before she";
426	mes "can complain about the delivery.";
427	close;
428	}
429
430	else if ((KielHyreQuest == 6) && (KHPubMasterEnd != 1)) {
431	mes "[Vandt]";
432	mes "Oh, you're back.";
433	mes "Thanks for making that";
434	mes "delivery. Just give me";
435	mes "a moment, and then I can";
436	mes "pay you in zeny, okay?";
437	next;
438	switch(select("I need more wine...")) {
439
440	case 1:
441	mes "[Vandt]";
442	mes "Oh, you need to deliver";
443	mes "another bottle? Alright,";
444	mes "let me look around, and";
445	mes "I'll give you the wine";
446	mes "and your payment.";
447	next;
448	mes "^3355FFRummage Rummage^000000";
449	mes "^3355FFRummage Rummage^000000";
450	next;
451	mes "[Vandt]";
452	mes "There you go!";
453	mes "Thank you so much";
454	mes "for helping me out~";
455	getitem 7487,1; //Culinary_Wine
456	set zeny,zeny+1000;
457	set KHPubMasterEnd,1;
458	close;
459	}
460	}
461
462	else if ((KielHyreQuest > 6) \|\| (KHPubMasterEnd == 1)) {
463	mes "[Vandt]";
464	mes "Hey, thanks a lot";
465	mes "for helping me out that";
466	mes "last time. I knew I asked";
467	mes "you out of the blue, but";
468	mes "you ended up being a life";
469	mes "saver! I really appreicate it!";
470	close;
471	}
472
473	OnTouch:
474	if (KielHyreQuest < 1) {
475	mes "[Vandt]";
476	mes "Arrrggghhh...";
477	mes "This can't be good...";
478	mes "This isn't good at all!";
479	mes "What am I suposed to do?";
480	set KielHyreQuest,1;
481	close;
482	}
483	}
484
485	//----------------------------------------------------------------------------
486	// Juno Toast Sales Girl.
487	//----------------------------------------------------------------------------
488	yuno,217,114,4 script Little Kid 96,{
489	if (KielHyreQuest < 6) {
490	mes "[Cezu]";
491	mes "Fresh, crunchy toast!";
492	mes "If you want some, come";
493	mes "and get some tooooast~";
494	close;
495	}
496
497	else if ((KielHyreQuest == 6) && (KHToastGirlEnd != 3)) {
498	if (KHToastGirlEnd < 1) {
499	mes "[Cezu]";
500	mes "Fresh, crunchy toast!";
501	mes "If you want some, come";
502	mes "and get some tooooast~";
503	mes "Oh! Hi hi~ Did you want";
504	mes "to buy some yummy toast?";
505	next;
506
507	switch(select("I'm here for Elly","No, thanks")) {
508
509	case 1:
510	mes "[Cezu]";
511	mes "Oh, I see. Elly must have";
512	mes "wasted another batch of";
513	mes "ingredients again. Well,";
514	mes "she's a regular customer,";
515	mes "so I really want to help, but";
516	mes "I can't really do anything.";
517	next;
518	mes "[Cezu]";
519	mes "You see, I just ran";
520	mes "out of ingredients too!";
521	mes "But I can't really leave";
522	mes "to get some more. What if";
523	mes "people need to buy toast?";
524	mes "Listen, can you help me out?";
525	next;
526	mes "[Cezu]";
527	mes "Would you please go get";
528	mes "some flour and eggs for me";
529	mes "from the ^3355FFLighthalzen Windmill^000000";
530	mes "Then, when you come back, I can";
531	mes "divide the ingredients, and you";
532	mes "can deliver some to Elly.";
533	next;
534	mes "[Cezu]";
535	mes "I know that I'm basically";
536	mes "making you do everything";
537	mes "on your own, but please try";
538	mes "to understand that my hands";
539	mes "are tied. D-don't ask me";
540	mes "why, they just are!";
541	set KHToastGirlEnd,1;
542	close;
543
544	case 2:
545	mes "[Cezu]";
546	mes "Okay okay~";
547	mes "Please come again!";
548	close;
549	}
550	}
551
552	else if (KHToastGirlEnd == 1) {
553	mes "[Cezu]";
554	mes "Would you please go to";
555	mes "the Lighthalzen Windmill";
556	mes "and tell them that Cezu needs";
557	mes "lots of flour and lots of eggs!";
558	mes "Then, bring all the stuff over";
559	mes "to me as soon as you can~";
560	close;
561	}
562
563	else if (KHToastGirlEnd == 2) {
564	mes "[Cezu]";
565	mes "Hey, you're back with the";
566	mes "ingredients! Thank you so";
567	mes "much, I really needed these!";
568	mes "Now please give this flour";
569	mes "and these eggs to Elly, and";
570	mes "send her my regards. See you~";
571	delitem 7488,1; //Delivery_Package
572	getitem 7488,1; //Delivery_Package
573	set KHToastGirlEnd,3;
574	close;
575	}
576
577	}
578
579	else if ((KielHyreQuest >= 6) \|\| (KHToastGirlEnd == 3)) {
580	//KHToastGirlEnd no longer needed-- deleting.
581	set KHToastGirlEnd,0;
582	mes "[Cezu]";
583	mes "Hot, fresh and";
584	mes "cruuuunchy toast!";
585	mes "Come and get some!";
586	close;
587	}
588
589	}
590
591	//----------------------------------------------------------------------------
592	// Lighthalzen WindMill Owner.
593	//----------------------------------------------------------------------------
594	lighthalzen,365,300,2 script Windmill Owner 46,{
595	if (checkweight(7488,1) == 0) {
596	mes "[Mills]";
597	mes "Hey, you've got too much";
598	mes "stuff on you right now. ";
599	mes "Put your junk in Kafra Storage";
600	mes "if you expect me to give you";
601	mes "anything. That's why you came";
602	mes "here to the miss, didn't you?";
603	close;
604	}
605
606	if (KHToastGirlEnd < 1) {
607	mes "[Mills]";
608	mes "Hey, whaddya want?";
609	mes "I'm pretty busy right";
610	mes "now, so you mind coming";
611	mes "back later? Then we'll talk.";
612	close;
613	}
614
615	else if (KHToastGirlEnd == 1) {
616	mes "[Mills]";
617	mes "Hey, whaddya want?";
618	mes "You just happened to";
619	mes "catch me at a good time,";
620	mes "but if you need anything,";
621	mes "you'd better spit it out quick";
622	mes "before things get hectic again.";
623	next;
624
625	switch(select("I'm here for Cezu","......")) {
626
627	case 1:
628	mes "[Mills]";
629	mes "Oh, Cezu from the";
630	mes "toast stand? Okay,";
631	mes "I've got everything";
632	mes "that kid needs right";
633	mes "here. There's eggs inside,";
634	mes "so be really careful with it.";
635	mes "It's ready for you...";
636	next;
637	mes "[Mills]";
638	mes "Kid's one of my regular";
639	mes "customers, so you don't";
640	mes "have to pay me, or run any";
641	mes "extra errands on my end. Yeah,";
642	mes "I know how other people treat";
643	mes "you adventurers. Well, see ya.";
644	getitem 7488,1; //Delivery_Package
645	set KHToastGirlEnd,2;
646	close;
647
648	case 2:
649	mes "[Mills]";
650	mes "......";
651	mes "Um, okay, well, if";
652	mes "you need something,";
653	mes "just hollar, I guess.";
654	mes "Cuts, Cutz where are you?";
655	mes "You'd better not be goofing off!";
656	close;
657
658	}
659
660	}
661
662	else if (KHToastGirlEnd >= 2) {
663	mes "[Mills]";
664	mes "That Cutz is such";
665	mes "a lazy rascal. The guy";
666	mes "thinks he can fool around";
667	mes "when he's on the clock...!";
668	mes "Ah well, he knows I can't find";
669	mes "a better assistant. He'll learn...";
670	close;
671	}
672
673	}
674
675	//============================================================================
676	//Kiel Hyre Academy NPCs
677	//============================================================================
678
679	//----------------------------------------------------------------------------
680	// Girl (Talks about the academy)
681	//----------------------------------------------------------------------------
682	yuno_fild08,196,196,5 script Hanie 102,{
683	mes "[Hanie]";
684	mes "Oh, I wish I could study";
685	mes "at the Kiel Hyre Academy...";
686	mes "All of the graduates get";
687	mes "really nice jobs! I'm almost";
688	mes "jealous of the students!";
689	next;
690
691	switch(select("Kiel Hyre Academy?")) {
692
693	case 1:
694	mes "[Hanie]";
695	mes "Oh, the Kiel Hyre Academy";
696	mes "is a school founded by Kiel";
697	mes "Hyre, an inventor that became";
698	mes "rich from his strange machines.";
699	mes "He decided to give back to society";
700	mes "by building this private academy.";
701	next;
702	mes "[Hanie]";
703	mes "However, the school will";
704	mes "only accept orphans that are";
705	mes "too poor to enroll in any other";
706	mes "schools. Sometimes, it makes";
707	mes "me wish that I was an orphan too!";
708	mes "Well, not really, but you know...";
709	close;
710	}
711	}
712
713
714	//----------------------------------------------------------------------------
715	// Academy Security Guards
716	//----------------------------------------------------------------------------
717	yuno_fild08,158,194,5 script Security Guard#1::KHAGuard 852,{
718	if ((KielHyreQuest < 2) && (KielHyreQuest >= 30)) {
719	mes "[Security Guard]";
720	mes "I'm sorry, but if you aren't";
721	mes "associated with this institution,";
722	mes "then you're not authorized to";
723	mes "enter the ^FF0000Kiel Hyre Academy^000000.";
724	mes "Please leave if you don't have";
725	mes "an appointment with the staff.";
726	close;
727	}
728
729
730	else if (KielHyreQuest == 2) {
731	mes "[Security Guard]";
732	mes "I'm sorry, but if you aren't";
733	mes "associated with this institution,";
734	mes "then you're not authorized to";
735	mes "enter the ^FF0000Kiel Hyre Academy^000000.";
736	mes "Please leave if you don't have";
737	mes "an appointment with the staff.";
738	next;
739	switch(select("I'm here for a delivery.","......")) {
740	case 1:
741	mes "[Security Guard]";
742	mes "You're here to deliver";
743	mes "something? Okay, just give";
744	mes "me the recipient's ^FF0000name^000000,";
745	mes "followed by the ^FF0000item^000000 being";
746	mes "delivered, and I'll verify it";
747	mes "before letting you inside.";
748	next;
749
750	input @KHDelivery$;
751	if (@KHDelivery$ != "Lecollane") {
752	mes "[Security Guard]";
753	mes "You're here to deliver some";
754	mes "Wine to...to who? What was";
755	mes "the name? I...I don't think";
756	mes "we have anybody in the";
757	mes "academy named "+@KHDelivery$+"";
758	close;
759	}
760
761	input @KHDelivery$ ;
762	if (@KHDelivery$ != "Culinary Wine") {
763	mes "[Security Guard]";
764	mes "So you're here to make";
765	mes "a delivery to Mrs. Lecollane?";
766	mes "What is it you've brought for";
767	mes "her? Some ^3355FF"+@KHDelivery$+"^000000?";
768	next;
769	mes "[Security Guard]";
770	mes "Let me buzz her first,";
771	mes "and check to make sure";
772	mes "that she's been expecting";
773	mes "you. Let's see now...";
774	next;
775	mes "......";
776	mes ".........";
777	mes "............";
778	next;
779	mes "[Security Guard]";
780	mes "Huh. Mrs Lecollane";
781	mes "is expecting a delivery,";
782	mes "but not the item that you";
783	mes "say that you've brought for";
784	mes "her. You might want to check";
785	mes "to see if there's been a mixup...";
786	close;
787	}
788
789	mes "[Security Guard]";
790	mes "Alright....";
791	mes "So you're here to";
792	mes "deliver a bottle of";
793	mes "Wine to Mrs. Lecollane?";
794	mes "Let me buzz her, and get";
795	mes "this confirmed real quickly.";
796	next;
797	mes "......";
798	mes ".........";
799	mes "............";
800	next;
801	mes "[Security Guard]";
802	mes "Okay, everything looks";
803	mes "good. Mrs. Lecollane";
804	mes "has been expecting you.";
805	mes "I guess you can enter.";
806	close2;
807	warp "kh_school",71,155;
808	end;
809
810	case 2:
811	mes "[Security Guard]";
812	mes "If you don't have";
813	mes "an appoointment, then";
814	mes "don't loiter around in";
815	mes "front of the academy!";
816	close;
817
818	}
819
820	}
821
822	else if (KielHyreQuest >= 4) {
823	mes "[Security Guard]";
824	mes "Oh, did you have";
825	mes "other business inside";
826	mes "the academy? I remember";
827	mes "you from before, so there";
828	mes "shouldn't be any problems";
829	mes "letting you back inside...";
830	close2;
831	warp "kh_school",71,155;
832	end;
833	}
834
835	}
836
837	yuno_fild08,158,183,7 duplicate(KHAGuard) Security Guard#2 852
838
839	//----------------------------------------------------------------------------
840	// Gossiping Teenagers/Story NPCs
841	//----------------------------------------------------------------------------
842	kh_school,57,142,7 script Student::StudentKHQ1 893,3,3,{
843	mes "[Laci]";
844	mes "Oh, wow! We usually";
845	mes "don't get visitors on";
846	mes "campus! Um, you're not";
847	mes "a new faculty member, are you?";
848	close;
849
850	OnTouch:
851	mes "[Laci]";
852	mes "Hey, Nesha...!";
853	mes "have you heard why";
854	mes "Aaci hasn't been coming";
855	mes "to class for awhile?";
856	next;
857	mes "[Gui Nesha]";
858	mes "That's right, I haven't";
859	mes "seen Aaci in awhile.";
860	mes "Did something happen?";
861	next;
862	mes "[Laci]";
863	mes "It's because....";
864	mes "Aaci saw a freakin' ghost!";
865	mes "It's one hundred percent";
866	mes "true! I heard about it from,";
867	mes "well, you know, my sources.";
868	next;
869	mes "[Gui Nesha]";
870	mes "...Wha...?";
871	mes "Oh, come on,";
872	mes "get outta town.";
873	close;
874	}
875
876	kh_school,57,139,1 script Student::StudentKHQ2 893,{
877	mes "[Gui Nesha]";
878	mes "Aren't we a little";
879	mes "old to be talking about";
880	mes "this kind of stuff? You";
881	mes "know, rumors and ghost";
882	mes "stories that make no sense?";
883	mes "C'mon, Laci, knock it off!";
884	emotion e_swt2;
885	close;
886	}
887
888	//----------------------------------------------------------------------------
889	// Mrs. Lecollane
890	//----------------------------------------------------------------------------
891	kh_school,176,60,4 script Lady::LadyKHQ 101,{
892	if (KielHyreQuest < 2) {
893	mes "[Mrs. Lecollane]";
894	mes "Is there a problem?";
895	mes "Outsiders are not allowed to come";
896	mes "in here, please leave.";
897	close;
898	}
899
900	else if (KielHyreQuest == 2) {
901	mes "[Mrs. Lecollane]";
902	mes "Oh, hello. Ah!";
903	mes "have you come to";
904	mes "deliver my wine? The";
905	mes "security guard called and";
906	mes "mentioned you were coming.";
907	next;
908
909	switch(select("Yes, that's right!","Er, s-sorry!")) {
910
911	case 1:
912	mes "[Mrs. Lecollane]";
913	mes "Well, you've come a little";
914	mes "later than I thought, but";
915	mes "I suppose it can't be helped.";
916	mes "I guess the waiting has just";
917	mes "heightened my anticipation";
918	mes "for this bottle of wi--";
919	next;
920	mes "^3355FFCling! Crrrack!^000000";
921	next;
922	mes "[Mrs. Lecollane]";
923	mes "Elly? Elly did you";
924	mes "break something again?!";
925	mes "You've got to be more careful!";
926	mes "If you don't finish baking those";
927	mes "cookies by the end of today, your";
928	mes "semester grades will suffer!";
929	next;
930	mes "[Elly]";
931	mes "B-but I just...";
932	next;
933	mes "[Mrs. Lecollane]";
934	mes "^FF0000Elly^000000!!";
935	next;
936	mes "[Elly]";
937	mes "......";
938	mes "Yes, Mrs. Lecollane.";
939	next;
940	mes "[Mrs. Lecollane]";
941	mes "Ahem Excuse me.";
942	mes "Would you please leave";
943	mes "the wine over there? You";
944	mes "may go now, and please";
945	mes "don't wander needlessly";
946	mes "around the academy.";
947	delitem 7487,1; //Culinary_Wine
948	set KielHyreQuest,4;
949	close;
950
951	case 2:
952	mes "[Mrs. Lecollane]";
953	mes "Hm...?";
954	mes "I guess I must";
955	mes "be mistaken. I'm";
956	mes "sorry, I thought you";
957	mes "were somebody else.";
958	close;
959	}
960	return;
961	}
962
963	else if (KielHyreQuest == 4) {
964	mes "[Mrs Lecollane]";
965	mes "Well, our business is";
966	mes "completed, so would you";
967	mes "please leave the campus";
968	mes "as soon as you can? Sigh";
969	mes "I can't believe our future";
970	mes "is in these girls' hands...";
971	close;
972	}
973	}
974
975	//----------------------------------------------------------------------------
976	// Elly (In school)
977	//----------------------------------------------------------------------------
978	kh_school,179,39,1 script Cute Student 895,{
979	set @now_weight,MaxWeight-Weight;
980	if (@now_weight < 2000) {
981	mes "[Elly]";
982	mes "I'm sorry, but would you";
983	mes "put some of your things in";
984	mes "your kafra Storage first or";
985	mes "soemthing? I can't really";
986	mes "help you whne you're";
987	mes "carrying so much stuff.";
988	close;
989	}
990
991	cutin "kh_elly01",2;
992	if (KielHyreQuest < 4) {
993	cutin "kh_elly03",2;
994	mes "[Elly]";
995	mes "W-wah! Oh...!";
996	mes "Phew That was close,";
997	mes "I almost dropped them";
998	mes "again! Why do I have so much";
999	mes "trouble handling ingredients?";
1000	goto KH_Elly_end;
1001	}
1002
1003	else if (KielHyreQuest == 4) {
1004	cutin "kh_elly03",2;
1005	mes "[Elly]";
1006	mes "Oh no, what should";
1007	mes "I do? Sob Wh-what";
1008	mes "am I going to do? sniff";
1009	next;
1010	switch(select("What happened?","......")) {
1011
1012	case 1:
1013	mes "[Elly]";
1014	mes "I...I have to finish baking";
1015	mes "this batch of cookies by the";
1016	mes "end of today, but then I spilled";
1017	mes "all of the ingredients on the";
1018	mes "floor. I don't know how I can";
1019	mes "bake those cookies now...";
1020	next;
1021	switch(select("What can I do to help you?","Oh, I'm so sorry.")) {
1022
1023	case 1:
1024	cutin "kh_elly02",2;
1025	mes "[Elly]";
1026	mes "What was that...?";
1027	mes "You'll really help";
1028	mes "me? That's wonderful!";
1029	mes "Thank you! Thank you so much!";
1030	next;
1031	L_Accept:
1032	cutin "kh_elly04",2;
1033	mes "[Elly]";
1034	mes "Well, I guess the only way";
1035	mes "I can bake these cookies is";
1036	mes "to get some new ingredients.";
1037	mes "I'm sorry to be such a burden,";
1038	mes "but if you didn't offer to help";
1039	mes "me, then I'd have no one to ask!";
1040	next;
1041	mes "[Elly]";
1042	mes "You don't understand how";
1043	mes "important it is that I bake";
1044	mes "these cookies...If I don't";
1045	mes "finish the assignment, then";
1046	mes "Mrs. Crank will fail me for";
1047	mes "the entire semester!";
1048	next;
1049	cutin "kh_elly03",2;
1050	mes "[Elly]";
1051	mes "Okay, I need to calm";
1052	mes "down. I think I can do";
1053	mes "this with your help.";
1054	mes "Would you please do me";
1055	mes "this huge favor and bring";
1056	mes "all these ingredients?";
1057	next;
1058	cutin "kh_elly01",2;
1059	mes "[Elly]";
1060	mes "^3355FF1 Wine^000000";
1061	mes "^3355FF7 Milks^000000";
1062	mes "^3355FF5 Cacaos^000000";
1063	mes "^3355FF2 Cheeses^000000";
1064	mes "^3355FF1 Egg^000000, and";
1065	mes "^3355FF1 Bag of flour^000000";
1066	next;
1067	mes "[Elly]";
1068	mes "Let's see...You can";
1069	mes "get Wine from the pub in";
1070	mes "Juno, Cacaos from hunting";
1071	mes "Yoyos, and you can get flour";
1072	mes "and Eggs from the girl that";
1073	mes "runs the Toast Stand in Juno.";
1074	next;
1075	mes "[Elly]";
1076	mes "Good luck, getting";
1077	mes "everything, and I hope";
1078	mes "you hurry back here with";
1079	mes "those cookie ingredients";
1080	mes "as quickly as you can, okay?";
1081	set KielHyreQuest,6;
1082	goto KH_Elly_end;
1083
1084	Case 2:
1085	mes "[Elly]";
1086	mes "What, you don't go";
1087	mes "to this school, don't";
1088	mes "you? Y-you're one of";
1089	mes "those adventurers, right?";
1090	next;
1091	switch(select("Yeah, that's right.")) {
1092
1093	mes "Listen, I know you";
1094	mes "probably have your own";
1095	mes "plans, but do you think";
1096	mes "you can help me with this";
1097	mes "huge problem that I have?";
1098	next;
1099	switch(select("Accept","Decline")) {
1100
1101	case 1:
1102	//bigsmile
1103	mes "How Wonderful!";
1104	mes "Thank you! Thank you";
1105	mes "so much! I'm supposed to";
1106	mes "finish baking this batch of";
1107	mes "cookies soon, but I spilled";
1108	mes "all of the ingredients...";
1109	next;
1110	goto L_Accept;
1111
1112	case 2:
1113	mes "["+strcharinfo(0)+"]";
1114	mes "I'm outta here.";
1115	next;
1116	emotion e_sob;
1117	mes "W-wait...!";
1118	mes "Come back, you";
1119	mes "d-don't...! I really";
1120	mes "need some help!";
1121	goto KH_Elly_end;
1122
1123	}
1124
1125	}
1126
1127	}
1128
1129	case 2:
1130	mes "Sob...";
1131	goto KH_Elly_end;
1132	}
1133
1134	}
1135
1136	else if (KielHyreQuest == 6) {
1137	//519 - Milk; 548 - Cheese; 7182 - Cacao; 7487 - Culinary_Wine; 7488 - Delivery_Package
1138	if ((countitem(519) < 7) \|\| (countitem(548) < 2) \|\| (countitem(7182) < 5) \|\| (countitem(7487) < 1) \|\| (countitem(7488) < 1)) {
1139	mes "[Elly]";
1140	mes "Let's see, would you";
1141	mes "like me to remind you";
1142	mes "which ingredients I need?";
1143	mes "Please bring these things as";
1144	mes "soon as you can so that I can";
1145	mes "quickly bake some cookies~";
1146	next;
1147	mes "[Elly]";
1148	mes "^3355FF1 Wine^000000";
1149	mes "^3355FF7 Milks^000000";
1150	mes "^3355FF5 Cacaos^000000";
1151	mes "^3355FF2 Cheeses^000000";
1152	mes "^3355FF1 Egg^000000, and";
1153	mes "^3355FF1 Bag of flour^000000";
1154	next;
1155	mes "[Elly]";
1156	mes "Let's see...You can";
1157	mes "get Wine from the pub in";
1158	mes "Juno, Cacaos from hunting";
1159	mes "Yoyos, and you can get flour";
1160	mes "and Eggs from the girl that";
1161	mes "runs the Toast Stand in Juno.";
1162	goto KH_Elly_end;
1163	}
1164	else {
1165	emotion e_ho;
1166	cutin "kh_elly02",2;
1167	mes "[Elly]";
1168	mes "Hooray! Finally, I have";
1169	mes "everything I need! This is";
1170	mes "great! Oh, would you please";
1171	mes "give me a moment while I bake";
1172	mes "these cookies? It shouldn't take";
1173	mes "long, so hold on just a bit.";
1174	set KielHyreQuest,8;
1175	//KHPubMasterEnd no longer needed-- deleting.
1176	set KHPubMasterEnd,0;
1177	delitem 519,7; //Milk
1178	delitem 548,2; //Cheese
1179	delitem 7182,5; //Cacao
1180	delitem 7487,1; //Culinary_Wine
1181	delitem 7488,1; //Delivery_Package
1182	goto KH_Elly_end;
1183
1184	}
1185
1186	}
1187
1188	else if (KielHyreQuest == 8) {
1189	cutin "kh_elly01",2;
1190	mes "[Elly]";
1191	mes "Tadah! I did it!";
1192	mes "They're finally done!";
1193	mes "''Elly's Special Cookies~''";
1194	mes "I'd like you to have some ";
1195	mes "as a thanks for helping me out";
1196	next;
1197	mes "[Elly]";
1198	mes "I'm sorry, but I was so";
1199	mes "preoccupied with baking";
1200	mes "these cookies that I didn't";
1201	mes "even ask for your name. I'm";
1202	mes "^FF0000Ellyja^000000, but everyone calls me,";
1203	mes "''Elly.'' What's your name?";
1204	next;
1205	mes "["+strcharinfo(0)+"]";
1206	mes "^3355FF"+strcharinfo(0)+"^000000.";
1207	mes "It's ^3355FF"+strcharinfo(0)+"^000000.";
1208	next;
1209	cutin "kh_elly02",2;
1210	mes "[Elly]";
1211	mes ""+strcharinfo(0)+"?";
1212	mes "...that name! It's wonderful!";
1213	set KielHyreQuest,10;
1214	getitem 538,5; //Well_Baked_Cookie
1215	goto KH_Elly_end;
1216	}
1217
1218	else if (KielHyreQuest == 10) {
1219	cutin "kh_elly01",2;
1220	mes "[Elly]";
1221	mes "I'm sorry, but I have";
1222	mes "another favor to ask you";
1223	mes "if you don't mind helping";
1224	mes "me out again. Don't worry,";
1225	mes "you won't have to hurry as";
1226	mes "quickly as you did last time.";
1227	next;
1228
1229	switch(select("What do you need?","Sorry, but I'm pretty busy...")) {
1230
1231	case 1:
1232	mes "[Elly]";
1233	mes "You know how you helped";
1234	mes "me bake those cookies?";
1235	mes "It's the first time I was able";
1236	mes "to do it without burning them!";
1237	mes "I just know Grandfather'd";
1238	mes "be so proud of me!";
1239	next;
1240	mes "[Elly]";
1241	mes "I really want Grandfather";
1242	mes "to taste the cookies I baked,";
1243	mes "but the cookies will be stale";
1244	mes "by the time I'm able to leave";
1245	mes "campus. Would you deliver these";
1246	mes "cookies to my grandfather for me?";
1247	next;
1248
1249	switch(select("Sure","I'm busy.")) {
1250
1251	case 1:
1252	cutin "kh_elly02",2;
1253	mes "[Elly]";
1254	mes "Oh, "+strcharinfo(0)+"!";
1255	mes "Thank you so much, I knew";
1256	mes "you'd understand! Would you";
1257	mes "please bring the cookies to";
1258	mes "him at ^FF0000Kiel Hyre cottage^000000?";
1259	next;
1260	mes "[Elly]";
1261	mes "Oh, right! They're really";
1262	mes "careful about visitors and";
1263	mes "keeping strangers off the";
1264	mes "property, but if you mention";
1265	mes "my name, they'll let you in.";
1266	mes "Alright then, see you~";
1267	set KielHyreQuest,12;
1268	goto KH_Elly_end;
1269
1270	case 2:
1271	cutin "kh_elly03",2;
1272	mes "[Elly]";
1273	mes "Oh, um...";
1274	mes "okay, I'm sorry to";
1275	mes "have bothered you...";
1276	goto KH_Elly_end;
1277	}
1278
1279
1280	case 2:
1281	cutin "kh_elly03",2;
1282	mes "[Elly]";
1283	mes "Oh, um...";
1284	mes "okay, I'm sorry to";
1285	mes "have bothered you...";
1286	goto KH_Elly_end;
1287	}
1288	}
1289
1290	else if (KielHyreQuest == 12) {
1291	mes "[Elly]";
1292	mes "Oh, you don't know where";
1293	mes "to find Kiel Hyre cottage?";
1294	mes "It's just north from this";
1295	mes "academy. Please deliver my";
1296	mes "cookies to grandfather, and";
1297	mes "let him know I really miss him.";
1298	goto KH_Elly_end;
1299
1300	}
1301
1302	else if (KielHyreQuest == 14) {
1303	mes "[Elly]";
1304	mes "Hm? Grandfather's not";
1305	mes "home? That's strange, he";
1306	mes "didn't mention anything about";
1307	mes "any business trips. I thought";
1308	mes "he'd be at home all day...";
1309	next;
1310	cutin "kh_elly04",2;
1311	mes "[Elly]";
1312	mes "Would you go back to his";
1313	mes "cottage once more time? Here,";
1314	mes "you can use this Cottage Key.";
1315	mes "That way, you can just go";
1316	mes "inside and talk to him~";
1317	getitem 7489,1; //Cottage Key
1318	set KielHyreQuest,16;
1319	goto KH_Elly_end;
1320	}
1321
1322	else if ((KielHyreQuest >= 14) && (KielHyreQuest < 20)) {
1323	mes "[Elly]";
1324	mes "That's so weird...";
1325	mes "I thought Grandfather";
1326	mes "said that he'd be at";
1327	mes "home all day today...";
1328	goto KH_Elly_end;
1329	}
1330
1331	else if (KielHyreQuest == 20) {
1332	mes "[Elly]";
1333	mes "Hmmm...?";
1334	mes "What's this,";
1335	mes "a letter for me?";
1336	next;
1337	mes "^3355FFElly opened the envelope^000000";
1338	mes "^3355FFand started reading the letter^000000";
1339	next;
1340	mes "Dearest Elly";
1341	mes "^FFFFFF_^000000";
1342	mes "I have something to discuss";
1343	mes "with my son Kiehl, so I am";
1344	mes "leaving to meet with him.";
1345	mes "If you don't hear from me";
1346	mes "7 days after I've written";
1347	mes "it's possible I may be in";
1348	mes "trouble. Don't trust anyone";
1349	mes "at the Academy, Elly.";
1350	mes "I've left something for you";
1351	mes "in the Study.";
1352	next;
1353	cutin "kh_elly03",2;
1354	mes "[Elly]";
1355	mes "What? Oh no, it's been";
1356	mes "ten days since he wrote";
1357	mes "this letter! Ah, does this";
1358	mes "mean that he's in danger?!";
1359	mes "Oh no, what should I do?";
1360	delitem 7490,1; //Letter_to_Elly
1361	set KielHyreQuest,22;
1362	goto KH_Elly_end;
1363	}
1364
1365	else if (KielHyreQuest == 22) {
1366	mes "[Elly]";
1367	mes "......";
1368	mes ".........";
1369	mes "............";
1370	next;
1371	switch(select("About your grandpa","Tell me about Kiehl","What's with this academy?")) {
1372
1373	case 1:
1374	mes "[Elly]";
1375	mes "Oh! My grandfather is";
1376	mes "Kiel Hyre, founder and";
1377	mes "CEO of the Kiel Hyre";
1378	mes "foundation. He looks";
1379	mes "strict and cold hearted";
1380	mes "but he's actually very nice!";
1381	next;
1382	mes "[Elly]";
1383	mes "We're not related by";
1384	mes "blood, but he's taken";
1385	mes "care of me ever since";
1386	mes "I lost my parents. Oh,";
1387	mes "Grandpa, where are you?";
1388	mes "I'm getting so worried!";
1389	goto KH_Elly_end;
1390
1391	case 2:
1392	mes "[Elly]";
1393	mes "Kiehl? That's my";
1394	mes "grandfather's son...";
1395	mes "I don't know him that";
1396	mes "well, and only saw him";
1397	mes "once at an academy event.";
1398	next;
1399	mes "[Elly]";
1400	mes "Mmm, he's a good looking";
1401	mes "guy with pale skin, silver";
1402	mes "hair, and this cold, fierce";
1403	mes "stare. A lot of my classmates";
1404	mes "worship Kiehl because he's";
1405	mes "also a business genius~";
1406	next;
1407	mes "[Elly]";
1408	mes "It's weird though...";
1409	mes "I have no idea why my";
1410	mes "grandpa and Kiehl don't";
1411	mes "get along. They're both";
1412	mes "really good at what they do.";
1413	goto KH_Elly_end;
1414
1415	case 3:
1416	mes "[Elly]";
1417	mes "Well, I know the security";
1418	mes "here is really tight, but";
1419	mes "that's because everything";
1420	mes "here is so luxurious and";
1421	mes "expensive, you know~";
1422	next;
1423	mes "[Elly]";
1424	mes "We also have a very";
1425	mes "special curriculum where";
1426	mes "you learn more of what you";
1427	mes "want. Personally, I want to";
1428	mes "become a great career woman,";
1429	mes "like ^3355FFMs. Allysia^000000. Heh heh~";
1430	next;
1431	mes "[Elly]";
1432	mes "This place certainly";
1433	mes "isn't like other schools.";
1434	mes "You already know that only";
1435	mes "Yeah, everything is made to";
1436	mes "fit each of the student's needs.";
1437	next;
1438	mes "[Elly]";
1439	mes "Recently, though?";
1440	mes "Some really weird stuff";
1441	mes "has been happening. All of";
1442	mes "my classmates are afraid of";
1443	mes "going out alone by themselves.";
1444	next;
1445	cutin "kh_elly02",2;
1446	mes "[Elly]";
1447	mes "But I'll be okay!";
1448	mes "You'll be there to";
1449	mes "rescue me from danger";
1450	mes "right, "+strcharinfo(0)+"?";
1451	next;
1452	switch(select("Who is Ms. Allysia?","Strange incidents?")) {
1453
1454	case 1:
1455	mes "[Elly]";
1456	mes "Oh, Ms. Allysia is";
1457	mes "Grandfather's secretary~";
1458	mes "She's so beautiful, and";
1459	mes "my grandfather really";
1460	mes "trusts her with everything!";
1461	goto KH_Elly_end;
1462
1463	case 2:
1464	cutin "kh_elly04",2;
1465	mes "[Elly]";
1466	mes "Well, "+strcharinfo(0)+"...";
1467	mes "I'm not supposed to tell";
1468	mes "anyone outside of the school,";
1469	mes "but I can trust you! You see...";
1470	mes "We're haunted by a ghost!";
1471	next;
1472	mes "[Elly]";
1473	mes "I know it sounds crazy,";
1474	mes "but this ghost wanders the";
1475	mes "campus, and curses it's victims,";
1476	mes "making them so cold and lifeless.";
1477	mes "It happened to my roommate,";
1478	mes "Mayo. It's like she's a statue.";
1479	next;
1480	mes "[Elly]";
1481	mes "I snuck into the medical";
1482	mes "office to see her, and she...";
1483	mes "She couldn't do anything!";
1484	mes "What would happen if the";
1485	mes "ghost decided to curse me?!";
1486	next;
1487	cutin "kh_elly02",2;
1488	mes "[Elly]";
1489	mes "You know what...?";
1490	mes "If I ever got cursed";
1491	mes "by that ghost, just yell";
1492	mes "''^FF0000Wake up, Elly!^000000''";
1493	mes "That'll wake me up for sure!";
1494	set KielHyreQuest,24;
1495	goto KH_Elly_end;
1496
1497	}
1498
1499	}
1500
1501	}
1502
1503	else if (KielHyreQuest == 24) {
1504	cutin "kh_elly04",2;
1505	mes "[Elly]";
1506	mes "Arg, I'm in a fix!";
1507	mes "I have to finish my";
1508	mes "homework before it's due!";
1509	mes "Yeah, I've got to go see";
1510	mes "Mrs. Lecollane now.";
1511	next;
1512	goto KH_Step26;
1513	}
1514
1515	else if (KielHyreQuest == 26) {
1516	KH_Step26:
1517	mes "[Elly]";
1518	mes "Say, "+strcharinfo(0)+",";
1519	mes "if it's okay, would you";
1520	mes "please go find what my";
1521	mes "grandpa left for me in";
1522	mes "the ^FF0000cottage study^000000? You're";
1523	mes "the only one I can trust!";
1524	next;
1525	mes "[Elly]";
1526	mes "Anyway, I'll see you later";
1527	mes "in the evening! Please come";
1528	mes "by my ^FF0000dorm room^000000. Um, the";
1529	mes "dorms are in the church just";
1530	mes "behind the academy, okay?";
1531	next;
1532	mes "[Elly]";
1533	mes "My room is in the back,";
1534	mes "and it's on the ^FF0000second floor^000000";
1535	mes "^FF0000on the left side^000000. Please use";
1536	mes "a ladder to come up, okay?";
1537	mes "I'll leave my window open";
1538	mes "for you, so just come, okay?";
1539	next;
1540	mes "[Elly]";
1541	mes "Hurry, hurry, the";
1542	mes "teacher's coming!";
1543	set KielHyreQuest,26;
1544	goto KH_Elly_end;
1545	}
1546
1547	else if (KielHyreQuest > 26) {
1548	mes "[Elly]";
1549	mes "Say, "+strcharinfo(0)+",";
1550	mes "if it's okay, would you";
1551	mes "please go find what my";
1552	mes "grandpa left for me in";
1553	mes "the ^FF0000cottage study^000000? You're";
1554	mes "the only one I can trust!";
1555	next;
1556	mes "[Elly]";
1557	mes "Anyway, I'll see you later";
1558	mes "in the evening! Please come";
1559	mes "by my ^FF0000dorm room^000000. Um, the";
1560	mes "dorms are in the church just";
1561	mes "behind the academy, okay?";
1562	next;
1563	mes "[Elly]";
1564	mes "My room is in the back,";
1565	mes "and it's on the ^FF0000second floor^000000";
1566	mes "^FF0000on the left side^000000. Please use";
1567	mes "a ladder to come up, okay?";
1568	mes "I'll leave my window open";
1569	mes "for you, so just come, okay?";
1570	next;
1571	mes "[Elly]";
1572	mes "Hurry, hurry, the";
1573	mes "teacher's coming!";
1574	goto KH_Elly_end;
1575	}
1576
1577	KH_Elly_end:
1578	close2;
1579	cutin "",255;
1580	end;
1581	}
1582
1583	//----------------------------------------------------------------------------
1584	// Elly's Window
1585	//----------------------------------------------------------------------------
1586	yuno_fild08,69,185,0 script Window::WindowKHQ1 111,{
1587	if ((KielHyreQuest <= 28) \|\| (KielHyreQuest >= 46)){
1588	mes "^3355FFThis must be Elly's room.^000000";
1589	mes "^3355FFIt doesn't sound like anyone^000000";
1590	mes "^3355FFis inside, so the probably^000000";
1591	mes "^3355FFisn't back yet. For now, you^000000";
1592	mes "^3355FFshould try to find what her^000000";
1593	mes "^3355FFgrandfather left for her^000000";
1594	mes "^3355FFin their cottage's study.^000000";
1595	close;
1596	}
1597
1598	if (KielHyreQuest >= 30) {
1599	mes "^3355FFThis slightly open window^000000";
1600	mes "^3355FFmust lead into Elly's room.^000000";
1601	mes "^3355FFAlthought she asked you to^000000";
1602	mes "^3355FFfind a ladder to enter her^000000";
1603	mes "^3355FFwindow, you probably won't^000000";
1604	mes "^3355FFfind one. You might be able^000000";
1605	mes "^3355FFto climb up that water pipe...^000000";
1606	next;
1607	switch(select("Climb Water Pipe","Find Another Way")) {
1608
1609	case 1:
1610	set @KHClimbAttempt,rand(1,5);
1611	if (@KHClimbAttempt == 1) {
1612	mes "^3355FFYou climbed up the^000000";
1613	mes "^3355FFwater pipe, and sneaked^000000";
1614	mes "^3355FFinto Elly's room successfully.^000000";
1615	close2;
1616	warp "kh_school",185,185;
1617	end;
1618	}
1619
1620	else {
1621	mes "^3355FFYou tried to climb^000000";
1622	mes "^3355FFthe water pope, but^000000";
1623	mes "^3355FFyou ended up failing^000000";
1624	mes "^3355FFand bumping your head^000000";
1625	percentheal -10,0;
1626	close;
1627	}
1628
1629	case 2:
1630	mes "^3355FFThere must be some^000000";
1631	mes "^3355FFother way to get into^000000";
1632	mes "^3355FFElly's room, aside from^000000";
1633	mes "^3355FFclimbing up this water pipe...^000000";
1634	close;
1635
1636	}
1637
1638	}
1639
1640	}
1641
1642	//----------------------------------------------------------------------------
1643	// Elly (In Dormitory)
1644	//----------------------------------------------------------------------------
1645	kh_school,178,180,5 script Elly 895,{
1646	set @now_weight,MaxWeight-Weight;
1647	if (@now_weight < 2000) {
1648	mes "^3355FF- Wait!! -";
1649	mes "- You are carrying too many items";
1650	mes "- and are unable to accept any more. -";
1651	mes "- Please make some space avaliable";
1652	mes "- in your inventory before returning. -^000000";
1653	close;
1654	}
1655
1656	if (KielHyreQuest < 30) {
1657	mes "[Elly]";
1658	mes "Oh~!";
1659	mes "Who are you!";
1660	mes "How did you get here? Please leave";
1661	close2;
1662	percentheal -99,0;
1663	warp "yuno_fild08",100,100;
1664	end;
1665	}
1666
1667	else if (KielHyreQuest == 32) {
1668	mes "[Elly]";
1669	mes "......";
1670	mes ".........";
1671	mes "............";
1672	next;
1673	mes "^3355FFElly seems to have^000000";
1674	mes "^3355FFbeen cursed, and is^000000";
1675	mes "^3355FFcompletely still and^000000";
1676	mes "^3355FFlifeless. You've got to^000000";
1677	mes "^3355FFtry something, but what?^000000";
1678	next;
1679
1680	switch(select("Wake her up by shaking.","Wake her up by yelling.","Ignore")) {
1681
1682	case 1:
1683	mes "^3355FFYou grab Elly by the^000000";
1684	mes "^3355FFshoulders and try to get^000000";
1685	mes "^3355FFher to respond by violently^000000";
1686	mes "^3355FFshaking her entire body.^000000";
1687	next;
1688	mes "["+strcharinfo(0)+"]";
1689	mes "Elly? Elly? no!";
1690	mes "Come back to us!";
1691	next;
1692	mes "^3355FFElly's not responding...^000000";
1693	close;
1694
1695	case 2:
1696	input @KHInput$;
1697	if (@KHInput$ == "Wake up, Elly!") {
1698	mes "[Elly]";
1699	mes ".........";
1700	mes "^3355FFAs soon as you said those^000000";
1701	mes "^3355FFwords, a ^000000Small Golden Key^000000";
1702	mes "^3355FFand a ^000000Button^3355FF drop from Elly's^000000";
1703	mes "^3355FFhands. It looks like she woke^000000";
1704	mes "^3355FFup, but only for an instant.^000000";
1705	getitem 7493,1; //Golden_Key
1706	getitem 7494,1; //Exquisite_Button
1707	set KielHyreQuest,34;
1708	close;
1709	}
1710
1711	else {
1712	mes "[Elly]";
1713	mes "......";
1714	mes ".........";
1715	mes "............";
1716	next;
1717	mes "^3355FFElly's not responding...^000000";
1718	close;
1719	}
1720
1721	case 3:
1722	mes "^3355FFAlright.^000000";
1723	mes "^3355FFBut sooner or later,^000000";
1724	mes "^3355FFyou should try to break^000000";
1725	mes "^3355FFthe curse placed on Elly.^000000";
1726	close;
1727
1728	}
1729
1730	}
1731
1732	else if (KielHyreQuest == 34) {
1733	if (countitem(7491) < 1) {
1734	//Missing text, needs another run through.
1735	mes "^3355FFMaybe the golden key^000000";
1736	mes "unlocks something in the^000000";
1737	mes "Cottage. Let's take another look.^000000";
1738	close;
1739	}
1740
1741	else {
1742	mes "^3355FFIt looks like Elly's^000000";
1743	mes "^3355FFGolden Key might fit^000000";
1744	mes "^3355FFinto the keyhole on the^000000";
1745	mes "^3355FFSteel Box you found inside^000000";
1746	mes "^3355FFKiel Hyre's Cottage.^000000";
1747	next;
1748	mes "^3355FFYou successfully open the^000000";
1749	mes "^3355FFSteel Box with the Golden Key,^000000";
1750	mes "^3355FFand find a Blue Keycard, along^000000";
1751	mes "^3355FFwith a folded note, inside the^000000";
1752	mes "^3355FFSteel Box. You quickly read^000000";
1753	mes "^3355FFthe note's contents...^000000";
1754	next;
1755	mes "Dearest Elly,";
1756	mes "Kiehl finally broke the taboo,";
1757	mes "and tried to transform you guys";
1758	mes "into something horrible.";
1759	mes "^FFFFFF_^000000";
1760	mes "By the time you read this,";
1761	mes "my life is probably in danger.";
1762	mes "Whether I live depends on you.";
1763	mes "^FFFFFF_^000000";
1764	mes "You'll already learn if you";
1765	mes "meet Puppet, but I want to tell";
1766	mes "you myself: you're not human.";
1767	mes "You'll learn the details if you";
1768	mes "enter the factory by using the";
1769	mes "entrance near the grave next";
1770	mes "to the church. Then, I want";
1771	mes "you to find Allysia inside";
1772	mes "the factory's secret room.";
1773	mes "I've registered your name in";
1774	mes "her security system, so don't";
1775	mes "worry. Hopefully, Allysia will";
1776	mes "then come to save me...";
1777	mes "^FFFFFF_^000000";
1778	mes "Sorry about that,";
1779	mes "Grandpa";
1780	getitem 7495,1; //Blue_Keycard
1781	delitem 7491,1; //Steel_box
1782	set KielHyreQuest,36;
1783	close;
1784	}
1785
1786	}
1787
1788	else if (KielHyreQuest >= 36) {
1789	mes "^3355FFThis is where you^000000";
1790	mes "^3355FFdiscovered the note^000000";
1791	mes "^3355FFlocked inside the Steel Box.^000000";
1792	mes "^3355FFThe following message was^000000";
1793	mes "^3355FFwritten in the note by Elly's^000000";
1794	mes "^3355FFgrandfather, Kiel Hyre.^000000";
1795	next;
1796	mes "Dearest Elly,";
1797	mes "Kiehl finally broke the taboo,";
1798	mes "and tried to transform you guys";
1799	mes "into something horrible.";
1800	mes "^FFFFFF_^000000";
1801	mes "By the time you read this,";
1802	mes "my life is probably in danger.";
1803	mes "Whether I live depends on you.";
1804	mes "^FFFFFF_^000000";
1805	mes "You'll already learn if you";
1806	mes "meet Puppet, but I want to tell";
1807	mes "you myself: you're not human.";
1808	mes "You'll learn the details if you";
1809	mes "enter the factory by using the";
1810	mes "entrance near the grave next";
1811	mes "to the church. Then, I want";
1812	mes "you to find Allysia inside";
1813	mes "the factory's secret room.";
1814	mes "I've registered your name in";
1815	mes "her security system, so don't";
1816	mes "worry. Hopefully, Allysia will";
1817	mes "then come to save me...";
1818	mes "^FFFFFF_^000000";
1819	mes "Sorry about that,";
1820	mes "Grandpa";
1821	close;
1822	}
1823
1824	}
1825
1826	//----------------------------------------------------------------------------
1827	// Cookie Basket
1828	//----------------------------------------------------------------------------
1829	kh_school,175,175,0 script Cookie Basket 111,{
1830	if (KielHyreQuest == 30) {
1831	mes "^3355FFThis must be^000000";
1832	mes "^3355FFElly's cookie basket.^000000";
1833	mes "^3355FFThere appears to be^000000";
1834	mes "^3355FFa folded note wedged^000000";
1835	mes "^3355FFbetween the cookies.^000000";
1836	next;
1837
1838	switch(select("Read Note","Ignore")) {
1839
1840	case 1:
1841	mes ""+strcharinfo(0)+", help!";
1842	mes "There's this guy dressed in";
1843	mes "black who's walking around,";
1844	mes "and casting this weird spell!";
1845	mes "He's the one that's been making";
1846	mes "people cold and lifeless as";
1847	mes "puppets! I'm getting scared!";
1848	mes "^FFFFFF_^000000";
1849	mes "I hope you get this note...";
1850	mes "He ran after me, but I locked";
1851	mes "myself in my room. I'm going";
1852	mes "to leave my window open so that";
1853	mes "you can still find me. I hope he";
1854	mes "doesn't cast his curse on me!";
1855	set KielHyreQuest,32;
1856	close;
1857
1858	case 2:
1859	mes "^3355FFThat note probably^000000";
1860	mes "^3355FFwasn't written just^000000";
1861	mes "^3355FFfor you, anyway.^000000";
1862	close;
1863
1864	}
1865	}
1866
1867	else if (KielHyreQuest >= 32) {
1868	mes "^3355FFThese cookies aren't^000000";
1869	mes "^3355FFstale yet, but they're no^000000";
1870	mes "^3355FFlonger warm. If they're^000000";
1871	mes "^3355FFnot room temperature,^000000";
1872	mes "^3355FFthen they're a little cold.^000000";
1873	close;
1874	}
1875	end;
1876	}
1877
1878	//----------------------------------------------------------------------------
1879	// Elly's Window (In Dormitory)
1880	//----------------------------------------------------------------------------
1881	kh_school,188,185,0 script Window::WindowKHQ2 111,{
1882	warp "yuno_fild08",69,183;
1883	end;
1884	}
1885
1886	//----------------------------------------------------------------------------
1887	// Grave/Kiel Hyre dungeon entry
1888	//----------------------------------------------------------------------------
1889	yuno_fild08,72,170,0 script Grave 111,{
1890	if (KielHyreQuest < 36) {
1891	//Missing text, needs another run through.
1892	mes "^3355FFIt's just a grave.^000000";
1893	mes "^3355FFIt might be important^000000";
1894	mes "^3355FFto you later, but now^000000";
1895	mes "^3355FFit's not really all that^000000";
1896	mes "^3355FFhelpful to you.^000000";
1897	close;
1898	}
1899
1900	else if (KielHyreQuest == 36) {
1901	if (countitem(7492) < 1) {
1902
1903	mes "^3355FFThere's a secret door^000000";
1904	mes "^3355FFnear this grave. It looks^000000";
1905	mes "^3355FFlike there's some kind of^000000";
1906	mes "^3355FFslot and a number pad^000000";
1907	mes "^3355FFinstalled on the door.^000000";
1908	close;
1909	}
1910
1911	else {
1912	mes "^3355FFThere's a secret door^000000";
1913	mes "^3355FFnear this grave. It looks^000000";
1914	mes "^3355FFlike there's some kind of^000000";
1915	mes "^3355FFslot and a number pad^000000";
1916	mes "^3355FFinstalled on the door.^000000";
1917	next;
1918	mes "^3355FFWhat should you^000000";
1919	mes "^3355FFinsert into the slot?^000000";
1920	next;
1921
1922	input @KHInput$;
1923
1924	if (@KHInput$ == "Yellow Keycard") {
1925	mes "^3355FFAn electronic confirmation^000000";
1926	mes "^3355FFchime sounds once you insert^000000";
1927	mes "^3355FFthe Yellow Keycard, followed by^000000";
1928	mes "^3355FFan automated voice that asks:^000000";
1929	next;
1930	mes "[Security System]";
1931	mes "Please enter the password.";
1932	next;
1933
1934	input @KHInput$;
1935
1936	next;
1937
1938	if (@KHInput$ == "4772961") {
1939	mes "[Security System]";
1940	mes "Password confirmed.";
1941	mes "Welcome, Kiel Hyre.";
1942	next;
1943	mes "^3355FFYou hear another^000000";
1944	mes "^3355FFpleasant beep, and^000000";
1945	mes "^3355FFa secret path opens.^000000";
1946	set KielHyreQuest,38;
1947	close;
1948	}
1949
1950	else {
1951	mes "[Security System]";
1952	mes "Incorrect password.";
1953	mes "Please try again.";
1954	close;
1955	}
1956	}
1957
1958	else {
1959	mes "^3355FFWhatever you're trying^000000";
1960	mes "^3355FFto insert into the slot^000000";
1961	mes "^3355FFisn't working at all...^000000";
1962	close;
1963	}
1964
1965	}
1966
1967	}
1968
1969	else if ((KielHyreQuest >= 38) && (KielHyreQuest < 106)) {
1970	mes "^3355FFThe door to the^000000";
1971	mes "^3355FFfactory is wide open.^000000";
1972	next;
1973
1974	switch(select("Enter","Cancel")) {
1975
1976	case 1:
1977	warp "kh_dun01",3,230;
1978	end;
1979	case 2:
1980	mes "......";
1981	mes ".........";
1982	mes "............";
1983	close;
1984	}
1985
1986	}
1987
1988	else if (KielHyreQuest >= 106) {
1989	if (countitem(7509) < 1) {
1990	mes "^3355FFThe secret entrance";
1991	mes "has now been sealed.^000000";
1992	close;
1993	}
1994
1995	else {
1996	mes "As you aproach the";
1997	mes "grave, it begins to";
1998	mes "emit flashes of light.^000000";
1999	next;
2000
2001	switch(select("Use the ^0000FFLuxurious Keycard^000000","Ignore")) {
2002
2003	case 1:
2004	mes "Once you use the";
2005	mes "Luxurious Keycard,";
2006	mes "a secret path opens^000000";
2007	next;
2008
2009	switch(select("Enter","cancel")) {
2010
2011	case 1:
2012	warp "kh_dun01",3,230;
2013	end;
2014
2015	case 2:
2016	mes "......";
2017	mes ".........";
2018	mes "............";
2019	close;
2020
2021	}
2022
2023	case 2:
2024	mes "......";
2025	mes ".........";
2026	mes "............";
2027	close;
2028
2029	}
2030
2031	}
2032
2033	}
2034
2035	}
2036
2037	//============================================================================
2038
2039	//============================================================================
2040	//Kiel Hyre Cottage NPCs
2041	//============================================================================
2042
2043	//----------------------------------------------------------------------------
2044	// Cottage Keeper
2045	//----------------------------------------------------------------------------
2046	yuno_fild02,93,210,3 script Cottage Keeper 85,{
2047	if ((KielHyreQuest < 12) \|\| (KielHyreQuest > 12)) {
2048	mes "[Cottage Keeper]";
2049	mes "This is private property,";
2050	mes "so please do not enter this";
2051	mes "area unless you're authorized.";
2052	close;
2053	}
2054
2055	else if (KielHyreQuest == 12) {
2056	mes "[Cottage Keeper]";
2057	mes "This is private property,";
2058	mes "so please do not enter this";
2059	mes "area unless you're authorized.";
2060	next;
2061
2062	switch(select("I have an appointment with Kiel Hyre.","Alright.")) {
2063
2064	case 1:
2065	mes "[Cottage Keeper]";
2066	mes "You have an";
2067	mes "appointment with";
2068	mes "Master Kiel Hyre?";
2069	mes "Um, are you sure?";
2070	next;
2071	switch(select("Yes","No")) {
2072
2073	case 1:
2074	mes "[Cottage Keeper]";
2075	mes "There must be some sort";
2076	mes "of mistake. Mister Hyre";
2077	mes "wouldn't have left if he";
2078	mes "was supposed to keep";
2079	mes "an appointment...";
2080	set KielHyreQuest,14;
2081	close;
2082
2083	case 2:
2084	mes "[Cottage Keeper]";
2085	mes "Well unless you have";
2086	mes "an appointment, I don't";
2087	mes "think you'll be able to";
2088	mes "meet with Mister Hyre.";
2089	close;
2090	}
2091
2092	case 2:
2093	mes "[Cottage Keeper]";
2094	mes "Goodbye.";
2095	close;
2096	}
2097	}
2098	}
2099
2100	//----------------------------------------------------------------------------
2101	// Cottage Door (left)
2102	//----------------------------------------------------------------------------
2103	yuno_fild02,75,218,0 script Door::DoorKHQ1 111,{
2104	if (KielHyreQuest < 16) {
2105	mes "^3355FFThis door is locked.^000000";
2106	mes "^3355FFIf someone inside won't^000000";
2107	mes "^3355FFopen it for you, then you'll^000000";
2108	mes "^3355FFneed the right key to unlock it.^000000";
2109	close;
2110	}
2111
2112	if (KielHyreQuest == 16) {
2113	mes "^3355FFThis door is locked.^000000";
2114	mes "^3355FFIf someone inside won't^000000";
2115	mes "^3355FFopen it for you, then you'll^000000";
2116	mes "^3355FFneed the right key to unlock it.^000000";
2117	next;
2118
2119	switch(select("Unlock","Cancel")) {
2120
2121	case 1:
2122	mes "^3355FFYou unlock the door with the^000000";
2123	mes "^3355FFkey that Elly gave you, and^000000";
2124	mes "^3355FFas you push it open, a folded^000000";
2125	mes "^3355FFnote dropped from the top of the^000000";
2126	mes "^3355FFdoor. The following words^000000";
2127	mes "^3355FFare written on this crude note.^000000";
2128	next;
2129	mes "6 Forward,";
2130	mes "3 Left,";
2131	mes "3 Forward,";
2132	mes "4 Left";
2133	close2;
2134	set KielHyreQuest,18;
2135	warp "kh_vila",188,18;
2136	end;
2137
2138	case 2:
2139	mes "......";
2140	mes ".........";
2141	mes "............";
2142	close;
2143	}
2144	}
2145
2146	if (KielHyreQuest >= 18) {
2147	mes "^3355FFThe door is open.^000000";
2148	next;
2149
2150	switch(select("Enter","Cancel")) {
2151
2152	case 1:
2153	warp "kh_vila",188,18;
2154	end;
2155
2156	case 2:
2157	close;
2158	}
2159	}
2160	}
2161
2162	//----------------------------------------------------------------------------
2163	// Cottage Door (Right)
2164	//----------------------------------------------------------------------------
2165	yuno_fild02,109,218,0 script Door::DoorKHQ2 111,{
2166	if (KielHyreQuest < 16) {
2167	mes "^3355FFThis door is locked.^000000";
2168	mes "^3355FFIf someone inside won't^000000";
2169	mes "^3355FFopen it for you, then you'll^000000";
2170	mes "^3355FFneed the right key to unlock it.^000000";
2171	close;
2172	}
2173
2174	if (KielHyreQuest >= 16) {
2175	mes "^3355FFThis door is locked.^000000";
2176	mes "^3355FFIf someone inside won't^000000";
2177	mes "^3355FFopen it for you, then you'll^000000";
2178	mes "^3355FFneed the right key to unlock it.^000000";
2179	next;
2180
2181	switch(select("Open","Cancel")) {
2182
2183	case 1:
2184	mes "^3355FFYou don't have^000000";
2185	mes "^3355FFthe key that can^000000";
2186	mes "^3355FFunlock this door.^000000";
2187	close;
2188
2189	case 2:
2190	mes "......";
2191	mes ".........";
2192	mes "............";
2193	close;
2194	}
2195	}
2196	}
2197
2198
2199	//----------------------------------------------------------------------------
2200	// Store room interior; Wall
2201	//----------------------------------------------------------------------------
2202	kh_vila,191,14,0 script Wall 111,{
2203	if (KielHyreQuest < 28) {
2204	mes "^3355FFIt's just a wall.^000000";
2205	mes "^3355FFIt's not particularly^000000";
2206	mes "^3355FFstanding in your way.^000000";
2207	close;
2208	}
2209
2210	if (KielHyreQuest >= 28) {
2211	mes "^3355FFThe wall is now^000000";
2212	mes "^3355FFopen, revealing^000000";
2213	mes "^3355FFa secret path.^000000";
2214	next;
2215
2216	switch(select("Enter","Cancel")) {
2217
2218	case 1:
2219	warp "kh_vila",17,177;
2220	end;
2221
2222	case 2:
2223	close;
2224	}
2225
2226	}
2227
2228	OnOpenDoor:
2229	misceffect 316;
2230	end;
2231	}
2232
2233	//----------------------------------------------------------------------------
2234	// Store room interior; books
2235	//----------------------------------------------------------------------------
2236	kh_vila,184,20,0 script Book#1::BookKHQ1 111,{
2237	if ((KielHyreQuest < 26) \|\| (KielHyreQuest > 26)) {
2238	mes "^3355FFThis bookshelf is^000000";
2239	mes "^3355FFcrammed with many^000000";
2240	mes "^3355FFlarge, hardcover books^000000";
2241	close;
2242	}
2243	else if (KielHyreQuest == 26) {
2244	if (rand(1,10) == 8) {
2245	mes "^3355FFWithout thinking, you^000000";
2246	mes "^3355FFreach for a book from^000000";
2247	mes "^3355FFthe bookshelf. As you^000000";
2248	mes "^3355FFpull it toward you, the^000000";
2249	mes "^3355FFwall slides open to^000000";
2250	mes "^3355FFreveal a secret path.^000000";
2251	donpcevent "Wall::OnOpenDoor";
2252	set KielHyreQuest,28;
2253	close;
2254	}
2255
2256	else {
2257	mes "^3355FFThis bookshelf is^000000";
2258	mes "^3355FFcrammed with many^000000";
2259	mes "^3355FFlarge, hardcover books^000000";
2260	close;
2261	}
2262
2263	}
2264
2265	}
2266
2267	kh_vila,181,20,0 duplicate(BookKHQ1) Book#2::BookKHQ2 111
2268
2269	kh_vila,178,20,0 duplicate(BookKHQ1) Book#3::BookKHQ3 111
2270
2271	kh_vila,175,19,0 duplicate(BookKHQ1) Book#4::BookKHQ4 111
2272
2273	//----------------------------------------------------------------------------
2274	// Store room interior; Letter to Elly on the floor.
2275	//----------------------------------------------------------------------------
2276	kh_vila,179,11,0 script KH_Letter_Trigger -1,2,2,{
2277	OnTouch:
2278	if (KielHyreQuest == 18) {
2279	if (checkweight(7490,1) == 0) {
2280	mes "^3355FF- Wait!! -";
2281	mes "- You are carrying too many items";
2282	mes "- and are unable to accept any more. -";
2283	mes "- Please make some space avaliable";
2284	mes "- in your inventory before returning. -^000000";
2285	close;
2286	}
2287	mes "^3355FFYou've found a letter^000000";
2288	mes "^3355FFon the floor. Naturally,^000000";
2289	mes "^3355FFyou pick it up, despite^000000";
2290	mes "^3355FFthe fact that it's not^000000";
2291	mes "^3355FFaddressed to you.^000000";
2292	getitem 7490,1; //Letter to Elly
2293	set KielHyreQuest,20;
2294	close;
2295	}
2296	end;
2297	}
2298
2299	//----------------------------------------------------------------------------
2300	// Cottage interior, kitchen; Box (Pet Food vending machine)
2301	//----------------------------------------------------------------------------
2302	kh_vila,16,175,0 script Box::BoxKHQ1 111,{
2303	mes "^FFFFFF##^000000Tasty-Nutricious-Delicious";
2304	mes "Cute Pet Doof Vending Machine";
2305	mes "The best food for your Cute Pets";
2306	mes "that is superior to the Pet Food";
2307	mes "you can buy in the market!";
2308	mes "^FFFFFF_^000000";
2309	mes "Price: 1,100 zeny (cheap!)";
2310	next;
2311
2312	switch(select("Buy!","Cancel")) {
2313
2314	case 1:
2315	mes "^3355FF1,100 zeny seems kind";
2316	mes "^3355FFof expensive for Pet Food,";
2317	mes "^3355FFbut if it's better than the";
2318	mes "^3355FFnormal stuff, it might";
2319	mes "^3355FFbe worth a shot.";
2320	next;
2321	if (zeny < 1100) {
2322	//Adlibbed dialog. Need weight check, too.
2323	mes "^3355FFYou don't have enough zeny...^000000";
2324	close;
2325	}
2326	else {
2327	mes "^3355FFOh no...!^000000";
2328	mes "^3355FFThere's nothing^000000";
2329	mes "^3355FFspecial about it^000000";
2330	mes "^3355FFat all! It's just^000000";
2331	mes "^3355FFnormal Pet Food!^000000";
2332	set zeny,zeny-1100;
2333	getitem 537,1; //Pet_Food
2334	close;
2335	}
2336
2337	case 2:
2338	mes "^3355FFThis vending machine^000000";
2339	mes "^3355FFseems really shady and^000000";
2340	mes "^3355FFsuspicious for some reason.^000000";
2341	close;
2342	}
2343
2344	}
2345
2346	//----------------------------------------------------------------------------
2347	// Cottage interior, kitchen; Apple Box (Useless?)
2348	//----------------------------------------------------------------------------
2349	kh_vila,30,184,0 script Apple Box 111,{
2350	mes "^3355FFYou find a box filled with^000000";
2351	mes "^3355FFripe, delicious apples.^000000";
2352	next;
2353
2354	switch(select("Take the box","Leave it")) {
2355
2356	case 1:
2357	mes "^3355FFNo...! Wait!^000000";
2358	mes "^3355FFSomething's wrong!^000000";
2359	mes "^3355FFWhatever you do,^000000";
2360	mes "^3355FFdon't take this box!^000000";
2361	next;
2362	mes "^3355FFAnd so, your inner^000000";
2363	mes "^3355FFvoice, your Jungian^000000";
2364	mes "^3355FFshadow if you will,^000000";
2365	mes "^3355FFprevented you from^000000";
2366	mes "^3355FFtaking the box.^000000";
2367	close;
2368
2369	case 2:
2370	mes "^3355FFSomething is wrong^000000";
2371	mes "^3355FFwith this box of apples.^000000";
2372	close;
2373
2374	}
2375
2376	}
2377
2378	//----------------------------------------------------------------------------
2379	// Cottage interior, dining room; Map
2380	//----------------------------------------------------------------------------
2381	kh_vila,44,126,0 script Map 111,{
2382	if ((KHCottagePoem1 < 2) && (KielHyreQuest < 30)) {
2383	mes "^3355FFA magnificent world map,^000000";
2384	mes "^3355FFdetailing the Rune-Midgarts^000000";
2385	mes "^3355FFKingdom, Schwaltzvalt Republic,^000000";
2386	mes "^3355FFas well as another country to the^000000";
2387	mes "^3355FFWest whose name is unfamiliar^000000";
2388	mes "^3355FFto you, is pasted to this wall.^000000";
2389	next;
2390	mes "^3355FFAs you examine the^000000";
2391	mes "^3355FFworld map more closely,^000000";
2392	mes "^3355FFyou find that something has^000000";
2393	mes "^3355FFbeen hidden underneath it.^000000";
2394	next;
2395
2396	switch(select("Ignore","Examine")) {
2397
2398	case 1:
2399	mes "^3355FFWhatever might be^000000";
2400	mes "^3355FFhidden beneath this^000000";
2401	mes "^3355FFmap probably isn't^000000";
2402	mes "^3355FFimportant enough for^000000";
2403	mes "^3355FFyou to investigate.^000000";
2404	close;
2405
2406	case 2:
2407	mes "^3355FFUnfortunately, you can't^000000";
2408	mes "^3355FFsee what's under the map^000000";
2409	mes "^3355FFsince it's pasted to the wall.^000000";
2410	mes "^3355FFYou'll need to find some^000000";
2411	mes "^3355FFway to loosen the blue^000000";
2412	mes "^3355FFwithout damaging the map.^000000";
2413	set KHCottagePoem1,1;
2414	close;
2415
2416	}
2417
2418	}
2419
2420	else if ((KHCottagePoem1 == 2) && (KielHyreQuest < 30)) {
2421	mes "^3355FFYou bring the pot of^000000";
2422	mes "^3355FFsteaming hot liquid^000000";
2423	mes "^3355FFclose to the world map.^000000";
2424	mes "^3355FFAs the paste on the wall^000000";
2425	mes "^3355FFmoistens, the map slowly^000000";
2426	mes "^3355FFbegins to peel back.^000000";
2427	next;
2428	mes "^3355FFThe peelnig map revealed^000000";
2429	mes "^3355FFa folded piece of paper^000000";
2430	mes "^3355FFhidden beneath it. You^000000";
2431	mes "^3355FFtake the paper, and smooth^000000";
2432	mes "^3355FFthe map out to adhere it to^000000";
2433	mes "^3355FFthe wall once again. A message is^000000";
2434	mes "^3355FFwritten on the piece of paper.^000000";
2435	next;
2436	mes "^808080She will be in a place^000000";
2437	mes "^808080as cold as the poles.^000000";
2438	mes "^808080When the well is dried^000000";
2439	mes "^808080and the earth is cracked,^000000";
2440	mes "^808080the path to her heart, a^000000";
2441	mes "^808080heart as transparent as^000000";
2442	mes "^808080crystal, will be open.^000000";
2443	next;
2444	mes "^808080I'll have to fight four^000000";
2445	mes "^808080snakes with four swords^000000";
2446	mes "^808080to find her. The first sword^000000";
2447	mes "^808080is love. The second sword^000000";
2448	mes "^808080is despair. The third sword^000000";
2449	mes "^808080is rage. The fourth sword is^000000";
2450	mes "^808080hope. To find her, to rescue her.^000000";
2451	next;
2452	mes "^3355FF......................^000000";
2453	mes "^3355FFThe deeper meaning^000000";
2454	mes "^3355FFof this poem, if it even^000000";
2455	mes "^3355FFexists, eludes you.^000000";
2456	set KHCottagePoem1,3;
2457	close;
2458	}
2459
2460	else if ((KHCottagePoem1 > 2) \|\| (KielHyreQuest >= 30)) {
2461	mes "^3355FFThis is where you found^000000";
2462	mes "^3355FFthe paper on which the^000000";
2463	mes "^3355FFpoem was written. Perhaps^000000";
2464	mes "^3355FFit would be a good idea to^000000";
2465	mes "^3355FFrefresh your memory and^000000";
2466	mes "^3355FFread that that poem again.^000000";
2467	next;
2468
2469	switch(select("Read","Cancel")) {
2470
2471	case 1:
2472	mes "^808080She will be in a place^000000";
2473	mes "^808080as cold as the poles.^000000";
2474	mes "^808080When the well is dried^000000";
2475	mes "^808080and the earth is cracked,^000000";
2476	mes "^808080the path to her heart, a^000000";
2477	mes "^808080heart as transparant as^000000";
2478	mes "^808080crystal, will be open.^000000";
2479	next;
2480	mes "^808080I'll have to fight four^000000";
2481	mes "^808080snakes with four swords^000000";
2482	mes "^808080to find her. The first sword^000000";
2483	mes "^808080is love. The second sword^000000";
2484	mes "^808080is despair. The third sword^000000";
2485	mes "^808080is rage. The fourth sword is^000000";
2486	mes "^808080hope. To find her, to rescue her.^000000";
2487	next;
2488	mes "^3355FF......................^000000";
2489	mes "^3355FFThe deeper meaning^000000";
2490	mes "^3355FFof this poem, if it even^000000";
2491	mes "^3355FFexists, eludes you.^000000";
2492	close;
2493
2494	case 2:
2495	mes "^3355FFThere's no need for^000000";
2496	mes "^3355FFyou to reread this poem.^000000";
2497	mes "^3355FFYou're a freakin' genius!^000000";
2498	close;
2499
2500	}
2501
2502	}
2503
2504	}
2505
2506	//----------------------------------------------------------------------------
2507	// Cottage interior, kitchen; Pot
2508	//----------------------------------------------------------------------------
2509	kh_vila,33,184,0 script Pot 111,{
2510	if (KHCottagePoem1 < 1) {
2511	mes "^3355FFYou've found a pot^000000";
2512	mes "^3355FFfilled with boiling^000000";
2513	mes "^3355FFsteaming liquid.^000000";
2514	close;
2515	}
2516
2517	else if (KHCottagePoem1 == 1) {
2518	mes "^3355FFYou've found a pot^000000";
2519	mes "^3355FFfilled with boiling^000000";
2520	mes "^3355FFsteaming liquid.^000000";
2521	mes "^3355FFSteam... That you could^000000";
2522	mes "^3355FFuse to loosen the glue on^000000";
2523	mes "^3355FFthe map... You're a genius!^000000";
2524	next;
2525
2526	switch(select("Try it.","That? That won't work!")) {
2527
2528	case 1:
2529	mes "^3355FFYou picked up the^000000";
2530	mes "^3355FFboiling pot, but^000000";
2531	mes "^3355FFslightly burned your^000000";
2532	mes "^3355FFhands on accident.^000000";
2533	set KHCottagePoem1,2;
2534	close;
2535
2536	case 2:
2537	mes "^3355FFNo, no...^000000";
2538	mes "^3355FFWe'd better try^000000";
2539	mes "^3355FFsomething else.^000000";
2540	close;
2541
2542	}
2543
2544	}
2545
2546	else if ((KHCottagePoem1 > 1) \|\| (KielHyreQuest >= 30)){
2547	mes "^3355FFThis is where you^000000";
2548	mes "^3355FFpicked up the pot filled^000000";
2549	mes "^3355FFwith steaming liquid.^000000";
2550	close;
2551	}
2552
2553	}
2554
2555	//----------------------------------------------------------------------------
2556	// Cottage interior, fire place; Calabash
2557	//----------------------------------------------------------------------------
2558	kh_vila,14,55,0 script Calabash 111,{
2559	if ((countitem(7329) < 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
2560	if (checkweight(7329,1) == 0) {
2561	mes "^3355FFThat's a nice looking";
2562	mes "calabash. You might even";
2563	mes "get something from it...";
2564	mes "But first you better get";
2565	mes "rid of all your extra weight.";
2566	mes "And by weight, I mean items.^000000";
2567	close;
2568	}
2569
2570	mes "^3355FFIt's an expensive^000000";
2571	mes "^3355FFlooking calabash--^000000";
2572	mes "^3355FFor in less fancy^000000";
2573	mes "^3355FFwords, a 'gourd.'^000000";
2574	mes "^3355FFWhat do you do?^000000";
2575	next;
2576
2577	switch(select("Break Open Calabash","Look Inside Calabash","Ignore")) {
2578
2579	case 1:
2580	mes "^3355FFYou can't break^000000";
2581	mes "^3355FFopen that calabash...^000000";
2582	mes "^3355FFYou're a hero, not a vandal.^000000";
2583	mes "^3355FFNow, if this act of vandalisim^000000";
2584	mes "^3355FFcan be considered an act of^000000";
2585	mes "^3355FFheroisim, then it'd be okay.^000000";
2586	close;
2587
2588	case 2:
2589	mes "^3355FFYou tenderly place^000000";
2590
2591	mes "^3355FFyour hand into the^000000";
2592	mes "^3355FFcalabash, and gently^000000";
2593	mes "^3355FFfeel around with your^000000";
2594	mes "^3355FFfingers until you retrieve^000000";
2595	mes "^3355FFan Old Bronze Key.^000000";
2596	getitem 7329,1; //Old_Bronze_Key
2597	close;
2598
2599	case 3:
2600	mes "^3355FFThere's probably^000000";
2601	mes "^3355FFnothing inside anyway^000000";
2602	close;
2603
2604	}
2605
2606	}
2607
2608	else {
2609	mes "^3355FFThis is the expensive^000000";
2610	mes "^3355FFlooking calabash from^000000";
2611	mes "^3355FFwhich you obtained^000000";
2612	mes "^3355FFthe Old Bronze Key.^000000";
2613	mes "^3355FFIt's useless to you now.^000000";
2614	close;
2615	}
2616	}
2617
2618	//----------------------------------------------------------------------------
2619	// Cottage interior, garden; Pool
2620	//----------------------------------------------------------------------------
2621	kh_vila,39,41,0 script Pool 111,{
2622	if ((KHCottagePoem1 < 3) && (KielHyreQuest < 30)) {
2623	mes "^3355FFYou find a fancy pool^000000";
2624	mes "^3355FFfilled with fresh water.^000000";
2625	close;
2626	}
2627
2628	else if ((KHCottagePoem1 == 3) && (KielHyreQuest < 30)) {
2629	mes "^3355FFYou find a fancy pool^000000";
2630	mes "^3355FFfilled with fresh water.^000000";
2631	mes "^3355FFalong with a conspicuous^000000";
2632	mes "^3355FFlion statue with two handles.^000000";
2633	next;
2634
2635	switch(select("Pull Handles","Cancel")) {
2636
2637	case 1:
2638	mes "Which handle would^000000";
2639	mes "you like to pull first?^000000";
2640	next;
2641
2642	switch(select("Right Handle","Left Handle")) {
2643
2644	case 1:
2645	mes "^3355FFYou pull the right^000000";
2646	mes "^3355FFhandle, causing water^000000";
2647	mes "^3355FFto gush from the lion's^000000";
2648	mes "^3355FFmouth. It looks pretty cool~^000000";
2649	close;
2650
2651	case 2:
2652	mes "^3355FFAs soon as you pull the^000000";
2653	mes "^3355FFleft handle, the water in^000000";
2654	mes "^3355FFthe pool drains away. The^000000";
2655	mes "^3355FFpool empties, and you can^000000";
2656	mes "^3355FFsee a later of green moss^000000";
2657	mes "^3355FFcovering the pool's bottom.^000000";
2658	next;
2659
2660	switch(select("Ignore","Investigate")) {
2661
2662	case 1:
2663	mes "^3355FFyou decide that^000000";
2664	mes "^3355FFa pool is little more^000000";
2665	mes "^3355FFthan a hole without^000000";
2666	mes "^3355FFany water to fill it.^000000";
2667	close;
2668
2669	case 2:
2670	mes "^3355FFAs you look through^000000";
2671	mes "^3355FFthe wet moss at the^000000";
2672	mes "^3355FFbottom of the pool,^000000";
2673	mes "^3355FFyou stumble upon a^000000";
2674	mes "^3355FFsmall, peculliar button.^000000";
2675	next;
2676
2677	switch(select("Press button","Don't Press Button")) {
2678
2679	case 1:
2680	mes "^3355FFYou press the button^000000";
2681	mes "^3355FFwhich seems to trigger^000000";
2682	mes "^3355FFa strange sound coming^000000";
2683	mes "^3355FFfrom the stairs at the hallway.^000000";
2684	set KHCottagePoem1,4;
2685	close;
2686
2687	case 2:
2688	mes "^3355FFYou'd better not push^000000";
2689	mes "^3355FFthis button. Your enemies^000000";
2690	mes "^3355FFmust have hidden it carefully^000000";
2691	mes "^3355FFfor you to find. It must be^000000";
2692	mes "^3355FFsome sort of nefarious trap.^000000";
2693	close;
2694
2695	}
2696
2697	}
2698
2699	}
2700
2701	case 2:
2702	mes "^3355FFYou decided not^000000";
2703	mes "^3355FFto pull and handles.^000000";
2704	close;
2705
2706	}
2707
2708	}
2709
2710	else if ((KHCottagePoem1 > 3) \|\| (KielHyreQuest >= 30)) {
2711	mes "^3355FFThis is where you pressed^000000";
2712	mes "^3355FFthe small button that caused^000000";
2713	mes "^3355FFsome strange noise to come^000000";
2714	mes "^3355FFfrom the stairs near the wallway.^000000";
2715	close;
2716	}
2717	}
2718
2719	//----------------------------------------------------------------------------
2720	// Cottage interior, upstairs; Vicious Dog
2721	//----------------------------------------------------------------------------
2722	kh_vila,181,178,4 script Vicious Dog 81,7,3,{
2723	OnTouch:
2724	mes "Grrr~";
2725	next;
2726	mes "^3355FFAn extremely vicious^000000";
2727	mes "^3355FFlooking dog is glaring^000000";
2728	mes "^3355FFat you. Can you really^000000";
2729	mes "^3355FFpass by this creature^000000";
2730	mes "^3355FFwithout getting hurt?^000000";
2731	next;
2732
2733	switch(select("March forward","Run away")) {
2734
2735	case 1:
2736	if (countitem(537) >= 1) {
2737	mes "^3355FFWait! Perhaps you can^000000";
2738	mes "^3355FFuse food to soothe the^000000";
2739	mes "^3355FFsavage beast! Why don't^000000";
2740	mes "^3355FFyou feed it some of your Pet^000000";
2741	mes "^3355FFFood and see what happens?^000000";
2742	next;
2743
2744	switch(select("Give Pet Food","It won't work!")) {
2745
2746	case 1:
2747	mes "^3355FFYou gingerly throw the^000000";
2748	mes "^3355FFPet Food towards the dog.^000000";
2749	mes "^3355FFIts tail shakes violently as^000000";
2750	mes "^3355FFit devours the food. You'd^000000";
2751	mes "^3355FFbetter pass this dog now^000000";
2752	mes "^3355FFwhile you have the chance!^000000";
2753	delitem 537,1; //Pet_Food
2754	close2;
2755	warp "kh_vila",173,182;
2756	end;
2757
2758	case 2:
2759	NoPetFood:
2760	mes "^3355FFYou slowly approach^000000";
2761	mes "^3355FFthe dog, but it won't^000000";
2762	mes "^3355FFstop snarling at you.^000000";
2763	mes "^3355FFYou try to run past the^000000";
2764	mes "^3355FFdog, but it blocks all of^000000";
2765	mes "^3355FFyour moves. What to do?^000000";
2766	next;
2767	mes "[Vicious Dog]";
2768	mes "BOW WOW!";
2769	mes "BOW WOW!";
2770	mes "BOW WOW WOW!";
2771	next;
2772	mes "^3355FFThe dog chases you^000000";
2773	mes "^3355FFdownstairs like the^000000";
2774	mes "^3355FFsuckah chump you are.^000000";
2775	close2;
2776	warp "kh_vila",126,70;
2777	end;
2778
2779	}
2780	}
2781
2782	else {
2783	goto NoPetFood;
2784	}
2785
2786	case 2:
2787	mes "^3355FFLet's get out of here!^000000";
2788	close2;
2789	warp "kh_vila",126,70;
2790	end;
2791
2792	}
2793
2794	}
2795
2796	//----------------------------------------------------------------------------
2797	// Cottage interior, upstairs; Drawer, first room nightstand
2798	//----------------------------------------------------------------------------
2799	kh_vila,115,186,0 script Drawer::DrawerKHQ1 111,{
2800	if (checkweight(7492,1) == 0) {
2801	mes "^3355FFThere's something inside";
2802	mes "this drawer, but you can't";
2803	mes "take it since you're carrying";
2804	mes "to many items with you. Maybe";
2805	mes "you should pay a visit to your";
2806	mes "trusty Kafra Storage first.^000000";
2807	close;
2808	}
2809	if ((countitem(7492) < 1) && (KielHyreQuest <= 36)) {
2810	mes "^3355FFYou find an old drawer^000000";
2811	mes "^3355FFthat has been closed.^000000";
2812	mes "^3355FFIf you open it, then you^000000";
2813	mes "^3355FFmight find something^000000";
2814	mes "^3355FFinside. Or could it be^000000";
2815	mes "^3355FFempty. Who knows?^000000";
2816	next;
2817
2818	switch(select("Open Drawer","Ignore")) {
2819
2820	case 1:
2821	mes "^3355FFYou obtain a Yellow^000000";
2822	mes "^3355FFKeycard from inside the^000000";
2823	mes "^3355FFdrawer. Opening that drawer^000000";
2824	mes "^3355FFturned out to be worthwhile.^000000";
2825	getitem 7492,1; //Yellow_Keycard
2826	close;
2827
2828	case 2:
2829	mes "^3355FFForget opening that^000000";
2830	mes "^3355FFdrawer. I mean, come on,^000000";
2831	mes "^3355FFwhat would be the point?^000000";
2832	close;
2833	}
2834	}
2835
2836	else {
2837	mes "^3355FFThis is where you^000000";
2838	mes "^3355FFfound the Yellow Keycard.^000000";
2839	mes "^3355FFThis drawer is now empty.^000000";
2840	close;
2841	}
2842	}
2843
2844	//----------------------------------------------------------------------------
2845	// Cottage interior, upstairs; Box
2846	//----------------------------------------------------------------------------
2847	kh_vila,107,126,0 script Box::BoxKHQ2 111,{
2848	if ((countitem(7329) < 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
2849	mes "^3355FFA solid box is laid^000000";
2850	mes "^3355FFon the floor in which^000000";
2851	mes "^3355FFa smaller, locked box^000000";
2852	mes "^3355FFhas been placed inside.^000000";
2853	close;
2854	}
2855
2856	else if ((countitem(7329) >= 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
2857	mes "^3355FFA solid box is laid^000000";
2858	mes "^3355FFon the floor in which^000000";
2859	mes "^3355FFa smaller, locked box^000000";
2860	mes "^3355FFhas been placed inside.^000000";
2861	mes "^3355FFPerhaps you can use your^000000";
2862	mes "^3355FFOld Bronze Key to unlock it.^000000";
2863	next;
2864
2865	switch(select("Use Old Bronze Key","No, it'll never work.")) {
2866
2867	case 1:
2868	mes "^3355FFYour hunch paid off!^000000";
2869	mes "^3355FFThe Old Bronze Key really^000000";
2870	mes "^3355FFdid unlock that box! You^000000";
2871	mes "^3355FFopen the inner box and^000000";
2872	mes "^3355FFobtain the Green Keycard^000000";
2873	mes "^3355FFthat was locked inside.^000000";
2874	getitem 7516,1; //Green_Keycard
2875	delitem 7329,1; //Old_Bronze_Key
2876	close;
2877
2878
2879	case 2:
2880	mes "^3355FFWhat...?^000000";
2881	mes "^3355FFWhat? Using a key^000000";
2882	mes "^3355FFto unlock a lock?^000000";
2883	mes "^3355FFCome on, that's^000000";
2884	mes "^3355FFfreakin' crazy talk.^000000";
2885	close;
2886
2887	}
2888
2889	}
2890
2891	else {
2892	mes "^3355FFThis is the box from^000000";
2893	mes "^3355FFwhich you obtained^000000";
2894	mes "^3355FFthe green keycard.^000000";
2895	close;
2896	}
2897
2898	}
2899
2900	//----------------------------------------------------------------------------
2901	// Cottage interior, upstairs; Bookshelf.
2902	//----------------------------------------------------------------------------
2903	//----------------------------------------------------------------------------
2904	// Cottage interior, upstairs; Bookshelf.
2905	//----------------------------------------------------------------------------
2906	kh_vila,181,138,0 script Bookshelf::BookshelfKHQ1 111,{
2907	if (checkweight(7492,1) == 0) {
2908	mes "^3355FFYou've found a";
2909	mes "bookshelf that's";
2910	mes "crammed with books.^000000";
2911	close;
2912	}
2913
2914	if ((countitem(7491) < 1) && (countitem(7329) >= 1) \|\| (countitem(7516) >= 1)) {
2915	mes "^3355FFOne of the books on^000000";
2916	mes "^3355FFthis crammed bookshell^000000";
2917	mes "^3355FFis labeled with the note,^000000";
2918	mes "^3355FF'To Elly.' It must have been^000000";
2919	mes "^3355FFleft behind by her grandfather^000000";
2920	next;
2921	switch(select("Examine Book","Ignore")) {
2922
2923	case 1:
2924	mes "^3355FFYou skim through the^000000";
2925	mes "^3355FFbook's pages, and don't^000000";
2926	mes "^3355FFfind anything particularly^000000";
2927	mes "^3355FFinteresting. However, you^000000";
2928	mes "^3355FFnotice a steel surface behind the^000000";
2929	mes "^3355FFshelf as you place the book back.^000000";
2930	next;
2931
2932	switch(select("Examine the steel surface","Ignore")) {
2933
2934	case 1:
2935	mes "^3355FFYou remove more of the^000000";
2936	mes "^3355FFself's books to reveal^000000";
2937	mes "^3355FFthat the steel surface is^000000";
2938	mes "^3355FFpart of a safe hidden behind^000000";
2939	mes "^3355FFthe bookshelf. There are two^000000";
2940	mes "^3355FFkeyholes on the steel safe.^000000";
2941	next;
2942
2943	switch(select("Try all your keys","Cancel")) {
2944
2945	case 1:
2946	mes "^3355FFWhich key will^000000";
2947	mes "^3355FFyou insert into^000000";
2948	mes "^3355FFthe first keyhole?^000000";
2949	next;
2950
2951	if (countitem(7329) >= 1) {
2952	switch(select("Old Bronze Key","Cottage Key")) {
2953
2954	case 1:
2955	break;
2956
2957	case 2:
2958	break;
2959
2960	}
2961
2962	mes "^3355FFWhich key will^000000";
2963	mes "^3355FFyou insert into^000000";
2964	mes "^3355FFthe second keyhole?^000000";
2965	next;
2966
2967	switch(select("Old Bronze Key","Cottage Key")) {
2968
2969	case 1:
2970	break;
2971
2972	case 2:
2973	break;
2974
2975	}
2976
2977	}
2978
2979
2980	else if (countitem(7516) >= 1) {
2981
2982	switch(select("Green Keycard","Cottage Key")) {
2983
2984	case 1:
2985	set @KHFirstKeyhole,1;
2986	break;
2987
2988	case 2:
2989	set @KHFirstKeyhole,2;
2990	break;
2991
2992	}
2993
2994	mes "^3355FFWhich key will^000000";
2995	mes "^3355FFyou insert into^000000";
2996	mes "^3355FFthe second keyhole?^000000";
2997	next;
2998
2999	switch(select("Green Keycard","Cottage Key")) {
3000
3001	case 1:
3002	set @KHSecondKeyhole,1;
3003	break;
3004
3005	case 2:
3006	set @KHSecondKeyhole,2;
3007	break;
3008
3009	}
3010
3011	if (@KHFirstKeyhole == 2) && (@KHSecondKeyhole == 1) {
3012	mes "^3355FFThe safe opens with^000000";
3013	mes "^3355FFa click and you see^000000";
3014	mes "^3355FFa Steel Box inside.^000000";
3015	mes "^3355FFYou take the Steel Box^000000";
3016	mes "^3355FFwith you, hoping that^000000";
3017	mes "^3355FFwill come in handy later.^000000";
3018	delitem 7489,1; //Cottage Key
3019	delitem 7516,1; //Green_Keycard
3020	getitem 7491,1; //Steel_box
3021	close;
3022	}
3023
3024	}
3025
3026	mes "^3355FFThe safe won't open.^000000";
3027	close;
3028
3029
3030	case 2:
3031	mes "^3355FFIt's probably a better^000000";
3032	mes "^3355FFidea to investigate the^000000";
3033	mes "^3355FFcottage for the keys that^000000";
3034	mes "^3355FFwill open up this safe...^000000";
3035	close;
3036
3037	}
3038
3039	case 2:
3040	mes "^3355FFYou place the books^000000";
3041	mes "^3355FFback on the bookchelf.^000000";
3042	close;
3043
3044	}
3045
3046	case 2:
3047	mes "^3355FFYou can probably^000000";
3048	mes "^3355FFfind better clues^000000";
3049	mes "^3355FFsomewhere else^000000";
3050	mes "^3355FFaround here.^000000";
3051	close;
3052
3053	}
3054	}
3055
3056	else {
3057	mes "^3355FFYou've found a";
3058	mes "bookshelf that's";
3059	mes "crammed with books.^000000";
3060	close;
3061	}
3062
3063	}
3064
3065	//----------------------------------------------------------------------------
3066	// Cottage interior, upstairs; Desk
3067	//----------------------------------------------------------------------------
3068	kh_vila,118,143,0 script Desk::DeskKHQ1 111,{
3069	if (KHCottagePoem2 < 1) {
3070	mes "^3355FFThere are piles of papers^000000";
3071	mes "^3355FFand books stacked on top^000000";
3072	mes "^3355FFof the desk covering topics^000000";
3073	mes "^3355FFlike artificial power, Sage^000000";
3074	mes "^3355FFVarmundt's research, factory^000000";
3075	mes "^3355FFrobotization, and magic scrolls...^000000";
3076	next;
3077	mes "^3355FFWhile rummaging around through^000000";
3078	mes "^3355FFthe books and paper, you^000000";
3079	mes "^3355FFfind a piece of paper with^000000";
3080	mes "^3355FFthe Kiel Hyre Foundation's^000000";
3081	mes "^3355FFofficial seal. You decide that^000000";
3082	mes "^3355FFit might come in handy someday.^000000";
3083	next;
3084	mes "^3355FFYou've obtained^000000";
3085	mes "^3355FFa blank piece of^000000";
3086	mes "^3355FFpaper with the Kiel^000000";
3087	mes "^3355FFHyre Foundation seal.^000000";
3088	set KHCottagePoem2,1;
3089	close;
3090	}
3091
3092	else if (KHCottagePoem2 >= 1) {
3093	mes "^3355FFThere are piles of papers^000000";
3094	mes "^3355FFand books, covering various^000000";
3095	mes "^3355FFscientific and magic tomics,^000000";
3096	mes "^3355FFstacked on top of this desk.^000000";
3097	close;
3098	}
3099	}
3100
3101	//----------------------------------------------------------------------------
3102	// Cottage interior, upstairs; Medicine Chest
3103	//----------------------------------------------------------------------------
3104	kh_vila,123,170,0 script Medicine Chest 111,{
3105	if ((KHCottagePoem2 < 1) && (KielHyreQuest < 30)) {
3106	mes "^3355FFThis medicine cabinet^000000";
3107	mes "^3355FFis filled with bottles of^000000";
3108	mes "^3355FFvarious colors. What kind^000000";
3109	mes "^3355FFof medicine can be found here?^000000";
3110	close;
3111	}
3112
3113	else if ((KHCottagePoem2 == 1) && (KielHyreQuest < 30)) {
3114	mes "^3355FFThis medicine cabinet^000000";
3115	mes "^3355FFis filled with bottles of^000000";
3116	mes "^3355FFvarious colors. What kind^000000";
3117	mes "^3355FFof medicine can be found here?^000000";
3118	next;
3119	mes "^3355FFWait, you have a blank piece^000000";
3120	mes "^3355FFof paper with the Kiel Hyre^000000";
3121	mes "^3355FFFoundation seal! It's strange^000000";
3122	mes "^3355FFthat the seal was put on a blank^000000";
3123	mes "^3355FFpiece of paper. Maybe something^000000";
3124	mes "^3355FFis written on it with special ink?^000000";
3125	next;
3126	mes "^3355FFIt's a crazy hunch, but^000000";
3127	mes "^3355FFmaybe, just maybe, you can^000000";
3128	mes "^3355FFuse something inside this^000000";
3129	mes "^3355FFmedicine cabinet that will^000000";
3130	mes "^3355FFreveal any invisible ink^000000";
3131	mes "^3355FFwritten on this document!^000000";
3132	next;
3133
3134	switch(select("What? That's crazy!","Of course! Let's try it!")) {
3135
3136	case 1:
3137	mes "^3355FFSorry.^000000";
3138	mes "^3355FFI thought it^000000";
3139	mes "^3355FFwas a good idea...^000000";
3140	close;
3141
3142	case 2:
3143	switch(select("Try Red Liquid","Try Blue Liquid","Try Yellow Liquid","Try Green Liquid","Cancel")) {
3144
3145	case 1:
3146	set @KHPotionColor$,"red";
3147	break;
3148
3149	case 2:
3150	mes "^3355FFIt works!^000000";
3151	mes "^3355FFThe blue liquid is^000000";
3152	mes "^3355FFrevealing small^000000";
3153	mes "^3355FFtext written on the paper.^000000";
3154	mes "^3355FFIt looks like some^000000";
3155	mes "^3355FFkind of long poem...^000000";
3156	next;
3157	mes "[Poem]";
3158	mes "The first snake is made of";
3159	mes "steel, but I used my rage";
3160	mes "to destroy it. The second";
3161	mes "snake is made of magic,";
3162	mes "but my love pierced its heart.";
3163	next;
3164	mes "[Poem]";
3165	mes "The third snake is flesh";
3166	mes "and blood, but my hope";
3167	mes "defeated it in the end.";
3168	mes "However, the fourth and";
3169	mes "final snake is formless, and";
3170	mes "no one knows it's appearance.";
3171	next;
3172	mes "[Poem]";
3173	mes "I cast my despair to the air,";
3174	mes "but nobody knows if it killed";
3175	mes "the snake. I am merely a ^3355FFlittle";
3176	mes "lost devil^000000 with four swords and";
3177	mes "four snakes, searching for that";
3178	mes "girl in the darkness.";
3179	next;
3180	mes "^3355FFThis is a very^000000";
3181	mes "^3355FFstrange poem. What^000000";
3182	mes "^3355FFcould it possibly mean?^000000";
3183	set KHCottagePoem2,2;
3184	close;
3185
3186	case 3:
3187	set @KHPotionColor$,"yellow";
3188	break;
3189
3190	case 4:
3191	set @KHPotionColor$,"green";
3192	break;
3193
3194	case 5:
3195	mes "^3355FFNever mind.^000000";
3196	mes "^3355FFThis idea sounds^000000";
3197	mes "^3355FFtoo crazy to work...^000000";
3198	mes "^3355FFlike putting a man^000000";
3199	mes "^3355FFpn the moon. Can you^000000";
3200	mes "^3355FFbelieve that hogwash?^000000";
3201	close;
3202	}
3203
3204	mes "^3355FFYou tried sprinking^000000";
3205	mes "^3355FFthe "+@KHPotionColor$+" liquid from the^000000";
3206	mes "^3355FFmedicine cabinet onto^000000";
3207	mes "^3355FFthe blank paper with the^000000";
3208	mes "^3355FFKiel Hyre Foundation seal.^000000";
3209	mes "^3355FFHowever, nothing happened...^000000";
3210	close;
3211
3212	}
3213	}
3214
3215	else if ((KHCottagePoem2 >= 2) \|\| (KielHyreQuest >= 30)) {
3216	mes "^3355FFThis is where you poured^000000";
3217	mes "^3355FFsome blue liquid to read^000000";
3218	mes "^3355FFa poem written in invisible^000000";
3219	mes "^3355FFink on a blank poece of paper^000000";
3220	mes "^3355FFwith the Kiel Hyre Foundation^000000";
3221	mes "^3355FFseal. Would you like to read it?^000000";
3222	next;
3223
3224	switch(select("No time!","Read")) {
3225
3226	case 1:
3227	mes "^3355FFYou're running out of^000000";
3228	mes "^3355FFtime! For now, it would^000000";
3229	mes "^3355FFbe best for you to seach^000000";
3230	mes "^3355FFevery inch of the cottage.^000000";
3231	close;
3232
3233	case 2:
3234	mes "[Poem]";
3235	mes "The first snake is made of";
3236	mes "steel, but I used my rage";
3237	mes "to destroy it. The second";
3238	mes "snake is made of magic,";
3239	mes "but my love pierced its heart.";
3240	next;
3241	mes "[Poem]";
3242	mes "The third snake is flesh";
3243	mes "and blood, but my hope";
3244	mes "defeated it in the end.";
3245	mes "However, the fourth and";
3246	mes "final snake is formless, and";
3247	mes "no one knows it's appearance.";
3248	next;
3249	mes "[Poem]";
3250	mes "I cast my despair to the air,";
3251	mes "but nobody knows if it killed";
3252	mes "the snake. I am merely a ^3355FFlittle^000000";
3253	mes "^3355FFlost devil^000000 with four swords and";
3254	mes "four snakes, searching for that";
3255	mes "girl in the darkness.";
3256	close;
3257
3258	}
3259	}
3260	}
3261
3262	//----------------------------------------------------------------------------
3263	// Cottage interior, stair case; Sword hilt
3264	//----------------------------------------------------------------------------
3265	kh_vila,136,68,0 script Sword Hilt 111,{
3266	if ((KHCottagePoem1 < 3) \|\| (KHCottagePoem2 < 2) && (KielHyreQuest < 30)) {
3267	mes "^3355FFThere are four elaborately^000000";
3268	mes "^3355FFdesigned swords positioned^000000";
3269	mes "^3355FFnext to four creepy looking^000000";
3270	mes "^3355FFsnake sculptures.^000000";
3271	close;
3272	}
3273
3274	else if ((KHCottagePoem1 <= 4) \|\| (KHCottagePoem2 <= 2) && (KielHyreQuest < 30)) {
3275	mes "^3355FFThere are four elaborately^000000";
3276	mes "^3355FFdesigned swords positioned^000000";
3277	mes "^3355FFnext to four creepy looking^000000";
3278	mes "^3355FFsnake sculptures. Wait!^000000";
3279	mes "^3355FFperhaps they're related to^000000";
3280	mes "^3355FFthat poem you read earlier...^000000";
3281	next;
3282
3283	switch(select("No way!","Of course!")) {
3284
3285	case 1:
3286	mes "^3355FFImpossible...^000000";
3287	mes "^3355FFIt must be some^000000";
3288	mes "^3355FFkind of coincidence...^000000";
3289	close;
3290
3291	case 2:
3292	mes "^3355FFOf course! And look!^000000";
3293	mes "^3355FFThere's a hole on top^000000";
3294	mes "^3355FFof the head of each snake^000000";
3295	mes "^3355FFsculpture. There holes seem^000000";
3296	mes "^3355FFbig enough to insert each of^000000";
3297	mes "^3355FFthe ornamental swords nearby...^000000";
3298	next;
3299
3300	switch(select("Ignore","Insert Ornamental Swords")) {
3301
3302	case 1:
3303	mes "^3355FFImposible...^000000";
3304	mes "^3355FFIt must be some^000000";
3305	mes "^3355FFkind of coincidence...^000000";
3306	close;
3307
3308	case 2:
3309	if (KHCottagePoem1 != 4) {
3310	mes "^3355FFCan't... Pull out...^000000";
3311	mes "^3355FFSword! It must be^000000";
3312	mes "^3355FFlocked into place^000000";
3313	mes "^3355FFsomehow, or sealed^000000";
3314	mes "^3355FFby some strange force!^000000";
3315	close;
3316	}
3317
3318	else {
3319	mes "^3355FFYou should probably^000000";
3320	mes "^3355FFtry to insert each sword^000000";
3321	mes "^3355FFinto the correct snake.^000000";
3322	mes "^3355FFFirst please select the^000000";
3323	mes "^3355FFsnake in which you will^000000";
3324	mes "^3355FFinsert the first sword.^000000";
3325	next;
3326
3327	switch(select("First Snake","Second Snake","Third Snake","Fourth Snake")) {
3328
3329	case 1:
3330	set @KHfirstSword,1;
3331	break;
3332
3333	case 2:
3334	set @KHfirstSword,2;
3335	break;
3336
3337	case 3:
3338	set @KHfirstSword,3;
3339	break;
3340
3341	case 4:
3342	set @KHfirstSword,4;
3343	break;
3344
3345	}
3346
3347	next;
3348	mes "^3355FFNow, please choose^000000";
3349	mes "^3355FFthe snake in which you^000000";
3350	mes "^3355FFwill insert the second sword.^000000";
3351	next;
3352
3353	switch(select("First Snake","Second Snake","Third Snake","Fourth Snake")) {
3354
3355	case 1:
3356	set @KHSecondSword,1;
3357	break;
3358
3359	case 2:
3360	set @KHSecondSword,2;
3361	break;
3362
3363	case 3:
3364	set @KHSecondSword,3;
3365	break;
3366
3367	case 4:
3368	set @KHSecondSword,4;
3369	break;
3370
3371	}
3372
3373	next;
3374
3375	mes "^3355FFNext, please select^000000";
3376	mes "^3355FFthe snake in which you^000000";
3377	mes "^3355FFwill insert the third sword.^000000";
3378	next;
3379
3380	switch(select("First Snake","Second Snake","Third Snake","Fourth Snake")) {
3381
3382	case 1:
3383	set @KHThirdSword,1;
3384	break;
3385
3386
3387	case 2:
3388	set @KHThirdSword,2;
3389	break;
3390
3391	case 3:
3392	set @KHThirdSword,3;
3393	break;
3394
3395	case 4:
3396	set @KHThirdSword,4;
3397	break;
3398
3399	}
3400
3401	next;
3402	mes "^3355FFLastly, please select^000000";
3403	mes "^3355FFthe snake in which you^000000";
3404	mes "^3355FFwill insert the fourth sword.^000000";
3405	next;
3406
3407	switch(select("First Snake","Second Snake","Third Snake","Fourth Snake")) {
3408
3409	case 1:
3410	set @KHFouthSword,1;
3411	break;
3412
3413	case 2:
3414	set @KHFouthSword,2;
3415	break;
3416
3417	case 3:
3418	set @KHFouthSword,3;
3419	break;
3420
3421	case 4:
3422	set @KHFouthSword,4;
3423	break;
3424
3425	}
3426
3427	if ((@KHFirstSword == 2) && (@KHSecondSword == 4) && (@KHThirdSword == 1) && (@KHFouthSword == 3)) {
3428	mes "^3355FFYour ears are suddenly^000000";
3429	mes "^3355FFfilled with a low buzzing^000000";
3430	mes "^3355FFnoise, and your mind^000000";
3431	mes "^3355FFand body feel as if they^000000";
3432	mes "^3355FFare being swept away^000000";
3433	set KHCottagePoem1,5;
3434	set KHCottagePoem2,3;
3435	close2;
3436	warp "kh_vila",178,72;
3437	end;
3438	}
3439
3440	else {
3441	mes "^3355FFNothing happened...^000000";
3442	mes "^3355FFYou probably didn't^000000";
3443	mes "^3355FFinsert the swords into^000000";
3444	mes "^3355FFthe correct snakes. For now,^000000";
3445	mes "^3355FFyou should return the swords,^000000";
3446	mes "^3355FFand then try this again later.^000000";
3447	close;
3448	}
3449	}
3450	}
3451	}
3452	}
3453
3454	else if ((KHCottagePoem1 == 5) && (KHCottagePoem2 == 3) \|\| (KielHyreQuest >= 30)) {
3455	mes "^3355FFHere is a hidden^000000";
3456	mes "^3355FFpath that leads to^000000";
3457	mes "^3355FFthe secret laboratory.^000000";
3458	next;
3459
3460	switch(select("Enter","Cancel")) {
3461
3462	case 1:
3463	warp "kh_vila",178,72;
3464	end;
3465
3466	case 2:
3467	close;
3468
3469	}
3470	}
3471
3472	}
3473
3474	//----------------------------------------------------------------------------
3475	// Cottage interior, Secret Room; left test tube
3476	//----------------------------------------------------------------------------
3477	kh_vila,179,68,0 script Test Tube::TestTubeKHQ1 111,{
3478	mes "^3355FFThis test tube contains^000000";
3479	mes "^3355FFa young man dressed in^000000";
3480	mes "^3355FFa Kiel Hyre Academy^000000";
3481	mes "^3355FFuniform. Somehow, you^000000";
3482	mes "^3355FFget the feeling that you've^000000";
3483	mes "^3355FFseen him somewhere before.^000000";
3484	close;
3485	}
3486
3487
3488	//----------------------------------------------------------------------------
3489	// Cottage interior, Secret Room; Right test tube
3490	//----------------------------------------------------------------------------
3491	kh_vila,185,68,0 script Test Tube::TestTubeKHQ2 111,{
3492	if (KielHyreQuest == 28) {
3493	mes "^3355FFA strange looking,^000000";
3494	mes "^3355FFwizend old man is^000000";
3495	mes "^3355FFheld within this test tube.^000000";
3496	mes "^3355FFThere is a small red button^000000";
3497	mes "^3355FFright underneath the test tube.^000000";
3498	next;
3499
3500	switch(select("Press Button","Investigate Further")) {
3501
3502	case 1:
3503
3504	mes "[???]";
3505	mes "H-hello...? C-can you";
3506	mes "hear me? I don't recognize";
3507	mes "you... But... Maybe I forgot?";
3508	mes "Wait, wait. If you're my friend,";
3509	mes "then you know what to call me,";
3510	mes "right? Do you know what I am?";
3511	next;
3512
3513	input @KHInput$;
3514
3515	if (@KHInput$ == "little lost devil") {
3516	mes "[???]";
3517	mes "Heh... Heh heh...";
3518	mes "He knows... Hey, you";
3519	mes "have to remember these";
3520	mes "numbers, okay? D-don't";
3521	mes "forget, they'll be important...";
3522	mes "^FF00004^000000, ^FF00007^000000, ^FF00007^000000, ^FF00002^000000, ^FF00009^000000, ^FF00006^000000, ^FF00001^000000. That's all...";
3523	next;
3524	mes "^3355FF4772961^000000";
3525	mes "^3355FFWhat could^000000";
3526	mes "^3355FFthose numbers^000000";
3527	mes "^3355FFpossibly mean?^000000";
3528	//KHCottagePoem1 and KHCottagePoem2 no longer needed-- deleting
3529	set KHCottagePoem1,0;
3530	set KHCottagePoem2,0;
3531	set KielHyreQuest,30;
3532	close;
3533	}
3534
3535	else {
3536	mes "[???]";
3537	mes "No... No...";
3538	mes "That's not right.";
3539	mes "I don't think we";
3540	mes "were friends. No...";
3541	close;
3542	}
3543
3544	case 2:
3545	mes "^3355FFLet's investigate^000000";
3546	mes "^3355FFthis area a little^000000";
3547	mes "^3355FFmore first.^000000";
3548	close;
3549
3550	}
3551
3552	}
3553
3554	else if (KielHyreQuest >= 30) {
3555	mes "^3355FFWhat could the^000000";
3556	mes "^3355FFnumber 4772961^000000";
3557	mes "^3355FFmean? For now, you've^000000";
3558	mes "^3355FFfound everything that^000000";
3559	mes "^3355FFyou need from this place,^000000";
3560	mes "^3355FFso you should return to Elly.^000000";
3561	close;
3562	}
3563	end;
3564	}
3565
3566	//============================================================================
3567
3568	//============================================================================
3569	// Robot Factory NPCs
3570	//============================================================================
3571
3572	//----------------------------------------------------------------------------
3573	// Robotic's Factory; Heavy Door
3574	//----------------------------------------------------------------------------
3575	kh_dun01,235,48,0 script Heavy Door::HeavyDoorKHQ1 111,{
3576	if ((KielHyreQuest >= 38) && (KielHyreQuest < 46)) {
3577	mes "^3355FFThere is a large, heavy^000000";
3578	mes "^3355FFdoor infront of you.^000000";
3579	next;
3580
3581	switch(select("Open Door","Cancel")) {
3582
3583	case 1:
3584	input @KHInput$;
3585	if (@KHInput$ == "Blue Keycard") {
3586	mes "^3355FFYou've successfully^000000";
3587	mes "^3355FFopened the door.^000000";
3588	close2;
3589	warp "kh_school",119,144;
3590	end;
3591	}
3592
3593	else {
3594	mes "^3355FFYou try to push the^000000";
3595	mes "^3355FFdoor open with all^000000";
3596	mes "^3355FFyour might, but fail^000000";
3597	mes "^3355FFto make it budge.^000000";
3598	close;
3599	}
3600
3601	case 2:
3602	mes "^3355FFyou decided to leave^000000";
3603	mes "^3355FFthis door alone until^000000";
3604	mes "^3355FFyou can figure out^000000";
3605	mes "^3355FFhow to open it^000000";
3606	close;
3607
3608	}
3609
3610	}
3611
3612	else {
3613	mes "^3355FFThere is a large, heavy^000000";
3614	mes "^3355FFdoor infront of you^000000";
3615	close;
3616	}
3617	}
3618
3619	//----------------------------------------------------------------------------
3620	// Robotic's Factory; Heavy Door (These doors don't seem to serve any purpose)
3621	//----------------------------------------------------------------------------
3622	kh_dun01,76,233,0 script Heavy Door::HeavyDoorKHQ2 111,{
3623	if ((KielHyreQuest >= 38) && (KielHyreQuest < 46)) {
3624	mes "^3355FFThere is a large, heavy^000000";
3625	mes "^3355FFdoor infront of you.^000000";
3626	next;
3627
3628	switch(select("Open Door","Cancel")) {
3629
3630	case 1:
3631	input @KHInput$;
3632	mes "^3355FFYou try to push the^000000";
3633	mes "^3355FFdoor open with all^000000";
3634	mes "^3355FFyour might, but fail^000000";
3635	mes "^3355FFto make it budge.^000000";
3636	close;
3637
3638	case 2:
3639	mes "^3355FFyou decided to leave^000000";
3640	mes "^3355FFthis door alone until^000000";
3641	mes "^3355FFyou can figure out^000000";
3642	mes "^3355FFhow to open it^000000";
3643	close;
3644
3645	}
3646
3647	}
3648
3649	else {
3650	mes "^3355FFThere is a large, heavy^000000";
3651	mes "^3355FFdoor infront of you^000000";
3652	close;
3653	}
3654
3655	}
3656
3657	kh_dun01,106,233,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ3 111
3658	kh_dun01,6,164,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ4 111
3659	kh_dun01,6,133,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ5 111
3660	kh_dun01,6,60,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ6 111
3661	kh_dun01,6,30,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ7 111
3662	kh_dun01,6,18,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ8 111
3663	kh_dun01,235,70,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ9 111
3664	kh_dun01,235,92,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ10 111
3665	kh_dun01,235,114,0 duplicate(HeavyDoorKHQ2) Heavy Door::HeavyDoorKHQ11 111
3666
3667	//----------------------------------------------------------------------------
3668	// Beautiful Lady and Beautiful Lady copies.
3669	//----------------------------------------------------------------------------
3670	kh_school,119,149,4 script Beautiful lady::BeatifulLadyKHQ1 894,{
3671	cutin "kh_ellisia",2;
3672	if (KielHyreQuest < 40) {
3673	mes "[Allysia]";
3674	mes "Hm? I don't think";
3675	mes "I know you. Kiel Hyre";
3676	mes "has only authorized Elly,";
3677	mes "and a trusted friend that";
3678	mes "may be helping her, to";
3679	mes "be admitted to this area.";
3680	next;
3681	mes "[Allysia]";
3682	mes "I cannot see ^FF0000Elly^000000.";
3683	mes "Has she been attacked as well?";
3684	mes "Are you ^FF0000Elly's friend^000000?";
3685	next;
3686	mes "[Allysia]";
3687	mes "I don't see Elly anywhere";
3688	mes "around here. I can only let";
3689	mes "you enter if you can identify";
3690	mes "yourself as Elly's friend.";
3691	mes "Is there anything that you";
3692	mes "can present to me as proof?";
3693	next;
3694
3695	switch(select("Yellow Keycard","Blue Keycard","Golden Key","Carved Button","...?")) {
3696
3697	case 1:
3698	break;
3699
3700	case 2:
3701	break;
3702
3703	case 3:
3704	mes "[Allysia]";
3705	mes "Ah, isn't this the";
3706	mes "key that Kiel Hyre gave";
3707	mes "to Elly? Yes, I'm convinced";
3708	mes "that you've been helping her.";
3709	mes "I've been waiting for you, so";
3710	mes "let me guide you to my room.";
3711	close2;
3712	cutin "",255;
3713	warp "kh_school",120,180;
3714	end;
3715
3716	case 4:
3717	mes "[Allysia]";
3718	mes "Th-that's Kiehl's";
3719	mes "heal! Did he send you";
3720	mes "here to get me?! I'm";
3721	mes "not taking any changes!";
3722	close2;
3723	cutin "",255;
3724	monster "kh_school",117,144,"Constant",1745,1;
3725	monster "kh_school",117,144,"Constant",1745,1;
3726	monster "kh_school",117,144,"Constant",1745,1;
3727	monster "kh_school",117,144,"Constant",1745,1;
3728	end;
3729
3730	case 5:
3731	mes "[Allysia]";
3732	mes "......";
3733	mes "........";
3734	mes "...........";
3735	close2;
3736	cutin "",255;
3737	end;
3738
3739	}
3740
3741	mes "[Allysia]";
3742	mes "Hm? This doesn't prove";
3743	mes "that Elly really trusts you...";
3744	close2;
3745	cutin "",255;
3746	end;
3747	}
3748
3749	else if (KielHyreQuest >= 40) {
3750	mes "[Allysia]";
3751	mes "Please follow me.";
3752	close2;
3753	cutin "",255;
3754	warp "kh_school",120,180;
3755	end;
3756	}
3757	}
3758
3759
3760	kh_school,117,149,4 script Beautiful lady::BeatifulLadyKHQ2 894,{
3761	end;
3762	}
3763
3764	kh_school,118,149,4 duplicate(BeatifulLadyKHQ2) Beautiful lady::BeatifulLadyKHQ3 894
3765
3766	kh_school,120,149,4 duplicate(BeatifulLadyKHQ2) Beautiful lady::BeatifulLadyKHQ4 894
3767
3768	kh_school,121,149,4 duplicate(BeatifulLadyKHQ1) Beautiful lady::BeatifulLadyKHQ5 894
3769
3770	//----------------------------------------------------------------------------
3771	// Beautiful Lady "Allysia"
3772	//----------------------------------------------------------------------------
3773	kh_school,122,186,4 script Beautiful lady 894,{
3774	if (checkweight(7496,1) == 0) {
3775	mes "^3355FF- Wait!! -";
3776	mes "- You are carrying too many items";
3777	mes "- and are unable to accept any more. -";
3778	mes "- Please make some space avaliable";
3779	mes "- in your inventory before returning. -^000000";
3780	close;
3781	}
3782
3783	cutin "kh_ellisia",2;
3784	if (KielHyreQuest <= 38) {
3785	mes "[Allysia]";
3786	mes "Friend of prototype Elly,";
3787	mes "I welcome you. As you may";
3788	mes "have figured out, I need your";
3789	mes "help. Kiel Hyre is being held";
3790	mes "somewhere inside this factory.";
3791	next;
3792	mes "[Allysia]";
3793	mes "It is imperative that";
3794	mes "you search for Kiel Hyre";
3795	mes "and rescue him as soon";
3796	mes "as you possibly can!";
3797	next;
3798
3799	switch(select("What is this factory?","What happened to ^FF0000Kiel Hyre^000000?")) {
3800
3801	case 1:
3802	mes "[Allysia]";
3803	mes "This factory is part of";
3804	mes "the Kiel Hyre Foundation's";
3805	mes "secret business where humanoid";
3806	mes "robots are manufactured. Myself,";
3807	mes "and all of the academy's students";
3808	mes "are actually robots, not humans.";
3809	next;
3810	mes "[Allysia]";
3811	mes "The Kiel Hyre Foundation's";
3812	mes "ultimate goal is to develop";
3813	mes "superior robots that will help";
3814	mes "human society. As robots, we";
3815	mes "can handle tasks that are too";
3816	mes "dangerous or difficult for humans.";
3817	break;
3818
3819	case 2:
3820	mes "[Allysia]";
3821	mes "^3355FFKiehl^000000 has proceeded to";
3822	mes "proform abnormal modifications";
3823	mes "to the humanoid robots. This";
3824	mes "has been reported to Kiel Hyre,";
3825	mes "who has left to stop Kiehl.";
3826	mes "However, Hyre hasn't returned.";
3827	next;
3828	mes "[Allysia]";
3829	mes "Fearing that Kiehl would";
3830	mes "break me, Kiel Hyre brought";
3831	mes "a copy of me instead. I can still";
3832	mes "detect Kiel Hyre's heartbeat,";
3833	mes "so he should be alright, but his";
3834	mes "own son might harm him soon.";
3835	next;
3836	mes "[Allysia]";
3837	mes "Take this Keycard";
3838	mes "which will enable you";
3839	mes "to enter the secret areas";
3840	mes "inside this factory. If you";
3841	mes "locate Kiel Hyre, please";
3842	mes "let me know right away.";
3843	getitem 7496,1; //Red_Keycard
3844	set KielHyreQuest,40;
3845	break;
3846
3847	}
3848
3849	close2;
3850	cutin "",255;
3851	end;
3852
3853	}
3854
3855	else if (KielHyreQuest == 40) {
3856	mes "[Allysia]";
3857	mes "I can still detect";
3858	mes "Kiel Hyre's heartbeat,";
3859	mes "but his sone Kiehl might";
3860	mes "do something desperate to";
3861	mes "him soon. Please locate Kiel";
3862	mes "Hyre before that can happen!";
3863	close2;
3864	cutin "",255;
3865	warp "kh_dun01",22,216;
3866	end;
3867	}
3868
3869	else if (KielHyreQuest == 42) {
3870	mes "[Allysia]";
3871	mes "Have you already";
3872	mes "located Kiel Hyre?";
3873	next;
3874	mes "^3355FFYou tell Allysia where^000000";
3875	mes "^3355FFKiel Hyre has been locked^000000";
3876	mes "^3355FFup, and give her the metal^000000";
3877	mes "^3355FFfragment that Kiel Hyre handed^000000";
3878	mes "^3355FFto you. She took fragment^000000";
3879	mes "^3355FFand wore it around her wrist.^000000";
3880	next;
3881	mes "[Allysia]";
3882	mes "...Kiel Hyre's secret code";
3883	mes "confirmed. B_2_3 area.";
3884	mes "Vital signs are normal.";
3885	mes "Envelope received. Sending";
3886	mes "modified Puppet Designs...";
3887	next;
3888	mes "[Allysia]";
3889	mes "Alright, I've recieved";
3890	mes "Kiel Hyre's orders, and";
3891	mes "must carry them out...";
3892	set KielHyreQuest,44;
3893	delitem 7497,1; //Metal_Fragment
3894	close2;
3895	cutin "",255;
3896	end;
3897	}
3898
3899	else if (KielHyreQuest == 44) {
3900	mes "[Allysia]";
3901	mes "Alright, I have a mission";
3902	mes "to carry out for Kiel Hyre,";
3903	mes "and I don't have much time.";
3904	mes "Let me give you some specific";
3905	mes "instructions very quickly.";
3906	next;
3907	mes "[Allysia]";
3908	mes "Firstly, I need to take your";
3909	mes "keycards for security reasons.";
3910	mes "Secondly, meet me at the Kiel";
3911	mes "Hyre Mansion in Lighthalzen.";
3912	mes "Present the Golden Key to";
3913	mes "be admitted to the premises.";
3914	delitem 7492,1; //Yellow_Keycard
3915	delitem 7495,1; //Blue_Keycard
3916	delitem 7496,1; //Red_Keycard
3917	set KielHyreQuest,46;
3918	next;
3919	mes "[Allysia]";
3920	mes "I understand that this";
3921	mes "is sudden, and I'm not";
3922	mes "giving you a thorough";
3923	mes "explanation, but something";
3924	mes "horrible will happen if I don't";
3925	mes "hurry as quickly as possible.";
3926	close2;
3927	warp "yuno_fild08",73,172;
3928	cutin "",255;
3929	end;
3930	}
3931
3932	else if (KielHyreQuest >= 44) {
3933	mes "[Allysia]";
3934	mes "I understand that this";
3935	mes "is sudden, and I'm not";
3936	mes "giving you a thorough";
3937	mes "explanation, but something";
3938	mes "horrible will happen if i don't";
3939	mes "hurry as quickly as possible.";
3940	close2;
3941	warp "yuno_fild08",73,172;
3942	cutin "",255;
3943	end;
3944	}
3945
3946	}
3947
3948	//----------------------------------------------------------------------------
3949	// Signboard (another useless NPC?)
3950	//----------------------------------------------------------------------------
3951	kh_dun01,163,223,4 script Signboard 857,{
3952	mes "[Notice]";
3953	mes "Cute Pets are prohibited";
3954	mes "in this area. (Cute Pets that";
3955	mes "provide special assistance";
3956	mes "to the visually impaired are";
3957	mes "exempt from this rule.)";
3958	close;
3959	}
3960
3961	//----------------------------------------------------------------------------
3962	// Mechanical Devices for accessing restricted area
3963	//----------------------------------------------------------------------------
3964	kh_dun01,166,223,0 script Mechanical Device::KHKeyardReader 111,{
3965	if ((KielHyreQuest <= 38) \|\| (KielHyreQuest >= 44)) {
3966	mes "^3355FFYou encounter^000000";
3967	mes "^3355FFa mechanical device.^000000";
3968	mes "^3355FFIt looks like it can be^000000";
3969	mes "^3355FFoperated by inserting the^000000";
3970	mes "^3355FFcorrect keycard into the slot.^000000";
3971	close;
3972	}
3973
3974	else if ((KielHyreQuest == 40) && (countitem(7496) >= 1)) {
3975	mes "^3355FFYou encounter^000000";
3976	mes "^3355FFa mechanical device.^000000";
3977	mes "^3355FFIt looks like it can be^000000";
3978	mes "^3355FFoperated by inserting the^000000";
3979	mes "^3355FFcorrect keycard into the slot.^000000";
3980	next;
3981
3982
3983	input @KHInput$;
3984	if (@KHInput$ == "Red Keycard") {
3985	mes "^3355FFThe door opens once^000000";
3986	mes "^3355FFyou insert the Red Keycard..^000000";
3987	close2;
3988	warp "kh_dun01",170,227;
3989	end;
3990	}
3991	else {
3992	mes "^3355FFNothing happened.^000000";
3993	close;
3994	}
3995
3996	}
3997
3998	}
3999
4000	kh_dun01,162,206,0 duplicate(KHKeyardReader) Mechanical Device 111
4001
4002	//----------------------------------------------------------------------------
4003	// Keep monsters out of the quest area.
4004	// Silly really since the rest of it's a dungeon
4005	//----------------------------------------------------------------------------
4006	//kh_dun01,180,220,0 script Monster Warp#kh1::KHMobWarp -1,5,20,{
4007	//OnTouchNPC:
4008	// warp "kh_dun01",178,138;
4009	// end;
4010	//}
4011
4012	//kh_dun01,190,220,0 duplicate(KHMobWarp) Monster Warp#kh2 -1,5,20
4013	//kh_dun01,200,250,0 duplicate(KHMobWarp) Monster Warp#kh3 -1,5,20
4014	//kh_dun01,210,220,0 duplicate(KHMobWarp) Monster Warp#kh4 -1,5,20
4015	//kh_dun01,220,220,0 duplicate(KHMobWarp) Monster Warp#kh5 -1,5,10
4016
4017	//----------------------------------------------------------------------------
4018	// Kiel Hyre - OnTouch
4019	//----------------------------------------------------------------------------
4020	kh_dun01,224,233,0 script Kiel_Hyre_Door -1,5,5,{
4021	OnTouch:
4022	if (KielHyreQuest == 40) {
4023	if (checkweight(7497,1) == 0) {
4024	mes "^3355FF- Wait!! -";
4025	mes "- You are carrying too many items";
4026	mes "- and are unable to accept any more. -";
4027	mes "- Please make some space avaliable";
4028	mes "- in your inventory before returning. -^000000";
4029	close;
4030	}
4031
4032	mes "^3355FFYou can faintly hear^000000";
4033	mes "^3355FFa voice from the other^000000";
4034	mes "^3355FFside of this door.^000000";
4035	next;
4036	mes "[????]";
4037	mes "...Kiehl...";
4038	mes "...How dare you...!";
4039	next;
4040	mes "["+strcharinfo(0)+"]";
4041	mes "Mister Kiel Hyre?";
4042	mes "Is that you in there?";
4043	next;
4044	mes "[Kiel Hyre]";
4045	mes "Wh-who's there?";
4046	mes "Identify yourself!";
4047	next;
4048	mes "["+strcharinfo(0)+"]";
4049	mes "I'm... I'm...";
4050	next;
4051	mes "You explain your story^000000";
4052	mes "to the voice behind the^000000";
4053	mes "door, and tell him what^000000";
4054	mes "happened to Elly and Allysia.^000000";
4055	next;
4056	mes "[Kiel Hyre]";
4057	mes "...Yes... It's me.";
4058	mes "I'm Kiel Hyre, trapped";
4059	mes "in here. He went so far";
4060	mes "as to modify Elly, eh?";
4061	mes "..................";
4062	next;
4063	mes "[Kiel Hyre]";
4064	mes "Hurry, take this";
4065	mes "module to Allysia!";
4066	mes "She'll know what to do";
4067	mes "with it. If you're really";
4068	mes "helping us, then she'll have";
4069	mes "some instructions for you too.";
4070	next;
4071	mes "^3355FFKiel Hyre slides^000000";
4072	mes "^3355FFa strange metal^000000";
4073	mes "^3355FFfragment through^000000";
4074	mes "^3355FFthe gap between the^000000";
4075	mes "^3355FFdoor and the floor.^000000";
4076	getitem 7497,1; //Metal_Fragment
4077	set KielHyreQuest,42;
4078	close;
4079	}
4080
4081
4082	else if (KielHyreQuest >= 42) {
4083	mes "[Kiel Hyre]";
4084	mes "......";
4085	close;
4086	}
4087
4088	}
4089
4090	//----------------------------------------------------------------------------
4091	// Robot Factory Second Floor Entrances
4092	//----------------------------------------------------------------------------
4093	kh_dun01,44,203,0 script Entrance Device#KHEntry1::KHAccess 111,{
4094	if (countitem(7509) < 1) {
4095	mes "^3355FFYou encounter";
4096	mes "a mechanical device.";
4097	mes "It looks like it can be";
4098	mes "operated by inserting the";
4099	mes "correct keycard into the slot.^000000";
4100	close;
4101	}
4102
4103	else {
4104	mes "^3355FFYou encounter";
4105	mes "a mechanical device.";
4106	mes "It looks like it can be";
4107	mes "operated by inserting the";
4108	mes "correct keycard into the slot.^000000";
4109	next;
4110
4111	input @KHInput$;
4112	if (@KHInput$ == "Luxurious Keycard") {
4113	mes "^3355FFAs you insert the";
4114	mes "Luxurious Keycard";
4115	mes "into the keycard slot,";
4116	mes "the door swings open";
4117	mes "to reveal a long flight";
4118	mes "of descending stairs.^000000";
4119	next;
4120
4121	switch(select("Descend Stairs","Cancel")) {
4122
4123	case 1:
4124	warp "kh_dun02",41,198;
4125	end;
4126
4127	case 2:
4128	mes "^3355FFIt looks like this door";
4129	mes "has automatically closed";
4130	mes "after the preprogrammed";
4131	mes "time limit has elapsed.^000000";
4132	close;
4133
4134	}
4135
4136	}
4137
4138	else {
4139	mes "^3355FFYou try to push the";
4140	mes "door open with all";
4141	mes "your might, but fail";
4142	mes "to make it budge.^000000";
4143	close;
4144	}
4145
4146	}
4147
4148	}
4149
4150	kh_dun01,36,195,0 duplicate(KHAccess) Entrance Device#KHEntry2 111
4151
4152	//============================================================================
4153
4154	//============================================================================
4155	// Kiel Hyre Mansion NPCs, and Kiehl's Room NPCs
4156	//============================================================================
4157
4158	//----------------------------------------------------------------------------
4159	// Kiel's Steward
4160	//----------------------------------------------------------------------------
4161	kh_mansion,78,55,5 script Steward::StewardKHQ1 109,{
4162	if (KielHyreQuest < 46) {
4163	mes "[Steward]";
4164	mes "This is a private residence,";
4165	mes "please leave.";
4166	close2;
4167	warp "lighthalzen",188,201;
4168	end;
4169	}
4170
4171	if ((KielHyreQuest >= 46) && (KielHyreQuest < 50)) {
4172	mes "[Steward]";
4173	mes "Greetings.";
4174	mes "Have you been invited";
4175	mes "by the master of";
4176	mes "this mansion?";
4177	next;
4178
4179	switch(select("Present Golden Key","????")) {
4180
4181	case 1:
4182	mes "[Steward]";
4183	mes "Ah, Master "+strcharinfo(0)+".";
4184	mes "I've been expecting your";
4185	mes "arrival. Please, this way.";
4186	close2;
4187	warp "kh_mansion",21,14;
4188	end;
4189
4190	case 2:
4191	mes "[Steward]";
4192	mes "If you have not been";
4193	mes "invited by the master of";
4194	mes "this mansion, then I'm";
4195	mes "afraid that I must insist on";
4196	mes "your immediate departure!";
4197	close2;
4198	warp "lightalzen",188,201;
4199	end;
4200
4201	}
4202
4203	}
4204
4205	if ((KielHyreQuest >= 50) && (KielHyreQuest < 64)) {
4206	L_SeeKielHyre:
4207	mes "[Steward]";
4208	mes "Ah, Master "+strcharinfo(0)+".";
4209	mes "It is a pleasure to";
4210	mes "receive your company";
4211	mes "once again. Would you";
4212	mes "like to see my master?";
4213	next;
4214
4215	switch(select("Yes","No")) {
4216
4217	case 1:
4218	mes "[Steward]";
4219	mes "Very well.";
4220	mes "Right this way~";
4221	close2;
4222	warp "kh_mansion",21,14;
4223	end;
4224
4225	case 2:
4226	mes "[Steward]";
4227	mes "Very well.";
4228	mes "Please make";
4229	mes "yourself at home.";
4230	close;
4231
4232	}
4233
4234	}
4235
4236	if ((KielHyreQuest == 52) \|\| (KielHyreQuest == 54) \|\| (KielHyreQuest >= 64) && (KielHyreQuest <= 70)) {
4237	mes "[Steward]";
4238	mes "Ah, Master "+strcharinfo(0)+".";
4239	mes "It is a pleasure to";
4240	mes "receive your company";
4241	mes "once again. Would you";
4242	mes "like to see my master, or...?";
4243	next;
4244
4245	switch(select("^FF0000Kiel Hyre^000000","^3355FFMitchell^000000")) {
4246
4247	case 1:
4248	mes "[Steward]";
4249	mes "Very well.";
4250	mes "Right this way~";
4251	close2;
4252	warp "kh_mansion",21,14;
4253	end;
4254
4255	case 2:
4256	mes "[Steward]";
4257	mes "Oh...? You must.";
4258	mes "be here to deliver";
4259	mes "good news. Excuse me...";
4260	next;
4261	mes "^3355FFThe Steward furtively^000000";
4262	mes "^3355FFlooked around to check^000000";
4263	mes "^3355FFif anyone is watching him.^000000";
4264	next;
4265	mes "[Steward]";
4266	mes "I believe it should";
4267	mes "be safe enough to let";
4268	mes "you go see him now...";
4269	mes "Please, hurry this way.";
4270	close2;
4271	warp "kh_mansion",20,87;
4272	end;
4273
4274	}
4275
4276	}
4277
4278	if (KielHyreQuest >= 70) {
4279	goto L_SeeKielHyre;
4280	}
4281
4282	}
4283
4284	//----------------------------------------------------------------------------
4285	// Kiel Hyre
4286	//----------------------------------------------------------------------------
4287	kh_mansion,22,28,4 script Kiel Hyre 903,{
4288	set @now_weight,MaxWeight-Weight;
4289	if (@now_weight < 2000) {
4290	mes "^3355FFJust a second...";
4291	mes "You're carrying too";
4292	mes "many items with you";
4293	mes "right now, so you'll";
4294	mes "need to free up more";
4295	mes "inventory space first...^000000";
4296	close;
4297	}
4298
4299	cutin "kh_kyel02",2;
4300	if (KielHyreQuest < 46) {
4301	mes "[Kiel Hyre]";
4302	mes ".........";
4303	close2;
4304	cutin "",255;
4305	end;
4306	}
4307
4308	else if (KielHyreQuest == 46) {
4309	cutin "kh_kyel01",2;
4310	mes "[Kiel Hyre]";
4311	mes "Ah, you must be "+strcharinfo(0)+".";
4312	mes "I'd like to thank you for saving";
4313	mes "my life. You must have many";
4314	mes "questions to ask me, so I'll";
4315	mes "do my best to give you answers.";
4316	next;
4317
4318	L_Menu:
4319
4320	switch(select("Robots?","^3355FFKiehl^000000?","^FF0000Elly^000000's button?")) {
4321
4322	case 1:
4323	mes "[Kiel Hyre]";
4324	mes "I've been researching";
4325	mes "robotics for thirty-two";
4326	mes "years now. I'm proud to";
4327	mes "say that I've succeeded";
4328	mes "where the great Sage";
4329	mes "Varmundt did not.";
4330	next;
4331	mes "[Kiel Hyre]";
4332	mes "It's been my dream to";
4333	mes "develop humanoid robots";
4334	mes "from humans. Those Guardians";
4335	mes "might be robots too, but they";
4336	mes "don't operate using free will.";
4337	next;
4338	mes "[Kiel Hyre]";
4339	mes "If you'd like to know more";
4340	mes "of the specifics concerning";
4341	mes "robotics, why don't you speak";
4342	mes "with ^3355FFAllysia^000000? She can explain";
4343	mes "everything much more succinctly";
4344	mes "than I can. I tend to ramble...";
4345	if (@KHQ1Read < 1) { set @KHQ1Read,1; }
4346	break;
4347
4348	case 2:
4349	mes "[Kiel Hyre]";
4350	mes "^3355FFKiehl^000000 is my only son,";
4351	mes "but the love of my life";
4352	mes "died after giving birth to";
4353	mes "him. I'll admit that he's";
4354	mes "a genius in mechanical";
4355	mes "design and development.";
4356	next;
4357	mes "[Kiel Hyre]";
4358	mes "He's largely responsible";
4359	mes "for the creation of Third";
4360	mes "Generation robots like Elly.";
4361	mes "Unfortunately, he's trying to";
4362	mes "modify his creations for";
4363	mes "some sinister purpose.";
4364	next;
4365	mes "[Kiel Hyre]";
4366	mes "I tried to stop him,";
4367	mes "but I ended up getting";
4368	mes "locked inside the factory.";
4369	mes "I don't know why he wants";
4370	mes "to do this. I still have";
4371	mes "absolutely no clue...";
4372	if (@KHQ2Read < 1) { set @KHQ2Read,1; }
4373	break;
4374
4375	case 3:
4376	mes "[Kiel Hyre]";
4377	mes "That button Elly was";
4378	mes "holding has ^3355FFKiehl's emblem^000000";
4379	mes "engraved on it. Ah, and that";
4380	mes "man in black menacing the";
4381	mes "students? That was probably";
4382	mes "^3355FFKaiser^000000, Kiehl's bodyguard.";
4383	next;
4384	mes "[Kiel Hyre]";
4385	mes "Kaiser...";
4386	mes "I don't know";
4387	mes "anything about him.";
4388	mes "I've never even seen";
4389	mes "his face! Kiehl just hired";
4390	mes "him without letting me know...";
4391	if (@KHQ3Read < 1) { set @KHQ3Read,1; }
4392	break;
4393
4394	}
4395
4396	if ((@KHQ1Read == 1) && (@KHQ2Read == 1) && (@KHQ3Read == 1)) {
4397	next;
4398	mes "[Kiel Hyre]";
4399	mes "If you don't have";
4400	mes "anymore questions for me,";
4401	mes "then would you please";
4402	mes "let me rest?? I'm still not";
4403	mes "feeling well from the time";
4404	mes "I was locked up in the factory.";
4405	delitem 7493,1; //Golden_Key
4406	delitem 7494,1; //Exquisite_Button
4407	set KielHyreQuest,48;
4408	}
4409
4410	else {
4411	next;
4412	goto L_Menu;
4413	}
4414
4415	}
4416
4417	else if (KielHyreQuest == 48) {
4418	mes "[Kiel Hyre]";
4419	mes "Ah, I almost forgot.";
4420	mes "Please, take this as";
4421	mes "a little reward for";
4422	mes "saving my life.";
4423	set KielHyreQuest,50;
4424	getitem 12105,1; //Taming_Gift_Set
4425	getexp 700000,0;
4426	}
4427
4428	else if ((KielHyreQuest >= 50) && (KielHyreQuest < 64)) {
4429	mes "[Kiel Hyre]";
4430	mes "If you don't have";
4431	mes "anymore questions for me,";
4432	mes "then would you please";
4433	mes "let me rest?? I'm still not";
4434	mes "feeling well from the time";
4435	mes "I was locked up in the factory.";
4436	}
4437
4438	else if (KielHyreQuest == 64) {
4439	cutin "kh_kyel01",2;
4440	mes "[Kiel Hyre]";
4441	mes "Hm? Did you";
4442	mes "have something";
4443	mes "that you wanted";
4444	mes "to ask me?";
4445	next;
4446	mes "["+strcharinfo(0)+"]";
4447	mes "I don't have enough";
4448	mes "concrete evidence yet,";
4449	mes "but I might have some";
4450	mes "questions soon enough.";
4451	}
4452
4453	else if (KielHyreQuest == 68) {
4454	cutin "kh_kyel02",2;
4455	mes "[Kiel Hyre]";
4456	mes "Ah, "+strcharinfo(0)+".";
4457	mes "It's you. So how can";
4458	mes "I help you today?";
4459	next;
4460
4461	switch(select("About ^3355FFAllysia^000000...")) {
4462
4463	case 1:
4464	mes "["+strcharinfo(0)+"]";
4465	mes "You know, I was looking";
4466	mes "through this deserted house";
4467	mes "in Juno, and discovered";
4468	mes "an old portrait of a woman";
4469	mes "that looks just like Allysia.";
4470	next;
4471	cutin "kh_kyel02",2;
4472	mes "[Kiel Hyre]";
4473	mes "Oh...";
4474	mes "Is that all?";
4475	mes "I thought you had";
4476	mes "a robotics question.";
4477	next;
4478	cutin "kh_Kyel03",2;
4479	mes "[Kiel Hyre]";
4480	mes "Anyway, that's a";
4481	mes "strange coincidence.";
4482	mes "Well, I suppose it's";
4483	mes "not so strange to find";
4484	mes "look-a-likes for other people...";
4485	next;
4486	mes "["+strcharinfo(0)+"]";
4487	mes "I don't think it's just";
4488	mes "a coincidence. The woman";
4489	mes "in that thirty year old portrait";
4490	mes "was also named Allysia, and she";
4491	mes "worked at Orsimier street";
4492	mes "in Juno. Does that ring a bell?";
4493	next;
4494	cutin "kh_kyel02",2;
4495	mes "[Kiel Hyre]";
4496	mes "......";
4497	mes ".........";
4498	mes "............";
4499	next;
4500	cutin "kh_kyel01",2;
4501	mes "["+strcharinfo(0)+"]";
4502	mes "Then I thought that this";
4503	mes "Allysia must have been the";
4504	mes "woman that you loved, and";
4505	mes "that you based your robot's";
4506	mes "apperance on her.";
4507	next;
4508	cutin "kh_kyel02",2;
4509	mes "[Kiel Hyre]";
4510	mes "............";
4511	next;
4512	cutin "kh_kyel01",2;
4513	mes "["+strcharinfo(0)+"]";
4514	mes "I think this is what happened:";
4515	mes "when you were a young, poor";
4516	mes "man, you fell in love with";
4517	mes "Allysia. However, she was";
4518	mes "in love with Rosimier, who";
4519	mes "was rich and powerful.";
4520	next;
4521	mes "["+strcharinfo(0)+"]";
4522	mes "However, Rosimier was";
4523	mes "betrothed to some other";
4524	mes "woman, and he ended up";
4525	mes "marrying his fiancee, thus";
4526	mes "breaking Allysia's heart.";
4527	next;
4528	mes "["+strcharinfo(0)+"]";
4529	mes "Feeling betrayed, her";
4530	mes "heart broken, Allysia jumped";
4531	mes "into a river. Then, you decided";
4532	mes "to get revenge on Rosimier, so";
4533	mes "you ended up joining";
4534	mes "Rekenber Corporation!";
4535	next;
4536	cutin "kh_Kyel03",2;
4537	mes "[Kiel Hyre]";
4538	mes "Hahahahahahaha!";
4539	mes "Oh, what an imagination~";
4540	mes "That's very ridiculous...";
4541	mes "Though, I admit, maybe";
4542	mes "I did design Allysia after";
4543	mes "seeing that woman long ago.";
4544	next;
4545	mes "[Kiel Hyre]";
4546	mes "I'd almost forgotten";
4547	mes "about her! I think we";
4548	mes "were friends... Though,";
4549	mes "where did you get the idea";
4550	mes "that I might have";
4551	mes "been in love with her?";
4552	next;
4553
4554	switch(select("Reveal Kiel's Portrait from Hut")) {
4555
4556	case 1:
4557	cutin "kh_kyel02",2;
4558	mes "[Kiel Hyre]";
4559	mes "Wh-what...";
4560	mes "How did...";
4561	mes "Where did you...?";
4562	next;
4563	mes "["+strcharinfo(0)+"]";
4564	mes "Kiel Hyre, I found this";
4565	mes "portrait of you as a young";
4566
4567	mes "man from the house of the";
4568	mes "man that bought Allysia's ring.";
4569	mes "I even spoke to the fisherman";
4570	mes "that discovered Allysia's body.";
4571	next;
4572	mes "["+strcharinfo(0)+"]";
4573	mes "You paid an awful lot";
4574	mes "of money to buy Allysia's";
4575	mes "ring. How can you not tell";
4576	mes "me that you didn't love her?";
4577	next;
4578	cutin "kh_Kyel03",2;
4579	mes "[Kiel Hyre]";
4580	mes "Sigh...";
4581	mes "You got me, you got me.";
4582	mes "I didn't want you to learn";
4583	mes "the truth. You are correct.";
4584	mes "I loved Allysia, and designed";
4585	mes "my robot to look just like her.";
4586	next;
4587	mes "[Kiel Hyre]";
4588	mes "I could never forget her.";
4589	mes "Ever. But I would never";
4590	mes "do anything to harm the";
4591	mes "Rosimiers! I'm a scientist!";
4592	mes "I hated him when I was young,";
4593	mes "but things are different now!";
4594	next;
4595	mes "[Kiel Hyre]";
4596	mes "I shed no tears when the";
4597	mes "Rosimiers fell, but I wasn't";
4598	mes "responsible. Besides, I didn't";
4599	mes "have the resources or the";
4600	mes "capability to cause it...";
4601	next;
4602	cutin "kh_kyel02",2;
4603	mes "["+strcharinfo(0)+"]";
4604	mes "I'm afraid that the";
4605	mes "evidence shows otherwise.";
4606	next;
4607
4608	switch(select("Reveal Portrait of Rosimiers")) {
4609
4610	case 1:
4611	mes "["+strcharinfo(0)+"]";
4612	mes "Take a good look";
4613	mes "at this portrait that";
4614	mes "I found at the Rosimiers'";
4615	mes "old house. Do you see";
4616	mes "anything... incriminating?";
4617	next;
4618	cutin "kh_Kyel03",2;
4619	mes "[Kiel Hyre]";
4620	mes "Aside from that";
4621	mes "James Rosimier, you";
4622	mes "mean? No! I don't see";
4623	mes "anything wrong with";
4624	mes "this picture at all.";
4625	next;
4626	mes "["+strcharinfo(0)+"]";
4627	mes "Take a good look";
4628	mes "at the pocketwatch";
4629	mes "in the portrait. That's";
4630	mes "the pocketwatch you";
4631	mes "wear today, isn't it?";
4632	next;
4633	cutin "kh_kyel02",2;
4634	mes "[Kiel Hyre]";
4635	mes "...!!!";
4636	next;
4637	mes "["+strcharinfo(0)+"]";
4638	mes "You might not have caused";
4639	mes "the downfall of the Rosimiers";
4640	mes "yourself, but with the aid of";
4641	mes "the Rekenber Corporation, I'd";
4642	mes "say it was entirely possible!";
4643	next;
4644	cutin "kh_Kyel03",2;
4645	mes "[Kiel Hyre]";
4646	mes "Well played, adventurer.";
4647	mes "Well played. I don't regret";
4648	mes "what I did: they killed my";
4649	mes "Allysia! If James didn't betray";
4650	mes "her, if only he didn't drive";
4651	mes "her to commit suicide...";
4652	next;
4653	mes "["+strcharinfo(0)+"]";
4654	mes "That's where you're wrong!";
4655	mes "Allysia was killed, she didn't";
4656	mes "commit suicide. Take a good";
4657	mes "look at this note right here!";
4658	next;
4659	mes "[Kiel Hyre]";
4660	mes "What?!";
4661	next;
4662
4663	switch(select("Show James's Note")) {
4664
4665	case 1:
4666	mes "[Kiel Hyre]";
4667	mes "What does this prove?";
4668	mes "This doesn't show that";
4669	mes "James didn't betray Allysia.";
4670	mes "How does this change anything?";
4671	mes "She's dead, nothing I can do";
4672	mes "will bring her back to me!";
4673	next;
4674	mes "["+strcharinfo(0)+"]";
4675	mes "I never said James didn't";
4676	mes "betray her. Look at the date";
4677	mes "on the note. James made plans";
4678	mes "to run away with her on August";
4679	mes "20th. However, her body was";
4680	mes "found on the same day.";
4681	next;
4682	mes "["+strcharinfo(0)+"]";
4683	mes "Ergo, Allysia must have";
4684	mes "died on August 19th. If she";
4685	mes "was planning to run away with";
4686	mes "her love on the next day, then";
4687	mes "she had no reason to kill herself!";
4688	next;
4689	mes "[Kiel Hyre]";
4690	mes "No, that's not right!";
4691	mes "She probably couldn't";
4692	mes "trust me! She must have";
4693	mes "realized she was nothing";
4694	mes "but another toy to him!";
4695	next;
4696	mes "["+strcharinfo(0)+"]";
4697	mes "Oh yeah? I say she jumped";
4698	mes "into the river because you";
4699	mes "met her on that day. Now,";
4700	mes "take a good look at this!";
4701	next;
4702
4703	switch(select("Show K.H.'s note")) {
4704
4705	case 1:
4706	mes "["+strcharinfo(0)+"]";
4707	mes "This note was written by";
4708	mes "a man with your initials,";
4709	mes "K.H. These initials were also";
4710	mes "signed on her portrait. You";
4711	mes "must have written this note:";
4712	mes "there's too many coincidences!";
4713	next;
4714	mes "["+strcharinfo(0)+"]";
4715	mes "According to this note,";
4716	mes "you told Allysia that you";
4717	mes "wanted to see her again";
4718	mes "at the place you first met.";
4719	mes "I think you did see her again...";
4720	mes "on August 19th, the day she died!";
4721	next;
4722	mes "["+strcharinfo(0)+"]";
4723	mes "I'm assuming the place you";
4724	mes "two first met was near the";
4725	mes "river. No more of your lies:";
4726	mes "well me what really happened!";
4727	next;
4728	cutin "kh_kyel02",2;
4729	mes "[Kiel Hyre]";
4730	mes "............";
4731	mes ".........";
4732	mes "......";
4733	next;
4734	cutin "kh_Kyel03",2;
4735	mes "[Kiel Hyre]";
4736	mes "Hah... Ha ha ha...";
4737	mes "Yes... That's right...";
4738	mes "That horrible night.";
4739	mes "I remember it well...";
4740	mes ".....................";
4741	next;
4742	cutin "kh_kyel02",2;
4743	mes "[Kiel Hyre]";
4744	mes "That night, when she came";
4745	mes "to the river to meet me as";
4746	mes "I had asked, I begged her to";
4747	mes "run away with me, instead";
4748	mes "of waiting for that James.";
4749	next;
4750	mes "[Kiel Hyre]";
4751	mes "She insisted that James";
4752	mes "never betrayed her, and he";
4753	mes "promised to take her away";
4754	mes "with him the next day. Can";
4755	mes "you imagine how that made";
4756	mes "me feel? I was nothing to her.";
4757	next;
4758	mes "[Kiel Hyre]";
4759	mes "My feelings didn't matter to";
4760	mes "her at all! She kept fidgeting";
4761	mes "with that ring...I lost control";
4762	mes "and tried to take that damned";
4763	mes "thing away from her, and";
4764	mes "throw it into the river...";
4765	next;
4766	mes "[Kiel Hyre]";
4767	mes "But you know what?";
4768	mes "She struggled, she actually";
4769	mes "fought me! It was just a small";
4770	mes "fight, but then, before I knew";
4771	mes "it, the ground underneath us";
4772	mes "collapsed and... the rains...";
4773	next;
4774
4775	switch(select(".........")) {
4776
4777	case 1:
4778	mes "[Kiel Hyre]";
4779	mes "I'm not sure what it";
4780	mes "was. The rain weakened";
4781	mes "the ground, something went";
4782	mes "wrong... and she just... just...";
4783	mes "The river swallowed her...";
4784	mes "I felt empty. She was gone. ";
4785	set KielHyreQuest,70;
4786	delitem 7498,1; //Losimier's_House_Key
4787	delitem 7499,1; //Portrait_of_a_Family
4788	delitem 7500,1; //Portrait_of_a_Lady
4789	delitem 7501,1; //K.H's_Letter
4790	delitem 7502,1; //James's_Memo
4791	delitem 7503,1; //Portrait_of_a_Guy
4792	close2;
4793	cutin "",255;
4794	end;
4795	}
4796
4797	}
4798
4799	}
4800
4801	}
4802
4803	}
4804
4805	}
4806
4807	}
4808
4809	else if (KielHyreQuest == 70) {
4810	cutin "kh_kyel01",2;
4811	mes "[Kiel Hyre]";
4812	mes "You already know that";
4813	mes "she was found dead the";
4814	mes "next day. But what really";
4815	mes "broke my heart was that";
4816	mes "she held that ring so tightly";
4817	mes "in her hand, even in death...";
4818	next;
4819	cutin "kh_kyel03",2;
4820	mes "[Kiel Hyre]";
4821	mes "His family had everything";
4822	mes "while I had nothing. And";
4823	mes "he had the audacity to take";
4824	mes "Allysia away from me?!";
4825	mes "How could that be right?";
4826	next;
4827	mes "[Kiel Hyre]";
4828	mes "Even though she had passed";
4829	mes "away, I still wanted to prove";
4830	mes "to Allysia what kind of ugly";
4831	mes "person James really was.";
4832	mes "That was when I joined the";
4833	mes "Rekenber Corporation.";
4834	next;
4835	mes "[Kiel Hyre]";
4836	mes "I designed the very first";
4837	mes "First Generation Robot, which";
4838	mes "I named Allysia, and sold the";
4839	mes "designs to Rekenber. I gave them";
4840	mes "robots, and they gave me money,";
4841	mes "power, obedient subordinates.";
4842	next;
4843	mes "[Kiel Hyre]";
4844	mes "Of course I knew they'd use";
4845	mes "my robots for spying and killing!";
4846	mes "But you know what? It didn't";
4847	mes "matter so long as they gave me";
4848	mes "the means to my revenge. It was";
4849	mes "the perfect partnership, really.";
4850	next;
4851	mes "[Kiel Hyre]";
4852	mes "You've got me right";
4853	mes "where you want me.";
4854	mes "Who are you working";
4855	mes "for, and what exactly";
4856	mes "do you want? My designs?";
4857	mes "My death? Everything...?";
4858	next;
4859	cutin "kh_kyel01",2;
4860	mes "["+strcharinfo(0)+"]";
4861	mes "Actually, I just want";
4862	mes "to ask about the nature";
4863	mes "of your professional";
4864	mes "relationship with the";
4865	mes "Rekenber Corporation.";
4866	mes "And about Kiehl.";
4867	next;
4868	mes "[Kiel Hyre]";
4869	mes "Kiehl, eh? After hearing";
4870	mes "my crazy story, I'm guessing";
4871	mes "that you already suspect the";
4872	mes "truth about him... He's also";
4873	mes "a robot, specifically the first";
4874	mes "of the Second Generation models.";
4875	next;
4876	mes "[Kiel Hyre]";
4877	mes "His mind was developed using.";
4878	mes "an experimental, and unstable,";
4879	mes "form of the Condensed Magic";
4880	mes "Spell Scrolls. He was the only";
4881	mes "Second Generation robot that";
4882	mes "I was allowed to keep.";
4883	next;
4884	mes "[Kiel Hyre]";
4885	mes "I've become very attached";
4886	mes "to Kiehl. It's not surprising,";
4887	mes "seeing that robotics have";
4888	mes "become my life. I even raised";
4889	mes "him as my own son, and taught";
4890	mes "him everything about robotics";
4891	next;
4892	mes "[Kiel Hyre]";
4893	mes "Kiehl is now a genius,";
4894	mes "and has even developed the";
4895	mes "Third Generation of robots.";
4896	mes "Unfortunately, I failed to";
4897	mes "properly raise him with";
4898	mes "human morals and ethics.";
4899	next;
4900
4901	switch(select("......")) {
4902
4903	case 1:
4904	mes "[Kiel Hyre]";
4905	mes "He's been transforming";
4906	mes "the Third Generation robots";
4907	mes "into killing machines. That's";
4908	mes "why I tried to put them all";
4909	mes "into the academy, so they";
4910	mes "could learn human behavior.";
4911	next;
4912	mes "[Kiel Hyre]";
4913	mes "Although the academy";
4914	mes "has delayed Kiehl's plans,";
4915	mes "he has succeeded into";
4916	mes "converting all of the robots";
4917	mes "into uncontrollable engines";
4918	mes "of mass destruction.";
4919	next;
4920	mes "[Kiel Hyre]";
4921	mes "Yes, he's been working";
4922	mes "closely with Rekenber.";
4923	mes "Their true objective is to";
4924	mes "create killing machines";
4925	mes "for Rekenber's use.";
4926	next;
4927	mes "[Kiel Hyre]";
4928	mes "You know all the secrets";
4929	mes "of my past now. I'm not";
4930	mes "upset with you or anything,";
4931	mes "but I do have something";
4932	mes "that I want to ask of you.";
4933	next;
4934	mes "[Kiel Hyre]";
4935	mes "Please! Stop Kiehl!";
4936	mes "I don't want his madness";
4937	mes "to destroy any more robots!";
4938	mes "I see each and every one";
4939	mes "of them as one of my children!";
4940	next;
4941	mes "[Kiel Hyre]";
4942	mes "I know that I must take";
4943	mes "full responsibility for all";
4944	mes "that has happened. I promise";
4945	mes "to take any punishment for";
4946	mes "my actions once everything";
4947	mes "has been resolved.";
4948
4949	next;
4950
4951	select("Accept","Okay","Nod");
4952
4953	mes "[Kiel Hyre]";
4954	mes "Thank you so much!";
4955	mes "You can find Kiehl";
4956	mes "in the underground";
4957	mes "level in this mansion.";
4958	set KielHyreQuest,72;
4959
4960	}
4961
4962	}
4963
4964	else if (KielHyreQuest == 72) {
4965	cutin "kh_kyel01",2;
4966	//I believe this text goes here o_o
4967	mes "[Kiel Hyre]";
4968	mes "He stays in the old room";
4969	mes "where he was created, but";
4970	mes "he reconstructed it as some";
4971	mes "kind of cave to keep everyone";
4972	mes "out, including me. Yes, he";
4973	mes "doesn't trust anyone anymore...";
4974	next;
4975	mes "[Kiel Hyre]";
4976	mes "When you find him, I want";
4977	mes "you to take out Allysia's";
4978	mes "ring out of his heart. If you";
4979	mes "remove it, that should stop";
4980	mes "him from going berserk.";
4981	next;
4982
4983	switch(select("Allysia's Ring?")) {
4984
4985	case 1:
4986	mes "[Kiel Hyre]";
4987	mes "Yes... Her ring is the";
4988	mes "beginning of everything";
4989	mes "I put that in his heart so";
4990	mes "that I'd never forget what";
4991	mes "the Rosimiers did to me.";
4992	next;
4993	mes "[Kiel Hyre]";
4994	mes "I think Kiehl's grown";
4995	mes "so powerful that normal";
4996	mes "weapons might not work";
4997	mes "on him anymore. Use this";
4998	mes "device that will cause his";
4999	mes "power supply to fluctuate.";
5000	getitem 7504,1; //Power_Source
5001	next;
5002	cutin "kh_kyel03",2;
5003	mes "[Kiel Hyre]";
5004	mes "If you successfully attach";
5005	mes "this to Kiehl's body, then";
5006	mes "he won't be able to use his";
5007	mes "body's full power. While he's";
5008	mes "weakened, open up his chest";
5009	mes "and get the ring from his heart.";
5010	next;
5011	mes "[Kiel Hyre]";
5012	mes "Let me know once";
5013	mes "you're ready. Then, I'll";
5014	mes "guide you Kiehl's room.";
5015	set KielHyreQuest,74;
5016	break;
5017
5018	}
5019
5020	}
5021
5022	else if ((KielHyreQuest >= 74) && (KielHyreQuest <= 104)) {
5023	mes "[Kiel Hyre]";
5024	mes "Are you ready";
5025	mes "to confront";
5026	mes "Kiehl now?";
5027	next;
5028
5029	switch(select("Yes","No")) {
5030
5031	case 1:
5032	mes "[Kiel Hyre]";
5033	mes "There... the secret";
5034	mes "passage is open now.";
5035	mes "Just go to the right of";
5036	mes "me, but be careful. Kiehl";
5037	mes "is extremely dangerous.";
5038	enablenpc "Kiehl_Room_Warp";
5039	donpcevent "Kiehl_Room_Warp::OnEnable";
5040	break;
5041
5042	case 2:
5043	mes "[Kiel Hyre]";
5044	mes "Please take your";
5045	mes "time. I imagine that";
5046	mes "it won't be easy.";
5047	break;
5048
5049	}
5050
5051	}
5052
5053	else if ((KielHyreQuest >= 74) && (KielHyreQuest <= 106)) {
5054	cutin "kh_kyel01",2;
5055	mes "[Kiel Hyre]";
5056	mes "You're back...!";
5057	mes "So were you able";
5058	mes "to retrieve Allysia's";
5059	mes "Ring from Kiehl's heart?";
5060	next;
5061
5062	if (countitem(7508) < 1) {
5063	mes "[Kiel Hyre]";
5064	mes "You mean... You don't have it?";
5065	mes "Please, retrieve Allysia's Ring";
5066	mes "from Kiehl's heart!";
5067	next;
5068	enablenpc "Kiehl_Room_Warp";
5069	donpcevent "Kiehl_Room_Warp::OnEnable";
5070	close2;
5071	cutin "",255;
5072	end;
5073	}
5074
5075	mes "[Kiel Hyre]";
5076	mes "Wh-what happened...?";
5077	mes "Kiehl developed a new";
5078	mes "body for himself? Th-that";
5079	mes "would make him a Fourth";
5080	mes "Generation robot. I had";
5081	mes "no idea he was this smart.";
5082	next;
5083	mes "[Kiel Hyre]";
5084	mes "Wait, now that I think about";
5085	mes "it, I did see robot bodies that";
5086	mes "looked like Kiehl when I was";
5087	mes "locked in the factory. So he";
5088	mes "was using those copies to";
5089	mes "develop personal upgrades.";
5090	next;
5091	mes "[Kiel Hyre]";
5092	mes "Here, please take this";
5093	mes "Keycard which will let you";
5094	mes "enter and investigate the";
5095	mes "deepest levels of the factory.";
5096	mes "I'll investigate Kiehl's room.";
5097	set KielHyreQuest,108;
5098	getitem 7509,1; //Gorgeous_Keycard
5099	next;
5100
5101	if (sex == 0) {
5102	if (getpartnerid() == 0) set @KHTitle$,"Miss";
5103	else set @KHSTitle$,"Mrs";
5104	}
5105	else set @KHTitle$,"Mr";
5106
5107	mes "[Kiel Hyre]";
5108	mes "Kiehl is my responsibility...";
5109	mes "No matter what the cost may";
5110	mes "be, I've got to stop him! Oh,";
5111	mes "and here, please take this";
5112	mes "with my thanks for all of";
5113	mes "your help, "+@KHTitle$+" "+strcharinfo(0)+".";
5114	getitem 616,1; //Old card Album
5115	delitem 7508,1; //Elisia's_Ring
5116	getexp 1000000,0;
5117	}
5118
5119	else if (KielHyreQuest >= 108) {
5120	mes "[Kiel Hyre]";
5121	mes "......";
5122	mes ".........";
5123	mes "............";
5124	delitem 7487,countitem(7487); //Culinary_Wine
5125	delitem 7488,countitem(7488); //Delivery_Package
5126	delitem 7489,countitem(7489); //Cottage Key
5127	delitem 7490,countitem(7490); //Letter to Elly
5128	delitem 7491,countitem(7491); //Steel_box
5129	delitem 7492,countitem(7492); //Yellow_Keycard
5130	delitem 7493,countitem(7493); //Golden_Key
5131	delitem 7494,countitem(7494); //Exquisite_Button
5132	delitem 7495,countitem(7495); //Blue_Keycard
5133	delitem 7496,countitem(7496); //Red_Keycard
5134	delitem 7497,countitem(7497); //Metal_Fragment
5135	delitem 7498,countitem(7498); //Losimier's_House_Key
5136	delitem 7499,countitem(7499); //Portrait_of_a_Family
5137	delitem 7500,countitem(7500); //Portrait_of_a_Lady
5138	delitem 7501,countitem(7501); //K.H's_Letter
5139	delitem 7502,countitem(7502); //James's_Memo
5140	delitem 7503,countitem(7503); //Portrait_of_a_Guy
5141	delitem 7504,countitem(7504); //Power_Source
5142	delitem 7505,countitem(7505); //Toy_Key
5143	delitem 7506,countitem(7506); //Black_Keycard
5144	delitem 7508,countitem(7508); //Elysia_Ring
5145	delitem 7516,countitem(7516); //Green_Keycard
5146	}
5147
5148	close2;
5149	cutin "",255;
5150	end;
5151	}
5152
5153
5154	//----------------------------------------------------------------------------
5155	// Allysia
5156	//----------------------------------------------------------------------------
5157	kh_mansion,18,30,4 script Allysia 894,{
5158
5159	if (KielHyreQuest < 46) {
5160	mes "[Allysia]";
5161	mes "Who are you?";
5162	mes "How did you get here?";
5163	mes "Go away";
5164	close;
5165	}
5166
5167	cutin "kh_ellisia",2;
5168
5169	if (KielHyreQuest < 70) {
5170	mes "[Allysia]";
5171	mes "You must be surprised";
5172	mes "by everything that's been";
5173	mes "happening. Maybe everything";
5174	mes "would be easier to understand";
5175	mes "if I explained about robots?";
5176	next;
5177
5178	switch(select("Yes","No")) {
5179
5180	case 1:
5181	mes "[Allysia]";
5182	mes "The robots you've been";
5183	mes "encountering are automated";
5184	mes "mechanical puppets that can";
5185	mes "independantly think and operate.";
5186	mes "Many sages have tried to develop";
5187	mes "their own robots, but have failed.";
5188	next;
5189	mes "[Allysia]";
5190	mes "My master, Kiel Hyre, has";
5191	mes "been studying robotics since";
5192	mes "he was twenty years old, and";
5193	mes "has developed three different";
5194	mes "generations of robots, the first,";
5195	mes "second, and third generations.";
5196	next;
5197
5198	switch(select("First Generation","Second Generation","Third Generation")) {
5199
5200	case 1:
5201	mes "[Allysia]";
5202	mes "I am a good example of one";
5203	mes "of Kiel Hyre's First Generation";
5204	mes "robots. I was constructed using";
5205	mes "a heavy mechanical framework,";
5206	mes "a robotic heart, and chemically";
5207	mes "synthesized skin covering.";
5208	next;
5209	mes "[Allysia]";
5210	mes "My central processing unit,";
5211	mes "equivalent to your brain, is";
5212	mes "essentially a Memory Scroll";
5213	mes "based on the design of the";
5214	mes "Magic Spell Scrolls that you";
5215	mes "adventurers use in battle.";
5216	next;
5217	mes "[Allysia]";
5218	mes "I'm the oldest type of";
5219	mes "humanoid robot, so I weigh";
5220	mes "a lot, and my mind can only";
5221	mes "process a limited amount of";
5222	mes "data. Therefore, I can't express";
5223	mes "emotion similarly to a human.";
5224	next;
5225	break;
5226
5227	case 2:
5228	mes "[Allysia]";
5229	mes "The First Generation robots";
5230	mes "were developed from mostly";
5231	mes "mechanical parts, but the";
5232	mes "Second Generation robots";
5233	mes "incorporated Homunculus";
5234	mes "science and technology.";
5235	next;
5236	mes "[Allysia]";
5237	mes "Second Generation robots";
5238	mes "are more life-like since they";
5239	mes "have artifically created skin";
5240	mes "and flesh, although they still";
5241	mes "are constructed from a heavy";
5242	mes "mechanical framework.";
5243	next;
5244	mes "[Allysia]";
5245	mes "Sage elemental scroll";
5246	mes "technology was also used";
5247	mes "to develop the Condensed";
5248	mes "Memory Scroll, a central";
5249	mes "processing unit superior to that";
5250	mes "used in First Generation robots.";
5251	next;
5252	mes "[Allysia]";
5253	mes "Although Condensed Memory";
5254	mes "Scrolls were 100,000 times";
5255	mes "more powerful than ordinary";
5256	mes "Memory Scrolls, they were";
5257	mes "problematic and were prone";
5258	mes "to too many error problems.";
5259	next;
5260	mes "[Allysia]";
5261	mes "Second Generation robots";
5262	mes "were capable of expressing";
5263	mes "human-like emotion, but their";
5264	mes "production halted after six";
5265	mes "years because they were";
5266	mes "considered faulty.";
5267	next;
5268	break;
5269
5270	case 3:
5271	mes "[Allysia]";
5272	mes "Third Generation robots";
5273	mes "were mostly designed by";
5274	mes "Kiel Hyre's son, Kiehl,";
5275	mes "and don't use a mechanical";
5276	mes "framework at all: the entire";
5277	mes "body is basically a homunculus.";
5278	next;
5279	mes "[Allysia]";
5280	mes "With their organic bodies";
5281	mes "and advanced artificial hearts";
5282	mes "make from imitation Ymir Heart";
5283	mes "Pieces, they can experience";
5284	mes "physiologic phenomena";
5285	mes "just like ordinary humans.";
5286	next;
5287	mes "[Allysia]";
5288	mes "Kiehl was able to develop";
5289	mes "a more stable form of the";
5290	mes "Condensed Memory Scroll";
5291	mes "which does not suffer from";
5292	mes "critical errors, and can be";
5293	mes "cheaply mass processed.";
5294	next;
5295	mes "[Allysia]";
5296	mes "Elly is actually a Third";
5297	mes "Generation prototype. Once";
5298	mes "we optimize the prototypes,";
5299	mes "we will begin mass production.";
5300	mes "In fact, the academy is our";
5301	mes "prototype testing ground.";
5302	next;
5303	mes "[Allysia]";
5304	mes "The fact that out prototype";
5305	mes "robots can interact just like";
5306	mes "real humans is proof of our";
5307	mes "success in robotics.";
5308	next;
5309	break;
5310
5311	}
5312	case 2:
5313	mes "[Allysia]";
5314	mes "Please let me know if";
5315	mes "you'd like to learn more";
5316	mes "about Kiel Hyre's robots.";
5317	break;
5318
5319	}
5320
5321	}
5322
5323	else {
5324	mes "[Allysia]";
5325	mes "......";
5326	mes ".........";
5327	mes "............";
5328	}
5329
5330	close2;
5331	cutin "",255;
5332	end;
5333	}
5334
5335	//----------------------------------------------------------------------------
5336	// Abduction triggering NPC
5337	//----------------------------------------------------------------------------
5338	lighthalzen,188,200,0 script Abduction_trigger -1,3,1,{
5339	OnTouch:
5340	if (KielHyreQuest == 50) {
5341	mes "^3355FFAs you walked out of^000000";
5342	mes "^3355FFthe mansion, something^000000";
5343	mes "^3355FFsmashed the top of your^000000";
5344	mes "^3355FFhead, and you instantly^000000";
5345	mes "^3355FFlose consciousness...^000000";
5346	close2;
5347	percentheal -99,0;
5348	warp "kh_mansion",30,75;
5349	}
5350	end;
5351	}
5352
5353	//----------------------------------------------------------------------------
5354	// Mysterious Woman "Mitchell Layla"
5355	//----------------------------------------------------------------------------
5356	kh_mansion,25,79,4 script Mysterious Woman#kh 727,3,3,{
5357	L_StartDialog:
5358	if (KielHyreQuest == 50) {
5359	mes "^3355FFYou awaken with your^000000";
5360	mes "^3355FFhead painfully throbbing,^000000";
5361	mes "^3355FFand a mysterious woman^000000";
5362	mes "^3355FFstanding infront of you.^000000";
5363	next;
5364	mes "[??????]";
5365	mes "Hm? Oh, you're awake";
5366	mes "earlier than I thought.";
5367	mes "You must feel confused,";
5368	mes "but listen carefully. If you";
5369	mes "don't, then I can't guarantee";
5370	mes "your safety, okay? Alright.";
5371	next;
5372	mes "[??????]";
5373	mes "All you need to know it";
5374	mes "that I'm a secret agent for";
5375	mes "the Schwaltzvalt Republic";
5376	mes "government. We're investigating";
5377	mes "abnormal activity between Kiel";
5378	mes "Hyre and the Rekenber Corporation.";
5379	next;
5380	mes "[??????]";
5381	mes "We saw you enter the";
5382	mes "mansion and speak to";
5383	mes "Kiel Hyre, so basically";
5384	mes "you're here for questioning.";
5385	mes "Now tell me the truth. How";
5386	mes "do you know Kiel Hyre?";
5387	next;
5388
5389	switch(select("I'll tell you everything!","I don't know nuthin'!")) {
5390
5391	case 2:
5392	mes "[??????]";
5393	mes "Don't...know...nuthin'?";
5394	mes "You sure about that? Only";
5395	mes "a select few can even speak";
5396	mes "with Kiel Hyre in person. You";
5397	mes "must have some connection";
5398	mes "to him. I'm right, aren't it?";
5399	next;
5400	mes "["+strcharinfo(0)+"]";
5401	mes "......";
5402	mes ".........";
5403	mes "............";
5404	next;
5405	mes "[??????]";
5406	mes "Are you trying to protect";
5407	mes "him? I think that you might";
5408	mes "not understand what kind of";
5409	mes "person you're really dealing";
5410	mes "with here. I'll tell you what";
5411	mes "I've learned about him...";
5412	next;
5413	mes "[??????]";
5414	mes "Kiel Hyre. CEO of the";
5415	mes "Kiel Hyre Foundation,";
5416	mes "manufacturer of various";
5417	mes "machinery. His company started";
5418	mes "as a small Einbroch store whose";
5419	mes "technology slowly grew famous.";
5420	next;
5421	mes "[??????]";
5422	mes "Rekenber Corperation offered";
5423	mes "a merger with the Kiel Hyre";
5424	mes "Foundation. We're still not";
5425	mes "sure why they wanted Kiel";
5426	mes "Hyre in particular to repair";
5427	mes "and develop their Guardians...";
5428	next;
5429	mes "[??????]";
5430	mes "We're also not sure why";
5431	mes "they wanted to suddenly";
5432	mes "focus more on Guardian";
5433	mes "development. Then, all";
5434	mes "of a sudden, Kiel Hyre's son";
5435	mes "appears from out of nowehre.";
5436	next;
5437	mes "[??????]";
5438	mes "It's very suspicious.";
5439	mes "There's no records of his";
5440	mes "birth or anything. Still, maybe";
5441	mes "Kiel Hyre really did have him";
5442	mes "with his secretary, Allysia.";
5443	mes "Well, no one is really sure.";
5444	next;
5445	mes "[??????]";
5446	mes "In any case, Kiel Hyre's";
5447	mes "son and heir, Kiehl, helped";
5448	mes "his father establish this";
5449	mes "special academy as their";
5450	mes "way of giving back t society.";
5451	next;
5452	mes "[??????]";
5453	mes "Almost every corporation and";
5454	mes "organization tried to get their";
5455	mes "spies to enter this academy,";
5456	mes "but all of them were rejected.";
5457	mes "it's strange. At least one of";
5458	mes "them should have made it in.";
5459	next;
5460	mes "[??????]";
5461	mes "And recently, Kiehl Hyre";
5462	mes "has held a secret meeting with";
5463	mes "Rekenber executives to announce";
5464	mes "his new project. He intends to";
5465	mes "create advanced humanoid robots";
5466	mes "that will replace guardians!";
5467	next;
5468	mes "[??????]";
5469	mes "Our spies reported that";
5470	mes "Kiel Hyre was nowhere to";
5471	mes "be seen at that meeting,";
5472	mes "as well as his trusted";
5473	mes "secretary, Allysia. He...";
5474	mes "He just disappeared!";
5475	next;
5476	mes "[??????]";
5477	mes "Then, Kiel Hyre pops back";
5478	mes "in his mansion after all";
5479	mes "this time as if nothing";
5480	mes "happened! At the same time,";
5481	mes "Kiehl disappears, under the";
5482	mes "excuse of conducting research.";
5483	next;
5484	mes "[??????]";
5485	mes "Rekenber is sponsoring";
5486	mes "both Kiehl and Kiel, but";
5487	mes "there's some kind of conflict";
5488	mes "going on between father and";
5489	mes "son, I just know it! Now tell";
5490	mes "me, what's going on?";
5491	next;
5492	mes "[??????]";
5493	mes "I'm not sure how well you";
5494	mes "know this country, but the";
5495	mes "fact that Rekenber is invoved";
5496	mes "must tell you that these aren't";
5497	mes "good people. Tell me what";
5498	mes "you know about them!";
5499	next;
5500	case 1:
5501	mes "^3355FFYou tell the woman^000000";
5502	mes "^3355FFeverything you know^000000";
5503	mes "^3355FFabout Kiel Hyre. Your^000000";
5504	mes "^3355FFvoice quivers with sadness^000000";
5505	mes "^3355FFwhenever you mention Elly.^000000";
5506	next;
5507	mes "[??????]";
5508	mes "I see, I see...";
5509	mes "That poor girl... So...";
5510	mes "Your involvement in this";
5511	mes "is a coincidence? In that";
5512	mes "case, I want your help";
5513	mes "in our investigation.";
5514	next;
5515
5516	switch(select("Okay","......")) {
5517
5518	case 1:
5519	L_Help:
5520	mes "[??????]";
5521	mes "Great.";
5522	mes "I'm Agent Mitchell Layla.";
5523	mes "From here on, you're working";
5524	mes "for the Schwaltzvalt Republic!";
5525	set KielHyreQuest,52;
5526	close;
5527
5528	case 2:
5529	mes "[??????]";
5530	mes "If you don't cooperate,";
5531	mes "then I can't guarantee";
5532	mes "your safety, adventurer";
5533	next;
5534	mes "["+strcharinfo(0)+"]";
5535	mes "Huh? What...?";
5536	mes "What does that mean?";
5537	mes "Are you threatening me?";
5538	next;
5539	menu "Just do what she says.",L_Help;
5540	}
5541
5542	}
5543
5544	}
5545
5546	else if (KielHyreQuest == 52) {
5547	mes "[Mitchell]";
5548	mes "I've got some new";
5549	mes "information for you.";
5550	mes "There's an old lady in";
5551	mes "Juno that knew a woman";
5552	mes "named Allysia 30 years ago.";
5553	next;
5554	mes "[Mitchell]";
5555	mes "The clincher is that this";
5556	mes "Allysia from 30 years ago";
5557	mes "commited suicide, and is";
5558	mes "identical to Kiel Hyre's";
5559	mes "secretary, who is also";
5560	mes "named Allysia.";
5561	next;
5562	mes "[Mitchell]";
5563	mes "This is too much of a";
5564	mes "coincidense. I want you to";
5565	mes "go to Juno and investigate.";
5566	mes "When you're done, talk to";
5567	mes "Kiel Hyre's steward, and";
5568	mes "he'll send you over to me.";
5569	next;
5570	mes "[Mitchell]";
5571	mes "Yeah, I know.";
5572	mes "That guy actually";
5573	mes "works for me. Anyway,";
5574	mes "when you're ready to go";
5575	mes "to Juno, let me know, and you";
5576	mes "can board the federal airship.";
5577	set KielHyreQuest,54;
5578	close;
5579	}
5580
5581	else if (KielHyreQuest == 54) {
5582	mes "[Mitchell]";
5583	mes "Are you ready?";
5584	mes "I'll let you board";
5585	mes "the federal Airship so";
5586	mes "you can get to Juno, and";
5587	mes "finish your mission quickly.";
5588	next;
5589
5590	switch(select("Yes","No")) {
5591
5592	case 1:
5593	mes "[Mitchell]";
5594	mes "Good luck. Once you";
5595	mes "complete your mission,";
5596	mes "make sure that you report";
5597	mes "to Kiel Hyre's steward so";
5598	mes "that he can send you to me.";
5599	close2;
5600	warp "yuno",54,209;
5601	end;
5602	case 2:
5603	mes "[Mitchell]";
5604	mes "Take your time...";
5605	mes "But keep in mind that";
5606	mes "I'm not a patient woman!";
5607	close;
5608
5609	}
5610
5611	}
5612
5613	else if (KielHyreQuest == 64) {
5614	mes "[Mitchell]";
5615	mes "Ah, you're back.";
5616	mes "What do you have";
5617	mes "to report from your";
5618	mes "investigation?";
5619	next;
5620	mes "[Mitchell]";
5621	mes ".....................";
5622	mes "Ah, I see. Good work.";
5623	mes "Why don't you go speak to Kiel";
5624	mes "Hyre and confront him with";
5625	mes "what you've learned about";
5626	mes "his past? Yeah, grill him.";
5627	next;
5628	mes "[Mitchell]";
5629	mes "Wear this hidden mic,";
5630	mes "so we can send help if";
5631	mes "you're endangered. I want";
5632	mes "you to find out who Kiel";
5633	mes "really is, and what's his";
5634	mes "relationship to Rekenber.";
5635	set KielHyreQuest,68;
5636	next;
5637	warp "kh_mansion",83,50;
5638	end;
5639	}
5640
5641
5642	else if (KielHyreQuest >= 68) {
5643	mes "[Mitchell]";
5644	mes "Shouldn't you be";
5645	mes "leaving about now?";
5646	next;
5647	warp "kh_mansion",83,50;
5648	end;
5649	}
5650
5651	OnTouch:
5652	if (KielHyreQuest <= 50) {
5653	goto L_StartDialog;
5654	}
5655	end;
5656	}
5657
5658	//----------------------------------------------------------------------------
5659	// Warp portal into Kiehl's 'Room'
5660	// - Anyone can enter
5661	// - After 30-40 seonds this NPC should be disabled.
5662	//----------------------------------------------------------------------------
5663	kh_mansion,29,27,0 script Kiehl_Room_Warp 45,2,2,{
5664	OnTouch:
5665	warp "kh_kiehl01",10,31;
5666	end;
5667
5668	OnEnable:
5669	initnpctimer;
5670	misceffect 215;
5671	end;
5672
5673	OnTimer30000:
5674	stopnpctimer;
5675	misceffect 215;
5676	disablenpc "Kiehl_Room_Warp";
5677	end;
5678
5679	OnInit:
5680	disablenpc "Kiehl_Room_Warp";
5681	end;
5682	}
5683
5684	//============================================================================
5685
5686	//============================================================================
5687	// Rosimier NPCs and other Related NPCs
5688	//============================================================================
5689
5690	//----------------------------------------------------------------------------
5691	// Odd Grandma
5692	//----------------------------------------------------------------------------
5693	yuno,256,141,4 script Odd Grandma 846,{
5694	if (KielHyreQuest < 54) {
5695	mes "[Grandma]";
5696	mes "Where did you go,";
5697	mes "my darling? Where";
5698	mes "are you, my little dear?";
5699	close;
5700	}
5701
5702	else if (KielHyreQuest == 54) {
5703	mes "[Grandma]";
5704	mes "Lullabye...";
5705	mes "Say goodnight...";
5706	mes "Hush little baby...";
5707	mes "Go to sleeeeep~";
5708	next;
5709
5710	switch(select("What are you doing?","Um, I don't see a baby...")) {
5711
5712	case 1:
5713	mes "[Grandma]";
5714	mes "Oh? My baby won't stop";
5715	mes "crying and can't seem";
5716	mes "to sleep. She needs to";
5717	mes "rest, so I can go to work.";
5718	mes "The house is so messy,";
5719	mes "and the boss is unhappy...";
5720	set KielHyreQuest,56;
5721	next;
5722
5723	switch(select("Um, I don't see a baby...")) {
5724
5725	case 1:
5726	mes "[Grandma]";
5727	//Missing text, needs another run through.
5728	mes "Allysia...?!";
5729	mes "Allysia, where did";
5730	mes "you go? You were";
5731	mes "supposed to come";
5732	mes "home a while ago!";
5733	close;
5734
5735	}
5736
5737	case 2:
5738	//Missing text, needs another run through.
5739	mes "[Grandma]";
5740	mes "Allysia...?!";
5741	mes "Allysia, where did";
5742	mes "you go? You were";
5743	mes "supposed to come";
5744	mes "home a while ago!";
5745	close;
5746
5747	}
5748
5749	}
5750
5751	else if ((KielHyreQuest >= 56) && (KielHyreQuest < 60)) {
5752	mes "[Grandma]";
5753	mes "Allysia...?!";
5754	mes "Allysia, where did";
5755	mes "you go? You were";
5756	mes "supposed to come";
5757	mes "home a while ago!";
5758
5759	if (countitem(7500) < 1) {
5760	close;
5761	}
5762
5763	else {
5764	next;
5765
5766	switch(select("Allysia? Isn't she...")) {
5767
5768	case 1:
5769	cutin "kh_ellisia_port",1;
5770	mes "^3355FFYou show Allysia's";
5771	mes "portrait to the old woman.^000000";
5772	next;
5773	cutin "",255;
5774	mes "[Grandma]";
5775	mes "Oh, do you know";
5776	mes "Allysia? She's been";
5777	mes "missing! She left home";
5778	mes "yesterday and hasn't";
5779	mes "come back! C-can you";
5780	mes "tell me where she is?!";
5781	close;
5782	}
5783
5784	}
5785
5786	}
5787
5788	else if (KielHyreQuest >= 60) {
5789	mes "[Grandma]";
5790	mes "Don't worry, Allysia...";
5791	mes "Mommy will always be";
5792	mes "here for you. There's no";
5793	mes "need to be sad...";
5794	close;
5795	}
5796
5797	}
5798
5799	//----------------------------------------------------------------------------
5800	// Old Lady; gives you the key to the Rosimier Mansion
5801	//----------------------------------------------------------------------------
5802	yuno,250,132,2 script Old Lady 711,{
5803	if (KielHyreQuest < 56) {
5804	mes "[Old Lady]";
5805	mes "Oooh, my legs and back";
5806	mes "are so sore. These old";
5807	mes "bones ache all over...";
5808	close;
5809	}
5810
5811	else if (KielHyreQuest == 56) {
5812	if (checkweight(7498,1) == 0) {
5813	mes "^3355FF- Wait!! -";
5814	mes "- You are carrying too many items";
5815	mes "- and are unable to accept any more. -";
5816	mes "- Please make some space avaliable";
5817	mes "- in your inventory before returning. -^000000";
5818	close;
5819	}
5820
5821	mes "[Old Lady]";
5822	mes "Goodness, I hate this";
5823	mes "weather! Reminds me";
5824	mes "of how old I've gotten!";
5825	mes "It chills my bones, it does!";
5826	next;
5827
5828	switch(select("......","Do you know that grandma?")) {
5829
5830	case 1:
5831	mes "[Old Lady]";
5832	mes "Damn it! If only I didn't";
5833	mes "have all those adventures";
5834	mes "in my youth! Then maybe";
5835	mes "I wouldn't suffer so in";
5836	mes "my advanced age!";
5837	close;
5838
5839	case 2:
5840	mes "[Old Lady]";
5841	mes "Oh... Yes. She was";
5842	mes "the mother of my best";
5843	mes "friend, ^3355FFAllysia^000000. Ever since";
5844	mes "she commited suicide, things";
5845	mes "haven't been the same. Her";
5846	mes "mother lost her sanity...";
5847	next;
5848
5849	switch(select("Was ^3355FFAllysia^000000...?")) {
5850
5851	case 1:
5852	mes "[Old Lady]";
5853	mes "Oh, Allysia was such";
5854	mes "a beautiful girl. So many";
5855	mes "men wanted her, especially";
5856	mes "that dashing James Rosimier.";
5857	mes "I remember hearing that they";
5858	mes "were going to get married...";
5859	next;
5860	mes "[Old Lady]";
5861	mes "I was so happy for her!";
5862	mes "But then, all of a sudden,";
5863	mes "she killed herself. Well,";
5864	mes "that's what they all say.";
5865	mes "Even today, I'm still not";
5866	mes "sure what happened.";
5867	next;
5868
5869	switch(select("Wait, who's James Rosimier?")) {
5870
5871	case 1:
5872	mes "[Old Lady]";
5873	mes "Oh, James belonged to";
5874	mes "one of the oldest and richest";
5875	mes "families in Juno. Everything";
5876	mes "was going great for them, but";
5877	mes "some time after Allysia died,";
5878	mes "the family went bankrupt.";
5879	next;
5880	mes "[Old Lady]";
5881	mes "The city manages their";
5882	mes "old residence now. For";
5883	mes "some reason, they decided";
5884	mes "to entrust me with the master";
5885	mes "key to the Rosimier Mansion.";
5886	next;
5887
5888	switch(select("May I borrow the Master Key?")) {
5889
5890	case 1:
5891	mes "[Old Lady]";
5892	mes "Well, I'm really not";
5893	mes "supposed to give it to just";
5894	mes "anyone, but I can tell that";
5895	mes "you're working with Allysia's";
5896	mes "best interests at heart.";
5897	next;
5898	mes "[Old Lady]";
5899	mes "However, you've got to";
5900	mes "make sure that you return";
5901	mes "it to me before the people";
5902	mes "from City Hall ask me for it.";
5903	mes "Alright then, I hope you find";
5904	mes "what you're looking for.";
5905	set KielHyreQuest,58;
5906	getitem 7498,1; //Losimier's_House_Key
5907	close;
5908	}
5909
5910	}
5911
5912	}
5913
5914	}
5915
5916	}
5917
5918	else if ((KielHyreQuest == 58) &&
5919	(countitem(7499) < 1) \|\|
5920	(countitem(7500) < 1) \|\|
5921	(countitem(7501) < 1) \|\|
5922	(countitem(7502) < 1)) {
5923	mes "[Old Lady]";
5924	mes "Please hurry and find";
5925	mes "whatever you're searching";
5926	mes "for in the Rosimier Mansion.";
5927	mes "I might get in trouble if";
5928	mes "the people from City Hall";
5929	mes "come and ask me for the key...";
5930	close;
5931	}
5932
5933	else if ((KielHyreQuest == 58) &&
5934	(countitem(7499) == 1) &&
5935	(countitem(7500) == 1) &&
5936	(countitem(7501) == 1) &&
5937	(countitem(7502) == 1)) {
5938	mes "[Old Lady]";
5939	mes "Oh, you're finished";
5940	mes "searching the mansion?";
5941	mes "Depressing, isn't it?";
5942	mes "The creditors basically";
5943	mes "ransacked everything";
5944	mes "a very long time ago.";
5945	next;
5946
5947	switch(select("Why did ^3355FFAllysia^000000...?")) {
5948
5949	case 1:
5950	mes "[Old Lady]";
5951	mes "Well, I know that James";
5952	mes "and Allysia were in love,";
5953	mes "and he promised to marry";
5954	mes "her. Now, supposedly his";
5955	mes "family already betrothed";
5956	mes "him to another woman.";
5957	next;
5958	mes "[Old Lady]";
5959	mes "Time went by, and he";
5960	mes "was forced to marry his";
5961	mes "fiancee. Allysia was pretty";
5962	mes "devastated. I think maybe";
5963	mes "that's what she... you know...";
5964	next;
5965	mes "[Old Lady]";
5966	mes "Listen, if you want to learn";
5967	mes "more about what happened,";
5968	mes "then I think you should talk";
5969	mes "to the ^3355FFfisherman that lives^000000";
5970	mes "^3355FFsouth of the Kiel Hyre Academy.^000000";
5971	next;
5972	mes "[Old Lady]";
5973	mes "He's the one that found";
5974	mes "Allysia's body in the river,";
5975	mes "so he might have a better";
5976	mes "idea of what had happened.";
5977	set KielHyreQuest,60;
5978	delitem 7498,1; //Losimier's_House_Key
5979	close;
5980
5981	}
5982
5983	}
5984
5985	else if (KielHyreQuest >= 60) {
5986	mes "[Old Lady]";
5987	mes "Yep, Rain's coming.";
5988	mes "Can feel it in my bones.";
5989	close;
5990	}
5991
5992	}
5993
5994
5995	//----------------------------------------------------------------------------
5996	// Warp portal into Rosimier Mansion
5997	//----------------------------------------------------------------------------
5998	yuno,273,141,0 script Rosimmir_Entrance 45,2,2,{
5999	OnTouch:
6000	if (countitem(7498) < 1)
6001	{
6002	mes "That mansion seems to have";
6003	mes "been destroyed by the time.";
6004	mes "However, the door looks like";
6005	mes "it'd be still operational if";
6006	mes "you had the right key.";
6007	close;
6008	}
6009	else
6010	warp "kh_rossi",20,92;
6011	end;
6012	}
6013
6014	//----------------------------------------------------------------------------
6015	// Rosimier Mansion, first floor; Table
6016	//----------------------------------------------------------------------------
6017	kh_rossi,23,23,0 script Table 111,{
6018	if (countitem(7499) < 1) {
6019	if (checkweight(7499,1) == 0) {
6020	mes "^3355FF- Wait!! -";
6021	mes "- You are carrying too many items";
6022	mes "- and are unable to accept any more. -";
6023	mes "- Please make some space avaliable";
6024	mes "- in your inventory before returning. -^000000";
6025	close;
6026	}
6027
6028	cutin "kh_family_port",1;
6029	mes "^3355FFYou examine the table,^000000";
6030	mes "^3355FFand find a frames portait^000000";
6031	mes "^3355FFinside the open drawer.^000000";
6032	getitem 7499,1; //Portrait_of_a_Family
6033	}
6034
6035	else {
6036	mes "^3355FFThe open drawer of,^000000";
6037	mes "^3355FFthis desk is empty now.^000000";
6038	}
6039
6040	close2;
6041	cutin "",255;
6042	end;
6043	}
6044
6045	//----------------------------------------------------------------------------
6046	// Rosimier Mansion, first floor; Shelf
6047	//----------------------------------------------------------------------------
6048	kh_rossi,92,40,0 script Shelf::ShelfKHQ1 111,{
6049	if (countitem(7500) < 1) {
6050	if (checkweight(7500,1) == 0) {
6051	mes "^3355FF- Wait!! -";
6052	mes "- You are carrying too many items";
6053	mes "- and are unable to accept any more. -";
6054	mes "- Please make some space avaliable";
6055	mes "- in your inventory before returning. -^000000";
6056	close;
6057	}
6058
6059	mes "^3355FFThere are locked^000000";
6060	mes "^3355FFboxes on these bookshelves.^000000";
6061	mes "^3355FFPerhaps if you used this^000000";
6062	mes "^3355FFmansions's Master Key, you^000000";
6063	mes "^3355FFmight be able to open them.^000000";
6064	next;
6065
6066	switch(select("Use Key","Pass")) {
6067
6068	case 1:
6069	mes "^3355FFWhich box do you^000000";
6070	mes "^3355FFwant to try to open?^000000";
6071	next;
6072
6073	switch(select("First Box","Second Box")) {
6074
6075	case 1:
6076	mes "^3355FFYou use the Master Key to^000000";
6077	mes "^3355FFunlock the box, and obtain^000000";
6078	mes "^3355FFa portait of a woman that^000000";
6079	mes "^3355FFlooks just like Kiel Hyre's^000000";
6080	mes "^3355FFassistant, Allysia.^000000";
6081	next;
6082	cutin "kh_ellisia_port",2;
6083	mes "^3355FFThe message, ''To my love,^000000";
6084	mes "^3355FFAllysia. From James.'' is^000000";
6085	mes "^3355FFwritten on the back.^000000";
6086	getitem 7500,1; //Portrait_of_a_Lady
6087	close2;
6088	cutin "",255;
6089	end;
6090
6091	case 2:
6092	mes "^3355FFThis box is empty.^000000";
6093	close;
6094
6095	}
6096
6097	case 2:
6098	mes "^3355FFThis box is empty.^000000";
6099	close;
6100
6101	}
6102
6103	}
6104
6105	else {
6106	mes "^3355FFYou've found a woman's^000000";
6107	mes "^3355FFportrait in one of the^000000";
6108	mes "^3355FFboxes on this shelf.^000000";
6109	close;
6110	}
6111
6112	}
6113
6114
6115	//----------------------------------------------------------------------------
6116	// Rosimier Mansion, top floor; Desk
6117	//----------------------------------------------------------------------------
6118	kh_rossi,144,287,0 script Desk::DeskKHQ2 111,{
6119	if (checkweight(7501,1) == 0) {
6120	mes "^3355FF- Wait!! -";
6121	mes "- You are carrying too many items";
6122	mes "- and are unable to accept any more. -";
6123	mes "- Please make some space avaliable";
6124	mes "- in your inventory before returning. -^000000";
6125	close;
6126	}
6127
6128	mes "^3355FFThe desk has^000000";
6129	mes "^3355FFthree drawers.^000000";
6130	next;
6131
6132	switch(select("First Drawer","Second Drawer","Third Drawer","Cancel")) {
6133
6134	case 1:
6135	mes "^3355FFThe first drawer is locked.^000000";
6136	close;
6137
6138	case 2:
6139	if (countitem(7501) < 1) {
6140	mes "^3355FFThere is a letter inside^000000";
6141	mes "^3355FFthis second drawer. it^000000";
6142	mes "^3355FFwas sent by a person^000000";
6143	mes "^3355FFwith the initials, K.H.,^000000";
6144	mes "^3355FFand addressed to Allysia.^000000";
6145	getitem 7501,1; //K.H's_Letter
6146	close;
6147	}
6148
6149	else {
6150	mes "^3355FFThis drawer is now empty.^000000";
6151	close;
6152
6153	}
6154
6155	case 3:
6156	mes "^3355FFThere is a small note^000000";
6157	mes "^3355FFinside this third drawer.^000000";
6158	mes "^3355FFIt's written by James, and^000000";
6159	mes "^3355FFmentions that he wants to^000000";
6160	mes "^3355FFmarry Allysia, and that she^000000";
6161	mes "^3355FFrecieved an engagement ring.^000000";
6162	close;
6163
6164	case 4:
6165	mes "......";
6166	mes ".........";
6167	mes "............";
6168	close;
6169
6170	}
6171
6172	}
6173
6174	//----------------------------------------------------------------------------
6175	// Rosimier Mansion, top floor; Bookshelf
6176	//----------------------------------------------------------------------------
6177	kh_rossi,149,288,0 script Bookshelf::BookshelfKHQ2 111,{
6178	if (countitem(7502) < 1) {
6179	if (checkweight(7502,1) == 0) {
6180	mes "^3355FF- Wait!! -";
6181	mes "- You are carrying too many items";
6182	mes "- and are unable to accept any more. -";
6183	mes "- Please make some space avaliable";
6184	mes "- in your inventory before returning. -^000000";
6185	close;
6186	}
6187
6188	mes "^3355FFYou encounter a dusty ^000000";
6189	mes "^3355FFbookshelf filled with^000000";
6190	mes "^3355FFnumerous books. You^000000";
6191	mes "^3355FFfind a folded note between^000000";
6192	mes "^3355FFthe books as you examine them.^000000";
6193	getitem 7502,1; //James's_Memo
6194	close;
6195	}
6196
6197	else {
6198	mes "^3355FFYou encounter a dusty ^000000";
6199	mes "^3355FFbookshelf filled with^000000";
6200	mes "^3355FFnumerous books.^000000";
6201	close;
6202	}
6203
6204	}
6205
6206	//----------------------------------------------------------------------------
6207	// Fisherman
6208	//----------------------------------------------------------------------------
6209	yuno_fild12,232,222,0 script Old Fisherman 709,{
6210	if (KielHyreQuest < 60) {
6211	mes "[Fisherman]";
6212	mes "These days, it's much";
6213	mes "harder to catch and fish.";
6214	mes "Ever since they built";
6215	mes "this factory, the fish";
6216	mes "have started to change,";
6217	mes "and they look different too...";
6218	close;
6219	}
6220
6221	else if (KielHyreQuest == 60) {
6222	mes "[Fisherman]";
6223	mes "Eh? You want something?";
6224	mes "Heh, youngsters! I know";
6225	mes "how much you love handouts,";
6226	mes "but you're not getting any.";
6227	mes "Now, if you bring me some";
6228	mes "Raw Fish, I'd be more friendly~";
6229
6230	if (countitem(544) >= 10) {
6231	next;
6232	mes "[Fisherman]";
6233	mes "Oh, is all this fish";
6234	mes "for me? Heh, how very";
6235	mes "generous of you. If you're";
6236	mes "going to be so kind, then";
6237	mes "i suppose I have to repay";
6238	mes "the favor. Ask me anything~";
6239	next;
6240
6241	switch(select("30 years ago, a woman killed herself...")) {
6242
6243	case 1:
6244	mes "[Fisherman]";
6245	mes "Oh? Ohh. Oh yeah.";
6246	mes "I remember that. Yeah.";
6247	mes "it was August 20th, my";
6248	mes "wife's birthday. That day,";
6249	mes "instead of catching fish,";
6250	mes "I caught a dead woman.";
6251	next;
6252	mes "[Fisherman]";
6253	mes "Of course, I reported it";
6254	mes "to the Juno Police! They told";
6255	mes "me she killed herself since";
6256	mes "she was betrayed by her lover,";
6257	mes "who also happened to be her";
6258	mes "employer. Really tragic stuff.";
6259	next;
6260	mes "[Fisherman]";
6261	mes "Anyway, when they were";
6262	mes "moving her body out of the";
6263	mes "river, her hand dropped";
6264	mes "some ring. I picked it up,";
6265	mes "hoping to sell it later for";
6266	mes "some zeny. I know, I know...";
6267	next;
6268	mes "[Fisherman]";
6269	mes "I was pretty lucky the";
6270	mes "police didn't see me take";
6271	mes "it. Later that day, some guy";
6272	mes "came up to me and offered";
6273	mes "me a lot of money for it.";
6274	mes "I guess it was my lucky day!";
6275	next;
6276	mes "[Fisherman]";
6277	mes "I found out later that he was";
6278	mes "some mechanical repairman--";
6279	mes "something. He sold everything";
6280	mes "to buy that ring, so I guess";
6281	mes "he wanted it desperately.";
6282	mes "Then he just dissapeared.";
6283	next;
6284	mes "[Fisherman]";
6285	mes "His name...?";
6286	mes "It was something like...";
6287	mes "Heil? Hyre? Anyway, it";
6288	mes "was a long time ago. Oh,";
6289	mes "his old house is still around.";
6290	next;
6291	mes "[Fisherman]";
6292	mes "If you're going to be";
6293	mes "that curious, you might";
6294	mes "as well check it out.";
6295	mes "Let's see, he lived in";
6296	mes "a hut near the northeast";
6297	mes "forest guard camp.";
6298	delitem 544,10; //Fish_Slice
6299	set KielHyreQuest,62;
6300	close;
6301	}
6302
6303	}
6304
6305	else {
6306	close;
6307	}
6308
6309	}
6310
6311	else if (KielHyreQuest >= 62) {
6312	mes "[Fisherman]";
6313	mes "Don't you remember";
6314	mes "what I told you? That";
6315	mes "guy lived in a hut near";
6316	mes "the northeast forest";
6317	mes "guard camp! Why don't";
6318	mes "you check that place out?";
6319	close;
6320	}
6321
6322	}
6323
6324	//----------------------------------------------------------------------------
6325	// Kiel Hyre's hut; Wooden Board
6326	//----------------------------------------------------------------------------
6327	yuno_fild09,158,217,0 script Wooden Board 111,{
6328	if ((KielHyreQuest < 62) \|\| (KielHyreQuest >= 64)) {
6329	mes "^3355FFIt's a useless^000000";
6330	mes "^3355FFwooden board^000000";
6331	mes "^3355FFin the bushes.^000000";
6332	close;
6333	}
6334
6335	else if (KielHyreQuest == 62) {
6336	if (checkweight(7503,1) == 0) {
6337	mes "^3355FF- Wait!! -";
6338	mes "- You are carrying too many items";
6339	mes "- and are unable to accept any more. -";
6340	mes "- Please make some space avaliable";
6341	mes "- in your inventory before returning. -^000000";
6342	close;
6343	}
6344
6345	mes "^000oFFYou found a long^000000";
6346	mes "^3355FFwooden board carved^000000";
6347	mes "^3355FFwith the initials, 'K.H.'^000000";
6348	next;
6349	cutin "kh_kyel_port",2;
6350	mes "^3355FFYou find a portrait of^000000";
6351	mes "^3355FFa young man, that looks^000000";
6352	mes "^3355FFlike a younger version^000000";
6353	mes "^3355FFof Kiel Hyre, in a broken^000000";
6354	mes "^3355FFpicture frame underneath^000000";
6355	mes "^3355FFthe old wooden board.^000000";
6356	set KielHyreQuest,64;
6357	getitem 7503,1; //Portrait_of_a_Guy
6358	next;
6359	cutin "",255;
6360	mes "^3355FFYou have enough^000000";
6361	mes "^3355FFinformation by now,^000000";
6362	mes "^3355FFso you should report^000000";
6363	mes "^3355FFback to Mitchell.^000000";
6364	close;
6365	}
6366
6367	}
6368
6369	//============================================================================
6370	// Kiehl Hyre's Room and Boss NPCs
6371	//============================================================================
6372	// Beyond here the NPC for the final areas.
6373	// Now, this area is not someplace you wanna slow down so
6374	// you can pick up dialog. I used packet logging to pull
6375	// what I could and for the sake of the two people with me,
6376	// did not bother doing all the proper proper NPC positioning
6377	// or some of the 'error/wrong option' dialogs.
6378	// All the doors are kind of weird.
6379	//============================================================================
6380
6381	//----------------------------------------------------------------------------
6382	// Kiehl's Room; Receiver (Gives black keycards upon killing mobs)
6383	//----------------------------------------------------------------------------
6384	kh_kiehl01,17,39,0 script Receiver 111,{
6385	if (.KHKilled < 1) {
6386	mes "^333333BBBZZZ^000000";
6387	if (KielHyreQuest == 74) {
6388	next;
6389	mes "[????]";
6390	mes "^333333Bzzzz...";
6391	mes "I've never seen you";
6392	mes "before. Did Father send";
6393	mes "you to kill me? We'll just";
6394	mes "see about that! Go ahead,";
6395	mes "try to find me, adventurer.^000000.";
6396	set KielHyreQuest,76;
6397	}
6398	close2;
6399	set .KHKilled,2;
6400	monster "kh_kiehl01",16,32,"Alicel",1739,1,"Receiver::OnMyMobDead";
6401	monster "kh_kiehl01",18,31,"Aliot",1740,1,"Receiver::OnMyMobDead";
6402	end;
6403	}
6404
6405	else {
6406	end;
6407	}
6408
6409	OnMyMobDead:
6410	set .KHKilled,.KHKilled-1;
6411	if (.KHKilled < 1) {
6412	makeitem 7506,1,"this",19,36;
6413	set .KHKilled,0;
6414	}
6415	end;
6416	}
6417
6418	//----------------------------------------------------------------------------
6419	// Kiehl's Room; Flower Vase (Gives...password...for Box)
6420	//----------------------------------------------------------------------------
6421	kh_kiehl01,13,40,0 script Flower Vase 111,{
6422	if (KielHyreQuest < 74) {
6423	mes "^3355FFYou found";
6424	mes "a flower vase.^000000";
6425	close;
6426	}
6427
6428	if (KielHyreQuest >= 74) {
6429	mes "^3355FFYou found";
6430	mes "a flower vase.^000000";
6431	next;
6432
6433	switch(select("Pick Up Vase","Break Vase","Turn Vase Upside-down")) {
6434
6435	case 1:
6436	mes "^3355FFThe vase is empty.^000000";
6437	close;
6438
6439	case 2:
6440	mes "^3355FFYou can't destroy";
6441	mes "this vase, even by";
6442	mes "striking it with all your";
6443	mes "might. It must have been";
6444	mes "specially manufactured by";
6445	mes "the Rekenber Corporation.^000000";
6446	close;
6447
6448	case 3:
6449	mes "^3355FFThe following words";
6450	mes "are written at the";
6451	mes "bottom of the vase.^000000";
6452	next;
6453	mes "[Vase Message]";
6454	mes "''The rabbit often";
6455	mes "observes the door";
6456	mes "The night eats the";
6457	mes "pickled orange.''";
6458	close;
6459
6460	}
6461
6462	}
6463
6464	}
6465
6466
6467	//----------------------------------------------------------------------------
6468	// Kiehl's Room; Box
6469	//----------------------------------------------------------------------------
6470	kh_kiehl01,19,25,0 script Box::BoxKHQ3 111,{
6471	if (countitem(7505) < 1) {
6472	if (checkweight(7505,1) == 0) {
6473	mes "^3355FF- Wait!! -";
6474	mes "- You are carrying too many items";
6475	mes "- and are unable to accept any more. -";
6476	mes "- Please make some space avaliable";
6477	mes "- in your inventory before returning. -^000000";
6478	close;
6479	}
6480
6481	mes "^3355FFYou found a box with";
6482	mes "a button for each letter";
6483	mes "of the alphabet on top of it.^000000";
6484	next;
6485	input @KHInput$;
6486	if (@KHInput$ == "open the door") {
6487	mes "^3355FFAs soon as you enter the";
6488	mes "password, the nearby door";
6489	mes "emits a pleasant chiming";
6490	mes "sound, and the box pops";
6491	mes "open to reveal a small key.^000000";
6492	getitem 7505,1; //Toy_Key
6493	close;
6494	}
6495
6496	else {
6497	mes "^3355FFNothing happened.^000000";
6498	close;
6499	}
6500
6501	}
6502
6503	else {
6504	mes "^3355FFThis is where you";
6505	mes "found the Toy key^000000";
6506	close;
6507	}
6508
6509	}
6510
6511	//----------------------------------------------------------------------------
6512	// Kiehl's Room; Big Door, (First)
6513	// - Anyone can pass through this door
6514	// - Consume one Black KeyCard when opened.
6515	// - Only one person actually needs to open it.
6516	//----------------------------------------------------------------------------
6517	kh_kiehl01,44,33,0 script Big Door#BigDoorKHQ1 111,{
6518	if (.KHDoor1Opened == 0) {
6519	mes "^3355FFThe door is locked,";
6520	mes "but there is a narrow";
6521	mes "slot next to the doorknob.^000000";
6522	next;
6523	input @KHInput$;
6524	if (@KHInput$ == "Black Keycard") {
6525	if (countitem(7506) >= 1) {
6526	mes "^3355FFYou insert the";
6527	mes "Black Keycard into the";
6528	mes "slot, and successfully";
6529	mes "unlock and open the door.^000000";
6530	delitem 7506,1; //Black_Keycard
6531	donpcevent "Big_Door_1_Warp::OnEnable";
6532	enablenpc "Big_Door_1_Warp";
6533	set .KHDoor1Opened,1;
6534	close;
6535	}
6536
6537	}
6538
6539	mes "^3355FFYou try to push the";
6540	mes "door open with all";
6541	mes "your might, but fail";
6542	mes "to make it budge.^000000";
6543	close;
6544	}
6545
6546	else {
6547	mes "^3355FFThe door is open.^000000";
6548	close;
6549	}
6550
6551	}
6552
6553	kh_kiehl01,43,33,0 script Big_Door_1_Warp 45,1,1,{
6554	OnEnable:
6555	initnpctimer;
6556	misceffect 215;
6557	end;
6558
6559	OnInit:
6560	disablenpc "Big_Door_1_Warp";
6561	end;
6562
6563	OnTimer30000:
6564	stopnpctimer;
6565	misceffect 215;
6566	disablenpc "Big_Door_1_Warp";
6567	set getvariableofnpc(.KHDoor1Opened,"Big Door#BigDoorKHQ1"),0;
6568	end;
6569
6570	OnTouch:
6571	warp "kh_kiehl01",55,33;
6572	end;
6573	}
6574
6575	//----------------------------------------------------------------------------
6576	// Kiehl's Room; Big Door, (second)
6577	// - Consume Toy Key when opened.
6578	// - Only one person actually needs to open it.
6579	//----------------------------------------------------------------------------
6580	kh_kiehl01,174,40,0 script Big Door#BigDoorKHQ2 111,{
6581	if (.KHDoor2Opened == 0) {
6582	mes "^3355FFThe door is locked,";
6583	mes "but there is a small";
6584	mes "keyhole next to the knob.^000000";
6585	next;
6586	input @KHInput$;
6587	if (@KHInput$ == "Toy Key") {
6588	if (countitem(7505) >= 1) {
6589	mes "^3355FFYou insert the key into";
6590	mes "the keyhole, and the door";
6591	mes "unlocks with a click as";
6592	mes "you turn the key.^000000";
6593	delitem 7505,1; //Toy_Key
6594	donpcevent "Big_Door_2_Warp::OnEnable";
6595	enablenpc "Big_Door_2_Warp";
6596	set .KHDoor2Opened,1;
6597	close;
6598	}
6599
6600	}
6601
6602	mes "^3355FFYou try to push the";
6603	mes "door open with all";
6604	mes "your might, but fail";
6605	mes "to make it budge.^000000";
6606	close;
6607	}
6608
6609
6610	else {
6611	mes "^3355FFThe door is open.^000000";
6612	close;
6613	}
6614
6615	}
6616
6617	kh_kiehl01,174,39,0 script Big_Door_2_Warp 45,1,1,{
6618	OnEnable:
6619	initnpctimer;
6620	misceffect 215;
6621	end;
6622
6623	OnInit:
6624	disablenpc "Big_Door_2_Warp";
6625	end;
6626
6627	OnTimer30000:
6628	stopnpctimer;
6629	misceffect 215;
6630	disablenpc "Big_Door_2_Warp";
6631	set getvariableofnpc(.KHDoor2Opened,"Big Door#BigDoorKHQ2"),0;
6632	end;
6633
6634	OnTouch:
6635	warp "kh_kiehl01",173,52;
6636	end;
6637	}
6638
6639	//----------------------------------------------------------------------------
6640	// Kiehl's Room; Big Door, (Third)
6641	// - Consume one Black KeyCard when opened.
6642	// - Only one person actually needs to open it.
6643	//----------------------------------------------------------------------------
6644	kh_kiehl01,77,108,0 script Big Door#BigDoorKHQ3 111,{
6645	if (.KHDoor3Opened == 0) {
6646	mes "^3355FFThe door is locked,";
6647	mes "but there is a narrow";
6648	mes "slot next to the doorknob.^000000";
6649	next;
6650	input @KHInput$;
6651	if (@KHInput$ == "Black Keycard") {
6652	if (countitem(7506) >= 1) {
6653	mes "^3355FFYou insert the";
6654	mes "Black Keycard into the";
6655	mes "slot, and successfully";
6656	mes "unlock and open the door.^000000";
6657	delitem 7506,1; //Black_Keycard
6658	donpcevent "Big_Door_3_Warp::OnEnable";
6659	enablenpc "Big_Door_3_Warp";
6660	set .KHDoor3Opened,1;
6661	close;
6662	}
6663
6664	}
6665
6666	mes "^3355FFYou try to push the";
6667	mes "door open with all";
6668	mes "your might, but fail";
6669	mes "to make it budge.^000000";
6670	close;
6671	}
6672
6673	else {
6674	mes "^3355FFThe door is open.^000000";
6675	close;
6676	}
6677
6678	}
6679
6680	kh_kiehl01,78,108,0 script Big_Door_3_Warp 45,1,1,{
6681	OnEnable:
6682	initnpctimer;
6683	misceffect 215;
6684	end;
6685
6686	OnInit:
6687	disablenpc "Big_Door_3_Warp";
6688	end;
6689
6690	OnTimer30000:
6691	stopnpctimer;
6692	misceffect 215;
6693	disablenpc "Big_Door_3_Warp";
6694	set getvariableofnpc(.KHDoor3Opened,"Big Door#BigDoorKHQ3"),0;
6695	end;
6696
6697	OnTouch:
6698	warp "kh_kiehl01",68,108;
6699	end;
6700	}
6701
6702	//----------------------------------------------------------------------------
6703	// Kiehl's Room; Big Door, (Fourth)
6704	// - Consume TWO Black KeyCard when opened.
6705	// - Only one person actually needs to open it.
6706	//----------------------------------------------------------------------------
6707	kh_kiehl01,42,177,0 script Big Door#BigDoorKHQ4 111,{
6708	if (.KHDoor4Opened == 0) {
6709	mes "^3355FFThe door is locked,";
6710	mes "but there is a narrow";
6711	mes "slot next to the doorknob.^000000";
6712	next;
6713	input @KHInput$;
6714	if (@KHInput$ == "Black Keycard") {
6715	if (countitem(7506) >= 2) {
6716	mes "^3355FFYou insert the";
6717	mes "Black Keycard into the";
6718	mes "slot, and successfully";
6719	mes "unlock and open the door.^000000";
6720	delitem 7506,2; //Black_Keycard
6721	donpcevent "Big_Door_4_Warp::OnEnable";
6722	enablenpc "Big_Door_4_Warp";
6723	set .KHDoor4Opened,1;
6724	close;
6725	}
6726	}
6727
6728	mes "^3355FFYou try to push the";
6729	mes "door open with all";
6730	mes "your might, but fail";
6731	mes "to make it budge.^000000";
6732	close;
6733	}
6734
6735
6736	else {
6737	mes "^3355FFThe door is open.^000000";
6738	close;
6739	}
6740
6741	}
6742
6743	kh_kiehl01,41,177,0 script Big_Door_4_Warp 45,1,1,{
6744	OnEnable:
6745	initnpctimer;
6746	misceffect 215;
6747	end;
6748
6749	OnInit:
6750	disablenpc "Big_Door_4_Warp";
6751	end;
6752
6753	OnTimer30000:
6754	stopnpctimer;
6755	misceffect 215;
6756	disablenpc "Big_Door_4_Warp";
6757	set getvariableofnpc(.KHDoor4Opened,"Big Door#BigDoorKHQ4"),0;
6758	end;
6759
6760	OnTouch:
6761	warp "kh_kiehl01",49,177;
6762	end;
6763	}
6764
6765	//----------------------------------------------------------------------------
6766	// Kiehl's Room; Robots
6767	//----------------------------------------------------------------------------
6768	kh_kiehl01,15,179,0 script Robots#kh1 111,{
6769	if (.KHKilled < 1) {
6770	mes "^3355FFAs soon as you";
6771	mes "touch the test tube,";
6772	mes "a bunch of robots";
6773	mes "suddenly appeared.^000000.";
6774	close2;
6775	set .KHKilled,4;
6776	monster "kh_kiehl01",18,181,"Aliot",1740,1,"Robots#kh1::OnMyMobDead";
6777	monster "kh_kiehl01",18,180,"Alicel",1739,1,"Robots#kh1::OnMyMobDead";
6778	monster "kh_kiehl01",18,179,"Aliot",1740,1,"Robots#kh1::OnMyMobDead";
6779	monster "kh_kiehl01",18,178,"Alicel",1739,1,"Robots#kh1::OnMyMobDead";
6780	end;
6781	}
6782
6783	else {
6784	end;
6785	}
6786
6787	OnMyMobDead:
6788	set .KHKilled,.KHKilled-1;
6789	if (.KHKilled < 1) {
6790	makeitem 7506,1,"this",18,180;
6791	set .KHKilled,0;
6792	}
6793	end;
6794	}
6795
6796	//----------------------------------------------------------------------------
6797	// Kiehl's Room; Dummy Robots
6798	//----------------------------------------------------------------------------
6799	kh_kiehl01,15,177,0 script Robots#kh2::RobotsKHQ 111,{
6800	end;
6801	}
6802	kh_kiehl01,15,180,0 duplicate(RobotsKHQ) Robots#kh3 111
6803	kh_kiehl01,15,182,0 duplicate(RobotsKHQ) Robots#kh4 111
6804	kh_kiehl01,35,187,0 duplicate(RobotsKHQ) Robots#kh5 111
6805	kh_kiehl01,37,187,0 duplicate(RobotsKHQ) Robots#kh6 111
6806	kh_kiehl01,39,187,0 duplicate(RobotsKHQ) Robots#kh7 111
6807	kh_kiehl01,41,187,0 duplicate(RobotsKHQ) Robots#kh8 111
6808
6809	//----------------------------------------------------------------------------
6810	// Kiehl's Room; Big Door, (Fifth, and final)
6811	// - Anyone can pass through this door
6812	// - Consumes 4 Solid Iron Pieces
6813	//----------------------------------------------------------------------------
6814	kh_kiehl01,166,187,0 script Big Door#BigDoorKHQ5 111,{
6815	if (($@KHQuestBusy == 0) && (KielHyreQuest >= 74) && (KielHyreQuest <= 106)) {
6816	if (KielHyreQuest < 86) {
6817	mes "^3355FFThis large door..";
6818	mes "is closed shut.";
6819	mes "If you listen carefully,";
6820	mes "you can hear the door";
6821	mes "hinges slightly squeak.^000000";
6822	next;
6823	select("Push Door","Kick Door","Shake Door","Pull Door","Lift Door");
6824	mes "^3355FFA group of monsters";
6825	mes "suddenly appeared as";
6826	mes "soon as you applied";
6827	mes "pressure to the door.";
6828	mes "This must be some";
6829	mes "kind of security device.^000000";
6830	close2;
6831	set @KHDoorPushAttempt,@KHDoorPushAttempt+1;
6832	monster "kh_kiehl01",163,183,"Alicel",1739,1;
6833	monster "kh_kiehl01",163,179,"Aliot",1740,1;
6834	monster "kh_kiehl01",169,183,"Alicel",1739,1;
6835	monster "kh_kiehl01",169,179,"Aliot",1740,1;
6836	if (@KHDoorPushAttempt >= 3) {
6837	set KielHyreQuest,86;
6838	}
6839	end;
6840	}
6841
6842	else if ((KielHyreQuest > 84) && (KielHyreQuest < 94)) {
6843	mes "^3355FFYou apply some";
6844	mes "pressure to the door,";
6845	mes "and find that you can";
6846	mes "budge it slightly, but";
6847	mes "you can't fully open it.^000000";
6848	next;
6849	mes "^3355FFIf you wedged something";
6850	mes "into the gap between the";
6851	mes "door and its frame, and";
6852	mes "fully leveraged it, then you";
6853	mes "should be able to open it.^000000";
6854	next;
6855
6856	switch(select("Steel","Rusty Iron Piece","Solid Iron Piece","Iron Piece","Screw","Cancel")) {
6857
6858	case 1:
6859	set @KHPryingItem$,"Steel";
6860	break;
6861
6862	case 2:
6863	set @KHPryingItem$,"Rusty Iron Piece";
6864	break;
6865
6866	case 3:
6867	if (countitem(7507) >= 1) {
6868	if (KielHyreQuest < 92) {
6869	mes "^3355FFYou insert one end of";
6870	mes "a Solid Iron Piece into the";
6871	mes "door's gap in a strenuous";
6872	mes "effort to pry the door open";
6873	mes "The gap widens a little bit,";
6874	mes "but you break one of your";
6875	mes "Solid Iron Pieces.^000000";
6876	set KielHyreQuest,KielHyreQuest+2;
6877	delitem 7507,1; //Hard_Piece_of_Steel
6878	close;
6879	}
6880
6881	else if (KielHyreQuest == 92) {
6882	mes "^3355FFWith a mighty heave,";
6883	mes "you pry a Solid Iron";
6884	mes "Piece into the door jamb,";
6885	mes "and fling the door wide open";
6886	mes "Unable the withstand the";
6887	mes "awesome force, this Solid";
6888	mes "Iron Piece shatters into dust.^000000";
6889	set KielHyreQuest,94;
6890	delitem 7507,1; //Hard_Piece_of_Steel
6891	close;
6892	}
6893
6894	}
6895
6896	else {
6897	mes "^3355FFIf only you had a Solid";
6898	mes "Iron Piece you could use to";
6899	mes "pry open this door.^000000";
6900	close;
6901	}
6902
6903	case 4:
6904	set @KHPryingItem$,"Iron Piece";
6905	break;
6906
6907	case 5:
6908	set @KHPryingItem$,"Screw";
6909	break;
6910
6911	case 6:
6912	mes "^3355FFLet's look for something";
6913	mes "heavy we can use to pry";
6914	mes "open this door.^000000";
6915	close;
6916
6917	}
6918
6919	mes "^3355FFThis "+@KHPryingItem$+" is far";
6920	mes "to weak for what you're using it for";
6921	mes "and breaks.^000000";
6922	close;
6923
6924	}
6925
6926	else if ((KielHyreQuest >= 94) && (KielHyreQuest <= 104)) {
6927	if (.KHDoor5Opened == 0) {
6928	mes "^3355FFThe large door";
6929	mes "is wide open, and.";
6930	mes "you may now enter.^000000";
6931	next;
6932
6933	switch(select("Yes","No")) {
6934
6935	case 1:
6936	close2;
6937	donpcevent "Big_Door_5_Warp::OnEnable";
6938	enablenpc "Big_Door_5_Warp";
6939	set .KHDoor5Opened,1;
6940	end;
6941
6942	case 2:
6943	mes "^3355FFWho knows what is on the";
6944	mes "other side of this door. Let's";
6945	mes "think about it before barging in..^000000";
6946	close;
6947
6948	}
6949	}
6950
6951	else {
6952	mes "^3355FFThe door is open.^000000";
6953	close;
6954	}
6955
6956	}
6957
6958	else {
6959	mes "^3355FFThis large door..";
6960	mes "is closed shut.";
6961	mes "If you listen carefully,";
6962	mes "you can hear the door";
6963	mes "hinges slightly squeak.^000000";
6964	close;
6965	}
6966
6967	}
6968
6969	else {
6970	mes "^3355FFThis large door..";
6971	mes "is closed shut.";
6972	mes "If you listen carefully,";
6973	mes "you can hear the door";
6974	mes "hinges slightly squeak.^000000";
6975	close;
6976	}
6977
6978	}
6979
6980	kh_kiehl01,166,186,0 script Big_Door_5_Warp 45,1,1,{
6981	end;
6982
6983	OnEnable:
6984	initnpctimer;
6985	misceffect 215;
6986	end;
6987
6988	OnTimer30000:
6989	stopnpctimer;
6990	misceffect 215;
6991	disablenpc "Big_Door_5_Warp";
6992	set getvariableofnpc(.KHDoor5Opened,"Big Door#BigDoorKHQ5"),0;
6993	end;
6994
6995	OnInit:
6996	disablenpc "Big_Door_5_Warp";
6997	end;
6998
6999	OnTouch:
7000
7001	if (KielHyreQuest >= 46)
7002	warp "kh_kiehl02",50,6;
7003	else
7004	warp "kh_kiehl01",166,183;
7005	end;
7006	}
7007
7008	//----------------------------------------------------------------------------
7009	// Kiehl's Room; Kiehl_Room_Trap (Entry way trap)
7010	//----------------------------------------------------------------------------
7011	kh_kiehl02,49,10,0 script Kiehl_Room_Trap -1,5,3,{
7012	end;
7013
7014	OnTouch:
7015	if (.KHTrapSprung < 1) {
7016	set .KHTrapSprung,1;
7017	set $@KHQuestBusy,1;
7018	initnpctimer;
7019	monster "kh_kiehl02",47,13,"Aliot",1740,1;
7020	monster "kh_kiehl02",54,13,"Alicel",1739,1;
7021	monster "kh_kiehl02",49,13,"Constant",1745,1;
7022	monster "kh_kiehl02",51,13,"Aliot",1740,1;
7023	monster "kh_kiehl02",53,13,"Alicel",1739,1;
7024	monster "kh_kiehl02",49,13,"Constant",1745,1;
7025	}
7026	end;
7027
7028
7029	OnTimer300000:
7030	OnTimer600000:
7031	OnTimer900000:
7032	if (getmapusers("kh_kiehl02") == 0) {
7033	donpcevent "KiehlRoom::OnReset";
7034	stopnpctimer;
7035	}
7036	end;
7037
7038	OnTimer1200000:
7039	donpcevent "KiehlRoom::OnReset";
7040	stopnpctimer;
7041	end;
7042
7043	OnGlobalTimerOff:
7044	stopnpctimer;
7045	end;
7046	}
7047
7048	//----------------------------------------------------------------------------
7049	// Kiehl's Room; Kiehl
7050	// - Timer will drop to 3 minutes once Kiehl is defeated.
7051	//----------------------------------------------------------------------------
7052	kh_kiehl02,50,52,4 script Kiehl#Original 902,{
7053	set @now_weight,MaxWeight-Weight;
7054	if (@now_weight < 2000) {
7055	mes "^3355FF- Wait!! -";
7056	mes "- You are carrying too many items";
7057	mes "- and are unable to accept any more. -";
7058	mes "- Please make some space avaliable";
7059	mes "- in your inventory before returning. -^000000";
7060	close;
7061	}
7062
7063	cutin "kh_kiel01",2;
7064	if ((KielHyreQuest < 94) \|\| (KielHyreQuest >= 106)) {
7065	mes "[Kiehl]";
7066	mes ".........";
7067	close2;
7068	cutin "",255;
7069	end;
7070	}
7071
7072	if ((KielHyreQuest == 94) && (getvariableofnpc(.KHKilled,"KiehlRoom") < 5)) {
7073	mes "[Kiehl]";
7074	mes "I'm surprised you made";
7075	mes "it this far, adventurer~";
7076	mes "I bid you welcome to my";
7077	mes "humble room. I assume that";
7078	mes "you've come for the Condensed";
7079	mes "Memory Scroll... my mind.";
7080	next;
7081	mes "[Kiehl]";
7082	mes "You can understand";
7083	mes "why I can't let you have it,";
7084	mes "so if you really want the";
7085	mes "Condensed Memory Scroll,";
7086	mes "then show me what you've got!";
7087	close2;
7088	cutin "",255;
7089	set getvariableofnpc(.KHKilled,"KiehlRoom"),0;
7090	monster "kh_kiehl02",49,48,"Aliot",1740,1,"KiehlRoom::OnKiehlMobDead";
7091	monster "kh_kiehl02",46,50,"Alicel",1739,1,"KiehlRoom::OnKiehlMobDead";
7092	monster "kh_kiehl02",49,50,"Constant",1745,1,"KiehlRoom::OnKiehlMobDead";
7093	monster "kh_kiehl02",53,53,"Aliot",1740,1,"KiehlRoom::OnKiehlMobDead";
7094	monster "kh_kiehl02",49,55,"Alicel",1739,1,"KiehlRoom::OnKiehlMobDead";
7095	monster "kh_kiehl02",49,53,"Constant",1745,1,"KiehlRoom::OnKiehlMobDead";
7096	monster "kh_kiehl02",46,53,"Aliot",1740,1,"KiehlRoom::OnKiehlMobDead";
7097	donpcevent "Kiehl#Original::OnChangeState";
7098	disablenpc "Kiehl#Original";
7099	end;
7100	}
7101
7102	else if ((KielHyreQuest == 94) && (getvariableofnpc(.KHKilled,"KiehlRoom") >= 5)) {
7103	cutin "kh_kiel03",2;
7104	mes "[Kiehl]";
7105	mes "Hmpf! You're pretty good.";
7106	mes "Father must have spent";
7107	mes "a lot of money to hire";
7108	mes "you. So has he sent";
7109	mes "you to kill me?";
7110	next;
7111	mes "["+strcharinfo(0)+"]";
7112	mes "Kiel Hyre sent me to ask";
7113	mes "you to stop turning all of";
7114	mes "the Third Generation robots";
7115	mes "into killing machines! How";
7116	mes "can do something like that";
7117	mes "to other robots like you?";
7118	next;
7119	cutin "kh_kiel01",2;
7120	mes "[Kiehl]";
7121	mes "Why not? It's said that man";
7122	mes "was made in the image of God.";
7123	mes "Well, robots were made in the";
7124	mes "image of man. You humans kill";
7125	mes "each other as much as you";
7126	mes "like, as far as I can tell.";
7127	next;
7128	mes "[Kiehl]";
7129	mes "It might not be ethical";
7130	mes "for me to provide weapons";
7131	mes "to humans that need them...";
7132	mes "But that's what they are.";
7133	mes "Weapons. It's more humane";
7134	mes "for robots to fight than humans.";
7135	next;
7136	mes "[Kiehl]";
7137	mes "Robots don't naturally";
7138	mes "feel pain or emotions.";
7139	mes "Not unless they're specially";
7140	mes "programmed. Sorry, but I don't";
7141	mes "plans to stop what I'm doing.";
7142	next;
7143	cutin "kh_kiel04",2;
7144	mes "["+strcharinfo(0)+"]";
7145	mes "Humankind may not be";
7146	mes "perfect, but think about";
7147	mes "who you're working with!";
7148	mes "Rekenber is the epitome of";
7149	mes "human evil! How can you";
7150	mes "support them like this?";
7151	next;
7152	cutin "kh_kiel02",2;
7153	mes "[Kiehl]";
7154	mes "I've had a long relationship";
7155	mes "with Rekenber. I'm fully aware";
7156	mes "of their capabilities. Do you";
7157	mes "remember the first room you";
7158	mes "passed on your way here, the";
7159	mes "one with all the toys?";
7160	next;
7161	mes "[Kiehl]";
7162	mes "I bet you didn't know that there";
7163	mes "were 5 Second Generation";
7164	mes "robots. Me, and my four other";
7165	mes "brothers and sisters. Father";
7166	mes "built that room so that all";
7167	mes "five of us could live together.";
7168	next;
7169	cutin "kh_kiel03",2;
7170	mes "[Kiehl]";
7171	mes "I was the only one to";
7172	mes "survive. I returned to";
7173	mes "Father and even got a";
7174	mes "name. But yes, I know";
7175	mes "how bad Rekenber really is.";
7176	next;
7177	mes "[Kiehl]";
7178	mes "I don't... I don't want";
7179	mes "to talk about this any more";
7180	mes "You've made me... Just leave.";
7181	mes "I think I will let you live.";
7182	next;
7183	cutin "",255;
7184	mes "[Mitchell]";
7185	mes "Freeze!";
7186	mes "Kiehl Hyre, you're";
7187	mes "under arrest for creating";
7188	mes "and trading illegal weapons!";
7189	set KielHyreQuest,100;
7190	donpcevent "::OnKHAgent";
7191	enablenpc "Mitchell#KiehlRoom";
7192	enablenpc "Agent#KHAgent1";
7193	enablenpc "Agent#KHAgent2";
7194	enablenpc "Agent#KHAgent3";
7195	enablenpc "Agent#KHAgent4";
7196	next;
7197	goto L_Continue;
7198	}
7199
7200	else if ((KielHyreQuest == 100) && (getvariableofnpc(.KHKilledBoss,"KiehlRoom") < 1)) {
7201	L_Continue:
7202	set getvariableofnpc(.KHKilledBoss,"KiehlRoom"),0;
7203	cutin "kh_kiel01",2;
7204	mes "[Kiehl]";
7205	mes "Ah, Schwaltzvalt Republic";
7206	mes "agents. Heh. I haven't had";
7207	mes "this many guests before.";
7208	mes "Well, I guess this means";
7209	mes "we'll have to fight after";
7210	mes "all, you and I. Sigh Pity...";
7211	next;
7212	mes "[Kiehl]";
7213	mes "First, in all fairness,";
7214	mes "let me take care of these";
7215	mes "nuisances. They're just";
7216	mes "mindlessly doing their";
7217	mes "jobs--sort of like robots-- but";
7218	mes "don't worry, they won't be hurt.";
7219	next;
7220	donpcevent "::OnKHSpiderWeb";
7221	mes "[Mitchell]";
7222	mes "Nooooo!";
7223	next;
7224	cutin "kh_kiel03",2;
7225	mes "[Kiehl]";
7226	mes "And now, you and I can";
7227	mes "have a proper duel, human";
7228	mes "I'm interested in seeing just";
7229	mes "how strong you really are~";
7230	close2;
7231	cutin "",255;
7232	monster "kh_kiehl02",50,52,"Kiehl",1733,1,"KiehlRoom::OnKiehlDead";
7233	donpcevent "Kiehl#Original::OnChangeState";
7234	disablenpc "Kiehl#Original";
7235	end;
7236	}
7237
7238	else if ((KielHyreQuest == 100) && (getvariableofnpc(.KHKilledBoss,"KiehlRoom") == 1)) {
7239	cutin "kh_kiel02",2;
7240	mes "[Kiehl]";
7241	mes "D-damn...!";
7242	mes "Well played, adventurer";
7243	mes "Well played. I should have";
7244	mes "known that Father would send";
7245	mes "the very best after me. Still,";
7246	mes "you've failed to truly defeat me.";
7247	next;
7248	mes "[Kiehl]";
7249	mes "I still have a few";
7250	mes "trump cards left";
7251	mes "I think... I'll take you";
7252	mes "to hell with me... Well";
7253	mes "if robots can go there~";
7254	announce "Jeeeezzzgggg~ Geezzz~ Grrrr~ Clank~",bc_map,0xFF0000;
7255	next;
7256	mes "[Mitchell]";
7257	mes "No...! We're locked";
7258	mes "in the room! We're";
7259	mes "We're trapped in here!";
7260	next;
7261	mes "[Kiehl]";
7262	mes "Yay~ Let's burn";
7263	mes "everything down~";
7264	next;
7265	mes "[Mitchell]";
7266	mes "Quick, "+strcharinfo(0)+",";
7267	mes "use Kiel Hyre's power";
7268	mes "device, the one that's";
7269	mes "supposed to mess with";
7270	mes "Kiehl's power supply!";
7271	mes "Hurry, use it right now!";
7272	next;
7273	delitem 7504,1; //Power_Source
7274	announce "Gzzzz~ Gzzzz~",bc_map,0xFF0000;
7275	next;
7276	mes "[Kiehl]";
7277	mes "Wh-what? I c-can't";
7278	mes "move! This day is just";
7279	mes "full of surprises. Oh, well.";
7280	mes "I guess it's time for me to";
7281	mes "use my other trump card.";
7282	next;
7283	mes "[Mitchell]";
7284	mes "What...?";
7285	mes "How many trump";
7286	mes "cards do you have?";
7287	next;
7288	mes "[????]";
7289	mes "I'm so disappointed...";
7290	mes "I can't believe none";
7291	mes "of you thought of this...";
7292	next;
7293	mes "[Mitchell]";
7294	mes "Who are you...?";
7295	mes "Show yourself!";
7296	next;
7297	donpcevent "Kiehl#Copy::OnChangeState";
7298	enablenpc "Kiehl#Copy";
7299	mes "[????]";
7300	mes "Please.";
7301	mes "Don't insult me.";
7302	mes "You know this voice.";
7303	mes "It's been talking to";
7304	mes "you this entire time~";
7305	next;
7306	mes "[Mitchell]";
7307	mes "Impossible!";
7308	mes "How can there";
7309	mes "be two of you...?!";
7310	next;
7311	cutin "kh_kiel01",0;
7312	mes "[Kiehl]";
7313	mes "Hahahahaha!";
7314	mes "I'm a robot!";
7315	mes "I can make extra";
7316	mes "bodies, switch brains";
7317	mes "with them. It's awfully";
7318	mes "convenient, let me tell you.";
7319	next;
7320	cutin "kh_kiel03",2;
7321	mes "[Kiehl]";
7322	mes "Anyway, I don't mean to show";
7323	mes "off, but I suppose I better";
7324	mes "reveal to you my final trump";
7325	mes "card. First of all, I know all";
7326	mes "about you, Ms. Mitchell Layla~";
7327	next;
7328	mes "[Mitchell]";
7329	mes "What? How do you";
7330	mes "know my name?";
7331	next;
7332	mes "[Kiehl]";
7333	mes "Well, I have a few";
7334	mes "spies of my own...";
7335	mes "I'll allow him to explain.";
7336	next;
7337	mes "[Masked Man]";
7338	mes "Mitchell...";
7339	mes "I'm sorry that";
7340	mes "you had to get";
7341	mes "involved in all this.";
7342	next;
7343	mes "[Mitchell]";
7344	mes "Wolkeus? Wolkeus Kaiser?!";
7345	mes "You're the spy?! But you risked";
7346	mes "your life to save our president!";
7347	mes "No! Oh, God! How can this be";
7348	mes "happening?! Everything's just...";
7349	mes "This is all crazy! All of it!";
7350	next;
7351	mes "[Wolkeus]";
7352	mes "This is just the result";
7353	mes "of elaborate plans that";
7354	mes "were made years ago. I didn't";
7355	mes "expect you to be this surprised,";
7356	mes "Mitchell. It's the way the game";
7357	mes "is played. You know that.";
7358	next;
7359	mes "[Mitchell]";
7360	mes "Mister President...";
7361	mes "I failed you... I'm sorry...";
7362	next;
7363	mes "[Kiehl]";
7364	mes "Well, Kaiser, she took";
7365	mes "it pretty badly, but at least";
7366	mes "you're being gentlemanly";
7367	mes "about it. Well, I'd like for";
7368	mes "all of us to get better";
7369	mes "acquainted, but...";
7370	next;
7371	cutin "kh_kiel01",2;
7372	mes "[Kiehl]";
7373	mes "We'd better say our";
7374	mes "farewells here. This";
7375	mes "place will be gone in";
7376	mes "five minutes. Ah, and";
7377	mes "Ms. Layla, you're coming";
7378	mes "with us. We have questions~";
7379	next;
7380	mes "[Kiehl]";
7381	mes "I'm curious as to what";
7382	mes "the president's plans are";
7383	mes "Mister Kaiser, if you'll";
7384	mes "escort Ms. Layla, please.";
7385	next;
7386	mes "[Wolkeus Kaiser]";
7387	mes "Sorry, Mitchell.";
7388	mes "I gotta do it...";
7389	next;
7390	mes "[Mitchell]";
7391	mes "No, get away! Let me go!";
7392	mes "Let go of me, Wolkeus!";
7393	donpcevent "::OnKHAgent";
7394	disablenpc "Mitchell#KiehlRoom";
7395	disablenpc "Agent#KHAgent1";
7396	disablenpc "Agent#KHAgent2";
7397	disablenpc "Agent#KHAgent3";
7398	disablenpc "Agent#KHAgent4";
7399	next;
7400	cutin "kh_kiel02",2;
7401	mes "[Kiehl]";
7402	mes "Great, we're done with";
7403	mes "that ugly business. Now,";
7404	mes "where was I? Ah, right.";
7405	mes "Yes. I'm sorry. We don't";
7406	mes "have any more time to play.";
7407	next;
7408	mes "[Kiehl]";
7409	mes "Here, adventurer.";
7410	mes "I'm aware that my father";
7411	mes "sent you here to get this.";
7412	mes "Consider it my final gift";
7413	mes "to him. I'm surprised he left";
7414	mes "this ring inside me, though.";
7415	next;
7416	cutin "kh_kiel04",2;
7417	mes "[Kiehl]";
7418	mes "I imagine that it must";
7419	mes "be precious to him. But";
7420	mes "I wonder why he placed";
7421	mes "it inside me? Well, anyway,";
7422	mes "I have a message I'd like";
7423	mes "for you to deliver to him.";
7424	next;
7425	cutin "kh_kiel01",2;
7426	mes "[Kiehl]";
7427	mes "First... I guess we";
7428	mes "should get rid of this";
7429	mes "old thing. It was a good";
7430	mes "body, and it's served me";
7431	mes "well for 23 years. I'll miss";
7432	mes "it. Rest well, old Kiehl.";
7433	next;
7434	mes "[Kiehl]";
7435	mes "Now, this was the body";
7436	mes "that my father made.";
7437	mes "Please tell him that";
7438	mes "this means that we're";
7439	mes "no longer related to";
7440	mes "each other at all.";
7441	next;
7442	mes "[Kiehl]";
7443	mes "The body I'm using right now?";
7444	mes "I made it myself with the most";
7445	mes "advanced technology. Consider";
7446	mes "it... a Fourth Generation robot";
7447	mes "body if you will. Father will";
7448	mes "understand what I mean.";
7449	next;
7450	mes "[Kiehl]";
7451	mes "Anyway, please tell him";
7452	mes "that, and get his old ring";
7453	mes "out of my old robot body,";
7454	mes "and then give it to him. For";
7455	mes "now, let's get out of here: we";
7456	mes "just have 3 minutes to evacuate.";
7457	next;
7458	mes "[Kiehl]";
7459	mes "You're a worthy opponent,";
7460	mes "and a human I respect.";
7461	mes "I don't know if we'll meet";
7462	mes "again, but who knows?";
7463	mes "Anyway, I'll open up the";
7464	mes "exit for you. Farewell~";
7465	set KielHyreQuest,104;
7466	donpcevent "Kiehl_Room_Exit::OnEnable";
7467	enablenpc "Kiehl_Room_Exit";
7468	close2;
7469	cutin "",255;
7470	donpcevent "Kiehl#Copy::OnChangeState";
7471	disablenpc "Kiehl#Copy";
7472	initnpctimer;
7473	end;
7474	}
7475
7476	if (KielHyreQuest == 104) {
7477	cutin "kh_kiel02",2;
7478	mes "^3355FFYou retrieve the";
7479	mes "ring from the heart of";
7480	mes "Kiehl's old robotic body.^000000";
7481	getitem 7508,1; //Elisia's_Ring
7482	set KielHyreQuest,106;
7483	enablenpc "Kiehl_Room_Exit";
7484	close2;
7485	cutin "",255;
7486	end;
7487	}
7488
7489	else {
7490	mes "......";
7491	close2;
7492	cutin "",255;
7493	end;
7494	}
7495
7496	OnTimer180000:
7497	stopnpctimer;
7498	mapannounce "kh_kiehl02","Beeeeeeeeeeeeep~",bc_npc,0xFF0000;
7499	donpcevent "KiehlRoom::OnReset";
7500	end;
7501
7502	OnTimer179000:
7503	mapannounce "kh_kiehl02","1 second remaining until detonation",bc_npc,0xFF0000;
7504	end;
7505
7506	OnTimer178000:
7507	mapannounce "kh_kiehl02","2 seconds remaining until detonation",bc_npc,0xFF0000;
7508	end;
7509
7510	OnTimer177000:
7511	mapannounce "kh_kiehl02","3 seconds remaining until detonation",bc_npc,0xFF0000;
7512	end;
7513
7514	OnTimer176000:
7515	mapannounce "kh_kiehl02","4 seconds remaining until detonation",bc_npc,0xFF0000;
7516	end;
7517
7518	OnTimer175000:
7519	mapannounce "kh_kiehl02","5 seconds remaining until detonation",bc_npc,0xFF0000;
7520	end;
7521
7522	OnTimer170000:
7523	mapannounce "kh_kiehl02","10 seconds remaining until detonation",bc_npc,0xFF0000;
7524	end;
7525
7526	OnTimer160000:
7527	mapannounce "kh_kiehl02","20 seconds remaining until detonation",bc_npc,0xFF0000;
7528	end;
7529
7530	OnTimer150000:
7531	mapannounce "kh_kiehl02","30 seconds remaining until detonation",bc_npc,0xFF0000;
7532	end;
7533
7534	OnTimer120000:
7535	mapannounce "kh_kiehl02","1 minute remaining until detonation.",bc_npc,0xFF0000;
7536	end;
7537
7538	OnTimer60000:
7539	mapannounce "kh_kiehl02","2 minutes remaining until detonation.",bc_npc,0xFF0000;
7540	end;
7541
7542	OnTimer1000:
7543	mapannounce "kh_kiehl02","3 minutes remaining until detonation.",bc_npc,0xFF0000;
7544	end;
7545
7546	OnChangeState:
7547	misceffect 215;
7548	end;
7549
7550	OnInit:
7551	disablenpc "Mitchell#KiehlRoom";
7552	disablenpc "Agent#KHAgent1";
7553	disablenpc "Agent#KHAgent2";
7554	disablenpc "Agent#KHAgent3";
7555	disablenpc "Agent#KHAgent4";
7556	end;
7557	}
7558
7559	//----------------------------------------------------------------------------
7560	// Kiehl's Room; NPC for mob control, timers, and other junk.
7561	//----------------------------------------------------------------------------
7562	kh_kiehl02,1,1,0 script KiehlRoom -1,{
7563	end;
7564
7565	OnKiehlMobDead:
7566	set .KHKilled,.KHKilled+1;
7567	if (.KHKilled == 5) {
7568	donpcevent "Kiehl#Original::OnChangeState";
7569	enablenpc "Kiehl#Original";
7570	}
7571	end;
7572
7573	OnKiehlDead:
7574	set .KHKilledBoss,1;
7575	donpcevent "Kiehl#Original::OnChangeState";
7576	enablenpc "Kiehl#Original";
7577	end;
7578
7579	OnReset:
7580	donpcevent "Kiehl_Room_Trap::OnGlobalTimerOff";
7581	if (getmapusers("kh_kiehl02") > 0)
7582	mapwarp "kh_kiehl02","lighthalzen",192,200;
7583	killmonsterall "kh_kiehl02";
7584	disablenpc "Kiehl_Room_Exit";
7585	disablenpc "Mitchell#KiehlRoom";
7586	disablenpc "Agent#KHAgent1";
7587	disablenpc "Agent#KHAgent2";
7588	disablenpc "Agent#KHAgent3";
7589	disablenpc "Agent#KHAgent4";
7590	disablenpc "Kiehl#Copy";
7591	enablenpc "Kiehl#Original";
7592	set .KHKilledBoss,0;
7593	set .KHKilled,0;
7594	set getvariableofnpc(.KHTrapSprung,"Kiehl_Room_Trap"),0;
7595	set $@KHQuestBusy,0;
7596	end;
7597	}
7598
7599	//----------------------------------------------------------------------------
7600	// Kiehl's Room; Mitchell and Agents. (Floating NPC + Duplicates)
7601	//----------------------------------------------------------------------------
7602	- script Agent#KHAgent1::KHAgent -1,{
7603	end;
7604
7605	OnKHAgent:
7606	misceffect 215;
7607	end;
7608
7609	OnKHSpiderWeb:
7610	misceffect 404;
7611	end;
7612	}
7613
7614
7615	kh_kiehl02,49,55,6 duplicate(KHAgent) Mitchell#KiehlRoom 727
7616
7617	kh_kiehl02,53,52,4 duplicate(KHAgent) Agent#KHAgent1 880
7618
7619	kh_kiehl02,51,49,1 duplicate(KHAgent) Agent#KHAgent2 880
7620
7621	kh_kiehl02,47,50,0 duplicate(KHAgent) Agent#KHAgent3 880
7622
7623	kh_kiehl02,46,53,6 duplicate(KHAgent) Agent#KHAgent4 880
7624
7625
7626	//----------------------------------------------------------------------------
7627	// Kiehl's Room; Copy of Kiehl.
7628	//----------------------------------------------------------------------------
7629	kh_kiehl02,48,53,6 script Kiehl#Copy 902,{
7630	end;
7631
7632	OnChangeState:
7633	misceffect 215;
7634	end;
7635
7636	OnInit:
7637	disablenpc "Kiehl#Copy";
7638	end;
7639	}
7640
7641	//----------------------------------------------------------------------------
7642	// Kiehl's Room; Kiehl_Room_Exit
7643	//----------------------------------------------------------------------------
7644	kh_kiehl02,50,59,0 script Kiehl_Room_Exit 45,1,1,{
7645	OnTouch:
7646	if (getmapusers("kh_kiehl02") < 1)
7647	donpcevent "KiehlRoom::OnReset";
7648	warp "lighthalzen",193,202;
7649	end;
7650
7651	OnEnable:
7652	misceffect 215;
7653	end;
7654
7655	OnInit:
7656	disablenpc "Kiehl_Room_Exit";
7657	end;
7658	}
7659
7660	//============================================================================

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/quests/Kiel_Hyre_Quest.txt @ 5

Download in other formats: