summaryrefslogblamecommitdiff
path: root/npc/007-1/dracoula.txt
blob: be6d2aa6e8179fe20210e4a331eb3ba4c701d648 (plain) (tree)
1
2
3
4
5
6
7
8
9

              
         
             
               
                                                           


                          
                                                    
         
                                               
         
                                                               
         
                                     
           



                                     
         
                                                                

           


                                                   
                                                           
 
        

                                 




                                                                               
                                                                                            

             
                                  
                                                  
                                         

                                                                                         
          
 
           
                                                  


                                     

                                                         
       
           
                                                                                                        
         
                                                                                                                                           
         
                                                                                       

           
                                                                                



                                      
         
                                     
                                                                                         
        
                                                                                         
         
                                                                           

           
                                                                                   
                                    

          


                         
                                                                                             
                                                         
                                          

           
                                                                                          

          


                         
                                                                                           


                                                                 
                                          

           
                                                                                            

          
       
           

                                             
         

                                                      
         



                                                                       
                                                                                               
         
         

                       
                
 

           
         
                                                 
         

                                       






                                                                      
         
                




                

       
                               






                                                       
                    

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

007-1,170,99,0	script	Dracoula	NPC_UKAR_F,{
    mesn;
    mesq lg("Hello adventurer! Are you lost?");
    next;
    mesq l("This is not a place for non-experimented people!");
    next;
    mesq l("Mine exit is top left!");
    mes "";
    if (BaseLevel >= 15) goto L_Menu;
    close;

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

L_Quest:
    mes "";
    .@q=getq(MineQuest_Dracoula);
    if (!.@q) {
        mesn;
        mesq l("Nice! First let me introduce myself. I am Dracoula, a miner!");
        next;
        mesn;
        mesq l("I mine here since a while. My favorite activity is to scare other miners!");
        next;
    }
    if (.@q == 0) goto L_Continue;
    .@q2=getq2(MineQuest_Dracoula) + 60 * 60 * 23;
    if (santime() >= .@q2) 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 love seeing their terrorize face.");
    mes "";
    menu
        l("Ok. Cool life!"), L_Close,
        l("Haha, Nice, but how do you do that?"), L_Next;

L_Next:
    mes "";
    mesq l("I disguise myself into a giant mutated bat, but every time I break or lose my fake teeth.");
    next;
    mesq l("I usually ask adventurers for 11 @@, but new miners should be arriving soon. I need to make them cry!", getitemlink(BatTeeth));
    next;
    mesq l("So it could be nice, if you could bring me 20 @@,", getitemlink(BatTeeth));
    mes "";
    menu
        rif(countitem(BatTeeth) >= 20, l("Hey! I already got them!")), L_Finish,
        l("I'll get to it."), L_Close;
    close; // double sure

L_Repeat:
    mesn;
    if (getequipid(EQI_HEAD_TOP) > 0)
        mesq l("Oh it's you @@, I did not recognize you with your hat!", strcharinfo(0));
    else
        mesq l("Oh it's you @@, I did not recognize you without a hat!", strcharinfo(0));
    next;
    mesq l("Do you have an 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 667, 5; // 20 / 18% = 111 kills * 15 xp = 1665 xp gained from killing. (40% bonus)
    Zeny = (Zeny + 600); // 10*20 = 200 base (300% bonus)
    setq MineQuest_Dracoula, 1, santime();
    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)
    // Bonus: +300%
    .@price = getiteminfo(BatTeeth, ITEMINFO_SELLPRICE) * 11 * 3;
    Zeny += .@price;
    setq MineQuest_Dracoula, 1, santime();
    mes "";
    mesn;
    mesq l("So COOL, thanks! Come back later to bring me extra @@!", getitemlink(BatTeeth));
    close;

L_Mana:
    mes "";
    mesn;
    mesq l("Ah! Actually nobody found one.");
    next;
    mesn;
    mesq l("But it's ultimate goal of miners there.");
    next;
    mesn;
    mesq l("If one of us found a Mana stone. They would become rich!");
    next;
    mesn;
    mesq l("Twelve times more if it is an elusive Mana Fragment no one knows where they are!");
    next;
    mesn;
    mesq l("That is.");
    next;
    goto L_Menu;

L_Miner:
    mes "";
    mesn;
    mesq l("You should ask %s.", b(l("Tycoon")));
    next;
    mesn;
    mesq l("He is the Miners leader.");
    if (getq(MineQuest_Dracoula)) {
        compareandsetq MineQuest_Pickaxe, 0, 1;
    } else {
        next;
        mesn;
        mesq l("I can vouch for you, but only if you help me first!");
    }
    next;
    goto L_Menu;

L_Close:
    closedialog;
    goodbye;
    close;

OnInit:
    .@npcId = getnpcid(.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_FEMALE;
    .distance = 4;

    end;
}