1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
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;
|
