Dracoula shoudl now work well :b

1 files changed, 78 insertions, 47 deletions

diff --git a/npc/007-1/dracoula.txt b/npc/007-1/dracoula.txt
index 2491e954b..841e78106 100644
--- a/npc/007-1/dracoula.txt
+++ b/npc/007-1/dracoula.txt
@@ -1,95 +1,116 @@
 // TMW2 Script
 // Author:
-//  Jesusalva
 //  Saulc
+//  Jesusalva
 // Description:
-//      Candor girl ask for maggot sliem every 6 hours
+//      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("Monsters do not aim small towns like Candor. This city also comes with the plus that I know where everything's at.");
+    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!);
+    mes "";
     if (BaseLevel >= 15) goto L_Menu;
     close;
 
 L_Menu:
-    mes "[Dracoula]";
-    mesq l("Are you enjoying yourself in Candor? Do you have any questions?");
+    mesn;
+    mesq l("But now you're here. can you do me a favour? ");
     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("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_Ask:
+L_Quest:
     mes "";
     .@q=getq(MineQuest_Dracoula);
-    mesq l("I collect them.");
+    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_Quest;
-    if (.@q == 1 && gettimetick(2) >= DRACOULA_TIMER + 60 * 60 * 23) setq MineQuest_Dracoula, 2;
+    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_Quest:
-    mesq l("With this I make balls of slime for Candor's childs, they really like to play with them.");
+    
+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("Maybe you could bring me 20 @@? I will reward you for your effort.", getitemlink(BatTeeth));
+    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("Here they are!")), L_Finish,
+        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("I am searching again maggot slime to craft more balls.");
+    mesq l("Oh its you XXXPLAYER NAME, I did not recognize you with your hat!"); // @jesusalva fix that plz <3 
     next;
-    mesq l("Maybe you could bring me 10 sticky @@?", getitemlink(BatTeeth));
+    mesq l("Do you have extra of 11 @@ for me ?", getitemlink(BatTeeth));
     mes "";
     menu
-        rif(countitem(BatTeeth) >= 10, l("Here they are!")), L_Finish2,
-        l("I'll get to it."), L_Close;
+        rif(countitem(BatTeeth) >= 11, l("Yep, I bring them for you")), L_Finish2,
+        l("Actually not."), 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);
+// 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("Many, many thanks! I'm sure the children will love it!");
+    mesq l("WAW thank you! Come back later to bring me extra @@!", getitemlink(BatTeeth));
     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);
+// 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("Many, many thanks! I'm sure the children will love it!");
+    mesq l("So COOL Thanks! Come back later to bring me extra @@!", getitemlink(BatTeeth)) L_Close;
     close;
 
-L_Bug:
+L_Mana:
     mes "";
-    mesq l("Ah, personally I don't use it?");
-    next;
-    mes l("She shakes her head.");
+    mesq l("Ah Actually nobody found one.");
     next;
-    mesq l("You should ask this question at Vincent.");
+    mes l(But i's ultimate goal of miners there.");
     next;
-    mesq l("He is in the process of making a figurine made of bug leg.");
+    mes l(If one of us found a Mana fragment. he will become ritch");
     next;
-    mesq l("I hope my answer help you in your adventure!");
+    mes l("That it is.");
+    goto L_Menu;
+    
+L_Miner:
+    mes "";
+    mesq l("You should ask Tycoon.");
     next;
-    mes l("she's smiling at you.");
-    goto L_Close;
+    mes l(He is Miner leader.");
+    goto L_Menu;
 
 L_Close:
     closedialog;
@@ -97,7 +118,17 @@ L_Close:
     close;
 
 OnInit:
-    // TODO: NPC is not ready
-    disablenpc .name$;
+    .@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;
 }
+