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
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
|
// TMW2 Script
// Author:
// Jesusalva
// Description:
// Magic Blackbox
// Contains the internals for Scripture skill.
/* Type dictionary:
0 = Do nothing
1 = areaharm (healing will multiply power by -1)
2 = areasc
4 = summon elemental
*/
033-2,49,27,0 script Grandmaster NPC_BLUESAGE,{
mesn;
mes l("In the Crossroads, magic works differently. Chants have a flexible structure and are awfully powerful.");
next;
mesn;
mes l("The basic structure, for example, is:");
mesc l("Great fire, destroy everything!"), 1;
next;
mesn;
mes l("The first word is the ##Bintensity##b: Meager, Violent, Great, Epic, Legendary.");
mes l("The second word is the ##Belement##b: magic, fire, water, sacrament, darkness, hocus.");
mes l("The third word is the ##Baction##b: destroy, manifest, heal, blind, curse, poison, neutralize.");
mes l("The fourth and last word is the ##Brange##b: me, here, around, everything, everywhere.");
//mesc l("The range is centered on... I'm not sure. I believe on you!");
next;
mesn;
mes l("The more powerful the chant is, the more mana is consumed. If you don't have enough mana, your health will also be drained. \"Manifest\" is a summoning magic, \"neutralize\" will temporarily stop monsters, and the others... should be self-evident.");
mes l("Sacrament is holy magic. Hocus is actually ethereal magic, with extremely limited uses. Magic is a neutral element. You cannot use nature magic, I'm not sure why, but monsters can - so consider the element you'll use carefully.");
close;
OnInit:
.distance=6;
end;
}
function script Crossroads_Magic {
// Structure: "«Power» «Element», «Action» «Range»!"
.@msg$ = getarg(0);
explode(.@x$, .@msg$, " ");
// Not enough arguments
if (getarraysize(.@x$) != 4) return;
// Prepare the environment variables, including offset
.@o = 0; // Array Offset
.@Cost = 0; // MP Cost
.@PW = 20; // Power (in % of MATK)
.@RG = 0; // Range (circular tiles)
.@EL = 0; // Element
.@TY = 0; // Type uses a special logic
.@SC = 0; // Status Condition, if any
.@F$ = "filter_hostile"; // Skill Target
// Power word (optional)
.@mp = 10+(readparam2(bInt)*20);
.@w$ = .@x$[.@o];
if (.@w$ == "meager") {
.@PW += min(25, .@mp);
.@Cost += 25;
} else if (.@w$ == "violent") {
.@PW += min(50, .@mp);
.@Cost += 50;
} else if (.@w$ == "great") {
.@PW += min(75, .@mp);
.@Cost += 75;
} else if (.@w$ == "epic") {
.@PW += min(100, .@mp);
.@Cost += 100;
} else if (.@w$ == "legendary") {
.@PW += min(150, .@mp);
.@Cost += 150;
} else {
// Not a valid power, so not a valid magic
return;
}
.@o += 1;
// Element
.@w$ = .@x$[.@o];
if (.@w$ == "magic") {
.@EL = Ele_Neutral;
} else if (.@w$ == "water" ||
.@w$ == "ice") {
.@EL = Ele_Water;
} else if (.@w$ == "fire") {
.@EL = Ele_Fire;
} else if (.@w$ == "sacrament") {
.@EL = Ele_Holy;
} else if (.@w$ == "darkness") {
.@EL = Ele_Dark;
} else if (.@w$ == "hocus") {
.@EL = Ele_Ghost;
} else {
// Not a valid element, so not a valid magic
return;
}
.@o += 1;
// Action Verb
.@w$ = .@x$[.@o];
/* Damage Only */
if (.@w$ == "destroy" ||
.@w$ == "beat" ||
.@w$ == "eviscerate") {
.@TY = 1;
.@PW += rand2(3);
/* HP recovery */
} else if (
.@w$ == "heal" ||
.@w$ == "recover") {
.@PW *= -1;
.@TY = 1;
.@F$ = "filter_friendlynotme";
/* Damage + Ailment */
} else if (.@w$ == "blind") {
.@SC = SC_BLIND;
.@TY = 1 | 2;
.@Cost *= 2;
.@PW /= 2;
if (.@EL != Ele_Ghost) .@PW = .@PW * 4 / 5; // Bonus: Hocus
} else if (.@w$ == "curse") {
.@SC = SC_CURSE;
.@TY = 1 | 2;
.@Cost *= 2;
.@PW /= 2;
if (.@EL != Ele_Ghost) .@PW = .@PW * 4 / 5; // Bonus: Hocus
} else if (.@w$ == "poison") {
.@SC = SC_POISON;
.@TY = 1 | 2;
.@Cost *= 2;
.@PW /= 2;
if (.@EL != Ele_Ghost) .@PW = .@PW * 4 / 5; // Bonus: Hocus
} else if (.@w$ == "tranquilize" || .@w$ == "neutralize") {
.@SC = SC_SLEEP;
.@TY = 1 | 2;
.@Cost *= 2;
.@PW /= 2;
if (.@EL != Ele_Ghost) .@PW = .@PW * 4 / 5; // Bonus: Hocus
/* Elemental Summoning */
} else if (.@w$ == "manifest") {
.@TY = 4;
} else {
// Invalid magic type
return;
}
.@o += 1;
// Range or filter, please do not simplify the fractions
.@w$ = .@x$[.@o];
if (.@w$ == "me") {
.@F$ = "filter_onlyme";
.@Cost /= 2;
} else if (.@w$ == "here") {
.@RG = 1;
.@Cost = .@Cost * 12 / 10;
} else if (.@w$ == "around") {
.@RG = 3;
.@PW = .@PW * 9 / 10;
.@Cost = .@Cost * 14 / 10;
} else if (.@w$ == "everything") {
.@RG = 5;
.@PW = .@PW * 7 / 10;
.@Cost = .@Cost * 16 / 10;
} else if (.@w$ == "everywhere") {
.@RG = 7;
.@PW = .@PW * 5 / 10;
.@Cost = .@Cost * 18 / 10;
} else {
// Invalid range
return;
}
.@o+=1;
/* Final Adjustments */
// This spell is too costly currently as it is based on ML, give a discount
.@Cost = .@Cost * 2 / 5;
// Cast Delay
.@agi = min(readparam2(bAgi), 150);
.@dex = min(readparam2(bDex), 150);
.@agi += rand2(readparam2(bLuk)) / 5;
.@dex += rand2(readparam2(bVit)) / 5;
.@del = (500 + (.@PW*3)) - ((.@agi + .@dex / 2) * 5 / 3);
.@del = max(10, .@del);
sleep2(.@del);
// Check if you were killed while casting
if (ispcdead())
return;
/* Note: You cannot heal if MP cost go over, to stop cheaters */
if (.@PW < 0 && .@Cost > Sp)
return;
/* Chanting success! */
if ($@GM_OVERRIDE)
debugmes "Chanting » \"%s\" (PW %d Cost %d)", .@msg$, .@PW, .@Cost;
/* Deduct the MP, HP is paid in a 3:1 ratio */
if (.@Cost > Sp)
Hp -= (.@Cost - Sp) * 3;
Sp -= min(.@Cost, Sp);
// areaharm()
if (.@TY & 1) {
.@dmg = AdjustSpellpower(.@PW);
areaharm(getcharid(3), .@RG, .@dmg, HARM_MAGI, .@EL, .@F$);
}
// areasc()
if (.@TY & 2) {
.@ch = 60 * readparam2(bInt); // 0.6% per intelligence point
.@du = (readparam2(bVit) + readparam2(bInt)) * 10; // 0.1s per str+int
// Power multipliers
.@du *= .@PW / 100;
.@ch *= .@PW / 100;
areasc(.@RG, .@du, .@SC, BL_MOB|BL_PC|BL_HOM|BL_MER, 1, .@F$, getcharid(3), .@ch);
}
// summon()
if (.@TY & 4) {
switch (.@EL) {
case Ele_Neutral: .@MB = ElectroWorm; break;
case Ele_Water: .@MB = WaterFairy; break;
case Ele_Fire: .@MB = FireFairy; break;
case Ele_Holy: .@MB = PoisonFairy; break;
case Ele_Dark: .@MB = BlackScorpion; break;
case Ele_Ghost: .@MB = MisterPrickel; break;
default: .@MB = Assassin; break; // ???
}
.@t = 10 + (min(readparam2(bInt), 150) / 15) + (.@PW/5);
.@a = 1 + (.@PW/25) + (.@RG/2); // Amount of spawns
// Actual summoning core
for (.@i=0; .@i < .@a; .@i++) {
.@m = summon("Summoned Monster", .@MB, .@t);
/* Monster final stats depends on the power you're using */
.@bhp = getunitdata(.@m, UDT_MAXHP);
.@ak1 = getunitdata(.@m, UDT_ATKMIN);
.@ak2 = getunitdata(.@m, UDT_ATKMAX);
.@bhp = .@bhp * (.@PW) / 100;
.@ak1 = .@ak1 * (.@PW) / 100;
.@ak2 = .@ak2 * (.@PW) / 100;
setunitdata(.@m, UDT_MAXHP, .@bhp);
setunitdata(.@m, UDT_HP, .@bhp);
setunitdata(.@m, UDT_ATKMIN, .@ak1);
setunitdata(.@m, UDT_ATKMAX, .@ak2);
}
}
return;
}
|
