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;
}
|
