Context Navigation

Kiel_Hyre_Quest.txt @ 1

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

Rev	Line
[1]	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 @ 1

Download in other formats: