summaryrefslogtreecommitdiff
path: root/world/map/npc/009-2/nurse.txt
blob: 2320297e89d1de437acd5a342342b1788d7a22f5 (plain) (blame)
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
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
//######################################################################################
//# Nurse
//# AUTHORS:         Jenalya and Pjotr Orial
//# REVIEWED BY:
//# heals player below level 20 for free and tells players about the doctor on the 3rd floor.
//#
//# gives the resist-poison skill, used global (!) variable: "$NPC_NURSE", split up in 4 bytes:
//# byte0 (bit 0-7) = healing_needed, byte1 (bit 8-15) = venum_needed, byte2 (bit 16-23) = stabilizer_needed
//# byte3 (bit 24-31) still unused
//# used player-variable: QUEST_Forestbow, nibble7
//# states:
//# 0    if skills are available, she tells you about her plans of doing the antidote,
//#     need black scorpion stingers and snake tongues
//# 1    waits for ingredients: black scorpion stingers and snake tongues
//# 2    waits for ingredients: acorns, apples, orange, healing potion, when these ingreds are there,
//#     she mixes the stuff (modify global variable!)
//# 3    you can start the minigame, 3 tries remaining
//# 4    you can start the minigame, 2 tries remaining
//# 5    you can start the minigame, 1 try   remaining
//# 6    not enough stuff remaining, jump to state 1
//# 7    yay! you made it!


