//===== eAthena Script ======================================= 
//= The Sign Quest
//===== By: ================================================== 
//= SinSloth(Most of the NPCs), MasterOfMuppets(Some of the NPCs + bug fixes) & Kargha(The quiz NPCs)
//===== Current Version: ===================================== 
//= 1.6
//===== Compatible With: ===================================== 
//= eAthena SVN 3422+(Requires jA Script System)
//===== Description: ========================================= 
//= - Quest for opening the doors to Geffenia.
//===== Comments: ============================================
//= This script uses sign_01.bmp - sign_04.bmp, these will be
//= found in the language of your client.
//===== Additional Comments: ================================= 
//= 1.0 First version, beware of potential nasty bugs :x [MasterOfMuppets]
//= 1.1 Finalized for stable, might still contain bugs though. [MasterOfMuppets]
//= 1.1a moved #aldesignwarp to fix enless warp [Lupus]
//= 1.2 Fixed a minor bug that prevented people from advancing [MasterOfMuppets]
//= 	quest at one point.
//= 1.3 Removed duplicates [Toms]
//= 1.4 Fixed a bug in Dearles script where it was checking for the wrong items.
//=     Fixed a major bug that was allowing players to continue before
//=     getting all the Sobbing Starlight pieces.
//=     Also moved the Alberta sign since another NPC was on top of it. [Llyr]
//= 1.5 Fixed exploits and bugs. Plus add a removal of exttra sobbing pieces
//= 	as suggested Tantarian, to let people Reborn [Lupus]
//= 1.6 Minor fix, thanks to theultramage for pointing it out. [MasterOfMuppets]
//============================================================ 
//===== Configuration : ======================================
prontera.gat,1,1,1	script	TheSignConfig	-1,{
OnInit:
//= This string will be used to show which timezone your server
//= is located in, it's necessary for the quest, so please change it.

	set $timezonestring$,"^FF0000GMT^000000";

//= This variable determines whether the "sign_xx.bmps" will be used or
//= if raw text will be used in the 'Sign::GeffeniaSigns' script.
//= Set it to 0 if you want to use text.
//= The bmp's are in the language of your client. If you are using a
//= kRO Client, you may want to download the English bmp's available in
//= the Texture.rar at http://mrmagoo.psiblade.net/translation/index.php?section=downloads

	set $signbmps,1;
}
//============================================================

alberta.gat,34,241,1	script	Sign::GeffeniaSigns	111,{

	if($signbmps)
{
	if(signquest < 1)set signquest,1;
	cutin "sign_01",4;
	mes "^3355FFNext";
	next;
	cutin "",255;	
	cutin "sign_02",4;
	mes "^3355FFNext";
	next;
	cutin "",255;	
	cutin "sign_03",4;
	mes "^3355FFNext";
	next;
	cutin "",255;		
	cutin "sign_04",4;
	mes "^3355FFClose";
	close2;
	cutin "",255;
	end;
}
	else
{
	if(signquest < 1)set signquest,1;
	mes "^3355FFTo the talented and";
	mes "experienced adventurers who";
	mes "have dreams of achieving true";
	mes "greatness...";
	next;
	mes "^3355FFI present a once in a";
	mes "lifetime opportunity to the one";
	mes "who proves most worthy. You must";
	mes "have the courage to risk peril,";
	mes "the wisdowm to perforum right";
	mes "action and the strength to be";
	mes "victorious in combat.";
	next;
	mes "^3355FFThe way will be fraught";
	mes "with danger and only the most";
	mes "adept adventurers may have a";
	mes "chance of surviving. But if we";
	mes "can succeed, I promies on my";
	mes "good name that power beyond";
	mes "imagining will become yours.";
	next;
	mes "^3355FFThose of you who are interested,";
	mes "come to me and I will test";
	mes "your abilities. The one who";
	mes "can manage to pass this testing";
	mes "just might be capable of helping";
	mes "me prove a forgotten legend";
	mes "and uncover a long lost power";
	next;
	mes "^3355FFI shall be waiting.";
	mes "";
	mes "^000000-Metz Brayde";
	close;
}

}	

morocc.gat,168,264,1	duplicate(GeffeniaSigns)	Sign#2	111
payon.gat,160,183,1	duplicate(GeffeniaSigns)	Sign#3	111
prontera.gat,147,305,1	duplicate(GeffeniaSigns)	Sign#4	111
geffen.gat,168,175,1	duplicate(GeffeniaSigns)	Sign#5	111
aldebaran.gat,54,223,1	duplicate(GeffeniaSigns)	Sign#6	111

prt_in.gat,228,26,4	script	Steward	55,{

	if(signquest > 22) goto L_Situation;
	if(signquest == 14) goto L_Artisan;
	if(signquest > 1)
{
	mes "[Vendez]";
	mes "Ah, master " + strcharinfo(0) + ".";
	mes "Welcome. How may I be";
	mes "of service today?";
	next;
	menu "Who is Arian?",s_Arian,"What is Metz doing?",-,"How is Elle?",s_Elle;

	mes "[Vendez]";
	mes "Althought I've served";
	mes "the Brayde family for years";
	mes "I'm unfamiliar with Master";
	mes "Metz's work. My appologies, but";
	mes "I simply cannot even begin to";
	mes "fathom his research...";
	close;
s_Arian:
	mes "[Vendez]";
	mes "Ah yes, Arian.";
	mes "I consider him to be";
	mes "a man of few words. The";
	mes "words he does choose to";
	mes "use are rather harsh and";
	mes "brutish, you might say.";
	close;
s_Elle:
	mes "[Vendez]";
	mes "Ah, Mistress Elle";
	mes "has been working here";
	mes "since she was a very young";
	mes "girl. She is almost like";
	mes "a granddaughter to me.";
	mes "Ha ha-^222222*Ahem*";
	close;

}
	else
{
	mes "[Vendez]";
	mes "Welcome to the";
	mes "Brayde Estate. How";
	mes "may I be of service?";
	next;
	menu "Nothing",-,"I'm here to see Metz",s_Metz,"Gimmie your cash!",s_Cash;

	mes "[Vendez]";
	mes "If you do not have";
	mes "any business to conduct";
	mes "with Master Metz, please";
	mes "leave immediately";
	close;

s_Metz:
	mes "[Vendez]";
	mes "Very good, sir.";
	mes "Please wait a moment";
	mes "while I consult with";
	mes "the master in his study.";
	close;

s_Cash:
	mes "[Vendez]";
	mes "My apologies,";
	mes "but I insist that";
	mes "you leave the premises";
	mes "^FF0000immediately^000000.";
	close2;
	warp "prontera.gat",150,150;
	end;
}

L_Artisan:
	mes "[Vendez]";
	mes "Oh, congratulations~";
	mes "You finally passed all";
	mes "of the tests. I know they";
	mes "must have been incredibly";
	mes "taxing and challenging.";
	next;
	mes "[Vendez]";
	mes "Master Metz has informed";
	mes "me that he wishes for you";
	mes "to find someone";
	mes "to restore the Sobbing";
	mes "Starlight. I wish you luck";
	mes "in that endeavor.";
	close;

L_Situation:
	mes "[Vendez]";
	mes "There will always";
	mes "be situations where";
	mes "you won't be getting";
	mes "any second chances.";
	mes "Anyways remember that.";
	close;

}

prt_in.gat,227,45,4	script	Archaeologist	804,{

	cutin "mets_alpha",2;
	if(sign_fail) goto L_Stop;
	if(signquest > 0)goto s_Cont;
	mes "[Metz]";
	mes "Although you need everlasting";
	mes "patience in an archaeological";
	mes "excavation, the feeling you get";
	mes "when you find something makes";
	mes "all those long hours of study and";
	mes "research worth it.";
	close2;
	cutin "",255;
	end;

s_Cont:
	if(signquest == 1)
{
	mes "[Metz]";
	mes "Hm...?";
	mes "Can I help you?";
	next;
	menu "I've been following these signs and...",s_Sign,"I was just passing by",-;

	mes "[Metz]";
	mes "Oh really?";
	mes "I see, I though you";
	mes "were an applicant for";
	mes "the position I'm offering";
	mes "to brave adventurers.";
	close2;
	cutin "",255;
	end;

s_Sign:
	mes "[Metz]";
	mes "Great...!";
	mes "Welcome to my";
	mes "humble lodgings.";
	mes "Hmm, let me see...";
	next;
	if(BaseLevel < 70)
	{
		mes "[Metz]";
		mes "Uh, it pains me to say this, but I";
		mes "don't think you qualify to help";
		mes "me out. Once you gain enough";
		mes "experience though, I'll be happy";
		mes "to have you on board~";
		close2;
		cutin "",255;
		end;
	}
	mes "[Metz]";
	mes "Hey, I think you might";
	mes "be well suited for the job!";
	mes "But do you think you could come";
	mes "back later? I've got my hands full";
	mes "with some other business.";
	next;
	mes "[Metz]";
	mes "Oh right, would you tell";
	mes "me your name? " + strcharinfo(0) + "?";
	mes "Okay then, I'll remember that.";
	mes "Talk to you later, alright?";
	set signquest,2;
	close2;
	cutin "",255;
	end;
}

	else if(signquest == 2)
{
	mes "[Metz]";
	mes "I'm sorry I made you wait,";
	mes "but I had some research to finish";
	mes "and it took longer than I";
	mes "expected. Now, before I tell you";
	mes "more about the job, I want to";
	mes "test your competency";
	next;
	mes "[Metz]";
	mes "The job I'm offering is";
	mes "pretty risky and not just";
	mes "anybody can handle it.";
	mes "You'll actually go through";
	mes "a series of tests conducted";
	mes "by my trusted friends.";
	next;
	mes "[Metz]";
	mes "Now, the first person";
	mes "you must visit is ^FF0000Arian^000000";
	mes "in Morroc. Please speak";
	mes "to him and he'll give you";
	mes "all the details about his";
	mes "examination... I hope";
	next;
	mes "[Metz]";
	mes "Once you're finished with";
	mes "the test, Arian will tell you";
	mes "what to do next. Afterwards,";
	mes "come back to me so that we";
	mes "can finally talk business.";
	next;
	mes "[Metz]";
	mes "Ah, almost forgot.";
	mes "Arian won't talk to anybody";
	mes "unless he knows them or";
	mes "receives a message from me.";
	mes "So if he's snubbed you in the past,";
	mes "just understand that's his";
	mes "way.";
	set signquest,3;
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 3 || signquest == 4)
{
	mes "[Metz]";
	mes "Hm...?";
	mes "Shouldn't you leave";
	mes "for Morroc to see Arian?";
	mes "You better hurrty in case";
	mes "somebody else applies";
	mes "for this little job.";
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 13)
{
	mes "[Metz]";
	mes "Congratulations~";
	mes "You managed to pass";
	mes "all of the tests! You seem";
	mes "to be the perfect person";
	mes "to carry out this special";
	mes "assignment!";
	next;
	mes "[Metz]";
	mes "By now, you must have";
	mes "six Sobbing Starlight pieces.";
	mes "I'm sure that you want to know";
	mes "more about those fragments.";
	next;
	mes "[Metz]";
	mes "I remember last summer,";
	mes "I found the wholly formed";
	mes "Sobbing Starlight north";
	mes "of Mount Mjolnir during";
	mes "one of my expeditions.";
	next;
	mes "[Metz]";
	mes "Although it was in perfect";
	mes "shape, once it was exposed";
	mes "to the air, it began to crack";
	mes "and shattered into the pieces";
	mes "you now hold in your hands.";
	next;
	mes "[Metz]";
	mes "Now, an ordinary artisan";
	mes "can't put the Sobbing Starlight";
	mes "back together. This mysterious";
	mes "stone has some strange properties.";
	mes "But it's imperative to me to get";
	mes "this stone reassembled.";
	next;
	mes "[Metz]";
	mes "Once restored, a strange";
	mes "pattern can be seen within";
	mes "the Sobbing Starlight. I guess";
	mes "that the pattern is a message";
	mes "written in an ancient language.";
	next;
	mes "[Metz]";
	mes "Would you let me borrow";
	mes "the pieces for a second ?";
	mes "I'll show you something";
	mes "quite interesting...";
	next;
	mes "^0066CCOnce you hand the pieces";
	mes "of the Sobbing Starlight to";
	mes "Metz, he pulls out a seventh";
	mes "piece. Once gathered, they";
	mes "begin to emit a strange light.";
	misceffect 34;
	next;
	mes "[Metz]";
	mes "Since the pieces still";
	mes "respond to each other,";
	mes "I believe that it's possible";
	mes "for the Sobbing Starlight";
	mes "to be restored to its";
	mes "original form.";
	next;
	mes "[Metz]";
	mes "We're still seeking";
	mes "an artisan of great";
	mes "skill for this task. Once";
	mes "know right away. For now,";
	mes "please hold on these pieces.";
	getitem 7177,1;
	set signquest,14;
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 14)
{
	set @signartisan,rand(1,5);
	if(@signartisan == 1) goto L_Artisan;
	mes "[Metz]";
	mes "Although I've made";
	mes "some progress, I still";
	mes "haven't found an artisan";
	mes "capable of restoring the";
	mes "Sobbing Starlight. Please";
	mes "give me a little more time.";
	close2;
	cutin "",255;
	end;

L_Artisan:
	mes "[Metz]";
	mes "Ah, you've come just";
	mes "just in the nick of time!";
	mes "I just found someone who";
	mes "may be capable of restoring";
	mes "the Sobbing Starlight.";
	next;
	mes "[Metz]";
	mes "His name is";
	mes "^FF0000Engel Howard^000000,";
	mes "a legendary Blacksmith";
	mes "in Rune Midgard. I don't";
	mes "know where he is, but maybe";
	mes "his family in Geffen may know.";
	next;
	mes "[Metz]";
	mes "Unfortunately, that's all";
	mes "the information that I have";
	mes "to give you for now. You'll";
	mes "have to investigate this lead";
	mes "on your own, "+ strcharinfo(0) +".";
	set signquest,15;
	close2;
	cutin "",255;
	end;

}
	else if(signquest == 23)
{
	mes "[Metz]";
	mes "Amazing...! You've";
	mes "managed to restore";
	mes "the Sobbing Starlight!";
	mes "Now, I recently learned that";
	mes "this stone can lead you to";
	mes "an ancient place...";
	next;
	mes "[Metz]";
	mes "That's why we need to";
	mes "know what the message in";
	mes "the Sobbing Starlight means.";
	mes "First, we need a Wizard that";
	mes "is skilled in unlocking the";
	mes "messages stored in gems...";
	next;
	mes "[Metz]";
	mes "Hmm. It would probably";
	mes "be best to visit the Wizards";
	mes "on the top floor of the Geffen";
	mes "Tower. There's someone I know";
	mes "there who might just be up for";
	mes "this task...";
	set signquest,24;
	close2;
	cutin "",255;
	end;

}

	else if(signquest == 24)

{
	mes "[Metz]";
	mes "Now that the";
	mes "Sobbing Starlight";
	mes "is restored, we need";
	mes "to find someone who can";
	mes "break the seal on the";
	mes "gem's message...";
	next;
	mes "[Metz]";
	mes "For now, please visit";
	mes "the Wizards at the top";
	mes "floor of the Geffen Tower.";
	mes "I know that one of them is";
	mes "capable of getting the gem's";
	mes "text on a paper...";
	close2;
	cutin "",255;
	end;
}

	else if(signquest == 28)

{
	mes "[Metz]";
	mes "Great...!";
	mes "You were able to get the";
	mes "text in the gem printed on a";
	mes "Record of Ancient Language?";
	next;
	mes "[Metz]";
	mes "Just as I thought.";
	mes "This language isn't";
	mes "one I recognize. It's";
	mes "probably too ancient.";
	next;
	mes "[Metz]";
	mes "Fortunately, I know";
	mes "one person who may";
	mes "be able to translate this.";
	mes "If he's not able to do it...";
	mes "We'll have to give up.";
	next;
	mes "[Metz]";
	mes "Bring this Record";
	mes "of Ancient Language";
	mes "to a man named Frank.";
	mes "I hope he'll be able to";
	mes "understand what it says.";
L_Frank:
	next;
	menu "Who is Frank?",L_Who,"Where is he?",L_Where,"I see.",-;
	mes "[Metz]";
	mes "Good luck, then.";
	mes "I hope that you can";
	mes "find a way to get Frank";
	mes "Franklin to help us.";
	set signquest,29;
	close2;
	cutin "",255;
	end;

L_Who:
	mes "[Metz]";
	mes "Frank Franklin has lived";
	mes "in seclusion and only a few";
	mes "people are aware of his skill.";
	mes "But I can assure you that his";
	mes "knowledge of ancient languages";
	mes "isn't rivaled by any mortal.";
	next;
	mes "[Metz]";
	mes "I suppose his interest";
	mes "in history is what drives";
	mes "him in work. Still, I've";
	mes "heard that he doesn't like";
	mes "meeting people. I hope you";
	mes "can convince him to help us...";
	goto L_Frank;

L_Where:
	mes "[Metz]";
	mes "It's said that";
	mes "Frank Franklin lives";
	mes "on the Alberta Sunken Ship";
	mes "where he devotes his time";
	mes "to his researches. He may not";
	mes "always be home though...";
	goto L_Frank;

}

	else if(signquest == 29)
{
	mes "[Metz]";
	mes "So far, I've learned";
	mes "from my research that";
	mes "the gem's message has";
	mes "details about a certain";
	mes "location and an item that";
	mes "serves as some kind of key...";
	next;
	mes "[Metz]";
	mes "While I investigate,";
	mes "please try to have Frank";
	mes "Franklin translate the";
	mes "message in the Record of";
	mes "Ancient Language. Keep up";
	mes "the good work," + strcharinfo(0) + ".";
	close2;
	cutin "",255;
	end;
}

	else if(signquest == 53)
{
	mes "[Metz]";
	mes "Angrboda...?!";
	mes "According to legend,";
	mes "her soul was split into";
	mes "pieces and placed behind";
	mes "seals created by the gods!";
	next;
	mes "[Metz]";
	mes "You'll need a stout,";
	mes "heavy or really sharp";
	mes "weapon. Of course, I'm";
	mes "told that such weapons";
	mes "are truly rare...";
	next;
	mes "[Metz]";
	mes "Supposedly, normal";
	mes "Blacksmiths can't even";
	mes "forge those kinds of rare";
	mes "weapons. But if you manage";
	mes "to get one, you might have a";
	mes "chance of breaking the seals.";
	next;
	mes "[Metz]";
	mes "Of course, I'm worried";
	mes "that may be violating the";
	mes "will of the gods by releasing";
	mes "Angrboda, but we've already";
	mes "gone this far...";
	close2;
	cutin "",255;
	end;
}
	else if( (signquest > 54 && signquest < 59) || (signquest == 59 && !countitem(2644)))
{
	mes "[Metz]";
	mes "I think you're";
	mes "almost there. All";
	mes "of our efforts will";
	mes "soon come to fruition!";
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 59 && countitem(2644))
{
	mes "[Metz]";
	mes "This is it...!";
	mes "You've brought me,";
	mes "'The Sign'! I've finally";
	mes "proven its existence!";
	mes "Please let me handle";
	mes "this and come back later~";
	delitem 2644,1;
	set @metzhour,gettime(3);
	set @metzmin,gettime(2);
	if(@metzmin > 29) set @metzhour,@metzhour +1;
	set signmetzhour,@metzhour + rand(2,4);
	if(signmetzhour > 23) set signmetzhour,signmetzhour - 24;
	set signquest,60;
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 60)
{
		if(gettime(3) == signmetzhour || gettime(3) == signmetzhour +1 || gettime(3) == signmetzhour +2)
{
	mes "[Metz]";
	mes "Fascinating...";
	mes "This was made with";
	mes "a material outside of";
	mes "Rune-Midgard! See this";
	mes "blue lens? That must be";
	mes "its incredible power source!";
	next;
	mes "[Metz]";
	mes "I've found that the runes";
	mes "around the lens control some";
	mes "kind of seals placed at the Geffen";
	mes "Tower and Geffen Fountain. But with";
	mes "this in your hands, the seals";
	mes "should be broken...";
	next;
	mes "[Metz]";
	mes "I... I think";
	mes "you can even use this";
	mes "to enter Valhalla. There";
	mes "may be even other applications";
	mes "using the power of this item...";
	next;
	mes "[Metz]";
	mes "I can only think of";
	mes "one person who can";
	mes "handle working with";
	mes "this: Engel Howard,";
	mes "Rune-Midgard's best";
	mes "Blacksmith.";
	getitem 2644,1;
	set signquest,61;
	close2;
	cutin "",255;
	end;
}
	else
{
	mes "[Metz]";
	mes "I'm sorry, but I'm";
	mes "still examinating the";
	mes "artifact you've lent to";
	mes "me. Would you please";
	mes "give me some more time?";
	close2;
	cutin "",255;
	end;
}

}
	else if(signquest == 61)
{
	mes "[Metz]";
	mes "Have you visited";
	mes "Engel Howard yet?";
	mes "He's the only one";
	mes "who can unlock the";
	mes "Sign's power for you...";
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 63)
{
	mes "[Metz]";
	mes "Ah, you're finally";
	mes "here. I've been waiting";
	mes "to speak with you. First,";
	mes "let me thank you again";
	mes "for all of your help.";
	next;
	mes "[Metz]";
	mes "Thanks to you, my wish";
	mes "of proving the existence";	
	mes "of the Sign has finally been";
	mes "fulfilled. Its power is now";
	mes "yours to do as you wish.";
	next;
	mes "[Metz]";
	mes "You may have had your doubts,";
	mes "but I'm happy enough to confirm";
	mes "that the Sign really exists. Thanks";
	mes "again, and I hope you stop by and";
	mes "chat from time to time.";
	set BaseExp,BaseExp +1823951;
	set signquest,64;
	close2;
	cutin "",255;
	end;
}
	else if(signquest == 64)
{
	mes "[Metz]";
	mes "Thank you so much";
	mes "for helping me make";
	mes "my dream come true.";
	mes "I hope we can work on";
	mes "another project together.";
	next;
	mes "[Metz]";
	mes "Well then...";
	mes "Good luck on";
	mes "your journeys,";
	mes "brave " + strcharinfo(0) + ".";
	close2;
	cutin "",255;
	end;
}
	else
{
	mes "[Metz]";
	mes "How are going your";
	mes "researches about";
	mes "the Sobbing Starlight?";
	mes "I wish you to come";
	mes "back to me when you";
	mes "have passed all tests.";
	close2;
	cutin "",255;
	end;	
}

L_Stop:
	if(sign_fail != 3)
{
	mes "[Metz]";
	mes "What...?";
	mes "Were you really lacking";
	mes "that much courage...?";
	mes "Does it mean I'll never";
	mes "see that legendary artifact";
	mes "with my own eyes?";
	next;
	mes "[Metz]";
	mes "So much work for nothing...";
	mes "Oh, excuse me. I should feel";
	mes "honored to just have been";
	mes "able to hold that Sobbing";
	mes "Starlight in my own hands.";
	mes "May I please take one last";
	mes "look at it?";
	next;
}
	mes "[Metz]";
	mes "Thanks for your help. My dream";
	mes "might never come true but I've";
	mes "seen things that some people";
	mes "will never see in their whole lives.";
	if(sign_fail < 3) { getitem 617,1; set BaseExp,BaseExp + 876543; }
	set sign_fail,3;
	close2;
	cutin "",255;
	end;

}

prt_in.gat,248,23,4	script	Maid#2	1275,{

end;

}

morocc_in.gat,114,162,4	script	Young Man#13	118,{

	if(signquest == 5)
{
	mes "[Gaanan]";
	mes "^444444*Sigh...*^000000";
	mes "I wish the weather'd";
	mes "cool down, even just a little.";
	mes "While I'm asking for miracles,";
	mes "I may as well wish for a billion";
	mes "kajillion zeny. And maybe a yacht.";
	close;
}

	else if(arianstest == 8)
{
	if(gaanantest == 1)
{
	mes "[Gaanan]";
	mes "Hm...?";
	mes "Arian is the one";
	mes "who's grading your";
	mes "test. But I understand.";
	mes "If you failed, I'd want";
	mes "to avoid him too...";
	close;
}
	mes "[Gaanan]";
	mes "Oh, Arian sent you to me,";
	mes "right? I'm sorry, but he takes";
	mes "a little time getting used to.";
	mes "Even though I still have to get";
	mes "used to his... mannerisms";
	next;
	mes "[Gaanan]";
	mes "Anyway, since he thinks it's";
	mes "boring, Arian put me in charge";
	mes "of the quiz portion of your test.";
	mes "Please carefully choose an";
	mes "answer when I ask you a";
	mes "question. Are you ready?";
	next;
	set gaananpoint,0;
	mes "[Gaanan]";
	mes "Now, the first question.";
	mes "Let's say that you just";
	mes "found yourself on a deserted";
	mes "island. What is the very first";
	mes "thing that you should do?";
	next;
	menu "Look for fresh water",-,"Just wait for rescue.",s_1W,"Forage for food.",s_1W,"Explore the island.",s_1W;
	set gaananpoint,1;
s_1W:
	mes "[Gaanan]";
	mes "The second question is...";
	mes "You happen to be stuck in";
	mes "a narrow place inside some collapsed building. What";
	mes "do you plan to do first?";
	next;
	menu "Scream for help",-,"Stay quiet.",s_2W,"Wait for death to come.",s_2W,"Find a way out.",s_2W;
	set gaananpoint,gaananpoint + 1;
s_2W:
	mes "[Gaanan]";
	mes "Now, the third question.";
	mes "You're on some dungeon";
	mes "expedition with your friends,";
	mes "but you got lost somehow.";
	mes "How do you handle it?";
	next;
	menu "Try to find my friends.",-,"Find a way out.",s_3W,"Stay put.",s_3W,"Continue exploring the dungeon.",s_3W;
	set gaananpoint,gaananpoint + 1;
s_3W:
	mes "[Gaanan]";
	mes "Here's the fourth question.";
	mes "You're with your friends inside";
	mes "a mansion with no exit. What do";
	mes "you do first when a murder happens";
	mes "inside the mansion?";
	next;
	menu "Wait for the case to get solved.",-,"Try to find my friends first.",s_4W,"Find a way out.",s_4W,"Solve the murder case on my own.",s_4W,"Kill the others before they kill me.",s_4W;
	set gaananpoint,gaananpoint + 1;
s_4W:
	mes "[Gaanan]";
	mes "The fifth question is";
	mes "You hear that the end of";
	mes "the world is in one week.";
	mes "So what do you do during";
	mes "this final week?";
	next;
	menu "Wait to see the end.",-,"Plant an apple tree.",s_5W,"Look to move to a different world.",s_5W,"What else? Save the world.",s_5W,"What else? Go on a crime spree.",s_5W;
	set gaananpoint,gaananpoint + 1;
s_5W:
	mes "[Gaanan]";
	mes "Oh! We're done!";
	mes "Okay, let me give";
	mes "these answers to Arian.";
	mes "Sooo... Talk to him and";
	mes "he'll let you know how";
	mes "you did.";
	set gaanantest,1;
	close;
}

	else if(ariantest < 8)
{

	emotion e_swt2;
	mes "[Gaanan]";
	mes "The weather here in";
	mes "Morroc is too hot for me.";
	mes "I'm having a hard time just";
	mes "trying to live here. Do you";
	mes "know a nice and cool place";
	mes "where I can work?";
	close;

}

}

morocc_in.gat,115,154,5	script	Rogue	810,{
	
	if(signquest == 5)
{
	mes "[Arian]";
	mes "..........";
	mes "Payon...?";
	mes "Daewooon?";
	mes "Any of it ring a bell?";
	mes "Cuz it really oughtta!";
	close;
}

	else if(signquest < 3 || signquest > 5)
{
	emotion e_dots;
	end;
}
	else if(signquest == 3)
{

	mes "[Arian]";
	mes "...";
	mes "Who the hell";
	mes "are you, jerkface?";
	next;
	menu "Metz sent me here.",s_Metz,"^0000FF" + strcharinfo(0) + "^000000",s_Name,"Who are you then?",-;

	mes "[Arian]";
	mes "...";
	mes "......";
	next;
	percentheal -50,0;
	mes "[Arian]";
	mes "...";
	mes "......";
	mes "Your mom.";
	mes "Now get the";
	mes "hell outta here!";
	close;

s_Metz:

	mes "[Arian]";
	mes "Oh yeah...?";
	mes "Well, I'm sending you";
	mes "back! No way I'm fallin'";
	mes "for that trick, chump!";
	close2;
	warp "morocc.gat",279,173;
	end;

s_Name:

	mes "[Arian]";
	mes "Wha...?";
	mes "^0000FF" + strcharinfo(0) + "^000000.";
	mes "Yeah, okay. Metz did";
	mes "mention something about";
	mes "you. You're here for";
	mes "the test, right?";
	next;
	mes "[Arian]";
	mes "Aliright, this";
	mes "test is simple.";
	mes "I tell you to bring me";
	mes "a bunch of items and";
	mes "you go get them.";
	next;
	mes "[Arian]";
	mes "I know you jerkward adventurers";
	mes "are always talking and you share";
	mes "the answers for any test some dude";
	mes "is givin' out. 'Course, it doesn't";
	mes "help that I use the same test";
	mes "every frickin' time...";
	next;
	mes "[Arian]";
	mes "Now, you gotta bring and only";
	mes "have the item I ask you for when";
	mes "you come to me. If you know that";
	mes "I'll be asking for something later";
	mes "and you happen to have it, I'll";
	mes "straight up ^FF0000jack it^000000.";
	next;
	mes "[Arian]";
	mes "The first item?";
	mes "Gimme ^FF0000100 Fluff^000000.";
	mes "Bring that and I'll";
	mes "tell you what to";
	mes "bring next.";
	set signquest,4;
	set arianstest,1;
	close;
}
	else if(signquest == 4)
{

	if(arianstest == 1)
{
	if(countitem(914) < 100)goto s_Bringfluff;
	delitem 914,100;
	mes "[Arian]";
	mes "What the hell took you so";
	mes "long? Now bring me ^FF000050 Poison Spores^000000";
	mes "or I'll kick your ass.";
	set arianstest,2;
	close2;
	goto Verifyitems;

s_Bringfluff:
	mes "[Arian]";
	mes "...";
	mes "Hey. What the hell's wrong";
	mes "with you? Hurry and get me";
	mes "^FF0000100 Fluff^000000, ya slacker.";
	close;	
}

	else if(arianstest == 2)
{
	if(countitem(7033) < 50)goto s_Bringspore;
	delitem 7033,50;
	mes "[Arian]";
	mes "...";
	mes "It's about time you";
	mes "got here with those";
	mes "Poison Spores. Now, go";
	mes "and get ^FF000030 Scorpion Tails";
	set arianstest,3;
	close2;
	goto Verifyitems;

s_Bringspore:
	mes "[Arian]";
	mes "...";
	mes "Hey. What part of 'Get me";
	mes "^FF000050 Poison Spores^000000 or I'll";
	mes "kick your ass, don't";
	mes "you understand?";
	close;		
}
	else if(arianstest == 3)
{
	if(countitem(904) < 30)goto s_Bringtails;
	delitem 904,30;
	mes "[Arian]";
	mes "...";
	mes "Damn, you sure took your";
	mes "sweet time bringing over this";
	mes "crap. Okay, now bring";
	mes "^FF000020 Rotten Bandages^000000.";
	set arianstest,4;
	close2;
	goto Verifyitems;

s_Bringtails:
	mes "[Arian]";
	mes "...";
	mes "What, your mom drop you on the";
	mes "head right after you were born?";
	mes "Stop bein' stupid and get me";
	mes "^FF000030 Scorpion Tails^000000, nimrod.";
	close;		
}
	else if(arianstest == 4)
{
	if(countitem(930) < 20)goto s_Bringbandages;
	delitem 930,20;
	mes "[Arian]";
	mes "...";
	mes "You brought the bandages.";
	mes "Okay short stuff, go and get";
	mes "me ^FF000015 Little Evil Horn^000000. What";
	mes "are you waiting for, a memo?";
	mes "Get outta here~!";
	set arianstest,5;
	close2;
	goto Verifyitems;

s_Bringbandages:
	mes "[Arian]";
	mes "...";
	mes "Is it really that hard to get";
	mes "^FF000020 Rotten Bandages^000000? Cuz if it";
	mes "is, then you must really blow.";
	mes "How hustle it up, punk!";
	close;		
}
	else if(arianstest == 5)
{
	if(countitem(1038) < 15)goto s_Bringhorns;
	delitem 1038,15;
	mes "[Arian]";
	mes "...";
	mes "My grandma coulda grown";
	mes "out her beard in the time";
	mes "it took you to come back.";
	mes "Now hurry it up and get";
	mes "me ^FF000010 Coral Reefs^000000!";
	set arianstest,6;
	close2;
	goto Verifyitems;

s_Bringhorns:
	mes "[Arian]";
	mes "...";
	mes "I don't get it.";
	mes "You don't have the";
	mes "^FF000015 Little Evil Horn";
	mes "I told you to get.";
	next;
	mes "[Arian]";
	mes "I see, so it's my";
	mes "fault for not telling you";
	mes "not to bring your crap face";
	mes "back without 'em. ^222222*A-hem*";
	mes "Don't bring your crap face here";
	mes "without 15 Little Evil Horns!!";
	close;	
}
	else if(arianstest == 6)
{
	if(countitem(7013) < 10)goto s_Bringcorals;
	delitem 7013,10;
	mes "[Arian]";
	mes "Finally you're back";
	mes "Gimme a sec to count";
	mes "all this stuff so I can make";
	mes "sure you're not trying to";
	mes "cheat. God help you if you";
	mes "try to pull a fast one on me...!";
	set arianstest,7;
	close;

s_Bringcorals:
	mes "[Arian]";
	mes "I don't care how pretty";
	mes "they are or if you're ruining";
	mes "the ecosystem! When I say";
	mes "'bring ^FF000010 Coral Reefs^000000',you";
	mes "better have them! All the";
	mes "fish can die for all I care.";
	close;	
}
	else if(arianstest == 7)
{
	mes "[Arian]";
	mes "...";
	mes "Alright. Go talk";
	mes "to the guy to my left.";
	mes "The dude at the counter.";
	mes "What's-his-face, Ganaan.";
	set arianstest,8;
	close;
}
	else if(arianstest == 8)
{
	if(gaanantest == 1)
{
	if(gaananpoint < 3)goto s_Suck;
	mes "[Arian]";
	mes "Alright. The answers";
	mes "you have Ganaan tell me";
	mes "you're not a total dumbass.";
	mes "Now you're supposed to go see";
	mes "Daewoon in Payon. And don't forget";
	mes "to show him this Star thingiee.";
	getitem 7177,1;
	set signquest,5;
	close;
s_Suck:
	mes "[Arian]";
	mes "Let's see...";
	mes "I'm looking at your";
	mes "answers and they totally";
	mes "suck. Take the test again";
	mes "and do it right this time!";
	next;
	mes "[Arian]";
	mes "Geez...";
	mes "You're givin' Ganaan";
	mes "a hard time. You hear";
	mes "me? That's my job!";
	set gaananpoint,0;
	set gaanantest,0;
	close;
}
	mes "[Arian]";
	mes "You wanna leave me";
	mes "alone now and gimme";
	mes "a little personal space?!";
	mes "I need a break from looking";
	mes "at your ugly mug, you know?";
	close;
}

}

Verifyitems:

	if(arianstest == 2 && countitem(7033) > 49)
{
	delitem 7033,countitem(7033);
	mes "[Arian]";
	mes "Hey! What did I tell you";
	mes "about bringing stuff before";
	mes "I asked you about it";
	next;
	mes "[Arian]";
	mes "I'll confiscate those Poison Spores.";
	close2;	
}
	else if(arianstest == 3 && countitem(904) > 29)
{
	delitem 904,countitem(904);
	mes "[Arian]";
	mes "Hey! What did I tell you";
	mes "about bringing stuff before";
	mes "I asked you about it";
	next;
	mes "[Arian]";
	mes "I'll take those Scorpion Tails.";
	close2;	
}
	else if(arianstest == 4 && countitem(930) > 19)
{
	delitem 930,countitem(930);
	mes "[Arian]";
	mes "Hey! What did I tell you";
	mes "about bringing stuff before";
	mes "I asked you about it";
	next;
	mes "[Arian]";
	mes "I'll take those Rotten Bandages.";
	close2;	
}
	else if(arianstest == 5 && countitem(1038) > 14)
{
	delitem 1038,countitem(1038);
	mes "[Arian]";
	mes "Hey! What did I tell you";
	mes "about bringing stuff before";
	mes "I asked you about it";
	next;
	mes "[Arian]";
	mes "I'll confiscate those Little Evil Horns.";
	close2;	
}
	else if(arianstest == 6 && countitem(7013) > 9)
{
	delitem 7013,countitem(7013);
	mes "[Arian]";
	mes "Hey! What did I tell you";
	mes "about bringing stuff before";
	mes "I asked you about it";
	next;
	mes "[Arian]";
	mes "I'll confiscate those Coral Reefs.";
	close2;	
}
	end;
}

