summaryrefslogtreecommitdiff
path: root/world/map/npc/annuals/fathertime.txt
blob: c38eae2a54a76fd3ff61324a40b2e32859a8459b (plain) (blame)
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
// Annual Timer
// One timer to check to enable all holiday events
-|script|#HolidayConfig|32767
{
    end;

OnInit:
    if (debug >= 2) end;
    donpcevent strnpcinfo(0) + "::OnTimer20000";
    goto L_Clock;

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:
    // Christmas 2022 code, remove it later
    areamonster "034-1", 20, 20, 160, 110, "", 1162, 64;
    areamonster "033-1", 20, 20, 120, 110, "", 1162, 64;
    areamonster "046-1", 20, 20, 160, 115, "", 1162, 64;
    areamonster "047-1", 20, 20, 200, 180, "", 1162, 240;
    announce "Santa : Ho ho ho, I see a huge movement by the grinchboos!", 0;

    // Official code below:
    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) / 4) + 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, 2, "#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, 2, "#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, 2, "#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;
}