summaryrefslogtreecommitdiff
path: root/npc/029-0/event.txt
blob: d7a1b50884ebea98d8a4b840062a7c1f4bac41f9 (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
128
129
// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    Exclusive for Fires of Steam 2021 - When our OVH server datacenter got fire.

029-0,111,37,0	script	Alliance Hero#FoS	NPC_HALBERDBARBARIAN,{
    if (gettime(7) != 2021 || !$FIRESOFSTEAM) {
        disablenpc .name$;
        die(); end;
    }

    mesn;
    mesq l("Sooo, the police station of Moubootaur Legends went ablaze. Constable Perry is too busy to monitor illegal operation on this continent.");
    next;
    mesn;
    mesq l("Therefore... Are you perhaps interested in some... illicit goods? %%p");
    next;
    select
        l("Show me what you got, noob."),
        l("Actually - Do you exchange goods even more illegal goods than this?"),
        l("Actually - Do you exchange illegal... research results?");
    mes "";
    if (@menu == 1) {
        closeclientdialog;
        openshop .name$;
        close;
    }
    else if (@menu == 2) {
        mesn;
        mesq l("Yes I do... I sell %s %s for the small amount of %s GP. Interested? %%%%p", fnum(.mobp), l("Monster Points"), fnum(.mobg));
        if (Zeny < .mobg) close;
        next;
        if (askyesno() == ASK_NO) close;
        if (Zeny < .mobg) { die(); close; }
        Zeny-=.mobg;
        Mobpt+=.mobp;
        mes "";
        mesn;
        mesq l("Hehehe... A pleasure doing business with you!");
    } else if (@menu == 3) {
        mesn;
        mesq l("Yes I do... I sell %s %s for the small amount of %s GP. Interested? %%%%p", fnum(.robp), l("Research Points"), fnum(.robg));
        if (Zeny < .robg) close;
        next;
        if (askyesno() == ASK_NO) close;
        if (Zeny < .robg) { die(); close; }
        Zeny-=.robg;
        Mobpt+=.robp;
        mes "";
        mesn;
        mesq l("Hehehe... A pleasure doing business with you!");
    }
    close;

OnInit:
	tradertype(NST_MARKET);
    .mobp=rand2(1000, 2500);
    .mobg=.mobp*rand2(100, 150)/10;
    .robp=rand2(900, 1200);
    .robg=.robp*rand2(80, 110);
    .distance=5;
    .sex=G_MALE;

    sellitem Coal, -1, 40;
    sellitem IronOre, -1, 30;
    sellitem CopperOre, -1, 20;
    sellitem LeadOre, -1, 15;
    sellitem TinOre, -1, 15;
    sellitem SilverOre, -1, 14;
    sellitem GoldOre, -1, 14;
    sellitem TitaniumOre, -1, 9;
    sellitem IridiumOre, -1, 6;
    sellitem PlatinumOre, -1, 3;

    sellitem AncientBlueprint, -1, 5;

    sellitem AlchemyBlueprintA, -1, 5;
    sellitem AlchemyBlueprintB, -1, 4;
    sellitem AlchemyBlueprintC, -1, 3;
    sellitem AlchemyBlueprintD, -1, 2;
    sellitem AlchemyBlueprintE, -1, 1;

    sellitem EquipmentBlueprintA, -1, 5;
    sellitem EquipmentBlueprintB, -1, 4;
    sellitem EquipmentBlueprintC, -1, 3;
    sellitem EquipmentBlueprintD, -1, 2;
    sellitem EquipmentBlueprintE, -1, 1;

    sellitem ArcmageBoxset, 10000, 4;

    if (gettime(7) != 2021)
        disablenpc .name$;
    end;

OnClock0001:
OnClock1201:
    .mobp=rand2(1000, 2500);
    .mobg=.mobp*rand2(100, 150)/10;

    restoreshopitem Coal, 40;
    restoreshopitem IronOre, 30;
    restoreshopitem CopperOre, 20;
    restoreshopitem LeadOre, 15;
    restoreshopitem TinOre, 15;
    restoreshopitem SilverOre, 14;
    restoreshopitem GoldOre, 14;
    restoreshopitem TitaniumOre, 9;
    restoreshopitem IridiumOre, 6;
    restoreshopitem PlatinumOre, 3;

    restoreshopitem AncientBlueprint, 5;

    restoreshopitem AlchemyBlueprintA, 5;
    restoreshopitem AlchemyBlueprintB, 4;
    restoreshopitem AlchemyBlueprintC, 3;
    restoreshopitem AlchemyBlueprintD, 2;
    restoreshopitem AlchemyBlueprintE, 1;

    restoreshopitem EquipmentBlueprintA, 5;
    restoreshopitem EquipmentBlueprintB, 4;
    restoreshopitem EquipmentBlueprintC, 3;
    restoreshopitem EquipmentBlueprintD, 2;
    restoreshopitem EquipmentBlueprintE, 1;

    restoreshopitem ArcmageBoxset, 10000, 4;
    end;
}