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
|
// Annual Timer
// One timer to check to enable all holiday events
-|script|#HolidayConfig|32767
{
end;
OnInit:
if (debug >= 2) end;
donpcevent strnpcinfo(0) + "::OnTimer20000";
end;
OnTimer20000:
donpcevent "#XmasConfig::OnCommandRestartQuest";
donpcevent "#HalloweenConfig::OnCommandRestartQuest";
donpcevent "Easter Eggs::OnCheckEaster";
initnpctimer;
end;
OnClock0013:
goto L_Clock;
OnClock0113:
goto L_Clock;
OnClock0213:
goto L_Clock;
OnClock0313:
goto L_Clock;
OnClock0413:
goto L_Clock;
OnClock0513:
goto L_Clock;
OnClock0613:
goto L_Clock;
OnClock0713:
goto L_Clock;
OnClock0813:
goto L_Clock;
OnClock0913:
goto L_Clock;
OnClock1013:
goto L_Clock;
OnClock1113:
goto L_Clock;
OnClock1213:
goto L_Clock;
OnClock1313:
goto L_Clock;
OnClock1413:
goto L_Clock;
OnClock1513:
goto L_Clock;
OnClock1613:
goto L_Clock;
OnClock1713:
goto L_Clock;
OnClock1813:
goto L_Clock;
OnClock1913:
goto L_Clock;
OnClock2013:
goto L_Clock;
OnClock2113:
goto L_Clock;
OnClock2213:
goto L_Clock;
OnClock2313:
goto L_Clock;
L_Clock:
if (gettime(4) == 5)
goto L_Friday;
if (gettime(4) == 6)
goto L_Pirate;
goto L_Die;
L_Friday:
if (gettime(5) != 13)
goto L_Die;
areamonster "009-1", 20, 20, 115, 70, "Friday", 1163, 2, "#HolidayConfig::OnFriday";
areamonster "020-1", 20, 20, 120, 140, "Friday", 1163, 2, "#HolidayConfig::OnFriday";
areamonster "001-1", 20, 20, 120, 120, "Friday", 1163, 1, "#HolidayConfig::OnFriday";
end;
L_Pirate:
set $@BLANC, (getusers(1) / 5) + 1;
areamonster "001-1", 20, 20, 120, 120, "Blanc's Minion", 1121, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "002-1", 20, 20, 120, 120, "Blanc's Minion", 1119, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "003-4", 20, 20, 170, 120, "Blanc's Minion", 1122, 1, "#HolidayConfig::OnLameHat";
areamonster "004-1", 20, 20, 100, 110, "Blanc's Minion", 1120, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "007-1", 20, 20, 120, 100, "Blanc's Minion", 1120, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "011-6", 20, 140, 180, 280, "Blanc's Minion", 1121, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "018-1", 20, 20, 180, 100, "Blanc's Minion", 1122, 1, "#HolidayConfig::OnLameHat";
areamonster "041-1", 20, 20, 75, 100, "Blanc's Minion", 1119, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "042-1", 20, 20, 140, 120, "Blanc's Minion", 1120, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "043-1", 20, 20, 100, 130, "Blanc's Minion", 1121, $@BLANC, "#HolidayConfig::OnLameShield";
areamonster "057-1", 20, 60, 150, 100, "Blanc's Minion", 1122, 1, "#HolidayConfig::OnLameHat";
end;
OnFriday:
areamonster getmap(), getx()-3, gety()-3, getx()+3, gety()+3, "JackO", 1022, 1, "#HolidayConfig::OnLameShield";
end;
OnLameShield:
// Chance: 0.1% - 0.01%
// TODO: Once MLP brings the Dragon Shield, replace with HMC Hat.
if (rand(10000) > 9)
goto L_Die;
getitem "DragonShield", 1;
end;
OnLameHat:
// Chance: 0.1%
if (rand(1000) > 1)
goto OnLameShield;
getitem "HMCPirateHat", 1;
end;
L_Die:
end;
}
|
