path: root/npc/027-2_Caretakers_House/crying_child.txt

027-2.gat,50,92,0	script	Aldred	314,{

// Crying Child subquest (Still need to change it to Bitmask)
// 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.",-;
	next;
	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?",-;
	next;
	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. It 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)+"! I hope you find it soon! It is not like it is worth a lot of money... It looks like a simple thing, but I really don't know what would be my dad's reaction when he finds out I lost something that belongs to him!\"";
	set @state, 1;
	callsub S_Update_Mask;
	close;

L_return:
	mes "[Aldred]";
	mes "\"Please, help me, find the bracelet. If my father asks me why I'm crying I don't think I can come up with an excuse... Oh no...\"";
	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 about something... you are such a nice person and you helped me a lot, but I didn't give you anything in exchange. It was really rude, I know, 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 "\"I know! That is why you are so great! But hey, I have an idea. What if you talk to my father and my mother about this item? If it is not important or valuable to them, 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;
	next;
	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 carying 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.\"";
	close;
//TODO: make a message, that the player has the bracelet with him and should come back after talking to the parents
L_return3:
	mes "[Aldred]";
	mes "\"I hope this bracelet 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 the bracelet?\"";
	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 is refusing to keep this gift\"";
	next;
	menu
		"She is not able to hold it anymore, so it makes her sad",-;
	mes "\"Ohh... I don't like when my mother gets sad... If this thing is making her feel bad, I guess 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 good and helpfull you are... Maybe they can even offer you a discount in your expenses here at Reid's Inn...\"";
	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;