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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
015-1.gat,97,97,0 script #MagicSword#_M 127,{
if (getskilllv(SKILL_MAGIC))
goto L_message;
close;
L_message:
set @Q_MASK, NIBBLE_6_MASK;
set @Q_SHIFT, NIBBLE_6_SHIFT;
set @Q_status, (QUEST_MAGIC & @Q_MASK) >> @Q_SHIFT;
set @STATUS_INITIAL, 0;
set @STATUS_LEARNED_FLAREDART, 1;
set @STATUS_LEARNED_MAGICBLADE, 2;
set @STATUS_LEVEL2, 3;
if (@Q_status == @STATUS_INITIAL) goto L_Initial;
if (@Q_status == @STATUS_LEARNED_FLAREDART) goto L_FlareStage;
if (@Q_status == @STATUS_LEARNED_MAGICBLADE) goto L_MagicBladeStage;
mes "[Mystic Sword]";
mes "\"I have taught thee all I can teach for now.\"";
next;
close;
L_Initial:
mes "[Mystic Sword]";
mes "At this point, the river deepens, slowing down to a leisurely pace. In its center you notice an unusual stone, waves breaking around it.";
mes "Sticking out of the rock is a sword hilt.";
next;
mes "[Mystic Sword]";
mes "Suddenly, you hear a strange, metallic voice in your head, the voice of a woman.";
mes "\"A blissful day to thee, mortal!\"";
next;
mes "[Mystic Sword]";
mes "\"What is it is that brings thee to this place?\"";
next;
menu
"Who are you?", L_noq,
"Nothing in particular.", L_Initial_nothing,
"I was just exploring...", L_Initial_nothing,
"I am trying to learn magic!", L_Initial_learn;
close;
L_noq:
mes "[Mystic Sword]";
mes "The voice sounds slightly amused.";
mes "\"How sad to hear how manners have degenerated in recent centuries. Farewell for now, dear mortal.\"";
next;
close;
L_Initial_nothing:
mes "[Mystic Sword]";
mes "\"Then I wish thee well in thy travels, wanderer!\"";
next;
close;
L_Initial_learn:
mes "[Mystic Sword]";
mes "\"Magic? Unless I am very mistaken thou already possessest some magic. Yet perhaps I can grant thee some slight aid by providing a magical invocation?\"";
next;
mes "[Mystic Sword]";
mes "\"Alas, my nature is not quite conductive for spells of healing or protection, though I can bestow upon thee the powers for a rather more martial kind of power.\"";
mes "\"But first... why is it that thou seekest this power?\"";
next;
mes
"Never mind.", L_Farewell;
"To become stronger!", L_Initial_selfish,
"To kill!", L_Initial_selfish,
"I don't know yet...", L_Initial_dontknow,
"To protect the ones I love!", L_Initial_protect;
close;
L_Initial_selfish:
mes "[Mystic Sword]";
mes "\"Please return when thou art taking thy quest for magic a little more seriously.\"";
next;
close;
L_Initial_dontknow:
mes "[Mystic Sword]";
mes "\"A fair and honest thought at so early a point in thine quest.\"";
goto L_Initial_ok;
L_Initial_protect:
mes "[Mystic Sword]";
mes "\"Quite a high and laundable goal thou hast chosen for thyself! I do hope that thou canst live up to it.\"";
L_Initial_ok:
mes "\"Hark, then, mortal! For I shall bestow upon thee the secret of the flare dart spell!\"";
next;
mes "[Mystic Sword]";
mes "\"Oh, my apologies-- that was a little overly dramatic. But I do not get to talk to thy kin anymore all that often.\"";
next;
mes "[Mystic Sword]";
mes "\"For the flare dart spell throw a handful of sulphur powder up into the air, and say, '" + getspellinvocation("flare-dart") + "'.\"";
set @Q_status, @STATUS_LEARNED_FLAREDART;
callsub S_update_var;
next;
close;
L_FlareStage:
menu;
"Uhm... Hello, Sword?", L_FlareStage_hello,
"Can you teach me more magic?", L_FlareStage_impolite,
"Where can I get sulphur powder?", L_FlareStage_impolite;
close;
L_FlareStage_impolite:
mes "[Mystic Sword]";
mes "You hear a metallic chime in your head. After a second, you come to the conclusion that it was probably the sword sighing.";
mes "\"Greetings to thee, too, mortal, and farewell until thou hast learned some proper manners.\"";
next;
close;
L_FlareStage_hello:
mes "[Mystic Sword]";
mes "\"Well met once more, mortal! What brings thee here?\"";
next;
menu
"Can you teach me more magic?", L_FlareStage_moremagic,
"Where can I find sulphur powder?", L_FlareStage_sulphur,
"Farewell!", L_Farewell;
close;
L_FlareStage_moremagic:
mes "[Mystic Sword]";
mes "\"I can indeed! But first I must see if thou art worthy. Find my brother, and talk to him! If thou canst find him, she shall teach thee another spell.\"";
next;
goto L_Farewell;
L_FlareStage_sulphur:
mes "[Mystic Sword]";
mes "\"I do not know, though I suggest to seek out a local alchemist, if there is any.\"";
next;
goto L_Farewell;
L_MagicBladeStage:
mes "[Mystic Sword]";
mes "\"Welcome back! Thou hast now learned two basic spells of War magic.\"";
next;
mes "[Mystic Sword]";
mes "\"Dost thou wish to continue thy pursuits of this school of magic?\"";
next;
menu
"No.", -,
"Yes.", L_Levelup2_yes;
goto L_Farewell;
L_Levelup2_yes:
mes "[Mystic Sword]";
mes "\"Beware of what thou wishest for, mortal...\"";
next;
if (!MPQUEST) goto L_Levelup2_must_reg;
if (MPQUEST && (Mobpt < 1000)) goto L_Levelup2_must_practice;
mes "[Mystic Sword]";
mes "\"Thou hast collected " + Mobpt + " Monster Points. For one thousand of them, I shall admit thee to the school of war magic.\"";
next;
menu
"OK!", -,
"No... never mind.", L_Farewell;
set Mobpt, Mobpt - 1000;
mes "[Mystic Sword]";
mes "The sword begins to chant in your head!";
mes " \"Lords of Thunder, Fire, Rage!\"";
mes " \"Grant your powers to this mage,\"";
mes " \"Rising with your dreadful roar,\"";
if (Sex)
mes " \"Answer to his call to War!\"";
if (!Sex)
mes " \"Answer to her call to War!\"";
next;
mes "[Mystic Sword]";
mes "Your heart starts pounding, and suddenly you can hear the sound of drums in your head.";
mes "You smell something metallic...";
next;
mes "[Mystic Sword]";
mes "The sensation and the noises vanish as quickly as they came.";
mes "[5000 experience points]";
mes "[Level 2 in War Magic]";
set @Q_status, @STATUS_LEVEL2;
callsub S_update_var;
getexp 5000, 0;
if (getskilllv(SKILL_MAGIC_WAR) < 2)
skill SKILL_MAGIC_WAR, 2;
next;
mes "[Mystic Sword]";
mes "\"You have now taken your first true step down the path of war magic. Seek out my brother for thy next spell!\"";
next;
goto L_Farewell;
L_Levelup2_must_reg:
mes "[Mystic Sword]";
mes "\"To learn further magic, thou must advance in the school of war magic. I shall grant thee this advance if thou provest thy worthiness as a warrior.\"";
next;
mes "[Mystic Sword]";
mes "\"Travel to the city of Tulimshar, and talk to Aidan. Then, collect one thousand Monster Points and return to me.\"";
next;
goto L_Farewell;
L_Levelup2_must_practice:
mes "[Mystic Sword]";
mes "\"To advance thy magical powers, I must admit thee to the school of war magic. Prove to me that thou art a worthy warrior by collecting one thousand Monster Points, and return.\"";
next;
goto L_Farewell;
L_Farewell:
mes "[Mystic Sword]";
mes "\"Farewell for now!\"";
next;
close;
S_update_var:
set QUEST_MAGIC,
(QUEST_MAGIC & ~(@Q_MASK)
| (@Q_status << @Q_SHIFT));
return;
}
|
