summaryrefslogtreecommitdiff
path: root/npc/012-6/nurse.txt
blob: 80d442856763923860a5d861fcf5cf5325098b0f (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
// TMW-2 Script
// Author:
//    Jesusalva
//    Crazyfefe
// Notes:
//  HurnscaldQuest_BloodDonor
//      1 - Donation finished
//      2 - Donation in progress
//  Structure
//      Status, Next Attempt Timer

012-6,56,67,6	script	Hurnscald's Nurse	NPC_FEMALE,{
    .@q2=getq2(HurnscaldQuest_BloodDonor);
    if (.@q2 > gettimetick(2)) {
        Nurse(.name$, 10, 6);
        close;
    }
    mesn;
    mesq l("Hello there. Do you want to donate blood?");
    mesc l("Donating blood will BLOCK YOUR MOVEMENT for three minutes.");
    mesc l("Do not disconnect while waiting. You need 100% HP to donate.");

L_BLCore;
    mes "";
    select
        l("I need infirmary services."),
        l("Info"),
        rif(readparam(Hp) == readparam(MaxHp), l("Yes, please use my blood to save lifes."));
    mes "";
    switch (@menu) {
        case 1:
            Nurse(.name$, 10, 6);
            close;
        case 2:
            mesn;
            mesq l("Donating blood is a noble act, which allows to save lifes.");
            next;
            mesn;
            mesq l("When people loses too much blood, they die, unless we can lend them somebody's else blood.");
            next;
            mesn;
            mesq l("Not everyone can be a blood donor. For example, you must be healthy.");
            mesq l("You can think more info about this on these links:");
            mes "";
            mes "[@@https://www.blood.co.uk/|https://www.blood.co.uk/@@]";
            mes "[@@https://www.nhsbt.nhs.uk/what-we-do/blood-services/blood-donation/|https://www.nhsbt.nhs.uk/what-we-do/blood-services/blood-donation/@@]";
            mes l("France: [@@https://dondesang.efs.sante.fr/|https://dondesang.efs.sante.fr/@@]");
            mes l("Brazil: [@@http://www.prosangue.sp.gov.br/home/Default.html|http://www.prosangue.sp.gov.br/home/Default.html@@]");
            next;
            goto L_BLCore;
        case 3:
            mesn;
            mesq l("Please don't sound like I was some sort of vampire or something...");
            next;
            mesn;
            mesq l("This will take only a short while.");
            next;
            setq1 HurnscaldQuest_BloodDonor, 2;
            percentheal -90, 0;
            addtimer(180000, "Hurnscald's Nurse::OnDonationComplete");
            slide 34, 29;
            setpcblock(PCBLOCK_ATTACK|PCBLOCK_SKILL|PCBLOCK_ITEM|PCBLOCK_MOVE, true);
            dispbottom l("Any movement/skill/item will be without effect until time is up.");
            closedialog;
            close;
    }

    close;

OnDonationComplete:
    if (checkpcblock() & PCBLOCK_ATTACK)
        setpcblock(PCBLOCK_ATTACK|PCBLOCK_SKILL|PCBLOCK_ITEM|PCBLOCK_MOVE, false);
    slide 58, 67;
    percentheal 100, 0;
    getexp readparam(Hp)*2, readparam(Hp)/100;
    setq HurnscaldQuest_BloodDonor, 1, gettimetick(2)+(2592000); // 60*60*24*30
    mesn;
    mesq l("Thanks for donating blood. You can donate again in 30 days.");
    close;

OnInit:
    .@npcId = getnpcid(.name$);
    //setunitdata(.@npcId, UDT_HEADTOP, BrimmedFeatherHat);
    setunitdata(.@npcId, UDT_HEADMIDDLE, MiniSkirt);
    setunitdata(.@npcId, UDT_HEADBOTTOM, ShortTankTop);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 12);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 16);

    .sex = G_FEMALE;
    .distance = 5;
    end;

}