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
|
027-2.gat,50,92,0 script Crying Child 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;
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 "\"You look like a good person... Maybe I can trust you... My name is Aldred and I live here with my parents. They own this place.\"";
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, try to be discrete about it. I don't want my parents to know I was playing with their stuff. My Father owns this place. He 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 is using a red dress.\"";
close;
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;
|