payon_in03.gat,81,16,8	script	Maid::Sohee	1170,{

end;

}

payon_in03.gat,78,16,8	script	Maid::Miyabi	1404,{

end;

}

payon_in03.gat,13,31,4	script	Maid::Nymph	1416,{

end;

}

payon_in03.gat,81,21,4	duplicate(Sohee)	Maid::Sohee2	1170
payon_in03.gat,78,21,4	duplicate(Miyabi)	Maid::Miyabi2	1404
payon_in03.gat,8,31,4	duplicate(Nymph)	Maid::Nymph2	1416

payon_in03.gat,11,31,4	script	Daewoon	808,{



	mes "[Daewoon]";
	mes "Mwah ah hah!";
	mes "Feasting and merriment,";
	mes "wine, women and song!";
	mes "I could ask for nothing more!";
	next;
	mes "[Daewoon]";
	mes "The most scumptious";
	mes "delicacies are all mine to";
	mes "taste! And I'm not just talking";
	mes "about the food. Mwah ah hah!";
	mes "I'm the king of the world!";
	next;

	if(signquest < 4 || signquest > 6)
{
	mes "[Daewoon]";
	mes "Mwah ah hah~!";
	mes "I couldn't be happier!";
	mes "What more do I need?";
	mes "Gourmet food, find wine";
	mes "nubile women...!";
	close;
}
	else if(signquest == 5)
{
	mes "[Daewoon]";
	mes "Oh, a visitor?";
	mes "I'm sorry, but I believe";
	mes "you're an uninvited guest~";
	mes "You'll have to forgive me";
	mes "if I wish to spend my time with";
	mes "maidens as opposed to men";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "Sure...";
	mes "But first, would you";
	mes "take a look at this?";
	next;
	mes "^3355FFYou carefully take";
	mes "out the small, lucid";
	mes "jewel that Arian gave";
	mes "you and reveal it to";
	mes "Daewoon's roving eyes.";
	next;
	emotion e_gasp;
	mes "[Daewoon]";
	mes "Eh? Why that's...";
	mes "I see now, Arian must";
	mes "have sent you! Oh you";
	mes "should have said so";
	mes "at the very beginning~";
	next;
	mes "[Daewoon]";
	mes "My apologies~";
	mes "Lately I've been attracting";
	mes "all sorts of strange attention";
	mes "like some kind of teen celebrity.";
	mes "I've gotten used to being too";
	mes "careful in screening out the";
	mes "dangerous sort.";
	next;
	mes "[Daewoon]";
	mes "Now then.";
	mes "Do you have any";
	mes "idea what that jewel";
	mes "you're holding actually is?";
	next;
	menu "Kind of?",-,"How the hell would I know?",s_How,"No, but would you tell me?",s_Tell;

	mes "[Daewoon]";
	mes "Oh...!";
	mes "You must be much";
	mes "smarter than I expected.";
	mes "So tell me, what do you";
	mes "understand about this jewel?";
	next;
	menu "It's handy.",-,"I actually don't know...",s_Honest;

	emotion e_dots;
	mes "[Daewoon]";
	mes "Mmm...?";
	mes "Handy? If you truly";
	mes "understood, I don't";
	mes "think you'd describe this";
	mes "jewel as merely 'handy'.";
	next;
	goto s_Cont;
s_Honest:
	emotion e_pif;
	mes "[Daewoon]";
	mes "Really?";
	mes "Mm. At least you";
	mes "admit it ^000200*Sigh*";
	next;
	goto s_Cont;
s_How:
	emotion e_dots;
	mes "[Daewoon]";
	mes "...";
	mes "A rather crass way";
	mes "of speaking, but perhaps";
	mes "you picked it up from Arian.";
	mes "In any case, let me explain.";
	next;
	goto s_Cont;
s_Tell:
	mes "[Daewoon]";
	mes "Didn't Arian tell you";
	mes "anything? I appreciate";
	mes "your honesty. And I don't";
	mes "mind chatting a while, I much";
	mes "prefer speaking to honest people";
	mes "rather than foolish know-it-alls.";
	next;
s_Cont:
	mes "[Daewoon]";
	mes "That ^301A8ASobbing Starlight^000000";
	mes "is no mere jewel. It is a key";
	mes "item for unlocking some incredible";
	mes "power. I believe Metz happened to";
	mes "obtain a piece, though I am";
	mes "unsure how...";
	next;
	mes "[Daewoon]";
	mes "Metz has asked me and";
	mes "some other friends who";
	mes "hold the fragments of the";
	mes "Sobbing Starlight to entrust";
	mes "them to someone worthy of";
	mes "finding the power it leads to.";
	next;
	mes "[Daewoon]";
	mes "Of course, we all agreed";
	mes "and now you're here for me";
	mes "to judge whether or not you're";
	mes "qualified for this task. Now,";
	mes "are you ready for my test?";
	next;
	menu "I'M READY! YEEAH!",-,"I'll do my best!",s_Best,"To hell with this!",s_Rude,"Fine. Let's get it over with",s_GetOver;

	mes "[Daewoon]";
	mes "Ooh~";
	mes "Such unbridled";
	mes "enthusiasm usually";
	mes "goes more good than harm.";
	next;
	goto s_Question;

s_Best:
	emotion e_ok;
	mes "[Daewoon]";
	mes "Mwah ah hah";
	mes "That's exactly what";
	mes "I wanted to hear! That";
	mes "kind of quiet and careful";
	mes "confidence will help you";
	mes "in the future, you'll see~";
	next;
	goto s_Question;
s_Rude:

	mes "[Daewoon]";
	mes "E...";
	mes "Excuse me?";
	next;
	mes "[Daewoon]";
	mes "How can you be";
	mes "so ridiculous at";
	mes "a time like this?";
	mes "Either mind your manners";
	mes "or don't take this test at";
	mes "all! ^000200*SLAP--!!*";
	next;
	goto s_Question;

s_GetOver:
	emotion e_dots;
	mes "[Daewoon]";
	mes "Hmm. That kind of half-hearted";
	mes "attitude won't get you very far on";
	mes "your adventures. Still, so long as";
	mes "you don't get overly negative, you";
	mes "should have a decent chance of";
	mes "surviving your challenges.";
	next;
s_Question:
	emotion e_hmm;
	set @DaewoonTest,0;
	mes "[Daewoon]";
	mes "Now, Metz expects me to ask";
	mes "some rather serious questions,";
	mes "but that really isn't my style.";
	mes "For this test, why don't we just";
	mes "talk? Just answer me honestly and";
	mes "light heartedly, alright?";
	next;
	mes "[Daewoon]";
	mes "So...";
	mes "Do you have a lot";
	mes "of friends that you can";
	mes "constantly party with?";
	next;
	menu "Yes, I do",-,"I prefer soloing.",s_Solo,"I am lonely.",s_Lonely;

	set @DaewoonTest,1;
	emotion e_omg;
	mes "[Daewoon]";
	mes "Oh, that's great~!";
	mes "To have many friends";
	mes "is a priceless blessing.";
	mes "Friends bring us joy and";
	mes "aid when we find ourselves";
	mes "suffering from difficulties.";
	next;
	mes "[Daewoon]";
	mes "Wouldn't you";
	mes "agree that being";
	mes "really close friends";
	mes "with someone can be";
	mes "a life long benefit?";
	next;
	goto s_Mobtrain;

s_Solo:

	mes "[Daewoon]";
	mes "Well, everybody";
	mes "needs to be alone once";
	mes "in a while. And there are";
	mes "some battles you must";
	mes "fight all on your own.";
	next;
	mes "[Daewoon]";
	mes "Also, if you never";
	mes "deal with other people,";
	mes "you may grow selfish or";
	mes "needy. It's better to go";
	mes "out and meet people,";
	mes "don't you think?";
	next;
	goto s_Mobtrain;

s_Lonely:

	mes "[Daewoon]";
	mes "You don't have any";
	mes "friends at all? Well,";
	mes "you better learn how";
	mes "to get along with others";
	mes "as soon as you can...!";
	next;
s_Mobtrain:
	mes "[Daewoon]";
	mes "Now, what's your opinion";
	mes "on purposely getting lots";
	mes "of monsters to follow you";
	mes "around. I believe this is";
	mes "called 'Mob Training...'";
	next;
	menu "Awesome~!",-,"I hate people who do that.",s_Hate,"I do it sometime...",s_Sometimes;
	
	emotion e_pif;
	mes "[Daewoon]";
	mes "But...";
	mes "Wouldn't that be really";
	mes "rude to anyone else hunting";
	mes "on that same map? I think";
	mes "it would even interfer with";
	mes "someone else's gameplay...";
	next;
	mes "[Daewoon]";
	mes "Perhaps you should try";
	mes "to consider other people's";
	mes "feelings. Mob training seems";
	mes "to only be good at getting other";
	mes "people angry with you...";
	next;
	goto s_Woe;
s_Hate:
	set @DaewoonTest,@DaewoonTest + 1;
	mes "[Daewoon]";
	mes "Really?";
	mes "I do too!";
	next;
	mes "[Daewoon]";
	mes "Just the other day, I've";
	mes "heard some ruffians boasting";
	mes "of their mob training activities.";
	mes "But personally, I feel they were";
	mes "compensating for their own";
	mes "shortcomings.";
	next;
	mes "[Daewoon]";
	mes "Such behaviour truly";
	mes "bothers me. Although I have";
	mes "spent years in developing an";
	mes "unflappable personality, I find";
	mes "myself irked when encountering";
	mes "such troublemakers.";
	next;
	emotion e_no1;
	mes "[Daewoon]";
	mes "When you face obstacles";
	mes "in your own training, never give in";
	mes "to weakness. Assert yourself and";
	mes "find the determination to overcome";
	mes "your tribulations with honor!";
	next;
	goto s_Woe;
s_Sometimes:
	mes "[Daewoon]";
	mes "At least you're honest.";
	mes "But let me say that I cannot";
	mes "condone that sort of weak willed";
	mes "behavior. True strength can only";
	mes "be found through honor.";
	mes "Remember that.";
	next;
	mes "[Daewoon]";
	mes "In the face of overwhelming";
	mes "odds, do not despair. After all,";
	mes "what is achievment if it is not";
	mes "earned without difficulty? The";
	mes "greater the challenge, the";
	mes "greater the glory.";
	next;
	mes "[Daewoon]";
	mes "Even if you are having a hard ";
	mes "time, try to take a firm";
	mes "stand. One day, you will realize";
	mes "how strong you have become.";
	next;
	mes "[Daewoon]";
	mes "And...";
	mes "Don't ever partake in";
	mes "mob training again, okay?";
	next;
s_Woe:
	mes "[Daewoon]";
	mes "Anyway, I'm sure you're";
	mes "aware of the War of Emperium";
	mes "in which might guilds all across";
	mes "Rune-Midgard battle for guild";
	mes "castle dominion. It's actually";
	mes "quite popular, really.";
	next;
	mes "[Daewoon]";
	mes "Now imagine that both of us";
	mes "are in the midst of a heated guild";
	mes "war. The sounds of explosions and";
	mes "earth shaking magic spells are all";
	mes "we can hear. At any time, we can";
	mes "be lost in that mindless chaos.";
	next;
	mes "[Daewoon]";
	mes "Finally, through incredibly";
	mes "good fortune, we manage to";
	mes "infiltrate the enemy guild castle";
	mes "and reach their Emperium. If we";
	mes "destroy that Emperium, that castle";
	mes "will belong to our guild.";
	next;
	mes "[Daewoon]";
	mes "However...! This is";
	mes "no ordinary Emperium!";
	mes "It is a masterful sculpture";
	mes "of a gorgeous Priestess!";
	mes "Answer me, adventurer!";
	mes "Would you still destroy it?!";
	next;
	menu "Destroy it!",-,"I can't destroy such beauty...",s_Beauty,"I'd close my eyes, then destroy it.",s_Eyes;

	mes "[Daewoon]";
	mes "Hmm. You have a truly";
	mes "strong will. Then again,";
	mes "perhaps you lack a try";
	mes "appreciation for beauty.";
	mes "Even in Emperium form, how";
	mes "could you harm a Priestess?";
	next;
	goto s_Guild2;
s_Beauty:

	set @DaewoonTest,@DaewoonTest + 1;
	mes "[Daewoon]";
	mes "Ah yes! I felt you would answer";
	mes "that way! We must cherish and";
	mes "protect what is beautiful in this";
	mes "world. I would never be able to";
	mes "harm a Priestess, even in";
	mes "statue form...";
	next;
	goto s_Guild;
s_Eyes:

	mes "[Daewoon]";
	mes "Interesting...!";
	mes "Although you cherish";
	mes "the beauty of the Priestess,";
	mes "your loyalty to your guild";
	mes "proves stronger. A most";
	mes "admirable attitude!";
	next;
s_Guild2:
	mes "[Daewoon]";
	mes "But yes, if it was";
	mes "me, I would protect that";
	mes "Priestess-shaped Emperium";
	mes "until the end of the guild war.";
	mes "Mwah ah hah~!";
	next;
s_Guild:
	mes "[Daewoon]";
	mes "While we're on the topic";
	mes "of guilds, let me present";
	mes "another guild related scenario.";
	mes "Let's say that you joined a very";
	mes "popular guild with many allies,";
	mes "as well as formidable enemies.";
	next;
	mes "[Daewoon]";
	mes "Now, during one of your";
	mes "hunts, you happen to meet";
	mes "a member of one of your enemy";
	mes "guilds. The two of you are the";
	mes "only people on that map. Suddenly,";
	mes "he finds himself in mortal danger!";
	next;
	mes "[Daewoon]";
	mes "This enemy guild member";
	mes "begins to yell for help. Now,";
	mes "would you give your enemy";
	mes "the help that he needs?";
	next;
	menu "Yes of course!",-,"I'd pretend not to hear anything.",s_Hear,"I'd make fun of him, then run off.",s_Fun;

	set @DaewoonTest,@DaewoonTest + 1;
	mes "[Daewoon]";
	mes "Ah, you would help him!";
	mes "Good, good. I'm glad to see";
	mes "that you understand such";
	mes "pettiness should not get in the way";
	mes "of doing what is good and right.";
	next;
	goto s_Life;
s_Hear:
	set @DaewoonTest,@DaewoonTest + 1;
	mes "[Daewoon]";
	mes "True, you're not really";
	mes "obligated to help your";
	mes "enemy. Besides, you may";
	mes "hurt his feelings once he";
	mes "realizes that he's had to";
	mes "depend on his rival for help.";
	next;
	goto s_Life;
s_Fun:
	mes "[Daewoon]";
	mes "Even though he is";
	mes "your enemy, I still";
	mes "believe it's important";
	mes "that you treat him with";
	mes "respect. Where is your honor?";
	next;
s_Life:
	mes "[Daewoon]";
	mes "Well, there's one";
	mes "last thing I want to";
	mes "know about you. It's the";
	mes "most important question";
	mes "in the world once you";
	mes "think about it.";
	next;
	mes "[Daewoon]";
	mes "...";
	mes "......";
	mes "Do you enjoy life?";
	next;
	menu "Yes",-,"No",s_No;

	set @DaewoonTest,@DaewoonTest + 1;
	emotion e_heh;
	mes "[Daewoon]";
	mes "I'm glad.";
	mes "When you don't live";
	mes "with zeal, it's easy to";
	mes "forget your goals and your";
	mes "purpose for living. Don't have";
	mes "any? Then make some up.";
	next;
	mes "[Daewoon]";
	mes "I hope you always enjoy";
	mes "life as much as you can.";
	mes "As for me, I'm always happy";
	mes "with my wine, women and song~";
	mes "Mwah ah hah~!";
	next;
	goto s_Last;
	
s_No:
	mes "[Daewoon]";
	mes "I understand.";
	mes "People cannot be happy";
	mes "all the time. Sometimes";
	mes "it's easy to forget your";
	mes "goals and purpose in life.";
	next;
	mes "[Daewoon]";
	mes "But you know what? If you";
	mes "have just one dream, one goal";
	mes "to strive towards, things shall";
	mes "get better. If you think you don'";
	mes "have dreams, look back to your";
	mes "past. What you remember may";
	mes "surprise you.";
	next;
	mes "[Daewoon]";
	mes "It's important to look forward,";
	mes "but first you must find what is";
	mes "truly precious to you before you";
	mes "can define your happiness. That's";
	mes "why I think it's good to";
	mes "experience new things as wel";
	mes "as reflect.";
	next;
	emotion e_no1;
	mes "[Daewoon]";
	mes "Now, what's precious to me?";
	mes "Three things, actually...";
	mes "Wine. Women. And song!";
	mes "Though if I had to rank them,";
	mes "women would top that list.";
	mes "Mwah ah hah~!";
	next;
s_Last:
	if(@DaewoonTest == 5)
{
	mes "[Daewoon]";
	mes "You know, after talking with";
	mes "you for a while, I now feel fairly";
	mes "comfortable with leaving you this";
	mes "piece of the Sobbing Starlight.";
	mes "Somehow, I think you're strong";
	mes "enough to get all the pieces.";
	next;
	mes "[Daewoon]";
	mes "I hope you will pass the rest of";
	mes "the tests and acquire the power.";
	next;
	mes "[Daewoon]";
	mes "Oh yes! Your next test";
	mes "examiner is ^FF0000Sir Jore^000000, also";
	mes "known as the Ghost of Al de Baran.";
	mes "Although he's always sick, he has";
	mes "great passion for his research.";
	next;
	mes "[Daewoon]";
	mes "Alright, then.";
	mes "Good luck in";
	mes "Al de Baran~!";
	getitem 7177,1;
	set signquest,6;
	close;
}
	else
{
	mes "[Daewoon]";
	mes "It pains me to say this,";
	mes "but I do not think you're";
	mes "worthy of holding my fragment";
	mes "of the Sobbing Starlight. But";
	mes "I am willing to give you";
	mes "another chance~";
	close;
}

}

	else if(signquest == 6)
{
	mes "[Daewoon]";
	mes "Mwah ah hah!";
	mes "Feasting and merriment,";
	mes "wine, women and song!";
	mes "I could ask for nothing more!";
	next;
	mes "[Daewoon]";
	mes "The most scrumptious";
	mes "delicacies are all mine to";
	mes "taste! And I'm not just talking";
	mes "about the food. Mwah ah hah!";
	mes "I'm the king of the world!";
	next;
	mes "[Daewoon]";
	mes "Hm...?";
	mes "Weren't you on";
	mes "your way to find";
	mes "^FF0000Sir Jore^000000 in Al de Baran?";
	next;
	mes "[Daewoon]";
	mes "Oh, having trouble";
	mes "finding him, are you?";
	mes "Well, he's fairly shy, but";
	mes "I'm sure he's hiding some";
	mes "place in that town.";
	close;
}

}

aldebaran.gat,226,54,4	script	#aldesignwarp	45,2,2,{
OnTouch:
	set @aldesigncheck,0;
	warp "aldeba_in.gat",149,120;
	end;

}

aldeba_in.gat,149,123,4	script	#aldesignwarp2	45,2,2,{
OnTouch:
	set @aldesigncheck,0;
	warp "aldebaran.gat",223,56;
	end;

}

aldeba_in.gat,147,104,1	script	PotionActivator	139,3,0,{
OnTouch:
	if(@aldesigncheck == 0)
{
	donpcevent "Jore#SignAldeNpc::OnPotion";	
	set @aldesigncheck,1;
}
	end;
}
	
aldeba_in.gat,156,118,4	script	Piru Piru	700,{

	emotion e_sob;
	mes "[Piru Piru]";
	mes "Oh, I'm sooo tired~";
	mes "But we can't sleep yet.";
	mes "^000200*Sob*^000000 Master, can't we";
	mes "just call it a day already?";
	next;
	if(signquest != 7)
{
	menu "What do you do in here?",-;
}
	else
{
	menu "What do you do in here?",-,"About vanished Alchemists",s_Vanish,"What is the Stone of Sage?",s_SageStone;
}
	mes "[Piru Piru]";
	mes "My master, Sir Jore,";
	mes "is researching a way to";
	mes "create artificial life! Still,";
	mes "it's not easy and we haven't";
	mes "accomplished anything yet...";
	next;
	mes "[Piru Piru]";
	mes "It doesn't help that my";
	mes "master spends all of his";
	mes "time on research. He hasn't";
	mes "been taking care of himself";
	mes "and is losing a lot of weight.";
	mes "I'm really worried about him.";
	close;

s_Vanish:
	mes "[Piru Piru]";
	mes "Oh, the father and daughter";
	mes "who were both Alchemists, right?";
	mes "Did you know they vanished because";
	mes "they invented the monster potion";
	mes "summoning skill?";
	next;
	mes "[Piru Piru]";
	mes "Their discovery caused";
	mes "such great hysteria in the";
	mes "scientific community. In the";
	mes "end they had no choice but";
	mes "to live in seclusion deep";
	mes "in the ^FF0000forest to the south^000000.";
	next;
s_SageStone:
	mes "[Piru Piru]";
	mes "Hmm? Well, I wouldn't";
	mes "know anything about that.";
	mes "In fact, I'm always staying";
	mes "in this lab, so I never hear";
	mes "any rumors or news outside.";
	close;

}

aldeba_in.gat,155,101,2	script	Jore#SignAldeNpc	805,{

	if(gettime(3) == 17 || gettime(3) == 18 || gettime(3) == 19 || gettime(3) == 20 || gettime(3) == 21)
{
	if(signquest == 7)
{
	mes "[Sir Jore]";
	mes "I want you to find two";
	mes "Alchemists, a father and";
	mes "daughter, who have gone into";
	mes "seclusion deep in some forest";
	mes "so that I can learn more about";
	mes "the Stone of Sage.";
	next;
	mes "[Sir Jore]";
	mes "Of course, this will";
	mes "possibly further my";
	mes "research, but it's also";
	mes "how I'll judge whether or";
	mes "not you're qualified for my";
	mes "piece of the Sobbing Starlight.";
	close;
}
	if(signquest == 8)
{
	mes "[Sir Jore]";
	mes "Oh.. You're already back !";
	mes "Then, let me hear everything you learn";
	mes "about the Stone of Sage !";
	next;
	mes "[Sir Jore]";
	mes "...";
	next;
	mes "[Sir Jore]";
	mes "...";
	mes "....";
	next;
	mes "[Sir Jore]";
	mes "...";
	mes "....";
	mes ".....";
	next;
	mes "[Sir Jore]";
	mes "I see..";
	mes "I didn't think that mythic stone";
	mes "could be that dangerous..";
	mes "That's enough for me to know,";
	mes "You did your work perfectly.";
	next;
	mes "[Sir Jore]";
	mes "Just a last question";
	mes "before I give you what you want.";
	next;
	mes "[Sir Jore]";
	mes "What do you think the Stone of Sage is?";
	next;
	input @sign_jore$;

if(@sign_jore$ == "Red Gemstone") {

	mes "[Sir Jore]";
	mes "That's what I thought too,";
	mes "but after all maybe it doesn't have";
	mes "any power.";
	next;
	getitem 7177,1;
	set signquest,9;
	mes "[Sir Jore]";
	mes "Take that starry fragment.";
	mes "I'll inform my friend about you.";
	mes "Look for ^FF0000Jesqurienne^000000.";
	mes "She often spends her time";
	mes "in the bars of Geffen.";
	next;
	mes "[Sir Jore]";
	mes "I have to return to my researches..";
	next;
	mes "[Sir Jore]";
	mes "Acid.....";
	mes "............Basic..";
	mes "...";
	close;
}
else {
	mes "[Sir Jore]";
	mes "The shape you are describing me";
	mes "can't be the real shape of the";
	mes "Stone of Sage.";
	next;
	mes "[Sir Jore]";
	mes "It should look like";
	mes "an oftenly used stone..";
	mes "Come back when you will know";
	mes "more about his shape.";
	close;

}

}

	if (signquest == 9)
{
	mes "[Sir Jore]";
	mes "Can't you let me alone?";
	mes "Stop disturbing me and";
	mes "find ^FF0000Jesqurienne^000000 in Geffen.";
	close;
}

	if(SignJore == 1)
{

	if(countitem(1092) < 10 || countitem(511) < 10 || countitem(610) < 2)
{
	mes "[Sir Jore]";
	mes "Please bring m-me";
	mes "10 Empty Test Tube,";
	mes "10 Green Herb and";
	mes "2 Yggdrasil Leaf.";
	mes "so that I can make a";
	mes "new research sample.";
	close;
}
	else
{
	delitem 1092,10;
	delitem 511,10;
	delitem 610,2;
	set signquest,7;
	emotion e_thx;
	mes "[Sir Jore]";
	mes "Ah! Th-thank you for";
	mes "bringing what I need.";
	mes "Now I can continue my";
	mes "research. Oh, and see if";
	mes "you're worthy of obtaining";
	mes "the Sobbing Starlight";
	next;
	mes "[Sir Jore]";
	mes "Now, for your assignment.";
	mes "Have you ever heard about";
	mes "the ^FF0000Stone of Sage^000000? Rumors about";
	mes "it have been spreading around, but";
	mes "no one has confirmed the truth";
	mes "about it, " + strcharinfo(0) + ".";
	next;
	mes "[Sir Jore]";
	mes "Although I have no clue";
	mes "what the Stone of S-S-age";
	mes "may actually be, I have a gut";
	mes "feeling that I need it to bring";
	mes "my Biology research to the next";
	mes "step. This is how you'll help me.";
	next;
	mes "[Sir Jore]";
	mes "I need you to investigate";
	mes "this Stone of Sage by finding";
	mes "a father and daughter who were";
	mes "famous for being great Alchemists.";
	mes "They vanished deep into a forest,";
	mes "but I believe they know something.";
	close;
}

}
	mes "[" + strcharinfo(0) + "]";
	mes "Excuse me...";
	next;
	emotion e_omg;
	mes "^3355FF*Clink*";
	next;
	mes "[Sir Jore]";
	mes "...";
	mes "......";
	next;
	mes "[Sir Jore]";
	mes "...";
	mes "......";
	mes "...No!";
	mes "Look what you";
	mes "made me do!";
	next;
	emotion e_sob;
	mes "[Sir Jore]";
	mes "I've been fiddling";
	mes "with this sample for";
	mes "five hours. And now";
	mes "it's ruined ^000200*Sob*";
	if(signquest != 6)close;
	next;
	mes "[Sir Jore]";
	mes "^000200*Sob*^000000";
	mes "I came to this town";
	mes "so I could focus on";
	mes "my research without";
	mes "any interuptions. So";
	mes "why are you here?";
	next;
	menu "Daewoon sent me.",s_Daewoon,"Oops, sorry. Later~",-;

	mes "[Sir Jore]";
	mes "I spent five hours";
	mes "observing the changes";
	mes "in that research sample.";
	mes "All of that hard work lost!";
	mes "^000200*Wah~!*";
	close;

s_Daewoon:
	emotion e_swt;
	mes "[Sir Jore]";
	mes "O-oh!";
	mes "That's right.";
	mes "You're here to be";
	mes "tested for the piece";
	mes "of the Sobbing Starlight.";
	next;
	mes "[Sir Jore]";
	mes "So...";
	mes "Er. Then, what...";
	mes "W-what's your name?";
	next;
	menu strcharinfo(0) + ", thanks.",-;
	mes "[Sir Jore]";
	mes "N-nice to meet you.";
	mes "My name is Jore. Just";
	mes "a normal person who loves";
	mes "research. S-sorry if I seem";
	mes "a little nervous! I'm actually";
	mes "quite... shy around people.";
	next;
	mes "[Sir Jore]";
	mes "Oh no...!";
	mes "if you were able to";
	mes "find me, there will be";
	mes "others! When would I get";
	mes "the time to do my research?!";
	mes "N-no! I h-h-hate people!!";
	next;
	mes "[Sir Jore]";
	mes "Still, I did promise";
	mes "M-M-Metz and he is my";
	mes "friend. So I must accept";
	mes "some guests. Even if hundreds";
	mes "of them knock on my door...";
	next;
	mes "[Sir Jore]";
	mes "But first of all,";
	mes "I'm going to need";
	mes "a new research sample.";
	mes "I think it's only fair that";
	mes "you get it for me since you";
	mes "made me ruin the last one.";
	next;
	mes "[Sir Jore]";
	mes "N-now, d-don't worry.";
	mes "The items are actually";
	mes "quite easy to get. It's";
	mes "the five hours part that's";
	mes "hard. Now, let's see...";
	next;
	mes "[Sir Jore]";
	mes "Just bring";
	mes "10 Empty Test Tube,";
	mes "10 Green Herb and";
	mes "2 Yggdrasil Leaf.";
	next;
	mes "[Sir Jore]";
	mes "You see, l-lately I've";
	mes "been studying Biology.";
	mes "I think the secret to life";
	mes "can be found in the Leaf of";
	mes "Yggdrasil. They can be used";
	mes "to revive the dead, after all.";
	next;
	emotion e_swt;
	mes "[Sir Jore]";
	mes "Oh, and make sure to";
	mes "bring those things to me";
	mes "before I go to bed at";
	mes "precisely 10:00 PM " + $timezonestring$ + ".";
	mes "I do have a regular sleeping";
	mes "schedule, you know.";
	set SignJore,1;
	close;

}
	else
{
	mes "^3355FFYou find a tense man";
	mes "holding test tubes between";
	mes "his fingers, standing in a pile";
	mes "of books. He seems to be in";
	mes "agony for some reason.";
	next;
	menu "Speak to him.",s_Speak,"Ignore him.",-;

	mes "^3355FFYou decided to leave";
	mes "him alone and let him";
	mes "continue mumbling to";
	mes "himself and playing";
	mes "with his test tubes.";
	close;

s_Speak:
	mes "[" + strcharinfo(0) + "]";
	mes "Excuse me...";
	next;
	mes "[Sire Jore]";
	mes "...";
	mes "......";
	next;
	mes "^3355FFToo preoccupied with";
	mes "his thoughts, this strange";
	mes "man is unable to hear you.";
	next;
	menu "Try again.",s_Again,"Ignore him.",-;

	mes "^3355FFYou decided to leave";
	mes "him alone and let him";
	mes "continue mumbling to";
	mes "himself and playing";
	mes "with his test tubes.";
	close;

s_Again:
	mes "[" + strcharinfo(0) + "]";
	mes "EXCUSE ME!";
	next;
	mes "[Sire Jore]";
	mes "...!";
	mes "Oh, h-h-hello.";
	mes "Sorry, but I'm kind of";
	mes "busy right now. Yes, yes,";
	mes "would you come back at";
	mes "precisely 5:00 PM " + $timezonestring$ + "?";
	next;
	mes "[Sire Jore]";
	mes "Let's see...";
	mes "Now if I recalibrated";
	mes "the faust exhaust, then";
	mes "the bioneutron analyzer";
	mes "would need to be adjusted";
	mes "for cytoplasmic balance...";
	close;
}

OnPotion:
	if(rand(0,1) == 1)
{
	emotion e_ic;
	misceffect 305;
}
else
{
	emotion e_omg;
	misceffect 306;
}
	end;
}

prt_maze02.gat,57,152,1	script	Girl#11	91,{

	mes "^3355FFYou catch a glimpse";
	mes "of a girl headin directly";
	mes "into a deep forest. You decide";
	if(signquest != 7)goto s_No;
	mes "to follow her and see if you can";
	mes "learn more.";
	close2;
	warp "prt_maze02.gat",11,146;
	end;
s_No:
	mes "to not follow her since you're";
	mes "not interested where she's going.";
	close;
}

function	script	Sign_Alch_Summon	{

Loopback:
if($signmazemonster == 0)
{
	set $signmazemonster,5;
	monster "prt_maze02.gat",14,177,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
	monster "prt_maze02.gat",17,171,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
	monster "prt_maze02.gat",24,173,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
	monster "prt_maze02.gat",17,175,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDead";
	monster "prt_maze02.gat",17,168,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDead";
	return;
}
else
{
	killmonster "prt_maze02.gat","OnMonsterDead";
	set $signmazemonster,0;
	goto Loopback;
}
OnMonsterDead:
	set $signmazemonster,$signmazemonster - 1;
	end;

}

prt_maze02.gat,16,183,3	script	Pleur	91,{

	if(signquest == 7 || signquest == 8)
{
	mes "[Pleur]";
	mes "La la la~";
	mes "La la la~";
	close;
}
else
{
	mes "[Pleur]";
	mes "Oh, you're lost?";
	mes "I'll help you find";
	mes "your way back...";
	close2;
	warp "prt_maze02.gat",61,149;
	end;
}
OnHo:
	emotion e_ho;
	end;
OnKis2:
	emotion e_kis2;
	end;
OnExclamation:
	emotion e_gasp;
	end;
OnOmg:
	emotion e_omg;
	end;
}