//######################################################################################
009-2.gat,147,65,0|script|Nurse|119,
{
    callfunc "ClearVariables";

    set @SNAKET_AMOUNT, 5;
    set @BSCORPIONST_AMOUNT, 10;
    // This quest can be done very often: so give less xp
    set @QUEST1_EXP, 300;
    set @ACORNS_AMOUNT, 10;
    set @GREENAPPLE_AMOUNT, 5;
    set @REDAPPLE_AMOUNT, 5;
    set @ORANGE_AMOUNT, 5;
    set @HEALING_AMOUNT, 3;
    // This quest can be done very often: so give less xp
    set @QUEST2_EXP, 700;
    set @ANTIDOTE_EXP, 10000;

    set @Q_poison_MASK, NIBBLE_7_MASK;
    set @Q_poison_SHIFT, NIBBLE_7_SHIFT;
    set @Q_poison, (QUEST_Forestbow_state & @Q_poison_MASK) >> @Q_poison_SHIFT;

    set @inspector, ((QUEST_Hurnscald & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT);

    if (@Q_poison == 7) goto state7;
    if (@Q_poison == 6) goto state6;
    if (@Q_poison == 5) goto state5;
    if (@Q_poison == 4) goto state4;
    if (@Q_poison == 3) goto state3;
    if (@Q_poison == 2) goto state2;
    if (@Q_poison == 1) goto state1;
    if (getskilllv(SKILL_POOL)) goto state0;
    goto L_Usual;

L_Usual:
    mes "[Nurse]";
    mes "\"How can I help you?\"";
    next;

    if (@inspector == 1)
        menu
            "Oooh, these wounds! They hurt so much!", L_Heal,
            "I don't feel so well, I might be sick.", L_Doctor,
            "Have you seen anything out of the ordinary?", L_NohMask,
            "No, I'm fine.", L_Next;
    menu
        "Oooh, these wounds! They hurt so much!", L_Heal,
        "I don't feel so well, I might be sick.", L_Doctor,
        "No, I'm fine.", L_Next;

L_Next:
    mes "[Nurse]";
    mes "\"Then I would ask you to leave. There are people who really need our help.\"";
    goto L_Close;

L_Doctor:
    mes "[Nurse]";
    mes "\"Then you should better see the doctor. He is usually in his office on the 3rd floor.\"";
    goto L_Close;

L_Heal:
    if (BaseLevel > 20) goto L_NoHeal;
    mes "[Nurse]";
    mes "\"Here, let me heal you.\"";
    next;
    heal 10000, 10000;
    goto L_Close;

L_NoHeal:
    mes "[Nurse]";
    mes "\"I'm sorry but I'm here only to help young people.";
    mes "Your level is already higher than 20.";
    mes "You can get some rest in the inn near here.\"";
    goto L_Close;

L_NohMask:
    mes "[Nurse]";
    mes "\"I'm too busy here to observe the town.\"";
    goto L_Close;

state0:
    mes "[Nurse]";
    mes "\"Welcome! You really look like a competent person. Maybe you can help to deal with a problem we have.\"";
    next;
    mes "\"We recently had some accidents in the mines. It seems that the creatures in the mines became more aggressive.\"";
    next;
    mes "\"Unfortunately, some of them are poisonous and it is very difficult for us to help the miners.\"";
    next;
    mes "\"For that reason, I want to do some research on this subject, to create an antidote. But I need help to get some ingredients, someone who is able to deal with the dangerous creatures in the mines.\"";
    next;
    menu
        "I will do what I can. What do you need?", L_firstquest,
        "I'm really sorry, but I don't think I can help you.", L_Next1;

L_Next1:
    mes "\"That is disagreeable to hear. Maybe I can find another person to take this task.\"";
    next;
    goto L_Usual;

L_firstquest:
    set @Q_poison, 1;
    callsub S_Update_Var;
    mes "\"That's great! First, I need some parts of the poisonous creatures.\"";
    next;
    goto L_ExplainAgain1;

L_ExplainAgain1:
    mes "\"Please bring me five tongues of snakes and ten stingers of black scorpions.\"";
    goto L_Close;

state1:
    mes "[Nurse]";
    mes "\"You are back, wonderful! Did you get what we need for the antidote?\"";
    next;
    menu
        "Actually, I have another question.", L_Usual,
        "Sorry, I forgot. What shall I bring you?", L_ExplainAgain1,
        "I have what you asked for.", L_Next2,
        "I'm still working on that.", L_Close;

L_Next2:
    if (countitem("SnakeTongue") < @SNAKET_AMOUNT || countitem("BlackScorpionStinger") < @BSCORPIONST_AMOUNT)
        goto L_NotEnough;
    delitem "SnakeTongue", @SNAKET_AMOUNT;
    delitem "BlackScorpionStinger", @BSCORPIONST_AMOUNT;
    getexp @QUEST1_EXP, 0;
    set @Q_poison, 2;
    callsub S_Update_Var;
    mes "[Nurse]";
    mes "\"Very good. Now I have to extract the poison from this, it will take some time.\"";
    next;
    mes "\"But there are some other things we will need in any case. It would be courteous if you could get them meanwhile.\"";
    next;
    goto L_ExplainAgain2;

L_ExplainAgain2:
    mes "\"Please bring me ten acorns, five red apples, five green apples and also five oranges. And we need some small healing potions. They will be useful to hold off the baneful effects. Three of them will be enough, I guess.\"";
    goto L_Close;

state2:
    mes "You look at the nurse, who seems to be really tired, with shadows under her eyes. When she recognizes you, she smiles.";
    mes "[Nurse]";
    mes "\"I managed to extract the poisonous components. We should be able to create an antidote, if you have everything else we need.\"";
    next;
    menu
        "Actually, I have another question.", L_Usual,
        "I have a bad memory. Can you tell me again what we need?", L_ExplainAgain2,
        "I managed to get everything we need.", L_Next3,
        "I will go and get it.", L_Close;

L_Next3:
    if (countitem("Acorn") < @ACORNS_AMOUNT
        || countitem("GreenApple") < @GREENAPPLE_AMOUNT
        || countitem("RedApple") < @REDAPPLE_AMOUNT
        || countitem("Orange") < @ORANGE_AMOUNT
        || countitem("SmallHealingPotion") < @HEALING_AMOUNT)
            goto L_NotEnough;
    delitem "Acorn", @ACORNS_AMOUNT;
    delitem "GreenApple", @GREENAPPLE_AMOUNT;
    delitem "RedApple", @REDAPPLE_AMOUNT;
    delitem "Orange", @ORANGE_AMOUNT;
    delitem "SmallHealingPotion", @HEALING_AMOUNT;
    getexp @QUEST2_EXP, 0;
    set @Q_poison, 3;
    callsub S_Update_Var;
    goto L_Chemistry;

L_Chemistry:
    callsub L_Shuffle_Need;
    mes "The nurse takes the ingredients you brought and starts to squeeze the fruits and to crush the acorns. Then she put the fruit juices in some complicated looking chemical device.";
    next;
    mes "After some minutes, it is blubbering and steaming and a liquid is dripping in a pot under the device.";
    next;
    mes "Then she takes the acorn flour and the liquid and goes to a place back in the room, where she does something you don't see.";
    next;
    mes "After just a few moments, she comes back with a smiling face, holding two different bottles in her hand.";
    next;
    mes "[Nurse]";
    mes "\"That was easy compared to the things to be done with the stingers and snake tongues.\"";
    next;
    mes "Then her facial expression gets more serious.";
    next;
    mes "\"When we try to find the right mixture for the antidote, we need to test it.\"";
    next;
    mes "\"For that purpose, I will poison you. Then you drink the antidote to see if it works.\"";
    next;
    mes "\"If we make a mistake, this might be exhausting and painful, so you should rest a while and prepare yourself.\"";
    next;
    mes "\"Come back when you feel ready for that task.\"";
    goto L_Close;

state3:
    mes "[Nurse]";
    mes "\"Hello my friend. You feel prepared to test the antidote?\"";
    next;
    menu
        "Actually, I have another question.", L_Usual,
        "Yes, let us begin.",L_Exp_Game;

L_Exp_Game:
    mes "[Nurse]";
    mes "\"Listen carefully! I will explain what you need to do.\"";
    next;
    mes "\"I have here two different distillates. One is the venom extract, the other one is a stabilizer.\"";
    next;
    mes "\"We also have the healing potion.\"";
    next;
    mes "\"The problem is that I can only guess the concentration of the venom and the stabilizer. My equipment isn't good enough to determine them precisely.\"";
    next;
    mes "\"You need to find the right amount of each ingredient. I will tell you what I can know with my analysis methods.\"";
    next;
    mes "\"Shall we start?\"";
    next;
    menu
        "Please explain it again.", L_Exp_Game,
        "Alright.", L_Game;

L_Game:
    set @Q_poison, @Q_poison + 1;
    callsub S_Update_Var;
    // healing, venom, stabilizer
    callsub L_Load_Need;
    //descriptions
    set @desc_length, 6;

    setarray @desc$,"very little","only a little", "little","much", "a lot", "very much", "a huge amount";

    set @divisor, @count / @desc_length;

    set @hlIndex,  (@hlNeed-@offset) /@divisor;
    set @vnIndex,  (@vnNeed-@offset) /@divisor;
    set @stIndex,  (@stNeed-@offset) /@divisor;

    mes "[Nurse]";
    mes "\"I guess you need " + @desc$[@hlIndex] + " of the healing potion.\"";
    next;
    mes "\"You need " + @desc$[@vnIndex] + " of the venom extracts, I suppose.\"";
    next;
    mes "\"As far as I can tell you will need " + @desc$[@stIndex] + " of the stabilizer.\"";
    next;

    if(@hlNeed/@vnNeed > 1 )
        mes "\"I see that the healing potions are needed at least " + @hlNeed/@vnNeed + " times as much as the venom.\"";
    if(@vnNeed/@hlNeed > 1 )
        mes "\"I see that the venom extracts are needed at least " + @vnNeed/@hlNeed + " times as much as the healing potions.\"";
    if ( (@hlNeed/@vnNeed > 1 ) || (@vnNeed/@hlNeed > 1 ))
        next;

    if(@stNeed/@vnNeed > 1 )
        mes "\"I see that the stabilizer is needed at least " + @stNeed/@vnNeed + " times as much as the venom extracts.\"";
    if(@vnNeed/@stNeed > 1 )
        mes "\"I see that the venom extracts are needed at least " + @vnNeed/@stNeed + " times as much as the stabilizer.\"";
    if ((@vnNeed/@stNeed > 1 ) || (@stNeed/@vnNeed > 1 ))
        next;

    if(@stNeed/@hlNeed > 1 )
        mes "\"I see that the stabilizer is needed at least " + @stNeed/@hlNeed + " times as much as the healing potions.\"";
    if(@hlNeed/@stNeed > 1 )
        mes "\"I see that the healing potions are needed at least " + @hlNeed/@stNeed + " times as much as the stabilizer.\"";
    if ((@hlNeed/@stNeed > 1 ) || (@stNeed/@hlNeed > 1 ))
        next;
    goto L_choosePut;

L_choosePut:
    set @max, @count+@offset-1;
    set @min, @offset;
    mes "\"My scale goes up to " + @max + ". I suggest to put at least " + @min +" drops on the scale.\"";
    next;

    mes "\"How many drops of the healing potion should we use?\"";
    input @hlPut;
    if (@hlPut < @offset)
        goto L_Game_tooless;
    if (@hlPut > @max)
        goto L_Game_toomuch;

    mes "\"How many drops of the venom extract potion should we use? \"";
    input @vnPut;
    if (@vnPut < @offset)
        goto L_Game_tooless;
    if (@vnPut > @max)
        goto L_Game_toomuch;

    mes "\"How many drops of the stabilizer potion should we use? \"";
    input @stPut;
    if (@stPut < @offset)
        goto L_Game_tooless;
    if (@stPut > @max)
        goto L_Game_toomuch;

    mes "The nurse puts the potions together according to your instructions. Then she takes a spoon and stirs it.";
    next;
    mes "You take the glass and look suspiciously at the liquid, which has changed to an odd colour.";
    next;
    mes "[Nurse]";
    mes "\"Alright, now I will inject the venom into you, then you should drink the antidote immediately. Are you ready?\"";
    next;
    mes "You take a deep breath and nod.";
    next;
    mes "The nurse take a scary looking syringe out of a drawer and swabs your arm with disinfection dabber.";
    next;
    mes "Then she stings the syringe in your vein and pushs it down. After a few seconds, your heart starts pounding quicker and you begin to sweat all over your body.";
    next;
    mes "[Nurse]";
    mes "\"Drink the antidote!\"";
    next;
    mes "You lift the glass to your lips and drink it all at once.";
    next;

    if ( (@hlPut >  @hlNeed) && (@vnPut >  @vnNeed) )
        goto m_hl_m_vn;
    if ( (@hlPut >  @hlNeed) && (@vnPut <= @vnNeed) )
        goto m_hl_l_vn;
    if ( (@hlPut <= @hlNeed) && (@vnPut >  @vnNeed) )
        goto l_hl_m_vn;
    if ( (@hlPut <  @hlNeed) && (@vnPut <  @vnNeed) )
        goto l_hl_l_vn;

    mes "You feel quite normal.";
    mes "[Nurse]";
    mes "\"Oh yes, the concentration of the healing potions and the venom extracts seem to be right.\"";
    next;
    set @hl_vn_ok, 1;
    goto check_st;

m_hl_m_vn:
    //poison for 3 minutes
    sc_start sc_poison, 1, 20;
    mes "You begin to feel really dizzy. And you feel so light - you can't help yourself and burst out with laughter. What a strange feeling!";
    next;
    mes "The nurse looks at you with a really worried look on her face. As you open your mouth to tell her that you feel alright, the content of your stomach finds its way out through your throat and on the floor.";
    next;
    mes "The feeling of happiness disappears, but you seem to be still poisoned.";
    goto check_st;

m_hl_l_vn:
    //poison for 1 minute
    sc_start sc_poison, 1, 20;
    mes "You feel the pain of the poison weaken. This seems promising. The thought that you might have been successful makes you feel enormously happy.";
    next;
    mes "But a few seconds later, you wonder what was the reason for your happiness.";
    next;
    mes "Anyway, what are you doing here? Actually, where are you?";
    next;
    mes "You don't care, you feel so great. You start to giggle and laugh uncontrollably. What a wonderful feeling. ";
    next;
    mes "Suddenly, the world has some really strange colors. As you watch this woman in front of you changing her color from dark green to a light purple, you become really tired.";
    next;
    mes "You lay down on the floor and fall asleep.";
    next;
    mes "As you open your eyes again, the nurse shines in your face with a lamp and pulls your eyelids open. Then she nods.";
    next;
    mes "\"Very well, you are sober again.\"";
    next;
    goto check_st;

l_hl_m_vn:
    // first poison for 10 minutes, player will die anyway
    sc_start sc_poison, 1, 20;
    mes "You feel a sting in your stomach and your heart starts pounding loudly.";
    next;
    mes "The room is getting dark.";
    next;
    mes "...and darker...";
    next;
    mes ".......";
    // bye bye player!
    heal -Hp, 0;
    // close instead of telling how much stabilizer is needed
    goto L_Close;
    // goto check_st;

l_hl_l_vn:
    //poison for 1 minute
    sc_start sc_poison, 1, 20;
    mes "The antidote seems to have no effect.";
    goto check_st;

check_st:
    if ( (@stPut < @stNeed) )
        goto l_st;
    if ( (@stPut > @stNeed) )
        goto m_st;
    if (@hl_vn_ok == 1)
        goto allcorrect;

    mes "[Nurse]";
    mes "\"The amount of the stabilizer seems alright, but we have to think again about the other ingredients.\"";
    next;
    goto notallcorrect;

l_st:
    mes "[Nurse]";
    mes "\"It looks like we used not enough of the stabilizer. The antidote will lose its effect after some time.\"";
    next;
    goto notallcorrect;

m_st:
    mes "[Nurse]";
    mes "\"It looks like we used too much of the stabilizer. The antidote will turn into venom again after some time.\"";
    next;
    goto notallcorrect;

allcorrect:
    mes "You feel totally normal again.";
    next;
    mes "[Nurse]";
    mes "\"Wonderful! You made it! Now I will be able to help all the people who get poisoned in the mines!\"";
    next;
    mes "\"Thank you so much! Oh, and it seems as if you have gained the skill to resist poison someway. This is great.\"";
    next;
    mes "\"You should talk to someone who can help you to focus on your skills.\"";
    next;
    getexp @ANTIDOTE_EXP, 0;
    setskill SKILL_RESIST_POISON, 1;
    set @Q_poison, 7;
    callsub S_Update_Var;
    goto L_Close;

notallcorrect:
    mes "[Nurse]";
    mes "\"It didn't work. You are a really brave person. Now you should rest and recover. I hope you won't give up now. Please come back later, so we can try it again.\"";
    next;
    goto L_Close;

state4:
    mes "The nurse has a worried look in her face.";
    mes "[Nurse]";
    mes "\"Hello. I hope you recovered well.\"";
    next;
    mes "\"There is enough of the distillates left to have another try.\"";
    next;
    mes "\"Oh no, with all that trouble I forgot to label your distillate.\"";
    next;
    mes "She holds up two ampullas.";
    next;
    mes "\"I hope this one is yours. I'm sorry.\"";
    next;
    mes "\"If you feel ok, we could try it again.\"";
    next;
    menu
        "I still feel a bit dizzy, so I don't want to do it now.", L_Usual,
        "I'm ok. We can try, but please explain again.", L_Exp_Game,
        "Let's start right now.", L_Game;

state5:
    mes "The nurse looks at you pitifully.";
    mes "[Nurse]";
    mes "\"Hello. I'm really sorry for causing you so much pain.\"";
    next;
    mes "\"But if we succeed we will be heroes! I will be able to help a lot of people.\"";
    next;
    mes "\"Next time you might remind me to label the distillates correctly. I am sorry that it is screwed up again.\"";
    next;
    mes "\"There is enough stuff left for one last try.\"";
    next;
    mes "\"If we don't get it this time, you will have to get new ingredients.\"";
    next;
    mes "\"Do you want to try again?\"";
    next;
    menu
        "I still feel a bit dizzy, so I don't want to do it now.", L_Usual,
        "I'm ok. We can try, but please explain again.", L_Exp_Game,
        "Let's start right now.", L_Game;

state6:
    mes "The nurse looks at you pitifully.";
    mes "[Nurse]";
    mes "\"There is not enough stuff left for another try.\"";
    next;
    mes "\"We should try again, right?\"";
    set @Q_poison, 1;
    callsub S_Update_Var;
    goto L_ExplainAgain1;

state7: // geschafft
    mes "[Nurse]";
    mes "\"Thanks a lot, you can call yourself a true hero now!\"";
    next;
    mes "\"I am able to help the poisoned miners quite well now.\"";
    next;
    goto L_Usual;

L_NotEnough:
    mes "[Nurse]";
    mes "\"This must be a misunderstanding. You don't have all the things I asked you for.\"";
    if (@Q_poison == 1)
        goto L_ExplainAgain1;
    if (@Q_poison == 2)
        goto L_ExplainAgain2;
    // the following close *should* never be reached, but who knows, whoever will mess this script up!
    goto L_Close;

L_Close:
    set @inspector, 0;
    close;

S_Update_Var:
    set QUEST_Forestbow_state, (QUEST_Forestbow_state & ~(@Q_poison_MASK) | (@Q_poison << @Q_poison_SHIFT));
    return;

L_Game_init_vars:
    set @count, 24;
    set @offset, 1;
    return;

L_Shuffle_Need:
    callsub L_Game_init_vars;
    set @hlNeed, @offset + rand(@count);
    set @vnNeed, @offset + rand(@count);
    set @stNeed, @offset + rand(@count);

    set $NPC_NURSE,
            ($NPC_NURSE & ~(BYTE_0_MASK | BYTE_1_MASK | BYTE_2_MASK)
                | (@hlNeed << BYTE_0_SHIFT)
                | (@vnNeed << BYTE_1_SHIFT)
                | (@stNeed << BYTE_2_SHIFT));
    return;

L_Load_Need:
    callsub L_Game_init_vars;
    set @hlNeed, ($NPC_NURSE & BYTE_0_MASK) >> BYTE_0_SHIFT;
    set @vnNeed, ($NPC_NURSE & BYTE_1_MASK) >> BYTE_1_SHIFT;
    set @stNeed, ($NPC_NURSE & BYTE_2_MASK) >> BYTE_2_SHIFT;
    return;

L_Game_tooless:
    mes "[Nurse]";
    mes "\"That is nothing! You need to put in there at least a small amount.";
    goto L_choosePut;

L_Game_toomuch:
    mes "[Nurse]";
    mes "\"This would be way too much for my scale. I don't want to break it.\"";
    goto L_choosePut;
}