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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
|
018-2,122,23,0 script Pet Detective NPC160,{
mes "[Ace Ventura]";
mes "\"Hello, I heard you were wanting a pet to help you in your adventures.\"";
mes "\"I know that because I am a pet detective and other adventurers said you may want to adopt a pet.\"";
next;
mes "\"We have the very best and healthiest animals.\"";
mes "\"Are you interested in adopting one or more of these fine pets?\"";
next;
if(HWQUEST9 == 1) goto L_MagCat;
goto L_Adoptmenu;
L_Adoptmenu:
mes "[Ace Ventura]";
mes "\"Tell me which one of the pets you want to adopt.\"";
next;
menu
"I would like to have a dog!", L_Dog,
"Got any cats?", L_Cat,
"Hmmm... I'd like a rat...", L_Rat,
"On second thought, I don't really want that responsibility right now.", L_close;
L_Dog:
mes "[Ace Ventura]";
mes "\"A dog? OK... for one of our fine dogs you will need to bring me\"";
mes "\"20 animal bones, 15 steaks, 10 raw logs, and 100,000 GP.\"";
next;
mes "\"A well trained dog, will help you improve your strength too.\"";
menu
"Sure, I believe a trained dog will make me stronger.", L_dog2,
"What a ripoff! No way! They would probably bite me anyways!", L_close;
L_Cat:
mes "[Ace Ventura]";
mes "\"Why yes, We do have cats. Fast and frisky ones too!\"";
mes "\"You will be amazed at the speed of these fine animals.\"";
next;
mes "\"I guarantee they will make you feel faster and more agile in battle.\"";
mes "\"A great deal for only 10 animal bones, 10 steaks, 15 cartons of milk and 100,000 GP.\"";
menu
"Yes, I could use more agility.", L_cat2,
"No thanks, I like being slow.", L_close;
L_Rat:
mes "[Ace Ventura]";
mes "\"Rats are so cool!\"";
mes "\"The ones I have here will really help your Dexterity.\"";
next;
mes "\"They cost 15 animal bones, 10 steaks, 20 bottles of water, and 100,000 GP.\"";
mes "\"Now that you know how valuable they are, would you like to have one?\"";
menu
"Sure, The rat is just what I need.", L_rat2,
"Whoa, that's way too much for a rat.", L_close;
L_dog2:
if (countitem("AnimalBones") < 20) goto L_Missing;
if (countitem("Steak") < 15) goto L_Missing;
if (countitem("RawLog") < 10) goto L_Missing;
if (Zeny < 100000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("AnimalBones") > 20 && countitem("Steak") > 15) goto L_Full;
delitem "AnimalBones", 20;
delitem "Steak", 15;
delitem "RawLog", 10;
Zeny = Zeny - 100000;
getitem "Hound", 1;
mes "[Ace Ventura]";
mes "\"Enjoy your dog! Do you want to adopt another pet?\"";
menu
"Yes, I would.", L_Adoptmenu,
"Nope, not today. I want to have time to train my new dog.", L_close;
L_cat2:
if (countitem("AnimalBones") < 10) goto L_Missing;
if (countitem("Steak") < 10) goto L_Missing;
if (countitem("Milk") < 15) goto L_Missing;
if (Zeny < 100000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("AnimalBones") > 10 && countitem("Steak") > 10) goto L_Full;
delitem "AnimalBones", 10;
delitem "Steak", 10;
delitem "Milk", 15;
Zeny = Zeny - 100000;
getitem "Cat", 1;
mes "[Ace Ventura]";
mes "\"Now here is a frisky white cat! Do you want to adopt another pet?\"";
menu
"Yes, I do.", L_Adoptmenu,
"No thank you, I think the cat is all I need for now", L_No;
L_rat2:
if (countitem("AnimalBones") < 15) goto L_Missing;
if (countitem("Steak") < 10) goto L_Missing;
if (countitem("BottleOfWater") < 20) goto L_Missing;
if (Zeny < 100000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("AnimalBones") > 15 && countitem("Steak") > 10) goto L_Full;
delitem "AnimalBones", 15;
delitem "Steak", 10;
delitem "BottleOfWater", 20;
Zeny = Zeny - 100000;
getitem "Rat", 1;
mes "[Ace Ventura]";
mes "\"Here is your fine pet! Do you want to purchase any other pet?\"";
menu
"Yes, I do.", L_Adoptmenu,
"No, Thanks. I really want to see this rat attack!", L_No;
goto L_close;
L_MagCat:
mes "[Ace Ventura]";
mes "\"Just a moment... Aren't you a Halloween Quest Adventurer? This is your lucky day!\"";
mes "\"I just received a shipment of rare magical pets.\"";
mes "\"They are so new, I haven't even had time to open the crates\"";
next;
mes "\"I can tell you that these pets are very rare and will not last very long.\"";
mes "\"Are you interested in getting one of them?\"";
menu
"Yes, Let me have one!.", L_YesBcat,
"Not Really.", L_EndSoon,
"I would really like a different pet.", L_Adoptmenu;
goto L_close;
L_YesBcat:
if (HW_Bcat == 1) goto L_OnlyOne;
if (HW_Bcat == 2) goto L_NoMoreForYou;
mes "[Ace Ventura]";
mes "\"These RARE pets normally sell for 750,000 GP and are limited to one per customer, however during this Halloween Season...\"";
next;
mes "\".. If you bring me the following items and 60,000 GP, I will let you have one of them.\"";
mes "\"50 Marshmallows, 50 Candy Pumpkins, 20 Lifestones, 4 Jack-O-Lanterns, 3 Jars of Blood, 2 Rubber Bats and one rare Black Pearl.\"";
menu
"I have what you need", L_GetBcat,
"I don't have everything you need. I will come back.", L_EndSoon,
"I changed my mind, I don't really want one.", L_EndSoon,
"I think I want a different pet?", L_Adoptmenu;
goto L_close;
L_GetBcat:
if (countitem("Marshmallow") < 50) goto L_Missing;
if (countitem("CandyPumpkin") < 50) goto L_Missing;
if (countitem("Lifestone") < 20) goto L_Missing;
if (countitem("JackOLantern") < 4) goto L_Missing;
if (countitem("RubberBat") < 2) goto L_Missing;
if (countitem("JarofBlood") < 3) goto L_Missing;
if (countitem("BlackPearl") < 1) goto L_MissingPearl;
if (Zeny < 60000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("Marshmallow") > 50 && countitem("CandyPumpkin") > 50 && countitem("Lifestone") > 20 && countitem("JackOLantern") > 4 && countitem("JarofBlood") > 3 && countitem("RubberBat") > 2 && countitem("BlackPearl") > 1) goto L_Full;
delitem "Marshmallow", 50;
delitem "CandyPumpkin", 50;
delitem "Lifestone", 20;
delitem "JackOLantern", 4;
delitem "JarofBlood", 3;
delitem "RubberBat", 2;
delitem "BlackPearl", 1;
Zeny = Zeny - 60000;
getitem "BlackCat", 1;
HW_Bcat = 1;
mes "[Ace Ventura]";
mes "\"Wonderful! Here is your very own RARE and Magical...\"";
next;
mes "\"Black Cat!\"";
goto L_close;
L_EndSoon:
mes "[Ace Ventura]";
mes "\"OK, Fine, but don't come crying to me when they are all gone.\"";
mes "\"These Rare Pets were ordered especially for the Halloween Event.\"";
mes "\"so when it is over, There may be no more to adopt.\"";
goto L_close;
L_Full:
mes "[Ace Ventura]";
mes "\"Looks like you can't carry anything else in the your inventory, come back when you've made some room.\"";
goto L_close;
L_Missing:
mes "[Ace Ventura]";
mes "\"It looks like you're missing some items. Please come back when you have what is needed!\"";
goto L_close;
L_MissingPearl:
mes "[Ace Ventura]";
mes "\"It looks like you're missing the rare Black Pearl. You might win one from one of\"";
mes "\"the Halloween NPCs.(The Creepy Surgeon)..Hmm...I think...\"";
next;
mes "\"someone told me that they bought one from the Indian named Exotic Trader.\"";
mes "\"I know he is over at Oscar's farm, today.\"";
next;
mes "\"The adventure did not say how much they cost,\"";
mes "\"however I suspect the Black Pearl is an expensive rare item.\"";
next;
mes "\"Please come back when you have the Black Pearl.\"";
goto L_close;
L_NotEnoughMoney:
mes "[Ace Ventura]";
mes "\"You don't have enough money, come back later!\"";
goto L_close;
L_No:
mes "[Ace Ventura]";
mes "\"Have a great day, and enjoy you new pet!\"";
goto L_close;
L_OnlyOne:
mes "[Ace Ventura]";
mes "\" I am afraid you can not have another Rare Pet, They are all gone...\"";
next;
mes "\"However, I might be able to special order you one.\"";
menu
"Yes, I would like to order one.", L_BuyBcat,
"No, Thanks.", L_close;
L_BuyBcat:
mes "[Ace Ventura]";
mes "\"The RARE pets sells for 750,000 GP.\"";
next;
mes "\"Bring me the following items and 750,000 GP and then I will let you have one.\"";
mes "\"50 Marshmallows, 50 Candy Pumpkins, 20 Lifestones, 4 Jack-O-Lanterns, 3 Jars of Blood, 2 Rubber Bats and 1 rare Black Pearl.\"";
menu
"OK I have what you need.", L_SpecialBuy,
"No, I have changed my mind.", L_close;
goto L_close;
L_SpecialBuy:
if (countitem("Marshmallow") < 50) goto L_Missing;
if (countitem("CandyPumpkin") < 50) goto L_Missing;
if (countitem("Lifestone") < 20) goto L_Missing;
if (countitem("JackOLantern") < 4) goto L_Missing;
if (countitem("RubberBat") < 2) goto L_Missing;
if (countitem("JarofBlood") < 3) goto L_Missing;
if (countitem("BlackPearl") < 1) goto L_MissingPearl;
if (Zeny < 750000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("Marshmallow") > 50 && countitem("CandyPumpkin") > 50 && countitem("Lifestone") > 20 && countitem("JackOLantern") > 4 && countitem("JarofBlood") > 3 && countitem("RubberBat") > 2 && countitem("BlackPearl") > 1) goto L_Full;
delitem "Marshmallow", 50;
delitem "CandyPumpkin", 50;
delitem "Lifestone", 20;
delitem "JackOLantern", 4;
delitem "JarofBlood", 3;
delitem "RubberBat", 2;
delitem "BlackPearl", 1;
Zeny = Zeny - 750000;
getitem "BlackCat", 1;
HW_Bcat = 2;
mes "[Ace Ventura]";
mes "\"Wonderful! Here is your very own RARE and Magical...\"";
next;
mes "\"Black Cat!\"";
goto L_close;
L_NoMoreForYou:
mes "[Ace Ventura]";
mes "\"Nice to see you again. You're the Adventurer who special ordered a Rare Pet from me..\"";
mes "\"Unfortunately all of the Rare Pets have been adopted.\"";
next;
mes "\"I hope you and you pet are doing well.\"";
mes "\"Those pets are so rare, I doubt if we will ever see them again.\"";
goto L_close;
L_close:
mes "[Ace Ventura]";
mes "\"Goodbye Adventurer!\"";
close;
}
|