prt_maze02.gat,14,183,3	script	Gordon	51,{

	if(signquest == 7 || signquest == 8)
{
	if(ScareAlchSign == 1)goto s_Scared;
	mes "[Gordon]";
	mes "Hello darling.";
	mes "What did you do today?";
	next;
	donpcevent "Pleur::OnHo";
	mes "[Pleur]";
	mes "I played Hide-and-Seek";
	mes "with a white bear and a";
	mes "blue bear, father.";
	next;
	emotion e_ho;
	mes "[Gordon]";
	mes "Darling...";
	mes "Aren't you tired";
	mes "of playing with the";
	mes "animals? We've live";
	mes "in this forest for so long...";
	next;
	donpcevent "Pleur::OnKis2";
	mes "[Pleur]";
	mes "Don't worry father, I understand.";
	mes "For now, this is the only place";
	mes "where we can relax and live";
	mes "in peace. I think we deserve to rest";
	mes "after accomplishing our goals...";
	next;
	emotion e_sob;
	mes "[Gordon]";
	mes "Thank you, Pluer.";
	mes "I have no regrets about";
	mes "our work, but sometimes";
	mes "I do wish for a more";
	mes "carefree life for you...";
	next;
	menu "Roar~!",-,"Excuse me.",s_Excuse;

	callfunc "Sign_Alch_Summon";
	emotion e_omg;
	donpcevent "Pleur::OnOmg";
	set ScareAlchSign,1;
	mes "[Pleur]";
	mes "No no no!";
	mes "Summon Flora!";
	next;
	mes "[Gordon]";
	mes "Great Schott!";
	mes "Summon... Marine Sphere!";
	close;
	
s_Excuse:
	emotion e_gasp;
	donpcevent "Pleur::OnExclamation";
	mes "[Gordon]";
	mes "Eh?! Don't you know";
	mes "how dangerous this place";
	mes "is? What are you doing";
	mes "here in the middle of";
	mes "this forest?";
	next;
s_Back:
	mes "[" + strcharinfo(0) + "]";
	mes "Actually, I think";
	mes "I've been looking for";
	mes "you. I've been sent on";
	mes "an errand to find these";
	mes "two famous Alchemists.";
	next;
	mes "[Gordon]";
	mes "Mm...?";
	mes "Well, we're retired";
	mes "now, but I suppose it'd";
	mes "do no harm if you had";
	mes "something to ask us...";
	next;
	menu "Ask about Stone of Sage",s_Sage,"Ask about Alchemy",s_Alch,"Quit",-;

	mes "[Gordon]";
	mes "Hah hah hah~";
	mes "Did you forget";
	mes "what you were";
	mes "going to ask me?";
	close;

s_Sage:

	mes "[Gordon]";
	mes "Stone of Sage?";
	mes "Huh. To be honest,";
	mes "I don't know anything";
	mes "about it at all. I guess";
	mes "its existence is pretty";
	mes "much just a rumor, really.";
	next;
	mes "[Gordon]";
	mes "All I've heard is that";
	mes "the Stone of Sage might";
	mes "be a catalyst  to transmute";
	mes "materials into gold. If it";
	mes "really existed, it would be";
	mes "the ultimate alchemic item.";
	next;
	mes "[Pleur]";
	mes "However I've also heard";
	mes "it's red, can make humans";
	mes "immortal and can cure any";
	mes "sort of disease or ailment";
	mes "Just where do these rumors";
	mes "come from? It's crazy...";
	next;
	mes "[Gordon]";
	mes "Now, I even heard that some";
	mes "people are working on trying";
	mes "to create the stone themselves.";
	mes "If they succeed, it'll have a huge";
	mes "effect on the entire world!";
	next;
	mes "[Gordon]";
	mes "I'm sorry that you've gone";
	mes "through the trouble of finding";
	mes "us for this kind of information.";
	mes "We're retired after all, so we";
	mes "may be out of the loop.";
	next;
	mes "[Pleur]";
	mes "Although we're retired, we";
	mes "would be much interested in";
	mes "knowing if someone does manage";
	mes "to create such a stone. If that";
	mes "happens, would you tell us?";
	next;
	mes "[Gordon]";
	mes "Now let me guide you";
	mes "on a safe path back out";
	mes "of this maze. I've lived here";
	mes "quite a while, so I can find";
	mes "the exit with my eyes close.";
	mes "Farewell, adventurer~";
	close2;
	set signquest,8;
	warp "mjolnir_12",44,23;
	end;
s_Alch:

	mes "[Pleur]";
	mes "I hope you understand that";
	mes "my father and I devoted and";
	mes "sacrificed so much for our work.";
	mes "Finally, we discovered a way to";
	mes "summon monsters using potions.";
	next;
	mes "[Pleur]";
	mes "However, too many Alchemists";
	mes "hounded us for our information";
	mes "once we announced the results";
	mes "of our research. Ir was more";
	mes "than we could handle...";
	next;
	mes "[Gordon]";
	mes "I'm sorry, but if you have any";
	mes "questions about Alchemy, there";
	mes "are many qualified researchers and";
	mes "practitioners out there. We came to";
	mes "this forest to find peace...";
	close;
	
s_Scared:
	mes "[Gordon]";
	mes "Oh...!";
	mes "You scared us!";
	mes "Roaring like some";
	mes "animal! What do you";
	mes "think you were doing?";
	next;
	goto s_Back;

}
	else
{
	mes "[Gordon]";
	mes "Can't find your way back?";
	mes "Don't worry... I'll help";
	mes "you.";
	close2;
	warp "prt_maze02.gat",61,149;
	end;
}

}

geffen_in.gat,59,74,3	script	Jesqurienne	803,{

	if(signquest == 10) goto L_won;
	if(signquest == 9) goto L_Sign_Jesq;
	mes "[Jesqurienne]";
	mes "Bartender~?";
	mes "Give me another drink.";
	close;

L_Sign_Jesq:
	mes "[Jesqurienne]";
	mes "Bartender~?";
	mes "Give me another drink.";
	next;
	mes "[Jesqurienne]";
	mes "Ahhhhhh~";
	mes "Hm? Why hello there,";
	if(!Sex) goto L_female;
	mes "You fine specimen of a man~";

L_female:
	mes "I'm Jesqurienne. You've heard";
	mes "of me, haven't you? Aren't you";
	mes "surprised to see me?";
	next;
	menu "I've never heard of you",-,"Oh gosh, it's Jesqurienne!",L_ohgosh;
	mes "[Jesqurienne]";
	mes "Ho ho ho~!";
	mes "Surely you";
	mes "must be joking~";
	emotion 4;
	next;
	menu "You got me, you got me.",L_ohgosh,"Nope, doesn't ring a bell",-;

	emotion 9;
	mes "[Jesqurienne]";
	mes "...";
	mes "......";
	mes "Now I undersand.";
	mes "You've been living";
	mes "under a rock for all";
	mes "this time, haven't you?";
	next;
	mes "[Jesqurienne]";
	mes "But I guess someone";
	mes "as simple minded as you";
	mes "wouldn't recognize a famous,";
	mes "brilliant genius once you";
	mes "saw her, wouldn't you?";

L_ohgosh:
	next;
	mes "[Jesqurienne]";
	mes "Anyway, I'm so proud";
	mes "of my supreme intelligence!";
	mes "I may be somewhat obsessive";
	mes "about studying, but that's just";
	mes "another reason to admire me~";
	next;
	mes "[Jesqurienne]";
	mes "The Wizard and Sage";
	mes "exams? No problem~";
	mes "Even the Alchemist test";
	mes "was fairly simple. So far";
	mes "I haven't met anyone";
	mes "smarter than me~";
	next;
	menu "Stuck-up chick.",L_stuckup,"Take it easy on the drinks...",-;

	mes "[Jesqurienne]";
	mes "Ho ho ho~";
	mes "Plenty of people have";
	mes "told me not to drink so";
	mes "much. But once I start";
	mes "I can't stop. I love to";
	mes "drink that much!";
	next;
	mes "[Jesqurienne]";
	mes "And...";
	mes "Sometimes I'd rather";
	mes "look at the world through";
	mes "these haze eyes. See things";
	mes "the way I want to see them...";
	close;

L_stuckup:
	mes "[Jesqurienne]";
	mes "What...?";
	mes "What did you say?";
	mes "No one has ever";
	mes "said anything like";
	mes "that to me before!";
	mes "H-how dare you...";
	next;
	mes "[Jesqurienne]";
	mes "Prove that you can";
	mes "hold a candle to my";
	mes "superior intellect and";
	mes "I'll be willing to accept";
	mes "your insult! It's time";
	mes "for a Quiz Challenge!";
	emotion 7;
	next;
	mes "["+strcharinfo(0)+"]";
	mes "Quiz... Challenge?";
	mes "Like a trivia game?";
	mes "But who's going to";
	mes "ask us the questions?";
	next;
	mes "[Aaron]";
	mes "Did someone say";
	mes "\"Quiz Challenge?\"";
	mes "I believe I can be";
	mes "of assistance.";
	emotion 0;
	donpcevent "Aaron2::OnHeh";
	emotion 0,1;
	next;
	mes "[Jesqurienne]";
	mes "Professor Aaron?";
	mes "Ho ho~ If he's asking";
	mes "the questions, it looks";
	mes "like your chances of";
	mes "beating me are zero!";
	emotion 29;
	next;
	mes "[Jesqurienne]";
	mes "It amuses me that";
	mes "you think that you'd";
	mes "stand a chance against";
	mes "me in a Quiz Challenge.";
	mes "Ho ho ho ho ho~!";
	next;
	mes "[Jesqurienne]";
	mes "Professor Aaron";
	mes "is waiting for you";
	mes "to ask him to begin.";
	mes "And I'm waiting for the";
	mes "moment when you realize";
	mes "you have no hope of winning!";
	set @signquiz,1;
	close;

L_won:
	mes "[Jesqurienne]";
	mes "Ooooh...";
	mes "My head...";
	mes "Oh...! It's you...!";
	mes "So did you find Dearles?";
	next;
	mes "[Jesqurienne]";
	mes "Hmm...";
	mes "He's addicted to";
	mes "gambling, so maybe you";
	mes "can find him some place";
	mes "where you can do that...";
	close;

}

// ---------------------------------------------------------


geffen_in.gat,60,70,6	script	Aaron::Aaron2	754,{

	if(signquest == 10) goto L_done;
	if(@signquiz == 1) goto L_startquiz;
	if(@signquiz == 2) goto L_quiztime;
	emotion 23;
	mes "[Aaron]";
	mes "Goodness...!";
	mes "Either these beer";
	mes "goggles are on too tight,";
	mes "or you're the most gorgeous";
	mes "woman I've ever seen in my life!";
	next;
	if(!Sex) goto L_female;
	menu "Um, I'm a dude...",-;
	mes "[Aaron]";
	mes "N-no...!";
	mes "M-maybe I should";
	mes "take it easy on the";
	mes "alcohol. I do have classes";
	mes "to teach tomorrow anyway...";
	emotion 28;
	close;

L_female:
	menu "Why, thank you~",-;
	mes "[Aaron]";
	mes "Ah, yes. Your";
	mes "sense of style, your";
	mes "magnificent body. Everything";
	mes "about you is beautiful! Not just";
	mes "that, but you're also intelligent!";
	next;
	mes "[Aaron]";
	mes "I should know!";
	mes "Not only do I teach";
	mes "classes, but I'm also";
	mes "a Quiz Challenge moderator";
	mes "master in my spare time~";
	mes "You're truly a jewel...";
	emotion e_lv;
	close;

L_startquiz:
	mes "[Aaron]";
	mes "Alright, before";
	mes "we begin, let me";
	mes "tell you the rules...";
	next;
	mes "[Aaron]";
	mes "I'm going to give you";
	mes "ten multiple choice questions.";
	mes "Since this is an impromptu";
	mes "exhibition bout, I'm going to";
	mes "use questions that I use";
	mes "in teaching my class.";
	emotion 19;
	next;
	mes "[Aaron]";
	mes "Alright...";
	mes "I'm almost finished";
	mes "compiling the questions.";
	mes "We're ready to go when";
	mes "you're ready to begin!";
	set @signquiz,2;
	close;

L_quiztime:
	set @signquestions0$,"Choose the monster that is a different size than the others.";
	set @signquestions1$,"What is the Bunny Band's DEF and its added ability?";
	set @signquestions2$,"Choose the correct name of the rule of the Rune-Midgarts Kingdom.";
	set @signquestions3$,"Choose the monster which does not drop the 'Yggdrasil Leaf' item.";
	set @signquestions4$,"What is the city closest to Turtle Island?";
	set @signquestions5$,"Fifty-one multiplied by fifteen, divided by three, plus five is equal to...?";
	set @signquestions6$,"Choose the Hunter's Trap skill which does not inflict Property Damage.";
	set @signquestions7$,"Choose the monster on which the mage skill,\"Stone Curse\", is ineffective.";
	set @signquestions8$,"Choose the item that cannot be equipped by Novice class characters.";
	set @signquestions9$,"Which NPC is not relevant to the Blacksmith Job Quest?";
	set @signquestions10$,"Choose the Property that is unrelated to the Mage's Bolt type skills.";
	set @signquestions11$,"Choose the correct DEF for the Indian Filet item.";
	set @signquestions12$,"Which item is not relevant to the creation of a counteragent?";
	set @signquestions13$,"Choose the level requirement for entering the PvP room.";
	set @signquestions14$,"Three thousand one hundred two added to five hundred, plus four, divided by 6 equals...";
	set @signquestions15$,"Choose the building that is the closest to the Item Upgrade Place in Yuno.";
	set @signquestions16$,"What is the correct weight for 1 Empty Bottle?";
	set @signquestions17$,"Choose the NPC that looks different than all others.";
	set @signquestions18$,"Choose the material that is not related to the creation of a Condensed White Potion.";
	set @signquestions19$,"Choose the monster that is a different type than the others.";
	set @signquestions20$,"Choose the Job class that cannot equip Silk Robe.";
	set @signquestions21$,"Four thousand five hundred sixty divided by four, divided by two, plus three is equal too...";
	set @signquestions22$,"Which monster would recieve the most damage from a Fire Property Dagger?";
	set @signquestions23$,"Choose the skill related to the Priest's B.S. Sacramenti from the ones displayed in the list.";

	set @playerpoints,0;
	set @jesqpoints,0;

	for( set @i,1; @i <= 10; set @i,@i + 1 )
	{
		loopback:
		set @question,rand(23);
		set @janswer,rand(3);

		if(@question == 0) if(!@questiondone0){ mes @i + ". " + @signquestions0$; } else goto loopback;
		if(@question == 1) if(!@questiondone1){ mes @i + ". " + @signquestions1$; } else goto loopback;
		if(@question == 2) if(!@questiondone2){ mes @i + ". " + @signquestions2$; } else goto loopback;
		if(@question == 3) if(!@questiondone3){ mes @i + ". " + @signquestions3$; } else goto loopback;
		if(@question == 4) if(!@questiondone4){ mes @i + ". " + @signquestions4$; } else goto loopback;
		if(@question == 5) if(!@questiondone5){ mes @i + ". " + @signquestions5$; } else goto loopback;
		if(@question == 6) if(!@questiondone6){ mes @i + ". " + @signquestions6$; } else goto loopback;
		if(@question == 7) if(!@questiondone7){ mes @i + ". " + @signquestions7$; } else goto loopback;
		if(@question == 8) if(!@questiondone8){ mes @i + ". " + @signquestions8$; } else goto loopback;
		if(@question == 9) if(!@questiondone9){ mes @i + ". " + @signquestions9$; } else goto loopback;
		if(@question == 10) if(!@questiondone10){ mes @i + ". " + @signquestions10$; } else goto loopback;
		if(@question == 11) if(!@questiondone11){ mes @i + ". " + @signquestions11$; } else goto loopback;
		if(@question == 12) if(!@questiondone12){ mes @i + ". " + @signquestions12$; } else goto loopback;
		if(@question == 13) if(!@questiondone13){ mes @i + ". " + @signquestions13$; } else goto loopback;
		if(@question == 14) if(!@questiondone14){ mes @i + ". " + @signquestions14$; } else goto loopback;
		if(@question == 15) if(!@questiondone15){ mes @i + ". " + @signquestions15$; } else goto loopback;
		if(@question == 16) if(!@questiondone16){ mes @i + ". " + @signquestions16$; } else goto loopback;
		if(@question == 17) if(!@questiondone17){ mes @i + ". " + @signquestions17$; } else goto loopback;
		if(@question == 18) if(!@questiondone18){ mes @i + ". " + @signquestions18$; } else goto loopback;
		if(@question == 19) if(!@questiondone19){ mes @i + ". " + @signquestions19$; } else goto loopback;
		if(@question == 20) if(!@questiondone20){ mes @i + ". " + @signquestions20$; } else goto loopback;
		if(@question == 21) if(!@questiondone21){ mes @i + ". " + @signquestions21$; } else goto loopback;
		if(@question == 22) if(!@questiondone22){ mes @i + ". " + @signquestions22$; } else goto loopback;
		if(@question == 23) if(!@questiondone23){ mes @i + ". " + @signquestions23$; } else goto loopback;
		next;

		switch ( @question )
		{

			case 0:
				menu "Giant Whisper",-,"Marin",a_correct,"Cornutus",-,"Kobold Archer",-;
					set @questiondone0,1;
					break;
				a_correct:
					set @questiondone0,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 1:
				menu "1 / LUK + 2",-,"1 / LUK + 5",-,"2 / LUK + 2",b_correct," 2 / LUK + 5",-;
					set @questiondone1,1;
					break;
				b_correct:
					set @questiondone1,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 2:
				menu "Tristan III",-,"Tristram III",c_correct,"Tristar III",-,"Trust III",-;
					set @questiondone2,1;
					break;
				c_correct:
					set @questiondone2,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 3:
				menu "Marduk",d_correct,"Baphomet Jr.",-,"Angeling",-,"Wanderer",-;
					set @questiondone3,1;
					break;
				d_correct:
					set @questiondone3,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 4:
				menu "Al De Baran",-,"Alberta",e_correct,"Comodo",-,"Izlude",-;
					set @questiondone4,1;
					break;
				e_correct:
					set @questiondone4,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 5:
				menu "250",-,"255",-,"260",f_correct,"265",-;
					set @questiondone5,1;
					break;
				f_correct:
					set @questiondone5,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 6:
				menu "Claymore Trap",-,"Freezing Trap",-,"Shockwave Trap",g_correct,"Land Mine",-;
					set @questiondone6,1;
					break;
				g_correct:
					set @questiondone6,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 7:
				menu "Elder Willow",-,"Evil Druid",h_correct,"Magnolia",-,"Marc",-;
					set @questiondone7,1;
					break;
				h_correct:
					set @questiondone7,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 8:
				menu "Funeral Hat",-,"Shackles",-,"Wooden Mail",i_correct,"Pantie",-;
					set @questiondone8,1;
					break;
				i_correct:
					set @questiondone8,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 9:
				menu "Baisulitst",-,"Wickebine",-,"Barcardi",j_correct,"Gromgast",-;
					set @questiondone9,1;
					break;
				j_correct:
					set @questiondone9,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 10:
				menu "Water",-,"Earth",k_correct,"Fire",-,"Wind",-;
					set @questiondone10,1;
					break;
				k_correct:
					set @questiondone10,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 11:
				menu "0",-,"1",-,"2",-,"3",l_correct;
					set @questiondone11,1;
					break;
				l_correct:
					set @questiondone11,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 12:
				menu "Karvodailnirol",m_correct,"Detrimindexta",-,"Alcohol",-;
					set @questiondone12,1;
					break;
				m_correct:
					set @questiondone12,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 13:
				menu "30",-,"31",n_correct,"32",-,"33",-;
					set @questiondone13,1;
					break;
				n_correct:
					set @questiondone13,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 14:
				menu "600",-,"601",o_correct,"602",-;
					set @questiondone14,1;
					break;
				o_correct:
					set @questiondone14,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 15:
				menu "Tavern",-,"Monster Library",-,"Tool Shop",-,"Weapon Shop",p_correct;
					set @questiondone15,1;
					break;
				p_correct:
					set @questiondone15,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 16:
				menu "1",q_correct,"2",-,"3",-;
					set @questiondone16,1;
					break;
				q_correct:
					set @questiondone16,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 17:
				menu "Prontera Hollengrhen",-,"Prontera Doll Merchant",-,"Izlude Meat Merchant",r_correct,"Morroc Tool Dealer",-;
					set @questiondone17,1;
					break;
				r_correct:
					set @questiondone17,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 18:
				menu "Medicine Bowl",s_correct,"Witch Starsand",-,"Empty Bottle",-,"Empty Potion Bottle",-;
					set @questiondone18,1;
					break;
				s_correct:
					set @questiondone18,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 19:
				menu "Penomena",t_correct,"Hatii",-,"Pest",-,"Explosion",-;
					set @questiondone19,1;
					break;
				t_correct:
					set @questiondone19,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 20:
				menu "Swordman",-,"Merchant",-,"Hunter",u_correct,"Mage",-;
					set @questiondone20,1;
					break;
				u_correct:
					set @questiondone20,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 21:
				menu "573",v_correct,"574",-,"575",-,"576",-;
					set @questiondone21,1;
					break;
				v_correct:
					set @questiondone21,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 22:
				menu "Dagger Goblin",-,"Mace Goblin",-,"Morningstar Goblin",-,"Hammer Goblin",x_correct;
					set @questiondone22,1;
					break;
				x_correct:
					set @questiondone22,1;
					set @playerpoints, @playerpoints + 1;
					break;


			case 23:
				menu "Lex Divina",-,"Gloria",y_correct,"Recovery",-,"Sanctuary",-;
					set @questiondone23,1;
					break;
				y_correct:
					set @questiondone23,1;
					set @playerpoints, @playerpoints + 1;
					break;

		} //Switch END

	if(@i == 1)
	{
		mes "[Jesqurienne]";
		mes "Heh heh...";
		mes "The first question";
		mes "is always too easy.";
		set @jesqpoints, @jesqpoints + 1;
		next;
	}

	if(@i == 2)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "Ho ho ho ho~!";
			mes "I know the answer.";
			mes "Any fool should know";
			mes "this. But do you?";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho; // <--------------------------------------------------------
			next;
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "z...z...Z";
			mes "W-what? Oh!";
			mes "Well, I don't need";
			mes "that point anyway...";
			next;
			emotion e_wah; // <--------------------------------------------------------
		}
	}

	if(@i == 3)
	{
		if(@janswer > 0)
		{
			set @jesqpoints, @jesqpoints + 1;
			goto checkpoint1;
			emotion e_ho; // <--------------------------------------------------------
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "z...z...Z";
			mes "W-what? Oh!";
			mes "Well, I don't need";
			mes "that point anyway...";
			next;
			goto checkpoint1;
			emotion e_wah; // <--------------------------------------------------------
		}

		checkpoint1:
			mes "[Jesqurienne]";
			mes "Let's check our";
			mes "scores, shall we?";
			mes ".................";
			next;
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "Heh heh...";
				mes "It looks like";
				mes "I'm beating you!";
				mes "But you shouldn't";
				mes "be suprised...";
				next;
			}
			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "W-wait a minute!";
				mes "H-how could you";
				mes "have more points";
				mes "than me?! I better";
				mes "get serious!";
				next;
			}
			mes "[Aaron]";
			mes "*Ahem!*";
			mes "Question";
			mes "number four!";
			next;
	}

	if(@i == 4)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "That counts as";
			mes "a question? You're";
			mes "being too easy!";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
			goto checkpoint2;
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "I know the";
			mes "answer! W-why";
			mes "can't I think of";
			mes "it right now?!";
			emotion e_wah;
			next;
			goto checkpoint2;
		}

		checkpoint2:
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "Heh heh~ It looks";
				mes "like I have the lead.";
				mes "But that's only natural for";
				mes "someone as brilliant as me~";
				next;
			}

			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "I...";
				mes "I must be more";
				mes "drunk than I thought";
				mes "if I'm losing right now...";
				next;
			}
	}

	if(@i == 5)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "I didn't have";
			mes "to think very hard";
			mes "to know the answer.";
			mes "Are you still thinking?";
			mes "I wouldn't think you'd know!";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
			goto checkpoint3;
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "I...";
			mes "Hold on,";
			mes "I know this one...";
			mes "(Oh craaaaaap!)";
			emotion e_wah;
			next;
			goto checkpoint3;
		}
		
		checkpoint3:
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "Oh? What a suprise.";
				mes "I'm in the lead. I know";
				mes "the suspense must be";
				mes "killing you, but I'm pretty";
				mes "sure who the winner will";
				mes "be. Me me me meee~";
				next;
			}

			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "I don't understand.";
				mes "You have a higher sco--";
				mes "I don't-- How can yo--";
				mes "Why is this happening?";
				next;
			}
	}

	if(@i == 6)
	{
		if(@janswer > 0)
		{
			mes "[Jasqurienne]";
			mes "*Sigh...*";
			mes "Simple questions,";
			mes "simple answers.";
			mes "Did you get it?";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
			goto checkpoint4;
		}

		if(@janswer == 0)
		{
			emotion e_wah;
			goto checkpoint4;
		}

		checkpoint4:
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "Oh, look at that.";
				mes "I have more points";
				mes "than you. I know, it";
				mes "must be frustrating";
				mes "trying to keep up.";
				next;
			}

			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "W-wait a minute!";
				mes "H-how could you";
				mes "have more points";
				mes "than me?! I better";
				mes "get serious!";
				next;
			}
	}

	if(@i == 7)
	{
		if(@janswer > 0)
		{
			set @jesqpoints, @jesqpoints + 1;
			goto checkpoint5;
		}

		if(@janswer == 0)
		{
			goto checkpoint5;
		}

		checkpoint5:
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "Ah. Did I tell you";
				mes "I was in the lead";
				mes "right now? Well, let";
				mes "me remind you, in case";
				mes "I forgot. Ho ho ho ho~!";
				next;
			}

			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "There's no other";
				mes "explanation! You've";
				mes "got to be using some";
				mes "sort of crib sheet! But";
				mes "where are you hiding it?";
				next;
			}
	}

	if(@i == 8)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "Hah hah~!";
			mes "That was a";
			mes "piece of cake!";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
			goto checkpoint6;
		}

		if(@janswer == 0)
		{
			goto checkpoint6;
		}

		checkpoint6:
			if(@playerpoints < @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "I know, you're wondering";
				mes "how such an intelligent";
				mes "person can exist. Well";
				mes "I guess my intellect sort";
				mes "of balances the stupidity";
				mes "of the rest of the world...";
				next;
			}

			if(@playerpoints >= @jesqpoints)
			{
				mes "[Jesqurienne]";
				mes "I... I don't";
				mes "get it. H-how are";
				mes "you w-winning? M-my";
				mes "whole perception of";
				mes "reality is starting t-to...";
				next;
			}

	}

	if(@i == 9)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "Ahhh...";
			mes "I'm just breezing";
			mes "through this Quiz Challenge!";
			mes "Aren't you having a hard time?";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
			goto checkpoint7;
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "Huh...?";
			mes "I don't understand";
			mes "why I don't know this...";
			emotion e_wah;
			next;
			goto checkpoint7;
		}

	checkpoint7:
		mes "[Jesqurienne]";
		mes "Bwahahaha!";
		mes "Only one question";
		mes "left! You have to get";
		mes "this one right or I'll";
		mes "call you stupid forever!";
		next;
	}

	if(@i == 10)
	{
		if(@janswer > 0)
		{
			mes "[Jesqurienne]";
			mes "As usual, I got";
			mes "the last question";
			mes "absolutely right~";
			set @jesqpoints, @jesqpoints + 1;
			emotion e_ho;
			next;
		}

		if(@janswer == 0)
		{
			mes "[Jesqurienne]";
			mes "Huh...";
			mes "Wh-what was";
			mes "the question again?";
			mes "Nooo, I missed it!";
			next;
		}
	}

	} // For-Loop END

	mes "[Aaron]";
	mes "Okay, the quiz";
	mes "is over! Now, I'll";
	mes "reveal the results";
	mes "of the competitors...";
	next;
	mes "[Aaron]";
	mes "Umm...";
	mes ""+strcharinfo(0)+":";
	mes @playerpoints + " points!";
	next;
	mes "[Aaron]";
	mes "Jesqurienne...";
	mes @jesqpoints + " points!";
	next;
	if(@playerpoints < @jesqpoints)
	{
		mes "[Jesqurienne]";
		mes "Bwahahaha!";
		mes "I win! I knew it!";
		mes "Ho ho ho ho ho ho~";
		set @takenquiz,1;
		next;
	}
	if(@playerpoints >= @jesqpoints)
	{
		mes "[Jesqurienne]";
		mes "No...!";
		mes "I can't...";
		mes "Believe this...";
		set @takenquiz,2;
		next;
	}
	mes "[Aaron]";
	mes "Thank you";
	mes "for playing!";
	mes ".......................";
	mes "............................";
	mes "Alright, back to drinking!";
	next;
	if(@takenquiz == 2)
{
	mes "[Jesqurienne]";
	mes "I lost...";
	mes "M-maybe you were right.";
	mes "I am arrogant after all...";
	mes "I should stop drinking so";
	mes "much. Travel around and";
	mes "broaden my knowledge...";
	next;
	mes "[Jesqurienne]";
	mes "You're the only";
	mes "one who has been";
	mes "able to beat me in";
	mes "a battle of minds.";
	mes "W-who are you...?";
	next;
	input @quizname$;
	mes "[Jesqurienne]";
	mes ""+@quizname$+"...";
	mes "I'll remember that.";
	next;
	mes "[Jesqurienne]";
	mes "Here...";
	mes "My old friend, Metz, told";
	mes "me to give this to someone";
	mes "who is worthy. I was going";
	mes "to keep it, but I suppose";
	mes "you're its true owner...";
	getitem 7177,1;
	set signquest,10;
	next;
	mes "[Jesqurienne]";
	mes "If you want to know more about the";
	mes "Sobbing Starlight, find a man named";
	mes "^0000FFDearles^000000. It may be hard to find him";
	mes "since he wanders from place to";
	mes "place, but it might help to know";
	mes "that he loves gambling...";
	next;
	mes "[Jesqurienne]";
	mes "Good luck finding";
	mes "Dearles. I'm taking";
	mes "this loss pretty badly,";
	mes "so I think I'll stay here";
	mes "and have another drink.";
	mes "Farewell, " + @quizname$ + ".";
	close;
}

	if(@takenquiz == 1)
{
	mes "[Jesqurienne]";
	mes "Bwahahahaha!";
	mes "You should have known";
	mes "from the beginning that you";
	mes "never had a chance! Of course,";
	mes "I did, but you know, I guess you";
	mes "had to learn for yourself.";
	next;
	mes "[Jesqurienne]";
	mes "I'd insult you if it weren't for";
	mes "the fact that you embarassed";
	mes "yourself enough during the Quiz";
	mes "Challenge. As a matter of fact,";
	mes "I'll even forgive you for wounding";
	mes "my pride earlier.";
	next;
	mes "[Jesqurienne]";
	mes "Can you believe it?";
	mes "Even drunk I can beat";
	mes "you in a test of intelligence!";
	mes "Bwahaha! I can't believe how";
	mes "simple minded you are...!";
	emotion e_gg;
	next;
	menu "I can't let you win!",L_challenge,"Darn it...",-;
	mes "[Jesqurienne]";
	mes "Just now you realize";
	mes "how pitiful your intellect";
	mes "is compared to mine? Ho ho ho!";
	mes "There's hope for every fool!";
	close;
}

L_challenge:
	mes "[Jesqurienne]";
	mes "You're a slow learner,";
	mes "aren't you? Well, I welcome";
	mes "your 'Challenge' anytime!";
	mes "Bwah hah hah hah hah~!";
	close;

L_done:
	mes "[Aaron]";
	mes "Thank you";
	mes "for playing!";
	mes ".......................";
	mes "............................";
	mes "Alright, back to drinking!";
	close;

OnHeh:
	emotion 18;

}

