summaryrefslogtreecommitdiff
path: root/npc/005-6/morgan.txt
blob: 727c3342d0a291bb4f3b62722018d4418d5cbd5f (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
// 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 have magical powers. Have you been acknowledge by the Alliance as a mage? If not, you should regularize yourself as a @@º degree mage in Tulimshar Magic Council.", MAGIC_LVL);

L_MagicCore:
    select
        l("Acknowledgment? What do you mean?"),
        l("Magic Council? What's that?"),
        rif(!getskilllv(TMW2_KALMURK), l("Can you teach me a spell?")),
        rif(getskilllv(TMW2_KALMURK), l("I keep failing to summon maggots...")),
        l("Thanks for the help!");
    mes "";
    switch (@menu) {
    case 1:
        mesn;
        mesq l("You won't learn any skill without a good professor to teach them to you.");
        next;
        mesn;
        mesq l("And unless you have a mage permit from the Magic Council, you won't be going to CR1 - Academy Island either.");
        break;
    case 2:
        mesn;
        mesq l("You know the Tulimshar Magic Council? The big building on Tulimshar North?");
        next;
        mesn;
        mesq l("It rules Tulimshar, and is also one of the superior bodies of the Alliance. They have the last Mana Stone in the world on their meeting hall.");
        next;
        mesn;
        mesq l("They restrict access to it to prevent new Monster Kings from emerging. They also keep record on every mage in the world.");
        next;
        mesn;
        mesq l("In general, by touching the Mana Stone once, will make you a first degree mage. But these degrees goes up to seven and beyond, I think.");
        next;
        mesn;
        mesq l("Of course, if you don't ask from the Mana Stone for more magic, you will stay on the first degree forever...");
        break;
    case 3:
        mesn;
        mesq l("Sure! But that is Summon 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_Cheat;
            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("Kalmurk"));
            next;
            mesn;
            mesq l("That's a Summon Magic. Unlike regular magic, you can increase its levels directly from skill menu (F5).");
            next;
            mesn;
            mesq l("Keep in mind the more power you have, the less control you'll have as well. Until you get a %s to track progress, use %s to check your control. Less control may result in failure to summon!", getitemlink(JesusalvaGrimorium), b("@abizit"));
            next;
            mesn;
            mesq l("By the way, you need a couple of @@ to try the skill. Fail rate is pretty high if you don't know how to control your magic.", getitemlink(MaggotSlime));
        }
        break;
    case 4:
        mesn;
        mesq l("Summoning is part of Mana Magic. Mana Magic is trickier, you must have control over magic power to use it properly.");
        next;
        mesn;
        mesq l("This means everytime you get more power, you lose control. Pratice is the key.");
        next;
        mesn;
        mesq l("Try praticing with different mana magic skills. Anyway, you can use this command to see your magic proeficiency: " + b("@abizit"));
        break;
    default:
        close;
    }
    next;
    goto L_MagicCore;


L_Cheat:
    mesn;
    mesq l("I offer an awesome skill for you, for a very slow price, and you try to cheat me... pitiful...");
    close;

OnInit:
    sleep(SHOPWAIT);
	tradertype(NST_MARKET);

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

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

OnClock0556:
OnClock1201:
OnClock1759:
OnClock0003:
    restoreshopitem CottonCloth, 7;
    restoreshopitem Fungus, 10;
    restoreshopitem Bread, 15;
    end;


// Pay your taxes!
OnBuyItem:
    debugmes("Purchase confirmed");
    PurchaseTaxes();
    end;

OnSellItem:
    debugmes("Sale confirmed");
    SaleTaxes();
    end;

}