summaryrefslogtreecommitdiff
path: root/npc/007-1/dracoula.txt
blob: de24745e486f9708d9f16dfcbe2016a55ecadc5f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
// 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;
}