cmd_in02.gat,88,51,3	script	Strange Man	806,{

	if(signquest == 12) goto L_Ever;
	if(signquest == 11) goto L_Test;
	mes "[Dearles]";
	mes "No...! Damn it,";
	mes "not again! When's";
	mes "my lucky streak";
	mes "gonna start?";

	if(signquest == 10)

{
	next;
	if(@pay_dearles == 1) goto L_Pay;

	menu "Excuse me...",L_Excuse,"Just pass by.",-;
	mes "[Dearles]";
	mes "Crap...!";
	mes "I'm almost broke!";
	mes "But i gotta win";
	mes "all my cash back! How can";
	mes "I raise more money fast";
	mes "without actually working...";
	close;

L_Excuse:
	mes "[Dearles]";
	mes "What is it?!";
	mes "I'm not in the mood";
	mes "for chatting with complete";
	mes "and total strangers, so";
	mes "get to the point~!";
	next;
	menu "Oh nothing...",-,"I'm here for Metz...?",L_Metz;
	mes "[Dearles]";
	mes "Wha...? You bother";
	mes "me and make me lose this";
	mes "game for nothing? For that,";
	mes "I'll freakin' beat you to near";
	mes "freakin' death! Bam bam bam!";
	close2;
	set Hp,1;
	warp "comodo.gat",122,100;
	end;

L_Metz:
	mes "[Dearles]";
	mes "Oh. You're here for";
	mes "the Sobbing Starlight, huh? If you";
	mes "wanna take my test, there's *ahem*";
	mes "a fee of 30.000 zeny. So take it or";
	mes "leave it, capish?";
	next;
	mes "[Dearles]";
	mes "I'll have nothing";
	mes "to do with you if you";
	mes "can't pay up. Just think";
	mes "of the fee as a preliminary";
	mes "for my test. You know, to";
	mes "weed out the riffraff.";
	set @pay_dearles,1;
	close;

L_Pay:
	mes "[Dearles]";
	mes "Eh heh heh~";
	mes "Soooooo, did you";
	mes "bring the money?";
	next;
	menu "Here you are...",L_Fee,"Not yet...",-;
	mes "[Dearles]";
	mes "Huh?";
	mes "Alright but you";
	mes "better hurry. I can";
	mes "change my mind at";
	mes "any time, you know!";
	close;

L_Fee:
	if(Zeny < 30000) goto L_NotEnough;
	set Zeny, Zeny - 30000;
	mes "[Dearles]";
	mes "Ummm.......";
	mes "Heh heh~";
	mes "That's thirty grand,";
	mes "alright! Okay, come back";
	mes "to me at night and";
	mes "we'll start your test...";
	set signquest,11;
	close;
}

	else

{
	close;

}

L_NotEnough:
	mes "[Dearles]";
	mes "Don't fool me!";
	mes "You don't have";
	mes "enough money to";
	mes "pay the test fee.";
	mes "Come back with 30.000 zeny.";
	close;

L_Test:
	if(gettime(3) == 19 || gettime(3) == 20 || gettime(3) == 21 || gettime(3) == 22 || gettime(3) == 23) goto L_Time;
	mes "[Dearles]";
	mes "Don't you see";
	mes "I'm busy right now?";
	mes "Come back at night";
	mes "And we'll see for";
	mes "your test.";
	close;

L_Time:
	if(SignDance == 3) goto L_Win;
	if(SignDance == 2) goto L_Fail;
	if(dearles_test == 2) goto L_Check;
	if(dearles_test == 3) goto L_Dance;
	if(dearles_test == 1) goto L_Test2;
	mes "[Dearles]";
	mes "Nice, you're here";
	mes "just in time. Well,";
	mes "all that matters is that";
	mes "you come during the night.";
	next;
	mes "[Dearles]";
	mes "You're wondering how";
	mes "a guy like me is pals with";
	mes "Metz, but that's none of your";
	mes "business. I guess I gotta keep";
	mes "this promise to him, so when";
	mes "you're ready, say the word.";
	set dearles_test,1;
	close;

L_Test2:
	mes "[Dearles]";
	mes "Alright! I want you to";
	mes "bring me a bunch of items!";
	mes "Yeah, I know, you're a real";
	mes "pro at this, but let me set";
	mes "you straight before you blow";
	mes "this off as a piece of cake...";
	next;
	mes "[Dearles]";
	mes "I'm not gonna give you an";
	mes "exact list of items I want. Oh";
	mes "no, what you gotta do is bring";
	mes "me artsy crafts. This test is";
	mes "gonna judge your appreciation";
	mes "of... Craftsmanship~";
	next;
	mes "[Dearles]";
	mes "Since I'm seeing whether";
	mes "or not you got good taste,";
	mes "variety is the important thing";
	mes "here. So don't bring freakin'";
	mes "a hundred of the same object.";
	mes "Just one of each kind'll do.";
	next;
	mes "[Dearles]";
	mes "What are you";
	mes "standin' around";
	mes "waiting for? Bring";
	mes "those collection items!";
	set dearles_test,2;
	close;

L_Check:
	mes "[Dearles]";
	mes "Ah! So this is";
	mes "the stuff you brought?";
	mes "Let me take a look-see...";
	next;
	if(countitem(740))set @dearles_check,@dearles_check+1;
	if(countitem(741))set @dearles_check,@dearles_check+1;
	if(countitem(742))set @dearles_check,@dearles_check+1;
	if(countitem(743))set @dearles_check,@dearles_check+2;
	// Was checking the wrong items here [Llyr]
	// Script was checking for:
	// Bouquet (ID: 744) instead of Red Frame (ID: 734)
	// Wedding Bouquet (ID: 745) instead of Chung Jah (ID: 735)
	// Glass Bead (ID: 746) instead of China (ID: 736)
	if(countitem(734))set @dearles_check,@dearles_check+1;
	if(countitem(735))set @dearles_check,@dearles_check+1;
	if(countitem(736))set @dearles_check,@dearles_check+1;
	if(countitem(747))set @dearles_check,@dearles_check+2;
	if(countitem(750))set @dearles_check,@dearles_check+10;
	if(countitem(751))set @dearles_check,@dearles_check+12;
	if(countitem(752))set @dearles_check,@dearles_check+3;
	if(countitem(753))set @dearles_check,@dearles_check+5;
	if(countitem(754))set @dearles_check,@dearles_check+5;

	if(@dearles_check >= 20)
{
	if(countitem(741))delitem 741,countitem(741);
	if(countitem(740))delitem 740,countitem(740);
	if(countitem(742))delitem 742,countitem(742);
	if(countitem(743))delitem 743,countitem(743);
	if(countitem(734))delitem 734,countitem(734);
	if(countitem(735))delitem 735,countitem(735);
	if(countitem(736))delitem 736,countitem(736);
	if(countitem(747))delitem 747,countitem(747);
	if(countitem(750))delitem 750,countitem(750);
	if(countitem(751))delitem 751,countitem(751);
	if(countitem(752))delitem 752,countitem(752);
	if(countitem(753))delitem 753,countitem(753);
	if(countitem(754))delitem 754,countitem(754);
	mes "[Dearles]";
	mes "Nice, nice~";
	mes "These'll sell for--";
	mes "Er, I'm glad to say";
	mes "that you pass for now.";
	next;
	mes "[Dearles]";
	mes "I think you're ready";
	mes "for the next step. Now,";
	mes "I'm gonna send you to";
	mes "Lamadin for Part Two";
	mes "of my test. Yeah, I know...";
	set dearles_test,3;
	close2;
	warp "cmd_in01.gat",34,17;
	end;
}

	else
{
	mes "[Dearles]";
	mes "Hmm... Some of this";
	mes "stuff looks good, but";
	mes "there isn't enough variety";
	mes "here that proves your eye for";
	mes "craftsmanship. Come back";
	mes "with more stuff, alright?";
	close;
}


L_Dance:
	mes "[Dearles]";
	mes "Hey, you gotta";
	mes "finish the Part Two of";
	mes "my test. I'm gonna send";
	mes "you to Lamadin now...";
	close2;
	warp "cmd_in01.gat",34,17;
	end;

L_Fail:
	mes "[Dearles]";
	mes "You failed Part Two,";
	mes "the rhythm portion of";
	mes "my freakin' test? If you";
	mes "wanna try again, you're";
	mes "welcome to another chance...";
	next;
	menu "Yes.",L_Another,"Maybe later.",-;
	mes "[Dearles]";
	mes "What...?";
	mes "Alright, but you";
	mes "really shouldn't give";
	mes "up. I mean, Part Two is";
	mes "supposed to be ridiculously";
	mes "easy. I made it that way.";
	close;

L_Another:
	mes "[Dearles]";
	mes "Okay...";
	mes "Just keep in mind";
	mes "that Part Two was";
	mes "supposed to be";
	mes "the easy part...";
	close2;
	warp "cmd_in01.gat",34,17;
	end;

L_Win:
	mes "[Dearles]";
	mes "Lamadin tells me";
	mes "you passed. Since you";
	mes "did so good, I'm gonna";
	mes "give you some of your money";
	mes "back. Not all, but most of it.";
	mes "Isn't that reward enough?";
	next;
	mes "[Dearles]";
	mes "Alright, take this chunk";
	mes "of Sobbing Starlight and";
	mes "go find someone named";
	mes "um, 'Bakerlan' in Alberta.";
	set Zeny, Zeny + 20000;
	getitem 7177,1;
	set signquest,12;
	set $dance_fail,0;
	next;

L_Ever:
	mes "[Dearles]";
	mes "Well, that's it.";
	mes "There's no reason";
	mes "for you to ever see";
	mes "me again. But yeah,";
	mes "good luck with that";
	mes "Sobbing Starlight business.";
	close;
}

cmd_in01.gat,32,25,3	script	Lamadin	724,{

	if(SignDance == 1)goto L_Win;
	if(SignDance == 2)goto L_Another;
	mes "[Lamadin]";
	mes "Welcome to";
	mes "Part Two of Dearles'";
	mes "exam where your sense";
	mes "of rhythm will be tested~";
	next;
	mes "[Lamadin]";
	mes "Please click on the";
	mes "Chat Room to enter the";
	mes "Standby Room. When it's";
	mes "your turn, the test will begin!";
	next;
	mes "[Lamadin]";
	mes "The top left pole";
	mes "means 'Up' and there are";
	mes "a total of four marks";
	mes "designated as Upper, Lower,";
	mes "Left and Right. Hitting each";
	mes "mark will produce a sound.";
	next;
	mes "[Lamadin]";
	mes "During the test,";
	mes "you must hit the marks";
	mes "according to the given";
	mes "instructions in order to";
	mes "play music. Nifty, huh?";
	next;
	mes "[Lamadin]";
	mes "I'm in charge of grading";
	mes "your performance and determinating";
	mes "your qualification. Please do your";
	mes "best and come back to me when";
	mes "you finish the test. Good luck~";
	mes "Please do your best.";
	close;

L_Another:
	mes "[Lamadin]";
	mes "Let's see...";
	mes "You're "+strcharinfo(0)+"?";
	mes "Oh, what a shame!";
	mes "You failed this time.";
	mes "But don't worry...";
	next;
	mes "[Lamadin]";
	mes "You're welcome to";
	mes "try again whenever";
	mes "you want, alright?";
	mes "Thank you~";
	close;

L_Win:
	mes "[Lamadin]";
	mes "Let's see...";
	mes "You're "+strcharinfo(0)+"?";
	mes "Congratulations!";
	mes "You got a perfect";
	mes "score on this test!";
	next;
	mes "[Dearles]";
	mes "I'll send a message to";
	mes "Mister Dearles right away,";
	mes "so please go speak to him";
	mes "again. He may even give";
	mes "you a reward since you";
	mes "did such a great job~";
	set SignDance,3;
	close;

}

cmd_in01.gat,33,33,3	script	Waiting Room#SignDance	66,{
	end;

OnWarp:
	warpwaitingpc "cmd_in01",16,16,1;
	disablewaitingroomevent;
	disablenpc "SignDance#WARPER";
	enablenpc "SignDance#CENTER";
	end;
OnInit:
	waitingroom "DANCE~ DANCE~",20,"Waiting Room#SignDance::OnWarp",1;
	end;
}

cmd_in01.gat,1,1,1	script	DanceInit	139,{

OnInitiation:
	initnpctimer;
	end;
OnTimer1000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	areaannounce "cmd_in01.gat",12,12,35,35,"The test will begin shortly. Please do your best~",8;
	end;
OnTimer4000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	set $signdance,1;
	areaannounce "cmd_in01.gat",12,12,35,35,"UP LEFT",8;
	end;
OnTimer7000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 2) set $Signdanceresult,1;
	set $signdance,3;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN RIGHT",8;
	end;
OnTimer10000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 4) set $Signdanceresult,1;
	set $signdance,5;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN LEFT & UP RIGHT",8;
	end;
OnTimer13000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 7) set $Signdanceresult,1;
	 set $signdance,8;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN RIGHT",8;
	end;
OnTimer15000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 9) set $Signdanceresult,1;
	set $signdance,10;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN LEFT & UP RIGHT & UP LEFT & STAY CENTER",8;
	end;
OnTimer20000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 14) set $Signdanceresult,1;
	set $signdance,15;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN LEFT & DOWN RIGHT & DOWN LEFT",8;
	end;
OnTimer24000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 18) set $Signdanceresult,1;
	set $signdance,19;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN RIGHT & CENTER & DOWN RIGHT",8;
	end;
OnTimer28000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 22) set $Signdanceresult,1;
	set $signdance,23;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN LEFT & UP LEFT & UP RIGHT & DOWN RIGHT & CENTER",8;
	end;
OnTimer33000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 28) set $Signdanceresult,1;
	set $signdance,29;
	areaannounce "cmd_in01.gat",12,12,35,35,"DOWN LEFT & UP RIGHT & UP LEFT & DOWN RIGHT",8;
	end;
OnTimer40000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 33) set $Signdanceresult,1;
	set $signdance,34;
	areaannounce "cmd_in01.gat",12,12,35,35,"UP RIGHT & DOWN RIGHT & UP RIGHT & DOWN RIGHT",8;
	end;
OnTimer44000:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 38) set $Signdanceresult,1;
	set $signdance,39;
	set $SignDanceRandomizer,rand(0,1);
	if(!$SignDanceRandomizer)
	areaannounce "cmd_in01.gat",12,12,35,35,"UP LEFT & UP RIGHT & CENTER & UP RIGHT & DOWN LEFT & DOWN RIGHT",8;
	else
	areaannounce "cmd_in01.gat",12,12,35,35,"UP LEFT & UP RIGHT & DOWN LEFT & UP RIGHT & DOWN LEFT & DOWN RIGHT",8;
	end;
OnTimer51500:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	if($signdance != 45)set $Signdanceresult,1;
	areaannounce "cmd_in01.gat",12,12,35,35,"Well done.",8;
	end;
OnTimer54500:
	if(!isloggedin($SignDancingrid))goto s_Cleanup;
	attachrid($SignDancingrid);
	if($Signdanceresult)set SignDance,2;
	else set SignDance,1;
	warp "cmd_in01.gat",34,17;
	detachrid;
	enablenpc "SignDance#WARPER";
	disablenpc "SignDance#CENTER";
	set $signdance,0;
	set $Signdanceresult,0;	
	set $SignDancingrid,0;
	set $SignDanceRandomizer,0;
	enablewaitingroomevent "Waiting Room#SignDance";
	stopnpctimer;
	end;

s_Cleanup:
	donpcevent "SignDanceCleanUp::OnPlayerLogout";
	stopnpctimer;
	end;

}

cmd_in01.gat,1,1,1	script	SignDanceCleanUp	-1,{

OnPlayerLogout:
	initnpctimer;
	areaannounce "cmd_in01.gat",12,12,35,35,"The current dancer has logged out. New dancers will be accepted shortly.",8;
	enablenpc "SignDance#WARPER";
	disablenpc "SignDance#CENTER";
	set $signdance,0;
	set $Signdanceresult,0;
	set $SignDancingrid,0;
	set $SignDanceRandomizer,0;

OnTimer3000:
	enablewaitingroomevent "Waiting Room#SignDance";
	stoptimer;
	end;

OnInit:
	set $signdance,0;
	set $Signdanceresult,0;
	set $SignDancingrid,0;
	set $SignDanceRandomizer,0;
	end;

}

//Dancing tiles
cmd_in01.gat,16,13,4	script	SignDance#DOWNRIGHT	139,1,1,{

	if($signdance == 3){ set $signdance,4; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 8){ set $signdance,9; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 16){ set $signdance,17; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 19){ set $signdance,20; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 21){ set $signdance,22; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 26){ set $signdance,27; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 32){ set $signdance,33; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 35){ set $signdance,36; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 37){ set $signdance,38; soundeffect "effect\\sign_down.wav",1; }
	if($signdance == 44){ set $signdance,45; soundeffect "effect\\sign_down.wav",1; }
	if(getcharid(3) != $SignDancingrid)warp "comodo.gat",187,164;
	end;

}


cmd_in01.gat,19,16,4	script	SignDance#UPRIGHT	139,1,1,{

	if($signdance == 6) { set $signdance,7; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 11) { set $signdance,12; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 25) { set $signdance,26; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 30) { set $signdance,31; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 34) { set $signdance,35; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 36) { set $signdance,37; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 40) { set $signdance,41; soundeffect "effect\\sign_right.wav",1; }
	if($signdance == 42) { set $signdance,43; soundeffect "effect\\sign_right.wav",1; }
	if(getcharid(3) != $SignDancingrid)warp "comodo.gat",187,164;
	end;

}

cmd_in01.gat,16,19,4	script	SignDance#UPLEFT	139,1,1,{

	if($signdance == 1) { set $signdance,2; soundeffect "effect\\sign_up.wav",1; }
	if($signdance == 12) { set $signdance,13; soundeffect "effect\\sign_up.wav",1; }
	if($signdance == 24) { set $signdance,25; soundeffect "effect\\sign_up.wav",1; }
	if($signdance == 31) { set $signdance,32; soundeffect "effect\\sign_up.wav",1; }
	if($signdance == 39) { set $signdance,40; soundeffect "effect\\sign_up.wav",1; }
	if(getcharid(3) != $SignDancingrid)warp "comodo.gat",187,164;
	end;

}

cmd_in01.gat,16,16,4	script	SignDance#WARPER	139,1,1,{
	if(getcharid(3) != $SignDancingrid)warp "comodo.gat",187,164;
	end;

}

cmd_in01.gat,16,16,4	script	SignDance#CENTER	139,1,1,{

	if($signdance == 0) { set $SignDancingrid, getcharid(3); donpcevent "DanceInit::OnInitiation"; }
	if($signdance == 13) { set $signdance,14; soundeffect "effect\\sign_center.wav",1; }
	if($signdance == 20) { set $signdance,21; soundeffect "effect\\sign_center.wav",1; }
	if($signdance == 27) { set $signdance,28; soundeffect "effect\\sign_center.wav",1; }
	if($signdance == 41 && !$SignDanceRandomizer) { set $signdance,42; soundeffect "effect\\sign_center.wav",1; }
	end;

OnInit:
	enablenpc "SignDance#WARPER";
	disablenpc "SignDance#CENTER";

}

cmd_in01.gat,13,16,4	script	SignDance#DOWNLEFT	139,1,1,{

	if($signdance == 5) { set $signdance,6; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 10) { set $signdance,11; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 15) { set $signdance,16; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 17) { set $signdance,18; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 23) { set $signdance,24; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 29) { set $signdance,30; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 41 && $SignDanceRandomizer) { set $signdance,42; soundeffect "effect\\sign_left.wav",1; }
	if($signdance == 43) { set $signdance,44; soundeffect "effect\\sign_left.wav",1; }
	if(getcharid(3) != $SignDancingrid)warp "comodo.gat",187,164;
	end;

}

alberta.gat,99,151,1	script	Sign::AlbertaSign	111,{

	mes "^FF0000- The Sign Reads -^000000";
	mes "Tools by the Cart full!";
	mes "You need tools? We got'em!";
	mes "Come on in, we never close!";
	close;

}

alberta_in.gat,114,178,5	script	Refined Steward	109,{

	if(bakerlan_test > 12) goto L_Hope;
	if(bakerlan_test == 12) goto L_Thanks;
	if(bakerlan_test > 6) goto L_Seylin;
	if(bakerlan_test == 5) goto L_Another;
	if(countitem(7181)) goto L_JobDone;
	if(bakerlan_test == 2) goto L_Delivery;
	if(bakerlan_test > 3) goto L_Sorry;
	mes "[Mahatra]";
	mes "Welcome to the";
	mes "Alchiesh Estate.";
	mes "The Alchiesh are the";
	mes "most esteemed family";
	mes "in all of Alberta.";
	next;
	mes "[Mahatra]";
	mes "I am Mahatra Mornen,";
	mes "steward of this family.";
	mes "Feel free to ask me if";
	mes "you need anything and";
	mes "I shall do my best";
	mes "to assist you.";
	close;

L_Delivery:
	mes "[Mahatra]";
	mes "Ah yes, the master informed";
	mes "me that you would be taking";
	mes "care of an urgent delivery";
	mes "for him. Please take this to a";
	mes "man named^0066CC Leibech.^000000";
	next;
	mes "[Mahatra]";
	mes "It may be difficult";
	mes "to find him since he";
	mes "travels around the world.";
	mes "Ah yes, I have heard that";
	mes "he was in some other country...";
	next;
	mes "[Mahatra]";
	mes "Now, the item I am";
	mes "about to give you is";
	mes "one of a kind. Don't lose";
	mes "it or you will fall out of favor";
	mes "with the master...";
	next;
	mes "^0066CCMahatra gives you";
	mes "a unique stone that has";
	mes "your name attached on it.^000000";
	set @signid,getcharid(0,strcharinfo(0));
	set @sign3, @signid & 65535;
	set @sign4, @signid >> 16;
	set @sign1,254;
	set @sign2,0;
	getitem2 7049,1,1,0,0,@sign1,@sign2,@sign3,@sign4;
	set bakerlan_test,3;
	close;

L_JobDone:
	mes "[Mahatra]";
	mes "Ah, you've returned.";
	mes "And I see you already";
	mes "delivered the Stone. Great,";
	mes "well done. Let me send a";
	mes "message to the master, so";
	mes "please visit him later.";
	set bakerlan_test,4;
	delitem 7181,1;
	close;

L_Sorry:
	mes "[Mahatra]";
	mes "Thank you very";
	mes "much for the trouble";
	mes "you've gone through";
	mes "on our behalf.";
	close;

L_Another:
	mes "[Mahatra]";
	mes "Greetings. Hm?";
	mes "Did the master ask";
	mes "you to perform another";
	mes "task for him already?";
	next;
	menu "No.",-,"You have another assignment for me.",L_Assign;
	mes "[Mahatra]";
	mes "Very well.";
	mes "Then, we shall";
	mes "converse later~";
	close;

L_Assign:
	mes "[Mahatra]";
	mes "I...I do...?";
	mes "The master didn't";
	mes "leave me any instructions.";
	mes "Hmmm. Oh, I know what you can";
	mes "do. Why don't you help^FF0000 Seylin^000000? She";
	mes "seems bothered with something...";
	set bakerlan_test,6;
	close;

L_Seylin:
	mes "[Mahatra]";
	mes "Although you may only";
	mes "be doing it for the Sobbing";
	mes "Starlight, I really appreciate";
	mes "all your help. Seylin's a very";
	mes "nice girl and doesn't deserve";
	mes "to feel down...";
	close;

L_Thanks:
	mes "[Mahatra]";
	mes "Yes.";
	mes "I heard from Seylin.";
	mes "I did not know she was worried";
	mes "about her brother.";
	mes "Ahem ahem...";
	mes "Thank you for helping her.";
	mes "I will send a message to my";
	mes "master.";
	next;
	mes "[Mahatra]";
	mes "If there is anything else, he will";
	mes "let you pass the test.";
	mes "Good luck.";
	set bakerlan_test,13;
	close;

L_Hope:
	mes "[Mahatra]";
	mes "I hope the master";
	mes "listens to me and dresses more like";
	mes "a man in his position. Even if";
	mes "he thinks he's just a merchant,";
	mes "he's the master of the estate!";
	mes "But please don't tell him that~";
	close;

}

alberta_in.gat,154,171,5	script	Maid#3	758,{

	if(bakerlan_test > 11) goto L_Done;
	if(bakerlan_test == 11) goto L_Thanks;
	if(bakerlan_test == 10) goto L_Brother;	
	if(bakerlan_test > 8 && countitem(7044)) goto L_Vigorgra;
	if(bakerlan_test > 6) goto L_Bring;
	if(@seylin == 2) goto L_Thought;
	if(@seylin == 1) goto L_Help;
	if(bakerlan_test == 6) goto L_NoUse;
	if(bakerlan_test > 2 && bakerlan_test < 6) goto L_Bother;
	mes "[Seylin]";
	mes "I'm sorry, but I'm";
	mes "busy cleaning the manor";
	mes "right now so I don't have";
	mes "time to talk. Oh, and would";
	mes "please wipe your shoes";
	mes "on the mat before coming in?";
	close;

L_Bother:
	mes "[Seylin]";
	mes "Ooooh...";
	mes "What am I going";
	mes "to do?! Oh-- You";
	mes "startled me!";
	next;
	mes "[Seylin]";
	mes "I'm sorry, but";
	mes "I was just thinking";
	mes "about something. I hope";
	mes "I didn't bother you. *sigh*";
	close;

L_NoUse:
	mes "[Seylin]";
	mes "Oh, it's no use";
	mes "worrying about";
	mes "something I can't do";
	mes "nothing about. I better";
	mes "get back to work...";
	set @seylin,1;
	close;

L_Help:
	mes "[Seylin]";
	mes "*sigh...*";
	mes "Oh, dear...";
	mes "What can I do";
	mes "about this...?";
	next;
	menu "Ignore her.",-,"Excuse me, but Mahatra sent me...",L_Work;
	close;

L_Work:
	mes "[Seylin]";
	mes "Mister Mahatra";
	mes "sent you to me?";
	mes "Hm? Does he need";
	mes "me for anything?";
	next;
	menu "Actually, he wants me to help you.",-;
	mes "[Seylin]";
	mes "Oh, how very kind!";
	mes "Yes, yes, I could use";
	mes "some help right now!";
	mes "You see, it'll be my brother's";
	mes "birthday but I'm so busy with";
	mes "work that I can't see him.";
	emotion e_thx;
	next;
	mes "[Seylin]";
	mes "The last time I saw him,";
	mes "he looked so tired and weak";
	mes "so it's worrying me. Now, I've";
	mes "heard there's some new medicine";
	mes "called^FF0000 Vigorgra^000000. I don't know much";
	mes "about it, but it should help him!";
	next;
	mes "[Seylin]";
	mes "Do you think you could";
	mes "find that medicine and";
	mes "bring it to me? If you don't";
	mes "want to, I understand. Plus,";
	mes "I don't know if the master";
	mes "would approve of this...";
	next;
	menu "I can't do it.",-,"Let me think about it.",L_Think,"Sure, why not?",L_Ok;
	mes "[Seylin]";
	mes "Oh really?";
	mes "Alright, I can";
	mes "understand. I'm";
	mes "very sorry to bother";
	mes "you with my problems.";
	set @seylin,2;
	close;

L_Think:
	mes "[Seylin]";
	mes "Oh really?";
	mes "I'm sorry, I...";
	mes "I just thought";
	mes "that maybe...";
	set @seylin,2;
	close;

L_Thought:
	mes "[Seylin]";
	mes "Hello there--";
	mes "Oh, have you";
	mes "changed your mind";
	mes "about helping me?";
	mes "I'll repay you,";
	mes "of course.";
	next;
	menu "No.",L_Think,"Yes.",-;

L_Ok:
	mes "[Seylin]";
	mes "Oh, thank you so much!";
	mes "Now, I remember hearing";
	mes "that you can find Vigorgra";
	mes "somewhere in Aldebaran.";
	mes "Somebody in the Alchemist";
	mes "Guild make it, I think.";
	next;
	mes "[Seylin]";
	mes "I'm sorry but I don't";
	mes "know much about the medicine.";
	mes "Well, aside from the fact that";
	mes "it makes men feel young again.";
	mes "So that must be good, right?";
	mes "Thanks again for your help~";
	set bakerlan_test,7;
	close;

L_Bring:
	mes "[Seylin]";
	mes "I know that you might";
	mes "be able to find Vigorgra";
	mes "in the Alchemist's Guild";
	mes "in Aldebaran. Aside from";
	mes "that, I don't know much...";
	next;
	mes "[Seylin]";
	mes "Once you get it,";
	mes "would you bring";
	mes "the Vigorgra to me?";
	close;

L_Vigorgra:
	mes "[Seylin]";
	mes "Hurray~!";
	mes "You brought the";
	mes "Vigorgra! I hope";
	mes "my brother will";
	mes "be happy with this.";
	next;
	mes "[Seylin]";
	mes "Oh! Would you please";
	mes "bring this Vigorgra to my";
	mes "brother? His name is Maruin";
	mes "and he's working over at";
	mes "the Prontera Castle.";
	next;
	mes "[Seylin]";
	mes "Ah, I almost forgot!";
	mes "I just finished writting";
	mes "him this letter, so would";
	mes "you make sure he gets";
	mes "this? Thanks you so much!";
	getitem 7183,1;
	set bakerlan_test,10;
	close;

L_Brother:
	mes "[Seylin]";
	mes "Would you please";
	mes "deliver the Vigorgra";
	mes "and my letter to my brother";
	mes "Maruin in the Prontera Castle?";
	mes "And wish him Happy Birthday~";
	close;

L_Thanks:
	mes "[Seylin]";
	mes "Thanks so much";
	mes "for your help again!";
	mes "I want you to have this";
	mes "as a token of my gratitude.";
	mes "You really are a kind person~";
	getitem 525,3;
	emotion e_kis2;
	set bakerlan_test,12;
	close;

L_Done:
	mes "[Seylin]";
	mes "Although the master isn't";
	mes "a messy person, he's pretty";
	mes "unorganized. I wish he'd make";
	mes "it easier for me to tell which";
	mes "papers are documents, and";
	mes "which ones are trash...";
	next;
	mes "[Seylin]";
	mes "So, how have you been?";
	mes "Is everything okay with you?";
	mes "I hope you have a lot of good";
	mes "experiences in your adventures.";
	close;

}

alberta_in.gat,125,101,5	script	Wealthy-looking Merchant	807,{

	if(!signquest)
	{
	mes "[Bakerlan]";
	mes "Umm...well then...";
	mes "I shall take the action for";
	mes "Prontera...";
	mes "And for Juno...";
	mes "Awww....";
	mes "Gosh, this is such a pain in the";
	mes "ass...";
	mes "Mumble mumble...";
	close;
	}
	if(signquest > 12) goto L_Over;
	if(bakerlan_test == 13) goto L_Help;
	if(bakerlan_test == 5) goto L_Busy;
	if(bakerlan_test == 4) goto L_JobDone;
	if(bakerlan_test > 1) goto L_Steward;
	if(bakerlan_test == 1) goto L_Later;
	if(signquest == 12)
{
	mes "[Bakerlan]";
	mes "Gosh...";
	mes "I do not know what I should do";
	mes "about Juno...";
	mes "Who are you?";
	next;
	menu "Noone.",-,"Mr. Metz sent me.",L_Metz;
	mes "[Bakerlan]";
	mes "Hmm...";
	mes "I am pretty busy at the moment. So";
	mes "please do not interrupt me any";
	mes "further.";
	mes "If you are looking for a job,";
	mes "please inquire of my steward.";
	close;
}

L_Metz:
	mes "[Bakerlan]";
	mes "Ah... He did?... Hmmmm...";
	mes "Unfortunately, I am kind of busy...";
	mes "Will you please come back later?";
	mes "Thanks you.";
	set bakerlan_test,1;
	close;

L_Later:
	mes "[Bakerlan]";
	mes "Hmm...? You've";
	mes "finished all the";
	mes "tests up until Dearles'";
	mes "challenge? Prove it to me";
	mes "with your pieces of the";
	mes "Sobbing Starlight...";
	next;
	menu "Give me a minute...",-,"Here...",L_Star;

L_NoStar:
	mes "[Bakerlan]";
	mes "Well, you better";
	mes "come back soon. I'm";
	mes "a busy businessman, so";
	mes "my time is quite precious.";
	close;

L_Star:
	if(countitem(7177) < 5) goto L_NoStar;
	mes "[Bakerlan]";
	mes "Ah, now I see that";
	mes "you speak the truth.";
	mes "Alright, we can begin my test.";
	next;
	mes "[Bakerlan]";
	mes "First, I wish for you to make";
	mes "a delivery. The object I want you";
	mes "to deliver is expensive and must be";
	mes "handled with care. Don't lose it or";
	mes "you will fail. Now, speak to my";
	mes "steward for more information.";
	set bakerlan_test,2;
	close;

L_Steward:
	mes "[Bakerlan]";
	mes "Please speak to my";
	mes "steward for all matters";
	mes "related to the delivery";
	mes "that you must complete";
	mes "for my test.";
	close;

L_JobDone:
	mes "[Bakerlan]";
	mes "Ah yes, Mahatra tells";
	mes "me that you've completed";
	mes "the delivery. Well, um, he now";
	mes "has another assignment for";
	mes "you to complete. So";
	mes "please talk to him again.";
	set bakerlan_test,5;
	close;

L_Busy:
	mes "[Bakerlan]";
	mes "You have not finished yet.";
	mes "Why don't you go finish them";
	mes "first?";
	mes "I'm a busy businessman.";
	close;

L_Help:
	mes "[Bakerlan]";
	mes "Ah, I was informed about you.";
	mes "Well, although you have your goal,";
	mes "that does not necessarily mean to";
	mes "help that kid.";
	mes "Metz must have an eye for a right";
	mes "person, I assume.";
	next;
	mes "[Bakerlan]";
	mes "Well, I wanted to assign you some";
	mes "various tasks,";
	mes "on my own plan, bur recently I am";
	mes "very busy";
	mes "to take care of tradings";
	mes "with Kunlun and Amatsu.";
	next;
	mes "[Bakerlan]";
	mes "I found Seylin while I was trading";
	mes "with Amatsu few years ago.";
	mes "I introduces her brother to the";
	mes "royal family of Prontera, too.";
	mes "But anyways,";
	next;
	mes "[Bakerlan]";
	mes "I want to test you longer, but";
	mes "I am too busy for that. Also I";
	mes "don't think it is good for you.";
	mes "Let's finish the test now.";
	mes "You are qualified enough already.";
	next;
	mes "[Bakerlan]";
	mes "There you go.";
	mes "I am the last one who tested your";
	mes "qualification.";
	mes "Now bring all of the Stone pieces";
	mes "to Metz.";
	mes "He will tell you what you need to";
	mes "do next.";
	getitem 7177,1;
	set signquest,13;
	close;

L_Over:
	mes "[Bakerlan]";
	mes "How is it going?";
	mes "In fact, we want to do it on our";
	mes "own...";
	mes "but we are too preoccupied with our";
	mes "works...";
	mes "I hope you will keep up the good";
	mes "work.";
	mes "I am also curious what that stone";
	mes "is.";
	close;
}

yuno.gat,330,100,3	script	Knight#2	734,{

	if (bakerlan_test > 4) goto L_Thanks;
	if (bakerlan_test == 3) goto L_Delivery;

L_Wait:
	mes "[Leibech]";
	mes "Don't disturb me.";
	mes "I'm waiting for an";
	mes "important delivery.";
	close;

L_Delivery:
	set @signid,getcharid(0,strcharinfo(0));
	set @sign3, @signid & 65535;
	set @sign4, @signid >> 16;
	set @sign1,254;
	set @sign2,0;
	if(countitem2(7049,1,0,0,@sign1,@sign2,@sign3,@sign4))
{
	mes "[Leibech]";
	mes "Finally, it's here!";
	mes "Yes, this is what I ordered.";
	mes "Thanks for the delivery!";
	next;
	mes "[Leibech]";
	mes "Well, here's your";
	mes "receipt. Please take";
	mes "this to Mister Bakerlan";
	mes "so he knows you did";
	mes "a good job for me.";
	mes "Thanks again!";
	delitem2 7049,1,1,0,0,@sign1,@sign2,@sign3,@sign4;
	getitem 7181,1;
	close;
}
	else { goto L_Wait; }

L_Thanks:
	mes "[Leibech]";
	mes "Thanks again for";
	mes "the delivery.";
	mes "I was waiting for it";
	mes "for such a long time...";
	close;
}

