// Pet Detective allows you to tame pets. Besides having complete his own quest,
// which unlocks some basic pets, you can unlock other mobs by having completed
// the equivalent Grand Hunter Quest. You can make as many pets as you wish, but
// the cost changes the more you create the same pet. Meaning if you create *another*
// cute maggot because silly you forgot to feed your previous one, you'll pay at
// minimum double the cost. Thankfully for you, maggot is already given for free
// the first time, meaning you'll save yourself from some hassle.
//
// Jesusalva can't forget to add on Malindou a check to mark 'Forest Shroom' as
// 1 completion to Aisen, because otherwise it would be kinda unfair.
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;
}
