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
|
// TMW2 Scripts.
// Author:
// Jesusalva
// Description:
// Monster King Throne
boss,45,45,0 script #monsterthrone NPC_HIDDEN,0,0,{
end;
OnTouch:
if (strcharinfo(2) == "Monster King") end;
warp "boss", 45, 48;
percentheal -15,0;
dispbottom "The throne is cursed, only the Monster King may seat on it.";
end;
// Controls the Event
OnBegin:
.CYCLES=0;
.MK=monster("boss", 45, 45, "The Monster King", MonsterKing, 1, .name$+"::OnVictory");
.@bhp=getunitdata(.MK, UDT_MAXHP);
setunitdata(.MK, UDT_MAXHP, .@bhp+50000+2000*.FAILS);
setunitdata(.MK, UDT_HP, .@bhp+50000+2000*.FAILS);
// Spawn reinforcements
.@mobId=MonsterLieutenant;
.@ts$="Lieutenant";
monster("boss", 40, 40, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
monster("boss", 50, 50, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
monster("boss", 40, 50, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
monster("boss", 50, 40, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
initnpctimer;
end;
function CheckFinalAssault {
if (!siege_calcdiff(5)) {
kamibroadcast("You noobs, you all deserve to die!", "Monster King");
stopnpctimer;
// Clean Up
mapwarp("boss", "017-1", 120, 88);
killmonsterall("boss");
// Raise difficulty
.FAILS+=1;
// Halt execution
end;
}
return;
}
OnTimer120000:
.CYCLES+=1;
//areamonster("boss", 20, 20, 70, 70, "Monster King Slave", );
// Spawn several monsters on the Boss Room every 2 minutes
siege_cast("boss", .name$, .FAILS, TP_TULIM|TP_HURNS|TP_NIVAL);
// Spawn an extra mini-boss at minutes: 10 and 30
if (.CYCLES == 5) {
.@mobId=MonsterColonel;
.@ts$="Colonel";
monster("boss", 45, 44, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
}
if (.CYCLES == 15) {
.@mobId=MonsterGeneral;
.@ts$="General";
monster("boss", 45, 44, strmobinfo(1, .@mobId), .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
}
initnpctimer;
OnTimer15000:
// Each fail raise curse duration in 0.1s - chance of curse is 15% each 15s
if (rand2(100) <= 15) {
areasc2("boss", 45, 45, 25, 3000+(.FAILS*100), SC_CURSE, BL_PC | BL_HOM | BL_MER);
//globalmes("MSG");
unittalk(.MK, "Be cursed, you fools! I am the mighty Monster King!!");
}
OnTimer5000:
OnTimer10000:
OnTimer20000:
OnTimer25000:
OnTimer30000:
OnTimer35000:
OnTimer40000:
OnTimer45000:
OnTimer50000:
OnTimer55000:
OnTimer60000:
OnTimer65000:
OnTimer70000:
OnTimer75000:
OnTimer80000:
OnTimer85000:
OnTimer90000:
OnTimer95000:
OnTimer100000:
OnTimer105000:
OnTimer110000:
OnTimer115000:
CheckFinalAssault();
end;
// Monster King was defeated - game won
OnVictory:
// Not killed by a player? It doesn't counts, then
if (!playerattached())
end;
kamibroadcast("has just defeated the Monster King.", strcharinfo(0));
stopnpctimer;
mapwarp("boss", "017-1", 120, 88);
$GAME_STORYLINE=5;
getitembound(AegisShield, 1, 1);
dispbottom l("For defeating the Monster King, you've got the Legendary @@.", getitemlink(AegisShield));
dispbottom l("This item cannot be traded normally and is a Legendary Item.");
dispbottom l("You can transfer it with \"@grantpower\" command. Please contact a GM for more info.");
dispbottom l("Protip: If you plan in selling it, it's adviseable to ask for GM mediation.");
end;
}
|