alde_alche.gat,169,162,7	script	Alchemist#3	749,{

	if(!bakerlan_test)
	{
	mes "[Melkaba]";
	mes "Most Alchemists seek out the";
	mes "Stone of Sage, but in my opinion";
	mes "their goals are too short sighted.";
	mes "There are more important studies";
	mes "to be conducted in the name of";
	mes "science for the good of mankind...";
	next;
	menu "...",-,"So what are you studying?",L_What;

	mes "[Melkaba]";
	mes "In the end, the";
	mes "Stone of Sage may";
	mes "just be a simple rumor.";
	mes "After all, thousands of";
	mes "Alchemists have already";
	mes "failed to create it.";
	close;

L_What:
	mes "[Melkaba]";
	mes "What am I studying?";
	mes "Well, my expertise is...";
	mes "Different, if you must";
	mes "know, it's a secret~";
	mes "If any man found out";
	mes "about my research...";
	close;
	}
	if(bakerlan_test > 8) goto L_Done;
	if(bakerlan_test == 8) goto L_Items;
	mes "[Melkaba]";
	mes "Eh...?";
	mes "What do you need?";
	mes "If it's not important,";
	mes "please leave my";
	mes "laboratory.";
	if(bakerlan_test == 7)
{
	next;
	menu "Vigorgra?",L_Vigor,"Oh, I'm sorry.",-;
	mes "[Melkaba]";
	mes "There's no need";
	mes "to apologize but";
	mes "I'd appreciate it if";
	mes "you'd let me work";
	mes "in peace.";
	close;

L_Vigor:
	mes "[Melkaba]";
	mes "What?! Who told you";
	mes "that I could make that?!";
	mes "Oh, no matter I suppose";
	mes "you want me to get some";
	mes "some ready for you. Now tell me...";
	mes "Why do you want it?";
	next;
	menu "No, I don't want it.",-,"I need Vigorgra for... a friend.",L_Friend;
	mes "[Melkaba]";
	mes "You immature--!";
	mes "You come all this";
	mes "way to bother me?";
	mes "Don't bring your";
	mes "shame into my lab!";
	close;

L_Friend:
	mes "[Melkaba]";
	mes "Oh, right.";
	mes "Your friend.";
	mes "I understand you.";
	mes "Crystal clear.";
	next;
	mes "[Melkaba]";
	mes "Well, since you know";
	mes "about my secret researches,";
	mes "I'll do you a favor so long as";
	mes "you don't tell anyone else!";
	mes "Of course, I can't just give";
	mes "you Vigorgra for free...";
	next;
	mes "[Melkaba]";
	mes "Now, write this";
	mes "down. These are the";
	mes "ingredients I need to";
	mes "make a bottle of Vigorgra.";
	next;
	mes "[Melkaba]";
	mes "^FF00001 Ment";
	mes "20 Honey";
	mes "10 Royal Jelly";
	mes "30 Bear's Footskin";
	mes "1 Hinalle Leaflet";
	mes "1 Empty Bottle^000000";
	next;
	mes "[Melkaba]";
	mes "Alright.";
	mes "Now go and";
	mes "bring all those";
	mes "items to me. I'll";
	mes "be seeing you later.";
	set bakerlan_test,8;
	close;

L_Items:
	mes "[Melkaba]";
	mes "Hmmmm...";
	mes "So did you";
	mes "bring everything";
	mes "you need for the";
	mes "Vigorgra...?";
	next;
	menu "Not yet...",-,"Yes.",L_Check;
	mes "[Melkaba]";
	mes "Well, let me";
	mes "remind you of";
	mes "what you need to";
	mes "bring to me in case";
	mes "you forgot already...";
	next;
	mes "[Melkaba]";
	mes "^FF00001 Ment";
	mes "20 Honey";
	mes "10 Royal Jelly";
	mes "30 Bear's Footskin";
	mes "1 Hinalle Leaflet";
	mes "1 Empty Bottle^000000";
	next;
	mes "[Melkaba]";
	mes "Take your time...";
	mes "In the end, you're";
	mes "the one who's got the";
	mes "need for it, anyway.";
	close;

L_Check:
	mes "[Melkaba]";
	mes "Great...!";
	mes "Now let me check";
	mes "to see if you have";
	mes "everything ready...";
	next;
	if(countitem(708) > 0 && countitem(518) > 19 && countitem(526) > 9 && countitem(948) > 29 && countitem(520) > 0 && countitem(713) > 0) goto L_Enough;
	mes "[Melkaba]";
	mes "Hmm, you're still";
	mes "missing some of the";
	mes "ingredients. Now, listen";
	mes "carefully. I need you to get...";
	next;
	mes "[Melkaba]";
	mes "^FF00001 Ment";
	mes "20 Honey";
	mes "10 Royal Jelly";
	mes "30 Bear's Footskin";
	mes "1 Hinalle Leaflet";
	mes "1 Empty Bottle^000000";
	close;

L_Enough:
	mes "[Melkaba]";
	mes "Good work.";
	mes "Everything's here.";
	mes "Alright, just this once";
	mes "I'll make you a bottle";
	mes "of Vigorgra.";
	next;
	mes "[Melkaba]";
	mes "If you ask me again,";
	mes "I won't speak to you!";
	mes "And I'll need to charge";
	mes "you 10.000 zenys.";
	next;
	mes "[Melkaba]";
	mes "Alright. I'll be";
	mes "taking my fee from";
	mes "you now. It's not that";
	mes "expensive when you";
	mes "consider Vigorgra's";
	mes "numerous benefits.";
	next;
	if(Zeny < 10000) goto L_Money;
	mes "^0066CCMelkaba placed";
	mes "all the ingredients";
	mes "into a test tube and";
	mes "began processing it";
	mes "through some strange";
	mes "electronic equipment.^000000";
	next;
	mes "...";
	mes "......";
	next;
	mes "...";
	mes "......";
	mes ".........";
	next;
	mes "[Melkaba]";
	mes "Ah! Success!";
	mes "A lifetime's supply";
	mes "of Vigorgra! I know it's";
	mes "just one bottle but this";
	mes "stuff is extremely potent!";
	misceffect 305;
	next;
	mes "[Melkaba]";
	mes "Um, just remember";
	mes "not to take too much";
	mes "at one time. Can't have";
	mes "you getting crazy high";
	mes "blood pressure~";
	set bakerlan_test,9;
	set Zeny,Zeny - 10000;
	delitem 708,1;
	delitem 518,20;
	delitem 526,10;
	delitem 948,30;
	delitem 520,1;
	delitem 713,1;
	getitem 7044,1;
	close;

L_Money:
	mes "[Melkaba]";
	mes "I'm sorry but it";
	mes "seems you don't";
	mes "have enough money";
	mes "to support the fee...";
	mes "Please come back";
	mes "with 10.000 zenys.";
	close;
	
L_Done:
	mes "[Melkaba]";
	mes "Vigorgra is";
	mes "a miracle of";
	mes "modern science";
	mes "but it can do more";
	mes "harm than good if";
	mes "you're not careful!";
	close;
}

	else
{
	close;
}

}

prt_castle.gat,107,58,5	script	Soldier#2	105,{

	if(bakerlan_test > 10) goto L_Heya;
	mes "[Maruin]";
	mes "Welcome to";
	mes "Prontera Castle.";
	mes "Please be careful";
	if(bakerlan_test == 10 && countitem(7044) && countitem(7183))
{
	mes "and avoid getting los--";
	next;
	mes "[Maruin]";
	mes "What's that?";
	mes "You're here for";
	mes "my sister? Um, did";
	mes "something happen...?";
	next;
	menu "Oh no, she sent you a birthday gift.",-;
	mes "[Maruin]";
	mes "Birthday...?";
	mes "What are you sm--";
	mes "OH. It is my birthday.";
	mes "Ha! I completely forgot!";
	next;
	mes "[Maruin]";
	mes "Thanks for coming";
	mes "all the way out here";
	mes "to deliver my present!";
	mes "Wow, I wonder what she";
	mes "gor for me this year!";
	delitem 7044,1;
	delitem 7183,1;
	next;
	mes "[Maruin]";
	mes "Th-This is--!";
	mes "Oh. Snap. That's right.";
	mes "She's been worried about";
	mes "me being tired lately. But";
	mes "does she even know what";
	mes "Vigorgra is supposed to...?";
	emotion e_gasp;
	next;
	mes "[Maruin]";
	mes "Never mind. It's the";
	mes "thought that counts.";
	mes "But for the record, it's";
	mes "not like I need this stuff.";
	mes "I mean, I have, you know,";
	mes "a girlfr--you know what I mean.";
	next;
	mes "[Maruin]";
	mes "I'd like to pay you";
	mes "back but since I'm";
	mes "on duty, all I can do";
	mes "is replenish your health.";
	mes "I'm not really supposed to,";
	mes "but no one will say anything.";
	next;
	mes "[Maruin]";
	mes "Well, thanks for";
	mes "the letter and the";
	mes "male supplement, I guess.";
	mes "I'll send a message to my";
	mes "sister. Good luck on your";
	mes "travels, alright?";
	set bakerlan_test,11;
	close;

L_Heya:
	mes "[Maruin]";
	mes "Oh hey, how's";
	mes "it going? Thanks";
	mes "again for helping";
	mes "out my sister, we";
	mes "really appreciate it.";
	close;
}
	else
{
	mes "and avoid getting lost.";
	next;
	mes "[Maruin]";
	mes "Oh man...";
	mes "I'm so tired~!";
	mes "Enervated, even~";
	mes "If I only had some";
	mes "kind of refreshment...";
	close;
}

}

geffen_in.gat,171,43,3	script	Cute Girl	703,{

	if(!signquest)
	{
	mes "[Liana]";
	mes "^222222*Pout*^000000";
	mes "When's my daddy";
	mes "coming home?!";
	mes "I... I miss him so much~";
	mes "^222222*Cries*";
	emotion e_sob;
	close;
	}
	if(signquest > 20) goto L_Never;
	if(signquest == 20) goto L_Thanks;
	if(signquest == 17) goto L_Letter;
	if(signquest == 16) goto L_Father;
	mes "[Liana]";
	mes "Oh, my mom said she's gonna cook me";
	mes "something good today.";
	mes "I wonder what she's gonna make?";
	mes "I hope it's pickled cabbage again!";
	close;

L_Father:
	mes "[Liana]";
	mes "Everyone says that daddy is the";
	mes "best blacksmith in the whole world!";
	mes "but now he lets his apprentices do";
	mes "the work so he can go around the";
	mes "world to ding a rare ore~ Isn't";
	mes "it amazing?";
	next;
	menu "What are you drawing by the way?",L_Draw,"Apprentices?",-;
	mes "[Liana]";
	mes "Yeah, Uncle Hollgrehenn and";
	mes "Aragham come to visit sometimes and";
	mes "we all play. But it's more fun to";
	mes "see my dad, even though he's not";
	mes "back yet. *Pout*";
	next;
	menu "Don't you miss your dad?",L_Miss,"He also misses you a lot.",-;
	mes "[Liana]";
	mes "I hope so...";
	mes "But I hate it when";
	mes "he doesn't have enough";
	mes "time to come home and";
	mes "see me. Sooooooooo~";
	mes "I wrote this letter!";
	emotion e_dots;
	next;
	menu "...",-,"I'll bring this to him",L_Really;
	mes "[Brenda Howard]";
	mes "Liana~";
	mes "This nice man is going to look for";
	mes "you dad. Why don't you ask him to";
	mes "take your letter to him for you?";
	next;

L_Really:
	mes "[Liana]";
	mes "You are...?";
	mes "Really, really?";
	mes "H-hooray!";
	next;
	mes "[Liana]";
	mes "Okay then, don't";
	mes "forgive to give this to";
	mes "my dad, okay? Promise?";
	getitem 7276,1;
	set signquest,17;
	close;	

L_Draw:
	mes "[Liana]";
	mes "This is my father coming";
	mes "back from his expedition";
	mes "with the rarest ore ever";
	mes "found in the world! I hope";
	mes "he will be here soon.";
	close;

L_Miss:
	mes "[Liana]";
	mes "I miss him soooo much!";
	mes "*Cries* But Mom always";
	mes "says that he's too busy.";
	mes "*Pouts*";
	close;

L_Letter:
	mes "[Liana]";
	mes "Would you please bring my letter";
	mes "over to my dad? Heh heh, he'll be";
	mes "so happy to hear from me!";
	close;

L_Thanks:
	mes "[Liana]";
	mes "Yay~!";
	mes "Thank you for bringing my letter to";
	mes "my dad. Here, here!";
	mes "You have to share my treasure with";
	mes "me, 'kay?";
	getitem 529,10;
	set signquest,21;
	close;

L_Never:
	mes "[Liana]";
	mes "I never saw my dad fail to upgrade";
	mes "a weapon or armor. Mmm? But maybe";
	mes "if he had something really really";
	mes "old and rare and special...";
	close;

}


geffen_in.gat,159,48,5	script	Woman	711,{
	if(signquest > 22) goto L_Cherish;
	if(signquest > 19) goto L_Done;
	if(signquest == 19 && countitem(7278)) goto L_Letter;
	if(signquest > 15) goto L_Cooking;
	if(@signbrenda == 1) goto L_Husband;
	if(signquest == 15)
{
	mes "[Brenda Howard]";
	mes "Hey, who are you anyhow?";
	mes "Don't you know it's rude to";
	mes "enter someone's house without";
	mes "being invited? Besides, I don't";
	mes "have the time to help strangers";
	mes "while I'm busy making dinner...";
	next;
	mes "[" + strcharinfo(0) + "]";
	mes "W-Wait!";
	mes "I'm here to see...";
	next;
	mes "[Brenda Howard]";
	mes "Huh?";
	mes "What are you";
	mes "talking about?";
	next;
	mes "[Brenda Howard]";
	mes "Hmm...";
	mes "I wonder";
	mes "how my pickled";
	mes "cabbage will turn out?";
	set @signbrenda,1;
	close;
}
	// Script could get to this point if the variable "signquest" was non-zero
	// It would then continue running at the label "L_Husband" [Llyr]

	mes "[Brenda Howard]";
	mes "Hmm...";
	mes "What should I make for";
	mes "dinner today? Pickled cabbage?";
	mes "I learned how to make it a while";
	mes "ago, but I've never gotten the";
	mes "chance to make it yet...";
	close;

L_Husband:
	mes "[Brenda Howard]";
	mes "Ah... I see.";
	mes "You're looking for my husband.";
	mes "My husband, my daughter and";
	mes "I just moved to Geffen from";
	mes "Prontera a while ago.";
	next;
	mes "[Brenda Howard]";
	mes "We moved to geffen for the sake of";
	mes "my husband's business. Apparently,";
	mes "this town is closest to something";
	mes "he really seems to need. Whatever";
	mes "it is, it must be really important";
	mes "to his smithing work.";
	next;
	mes "[Brenda Howard]";
	mes "Oh, and if you're going to look";
	mes "for my husband,  please talk to my";
	mes "daughter before you go. I think she";
	mes "has something she wants to";
	mes "give to her father...";
	set signquest,16;
	close;

L_Cooking:
	mes "[Brenda Howard]";
	mes "Ho-Ho~";
	mes "Crisp and delicious pickled";
	mes "cabbage~ My kid loves this stuff";
	mes "and finished it all by herself the";
	mes "last time I made it!";
	close;

L_Letter:
	mes "[Brenda Howard]";
	mes "Thank you so much for bringing";
	mes "this to me. I'm so happy to hear";
	mes "that he's fine and doing well.";
	mes "Although he's not here often";
	mes "enough, it's good to know";
	mes "that he loves his job.";
	next;
	mes "[Brenda Howard]";
	mes "Even so, I should start letting";
	mes "him know that I want him to spend";
	mes "a little more time at home. Oh, and";
	mes "why don't you talk to Liana? She's";
	mes "been waiting to tell you";
	mes "something.";
	delitem 7278,1;
	set signquest,20;
	close;

L_Done:
	mes "[Brenda Howard]";
	mes "So how have you been?";
	mes "As usual, Liana misses";
	mes "her daddy, but I suppose";
	mes "it can't be helped...";
	next;
	mes "[Brenda Howard]";
	mes "I may be no expert but I'm";
	mes "certain that my husband is";
	mes "the best blacksmith in the world!";
	mes "Did you know Hollgrehenn and";
	mes "Aragham used to be his apprentices?";
	mes "Ho ho ho~";
	close;

L_Cherish:
	mes "[Brenda Howard]";
	mes "Try to cherish your";
	mes "family, especially through the";
	mes "hard times. Even when you're angry";
	mes "with them, try to be more";
	mes "understanding. I know it's hard...";
	close;

}

mjo_dun02.gat,88,295,3		script	Flaming Spirit Man	85,{
	//get rid of some pieces, to let player reborn in future
	if(signquest > 22) delitem 7177,countitem(7177);

	if(signquest > 62) goto L_Improve;
	if(signquest > 61) goto L_Hour;
	if(signquest > 60 && countitem(2644)) goto L_Sign;
	if(signquest > 22) goto L_Done;
	if(signquest == 21) goto L_Refine;
	if(signquest == 18 || signquest == 22) goto L_Check;
	if(signquest == 17)goto L_Family;
	emotion e_pif;
	mes "[Engel]";
	mes "I hope you understand that";
	mes "this forge isn't really open to the";
	mes "public. I'm doing some intensive";
	mes "training, so I'd appreciate it if";
	mes "you would just leave now.";
	close2;
	warp "mjo_dun02.gat",372,346;
	end;

L_Family:
	mes "[Engel]";
	mes "*Sigh*";
	mes "It's been a long";
	mes "time since I've seen";
	mes "my family. I really should let them";
	mes "know how I'm doing sooner or later.";
	mes "Hmmm...";
	next;
	mes "[Engel]";
	mes "...?";
	mes "Were you looking for me?";
	mes "I'm sorry, but I'm busy at the";
	mes "moment. Please don't disturb me";
	mes "while I try to get my work done.";
	if(signquest == 17 && countitem(7276))
{
	next;
	menu "I need your help.",L_Help,"Here is a letter for you.",L_Letter,"I am leaving, leaving.",-;
	mes "[Engel]";
	mes "Alright, then.";
	mes "Take care.";
	close;
}
	else
{
	close;
}

L_Help:
	mes "[Engel]";
	mes "Well, I'd like to help you";
	mes "but now isn't a good for me.";
	mes "Plenty of other good smiths out";
	mes "there who can help you with the";
	mes "work that you want done. Farewell.";
	close;

L_Letter:
	mes "[Engel]";
	mes "Oh, are you serious?";
	mes "Let me read it first.";
	next;
	mes "[Engel]";
	mes "Yes, yes...";
	mes "...Hahaha!";
	mes "It's so good to hear from";
	mes "my darling daughter.";
	delitem 7276,1;
	next;
	mes "[Engel]";
	mes "Thanks, I really appreciate that";
	mes "you've delivered this letter for";
	mes "me. Now, is there anything you'd";
	mes "like to ask of me? If it's not a";
	mes "big favor, I can probably help";
	mes "you.";
	next;
	menu "Please look at this.",-;
	mes "[Engel]";
	mes "Oh?";
	mes "Isn't this...?";
	mes "I see, I see!";
	next;
	mes "[Engel]";
	mes "Long ago, my old master told me";
	mes "that there are these strange ores";
	mes "that have fallen from the sky. The";
	mes "most beautiful and mysterious is";
	mes "the one shines just like a star.";
	next;
	mes "[Engel]";
	mes "Most people may know it as Sobbing";
	mes "Starlight, but my master used to";
	mes "call it God's Tear Drop.";
	next;
	mes "[Engel]";
	mes "However, this ore has been";
	mes "shattered into pieces. Judging from";
	mes "the smoothness of the edges, its";
	mes "inner power must have caused it to";
	mes "break apart. So you want to put";
	mes "this back together, don't you?";
	next;
	mes "[Engel]";
	mes "This will be a good challenge";
	mes "for me! However, I'll need some";
	mes "special tools and materials to";
	mes "repair this kind of ore. Now, I";
	mes "want you to bring me the following";
	mes "things...";
	next;
	mes "[Engel]";
	mes "^FF00005 Mini Furnace^000000,";
	mes "^FF00002 Oridecon Hammer^000000,";
	mes "and ^FF00001 good quality Anvil^000000.";
	mes "Now, keep in mind that ordinary";
	mes "anvils won't be good enough for";
	mes "this kind of work.";
	next;
	mes "[Engel]";
	mes "Now, an Emperium Anvil would be";
	mes "ideal for this job. I used to have";
	mes "one, but a while back I ended up";
	mes "giving it to someone. Anyway, I'll";
	mes "wait here for you while you gather";
	mes "everything you need.";
	next;
	mes "[Engel]";
	mes "Right. Let me guide you to a";
	mes "shortcut to the exit of these";
	mes "mines, just in case you don't know";
	mes "your way out of here. Good luck~";
	set signquest,18;
	close2;
	warp "mjo_dun02.gat",371,344;
	end;

L_Check:
	mes "[Engel]";
	mes "As I've told you before, I'm more";
	mes "likely to succeed in my work if I'm";
	mes "able to use a higher quality anvil.";
	mes "Let me see what you've";
	mes "brought.";
	next;
	if((countitem(612) > 4) && countitem(615) > 1){
		if(countitem(986)) { set signanvil,1; goto L_Forge1; }
		if(countitem(987)) { set signanvil,2; goto L_Forge2; }
		if(countitem(988)) { set signanvil,3; goto L_Forge3; }
		if(countitem(989)) { set signanvil,4; goto L_Forge4; }
	}

L_NotEnough:
	mes "[Engel]";
	mes "I'm sorry but you didn't";
	mes "bring me enough materials.";
	mes "I'll repeat you what you";
	mes "need to bring me.";
	next;
	mes "[Engel]";
	mes "^FF00005 Mini Furnace^000000,";
	mes "^FF00002 Oridecon Hammer^000000,";
	mes "and ^FF00001 good quality Anvil^000000.";
	mes "Now, keep in mind that ordinary";
	mes "anvils won't be good enough for";
	mes "this kind of work.";
	close;

L_Forge1:
	mes "[Engel]";
	mes "Ah...";
	mes "A normal Anvil.";
	mes "Err... I told you";
	mes "the better quality you";
	mes "bring, the better the";
	mes "result will be...";
	mes "Anyway, I will try.";
	delitem 986,1;
	goto L_Forge;

L_Forge2:
	mes "[Engel]";
	mes "Ah...";
	mes "An Oridecon Anvil.";
	mes "This isn't too bad,";
	mes "but there's a good risk";
	mes "that this might not work.";
	delitem 987,1;
	goto L_Forge;

L_Forge3:
	mes "[Engel]";
	mes "Ah...";
	mes "A Golden Anvil.";
	mes "Excellent.";
	mes "This anvil should be quite";
	mes "enough to perform the";
	mes "restoration.";
	delitem 988,1;
	goto L_Forge;

L_Forge4:
	mes "[Engel]";
	mes "Ah...";
	mes "An Emperium Anvil.";
	mes "Perfect!";
	mes "I didn't think you'd";
	mes "be able to find one as";
	mes "they are extremely rare.";
	mes "Sure, it will work!";
	delitem 989,1;
	goto L_Forge;

L_Forge:
	delitem 612,5;
	delitem 615,2;
	next;
	if(signquest == 22) goto L_Refine;
	mes "[Engel]";
	mes "While I'm working on this, would";
	mes "you deliver a letter to my family";
	mes "for me? I'm sorry, but please";
	mes "consider that I'm waiving the fee";
	mes "for restoring this Sobbing";
	mes "Starlight.";
	next;
	mes "[Engel]";
	mes "Well then...";
	mes "I wish you safety";
	mes "in your travels.";
	delitem 7177,5; //we'll delete all sobbing pieces later
	getitem 7278,1;
	set signquest,19;
	close;

L_Refine:
	if(signanvil == 1) set @signrefine,rand(100);
	if(signanvil == 2) set @signrefine,rand(60);
	if(signanvil == 3) set @signrefine,rand(40);
	if(signanvil == 4) set @signrefine,rand(30);
	mes "[Engel]";
	mes "Are you back already?";
	if(@signrefine <= 30) goto L_Success;
	mes "I am sorry but I failed";
	mes "restoring the Sobbing";
	mes "Starlight.. But it isn't";
	mes "a failure, bring me back";
	mes "the materials and I'll";
	mes "try again.";
	getitem 7177,7;
	set signquest,22;
	close;

L_Success:
	delitem 7177,countitem(7177); //we delete all the pieces, or else u can't reborn
	mes "While you were gone, I managed to";
	mes "restore the Sobbing Starlight. Why";
	mes "dont you go ahead and take a";
	mes "look?";
	next;
	getitem 7178,1;
	set signquest,23;
	specialeffect2 94;
	next;
	mes "[Engel]";
	mes "This was one of the most difficult";
	mes "jobs I've ever done. But look! It";
	mes "was beautiful when broken in";
	mes "fragments, but now it's absolutely";
	mes "dazzling! This was really worth the";
	mes "effort.";
	next;
	mes "[Engel]";
	mes "In any case, I worked really hard";
	mes "to do a good job on this, so I hope";
	mes "you treasure this Sobbing";
	mes "Starlight, young adventurer.";
	close;

L_Done:
	mes "[Engel]";
	mes "How have you been doing lately?";
	mes "Feel free to ask me if you ever";
	mes "think that you need my expertise,";
	mes "alright?";
	close;

L_Sign:
	mes "[Engel]";
	mes "How have you been";
	mes "doing lately? You seem";
	mes "very well. So is there anything";
	mes "I can help you with today?";
	next;
	menu "I need your help again.",-;
	mes "[Engel]";
	mes "Haha, so what have";
	mes "you brought me this time?";
	mes "It must be fairly important if";
	mes "you've brought it all the way";
	mes "down here.";
	next;
	menu "Please look at this.",-;
	mes "[Engel]";
	mes "Isn't this...?!";
	mes "Amazing, just by looking at it,";
	mes "I can feel its power! You really";
	mes "are something! How do you come";
	mes "across all of this amazing stuff?";
	next;
	mes "[Engel]";
	mes "You know, I consider myself";
	mes "lucky to even see this kind of";
	mes "stuff. Most smiths might be able to";
	mes "see this kind of thing only once in";
	mes "their entire lives. And to be able";
	mes "to work on it...";
	next;
	mes "[Engel]";
	mes "Hmmm...";
	mes "It's going to take quite";
	mes "a while to work on this.";
	mes "Unfortunately, I can't even";
	mes "give you a time estimate...";
	mes "But I'll do my best for you.";
	delitem 2644,1;
	set @engelhour,gettime(3);
	set @engelmin,gettime(2);
	if(@engelmin > 29) set @engelhour,@engelhour +1;
	set signengelhour,@engelhour + rand(2,4);
	if(signengelhour > 23) set signengelhour,signengelhour - 24;
	set signquest,62;
	close;

L_Hour:
	if(gettime(3) == signengelhour || gettime(3) == signengelhour +1 || gettime(3) == signengelhour +2)
{
	mes "[Engel]";
	mes "This is now yours to keep.";
	mes "Thank you for giving me the";
	mes "honor of working on a worthy";
	mes "smithing challenge.";
	getitem 2644,1;
	set signquest,63;
	close;
}
	else
{
	mes "[Engel]";
	mes "I haven't completed it yet, but";
	mes "please understand that I've got to";
	mes "be really careful when working with";
	mes "something so valuable. But don't";
	mes "worry, its inner power will be";
	mes "revealed when I'm finished.";
	close;
}

L_Improve:
	mes "[Engel]";
	mes "Sometimes, you can only";
	mes "improve yourself by training in";
	mes "solitude. But don't ever forget";
	mes "about the ones who really care";
	mes "about you. It's those people who";
	mes "make everything worth it.";
	close2;
	emotion e_dots;
	end;

}

gef_tower.gat,118,36,5	script	Annoyed Man	64,{


	if(signquest > 24) goto L_Answer;
	if(@sign_dhota == 1) goto L_Star;
	mes "[Dhota]";
	mes "Wah~";
	mes "Why the hell did he even go";
	mes "there...!";
	mes "What are you doing here?!";
	next;
	mes "[Dhota]";
	mes "Say what...?";
	mes "I have no idea what";
	mes "you're talking about!";
	mes "If you've got nothing";
	mes "to say, leave me alone!";
	if(signquest == 24) set @sign_dhota,1;
	close;

L_Star:
	mes "[Dhota]";
	mes "Eh?";
	mes "For that Sobbing Starlight, is that";
	mes "right?";
	next;
	mes "[Dhota]";
	mes "...";
	emotion e_dots;
	next;
	mes "[Dhota]";
	mes "...";
	mes "......";
	emotion e_dots;
	next;
	mes "[Dhota]";
	mes "...";
	mes "......";
	mes "BWAAAAH~!";
	emotion e_ag;
	next;
	mes "[Dhota]";
	mes "Right, he wants that guy";
	mes "who's good at working with";
	mes "gems and stuff. Eh, he's not";
	mes "here right now. Went somewhere";
	mes "near Comodo to investigate some";
	mes "tribal people or whatever.";
	emotion e_pif;
	set signquest,25;
	close;

L_Answer:
	mes "[Dhota]";
	mes "Hmmm...";
	mes "That can't be right...";
	mes "What could possibly be";
	mes "the answer I'm looking";
	mes "for...? *Sigh...*";
	emotion e_pif;
	close;
	
}

umbala.gat,163,256,3	script	Native	781,{

	if(event_umbala < 3) goto L_UmWord;
	if(signquest > 25) goto L_Thanks;
	if(signquest == 25) goto L_Sign;
	mes "[Laotan]";
	mes "All my friends have a new";
	mes "mask and I'm the only one";
	mes "who didn't get mine...";
	mes "Wh.. why? Waaaaaaah!";
	close;

L_Sign:
	mes "[Laotan]";
	mes "Mmmh...";
	mes "A new guy in our village?";
	mes "I think I know him! Yea, I do!";
	next;
	if(countitem(2278)) goto L_Mask;
	mes "[Laotan]";
	mes "Waaaait";
	mes "I knooow~!";
	mes "I know if you get me";
	mes "a Mr. Smile, okay?";
	close;

L_Mask:
	mes "[Laotan]";
	mes "Oh my gosh!";
	mes "You've got a Mr. Smile mask!";
	mes "Would you give that to me?";
	mes "Pretty please...?";
	next;
	menu "Sure~",L_Ok,"^FF0000No.^000000",-;
	mes "[Laotan]";
	mes "I...";
	mes "I was...";
	mes "I just...";
	mes "Waaaaaaahhhh!";
	close;

L_UmWord:
	mes "[??????]";
	mes "Umbaumbafumba.";
	mes "Uwambaunbaumbabaufumba";
	mes "Umbababaumbaumba.";
	close;

L_Ok:
	mes "[Laotan]";
	mes "Hooooray!";
	mes "Thank you thank you";
	mes "thank you thank you";
	mes "soooooooooo much!";
	delitem 2278,1;
	set signquest,26;
	next;
	mes "[Laotan]";
	mes "Oh right~!";
	mes "The weird man in the funny clothes";
	mes "was in our village for a while, but";
	mes "ever since he went into that big";
	mes "tree, nobody's seen him!";
	close;

L_Thanks:
	mes "[Laotan]";
	mes "I love my Mr. Smile mask";
	mes "soooo much! I'm gonna show";
	mes "it to all my friends! Thank you";
	mes "so much again! You're really";
	mes "really nice, you know that ?";
	close;	
}

um_in.gat,27,23,3	script	Weird Man	121,{

	if(signquest > 27) goto L_Done;
	if(signquest == 27) goto L_Check;
	mes "[Cyon]";
	mes "*Giggle*";
	mes "So, if I do this,";
	mes "then that and then...";
	mes "Ooh, these calculations";
	mes "are absolutely perfect!";
	emotion e_gg;
	next;
	mes "[Cyon]";
	mes "Wh-what?!";
	mes "Who are you?";
	mes "H-how did you get";
	mes "in here? I demand";
	mes "that you leave, right now!";
	emotion e_an;
	if(signquest == 26) goto L_Sign;
	close2;
	warp "um_dun01.gat",129,90;
	end;

L_Sign:
	next;
	menu "I'm here for Metz Brayde.",L_Metz,"My apologies.",L_Sorry,"Would you look at this?",-,"...",L_Leave;
	mes "[Cyon]";
	mes "What could be so";
	mes "special about what";
	mes "you've brought here?!";
	mes "Fine, you've picked my";
	mes "scientific curiosity...";
	next;
	mes "[Cyon]";
	mes "Sweet lord...";
	mes "This is 'God's Tear Drop'!";
	mes "The Sobbing Starlight!";
	mes "He finally made it...";
	next;
	mes "[Cyon]";
	mes "*Giggle*";
	mes "Well, since he's kept his promise";
	mes "I suppose that I should keep mine";
	mes "as well. Now within this Sobbing";
	mes "Starlight are these tiny letters...";
	next;
	mes "[Cyon]";
	mes "The text is so small that even";
	mes "Hunters skilled in Vulture's Eye";
	mes "are unable to read them. However,";
	mes "I've read that this Sobbing";
	mes "Starlight will respond";
	mes "to really old papers...";
	next;
	mes "[Cyon]";
	mes "Now, if we want to figure out";
	mes "what's written in the Sobbing";
	mes "Starlight, we'd need at least";
	mes "10 ancient pieces of paper...";
	set signquest,27;
	close;


L_Metz:
	mes "[Cyon]";
	mes "Huh? Brayde?";
	mes "Do you expect me";
	mes "to just trust you without";
	mes "a single shred of proof that";
	mes "he sent you? Get out now!";
	close;

L_Sorry:
	mes "[Cyon]";
	mes "If you're so sorry,";
	mes "then hurry up and get";	
	mes "out of here! Not just anyone";
	mes "is allowed in here! Leave!";
	emotion e_pif;
	close;

L_Leave:
	mes "[Cyon]";
	mes "Not listening, eh?";
	mes "Fine, if you don't";
	mes "understand words, then";
	mes "I'll have to use force!";
	mes "Get out here right now!";
	close2;
	percentheal -30,0;
	end;

L_Check:
	mes "[Cyon]";
	mes "You've come back.";
	mes "I hope you were able";
	mes "to find some ancient";
	mes "or really aged papers...";
	next;
	if (countitem(1097) > 6) goto L_Text;
	mes "[Cyon]";
	mes "You haven't found anything?";
	mes "What kind of scientist are you?";
	mes "Now go out and find some old and";
	mes "ancient papers so that we can learn";
	mes "what's written in the Sobbing";
	mes "Starlight! Go!";
	next;
	mes "[Cyon]";
	mes "...?";
	mes "Why are you still here?";
	mes "Leave and do what I told";
	mes "you to do, alright?! Don't";
	mes "make me get violent...";
	next;
	percentheal -30,0;
	close2;
	warp "um_dun01.gat",129,90;
	end;

L_Text:
	mes "[Cyon]";
	mes "How did you find these";
	mes "Worn Out Pages? This is great";
	mes "I'm sure the Sobbing Starlight";
	mes "will respond to these!";
	next;
	mes "[Cyon]";
	mes "Yes. Yes...";
	mes "This should be enough.";
	mes "Now give them to me";
	mes "and wait here while";
	mes "I try a few things...";
	next;
	delitem 1097,7;
	misceffect 72;
	next;
	mes "[Cyon]";
	mes "Just as I thought!";
	mes "The Sobbing Starlight is responding";
	mes "to these Worn Out Pages! Excellent!";
	mes "I've finally fulfilled my promise";
	mes "to Metz! Now he can leave";
	mes "me alone!";
	getitem 7275,1;
	set signquest,28;
	close;

L_Done:
	mes "[Cyon]";
	mes "My business with you is finished,";
	mes "so you go along on your way now.";
	mes "And tell Metz not to bother me";
	mes "anymore! I'm done doing favors!";
	close;
}

