summaryrefslogtreecommitdiff
path: root/npc/005-6/morgan.txt
blob: f5fa6a7a262ba4f166fe0ac364b53c94d59b3aa2 (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
// TMW2 Script
// Author:
//    Jesusalva
// Description:
//  Morgan is the only mage in Candor. She was assigned by the Alliance to defend
//  the small island, and is married with Zitoni.

005-6,30,37,0	script	Morgan	NPC_RUMLY_FEMALE,{

    mesn;
    mesq lg("Hello there, darling.");
    next;
    menu
        l("Who are you?"), L_Who,
        l("Do you sell anything here?"), L_Shop,
        l("Hi."), -; // Let's be honest, many conversations dies this way >.<
    close;

L_Who:
    mes "";
    mesn;
    mesq l("I am @@, the only mage in Candor.", .name$);
    next;
    mesq l("My husband and I have moved here under the Alliance orders.");
    next;
    mesq l("I really hope that nothing major happens, though. I would hate to see blood being spilled.");
    next;
    if (!MAGIC_LVL)
        mesq l("If you train hard enough, and get access to a Mana Stone, I could teach you a trick or two. But right now, I don't sense magic compatibility in you.");
    else
        goto L_Magic;
    close;

L_Shop:
    mes "";
    mesn;
    mesq l("Why, I actually do sell a few things here! But they probably aren't what you're looking for.");
    next;
    openshop;
    closedialog;
    close;

// Magic Subsystem
L_Magic:
    mesn;
    mesq l("I see you are a mage too. Have you joined a class already? Luca and Colin are always recruiting on Tulimshar Magic Council.");

L_MagicCore:
    select
        l("What is an class?"),
        l("How difficult it is to obtain a class?"),
        rif(!getskilllv(TMW2_KALMURK), l("Can you teach me a spell?"),
        l("How magic works on this world?");
    mes "";
    switch (@menu) {
    case 1:
        mesn;
        mesq l("We have two main groups, entitled classes: The Magic Warriors, and the Wizard Mages.");
        next;
        mesn;
        mesq l("I don't think you can be part of more than one class, but you can accumulate subclasses. These will only unlock at tier 2, though.");
    case 2:
        mesn;
        mesq l("You know the Tulimshar Magic Council? The big building on Tulimshar North? There you can obtain a class.");
        next;
        mesn;
        mesq l("Getting in a class is easy, difficult is mastering it. But the more you advance, more powerful skills are unlocked.");
        next;
        mesn;
        mesq l("Of course, if you don't ask from the Mana Stone for more magic, that means nothing...");
    case 3:
        mesn;
        mesq l("Sure! But that is Mana Magic. Just bring me a mug of beer, I'm thristy. And I'll teach you a basic skill.");
        next;
        if (askyesno() == ASK_YES) {
            if (!countitem(Beer)) goto L_Lie;
            delitem Beer, 1;
            skill(TMW2_KALMURK,1,0);
            mesn;
            mesq l("You can use @@ to summon some maggots. That depends on your magic level, of course.", "##B@sk-kalmurk##b");
            next;
            mesn;
            mesq l("That's a Mana Magic. It is very different from regular magic. For example, it have an experience meter and an alias you can say.");
            next;
            mesn;
            mesq l("Unless you have an @@, it'll be difficult to track progress on Mana Magic, and you won't really gain any mana experience for a while.", getitemlink(JesusalvaGrimorium));
            next;
            mesn;
            mesq l("By the way, you need a couple of @@ to try the skill. Fail rate is pretty high, but that book will teach you how to reduce it.", getitemlink(MaggotSlime));
        }
    default:
        close;
    }
    next;
    goto L_MagicCore;


OnInit:
	tradertype(NST_MARKET);

    sellitem CottonCloth, 200, 7;
    sellitem Fungus, -1, 10;
    sellitem Bread, -1, 15;

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

OnClock0556:
OnClock1201:
OnClock1759:
OnClock0003:
    restoreshopitem CottonCloth, 200, 7;
    restoreshopitem Fungus, -1, 10;
    restoreshopitem Bread, -1, 15;
}