027-2.gat,50,92,0 script Aldred 314,{ // Crying Child subquest // Variable states: // 1 = You agree to help the child to find the bracelet outside // 2 = You found the bracelet (see _mobs.txt) // 3 = You gave the bracelet to the child // 4 = You decided to help the child again, by investigating what the bracelet means to them. // 5 = The father/husband told you what he thinks of the bracelet // 6 = The mother/wife told you what he thinks of the bracelet // 7 = The kid decided that the bracelet has no value to their parents, so you can have it. set @Graveyard_Inn_MASK, NIBBLE_2_MASK; set @Graveyard_Inn_SHIFT, NIBBLE_2_SHIFT; set @state, ((QUEST_Graveyard_Inn & @Graveyard_Inn_MASK) >> @Graveyard_Inn_SHIFT); if (Sex == 0) set @madamsir$, "Madam"; if (Sex == 1) set @madamsir$, "Sir"; if (@state == 7) goto L_return5; if (@state == 6) goto L_return4; if (@state == 4 || @state == 5) goto L_return3; if (@state == 3) goto L_return2; if (@state == 2) goto L_return1; if (@state == 1) goto L_return; if (BaseLevel >= 80) goto L_intro; //TODO: make the dialogue more childish? L_cry: mes "[Crying Child]"; mes "\"Waaahhhhh! (Sniffle)\""; close; L_intro: mes "[Crying Child]"; mes "\"Waaah!\""; next; mes "\"(Sniffle)\""; next; menu "Calm down kid, what happened?",-, "Leave the kid alone",L_close; mes "[Crying Child]"; mes "\"Oh, what? Who are you "+@madamsir$+", what are you doing here?\""; next; menu "My name is "+strcharinfo(0)+", I heard you cry and decided to ask if you need help.",-; mes "[Crying Child]"; mes "\"My parents told me not to talk to strangers... But you look nice... I trust you... I'm Aldred and we live here, my parents and me. This is our inn.\""; next; mes "[Aldred]"; mes "\"My problem is... I don't know what to do... My dad will be so angry with me... He is very nice, but when you do something wrong... he... WAAAAAAH!\""; next; menu "Here, here, don't cry... What did you do?",-; mes "[Aldred]"; mes "\"Err.. I was looking at my parents stuff and I found this funny thing! It looks like a big blue beetle... I thought it would be funny to play with it for a while, so I took it with me. But I... sniffle... I lost it...\""; next; mes "\"I don't know what happened. I was outside and... maybe it fell on the ground! I am so scared! What if someone picked it up? It could be anyone!\""; next; menu "Don't worry, I will look around. Maybe I can find it for you...",-, "Hey, you messed up, now you deal with this.",L_close; mes "[Aldred]"; mes "\"Thank you " +strcharinfo(0)+"! Find it for me, pleeeease!\""; set @state, 1; callsub S_Update_Mask; close; L_return: mes "[Aldred]"; mes "\"Please, help me " +@madamsir$+ ". What will I say If my father asks me why I'm crying?\""; close; L_return1: mes "[Aldred]"; mes "\"Great! You are the best! Where did you find it?\""; next; menu "It was easy, it was with one of the monsters outside.",-; next; mes "[Aldred]"; mes "\"Ohh.. a monster? He must be a fine monster since he returned it so easily to you!\""; next; menu "Err... kind of...",-; next; mes "[Aldred]"; mes "\"Now I will put this thing in its right place... Thank you!\""; set @state, 3; callsub S_Update_Mask; close; L_return2: mes "[Aldred]"; mes "\"Hi "+strcharinfo(0)+ "! I was thinking... you were sooo nice helping me find the beetle... I think I should give you a gift, but I am only a child, I have nothing to give you!\""; next; menu "Don't worry, you don't need to give me anything...",-; next; mes "[Aldred]"; mes "\"Are you serious? That is why you are so great! But hey, I have an idea. What if you talk to my parents about this item? If it is not important or valuable, I think there is no problem to let you keep it.\""; next; menu "Sounds interesting... But who are your parents?",-, "Bad idea, it will only bring more problems...",L_close; set @state, 4; callsub S_Update_Mask; mes "[Aldred]"; mes "\"Ok, great... But please, don't tell them about it. I don't want my parents to know I was playing with their stuff. My father is always carrying a lantern... I guess he is still afraid of the dark. My mother is the innkeeper. She is very beautiful and today she is wearing a red dress.\""; next; mes "\"Don't forget to come back with the beetle after you talk to my parents.\""; message strcharinfo(0), "Aldred hands you the strange item and you keep it in a small compartment of your backpack"; close; L_return3: mes "[Aldred]"; mes "\"I hope this thing doesn't mean a lot to my parents, this way you can keep it as a gift.\""; close; L_return4: menu "Hi, I talked to your parents.",-; mes "[Aldred]"; mes "\"Really? What did my father say about that thing?\""; menu "He said it is just a cheap bracelet. And it does not belong to him.",-; mes "[Aldred]"; mes "\"And what did my mother say?\""; menu "She said it was a gift to her, but she doesn't want it anymore.",-; mes "[Aldred]"; mes "\"Really? A gift? And why she doesn't want it?\""; next; menu "She said it makes her sad",-; mes "\"Ohh... really? I don't like when my mother gets sad... If this thing is making her feel bad, I should keep it away from her. \""; next; mes "\"Well, I guess you can keep it, but don't show it to my mother again, she is already very sad. But now I am really curious, who would give a gift to my mother? There are so many strange things happening lately...\""; getinventorylist; if (@inventorylist_count == 100) goto L_full; getitem "ScarabArmlet", 1; set @state, 7; callsub S_Update_Mask; mes "\"Now I will tell my parents how great and helpfull you are... Maybe they can even let you stay here at the inn for free!\""; close; L_return5: mes "[Aldred]"; mes "\"Thank you for all your help.\""; close; L_full: mes "[Aldred]"; mes "\"I dont think you can carry this bracelet... Your backpack is full! Throw something away and come back to get the bracelet.\""; close; L_close: close; S_Update_Mask: set QUEST_Graveyard_Inn, (QUEST_Graveyard_Inn & ~(@Graveyard_Inn_MASK)) | (@state << @Graveyard_Inn_SHIFT); return; } // Participation of the Wife/Mother in the crying child subquest. Merge later with the apropriate NPC // if (@state == 5) goto L_asking_child; // end; //L_asking_child: // menu // "Hi. I found this in the main hall. Do you know to whom it belongs?",-; // next; // mes "[Innkeeper's Ghost]"; // mes "\"What?! In the main hall? Let me take a look at this bracelet.\""; // next; // mes "[Innkeeper's Ghost]"; // mes "\"Oh, I recognize this bracelet. Someone gave it to me a few weeks ago. But I don't want to keep it. I thought I have thrown it in the garbage.\""; // next; // menu // "Garbage? Is this bracelet so ugly?",-; // next; // mes "[Innkeeper's Ghost]"; // mes "\"No, no. It is not that I don't like it. I just don't like the feelings it causes on me... It is... Complicated. Please, take this bracelet away. I don't want it... You can have it, or just give to someone else.\""; // set @state, 6; // close; // Participation of the Husband/Father in the crying child subquest. Merge later with the apropriate NPC // if (@state == 4) goto L_asking_child; // end; //L_asking_child: // menu // "Hello sir. Can I ask you a question?",-; // mes "[Lantern Man]"; // mes "\"Just ask!\""; // next; // menu // "Ok... Ehh, I found this in the main hall. Do you know to whom it belongs?",-; // next; // mes "[Lantern Man]"; // mes "\"Hmm! Let me see.\""; // next; // mes "\"Well.. this is just a cheap bracelet, it is very popular with the young kids these days, specially the magic students. They call it 'Scarab Armlet'. Fancy name, huh? But for me it is just a cheap bracelet.\""; // next; // mes "\"They also say it increases 'magic atack'. But, in fact, I think these kids are delusional. There is no such thing as magic, everyone knows it.\""; // next; // mes "\"Anyway, you can easily find one of these in a lot of small shops in this town. I am pretty sure that whoever lost it won't bother coming all the way back to get it. \""; // menu // "Thank you sir, that is all I wanted to ask.",-; // set @state, 5; // close;