alberta.gat,165,83,3	script	Fastidious Old Man	755,{

	if(signquest > 30) goto L_Done;
	if(signquest == 30) goto L_Interpret;
	if(signquest == 29) goto L_Vision;
	mes "[Frank]";
	mes "My back~";
	mes "It's so sore!";
	mes "And my eyes are";
	mes "hurting worse and worse.";
	mes "^343434*Sigh* ^000000I'm getting old...";
	close;

L_Vision:
	mes "[Frank]";
	mes "My vision's getting";
	mes "blurrier and I get headaches";
	mes "when I read. I guess this old";
	mes "man's got no choice but to get";
	mes "some sort of seeing aid...";
	if(!countitem(2203))close;
	next;
	menu "Wait, I've got a pair of glasses...",L_Glasses,"Pass on by.",-;
	mes "[Frank]";
	mes "Oooh~";
	mes "How will I ever";
	mes "be able to continue";
	mes "my life's work? I'm";
	mes "helpless if I can't read...";
	close;

L_Glasses:
	mes "[Frank]";
	mes "Oh, you've brought me";
	mes "these Glasses. Thanks";
	mes "so much, youngster. Now that";
	mes "I can see better, what can";
	mes "I do for you in return?";
	delitem 2203,1;
	next;

L_Frank:
	menu "About Geffen's Hidden Power.",L_Power,"About Sobbing Starlight.",L_Star,"Interpret Ancient Document.",-;
	mes "[Frank]";
	mes "I don't believe it!";
	mes "This is... I see. You want me to";
	mes "translate this ancient language.";
	mes "Ah, you're rather fortunate. I'm";
	mes "probably the only person in the";
	mes "world who can translate this.";
	next;
	mes "[Frank]";
	mes "Hmm, as far as I can tell, this is";
	mes "a sophisticated language spoken by";
	mes "the ancient gods. It's complex and";
	mes "confusing, but I'll do my best for";
	mes "you. Come back to me later, and";
	mes "I'll tell you what I've learned.";
	set signquest,30;
	close;

L_Power:
	mes "[Frank]";
	mes "Geffen's hidden power?";
	mes "I don't know much about it, but I'm";
	mes "sure that Geffen Tower is more than";
	mes "just a simple building. I'm sure it";
	mes "was created to restrain or contain";
	mes "some powerful force.";
	next;
	mes "[Frank]";
	mes "It's even possible that the";
	mes "fountain in front of Geffen Tower";
	mes "also plays the same role, but I've";
	mes "got no hard evidence. Since I'm not";
	mes "too interested in Geffen, I haven't";
	mes "really investigated...";
	next;
	mes "[Frank]";
	mes "Still...";
	mes "There's a strong possibility that";
	mes "some enormous power is being sealed";
	mes "beneath the Geffen Tower.";
	next;
	goto L_Frank;

L_Star:
	mes "[Frank]";
	mes "The Sobbing Starlight?";
	mes "To the experts, it's known as God's";
	mes "Tear Drop. Now, some believe it was";
	mes "created from the voice of God.";
	next;
	mes "[Frank]";
	mes "Of course, it probably isn't made";
	mes "from God's voice or tear drops but";
	mes "who knows? In any case, it's said";
	mes "that something's written in the";
	mes "Sobbing Starlight. What ever it is,";
	mes "it must be something important.";
	next;
	goto L_Frank;

L_Interpret:
	set @sign_frank,rand(1,10);
	if(@sign_frank == 1)
{
	mes "[Frank]";
	mes "Well, I've written down the best";
	mes "translation that I could for you.";
	mes "It's been a long time since I've";
	mes "had this kind of challenge. Thanks,";
	mes "youngster.";
	mes "Ha ha ha~";
	delitem 7275,1;
	getitem 7274,1;
	set signquest,31;
	close;
}
	else
{
	mes "[Frank]";
	mes "I'm sorry, but I haven't finished";
	mes "translating this text. It's taking";
	mes "quite a long time since I don't";
	mes "have any reference material for";
	mes "this particular language. Why";
	mes "don't you come back later?";
	close;
}

L_Done:
	mes "[Frank]";
	mes "There are many things out";
	mes "there that defy out understanding";
	mes "of the world and are beyond our";
	mes "imagination. Many fear the unknown";
	mes "but the truly brave will always";
	mes "seek out the truth.";
	close;
}

// Himinn Part & Valkyrie

gef_fild07.gat,182,241,1	script	#himinnwarper	111,1,1,{

	if(signquest == 31 && countitem(7013) > 364 && countitem(953) > 11 && countitem(907) > 3) goto L_FirstClick;
	end;

L_FirstClick:
	mes "^657540It seems that";
	mes "something in the";
	mes "vicinity is reacting";
	mes "with the Sobbing Starlight";
	mes "in your possession. Perhaps";
	mes "you can find it nearby...^000000";
	close;

OnTouch:
	if(signquest > 31) goto L_Warp;
	if(signquest == 31 && countitem(7013) > 364 && countitem(953) > 11 && countitem(907) > 3) goto L_FirstTouch;
	end;

L_FirstTouch:
	mes "[" + strcharinfo(0) + "]";
	mes "What the...?";
	mes "What's happening?!";
	next;
	specialeffect2 9;
	mes "^3355FFFor some reason, in";
	mes "this particular spot, the";
	mes "Sobbing Starlight is reacting";
	mes "wit the Resin, Stone Hearts";
	mes "and Coral Reefs that you're";
	mes "holding. All the objects are";
	mes "violently resonating";
	next;
	specialeffect2 99;
	mes "All of a sudden these";
	mes "objects emit a bright flash";
	mes "of light that envelops your";
	mes "entire body, then you gently";
	mes "fall into unconsciousness...";
	close2;
	set signquest,32;
	delitem 7013,365;
	delitem 953,12;
	delitem 907,4;

L_Warp:
	warp "himinn.gat",49,10;
	end;
}

himinn.gat,48,86,5	script	Valkyrie#2	811,{

	if(signquest == 58) goto L_Done;
	if(signquest > 51) goto L_Gods;
	if(signquest > 50) goto L_Help;
	if(signquest > 32) goto L_Duty;
	mes "[Valkyrie Sandra]";
	mes "Welcome, " + strcharinfo(0) + " ,";
	mes "to this realm of holiness.";
	mes "You have endured great difficulty";
	mes "and tested your courage to obtain";
	mes "the Sobbing Starlight, which will";
	mes "be the certificate for your test.";
	next;
	menu "Test...?",-;
	mes "[Valkyrie Sandra]";
	mes "The gods have decided that";
	mes "you are worthy of undergoing";
	mes "a special test that will judge";
	mes "your merits. If you are a true";
	mes "hero who is pure of heart,";
	mes "you will certainly succeed...";
	next;
	mes "[Valkyrie Sandra]";
	mes "Now, there is a critical";
	mes "situation in the ^FF0000realm where";
	mes "the fallen warriors dwell^000000. The";
	mes "gods wish for you to restore the";
	mes "balance by quelling a specific";
	mes "evil influence in that place.";
	next;
	mes "[Valkyrie Sandra]";
	mes "There will be many obstacles.";
	mes "First, the fallen, who will target";
	mes "their anger and hatred towards";
	mes "you. Where they have failed to";
	mes "enter Valhalla, you have a rare";
	mes "and wondrous opportunity.";
	next;
	mes "[Valkyrie Sandra]";
	mes "Secondly, and more";
	mes "importantly, you must find";
	mes "this evil influence on your";
	mes "own. This will judge your";
	mes "ability to discern good from";
	mes "evil. Do not trust appearances...";
	next;
	mes "[Valkyrie Sandra]";
	mes "This is your task.";
	mes "I can't tell you more.";
	mes "It is now your duty to";
	mes "travel there and ferret";
	mes "out true darkness from";
	mes "one of the hearts there...";
	set signquest,33;
	close2;
	warp "geffen.gat",120,100;
	end;

L_Duty:
	mes "[Valkyrie Sandra]";
	mes "I commend your ability";
	mes "to survive in the realm";
	mes "of the dead. I imagine it";
	mes "must be very difficult for";
	mes "a mortal to endure its cruelty.";
	close;

L_Help:
	mes "[Valkyrie Sandra]";
	mes "Regrettably, I can't really";
	mes "provide any answers for you.";
	mes "You must overcome the ordeals";
	mes "of the gods on your own. All I can";
	mes "do is offer my guidance and prayer.";
	next;
	mes "[Valkyrie Sandra]";
	mes "Remember that the";
	mes "demonstration of your belief,";
	mes "rather than the decision to";
	mes "blindly adhere to faith, is";
	mes "what the gods want to see.";
	next;
	mes "[Valkyrie Sandra]";
	mes "Always step forward";
	mes "with wisdom and courage.";
	mes "That is all I can tell you.";
	set signquest,52;
	close;

L_Gods:
	mes "[Valkyrie Sandra]";
	mes "The gods are watching";
	mes "you. Prove your courage";
	mes "and at that moment, you";
	mes "will earn the honor of being";
	mes "selected by the gods.";
	close;

L_Done:
	mes "[Valkyrie Sandra]";
	mes "Welcome back.";
	mes "Not only have you passed the trials";
	mes "that the gods have set for you, you";
	mes "have tested your courage in the";
	mes "realm of the dead and protected";
	mes "Rune-Midgard from attack.";
	next;
	mes "[Valkyrie Sandra]";
	mes "I'm pleased to announce that the";
	mes "gods have been watching you and";
	mes "decided to invite you to Valhalla.";
	mes "However, Rune-Midgard still has";
	mes "great need of you.";
	next;
	mes "[Valkyrie Sandra]";
	mes "As a symbol of this promise to";
	mes "invite you to Valhalla, you shall";
	mes "be rewarded with 'The Sign' which";
	mes "will show all others that you are";
	mes "a great warrior whose courage was";
	mes "tested by the gods themselves.";
	next;
	mes "[Valkyrie Sandra]";
	mes "Congratulations,";
	mes "" + strcharinfo(0) + ". Verily,";
	mes "you are an honorable";
	mes "hero worthy of praise!";
	getitem 2644,1;
	set signquest,59;
	close;
}

// Niflheim Part & Realm of the Dead

niflheim.gat,102,54,4	script	Mad Man		739,{

	if(signquest > 53) goto L_Queen;
	if(signlaichin == 4) goto L_Where1;
	if(signlaichin == 3) goto L_Seal;
	if(signlaichin == 2) goto L_Direction;
	if(signlaichin == 1) goto L_Risk;
	if(signquest == 52) goto L_Help;
	if(signquest) goto L_Asgard;
	mes "[Laichin]";
	mes "What? I look familiar to you?";
	mes "Eh, you know what they say.";
	mes "Everyone has a lookalike in the";
	mes "world somewhere. Am I right";
	mes "or am I am right?";
	close;

L_Asgard:
	mes "[Laichin]";
	mes "Niflheim ain't such a bad";
	mes "place to live. Sure, Asgard's";
	mes "all pretty and stuff, but there's";
	mes "too many rules. In this place, you";
	mes "can enjoy a lot more freedom. After";
	mes "you get used to all the stink.";
	next;
	mes "[Laichin]";
	mes "Did I say 'stink'?";
	mes "I meant... 'fragrance'.";
	mes "Alright, so the gods expelled";
	mes "me, but I really oughtta thank";
	mes "'em for sending me here!";
	next;
	mes "[Laichin]";
	mes "What's that look for...?";
	mes "What, you can't believe";
	mes "that someone like me used";
	mes "to live in Valhalla? Me neither!";
	mes "They really made a mistake when";
	mes "they put me up to live in Asgard!";
	close;

L_Help:
	mes "[Laichin]";
	mes "Angrboda...?";
	mes "Yeah, yeah!";
	mes "I remember hearing something";
	mes "about her when I usedta hang";
	mes "with the gods up in Asgard.";
	next;
	mes "[Laichin]";
	mes "Yeah, those guys were pretty";
	mes "gangster about it. I mean, they";
	mes "took her soul, broke it in four";
	mes "pieces and stashed them in the";
	mes "deepest hole in Rune-Midgard.";
	next;
	mes "[Laichin]";
	mes "Sure, she was a giant, but";
	mes "they were pretty scared of her.";
	mes "All her children ended up to be";
	mes "legendary monsters! Well, I'm";
	mes "not sure if Lady Hell counts.";
	next;
	mes "[Laichin]";
	mes "That's pretty harsh.";
	mes "I mean, even if you die,";
	mes "your soul has no place";
	mes "to rest. Angrboda's soul is";
	mes "all cut up and stuff!";
	next;
	menu "So where are the soul pieces again?",-;
	mes "[Laichin]";
	mes "What...? I just said,";
	mes "the deepest place";
	mes "underground in Rune-Midgard.";
	mes "It's a dangerous joint";
	mes "protected by gangs";
	mes "of monsters.";
	next;
	mes "[Laichin]";
	mes "Wait, you're tellin' me";
	mes "that you're gonna find";
	mes "all of Angrboda's soul?!";
	mes "You're crazy! If they end up";
	mes "missing, the gods'll know I was";
	mes "the one who tipped you off!";
	set signlaichin,1;
	next;

L_Risk:
	mes "[Laichin]";
	mes "If I was gonna risk my soul,";
	mes "I'd wanna enjoy the rest of my";
	mes "afterlife as much as I could";
	mes "before the gods offed me. Man,";
	mes "I'd need at least 40.000 Zeny to";
	mes "even have a decent time...";
	next;
	menu "Pay Laichin 40.000 Zeny.",-,"Don't pay Laichin.",L_Pay;
	if(Zeny < 40000) goto L_NotEnough;
//Settings for the 4 seals you will have to break
Seal1:
	set Sign_Seal1,rand(1,8);
Seal2:
	set Sign_Seal2,rand(1,8);
	if(Sign_Seal2 == Sign_Seal1) goto Seal2;
Seal3:
	set Sign_Seal3,rand(1,8);
	if(Sign_Seal3 == Sign_Seal1 || Sign_Seal3 == Sign_Seal2) goto Seal3;
Seal4:
	set Sign_Seal4,rand(1,8);
	if(Sign_Seal4 == Sign_Seal1 || Sign_Seal4 == Sign_Seal2 || Sign_Seal4 == Sign_Seal3) goto Seal4;
//End of settings
	mes "[Laichin]";
	mes "Now we're talkin'!";
	mes "You're a true hero!";
	mes "Right, you gotta go to the";
	mes "lowest part of Glast Heim to";
	mes "find Angrboda's soul pieces.";
	next;
	mes "[Laichin]";
	mes "Check out the";
	set @signseal,1;
	callfunc "Sign_Seal";
	set @signseal,2;
	callfunc "Sign_Seal";
	set @signseal,3;
	callfunc "Sign_Seal";
	set @signseal,4;
	callfunc "Sign_Seal";
	mes "" + Sign_Seal1$ + ",";
	mes "" + Sign_Seal2$ + ",";
	mes "" + Sign_Seal3$ + " and the";
	mes "" + Sign_Seal4$ + ".";
	next;
	mes "[Laichin]";
	mes "Her soul pieces are really";
	mes "well hidden, so you gotta look";
	mes "around, even if know the";
	mes "general location, and don't";
	mes "tell anyone else about these";
	mes "locations or there'll be trouble.";
	next;
	menu "I promise.",-,"What do you mean by big and small?",L_Mean;
	set Zeny,Zeny - 40000;
	set signlaichin,2;
	close;

L_Mean:
	mes "[Laichin]";
	mes "What do I mean by";
	mes "big and small? Hey man,";
	mes "the answer to that is worth";
	mes "at least... 20.000 Zeny.";
	mes "If you wanna know,";
	mes "cough up the cash!";
	next;

L_Pay2:
	menu "Don't pay him.",L_NoPay,"Pay him.",-;
	if(signlaichin != 2) set Zeny,Zeny - 40000;
	if(Zeny < 20000) goto L_NotEnough2;
	mes "[Laichin]";
	mes "Alright, listen up.";
	mes "Big, small and very small";
	mes "mean the distances from the";
	mes "center of the map. So for big,";
	mes "I mean look near the border of";
	mes "the map. Easy, huh?";
	next;
	mes "[Laichin]";
	mes "When I say small, you";
	mes "gotta look in areas closer";
	mes "than the borders of the map.";
	mes "For very small, you gotta";
	mes "look near the center, got it?";
	set Zeny,Zeny - 20000;
	set signquest,53;
	set brokenseal,1;
	set signlaichin,3;
	close;
	

L_Pay:
	mes "[Laichin]";
	mes "Huh...?";
	mes "Okay pal.";
	close;

L_NotEnough:
	mes "[Laichin]";
	mes "Hey...";
	mes "This is sooo";
	mes "not enough money";
	mes "for me to enjoy myself";
	mes "if my soul ends up getting";
	mes "busted by the gods.";
	close;

L_NoPay:
	mes "[Laichin]";
	mes "Fine, fine.";
	mes "Just don't come";
	mes "crawling back when";
	mes "you can't figure out";
	mes "where the soul pieces are.";
	if(signlaichin != 2) set Zeny,Zeny - 40000;
	set signlaichin,2;
	close;

L_Direction:
	mes "[Laichin]";
	mes "Oh yeah, about those";
	mes "directions I gave you";
	mes "last time? They work,";
	mes "but you gotta know what I mean";
	mes "by 'big' or 'small' whatever";
	mes "o'clock means. That's right...";
	next;
	mes "[Laichin]";
	mes "Matter of fact, I'll";
	mes "tell you about it.";
	mes "Right after you pay me,";
	mes "oh, I don't know, ^FF000020.000 zeny^000000.";
	next;
	goto L_Pay2;

L_NotEnough2:
	mes "[Laichin]";
	mes "What is this?";
	mes "You tryin to wetch";
	mes "me or somethin'?";
	set signlaichin,2;
	close;

L_Seal:
	mes "[Laichin]";
	mes "Oh yeah, Uh, I forgot to tell";
	mes "you that Angrboda's soul pieces are";
	mes "sealed with the power of the gods.";
	mes "You can't just smash them open.";
	next;
	mes "[Laichin]";
	mes "...Or maybe you could.";
	mes "Anyway, it'll be better";
	mes "if you had a weapon that";
	mes "was solid, heavy and powerful.";
	next;
	mes "[Laichin]";
	mes "But yeah, think about";
	mes "what it means to break";
	mes "a godly seal. Remember there's";
	mes "^FF0000some kinda rule^000000 that the gods";
	mes "imposed which you gotta follow";
	mes "to release Angrboda's soul.";
	next;

L_Info:
	mes "[Laichin]";
	mes "Ah, right. If you wanna";
	mes "try different weapons for";
	mes "breaking those seals, make";
	mes "sure you got 'em in your";
	mes "inventory and that they're";
	mes "not equipped, alright?";
	next;
	menu "Thanks~",-,"Where am I supposed to go again?",L_Where;
	mes "[Laichin]";
	mes "Oh no...";
	mes "Thank you for all";
	mes "of this Zeny. Money";
	mes "might not be able to";
	mes "buy happiness but it";
	mes "sure comes real close!";
	set signlaichin,4;
	close;

L_Where:
	mes "[Laichin]";
	mes "Hey... You gotta go";
	mes "to the lowest part";
	mes "of Glast Heim to find all";
	mes "of Angrboda's soul pieces.";
	mes "Once you get there...";
	next;

L_Where1:
	mes "[Laichin]";
	mes "Check out the";
	mes "" + Sign_Seal1$ + ",";
	mes "" + Sign_Seal2$ + ",";
	mes "" + Sign_Seal3$ + " and the";
	mes "" + Sign_Seal4$ + ".";
	mes "And break those seals";
	mes "in that order, okay?";
	next;
	if(signlaichin == 4) goto L_Info;
	mes "[Laichin]";
	mes "Big, small and very small";
	mes "mean the distances from the";
	mes "center of the map. So for big,";
	mes "I mean look near the border of";
	mes "the map. Easy, huh?";
	next;
	mes "[Laichin]";
	mes "When I say small, you";
	mes "gotta look in areas closer";
	mes "than the borders of the map.";
	mes "For very small, you gotta";
	mes "look near the center, got it?";
	set signlaichin,4;
	close;

L_Queen:
	mes "[Laichin]";
	mes "Dude, Niflheim rocks.";
	mes "It's like, a million times";
	mes "better than the boring";
	mes "old Asgard. Hell yeah!";
	next;
	mes "[Laichin]";
	mes "Eh, I don't even wanna";
	mes "know if you manage to";
	mes "find all of Angrboda's soul";
	mes "pieces, but if you do, don't";
	mes "go bringin' close to me. If the";
	mes "gods find out you have 'em...";
	next;
	mes "[Laichin]";
	mes "But for the sake of";
	mes "argument, let's say you";
	mes "do happen to get them all.";
	mes "In that case, you oughta get";
	mes "Angrboda's soul to the Queen";
	mes "of Hell right away, alright?";
	next;
	mes "[Laichin]";
	mes "Ooh... But not just any";
	mes "yahoo can waltz up to her.";
	mes "The best thing would be to";
	mes "give it to one of her really";
	mes "trusted retainers, I guess.";
	mes "Now, who was he again?";
	next;
	mes "[Laichin]";
	mes "I know he's always in";
	mes "disguise as some sorta";
	mes "really ^C9CACBdespressing guy^000000";
	mes "and I can't remember his";
	mes "name for the life of me, but";
	mes "he's around here somewhere...";
	close;
}

function	script		Sign_Seal	{

	if(@signseal == 1) {
		if(Sign_Seal1 == 1) set Sign_Seal1$,"big 1 o'clock";
		if(Sign_Seal1 == 2) set Sign_Seal1$,"big 4 o'clock";
		if(Sign_Seal1 == 3) set Sign_Seal1$,"big 5 o'clock";
		if(Sign_Seal1 == 4) set Sign_Seal1$,"small 6 o'clock";
		if(Sign_Seal1 == 5) set Sign_Seal1$,"big 7 o'clock";
		if(Sign_Seal1 == 6) set Sign_Seal1$,"very small 11 o'clock";
		if(Sign_Seal1 == 7) set Sign_Seal1$,"big 11 o'clock";
		if(Sign_Seal1 == 8) set Sign_Seal1$,"small 11 o'clock";
	}
	if(@signseal == 2) {
		if(Sign_Seal2 == 1) set Sign_Seal2$,"big 1 o'clock";
		if(Sign_Seal2 == 2) set Sign_Seal2$,"big 4 o'clock";
		if(Sign_Seal2 == 3) set Sign_Seal2$,"big 5 o'clock";
		if(Sign_Seal2 == 4) set Sign_Seal2$,"small 6 o'clock";
		if(Sign_Seal2 == 5) set Sign_Seal2$,"big 7 o'clock";
		if(Sign_Seal2 == 6) set Sign_Seal2$,"very small 11 o'clock";
		if(Sign_Seal2 == 7) set Sign_Seal2$,"big 11 o'clock";
		if(Sign_Seal2 == 8) set Sign_Seal2$,"small 11 o'clock";
	}
	if(@signseal == 3) {
		if(Sign_Seal3 == 1) set Sign_Seal3$,"big 1 o'clock";
		if(Sign_Seal3 == 2) set Sign_Seal3$,"big 4 o'clock";
		if(Sign_Seal3 == 3) set Sign_Seal3$,"big 5 o'clock";
		if(Sign_Seal3 == 4) set Sign_Seal3$,"small 6 o'clock";
		if(Sign_Seal3 == 5) set Sign_Seal3$,"big 7 o'clock";
		if(Sign_Seal3 == 6) set Sign_Seal3$,"very small 11 o'clock";
		if(Sign_Seal3 == 7) set Sign_Seal3$,"big 11 o'clock";
		if(Sign_Seal3 == 8) set Sign_Seal3$,"small 11 o'clock";
	}
	if(@signseal == 4) {
		if(Sign_Seal4 == 1) set Sign_Seal4$,"big 1 o'clock";
		if(Sign_Seal4 == 2) set Sign_Seal4$,"big 4 o'clock";
		if(Sign_Seal4 == 3) set Sign_Seal4$,"big 5 o'clock";
		if(Sign_Seal4 == 4) set Sign_Seal4$,"small 6 o'clock";
		if(Sign_Seal4 == 5) set Sign_Seal4$,"big 7 o'clock";
		if(Sign_Seal4 == 6) set Sign_Seal4$,"very small 11 o'clock";
		if(Sign_Seal4 == 7) set Sign_Seal4$,"big 11 o'clock";
		if(Sign_Seal4 == 8) set Sign_Seal4$,"small 11 o'clock";
	}
	return;
}

niflheim.gat,313,70,3	script	Pleasant-Featured Lady	90,{

	if(signquest > 55) goto L_NoWord;
	if(Sign_Branch8A) goto L_Memory;
	if(Sign_Branch8B) goto L_BranchB;
	if(signquest > 54 && countitem(7305)) goto L_Give;
	if(signquest > 50) goto L_Symbol;
	if(signquest > 49) goto L_Valkyrie;
	if(signquest > 48) goto L_Info;
	if(signquest > 47) goto L_Look;
	if(signquest > 43) goto L_Survive;
	if(signquest > 42) goto L_Bard;
	if(signquest == 42) goto L_Thanks;
	if(signquest > 33) goto L_Help;
	if(Sign_Branch2B) goto L_Advice;
	if(signquest > 32) goto L_Sign;
	mes "[Serin]";
	mes "I'm sorry,";
	mes "but you're not";
	mes "the person I'm";
	mes "looking for. No...";
	close;

L_Sign:
	mes "[Serin]";
	mes "Kind adventurer...";
	mes "You're the one I'm looking";
	mes "for, the one who's been on a";
	mes "long journey to prove";
	mes "his courage.";
	next;
	mes "[Serin]";
	mes "Even in the darkness of";
	mes "Niflheim, I can recognize";
	mes "you. You shine out to me like";
	mes "a star! I beg of you, please";
	mes "listen to my story...";
	next;
	menu "I'm busy, sorry.",-,"Sure, go ahead.",L_Listen;

L_Sorry:
	mes "[Serin]";
	mes "I know I can't stop";
	mes "you from pursuing your";
	mes "path to glory. But if you";
	mes "should change your mind...!";
	close;

L_Listen:
	mes "[Serin]";
	mes "Thank you...";
	mes "Now, if you've heard";
	mes "from the others and as";
	mes "you can tell by my appearance";
	mes "I clearly don't belong here.";
	next;
	mes "[Serin]";
	mes "I might not have";
	mes "the luck to be selected";
	mes "by Valkyrie, but I need";
	mes "your help to get out of";
	mes "here as soon as I can~";
	next;
	menu "Er, I'm busy, now that I think about it.",L_Sorry,"Sure, let's do it.",-;
	mes "[Serin]";
	mes "I know I'm asking too much";
	mes "of you, but if you'd also help";
	mes "the other infortunate souls in";
	mes "this place, I'd be truly grateful.";
	mes "Somehow, I think solving their";
	mes "problems will help me get back.";
	next;
	menu "Sure, why not?",-,"Why should I help them?",L_Why;
	mes "[Serin]";
	mes "I knew you'd understand!";
	mes "You really are a kind person .";
	mes "Now, in order to help the other";
	mes "misfortunate in Niflheim, you've";
	mes "got to remember to gain their trust";
	mes "first and get close to them, okay?";
	set signquest,34;
	close;

L_Help:
	mes "[Serin]";
	mes "Hmm...?";
	mes "You don't know which";
	mes "people you need to help";
	mes "here in Niflheim? Mmm,";
	mes "let me think about it...";
	next;
	mes "[Serin]";
	mes "In this doomed place";
	mes "there isn't too much trust";
	mes "amongst some of the people";
	mes "here, but some will share their";
	mes "problems if you ^5131FFapproach them";
	mes "closely, face to face.^000000 Okay?";
	next;
	mes "[Serin]";
	mes "In this way, if they talk";
	mes "to you first, they might";
	mes "be more willing to accept";
	mes "help or tell you what you";
	mes "really need to know.";
	mes "I hope this helps...";
	close;

L_Thanks:
	mes "[Serin]";
	mes "Thank you so much for";
	mes "your help. This is all I have,";
	mes "and it means a lot to me, but";
	mes "I want you to have this ring. It's";
	mes "the only way I can properly express";
	mes "my gratitude for your aid so far.";
	getitem 2642,1;
	set signquest,43;
	close;

L_Bard:
	mes "[Serin]";
	mes "There's a Bard in";
	mes "Niflheim with a very";
	mes "sweet, yet melancholy voice.";
	mes "He sings for strangers just";
	mes "like you, adventurer.";
	next;
	mes "[Serin]";
	mes "I think he might know";
	mes "some useful information,";
	mes "so it might be a good";
	mes "idea to speak with him.";
	set signquest,44;
	close;

L_Survive:
	mes "[Serin]";
	mes "Hello, " + strcharinfo(0) + ",";
	mes "I'm surprised that";
	mes "you've managed to survive";
	mes "here all this time. It's no small";
	mes "feat for a mortal to be able to";
	mes "remain alive in Niflheim...";
	close;

L_Look:
	mes "[Serin]";
	mes "Ah, " + strcharinfo(0) + "~";
	mes "How is everything?";
	mes "Once again, I want to";
	mes "thank you for helping the";
	mes "poor souls in this place.";
	next;
	mes "[Serin]";
	mes "Hmm...?";
	mes "What's with that";
	mes "look on your face?";
	mes "Do you have something";
	mes "you want to ask me?";
	next;
	menu "Nothing.",-,"About the Queen of the Dead...",L_Queen;
	mes "[Serin]";
	mes "Well, if you ever";
	mes "need my help, please";
	mes "don't hesitate to ask.";
	close;

L_Queen:
	mes "[Serin]";
	mes "The Queen of the Dead?";
	mes "Well, she's the ruler of Niflheim.";
	mes "As Loki and Angrboda's last child";
	mes "she was given complete control of";
	mes "this realm by Odin.";
	next;
	mes "[Serin]";
	mes "She usually rules from her";
	mes "castle, Hell, but sometimes she";
	mes "goes out to tour Niflheim. That's";
	mes "all I really know about her.";
	next;
	menu "About the Symbol of Nine Realms",-;
	mes "[Serin]";
	mes "Oh that...?";
	mes "Sometimes it's called";
	mes "the Voucher of the Dead";
	mes "Odin gave it to the Queen";
	mes "of the Dead to signify her";
	mes "authority over Niflheim.";
	next;
	mes "[Serin]";
	mes "There are many rumors";
	mes "floating around about that";
	mes "and its abilities, but";
	mes "all we know for sure is that it can";
	mes "be used to command the dead...";
	next;
	menu "About Angrboda",-;
	mes "[Serin]";
	mes "Angrboda...?";
	mes "She's the mother of the";
	mes "Queen of Hell, as well as";
	mes "some of the most powerful";
	mes "monsters in this universe.";
	next;
	mes "[Serin]";
	mes "The gods feared her monstrous";
	mes "children so much that they bound";
	mes "them and sealed Angrboda away.";
	mes "Nothing has been heard";
	mes "of her since...";
	next;
	menu "I was told by the Witch that you're...",-;
	mes "[Serin]";
	mes "Oh, the Witch was";
	mes "talking about me? I'm";
	mes "aware that she doesn't";
	mes "think very highly of me.";
	mes "Then again, it's not like";
	mes "I can trust her either.";
	next;
	mes "[Serin]";
	mes "Well, it can't be helped.";
	mes "At least we both agree that";
	mes "somehow I don't really belong";
	mes "here in Niflheim.";
	emotion e_dots;
	set signquest,49;
	close;

L_Info:
	mes "[Serin]";
	mes "I'm sorry that I sort of";
	mes "rambling on and on that last";
	mes "time we spoke. Now that I think";
	mes "about it, I didn't really give you";
	mes "any information that might have";
	mes "been very useful to you.";
	next;
	mes "[Serin]";
	mes "But lately, I've heard that the";
	mes "Queen of the Dead is seeking her";
	mes "mother, Angrboda. It's strange that";
	mes "even the queen, with all her";
	mes "power, is unable to find her.";
	next;
	mes "[Serin]";
	mes "I have no idea how,";
	mes "but it seems that Angrboda";
	mes "have been sealed away in the";
	mes "world of Rune-Midgard...";
	emotion e_dots;
	set signquest,50;
	close;

L_Valkyrie:
	mes "[Serin]";
	mes "I've told you";
	mes "everything I know.";
	mes "But if you want to learn more";
	mes "about Angrboda, you probably need";
	mes "to talk to someone who actually";
	mes "communicates with the gods.";
	next;
	mes "[Serin]";
	mes "Perhaps Valkyrie";
	mes "or someone who actually";
	mes "lived in Asgard may know";
	mes "more about where Angrboda";
	mes "is sealed away.";
	next;
	mes "[Serin]";
	mes "Also, why would you want";
	mes "the Symbol of the Nine Realms?";
	mes "It's a very dangerous object that";
	mes "could cause a lot of trouble if it";
	mes "fell into the wrong hands...";
	next;
	menu "What do you mean?",-,"Don't worry, I won't.",L_Noworry;
	mes "[Serin]";
	mes "There are plenty of dead";
	mes "people in Niflheim that are";
	mes "driven by regret and despair.";
	mes "The rage of being dead may result";
	mes "in some of them performing horrific";
	mes "deeds if they are the symbol.";
	next;
	menu "Then what should I do?",-,"Thanks for the concern, but I'm not worried.",L_Noworry;
	mes "[Serin]";
	mes "I really think that you";
	mes "should bring that symbol";
	mes "to me before you show it to anybody";
	mes "else. Then, I want you to know why";
	mes "I really need its power.";
	next;
	mes "[Serin]";
	mes "I can't explain myself";
	mes "now, but I want to use the";
	mes "power of the symbol to do";
	mes "something really helpful";
	mes "for you. You'll just need";
	mes "to trust me on this.";
	set signquest,51;
	next;

L_Symbol:
	mes "[Serin]";
	mes "If you obtain";
	mes "the Symbol of Nine Realms,";
	mes "please bring it to me";
	mes "right away, " +strcharinfo(0) + ".";
	close;

L_Noworry:
	mes "[Serin]";
	mes "Alright...";
	mes "It's your decision.";
	close;

L_Memory:
	mes "^3355FFThis is only";
	mes "a lingering trace";
	mes "of Serin, a manifestation";
	mes "of her definitive memory.";
	close;

L_NoWord:
	mes "[Serin]";
	mes "...";
	mes "......";
	close;

L_Give:
	mes "[Serin]";
	mes "The Symbol of Nine Realms?";
	mes "Will you give it to me?";
	mes "You know this is the best";
	mes "to do, for all that people";
	mes "suffering silently in Niflheim...";
	next;
	menu "Yes, take it.",-,"No.",L_Keep;
	mes "[Serin]";
	mes "Thanks.";
	mes "I wouldn't have been able to";
	mes "get it without you. I knew you";
	mes "were a true hero.";
	delitem 7305,1;
	next;
	if(countitem(2642))
	{
	mes "[Serin]";
	mes "May I ask you if I can take a";
	mes "look at my beloved ring once";
	mes "again? I just want want to see";
	mes "it one more time...";
	delitem 2642,1;
	set signringreturning,1;
	next;
	mes "[Serin]";
	mes "I will return it too you";
	mes "shortly, for now let's";
	mes "focus on what we need to";
	mes "do.";
	next;
	}
	mes "[Serin]";
	mes "I have to make some";
	mes "preparations but I'll guide";
	mes "you to my house though.";
	mes "Please tell me when you are";
	mes "ready.";
	set Sign_Branch8B,1;
	close;

L_Keep:
	mes "[Serin]";
	mes "Ok, come back";
	mes "when you have realized";
	mes "this is the wisest choice";
	mes "to make.";
	close;

L_BranchB:
	if(signringreturning){ getitem 2643,1; set signringreturning,0; }
	mes "[Serin]";
	mes "I'll show you the way";
	mes "to their hope... Are you";
	mes "ready to come with me?";
	next;
	menu "Yes.",-,"No.",L_No;
	if(($signroom2full > 1) || getareausers("que_sign01.gat",229,77,166,12) > 0) goto L_Full;
	mes "[Serin]";
	mes "Please follow me";
	mes "......";
	close2;
	if(($signroom2full > 1) || getareausers("que_sign01.gat",229,77,166,12) > 0) end;
	donpcevent "#signserin2::OnSerin";
	donpcevent "#signserin2::OnCooldown";
	set $signroom2full,2;
	warp "que_sign01.gat",191,39;
	end;
	

L_No:
	mes "[Serin]";
	mes "Please hurry, we don't";
	mes "have any time to lose.";
	close;

L_Why:
	mes "[Serin]";
	mes "Do you really need a";
	mes "reason ? Well... Maybe";
	mes "you're right, they don't";
	mes "deserve to be helped~";
	next;

L_Advice:
	mes "[Serin]";
	mes "I advise you to meet that";
	mes "depressing person in Niflheim.";
	mes "He'll probably tell you his story";
	mes "and you might understand...";
	mes "Yes... You should meet him.";
	if(!Sign_Branch2B) set Sign_Branch2B,1;
	close;

L_Full:
	mes "[Serin]";
	mes "Please wait";
	mes "a bit. I'm still";
	mes "trying to finish";
	mes "these preparations.";
	close;

}

