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
|
-|script|spell-wand|32767
{
if(call("magic_checks")) goto L_Failed;
set @wandspell[0], 0; // reset state
callfunc "adjust_spellpower";
callsub S_Loop; // set up wand
if(@wandspell[0] < 1) goto L_Failed;
// here we install
set @_M_BLOCK, 1; // block casting, until the timer clears it
addtimer 500, "Magic Timer::OnClear"; // set the new debuff
misceffect FX_MAGIC_WAND_CAST, strcharinfo(0);
callfunc "magic_exp";
goto L_FreeRecast;
L_FreeRecast:
if (@wandspell[4] > 0)
addtimer 0, strnpcinfo(0) + "::OnSetRecast";
end;
OnDischarge:
if (@wandspell[4] < 1) end;
set @wandspell[4], 0;
misceffect FX_MAGIC_DISCHARGE, strcharinfo(0);
overrideattack;
end;
OnSetRecast:
overrideattack @wandspell[3], 3, ATTACK_ICON_GENERIC, @wandspell[0], strnpcinfo(0)+"::OnAttack", @wandspell[4];
end;
OnAttack:
if(target(BL_ID, @target_id, 22) != 22) goto L_FreeRecast; // 0x02 | 0x04 | 0x10
if (Sp < @wandspell[1]) goto L_LowSp;
set Sp, (Sp - @wandspell[1]);
void call("elt_damage", @wandspell[2],@wandspell[2],ELT_NEUTRAL,ELT_NEUTRAL,FX_NONE);
set @wandspell[4], @wandspell[4] - 1;
goto L_FreeRecast;
S_Loop:
if ((getequipid(equip_hand1) == .Wands[.@wand_loop]) || (getequipid(equip_hand2) == .Wands[.@wand_loop]))
goto S_SetWand;
set .@wand_loop, (.@wand_loop + 1);
if (.@wand_loop >= getarraysize(.Wands))
goto S_NoWand;
goto S_Loop;
S_SetWand:
set .@pwr, .WandsPwr[.@wand_loop];
if (QL_MORGAN == 2)
set QL_MORGAN, 3;
setarray @wandspell[0],
.WandsAnim[.@wand_loop], // wand anim/id
(.@pwr * (BaseLevel / 15) + 2), // wand cost
(.@pwr * (@spellpower / 3)), // wand dmg
(((200 - Agi) * 1200) / 200), //delay
(.@pwr + (@spellpower / 10)); // charges
return;
S_NoWand:
message strcharinfo(0), "Wand : ##3##BYou need a wand Equipped!";
return;
L_LowSp:
message strcharinfo(0), "Wand : ##3##BOut of Mana";
end;
L_Failed:
//misceffect FX_ELECTRICITY_RED, strcharinfo(0); // XXX: do we show an effect on fail?
//debugmes "cast or attack failed";
end;
OnInit:
setarray .Wands[0], 0, 758, 1171, 906;
setarray .WandsPwr[0], 0, 2, 1, 1;
setarray .WandsAnim[0], 0, OVERRIDE_WAND_STAFF, OVERRIDE_WAND_WAND, OVERRIDE_BLADE;
set .school, SKILL_MAGIC;
set .invocation$, chr(MAGIC_SYMBOL) + "confringo"; // used in npcs that refer to this spell
void call("magic_register");
set .level, 0;
set .exp_gain, 1;
end;
}
|
