// author: alastrim
// love triangle quest, involved npcs: Reid's Ghost, Hamond, Savaric, Aldred, Golbenez
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;
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;