nif_in.gat,156,93,1	script	#signann	139,2,2,{

	if(signquest > 33) goto L_SignAnn;
	end;

L_SignAnn:
	if(signquest == 39) goto L_Sad;
	if(signquest == 38 && countitem(7309)) goto L_Crow;
	if(signquest == 36) goto L_Help;
	if(signquest > 34) goto L_Home;
	mes "[Alakina Ann]";
	mes "Where...Where am I...?";
	mes "I remember I was sleeping";
	mes "and when I woke up, I was here...";
	mes "Mommy, have you seen my mommy?";
	mes "I wanna go home...*Sob*";
	next;
	menu "About the witch.",L_Witch,"About the curse.",L_Curse,"Cancel",-;
	mes "[Alakina Ann]";
	mes "It's so cold in here...";
	mes "I'm freezing...";
	mes "And I wanna go home and";
	mes "get away from this scary place...";
	next;
	mes "[Alakina Ann]";
	mes "Please... help me.";
	mes "Could you take me with you...?";
	close;

L_Witch:
	mes "[Alakina Ann]";
	mes "Witch...? I've never seen a witch,";
	mes "but I've read about them in books.";
	mes "I'm not sure if they exist or not,";
	mes "but it would be so horrifying if";
	mes "they did...";
	next;
	mes "[Alakina Ann]";
	mes "Why is it so cold in here...?";
	mes "A-aren't you cold, or even scared?";
	mes "I wanna go home... It's warm over";
	mes "there. Could you help me get";
	mes "back... Please...? H-help me...";
	close;

L_Curse:
	mes "[Alakina Ann]";
	mes "A c-curse...?";
	mes "My grandma says there are lots";
	mes "of curses in the world. Some of";
	mes "them, you can tell it's a curse.";
	mes "But there are other curses that";
	mes "follow you throughout life...";
	next;
	mes "[Alakina Ann]";
	mes "Grandma says curses can take other";
	mes "forms... Like if someones's always";
	mes "mad at you, and won't forgive you,";
	mes "you can see that as a curse too.";
	next;
	mes "[Alakina Ann]";
	mes "My grandma told me there's only one";
	mes "spell that can break a strong curse";
	mes "that you can't lift with";
	mes "Blessings...";
	next;
	mes "[Alakina Ann]";
	mes "Klaatu...";
	mes "Verata...";
	mes "Ne...ni...umm...?";
	mes "What was the last part?";
	mes "I-I can't remember";
	mes "the last part of the spell!";
	next;
	mes "[Alakina Ann]";
	mes "If you repeat the spell in that";
	mes "order, it will release you from";
	mes "someone's anger and hate. And if";
	mes "you do it near a bad spirit, they";
	mes "might get the curse instead.";
	next;
	mes "[Alakina Ann]";
	mes "Why are you asking me about these";
	mes "scary kind of things...? I just";
	mes "wanna go home...";
	set signquest,35;
	close;

L_Home:
	mes "[Alakina Ann]";
	mes "*Cries*";
	mes "Where am I?";
	mes "I... I wanna go home~";
	emotion e_sob;
	close;

L_Help:
	mes "[Alakina Ann]";
	mes "W-Will you help me get";
	mes "back home? Please? I miss";
	mes "my mommy and my daddy and";
	mes "I don't know how I got here.";
	mes "*Snif*";
	next;
	menu "What can I do?",L_Ok,"You can't go back...",-;
	mes "[Alakina Ann]";
	mes "*Snif*";
	mes "N-no...";
	mes "I wanna go home...";
	close;

L_Ok:
	mes "[Alakina Ann]";
	mes "I dunno. I-I think a";
	mes "singing man told me to";
	mes "go meet a witch but it's";
	mes "too scary to go outside...";
	set signquest,37;
	close;

L_Crow:
	mes "[Alakina Ann]";
	mes "I... I can use";
	mes "this to go back home?";
	mes "Thank you! Thank you so much!";
	delitem 7309,1;
	set signquest,39;
	close;

L_Sad:
	mes "[Alakina Ann]";
	mes "Y-You lied to me!";
	mes "This wing doesn't do";
	mes "anything! I-I'm still here";
	mes "in this scary place! *Cries*";
	set signquest,40;
	close;

}

niflheim.gat,350,258,1	script	#signbruce	139,2,2,{

	if(signquest == 35 || Sign_Branch2B == 3) goto L_SignBruce;
	end;

L_SignBruce:
	mes "[Ashe Bruce]";
	mes "I sense you're cursed";
	mes "by a powerful spell...";
	mes "Hmm... It's clear what";
	mes "you must be up to...";
	next;
	mes "[Ashe Bruce]";
	mes "You wish to get";
	mes "rid of the curse...";
	mes "By giving it to me!!";
	next;
	mes "[Ashe Bruce]";
	mes "Just because I'm a cursed spirit,";
	mes "you adventurers think you can just";
	mes "dump your curses on me?!";
	emotion e_dots;
	next;
	mes "[Ashe Bruce]";
	mes "I refuse to let";
	mes "you remain there...";
	mes "Leave now, or I will";
	mes "remove you by force...";
	next;
	mes "[Ashe Bruce]";
	mes "...And...";
	mes "...Whatever you do...";
	mes "...Do NOT touch my books...";
	next;
	menu "Touch the 1st book.",L_Book1,"Touch the 2nd Book.",L_Book2,"Touch the 3rd book",L_Book3,"Okay, I am leaving.",-;
	mes "[Ashe Bruce]";
	mes "...";
	mes ".....";
	next;
	mes "[Ashe Bruce]";
	mes "Well then.";
	mes "Try not to trip on";
	mes "your feet in your";
	mes "rush to leave.";
	close;

L_Book1:
	mes "[Ashe Bruce]";
	mes "...!...";
	mes "How dare you touch my books";
	mes "when I specifically said";
	mes "'Don't touch my books!'";
	killmonster "niflheim.gat","#signbruce::Onmymob";
	monster "niflheim.gat",350,258,"Rideword",1478,1,"#signbruce::Onmymob";
	close;

L_Book2:
	mes "[Ashe Bruce]";
	mes "I said don't touch my booksssahhh...";
	mes "Get lost....";
	mes "Don't disrupt my restingggaaahh!!";
	close2;
	warp "niflheim.gat",34,162;
	end;

L_Book3:
	set @signbruce,0;
	mes "[Ashe Bruce]";
	mes "Muhahahaha...";
	mes "Stubborn mortal~!";
	mes "Fine! I will give you";
	mes "a fighting chance and let";
	mes "you cast a spell!";
	next;
L_Spell1:
	menu "Clover",L_Spell2,"Klaatu",-,"Kleitos",L_Spell2;
	set @signbruce,@signbruce + 1;

L_Spell2:
	menu "Verit",L_Spell3,"Veritas",L_Spell3,"Verata",-;
	set @signbruce,@signbruce + 1;

L_Spell3:
	menu "Necktie",L_Check,"Necklace",L_Check,"Nero",L_Check,"^FFFFFFNictu^000000",-;
	set @signbruce,@signbruce + 1;

L_Check:
	if (@signbruce == 3) goto L_Success;
	mes "[Ashe Bruce]";
	mes "Muhahahahahaha!";
	mes "That's not the right spell!";
	mes "Now death awaits you!";
	killmonster "niflheim.gat","#signbruce::Onmymob";
	monster "niflheim.gat",349,256,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",347,258,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",347,254,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",350,252,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",344,255,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",348,252,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim.gat",347,259,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	close;

L_Success:
	mes "[Ashe Bruce]";
	mes "That spell...";
	mes "You removed my curse?";
	mes "I don't believe it. I'm free!";
	next;
	mes "[Ashe Bruce]";
	mes "But do not underestimate";
	mes "my awesome powers! In fact,";
	mes "I command you to take this";
	mes "book and give it to that";
	mes "weak, pathetic witch!";
	if(signquest == 35) set signquest,36;
	if(Sign_Branch2B == 3) set Sign_Branch2B,4;
	getitem 7304,1;
	close;

Onmymob:
	end;

}
	
nif_in.gat,188,168,1	script	#signwitch	139,2,2,{

	if(signquest > 36) goto L_SignWitch;
	if(Sign_Branch2B > 1) goto L_Book;
	end;

L_SignWitch:
	if(signquest > 55 || sign_fail) end;
	if(Sign_Branch8A || Sign_Branch8B || countitem(7305)) goto L_Privacy;
	if(signquest > 46) goto L_Help;
	if(signquest > 45) goto L_Courage;
	if(signquest > 41) goto L_Think;
	if(signquest > 40) goto L_Tragic;
	if(signquest > 39) goto L_Crow;
	if(signquest > 37 || !countitem(7304)) end;
	mes "[Kirkena]";
	mes "W-what's this?";
	mes "Why is it that";
	mes "you have one of";
	mes "my lost spell books?";
	next;
	menu "From a cursed soul...",-;
	mes "[Kirkena]";
	mes "Oh. That bastard must have";
	mes "stolen my spell books and got";
	mes "cursed when he cast the spells";
	mes "without my permission. Still, it's";
	mes "a relief to have my spells back.";
	delitem 7304,1;
	next;
	mes "[Kirkena]";
	mes "So mortal...";
	mes "You must be here for";
	mes "some reason. Speak";
	mes "your mind.";
	next;
	menu "Send me back to my world.",-,"There's a lost child here that I want to help...",L_Child;
	mes "[Kirkena]";
	mes "Alright, you made the";
	mes "good choice... I mean...";
	mes "for your life...";
	close2;
	warp "umbala.gat",138,208;
	end;

L_Child:
	mes "[Kirkena]";
	mes "There's a living child?";
	mes "Here in Niflheim? That's";
	mes "most peculiar. Well, let me";
	mes "give you this. It will send";
	mes "a living human back to one";
	mes "of the towns in your realm.";
	set signquest,38;
	getitem 7309,1;
	close;

L_Crow:
	mes "[Kirkena]";
	mes "So did you already";
	mes "use the wing to save";
	mes "that poor, lost child?";
	next;
	mes "[Kirkena]";
	mes "What...?!";
	mes "It didn't work?";
	mes "That's impossible!";
	mes "Wait, give me a moment to";
	mes "think. What could be wrong?";
	set signquest,41;
	close;

L_Tragic:
	mes "[Kirkena]";
	mes "Alright.";
	mes "Now I understand";
	mes "why the wing didn't work";
	mes "for that poor girl...";
	next;
	mes "[Kirkena]";
	mes "She's so young that";
	mes "she doesn't even know";
	mes "that she's dead. It's tragic,";
	mes "but there's no way for her";
	mes "to get out of here...";
	set signquest,42;
	close;

L_Think:
	mes "[Kirkena]";
	mes "When people don't fully";
	mes "know the situation that";
	mes "they're in, they become more";
	mes "willing to take their chances.";
	close;

L_Courage:
	mes "[Kirkena]";
	mes "As I expected,";
	mes "there is something behind";
	mes "all of this. Now, you may";
	mes "know where you are, but";
	mes "do you understand why the";
	mes "dead are here?";
	next;
	mes "[Kirkena]";
	mes "This realm is a place";
	mes "for warriors that have failed";
	mes "to prove their courage. Keep in";
	mes "mind that it's not too late for";
	mes "you to join their ranks.";
	next;
	mes "[Kirkena]";
	mes "The realm of Niflheim";
	mes "is ruled by the Queen of the";
	mes "Dead. Sometimes she appears";
	mes "in her shining armor and makes the";
	mes "rounds. Everyone who sees her is";
	mes "stunned by the image of authority.";
	next;
	mes "[Kirkena]";
	mes "Now...";
	mes "What I need you to do is";
	mes "ask the Queen of the Dead";
	mes "for the Symbol of Nine Realms.";
	next;
	menu "What is that?",-;
	mes "[Kirkena]";
	mes "The symbol acts";
	mes "as a voucher of the queen's";
	mes "authority and represents her";
	mes "undeniable right to rule over";
	mes "the dead. But right now, I can't";
	mes "explain why I need it.";
	next;
	mes "[Kirkena]";
	mes "I'll tell you why I need";
	mes "it once you bring me the";
	mes "queen's symbol. Now, please";
	mes "keep this secret and tell no one";
	mes "that I asked you to bring the";
	mes "symbol to me.";
	set signquest,47;
	next;
	menu "Alright, I understand.",-,"How am I supposed to get the symbol?",L_Symbol;
	close;

L_Help:
	mes "[Kirkena]";
	mes "...Hm?";
	mes "Is there";
	mes "something that";
	mes "you need to ask to me?";
	next;
	menu "How can I get the symbol?",-;

L_Symbol:
	mes "[Kirkena]";
	mes "Taking the symbol";
	mes "by force is out of the";
	mes "question. Not even the gods";
	mes "would consider battling the";
	mes "Queen of the Dead.";
	next;
	mes "[Kirkena]";
	mes "You will need to";
	mes "earn the queen's favor";
	mes "in order to even have";
	mes "a chance of obtaining";
	mes "the Symbol of Nine Realms.";
	next;
	mes "[Kirkena]";
	mes "Now, there is a rumor";
	mes "that the Queen of the Dead";
	mes "is searching for her lost mother,";
	mes "Angrboda. Now, if you could find";
	mes "where Angrboda has been";
	mes "sealed away...";
	next;
	mes "[Kirkena]";
	mes "When you need to";
	mes "meet me from now on,";
	mes "go ahead and take passage";
	mes "through the right side of the";
	mes "portrait on the second";
	mes "floor of this castle.";
	set signquest,48;
	close;

L_Book:
	if(countitem(7304)) goto L_Found;
	if(Sign_Branch2B > 2) end;
	mes "[Kirkena]";
	mes "What are you doing here ?";
	mes "This is not a place for a";
	mes "mortal like you. I shall";
	mes "send you back to your realm.";
	next;
	mes "[Kirkena]";
	mes "Unfortunately, I lost my spell";
	mes "book and you should think of";
	mes "you as a very lucky person.";
	mes "I'm sure that bastard has stolen";
	mes "books and tried to use their power.";
	next;
	mes "[Kirkena]";
	mes "He has always dreamt to obtain";
	mes "my powers but if he thinks he'll";
	mes "get them this way... he's surely";
	mes "wrong.";
	next;
	mes "[Kirkena]";
	mes "Hey you, thank me for not";
	mes "sending you far away from here";
	mes "by finding my spell book !";
	set Sign_Branch2B,3;
	close;

L_Found:
	mes "[Kirkena]";
	mes "Ohh... This is my spell book.";
	mes "I wouldn't have thought of you";
	mes "to be brave enough to find it.";
	mes "There may be a place for you";
	mes "here after all...";
	delitem 7304,1;
	next;
	mes "[Kirkena]";
	mes "Listen to me.";
	mes "What I'm going to tell";
	mes "you is no small thing, it";
	mes "is about an entire realm.";
	mes "Believe me or not, I don't care.";
	next;
	goto L_Courage;

L_Privacy:
	mes "[Kirkena]";
	mes "This place isn't really";
	mes "good to talk about these";
	mes "kind of serious things. We";
	mes "should meet in privacy to make";
	mes "sure noone can hear us.";
	next;
	mes "[Kirkena]";
	mes "Please, hurry up and take";
	mes "the secret passage behind";
	mes "the right side of the portrait";
	mes "at second floor of my manor.";
	close;

}

nif_in.gat,105,81,1	script	#signcrayu	139,2,2,{

	if(signquest == 44) goto L_SignCrayu;
	end;

L_SignCrayu:
	mes "[Crayu]";
	mes "Mountain sunset to the west";
	mes "Where the purple dusk falls";
	mes "Surrounded by beautiful melody";
	mes "You become the key that ignores its";
	mes "master.";
	next;
	mes "[Crayu]";
	mes "Hello adventurer.";
	mes "I know this is rather";
	mes "abrupt, but what do";
	mes "you think of Serin?";
	next;
	menu "She's good.",-,"She's evil!",-,"She could go either way.",-;
	mes "[Crayu]";
	mes "Hm...?";
	mes "And why do";
	mes "you think so?";
	next;
	menu "Just my opinion.",-,"It's the truth!",-;
	mes "[Crayu]";
	mes "Ah, I understand.";
	mes "Now, how may I help you?";
	next;
	menu "What exactly is Niflheim?",-,"How do I become one of the chosen?",L_Chosen;
	mes "[Crayu]";
	mes "Niflheim is commonly";
	mes "known as the city of the";
	mes "dead, but it's also the";
	mes "resting place of warriors";
	mes "who failed to enter Valhalla.";
	next;
	mes "[Crayu]";
	mes "Some heroes may think";
	mes "of Niflheim as the tragic end,";
	mes "but it really all depends on";
	mes "your point of view.";
	close;

L_Chosen:
	mes "[" + strcharinfo(0) + "]";
	mes "What do I need";
	mes "to do to become one";
	mes "of the chosen warriors?";
	next;
	mes "[Crayu]";
	mes "First and foremost,";
	mes "you must prove your courage.";
	mes "It will be up to you to decide";
	mes "how you will demonstrate your";
	mes "bravery. The Gods will only";
	mes "be watching and judging.";
	next;
	mes "[Crayu]";
	mes "Hmm...";
	mes "I think it would";
	mes "be a good idea if";
	mes "you tald to someone";
	mes "in Niflheim named ^FF0000Gen^000000.";
	set signquest,45;
	close;

}

niflheim.gat,146,241,7	script	Depressing Man	735,{

	if(signquest > 56) goto L_Done;
	if(Sign_Branch8A > 3 || (Sign_Branch8B && Sign_Branch8B < 4)) goto L_Hurry;
	if(signquest > 54) goto L_Serin;
	if(signquest > 53) goto L_Queen;
	if(signquest) goto L_Seek;
	mes "[????]";
	mes "Leave me be,";
	mes "ruffian! I'm disinclined";
	mes "towards conversation";
	mes "at the moment.";
	close;

L_Seek:
	mes "[Gen]";
	mes "Huh... I hear you're";
	mes "looking for something";
	mes "pretty important. It's going";
	mes "to be a dangerous search.";
	next;
	mes "[Gen]";
	mes "There are plenty of";
	mes "other parties that are";
	mes "interested in the thing";
	mes "which you're seeking...";
	close;

L_Queen:
	mes "[Gen]";
	mes "You must be a very";
	mes "resourceful mortal.";
	mes "Not even Lady Hell, with";
	mes "all her power, could find";
	mes "the soul of her mother";
	mes "for a long time.";
	next;
	mes "[Gen]";
	mes "There's no need";
	mes "for me to hide";
	mes "my true identity any longer.";
	mes "My real name is Ganglati,";
	mes "servant of Lady Hell, the";
	mes "ruler of Niflheim.";
	next;
	mes "[Gen]";
	mes "Her highness would";
	mes "have words with you.";
	mes "Shall I send you to her";
	mes "mansion, Eljudnir,";
	mes "right now?";
	next;
	menu "Yes",-,"No",L_No;
	mes "[Gen]";
	mes "Remember to be";
	mes "careful and especially";
	mes "polite when you speak to";
	mes "Lady Hell. Otherwise, the";
	mes "consequences will be severe...";
	close2;
	warp "que_sign01.gat",45,20;
	end;

L_No:
	mes "[Gen]";
	mes "I understand.";
	mes "Meeting with a deity is";
	mes "no small matter. However,";
	mes "I advise to make haste";
	mes "as her highness is eager";
	mes "to see you soon.";
	close;

L_Serin:
	mes "[Gen]";
	mes "You must be most favored";
	mes "to receive the SYmbol of the";
	mes "Nine Realms. Of course, it";
	mes "can be used only once, but";
	mes "it is still a great honor.";
	next;
	mes "[Gen]";
	mes "Once again, I ask that";
	mes "you be on guard against";
	mes "Serin. She may already be";
	mes "aware of what you plan to";
	mes "do with the symbol...";
	close;

L_Hurry:
	mes "[Gen]";
	mes "You must hurry and";
	mes "stop the summoning";
	mes "before your world in";
	mes "cast into immense peril!";
	next;
	mes "[Gen]";
	mes "Although Lady Hell";
	mes "is being rather blase";
	mes "about this matter, I beseech";
	mes "you to do what you can for";
	mes "the realm of the living!";
	close;

L_Done:
	mes "[Gen]";
	mes "You've done a great";
	mes "job of stopping Serin.";
	mes "Excellent! Such great";
	mes "service on behalf of";
	mes "the realm of the living!";
	next;
	mes "[Gen]";
	mes "I'm pleased to inform";
	mes "you that you've been";
	mes "invited to Lady Hell's";
	mes "mansion once again.";
	mes "Are you ready to go?";
	next;
	menu "No, thanks.",L_No2,"Yes.",-;
	mes "[Gen]";
	mes "Good, good.";
	mes "Don't forget to";
	mes "speak to her highness";
	mes "with the utmost respect!";
	close2;
	warp "que_sign01.gat",45,20;
	end;

L_No2:
	mes "[Gen]";
	mes "I see.";
	mes "Well then, come";
	mes "back to me when you";
	mes "feel fully prepared.";
	close;

}

niflheim.gat,146,241,1	script	#signgen	139,2,2,{

	if(signquest == 45 || Sign_Branch2B == 1) goto L_SignGen;
	end;

L_SignGen:
	mes "[Gen]";
	mes "Are you here";
	mes "to prove your";
	mes "courage to the Gods?";
	next;
	mes "[Gen]";
	mes "You know, I was an";
	mes "adventurer myself. In fact,";
	mes "I even came here to Niflheim";
	mes "for the ordeals set by the gods.";
	mes "However, I failed and ended up";
	mes "being bound to this realm...";
	next;
	mes "[Gen]";
	mes "I just wanted to warn you.";
	mes "Be careful and don't justify";
	mes "your greed for any sort of reward";
	mes "using the excuse that you're just";
	mes "gonna prove your courage.";
	mes "That's what I did...";
	next;
	mes "[Gen]";
	mes "Anyway, I've already talked";
	mes "too much. First, go and see";
	mes "the witch and ask her to";
	mes "help you out, okay?";
	if(Sign_Branch2B) set Sign_Branch2B,2;
	if(signquest == 45) set signquest,46;
	close;

}

nif_in.gat,140,177,1	script	#signgrave	111,{

	if(signquest > 47 || countitem(7313) > 0)  warp "que_sign01.gat",115,135;
	end;

}

que_sign01.gat,122,141,5	script	Witch#2	792,{

	if(Sign_Branch8B && Sign_Branch8B < 4)goto L_MustHurry;
	if(signquest > 56) goto L_NoMedal;
	if(signquest > 55) goto L_Success;
	if((countitem(7313) > 0) && Sign_Branch8A < 4) goto L_Medal;
	if(Sign_Branch8A) goto L_BranchA;
	if(signquest > 54 && countitem(7305)) goto L_Symbol;
	if(signquest < 48) goto L_NoMedal;
	mes "[Kirkena]";
	mes "If you need to learn more";
	mes "about Angrboda, why don't you";
	mes "just ask around? I'm sure that";
	mes "everyone is aware that the queen";
	mes "is searching for her mother.";
	next;
	mes "[Kirkena]";
	mes "Once again, don't let";
	mes "anyone know that I've asked";
	mes "you to bring me the Symbol of";
	mes "Nine Realms. I especially";
	mes "dont want Serin to find out.";
	next;
	mes "[Kirkena]";
	mes "If I can help it,";
	mes "I won't tolerate";
	mes "Serin's presence here";
	mes "in Niflheim. If I could";
	mes "banish her, I'd do it!";
	close;

L_Symbol:
	mes "[Kirkena]";
	mes "The Symbol of Nine Realms?";
	mes "How were you able to get that?!";
	mes "Ah, you must have found the Queen";
	mes "of the Dead's mother, Angrboda,";
	mes "right? Great work~";
	next;
	mes "[Kirkena]";
	mes "Now, if you'll just";
	mes "hand me the symbol, I'll tell";
	mes "you what you need to do next.";
	next;
	menu "Give the symbol.",L_Give,"Don't give the symbol.",-;
	mes "[Kirkena]";
	mes "Don't worry about that.";
	mes "I'm sure you will come back";
	mes "later with the wise decision";
	mes "to give the symbol to me~";
	close;

L_Give:
	mes "[Kirkena]";
	mes "Listen carefully.";
	mes "Since you were actually";
	mes "able to get the symbol, I believe";
	mes "that you're the only person capable";
	mes "of performing this next task.";
	next;
	mes "[Kirkena]";
	mes "We're going to use this";
	mes "symbol to create something,";
	mes "but we need one last item.";
	mes "I need you to find something";
	mes "imbued with Serin's vibes.";
	next;
	mes "[Kirkena]";
	mes "Serin's already hid herself";
	mes "deep within Niflheim, but I'm";
	mes "sure you can find something";
	mes "if you can find any remaining";
	mes "trace of her.";
	delitem 7305,1;
	set Sign_Branch8A,1;
	close;

L_BranchA:
	if(sign_fail) goto L_NoMedal;
	if(Sign_Branch8A > 3) goto L_Serin;
	if(Sign_Branch8A > 2) goto L_Complete;
	if(Sign_Branch8A > 1) goto L_Potion;
	if(countitem(2642) < 1) goto L_Lack;
	mes "[Kirkena]";
	mes "This is Serin's gold ring?";
	mes "Excellent, this has been";
	mes "strongly infused with her";
	mes "vibes. It's really tough to find";
	mes "something like this that resonates";
	mes "so strongly with his owner.";
	next;
	delitem 2642,1;
	set serinring,1;
	set Sign_Branch8A,2;
	close;

L_Potion:
	mes "[Kirkena]";
	mes "Now that the potion I'm";
	mes "making is being processed,";
	mes "I can finally tell you what";
	mes "I've been trying to do";
	mes "with the objects I've asked you";
	mes "to get for me.";
	next;
	mes "[Kirkena]";
	mes "I didn't explain";
	mes "the reason I wanted the Symbol";
	mes "of Nine Realms to prevent Serin";
	mes "from getting suspicious and forcing";
	mes "you to reveal my plans. You see,";
	mes "Serin isn't fit for Niflheim.";
	next;
	mes "[Kirkena]";
	mes "Although she's in the";
	mes "world of the dead, Serin";
	mes "has never accepted death and";
	mes "has desired to return to life. Of";
	mes "course, That's the natural response";
	mes "for everyone that comes here...";
	next;
	mes "[Kirkena]";
	mes "However, unlike the others";
	mes "who have despaired, lost";
	mes "hope and accepted their fate,";
	mes "Serin has never given up her hope";
	mes "to return to life. With her hope";
	mes "she retains her beauty and light.";
	next;
	mes "[Kirkena]";
	mes "But she's only denying";
	mes "the fate she deserves.";
	mes "What she's trying to do";
	mes "is wrong and we need to";
	mes "stop before it's too late.";

L_Menu:
	next;
	menu "What does she want?",-,"What is she going to do?",L_Plans,"What should I do?",L_Should;
	mes "[Kirkena]";
	mes "Make no mistake:";
	mes "Serin wants the Symbol";
	mes "of the Nine Realms.";
	next;
	mes "[Kirkena]";
	mes "Now, if she could use it";
	mes "multiple times, she could just";
	mes "command the guards of Niflheim";
	mes "to just let her pass and re-enter";
	mes "the world of the living. But your";
	mes "symbol can be used just once...";
	goto L_Menu;

L_Plans:
	mes "[Kirkena]";
	mes "I believe Serin is going to";
	mes "summon the Dark Lord. Since";
	mes "she used to be a great wizard,";
	mes "it's entirely possible. However,";
	mes "she might need the Symbol of the";
	mes "Nine Realms in order to do it.";
	next;
	mes "[Kirkena]";
	mes "Now, you may believe that";
	mes "Dark Lord can be defeated by";
	mes "humans, but what you might not";
	mes "know is that the manifestation of";
	mes "Dark Lord in your world is limited";
	mes "to a fraction of his true power.";
	next;
	mes "[Kirkena]";
	mes "Sometimes, Dark Lord can";
	mes "cross over into Rune-Midgard,";
	mes "but travelling from his world into";
	mes "ours takes vast amounts of energy.";
	mes "Also the life force in your world";
	mes "conflicts with his dark powers.";
	next;
	mes "[Kirkena]";
	mes "Now, if the Dark Lord";
	mes "were summoned into Niflheim,";
	mes "he would have easy access";
	mes "to Rune-Midgard and the use";
	mes "of all of his destructive power.";
	next;
	mes "[Kirkena]";
	mes "Serin plans to strike";
	mes "a deal with Dark Lord.";
	mes "In exchange for summoning";
	mes "him to Niflheim, Serin will";
	mes "be brought back to life.";
	next;
	mes "[Kirkena]";
	mes "Although you've found";
	mes "favor with Lady Hell, she";
	mes "will probably not stop Dark";
	mes "Lord's approach. Dark Lord";
	mes "only wants Rune-Midgard.";
	next;
	mes "[Kirkena]";
	mes "Now that I think about";
	mes "it, massive death would";
	mes "actually increase Lady Hell's";
	mes "sphere of influence. I don't think";
	mes "she'll help Dark Lord, but she";
	mes "also won't get in his way.";
	goto L_Menu;

L_Should:
	mes "[Kirkena]";
	mes "I need you to take";
	mes "this tonic and have";
	mes "Serin drink it. This";
	mes "special potion will erase";
	mes "most of her memories.";
	next;
	mes "[Kirkena]";
	mes "Without her memories,";
	mes "Serin should also lose";
	mes "her twisted ambitions.";
	mes "Now, with the Symbol of Nine";
	mes "Realms, Serin cannot refuse";
	mes "drinking this potion.";
	next;
	mes "[Kirkena]";
	mes "That's why having the";
	mes "symbol is so crucial.";
	mes "Serin is clever enough";
	mes "to avoid drinking this";
	mes "for quite a while now...";
	set Sign_Branch8A,3;
	close;

L_Complete:
	mes "[Kirkena]";
	mes "The potion is finally";
	mes "completed. Now, take this";
	mes "and command Serin to drink it.";
	next;
		if(serinring > 0)
{
		mes "[Kirkena]";
		mes "Luckily, I was able to";
		mes "use Serin's gold ring to";
		mes "trace her location. I'm going";
		mes "to send you there, so please";
		mes "do whatever it takes to stop her.";
		next;
}
	mes "[Kirkena]";
	mes "Please take these with you";
	mes "as they'll probably be useful";
	mes "when you deal with her. As for";
	mes "these vouchers, give them to your";
	mes "allies. They'll send them straight";
	mes "to where Serin is located.";
	next;
	mes "[Kirkena]";
	mes "When you're finished";
	mes "dealing with Serin, don't";
	mes "forget to bring back all";
	mes "of the vouchers I've";
	mes "given you, alright?";
	getitem 7308,1;
	if(serinring > 0) getitem 2643,1;
	getitem 7313,5;
	set Sign_Branch8A,4;
	close;

L_Serin:
	if(($signroomfull > 1) || getmapusers("que_sign02.gat") > 0 || getareausers("que_sign01.gat",229,227,166,162) > 0) goto L_Full;
	if(countitem(2643) < 1) goto L_NoRing;
	mes "[Kirkena]";
	mes "You're finally";
	mes "back, we might not";
	mes "have enough time to";
	mes "stop her, but we have";
	mes "to try. Are you ready?";
	next;
	menu "Yes",-,"No",L_No;
	if(($signroomfull > 1) || getmapusers("que_sign02.gat") > 0 || getareausers("que_sign01.gat",229,227,166,162) > 0) goto L_Full;
	close2;
	donpcevent "#signserin::OnSerin";
	donpcevent "#signserin::OnCooldown";
	set $signroomfull,2;
	set $signparty,getcharid(1);
	warp "que_sign01.gat",195,189;
	end;

L_No:
	mes "[Kirkena]";
	mes "Hurry up, then!";
	mes "There's no time";
	mes "to waste!";
	close;

L_Full:
	mes "[Kirkena]";
	mes "Please wait";
	mes "a bit. I'm still";
	mes "trying to finish";
	mes "these preparations.";
	close;

L_Lack:
	mes "[Kirkena]";
	mes "Without a violent wave";
	mes "of Serin's feelings, I";
	mes "will not be able to";
	mes "lead you that close from";
	mes "her. Well... Nevermind. It will";
	mes "be enough.";
	set Sign_Branch8A,2;
	close;

L_NoRing:
	mes "[Kirkena]";
	mes "We've got to";
	mes "stop Serin before";
	mes "she does something";
	mes "truly horrible. Are";
	mes "you ready to go?";
	next;
	menu "Yes",-,"No",L_No;
	if(($signroomfull > 1) || getmapusers("que_sign02.gat") > 0 || getareausers("que_sign01.gat",229,227,166,162) > 0) goto L_Full;
	mes "[Kirkena]";
	mes "Okay then.";
	mes "Good luck,";
	mes "" + strcharinfo(0) + "...";
	close2;
	if(($signroomfull > 1) || getmapusers("que_sign02.gat") > 0 || getareausers("que_sign01.gat",229,227,166,162) > 0) end;
	donpcevent "#signserin::OnSerin";
	donpcevent "#signserin::OnCooldown";
	set $signroomfull,2;
	set $signparty,getcharid(1);
	warp "que_sign02.gat",35,313;
	end;

