path: root/npc/quests/The_Sign_Quest.txt

//===== 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.7c
//===== 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]
//= 1.7 Fixed exploit [KarLaeda] 1.7a, fixed wrong dialogue [Lupus]
//= 1.7b Fixed possible exploit [Lupus]
//= 1.7c Reformatted for future bughunt. WIP [Lupus]
//============================================================ 
//===== Configuration : ======================================
prontera,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,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,168,264,1	duplicate(GeffeniaSigns)	Sign#2	111
payon,160,183,1	duplicate(GeffeniaSigns)	Sign#3	111
prontera,147,305,1	duplicate(GeffeniaSigns)	Sign#4	111
geffen,168,175,1	duplicate(GeffeniaSigns)	Sign#5	111
aldebaran,54,223,1	duplicate(GeffeniaSigns)	Sign#6	111

prt_in,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",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,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,248,23,4	script	Maid#2	1275,{

end;

}

morocc_in,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,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",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,81,16,8	script	Maid::Sohee	1170,{

end;

}

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

end;

}

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

end;

}

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

payon_in03,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,226,54,4	script	#aldesignwarp	45,2,2,{
OnTouch:
	set @aldesigncheck,0;
	warp "aldeba_in",149,120;
	end;

}

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

}

aldeba_in,147,104,1	script	PotionActivator	139,3,0,{
OnTouch:
	if(@aldesigncheck == 0){
		donpcevent "Jore#SignAldeNpc::OnPotion";	
		set @aldesigncheck,1;
	}
	end;
}
	
aldeba_in,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,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(2)) {
        emotion e_ic;
        misceffect 305;
    } else {
        emotion e_omg;
        misceffect 306;
    }
    end;
}

prt_maze02,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",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",14,177,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
		monster "prt_maze02",17,171,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
		monster "prt_maze02",24,173,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDead";
		monster "prt_maze02",17,175,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDead";
		monster "prt_maze02",17,168,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDead";
		return;
	} else {
		killmonster "prt_maze02","Sign_Alch_Summon::OnMonsterDead";
		set $signmazemonster,0;
		goto Loopback;
	}
OnMonsterDead:
	set $signmazemonster,$signmazemonster - 1;
	end;
}

prt_maze02,16,183,3	script	Pleur	91,{
	mes "[Pleur]";
	if(signquest == 7 || signquest == 8){
		mes "La la la~";
		mes "La la la~";
		close;
	} else {
		mes "Oh, you're lost?";
		mes "I'll help you find";
		mes "your way back...";
		close2;
		warp "prt_maze02",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,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",61,149;
        end;
    }

}

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

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

L_Sign_Jesq:
	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 "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,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 receive 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",-,"Witch Starsand",-,"Empty Bottle",s_correct,"Empty Potion Bottle",s_correct;
                    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,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",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",34,17;
        end;
    } else {
        set @dearles_check,0;
        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",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",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,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,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,1,1,1	script	DanceInit	139,{

OnInitiation:
    initnpctimer;
    end;
OnTimer1000:
    if (!isloggedin($SignDancingrid))goto s_Cleanup;
    areaannounce "cmd_in01",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",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",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",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",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",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",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",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",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",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",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",12,12,35,35,"UP LEFT & UP RIGHT & CENTER & UP RIGHT & DOWN LEFT & DOWN RIGHT",8;
    else
        areaannounce "cmd_in01",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",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",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,1,1,1	script	SignDanceCleanUp	-1,{

OnPlayerLogout:
	initnpctimer;
	areaannounce "cmd_in01",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,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",187,164;
	end;

}


cmd_in01,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",187,164;
	end;

}

cmd_in01,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",187,164;
	end;

}

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

}

cmd_in01,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,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",187,164;
	end;

}

alberta,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,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,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,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,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,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,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,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,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,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",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",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 "don't 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,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,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,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",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",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,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:
    if (!rand(10)) {
        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,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",49,10;
	end;
}

himinn,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...";
	if(signquest==32)set signquest,33;
	close2;
	warp "geffen",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,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,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",229,77,166,12) > 0) goto L_Full;
    mes "[Serin]";
    mes "Please follow me";
    mes "......";
    close2;
    if (($signroom2full > 1) || getareausers("que_sign01",229,77,166,12) > 0) end;
    donpcevent "#signserin2::OnSerin";
    donpcevent "#signserin2::OnCooldown";
    set $signroom2full,2;
    warp "que_sign01",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,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,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","#signbruce::Onmymob";
	monster "niflheim",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",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","#signbruce::Onmymob";
	monster "niflheim",349,256,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",347,258,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",347,254,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",350,252,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",344,255,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",348,252,"Orc Skeleton",1462,1,"#signbruce::Onmymob";
	monster "niflheim",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,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",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,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,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",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",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,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,140,177,1	script	#signgrave	111,{

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

}

que_sign01,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 "don't 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") > 0 || getareausers("que_sign01",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") > 0 || getareausers("que_sign01",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",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") > 0 || getareausers("que_sign01",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") > 0 || getareausers("que_sign01",229,227,166,162) > 0) end;
    donpcevent "#signserin::OnSerin";
    donpcevent "#signserin::OnCooldown";
    set $signroomfull,2;
    set $signparty,getcharid(1);
    warp "que_sign02",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",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",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,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,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,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,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,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,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,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,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,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,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",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,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",188,184,205,205,"Rotten Corpse",1036,3,"#signserin::OnSignDead";
	areamonster "que_sign01",188,184,205,205,"Ancient Wraith",1192,2,"#signserin::OnSignDead";
	areamonster "que_sign01",188,184,205,205,"Ancient Mummy",1297,2,"#signserin::OnSignDead";
	areamonster "que_sign01",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","#signserin::OnSignDead";
	set $signroomfull,1;
	areawarp "que_sign01",229,227,166,162,"niflheim",30,156;
	areawarp "que_sign02",1,1,400,400,"niflheim",30,156;
	stopnpctimer;
	end;
}

que_sign01,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",188,34,205,55,"Rotten Corpse",1036,3,"#signserin2::OnSignDead";
	areamonster "que_sign01",188,34,205,55,"Ancient Wraith",1192,2,"#signserin2::OnSignDead";
	areamonster "que_sign01",188,34,205,55,"Ancient Mummy",1297,2,"#signserin2::OnSignDead";
	areamonster "que_sign01",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","#signserin2::OnSignDead";
	set $signroom2full,1;
	areawarp "que_sign01",229,77,166,12,"niflheim",30,156;
	stopnpctimer;
	end;
}

que_sign01,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",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",30,156;
	end;
}

que_sign01,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",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",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",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",135,313;
	end;

}

// Warp to leave Serin's room

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

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

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

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

// Fountain script

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

    switch ($GeffeniaWarp) {

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

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

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

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

    }

OnWarping:
    misceffect 215;
    mapannounce "geffen","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","The portal to Geffenia is now closed.",1,0x9CFF00;
    misceffect 16;

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

}

geffen,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 - Monster Spawns
//==================================================

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