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
|
// 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 a class?"),
l("How difficult it is to obtain a class?"),
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("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.");
break;
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...");
break;
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_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("@sk-kalmurk"));
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("If you don't have a @@, you can only track progress on Mana Magic using @@, and you won't really gain any mana experience for a while.", getitemlink(JesusalvaGrimorium), b("@sk-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("@sk-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:
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;
}
|
