// 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;
}