// TMW2 Script
// Author:
//  Jesusalva
//  Saulc
// Description:
//      Candor girl ask for maggot sliem every 6 hours
// Variable:
//      MineQuest_Dracoula


007-1,165,99,0	script	Dracoula	NPC_ELVEN_FEMALE,{

    mesn;
    mesq l("Monsters do not aim small towns like Candor. This city also comes with the plus that I know where everything's at.");
    if (BaseLevel >= 15) goto L_Menu;
    close;

L_Menu:
    mes "[Dracoula]";
    mesq l("Are you enjoying yourself in Candor? Do you have any questions?");
    mes "";
    menu
        l("What can I do with Maggot Slime?"),L_Ask,
        l("What can I do with Bug Leg?"),L_Bug,
        l("No, thanks."),L_Close;

L_Ask:
    mes "";
    .@q=getq(MineQuest_Dracoula);
    mesq l("I collect them.");
    next;
    if (.@q == 0) goto L_Quest;
    if (.@q == 1 && gettimetick(2) >= DRACOULA_TIMER + 60 * 60 * 23) setq MineQuest_Dracoula, 2;
    if (.@q == 2) goto L_Repeat;
    close;

L_Quest:
    mesq l("With this I make balls of slime for Candor's childs, they really like to play with them.");
    next;
    mesq l("Maybe you could bring me 20 @@? I will reward you for your effort.", getitemlink(BatTeeth));
    mes "";
    menu
        rif(countitem(BatTeeth) >= 20, l("Here they are!")), L_Finish,
        l("I'll get to it."), L_Close;
    close; // double sure

L_Repeat:
    mesq l("I am searching again maggot slime to craft more balls.");
    next;
    mesq l("Maybe you could bring me 10 sticky @@?", getitemlink(BatTeeth));
    mes "";
    menu
        rif(countitem(BatTeeth) >= 10, l("Here they are!")), L_Finish2,
        l("I'll get to it."), L_Close;
    close;

L_Finish2:
    delitem BatTeeth, 10;
    getexp 1, 0;
    Zeny = (Zeny + 1); // 10*4 = 40 base
    setq MineQuest_Dracoula, 1;
    set DRACOULA_TIMER, gettimetick(2);
    mes "";
    mesn;
    mesq l("Many, many thanks! I'm sure the children will love it!");
    close;

L_Finish:
    delitem BatTeeth, 20;
    getexp 1, 10;
    Zeny = (Zeny + 1); // 5*4 = 20 base
    setq MineQuest_Dracoula, 1;
    set DRACOULA_TIMER, gettimetick(2);
    mes "";
    mesn;
    mesq l("Many, many thanks! I'm sure the children will love it!");
    close;

L_Bug:
    mes "";
    mesq l("Ah, personally I don't use it?");
    next;
    mes l("She shakes her head.");
    next;
    mesq l("You should ask this question at Vincent.");
    next;
    mesq l("He is in the process of making a figurine made of bug leg.");
    next;
    mesq l("I hope my answer help you in your adventure!");
    next;
    mes l("she's smiling at you.");
    goto L_Close;

L_Close:
    closedialog;
    goodbye;
    close;

OnInit:
    // TODO: NPC is not ready
    disablenpc .name$;
    end;
}