path: root/npc/009-3/kevin.txt

// TMW2 Script
// Author:
//    Saulc
//    Vasily_Makarov (original from Evol)
//    Jesusalva
// Dye Quest added by:
//     Povo
// Description:
//    Status Reset, mixed gem powder, dye

009-3,39,48,0	script	Kevin	NPC_PLAYER,{

    speech S_LAST_NEXT,
        l("I am @@, an alchemist specialized in reset potions.", .name$);

L_Menu:
    .@plush_count = BaseLevel*210-(9*210);
    // Lv 10: 210 GP
    // Lv 90: 1.890 GP
    if (BaseLevel > 10)
        .@plush_count = .@plush_count/(BaseLevel/10);

    select
        l("Can you reset my stats please?"),
        l("Can you mix Gem Powder?"),
        l("Do you make anything else?"),
        lg("You are weird, I have to go sorry.");

    switch (@menu)
    {
        case 1:
            goto L_ResetStats;
        case 2:
            goto L_Powder;
        case 3:
            goto L_Dye;      
        case 4:
            goto L_Quit;
    }

L_ResetStats:
    mesn;
    mesq l("Status point reset can't be undone. Do you really want this?");

L_ConfirmReset:
    ConfirmStatusReset();
    goto L_Quit;

L_Powder:
	.@price=POL_AdjustPrice(800);
    mes "";
    mesn;
    mesq l("To make @@ I need one from each gem powders, and @@ GP for commission.", getitemlink(GemPowder), .@price);
    next;
    select
        l("Yeah, I need one."),
        l("Thanks for the help, but no."),
        l("Actually, nevermind. Good bye!");
    if (@menu == 2)
        goto L_Menu;

    if (@menu == 3)
        goto L_Quit;

    if (
        countitem(DiamondPowder) &&
        countitem(RubyPowder) &&
        countitem(EmeraldPowder) &&
        countitem(SapphirePowder) &&
        countitem(TopazPowder) &&
        countitem(AmethystPowder) &&
        Zeny >= .@price) {

        inventoryplace GemPowder, 1;
        delitem DiamondPowder, 1;
        delitem RubyPowder, 1;
        delitem EmeraldPowder, 1;
        delitem SapphirePowder, 1;
        delitem TopazPowder, 1;
        delitem AmethystPowder, 1;
		POL_PlayerMoney(.@price);
        getitem GemPowder, 1;
        getexp rand2(6,18), rand2(6,18);

        mesn;
        mesq l("Thanks! Here you go. Perhaps you need another one?");
        next;
        goto L_Powder;
    } else {
        mesn;
        mesq l("Sorry, but I need one of each gem powder, and %d GP.", .@price);
        next;
    }
    goto L_Menu;

L_Dye:
    mesn;
    mesq l("Actually, using a byproduct of my other works and a few additional ingredients, I could make a %s", 
                      getitemlink(PinkDye));
    if (BaseLevel < 25) {
        mesq l("Hmm...actually, nevermind.");
        next;
        mesn;
        mesq l("I cannot in good faith ask someone with so little experience to risk their life for something so trivial.");
        next;
        mesn;
        mesq l("Come back when you are stronger.");
        next;
        goto L_Menu;
    }
    next;
    mesq l("Bring me %d %s, %d %s, and %d %s and I can make it for you... oh and it will be %d GP for my work.", 
                      1, getitemlink(BottleOfTonoriWater), 20, getitemlink(PinkBlobime), 30, getitemlink(Plushroom), 500); 
    if (getq(HalinarzoQuest_Kevin) < 1) 
        setq HalinarzoQuest_Kevin, 1;
   next;
    select
        l("Yeah, I need one."),
        l("Thanks for the help, but no."),
        l("Actually, nevermind. Good bye!");
    mes "";
    if (@menu == 2)
        goto L_Menu;

    if (@menu == 3)
        goto L_Quit;

    if (countitem(BottleOfTonoriWater) >= 1 &&
          countitem(PinkBlobime) >= 20 &&
          countitem(Plushroom) >= 30 && Zeny >= 500) {
        inventoryplace PinkDye, 1, EmptyBottle, 1;
        delitem BottleOfTonoriWater, 1;
        delitem PinkBlobime, 20;
        delitem Plushroom, 30;
        Zeny=Zeny-500;
        getitem PinkDye, 1;
        getitem EmptyBottle, 1;
        if (getq(HalinarzoQuest_Kevin) == 1) {
            setq HalinarzoQuest_Kevin, 2;
            getexp 300, 0;
        }   
        mesn;
        mesq l("Thanks! Here you go. Perhaps you want another one?");
        next;
        goto L_Dye;
    } else {
        mesn;
        mesq l("Sorry, you don't seem to have everything I need.");
    }
    close;

L_Quit:
    closedialog;
    goodbye;
    close;
    
OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADTOP, FancyHat);
    setunitdata(.@npcId, UDT_HEADMIDDLE, SailorShirt);
    setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
    setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots
    setunitdata(.@npcId, UDT_HAIRSTYLE, 7);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 17);

    .sex = G_MALE;
    .distance = 4;
    end;
}