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
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
//
032-1.gat,55,20,0 script Miriam 175,{
if (getskilllv(SKILL_SPEED)) goto L_fast;
if (getequipid(equip_torso) < 0) goto L_naked;
if (QUEST_MIRIAM == 0) goto L_intro;
if (QUEST_MIRIAM == 1) goto L_ask1;
if (QUEST_MIRIAM == 2) goto L_ask2;
if (QUEST_MIRIAM == 3) goto L_teach;
if (QUEST_MIRIAM == 4) goto L_testoffer;
if (QUEST_MIRIAM_run != 0) goto L_checktime;
if (QUEST_MIRIAM_start != 0) goto L_wasting;
L_intro:
mes "You see a woman sitting in the hot sand with eyes wide open... But she does not seem to be looking at something in particular...";
next;
menu
"Ehr... Hi, my name is " +strcharinfo(0)+ ". Are you OK?",-;
next;
mes "[Miriam]";
mes "\"...";
next;
menu
"Hello?",-;
next;
mes "[Miriam]";
mes "\"Yes, I am. Why? Do you think I am not OK? I am OK. You interrupted my meditation. Now I will need hours to calm down and stay quiet! Yes, yes, I know, I'm a fast talker!\"";
next;
mes "\"In fact, I am fast in everything I do! I can kill a Mountain Snake before it even starts to think about atacking me! Yes my friend, in a battle, speed is power!";
next;
menu
"Wow! Very impressi...",-;
mes "[Miriam]";
mes "\"Yes, yes, I know. But if there is one thing I am NOT good at, it is meditation! My master said I need to meditate, but... Ohh! So difficult to stay quiet! And when you FINALLY do, someone INTERRUPTS you, asking if you are 'OK'...\"";
next;
menu
"Oh, I am sorry! I didn't know you were meditating...",-;
next;
mes "[Miriam]";
mes "\"You are really sorry? Ok, but that is not enough... I need you to do something for me. As you can imagine, I will need a lot of time to concentrate and get back to the state I was when you interrupted me.\"";
next;
mes "\"But the problem is that I wasn't expecting to be here for so long, so I will need some food and something to drink.\"";
next;
mes "\"So, if you really want to prove that you are sorry, bring me 5 [Concentration Potions] and 10 [Snake Tongues].\"";
next;
menu
"Ok, but those potions will not help with your mental concent...",-,
"Sorry, but I can't help you right now.",L_canthelp;
mes "[Miriam]";
mes "\"ah, ah, ah... I know what I am doing! Now run and get what I asked.\"";
set QUEST_MIRIAM, 2;
close;
L_canthelp:
mes "[Miriam]";
mes "\"Oh, really? So you better pray to not need my help in the future!\"";
set QUEST_MIRIAM, 1;
close;
L_canthelp2:
mes "[Miriam]";
mes "\"...\"";
next;
mes "\"...\"";
next;
mes "\"Well, if you don't have time to help, at least don't make things difficult to me!\"";
close;
L_ask1:
mes "[Miriam]";
mes "\"So, you are back... have you changed your mind about my request?\"";
next;
menu
"Yes, I will get what you want!",-,
"No, I have not time right now.",L_canthelp2;
set QUEST_MIRIAM, 2;
mes "\"Good. So, run and get it!\"";
close;
L_ask2:
mes "[Miriam]";
mes "\"Did you get what I asked for?\"";
next;
menu
"Yes, here it is!",L_getitems,
"No, not yet.",-;
next;
mes "\"So please hurry up!\"";
close;
L_getitems:
if (countitem("SnakeTongue") < 10 || countitem("ConcentrationPotion") < 5) goto L_notenough;
delitem "SnakeTongue", 10;
delitem "ConcentrationPotion", 5;
set QUEST_MIRIAM, 3;
mes "[Miriam]";
mes "\"Good job! Now I have enough food to stay in this desert for days!\"";
next;
mes "\"Now, since you helped me, maybe I can teach you a basic skill, but only if you prove yourself to be a fast runner! Come back and talk to me when you think you are prepared to learn.\"";
close;
L_notenough:
mes "[Miriam]";
mes "\"Hey, you don't have all that I asked. Come back when you have everything.\"";
close;
L_teach:
mes "[Miriam]";
mes "\"Hmm... do you think you can learn the special speed skill?\"";
next;
menu
"Yes, I am prepared...", -,
"I am already fast.", L_notfast;
set @agi, readparam(bAgi);
set @torso$, getitemname(getequipid(equip_torso));
set @weight, MaxWeight/Weight;
if (@weight < 3) goto L_heavyweight;
if (@agi < 90) goto L_slow;
if (countitem("SteelShield") > 0 || countitem("WarlordHelmet") > 0 || countitem("CrusadeHelmet") > 0 || countitem("WarlordPlate") > 0 || countitem("KnightsHelmet") > 0 || countitem("InfantryHelmet") > 0 || countitem("ChainmailShirt") > 0) goto L_heavymetal;
goto L_offer;
L_heavyweight:
mes "[Miriam]";
mes "\"Wow... Why do you bring so many things with you? You must be carrying more than one third of your own weight! I wont teach you unless you get rid of some stuff... \"";
close;
L_heavymetal:
mes "[Miriam]";
mes "\"Hmm... I see... You want to be one of those lazy slow warriors... wasting all their strenght carrying kilos of metal clothes... Why no one sees the great advantages of a beautiful, flexible, lightweight armor nowadays?\"";
next;
mes "\"Come back here when you get rid of this junk...\"";
close;
L_slow:
mes "[Miriam]";
mes "Oh, wait, wait... " +@agi+ " Agility? Are you serious? What do you do with all your Character points? Put them all to 'Strenght'? Really... I dont even want to know... Come back here when you have a decent character points distribution!\"";
close;
L_offer:
mes "[Miriam]";
mes "\"Hmm! You look great on these clothes! They look very comfortable too... And it seems like you are not carrying too much weight.\"";
next;
if (!(getskilllv(SKILL_POOL))) goto L_noskill;
menu
"Yes, I look really good on this " +@torso$+ ".",-;
next;
mes "[Miriam]";
mes "\"I see. I like the way you distributed your Character Points too... " +@agi+ " points to Agility! You really know how to prepare yourself to a good fight!\"";
next;
mes "\"Well... Even if you have a potential to be a good fighter, moving the way you do will not help. You need to be fast to avoid the monsters. \"";
next;
mes "\"So, if you pass a small test I can teach you a skill that will increase your walking speed! You will not be as fast as I am, but I am sure it will be useful.\"";
next;
menu
"I'm in! What kind of test is it?",-,
"I dont think I need more speed right now",L_giveup;
next;
L_test:
mes "[Miriam]";
mes "\"Great! The test is simple. You need to run as fast as you can from the place where I am sitting to the mountains and talk to Pachua, the chief. When you get there and talk to Pachua, he will send a special smoke signal to me, so I can know how much time it took for you to go there.\"";
next;
mes "\"If you make it in a good time, I will teach you the special speeding skill, if not, you can always try again. So, are you ready?\"";
next;
menu
"Yes, let's do it!",-,
"No, I need to stretch my muscles first!",L_stretch;
close2;
message strcharinfo(0), "Miriam quickly grabs your arm and pull you to the place where she is sitting.";
// Warp the player to the place where the NPC is defined, so he can't cheat.
warp "032-1.gat",55,21;
npctalk "Run " +strcharinfo(0)+ ", run!";
set QUEST_MIRIAM, 5;
set QUEST_MIRIAM_start, gettimetick(1);
end;
L_naked:
mes "[Miriam]";
mes "\"Hmmm?! Please put on some clothes before talking to me.\"";
close;
L_notfast:
mes "[Miriam]";
mes "\"Hah! If you think so...\"";
close;
L_noskill:
mes "[Miriam]";
mes "\"For a person like you, I could even teach a useful skill! Too bad you don't have the basic abillities to learn it...\"";
close;
L_giveup:
mes "[Miriam]";
mes "\"Oh, that is bad... But if you change your mind, come back!\"";
set QUEST_MIRIAM, 4;
close;
L_testoffer:
mes "[Miriam]";
mes "\"Are you ready for the test now?\"";
next;
menu
"Yes!",L_test,
"Not yet.",-;
close;
L_stretch:
mes "[Miriam]";
mes "\"Ok. Good idea... Stretching exercises can increase your flexibility and even prevent injuries!\"";
set QUEST_MIRIAM, 4;
close;
L_wasting:
mes "[Miriam]";
mes "\"Don't waste your time talking to me! RUN and talk to Pachua!\"";
close;
L_checktime:
if (QUEST_MIRIAM_run > 60) goto L_tryagain;
if (QUEST_MIRIAM_run <= 60) goto L_goodjob;
L_tryagain:
mes "[Miriam]";
mes "\"You needed " + QUEST_MIRIAM_run + " seconds to reach Pachua. It is not enough.\"";
set QUEST_MIRIAM_run, 0;
close;
L_goodjob:
mes "[Miriam]";
mes "\"Great job! You needed " + QUEST_MIRIAM_run + " seconds to reach Pachua. Very impressive for a person like you.\"";
next;
mes "\"Now I need you to relax. Do NOT move. This teaching process can be painful sometimes.\"";
next;
mes "Miriam stares into your eyes and starts to scream some strange words very close to your ears.";
next;
mes "You feel dizzy and as soon as you move your head and look to the ground, Miriam pushes you hard, sending you meters away from her.";
close2;
// warp player a few tiles back - Write it when the NPC place is defined
warp "032-1.gat",55,22;
set QUEST_MIRIAM_run, 0;
set QUEST_MIRIAM, 0;
message strcharinfo(0), "[You gain 2500 experience points]";
message strcharinfo(0), "[You learned Speed Skill]";
setskill SKILL_SPEED, 1;
getexp 2500, 0;
close;
L_fast:
mes "[Miriam]";
mes "\"I hope you make a good use of your new skill... Take care!\"";
close;
}
|
