summaryrefslogtreecommitdiff
path: root/npc/001-1/qpid.txt
blob: a02874a5f783bc5bab07ccf9e7ae6742e87b892f (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.
// Authors:
//    Reid
// Description:
//    Potion seller, she is part of the Enora's noob quests.

001-1,65,116,0	script	Q'Pid#001-1	NPC_QPID,{

    function alchemist_information {
        speech 5,
            l("Do? I don't do them."),
            l("I'm sure that you already knew the answer, didn't you?"),
            l("You tried to embarrass me, am I right?!"),
            l("It's Ivan... I'm sure that he sent you to annoy me..."),
            l("I'm just a merchant, I trade and make deals, yes \"excuse\" me if I'm not as skilled as this stupid alchemist."),
            l("But rare are those that receive grants from the Legion itself. For anybody else only a hard work can pay your bills!");
        emotion 11;

        switch (select (l("Sorry I didn't mean to bother you."),
                        l("You are just sitting on the shadow of your store.")))

        {
            case 1:
                mes "";
                mesn;
                break;
            case 2:
                speech 5, l("You are honnest, I like it.");
                break;
        }
        mesq l("Is that all you had to say?");
        next;

        return;
    }

    speech 4,
        l("");

    // Add Enora's quest with a riddle.
    .@enora = getq(ArtisQuests_Enora);

    do
    {
        menuint
            rif (.@enora == 5, l("Enora wants her potions.")), 0,
            l("[Trade]"), 1,
            l("How do you do your potions?"), 2,
            l("What are you reading?"), 3,
            l("[Quit]"), 4;

        switch (@menuret)
        {
            case 0:
                speech 5,
                    l("");
                break;
            case 1:
                closedialog;
                shop "Store#Potion001-1";
                close;
            case 2:
                alchemist_information;
                break;
            case 3:
                speech 5,
                    l("It's a poem, about poems... Why are you asking that?"),
                    l("Because I am an orc I can't read such things? That's rubbish."),
                    l("I borrowed it from the library, you should try to cultivate yourself more instead of insunuate such things to people you don't know!");
                break;
            case 4:
                break;
        }
    } while (@menuret != 4);

    closedialog;
    goodbye;
    close;

OnInit:
    .sex = G_FEMALE;
    .distance = 3;
    end;
}