summaryrefslogtreecommitdiff
path: root/npc/001-2-26/ivan.txt
blob: 4cfb170dbd452df3f16ff8631033fad10e5af959 (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
// Evol scripts.
// Author:
//    Reid
// Description:
//    Alchemist NPC

001-2-26,28,30,0	script	Ivan	NPC_IVAN,{

    function ivan_description {
        speech 5,
            l("I am an alchemist, I bear the name of Ivan."),
            l("I work under the protection and the supervision of the Legion of Aemil."),
            l("Alchemical studies are prohibited in every city of the Archipelagos, do not dare to practice it in a public zone!");

        return;
    }

    function enora_quest {
        speech 5, l("How many? What kind? I can produce two dozen boxes per day.");

        select (l("5 @@s.", getitemlink(PiberriesInfusion)));

        speech 5,
            l("5 boxes... Alright, @@ are my speciality!", getitemlink (PiberriesInfusion)),
            l("I can prepare them in an hour or so!");

        select (l("You missunderstood, it's 5 potions."));

        speech 5,
            l("Why would the Legion request my help for only 5 potions?"),
            l("Is this some kind of joke?!");

        switch (select (l("Enora needs them."),
                        l("Excuse me that was a mistake.")))
        {
            case 1:
                break;
            case 2:
                narrator 1, l("Ivan grumbles and resumes his work.");
                emotion E_UPSET;
                close;
        }

        speech 5,
            l("Oh... You should have started with this!"),
            l("I have some spare one, take them, and tell Enora that any fees are paid!");

        setq ArtisQuests_Enora, 9;
        emotion E_HAPPY;
        return;
    }

    .@enora = getq (ArtisQuests_Enora);

    if (.@enora < 8)
    {
        npctalk3 l("I'm busy, leave me alone.");
    }

    speech 4, l("Yes what do you need?");

    select
        rif(.@enora == 8, l("The Legion needs some potions.")),
        rif(.@enora >= 8, l("Who are you?")),
        menuaction(l("Quit"));

    switch (@menu)
    {
        case 1:
            enora_quest;
            break;
        case 2:
            ivan_description;
            break;
    }

    closedialog;
    goodbye;
    close;

OnInit:
    .sex = G_MALE;
    .distance = 2;
    end;
}