// TMW2 Script
// Author:
//  Saulc
//  Jesusalva
// Description:
//      Dracoula is dayli npc, ask for bat teeth every 23 h
// Variable:
//      MineQuest_Dracoula

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

    mesn;
    mesq l("Hello adventurer! are you lost?.");
    next;
    mesq l("It's not a place for unexperimpented people!");
    next;
    mesq l("Mine exit is top left!);
    if (BaseLevel >= 15) goto L_Menu;
    close;

L_Menu:
    mesn;
    mesq l("But now you're here. can you do me a favour? ");
    mes "";
    menu
        l("Hum, Which type of favor?."),L_Quest, 
        l("Can i found a mana source here?"),L_Mana,
        l("Can i become miner?"),L_Miner,    
        l("No, thanks. I gonna leave this place."),L_Close;

L_Quest:
    mes "";
    .@q=getq(MineQuest_Dracoula);
    mesq l("Nice! First let me introduce my self. I want you to kill some red scorpions, as I said!");
    next;
     mesq l("I'm Dracoula, i mine here since a while. My favorite activity it's to scarred others miners!");
    next;
    if (.@q == 0) goto L_Continue;
    if (.@q == 1 && gettimetick(2) >= getq2(MineQuest_Dracoula) + 60 * 60 * 23) setq1 MineQuest_Dracoula, 2; // Repats every 23 hours
    if (.@q == 2) goto L_Repeat;
    mesn;
    mesq l("But come back in a few hours, I didn't lost all @@!", getitemlink(BatTeeth));
    close;
    
L_Continue:
    mesq l("I loved seeing their terrorize face.");
    mes "";
    menu
        l("Ok. Cool life!"), L_Close,
        l("Haha, Nice but how do ,you process ?"), L_Next;
        
L_Next:
    mesq l("I disguise myself into a giant mutated bat but everytime i broke or loose my fake teeth.");
    next;
    mesq l("I usually ask advendurer for 11 @@, But new miners should arrive soon then i need to make them cry!", getitemlink(BatTeeth));
    next;
    mesq l("Could be nice, if you can bring me 20 @@,", getitemlink(BatTeeth));
    mes "";
    menu
        rif(countitem(BatTeeth) >= 20, l("Hey! I already get them!")), L_Finish,
        l("I'll get to it."), L_Close;
    close; // double sure

L_Repeat:
    mesq l("Oh its you XXXPLAYER NAME, I did not recognize you with your hat!"); // @jesusalva fix that plz <3 
    next;
    mesq l("Do you have extra of 11 @@ for me ?", getitemlink(BatTeeth));
    mes "";
    menu
        rif(countitem(BatTeeth) >= 11, l("Yep, I bring them for you")), L_Finish2,
        l("Actually not."), L_Close;
    close;

// First Time Only
L_Finish:
    delitem BatTeeth, 20;
    getexp 666, 5; // 20 / 18% = 111 kills * 15 xp = 1665 xp gained from killing. (40% bonus)
    Zeny = (Zeny + 240); // 3*20 = 60 base (400% bonus)
    setq MineQuest_Dracoula, 1, gettimetick(2);
    mes "";
    mesn;
    mesq l("WAW thank you! Come back later to bring me extra @@!", getitemlink(BatTeeth));
    close;

// Repeat
L_Finish2:
    delitem BatTeeth, 11;
    getexp 275, 1; // 11 / 18% = 61 kills * 15 xp = 915 xp gained from killing. (30% bonus) 
    Zeny = (Zeny + 120); // 3*11 = 33 base (x% bonus)
    setq MineQuest_Dracoula, 1, gettimetick(2);
    mes "";
    mesn;
    mesq l("So COOL Thanks! Come back later to bring me extra @@!", getitemlink(BatTeeth)) L_Close;
    close;

L_Mana:
    mes "";
    mesq l("Ah Actually nobody found one.");
    next;
    mes l(But i's ultimate goal of miners there.");
    next;
    mes l(If one of us found a Mana fragment. he will become ritch");
    next;
    mes l("That it is.");
    goto L_Menu;
    
L_Miner:
    mes "";
    mesq l("You should ask Tycoon.");
    next;
    mes l(He is Miner leader.");
    goto L_Menu;

L_Close:
    closedialog;
    goodbye;
    close;

OnInit:
    .@npcId = getnpcid(0, .name$);
    setunitdata(.@npcId, UDT_HEADTOP, MinerHat);
    setunitdata(.@npcId, UDT_HEADMIDDLE, ArtisTankTop);
    setunitdata(.@npcId, UDT_HEADBOTTOM, JeansShorts);
    setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 7);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 8);

    .sex = G_MALE;
    .distance = 4;

    end;
}