summaryrefslogtreecommitdiff
path: root/npc/004-1/elanore.txt
blob: 9bac704b6b25a40d308cfdb17b6361e0e8e005c5 (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
// TMW-2 Script
// Author:
//    Jesusalva

004-1,75,62,0	script	Elanore the Healer	NPC_FEMALE,{

    //if (sc_check(SC_POISON)) goto L_CurePoison;

    mesn;
    @temp = rand(4);
    if(@temp == 1) goto L_Heal2;
    if(@temp == 2) goto L_Heal3;
    if(@temp == 3) goto L_Heal4;
    goto L_Heal1;

L_Heal1:
    mesq l("You don't look too well; let me treat your wounds.");
    mes "";
    goto L_Menu;

L_Heal2:
    mesq l("I will make quick work of your wounds.");
    mes "";
    goto L_Menu;

L_Heal3:
    mesq l("Need a healing?");
    mes "";
    goto L_Menu;

L_Heal4:
    mesq l("Sometimes you just need to run from battle.");
    mes "";
    goto L_Menu;

L_Menu:
    .@price=(MaxHp-Hp)/5;
    .@price=.@price+10;
    if (BaseLevel <= 15) .@price=(.@price/10);
    mesq l("For you, it'll be @@ GP.", .@price);
    mes "";
    menu
        rif(Zeny >= .@price, l("Please heal me!")), L_Heal_L,
        rif(BaseLevel > 15 && 1==2, l("Do you make Lifestones?")), L_Lifestones,
        l("Another time, maybe."), L_Close;


L_Heal_L:
    mes "";
    set Zeny, Zeny - .@price;
    sc_end(SC_POISON);
    sc_end(SC_SLOWPOISON);
    percentheal 100,100; // We can also use "recovery(<account id>)"
    mesn;
    @temp = rand(1,4);
    if(@temp == 1)    mesq l("Here you go!");
    if(@temp == 2)    mesq l("Painless, wasn't it?");
    if(@temp == 3)    mesq l("You should be more careful.");
    if(@temp == 4)    mesq l("Much better, right?!");
    goto L_Close;

L_Lifestones:
    mes "";
    mesn;
    mesq l("Lifestones have the potential to heal the user, and thus are used for potions.");
    next;
    mesq l("I will need 1 @@, 1 @@ and 100 GP to craft a single stone.", getitemlink(BugLeg), getitemlink(MaggotSlime));
    next;
    mes "";
    menu
        l("OK, I will get them."), L_Close,
        l("No way!"), L_Close,
        l("Here you are!"), L_Trade;

L_Trade:
    if (countitem("BugLeg") < 1) goto L_Trade_Missing;
    if (countitem("MaggotSlime") < 1) goto L_Trade_Missing;
    if (Zeny < 100) goto L_Trade_Missing;

    // TODO: There is a function to do that check in one line
    getinventorylist;
    if (@inventorylist_count == 100 && countitem("Lifestone") == 0
        && countitem("BugLeg") > 1
        && countitem("MaggotSlime") > 1) goto L_NoRoom;

    delitem "BugLeg", 1;
    delitem "MaggotSlime", 1;
    set Zeny, Zeny - 100;

    // TODO: MISSING ITEM
    //getitem "Lifestone", 1;

    // TODO: Only grant Experience on first craft
    getexp 80, 0;
    mesn;
    mesq l("These will do just fine.");
    next;
    mesn;
    mes l("Elanore casts a chant over the items, closes her hands, and vóila! A lifestone.");
    next;
    mesq l("I guess that you could use these lifestones to gain a regeneration effect, too, but I do not know how.");
    next;
    mes l("She smiles.");
    mes l("[80 experience points]");
    goto L_Close;

L_NoRoom:
    mesn;
    mesq l("Oh... it seems that you have no room for the lifestones. But please do come back later when you have made a little space.");
    goto L_Close;

L_Trade_Missing:
    mesn;
    mesq l("This is not what I asked for.");
    goto L_Close;

L_Close:
    close;

OnInit:
    .@npcId = getnpcid(0, .name$);
    //setunitdata(.@npcId, UDT_HEADTOP, 2929);
    setunitdata(.@npcId, UDT_HEADMIDDLE, 1317);
    //setunitdata(.@npcId, UDT_HEADBOTTOM, 2207);
    setunitdata(.@npcId, UDT_WEAPON, 1802); // Boots
    setunitdata(.@npcId, UDT_HAIRSTYLE, 8);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 17);

    .sex = G_FEMALE;
    .distance = 5;
    end;

}