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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
// TMW2 Script
// Author:
// Saulc
// Jesusalva
// Description:
// Dracoula is daily npc, ask for bat teeth every 23 h
// Variable:
// MineQuest_Dracoula
007-1,170,99,0 script Dracoula NPC_UKAR_F,{
mesn;
mesq lg("Hello adventurer! Are you lost?");
next;
mesq l("This is not a place for non-experimented people!");
next;
mesq l("Mine exit is top left!");
mes "";
if (BaseLevel >= 15) goto L_Menu;
close;
L_Menu:
mesn;
mesq l("But as you're here now, could you do me a favour?");
mes "";
menu
l("Hum, Which type of favor?"),L_Quest,
l("Can I find a mana source here?"),L_Mana,
l("Can I become a miner?"),L_Miner,
l("No, thanks. I gonna leave this place."),L_Close;
L_Quest:
mes "";
.@q=getq(MineQuest_Dracoula);
if (!.@q) {
mesn;
mesq l("Nice! First let me introduce myself. I am Dracoula, a miner!");
next;
mesn;
mesq l("I mine here since a while. My favorite activity is to scare other miners!");
next;
}
if (.@q == 0) goto L_Continue;
.@q2=getq2(MineQuest_Dracoula) + 60 * 60 * 23;
if (santime() >= .@q2) goto L_Repeat;
mesn;
mesq l("But come back in a few hours, I didn't lost all @@!", getitemlink(BatTeeth));
close;
L_Continue:
mesq l("I love seeing their terrorize face.");
mes "";
menu
l("Ok. Cool life!"), L_Close,
l("Haha, Nice, but how do you do that?"), L_Next;
L_Next:
mes "";
mesq l("I disguise myself into a giant mutated bat, but every time I break or lose my fake teeth.");
next;
mesq l("I usually ask adventurers for 11 @@, but new miners should be arriving soon. I need to make them cry!", getitemlink(BatTeeth));
next;
mesq l("So it could be nice, if you could bring me 20 @@,", getitemlink(BatTeeth));
mes "";
menu
rif(countitem(BatTeeth) >= 20, l("Hey! I already got them!")), L_Finish,
l("I'll get to it."), L_Close;
close; // double sure
L_Repeat:
mesn;
if (getequipid(EQI_HEAD_TOP) > 0)
mesq l("Oh it's you @@, I did not recognize you with your hat!", strcharinfo(0));
else
mesq l("Oh it's you @@, I did not recognize you without a hat!", strcharinfo(0));
next;
mesq l("Do you have an extra of 11 @@ for me?", getitemlink(BatTeeth));
mes "";
menu
rif(countitem(BatTeeth) >= 11, l("Yep, I bring them for you!")), L_Finish2,
l("Actually not."), L_Close;
close;
// First Time Only
L_Finish:
delitem BatTeeth, 20;
getexp 667, 5; // 20 / 18% = 111 kills * 15 xp = 1665 xp gained from killing. (40% bonus)
Zeny = (Zeny + 600); // 10*20 = 200 base (300% bonus)
setq MineQuest_Dracoula, 1, santime();
mes "";
mesn;
mesq l("WAW thank you! Come back later to bring me extra @@!", getitemlink(BatTeeth));
close;
// Repeat
L_Finish2:
delitem BatTeeth, 11;
getexp 275, 1; // 11 / 18% = 61 kills * 15 xp = 915 xp gained from killing. (30% bonus)
// Bonus: +300%
.@price = getiteminfo(BatTeeth, ITEMINFO_SELLPRICE) * 11 * 3;
Zeny += .@price;
setq MineQuest_Dracoula, 1, santime();
mes "";
mesn;
mesq l("So COOL, thanks! Come back later to bring me extra @@!", getitemlink(BatTeeth));
close;
L_Mana:
mes "";
mesn;
mesq l("Ah! Actually nobody found one.");
next;
mesn;
mesq l("But it's ultimate goal of miners there.");
next;
mesn;
mesq l("If one of us found a Mana stone. They would become rich!");
next;
mesn;
mesq l("Twelve times more if it is an elusive Mana Fragment no one knows where they are!");
next;
mesn;
mesq l("That is.");
next;
goto L_Menu;
L_Miner:
mes "";
mesn;
mesq l("You should ask %s.", b(l("Tycoon")));
next;
mesn;
mesq l("He is the Miners leader.");
if (getq(MineQuest_Dracoula)) {
compareandsetq MineQuest_Pickaxe, 0, 1;
} else {
next;
mesn;
mesq l("I can vouch for you, but only if you help me first!");
}
next;
goto L_Menu;
L_Close:
closedialog;
goodbye;
close;
OnInit:
.@npcId = getnpcid(.name$);
setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
setunitdata(.@npcId, UDT_HEADMIDDLE, ArtisTankTop);
setunitdata(.@npcId, UDT_HEADBOTTOM, JeansShorts);
setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
setunitdata(.@npcId, UDT_HAIRSTYLE, 7);
setunitdata(.@npcId, UDT_HAIRCOLOR, 8);
.sex = G_FEMALE;
.distance = 4;
end;
}
|
