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
|
// Evol script
// Year: 2022
//
////////////////////////////////////////////////
// Red Corsair Day
002-1,0,0,0|script|#CRC2023|32767
{
end;
OnFirst:
if (strcharinfo(0) != "Blanc" && GM < G_ADMIN) end;
wgm "==> Flagship spawned by "+strcharinfo(0);
monster "002-1", 29, 61, "", MontBlanc, 1, "#CRC2022::OnExplode";
areatimer 0, "002-1", 20, 20, 100, 120, 10, "#CRC2023::OnMusic";
initnpctimer;
end;
OnThird:
if (strcharinfo(0) != "Blanc" && GM < G_ADMIN) end;
gmlog strcharinfo(0)+" : @spawn CRCMonsters 25";
//set $@CRC22Mc, mobcount("002-1", "#CRC2022::OnDie")+1;
set $@CRC22Mc, 0;
set $@CRC22Gl, 25;
set $@CRC22M$, "002-1";
set $@CRC22Xm, 52;
set $@CRC22Ym, 100;
if ($@CRC22Mc >= $@CRC22Gl) end;
callsub S_Spawn;
end;
// Use @music instead, but this is to help you
OnMusic:
music "Dramatic.ogg";
end;
OnDeMusic:
music "faith.ogg";
end;
// Main ship cannon (range = infinity)
OnBoom:
misceffect 30, strcharinfo(0);
heal -(rand(BaseLevel*3/2)), 0;
end;
// Extra wave control system [0]
S_Spawn:
set $@CRC_IDX, rand(getarraysize($@crc_mobs));
areamonster $@CRC22M$, 20, 20, $@CRC22Xm, $@CRC22Ym, "", $@crc_mobs[$@CRC_IDX], 1, "#CRC2022::OnDie";
set $@CRC22Mc, $@CRC22Mc + 1;
if($@CRC22Mc < $@CRC22Gl) goto S_Spawn;
return;
OnTimer5000:
areatimer 0, "002-1", 20, 20, 500, 500, 100, "#CRC2023::OnBoom";
initnpctimer;
end;
OnDie:
end;
OnExplodeT:
if (strcharinfo(0) != "Blanc" && GM < G_ADMIN) end;
goto OnExplode;
OnExplode:
wgm "==> Flagship sank by "+strcharinfo(0);
stopnpctimer;
mapannounce "002-1", "Mont Blanc : Captain! Fall back!! They have damaged the outer hull!", 0;
areatimer 0, "002-1", 20, 20, 100, 120, 10, "#CRC2023::OnDeMusic";
end;
OnInit:
setarray $@crc_mobs, Thug, Swashbuckler, Grenadier, Thug, Swashbuckler, Grenadier, VoidSoldier, Bandit, Thug, Swashbuckler, Grenadier, Thug, Swashbuckler;
// Register commands
registercmd "#crcflagship", strnpcinfo(0)+"::OnFirst";
registercmd "#crcmobs", strnpcinfo(0)+"::OnThird";
registercmd "#crcdie", strnpcinfo(0)+"::OnExplodeT";
end;
}
|
