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
|
// author: alastrim
// love triangle quest, involved npcs: Reid's Ghost, Hamond, Savaric, Aldred, Golbenez
// Jenalya: some changes about variables (setting to zero if only used locally, naming)
027-2.gat,50,92,0|script|Aldred|314,{
// Crying Child subquest
// Variable states:
// 1 = You agree to help the child to find the ring outside
// 2 = You found the ring (see 027-1.../monsters.txt)
// 3 = You gave the ring to the child
// 4 = You decided to help the child again, by investigating what the ring means to them.
// 5 = The father/husband told you what he thinks of the ring
// 6 = The mother/wife told you what he thinks of the ring
// 7 = The kid decided that the ring 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);
set @minLevel, 85;
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 >= @minLevel) goto L_intro;
L_cry:
mes "[Crying Child]";
mes "\"Waaahhhhh!\"";
goto L_Close;
L_intro:
mes "[Crying Child]";
mes "\"Waaah!\"";
next;
mes "\"Waaahhhaaa!\"";
next;
mes "You bend your knees near the child, trying to gain his confidence and ask why he is crying. But looking closely, you are surprised to see that his skin color is an awful, cadaveric grey...";
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 check if you needed any help.",-;
mes "The child looks at you from head to toe and says: \"" +@madamsir$+ ", aren't you scared of me?\"";
next;
menu
"No... Why would I be scared of you?",-;
mes "[Crying Child]";
mes "\"I am, you know... dead. Like Mom and Dad, and a lot of other people in this inn... But most of them don't like to talk about it.\"";
menu
"You are a brave and smart kid... I have nothing to be afraid of.",-;
mes "[Crying Child]";
mes "\"It's nice to talk to you. I don't have any friends and Mom is always sad and Dad is always angry about something I don't know... and... Did you see the man in the room next to me? The one with horns? Oh, I don't like him! \"";
next;
mes "[Crying Child]";
mes "\"My parents told me not to talk to strangers... But you look nice... I guess I can trust you... I'm Aldred and we live here, my parents and I. This is our inn.\"";
next;
mes "[Aldred]";
mes "\"You asked why I was crying. My problem is... I don't know what to do... My dad will be so angry with me... He used to be very nice, but now... if you do something wrong... he... Waaaaa!\"";
next;
menu
"There, there. Don't cry... What did you do?",-;
mes "[Aldred]";
mes "\"Umm... I was looking at my parents' stuff and I found this funny thing! It looked like a normal ring, but with a round empty space... I thought it would be fun to take it with me and maybe look for a stone or a gem to fit into the empty space. But I... I lost it...\"";
next;
mes "\"I don't know what happened. I was in this room and... I heard some very loud noises, people screaming, cracking sounds... and a smell, a terrible smell, like something rotten. And then... I can't remember anything else!\"";
next;
mes "\"I think it was something very bad, because, after all that, I woke up the way I am now and I couldn't find the ring in my pocket. Oh, and my parents are acting like they're not themselves. I don't know what happened, maybe it was my fault... I shouldn't have played with that ring... \"";
next;
menu
"Don't worry, I will look around. Maybe I can find it for you...",-,
"Hey, you messed up. Deal with it.",L_Close;
mes "[Aldred]";
mes "\"Thank you " +strcharinfo(0)+"! Find it for me, pleeeease! Oh, and don't tell my parents that I lost their ring, okay?\"";
set @state, 1;
callsub S_Update_Mask;
goto L_Close;
L_return:
mes "[Aldred]";
mes "\"Please, help me " +@madamsir$+ ". If you find that ring, I think things will be a little better between me and my parents.\"";
goto L_Close;
L_return1:
menu
"Hi Aldred. I found the ring!",-;
mes "[Aldred]";
mes "\"Great! You're the best! Where did you find it?\"";
next;
menu
"It was easy, I found it on one of the monsters outside.",-;
mes "[Aldred]";
mes "\"Ohh.. a monster? It must've been a nice monster since it returned it so easily to you!\"";
next;
menu
"Err... kind of...",-;
mes "[Aldred]";
mes "\"Now, I'll put this thing back in its proper place... Thank you!\"";
set @state, 3;
callsub S_Update_Mask;
goto L_Close;
L_return2:
mes "[Aldred]";
mes "\"Hi "+strcharinfo(0)+ "! I was thinking... you were sooo nice helping me find the ring... I think I should give you a gift, but I'm just a dead kid, I have nothing to give you!\"";
next;
menu
"Don't worry, you don't need to give me anything...",-;
mes "[Aldred]";
mes "\"Are you sure? That's why you're so great! But hey, I have an idea. What if you talk to my parents about this thing? If it's not important or valuable, I don't think it would be a problem to let you keep it. And I really want to know if they're acting all weird because I lost it. Would you do this for me?\"";
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 "\"Okay, 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's still afraid of the dark. My mother is the innkeeper. She's very beautiful and she's wearing a red dress.\"";
next;
mes "\"Don't forget to come back with the ring after you've talked to my parents.\"";
message strcharinfo(0), "Aldred hands you the ring and you keep it in a small pocket on your backpack";
goto L_Close;
L_return3:
mes "[Aldred]";
mes "\"I hope this ring doesn't mean a lot to my parents. That way you can keep it as a gift and I won't feel guilty about taking it.\"";
goto L_Close;
L_return4:
menu
"Hi, I talked to your parents.",-;
mes "[Aldred]";
mes "\"Really? What did my father say about it?\"";
menu
"He said it's just a cheap ring. And it doesn't belong to him.",-;
mes "[Aldred]";
mes "\"And what did my mother say?\"";
menu
"She said it was a gift, but she doesn't want it anymore.",-;
mes "[Aldred]";
mes "\"Really? A gift? And why doesn't she want it anymore?\"";
next;
menu
"She said it makes her sad.",-;
mes "\"Ohh... really? I don't like it when my mother gets sad... If this ring 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's already very sad. But now I'm really curious. Who else would give a gift to my mother? There are so many strange things happening lately...\"";
getinventorylist;
if (@inventorylist_count == 100)
goto L_full;
getitem "SimpleRing", 1;
set @state, 7;
callsub S_Update_Mask;
mes "\"I'll tell my parents how great and helpful you are. Maybe they can even let you stay here at the inn for free!\"";
goto L_Close;
L_return5:
mes "[Aldred]";
mes "\"Thank you for all your help.\"";
goto L_Close;
L_full:
mes "[Aldred]";
mes "\"I dont think you can carry this ring... Your backpack is full! Throw something away and come back to get it.\"";
goto L_Close;
L_Close:
set @madamsir$, "";
set @Graveyard_Inn_MASK, 0;
set @Graveyard_Inn_SHIFT, 0;
set @state, 0;
set @minLevel, 0;
close;
S_Update_Mask:
set QUEST_Graveyard_Inn,
(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_MASK))
| (@state << @Graveyard_Inn_SHIFT);
return;
}
|