L_Medal:
	callfunc "Sign_Party";

L_NoMedal:
	if(signquest > 56) goto L_Done;
	if(sign_fail) goto L_Fail;
	mes "[Kirkena]";
	mes "...";
	close;

L_MedalOk:
	mes "[Kirkena]";
	mes "That Witch's Medal...";
	mes "You must be here to";
	mes "help your friend take";
	mes "care of Serin. Are you";
	mes "ready to go, " + strcharinfo(0) + "?";
	next;
	menu "Yes.",-,"Not yet...",L_Notyet;
	menu "Go directly to Serin.",-,"Path towards Serin.",L_Path;
	mes "[Kirkena]";
	mes "Thank you";
	mes "for your help.";
	mes "Serin's threat may";
	mes "be too much for just";
	mes "one adventurer alone...";
	close2;
	warp "que_sign01.gat",195,189;
	end;
	

L_Notyet:
	mes "[Kirkena]";
	mes "Please hurry...";
	mes "Time is of the essence...";
	close;

L_Path:
	mes "[Kirkena]";
	mes "Thank you";
	mes "for your help.";
	mes "Serin's threat may";
	mes "be too much for just";
	mes "one adventurer alone...";
	close2;
	warp "que_sign02.gat",35,313;
	end;

L_Success:
	if(countitem(7313) < 5 && Sign_Branch8A) goto L_Voucher;
	mes "[Kirkena]";
	mes "You've done well.";
	mes "Without her memories of her";
	mes "previous life, Serin can remain";
	mes "here in Niflheim peacefully.";
	next;
	mes "[Kirkena]";
	mes "Although she failed to return to";
	mes "life, I'm sure she is glad to have";
	mes "met you, I think she's also started";
	mes "to learn that life's meaning is not";
	mes "in living alone...";
	next;
	mes "[Kirkena]";
	mes "Once again, thank";
	mes "you so much for your";
	mes "help. Once you finish here,";
	mes "please visit our queen, Lady Hell.";
	mes "I believe she wants to see you for";
	mes "some reason...";
	delitem 7313,5;
	set BaseExp,BaseExp +297000;
	set signquest,57;
	close;

L_Voucher:
	mes "[Kirkena]";
	mes "Hmmm...?";
	mes "Where are all the";
	mes "vouchers I've lent to you?";
	mes "Please retrieve them all";
	mes "before coming back to me.";
	close;

L_Done:
	mes "[Kirkena]";
	mes "Hm? Still exploring";
	mes "Niflheim? Although you're";
	mes "strong enough to survive,";
	mes "I still think you're risking";
	mes "your life by remaining here";
	mes "when you don't have to.";
	close;

L_MustHurry:
	mes "[Kirkena]";
	mes "You must hurry to stop";
	mes "Serin from accomplishing her";
	mes "plan, otherwise your world";
	mes "will be cast in shadows for all";
	mes "eternity!";
	close;

L_Fail:
	if(sign_fail == 1)
	{
	mes "[Kirkena]";
	mes "Damn! Did you really let";
	mes "her finish her summoning?";
	mes "That's terrible! Does she";
	mes "even know that she will not";
	mes "have any memory of her past life?";
	next;
	}
	mes "[Kirkena]";
	mes "So much energy and time wasted";
	mes "for no rewards. I guess it";
	mes "can't be helped. Now, return";
	mes "to your world, and watch its";
	mes "silent death.";
	set sign_fail,2;
	close;

}

//Seals in Glast Heim Lowest Cave

gl_dun02.gat,262,265,1	script	Mysterious Energy	111,{

	if((brokenseal == 1 && Sign_Seal1 == 1) || (brokenseal == 2 && Sign_Seal2 == 1) || (brokenseal == 3 && Sign_Seal3 == 1) || (brokenseal == 4 && Sign_Seal4 == 1))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,270,98,1	script	Mysterious Energy#2	111,{

	if((brokenseal == 1 && Sign_Seal1 == 2) || (brokenseal == 2 && Sign_Seal2 == 2) || (brokenseal == 3 && Sign_Seal3 == 2) || (brokenseal == 4 && Sign_Seal4 == 2))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,268,31,1	script	Mysterious Energy#3	111,{

	if((brokenseal == 1 && Sign_Seal1 == 3) || (brokenseal == 2 && Sign_Seal2 == 3) || (brokenseal == 3 && Sign_Seal3 == 3) || (brokenseal == 4 && Sign_Seal4 == 3))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,139,72,1	script	Mysterious Energy#4	111,{

	if((brokenseal == 1 && Sign_Seal1 == 4) || (brokenseal == 2 && Sign_Seal2 == 4) || (brokenseal == 3 && Sign_Seal3 == 4) || (brokenseal == 4 && Sign_Seal4 == 4))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,16,26,1	script	Mysterious Energy#5	111,{

	if((brokenseal == 1 && Sign_Seal1 == 5) || (brokenseal == 2 && Sign_Seal2 == 5) || (brokenseal == 3 && Sign_Seal3 == 5) || (brokenseal == 4 && Sign_Seal4 == 5))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,120,180,1	script	Mysterious Energy#6	111,{

	if((brokenseal == 1 && Sign_Seal1 == 6) || (brokenseal == 2 && Sign_Seal2 == 6) || (brokenseal == 3 && Sign_Seal3 == 6) || (brokenseal == 4 && Sign_Seal4 == 6))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,42,251,1	script	Mysterious Energy#7	111,{

	if((brokenseal == 1 && Sign_Seal1 == 7) || (brokenseal == 2 && Sign_Seal2 == 7) || (brokenseal == 3 && Sign_Seal3 == 7) || (brokenseal == 4 && Sign_Seal4 == 7))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}

gl_dun02.gat,124,231,1	script	Mysterious Energy#8	111,{

	if((brokenseal == 1 && Sign_Seal1 == 8) || (brokenseal == 2 && Sign_Seal2 == 8) || (brokenseal == 3 && Sign_Seal3 == 8) || (brokenseal == 4 && Sign_Seal4 == 8))
{
		callfunc "Break_Seal";
		mes "^3355FFThe weapon you're holding";
		mes "right now doesn't look like it has";
		mes "any chance of breaking this seal.";
		mes "You'll definitely need something";
		mes "more powerful...";
		close;
}
	else
{
	mes "^3355FFYou sense a strange";
	mes "mysterious energy emanating from";
	mes "this area. For some reason, this";
	mes "power strikes you with a faint";
	mes "feeling of sadness.";
	close;
}

}



function	script	Break_Seal	{

	getinventorylist;
	set @i,-1;
L_Check:
	set @i,@i+1;
	if(getiteminfo(@inventorylist_id[@i],13) == 4) goto L_Break;
	if(@i < @inventorylist_count -1) goto L_Check;
	return;

L_Break:
	set @sealbreak,rand(100);
	if(@sealbreak < 11) goto L_Broken;
	mes "^3355FFYou hit the seal as hard";
	mes "as you can with the weapon in your";
	mes "hand. However, the seal is merely";
	mes "shaken by the force of your blow.";
	mes "Perhaps you need something";
	mes "more powerful to break the seal...";
	close;

L_Broken:
	mes "^3355FFOnce you strike the seal,";
	mes "it cracks open and a flash of";
	mes "mysterious light floods out of it.";
	mes "Inside of the seal, you find a very";
	mes "peculiar object...";
	next;
	set brokenseal,brokenseal +1;
	set @sealbreak,0;
	if(brokenseal > 4) goto L_Soul;
	mes "You have";
	mes "obtained a";
	mes "^C9CACBPiece of Spirit.^000000";
	getitem 7306,1;
	close;

L_Soul:
	mes "^3355FFUpon obtaining the last piece";
	mes "of Angrboda's soul, all four soul";
	mes "pieces emitted a strange light,";
	mes "rose to the air and combined into";
	mes "a single transparent jewel.";
	next;
	mes "^3355FFThe jewel floated";
	mes "down to your waiting";
	mes "hands, and you hear its";
	mes "voice speak directly into";
	mes "the depths of your heart...^000000";
	next;
	mes "[Angrboda's Soul]";
	mes "I'm...";
	mes "I'm leaving my soul";
	mes "with you. Please guide";
	mes "me to the queen of the dead...";
	delitem 7306,4;
	getitem 7307,1;
	set signquest,54;
	close;
}

//End of Seals

que_sign01.gat,46,55,1	script	Fountain	111,{
	if(signquest > 54) goto L_Bottle;
	mes "^3355FFThe water in this";
	mes "fountain looks clean";
	mes "enough to drink...";
	next;
	menu "Drink.",-,"Don't Drink.",L_No;
	mes "...";
	close2;
	percentheal -100,0;
	end;
	
L_No:
	mes "...";
	close;

L_Bottle:
	mes "^3355FFThe water in this";
	mes "fountain looks clean";
	mes "enough to be bottled...";
	next;
	menu "Bottle.",-,"Don't bottle.",L_No;
	if(!countitem(713))goto L_Nobottle;
	delitem 713,1;
	getitem 12020,1;
	close;

L_Nobottle:
	mes "^3355FFUnfortunately, it";
	mes "looks like you don't";
	mes "have any Empty Bottles";
	mes "to carry any of this water...";
	close;

}

que_sign01.gat,45,227,5	script	Queen of the Dead	856,{

	if(signquest > 65) goto L_Greet;
	if(signquest > 64) goto L_Work;
	if(signquest > 63) goto L_Sense;
	if(signquest > 54) goto L_Power;
	mes "[Lady Hell]";
	mes "^881010I have been told";
	mes "by Ganglati that you";
	mes "are the mortal that has";
	mes "guided Mother's soul to me.";
	next;
	mes "[Lady Hell]";
	mes "^881010Do not fear me,";
	mes "hero of Rune-Midgard.";
	mes "You have won the favor";
	mes "of the Queen of the Dead";
	mes "and may ask me of any";
	mes "reward if I deem it fair.";
	next;
	mes "[Lady Hell]";
	mes "^881010The true Symbol of the";
	mes "of Nine Realms cannot be freely";
	mes "given or lent. However, I sense";
	mes "your purpose and will give you";
	mes "a symbol imbued with enough";
	mes "power to be used only once.";
	next;
	mes "[Lady Hell]";
	mes "^881010With the symbol I give you,";
	mes "you can command the dead to";
	mes "carry out your will without";
	mes "question. However, keep in";
	mes "mind that after one use,";
	mes "its power will be consumed.";
	next;
	mes "[Lady Hell]";
	mes "^881010I have also decided";
	mes "to reward you with one";
	mes "more special permission.";
	mes "You may now freely draw";
	mes "water from the fountain";
	mes "in my mansion, brave hero.";
	next;
	mes "^3355FFYou received";
	mes "the Symbol of the Nine Realms.";
	delitem 7307,1;
	getitem 7305,1;
	set signquest,55;
	close;

L_Power:
	mes "[Lady Hell]";
	mes "^881010Greetings, mortal.";
	mes "Make sure that you";
	mes "use the power of the";
	mes "symbol wisely. You will";
	mes "be responsible for the";
	mes "consequences...";
	if(signquest == 57) set signquest,58;
	close;

L_Sense:
	mes "[Lady Hell]";
	mes "^881010Ah.";
	mes "You are the";
	mes "mortal called";
	mes "" + strcharinfo(0) + ", are you not?";
	mes "Yes, you are known to me.";
	next;
	mes "[Lady Hell]";
	mes "^881010I've wanted to see you";
	mes "as I've sensed that you";
	mes "carry something which feels";
	mes "very familiar to me. Do you";
	mes "have something extraordinarily";
	mes "special in your possesion?";
	next;
	if(countitem(2644) && countitem(7178)) menu "The Sign",L_Sign,"Sobbing Starlight",-;
	if(!countitem(2644) && countitem(7178)) menu "Sobbing Starlight",-;
	if(countitem(2644) && !countitem(7178)) menu "The Sign",L_Sign;
	mes "[Lady Hell]";
	mes "^881010Yes, that's it!";
	mes "I never expected a mortal";
	mes "to have such an interesting";
	mes "artifact in his possession.";
	next;
	mes "[Lady Hell]";
	mes "^881010As queen of Niflheim,";
	mes "I command you to lend the";
	mes "Sobbing Starlight to me! Fear";
	mes "not, I shall quickly return it. For";
	mes "a mortal, it must have";
	mes "taken great pains to obtain";
	mes "this...";
	next;
	menu "Please take it...",-,"N-no! Don't take it!",L_No;
	mes "[Lady Hell]";
	mes "^881010Thank you mortal.";
	mes "Now, I shall show";
	mes "you something truly";
	mes "interesting...";
	delitem 7178,1;
	set signquest,65;
	close;

L_Sign:
	mes "[Lady Hell]";
	mes "^881010The Sign...?";
	mes "Hmm, no, that's not";
	mes "what I sensed. It's actually";
	mes "something quite different...";
	close;

L_No:
	mes "[Lady Hell]";
	mes "^881010Ha ha ha!";
	mes "You amuse me,";
	mes "mortal! To think,";
	mes "you even have courage";
	mes "to refuse the queen of";
	mes "Niflheim! Ha ha ha!";
	next;
	mes "[Lady Hell]";
	mes "^881010Mercy is not a quality";
	mes "that I am known for, but";
	mes "since you are my favored";
	mes "mortal, I shall not kill you.";
	mes "Still, it would be unwise";
	mes "to displease me~";
	close2;
	warp "niflheim.gat",29,154;
	end;

L_Work:
	mes "[Lady Hell]";
	mes "^881010As queen of this realm";
	mes "I am unaccustomed to labor.";
	mes "But give me a moment to finish";
	mes "my work on this priceless";
	mes "artifact, mortal.";
	next;
	misceffect 13;
	next;
	misceffect 32;
	next;
	misceffect 183;
	next;
	misceffect 90;
	next;
	mes "[Lady Hell]";
	mes "^881010It is done.";
	mes "This is the true";
	mes "form of the object";
	mes "you humans call the";
	mes "Sobbing Starlight.";
	next;
	mes "[Lady Hell]";
	mes "^881010Although you may also know";
	mes "this object as God's Tear Drop,";
	mes "keep in mind that history, as you";
	mes "humans know it, may actually be";
	mes "different than the truth.";
	getitem 7025,1;
	set signquest,66;
	next;
	mes "[Lady Hell]";
	mes "^881010In other words, there";
	mes "are some older tales about";
	mes "the gods and their enemies that";
	mes "may have been confused and twisted";
	mes "as they were handed down from";
	mes "generation to generation.";
	next;
	mes "[Lady Hell]";
	mes "^881010That is all I can tell";
	mes "you for now, mortal. It will";
	mes "be your job to discover the";
	mes "truth of the legends...";
	close;

L_Greet:
	mes "[Lady Hell]";
	mes "^881010Greetings, mortal.";
	mes "Is the realm of the living";
	mes "that boring and tedious?";
	mes "Ha ha ha! Well, there shall";
	mes "always be a place for you";
	mes "here in Niflheim.";
	close;

}

que_sign01.gat,1,1,1	script	#signserin	-1,{

OnInit:
	disablenpc "Serin#serin";
	set $signroomfull,0;
	set $signparty,0;
	end;

OnSerin:
	enablenpc "Serin#serin";
	end;

OnSummon:
	disablenpc "Serin#serin";
	set $@Sign_Summon,8;
	areamonster "que_sign01.gat",188,184,205,205,"Rotten Corpse",1036,3,"#signserin::OnSignDead";
	areamonster "que_sign01.gat",188,184,205,205,"Ancient Wraith",1192,2,"#signserin::OnSignDead";
	areamonster "que_sign01.gat",188,184,205,205,"Ancient Mummy",1297,2,"#signserin::OnSignDead";
	areamonster "que_sign01.gat",188,184,205,205,"Dark Lord Incarnation",1302,1,"#signserin::OnSignDead";
	end;

OnSignDead:
	set $@Sign_Summon,$@Sign_Summon -1;
	if($@Sign_Summon > 0) end;
	set Sign_Branch8A,8;
	set $signroomfull,3;
	stopnpctimer;
	goto OnSerin;

OnCooldown:
	initnpctimer;
	end;

OnTimer600000:
	disablenpc "Serin#serin";
	killmonster "que_sign01.gat","#signserin::OnSignDead";
	set $signroomfull,1;
	areawarp "que_sign01.gat",229,227,166,162,"niflheim.gat",30,156;
	areawarp "que_sign02.gat",1,1,400,400,"niflheim.gat",30,156;
	stopnpctimer;
	end;
}

que_sign01.gat,1,1,1	script	#signserin2	-1,{

OnInit:
	disablenpc "Serin#serin2";
	set $signroom2full,0;
	end;

OnSerin:
	enablenpc "Serin#serin2";
	end;

OnSummon:
	disablenpc "Serin#serin2";
	set $@Sign_Summon2,8;
	areamonster "que_sign01.gat",188,34,205,55,"Rotten Corpse",1036,3,"#signserin2::OnSignDead";
	areamonster "que_sign01.gat",188,34,205,55,"Ancient Wraith",1192,2,"#signserin2::OnSignDead";
	areamonster "que_sign01.gat",188,34,205,55,"Ancient Mummy",1297,2,"#signserin2::OnSignDead";
	areamonster "que_sign01.gat",188,34,205,55,"Dark Lord Incarnation",1302,1,"#signserin2::OnSignDead";
	end;

OnSignDead:
	set $@Sign_Summon2,$@Sign_Summon2 -1;
	if($@Sign_Summon2 > 0) end;
	set Sign_Branch8B,4;
	set $signroom2full,3;
	stopnpctimer;
	goto OnSerin;

OnCooldown:
	initnpctimer;
	end;

OnTimer600000:
	disablenpc "Serin#serin2";
	killmonster "que_sign01.gat","#signserin2::OnSignDead";
	set $signroom2full,1;
	areawarp "que_sign01.gat",229,77,166,12,"niflheim.gat",30,156;
	stopnpctimer;
	end;
}

que_sign01.gat,197,195,5	script	Serin#serin	90,{

	if(signquest > 55) goto L_Done;
	if(Sign_Branch8A > 7) goto L_Success;
	if(Sign_Branch8A > 6) goto L_TryAgain;
	if(Sign_Branch8A > 4) goto L_Summon;
	if(Sign_Branch8A < 4) goto L_NoWord;
	mes "[Serin]";
	mes "You're finally here.";
	mes "That witch has been watching";
	mes "my every move, so she probably";
	mes "knows what I'm up to by now...";
	next;
	menu "Why are you doing this...",-;
	mes "[Serin]";
	mes "You don't understand";
	mes "the horrific experience";
	mes "of being bound to Niflheim.";
	mes "I'm sick of breathing death";
	mes "and feeding on despair.";
	mes "I want to live again!";
	next;
	menu "Is that why you want Dark Lord...?",-;
	mes "[Serin]";
	mes "Unfortunately, the symbol";
	mes "which Lady Hell gave you is";
	mes "limited to a one time use. Its";
	mes "power wasn't enough to bring me";
	mes "back, so summoning Dark Lord is";
	mes "my last chance.";
	next;
	menu "But if Dark Lord comes to Rune-Midgard...",-;
	mes "[Serin]";
	mes "Oh, I'm pretty sure of";
	mes "what will happen if Dark Lord";
	mes "enters the realm of the living.";
	mes "He'll destroy Rune-Midgard and";
	mes "bring death to thousands and";
	mes "thousands of people.";
	next;
	mes "[Serin]";
	mes "So if I came back to life";
	mes "and everyone else were dead,";
	mes "however, by summoning Dark";
	mes "Lord, you might be thinking it'd be";
	mes "pretty pointless for me to come";
	mes "back. But I don't care.";
	next;
	mes "[Serin]";
	mes "The living don't appreciate";
	mes "what they have, so they ought";
	mes "to be punished. They can all go to";
	mes "Niflheim while I enjoy the warmth";
	mes "of the sun and the fresh outside";
	mes "air. Everyone should die...";
	next;
	mes "[Serin]";
	mes "Maybe you might not";
	mes "pity my situation since you've";
	mes "never been bound to Niflheim,";
	mes "but I'm begging you. Don't get";
	mes "in my way, " +strcharinfo(0) + ".";
	next;
	menu "I can't let you do this!",-,"Okay, have it your way.",L_Go;
	set Sign_Branch8A,5;
	close;

L_Go:
	set sign_fail,1;
	mes "[Serin]";
	mes "That world of yours is so";
	mes "painful... With my rebirth,";
	mes "it's just like I was saving";
	mes "it from its despair and sorrow...";
	mes "He will be here soon. The great";
	mes "Dark Lord.";
	close2;
	set $signroomfull,0;
	warp "niflheim.gat",30,156;
	end;

L_Summon:
	mes "[Serin]";
	mes "If you think that";
	mes "I can't summon Dark Lord";
	mes "without the symbol, then you're";
	mes "mistaken. I've been collecting";
	mes "the power of despair!";
	next;
	mes "[Serin]";
	mes "Do you remember what";
	mes "happened to the dead that you";
	mes "helped on my behalf? Even if they";
	mes "seemed to have found shelter at";
	mes "first, they cannot escape my";
	mes "deep hollow of despair...";
	next;
	mes "[Serin]";
	mes "And that poor little girl,";
	mes "Alakina Ann? She still";
	mes "hasn't realized that she's dead!";
	next;
	mes "[Serin]";
	mes "You gave her hope,";
	mes "but ultimately, you can't";
	mes "keep your promise to bring her";
	mes "home. Oh, her disappointment";
	mes "must be so crushing...";
	next;
	mes "[Serin]";
	mes "Yes...";
	mes "By trying to help";
	mes "you gave them nothing";
	mes "but pain, just as I planned.";
	mes "Now I have enough despair";
	mes "to summon Dark Lord!";
	next;
	mes "[Serin]";
	mes "I don't want us to fight,";
	mes "but I can't let you stop me.";
	mes "I've already sold my soul to";
	mes "Dark Lord to become a living";
	mes "human again so I can't give up";
	mes "now! We'll have to battle!";
	close2;
	donpcevent "#signserin::OnSummon";
	set Sign_Branch8A,7;
	end;

L_TryAgain:
	mes "[Serin]";
	mes "Haven't you";
	mes "given up yet?";
	mes "Please don't";
	mes "try to stop me!";
	close2;
	donpcevent "#signserin::OnSummon";
	end;

L_Success:
	mes "[Serin]";
	mes "I see now.";
	mes "Soon, I'll lose my memories";
	mes "and remain dead in Niflheim.";
	mes "Just like all the others. Still,";
	mes "may I ask you one question?";
	next;
	mes "[Serin]";
	mes "With that symbol, you";
	mes "could order the dead to do";
	mes "whatever you want. Why didn't";
	mes "you use it to command me to quit?";
	next;
	mes "[Serin]";
	mes "...";
	mes "......";
	mes "..........";
	next;
	mes "[Serin]";
	mes "I see it now.";
	mes "The kindness in your eyes";
	mes "tells me everything. You wanted to";
	mes "give me another chance. But in the";
	mes "end, I managed to destroy the";
	mes "chance you had given me.";
	next;
	mes "[Serin]";
	mes "Even though I'm nothing but";
	mes "a spirit now, it was an honor";
	mes "for me to meet somebody like you.";
	mes "Although I'll lose my memories,";
	mes "I'll try not to forget you.";
	next;
	mes "[Serin]";
	mes "My memories of your";
	mes "courage and kindness";
	mes "are more precious to";
	mes "me than life itself.";
	next;
	mes "[Serin]";
	mes "Farewell, now.";
	mes "And good luck on";
	mes "your travels, my friend...";
	delitem 7308,1;
	set signquest,56;
	close;

L_NoWord:
	mes "[Serin]";
	mes "...";
	close;

L_Done:
	mes "^3355FFYou helped the";
	mes "unconscious Serin";
	mes "and returned to Niflheim.";
	close2;
	set $signroomfull,0;
	warp "niflheim.gat",30,156;
	end;
}

que_sign01.gat,197,45,5	script	Serin#serin2	90,{

	if(signquest > 55) goto L_Done;
	if(Sign_Branch8B > 3) goto L_Success;
	if(Sign_Branch8B > 2) goto L_TryAgain;
	if(Sign_Branch8B > 1) goto L_Summon;
	mes "[Serin]";
	mes "You're finally here.";
	mes "That witch has been watching";
	mes "my every move, so she probably";
	mes "knows what I'm up to by now...";
	next;
	menu "Why are you doing this...",-;
	mes "[Serin]";
	mes "You don't understand";
	mes "the horrific experience";
	mes "of being bound to Niflheim.";
	mes "I'm sick of breathing death";
	mes "and feeding on despair.";
	mes "I want to live again!";
	next;
	menu "Is that why you want Dark Lord...?",-;
	mes "[Serin]";
	mes "Unfortunately, the symbol";
	mes "which Lady Hell gave you is";
	mes "limited to a one time use. Its";
	mes "power wasn't enough to bring me";
	mes "back, so summoning Dark Lord is";
	mes "my last chance.";
	next;
	menu "But if Dark Lord comes to Rune-Midgard...",-;
	mes "[Serin]";
	mes "Oh, I'm pretty sure of";
	mes "what will happen if Dark Lord";
	mes "enters the realm of the living.";
	mes "He'll destroy Rune-Midgard and";
	mes "bring death to thousands and";
	mes "thousands of people.";
	next;
	mes "[Serin]";
	mes "So if I came back to life";
	mes "and everyone else were dead,";
	mes "however, by summoning Dark";
	mes "Lord, you might be thinking it'd be";
	mes "pretty pointless for me to come";
	mes "back. But I don't care.";
	next;
	mes "[Serin]";
	mes "The living don't appreciate";
	mes "what they have, so they ought";
	mes "to be punished. They can all go to";
	mes "Niflheim while I enjoy the warmth";
	mes "of the sun and the fresh outside";
	mes "air. Everyone should die...";
	next;
	mes "[Serin]";
	mes "Maybe you might not";
	mes "pity my situation since you've";
	mes "never been bound to Niflheim,";
	mes "but I'm begging you. Don't get";
	mes "in my way, " +strcharinfo(0) + ".";
	next;
	menu "I can't let you do this!",-,"Okay, have it your way.",L_Go;
	set Sign_Branch8B,2;
	close;

L_Go:
	set sign_fail,1;
	mes "[Serin]";
	mes "That world of yours is so";
	mes "painful... With my rebirth,";
	mes "it's just like I was saving";
	mes "it from its despair and sorrow...";
	mes "He will be here soon. The great";
	mes "Dark Lord.";
	close2;
	set $signroom2full,0;
	warp "niflheim.gat",30,156;
	end;

L_Summon:
	mes "[Serin]";
	mes "If you think that";
	mes "I can't summon Dark Lord";
	mes "without the symbol, then you're";
	mes "mistaken. I've been collecting";
	mes "the power of despair!";
	next;
	mes "[Serin]";
	mes "Do you remember what";
	mes "happened to the dead that you";
	mes "helped on my behalf? Even if they";
	mes "seemed to have found shelter at";
	mes "first, they cannot escape my";
	mes "deep hollow of despair...";
	next;
	mes "[Serin]";
	mes "And that poor little girl,";
	mes "Alakina Ann? She still";
	mes "hasn't realized that she's dead!";
	next;
	mes "[Serin]";
	mes "You gave her hope,";
	mes "but ultimately, you can't";
	mes "keep your promise to bring her";
	mes "home. Oh, her disappointment";
	mes "must be so crushing...";
	next;
	mes "[Serin]";
	mes "Yes...";
	mes "By trying to help";
	mes "you gave them nothing";
	mes "but pain, just as I planned.";
	mes "Now I have enough despair";
	mes "to summon Dark Lord!";
	next;
	mes "[Serin]";
	mes "I don't want us to fight,";
	mes "but I can't let you stop me.";
	mes "I've already sold my soul to";
	mes "Dark Lord to become a living";
	mes "human again so I can't give up";
	mes "now! We'll have to battle!";
	close2;
	donpcevent "#signserin2::OnSummon";
	set Sign_Branch8B,3;
	end;

L_TryAgain:
	mes "[Serin]";
	mes "Haven't you";
	mes "given up yet?";
	mes "Please don't";
	mes "try to stop me!";
	close2;
	donpcevent "#signserin2::OnSummon";
	end;

L_Success:
	mes "[Serin]";
	mes "I see now.";
	mes "Soon, I'll lose my memories";
	mes "and remain dead in Niflheim.";
	mes "Just like all the others. Still,";
	mes "may I ask you one question?";
	next;
	mes "[Serin]";
	mes "With that symbol, you";
	mes "could order the dead to do";
	mes "whatever you want. Why didn't";
	mes "you use it to command me to quit?";
	next;
	mes "[Serin]";
	mes "...";
	mes "......";
	mes "..........";
	next;
	mes "[Serin]";
	mes "I see it now.";
	mes "The kindness in your eyes";
	mes "tells me everything. You wanted to";
	mes "give me another chance. But in the";
	mes "end, I managed to destroy the";
	mes "chance you had given me.";
	next;
	mes "[Serin]";
	mes "Even though I'm nothing but";
	mes "a spirit now, it was an honor";
	mes "for me to meet somebody like you.";
	mes "Although I'll lose my memories,";
	mes "I'll try not to forget you.";
	next;
	mes "[Serin]";
	mes "My memories of your";
	mes "courage and kindness";
	mes "are more precious to";
	mes "me than life itself.";
	next;
	if(countitem(2643))
	{
	mes "[Serin]";
	mes "May I ask you one last";
	mes "favor? I see you kept my";
	mes "ring. It means very much";
	mes "to me, could you kindly";
	mes "give it back please?";
	next;
	}
	mes "[Serin]";
	mes "Farewell, now.";
	mes "And good luck on";
	mes "your travels, my friend...";
	if(countitem(2643))
	{
	delitem 2643,1;
	set JobExp,JobExp + 393759;
	}
	set signquest,56;
	close;

L_NoWord:
	mes "[Serin]";
	mes "...";
	close;

L_Done:
	mes "^3355FFYou helped the";
	mes "unconscious Serin";
	mes "and returned to Niflheim.";
	close2;
	set $signroom2full,0;
	warp "niflheim.gat",30,156;
	end;
}

function	script	Sign_Party	{

	getpartymember $signparty,1;
	set @i,-1;

L_Check:
	set @i,@i+1;
	if(getcharid(0) == $@partymembercid[@i]) goto L_Party;
	if(@i < $@partymembercount -1) goto L_Check;
	return;

L_Party:
	mes "[Kirkena]";
	mes "That Witch's Medal...";
	mes "You must be here to";
	mes "help your friend take";
	mes "care of Serin. Are you";
	mes "ready to go, " + strcharinfo(0) + "?";
	next;
	menu "Yes.",-,"Not yet...",L_Notyet;
	menu "Go directly to Serin.",-,"Path towards Serin.",L_Path;
	mes "[Kirkena]";
	mes "Thank you";
	mes "for your help.";
	mes "Serin's threat may";
	mes "be too much for just";
	mes "one adventurer alone...";
	close2;
	warp "que_sign01.gat",195,189;
	end;
	

L_Notyet:
	mes "[Kirkena]";
	mes "Please hurry...";
	mes "Time is of the essence...";
	close;

L_Path:
	mes "[Kirkena]";
	mes "Thank you";
	mes "for your help.";
	mes "Serin's threat may";
	mes "be too much for just";
	mes "one adventurer alone...";
	close2;
	warp "que_sign02.gat",135,313;
	end;

}

// Warp to leave Serin's room

que_sign01.gat,178,169,0	script	#serinwarp	45,1,1,{

	if($signroomfull > 2)
{
	if(getmapusers("que_sign02.gat") > 0 || getareausers("que_sign01.gat",229,227,166,162) > 0) end;
	donpcevent "#signserin::OnInit";
}
	warp "niflheim.gat",30,156;
	end;
}

que_sign01.gat,178,19,0	script	#serinwarp2	45,1,1,{

	set $signroom2full,0;
	warp "niflheim.gat",30,156;
	end;
}

// Fountain script

geffen.gat,119,55,1	script	GeffeniaWarper	45,2,2,{

	switch($GeffeniaWarp)
	{

	case 1:
		warp "gefenia01.gat",58,169;
	break;

	case 2:
		warp "gefenia02.gat",116,115;
	break;

	case 3:
		warp "gefenia03.gat",130,206;
	break;

	case 4:
		warp "gefenia04.gat",133,88;
	break;

	}

OnWarping:
	misceffect 215;
	mapannounce "geffen.gat","With a flash of light from Geffen Fountain, the door to Geffenia has opened.",1,0x9CFF00;
	misceffect 247;
	initnpctimer;
	end;

OnTimer15000:
	misceffect 247;
	end;

OnTimer30000:
	misceffect 247;
	end;

OnTimer45000:
	stopnpctimer;
	mapannounce "geffen.gat","The portal to Geffenia is now closed.",1,0x9CFF00;
	misceffect 16;

OnInit:
	disablenpc "GeffeniaWarper";
	set $GeffeniaWarp,0;
	end;

}

geffen.gat,119,49,1	script	Fountain#SignFountain	111,{

	if(countitem(7025) && !$GeffeniaWarp)goto L_Lament;
	mes "^3355FFThis is the";
	mes "Geffen Fountain.";
	close;

L_Lament:
	specialeffect2 200;
	mes "^3355FFAs you approach the fountain, a strange light begins to emit from the Lucifer's Lament in your pocket and from something deep within the fountain's water.";
	next;
	menu "Throw Lucifer's Lament into the fountain.",L_Throw,"Ignore the light.",-;

	mes "......";
	close;

L_Throw:
	misceffect 247;
	set $GeffeniaWarp,rand(1,4);
	enablenpc "GeffeniaWarper";
	donpcevent "GeffeniaWarper::OnWarping";
	mes "^3355FFOnce the Lucifer's Lament";
	mes "splashes into the water, the";
	mes "light reveals a peculiar warp";
	mes "in front of the fountain...";
	close;

}

//==================================================
// que_sign02.gat - Monster Spawns
//==================================================

que_sign02.gat,0,0,0,0	monster	Incubus	1580,1,0,0,0
que_sign02.gat,0,0,0,0	monster	Wraith Dead	1566,3,0,0,0
que_sign02.gat,0,0,0,0	monster	Evil Druid	1435,5,0,0,0
que_sign02.gat,0,0,0,0	monster	Wraith	1475,5,0,0,0
que_sign02.gat,0,0,0,0	monster	Injustice	1446,10,0,0,0
que_sign02.gat,0,0,0,0	monster	Skeleton Prisoner	1479,10,0,0,0
que_sign02.gat,0,0,0,0	monster	Zombie Prisoner	1480,10,0,0,0
que_sign02.gat,0,0,0,0	monster	Ghoul	1423,15,0,0,0
