summaryrefslogtreecommitdiff
path: root/npc/031-2/tyrca.txt
blob: a9125f2b2fc3c645e1798e47274e4f08fd990fd5 (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
// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    Questmaker Handbook 14.0 (F = Favorable)

031-2,77,77,0	script	Tyrca	NPC_SAVIOR_F,{
    .@q = getq(AethyrQuest_Tyrca);
    mesn;
    mesq l("Welcome to Aethyr, strange traveler. I am a collector of rare gemstones.");
    if (REBIRTH || BaseLevel > 90) {
        if (.@q == 0 && countitem(LightGreenDiamond)) {
            next;
            mesn;
            mesq l("...This %s you have there. I haven't seen one for a while.", getitemlink(LightGreenDiamond));
            next;
            mesn;
            mesq l("I offer you either %s GP, or %s Monster Points for it. What do you say?", fnum(100000), fnum(40000));
            next;
            select
                l("Sorry, I'll keep my gem."),
                l("Sure, gimme the Gold."),
                l("Sure, gimme the Monster Points."),
                rif(REBIRTH, l("Can you give me half the gold and half the monster points?"));
            mes "";
            switch (@menu) {
            case 2:
                delitem LightGreenDiamond, 1;
                Zeny+=100000;
                break;
            case 3:
                delitem LightGreenDiamond, 1;
                Mobpt+=40000;
                break;
            case 4:
                if (!REBIRTH) {
                    atcommand("@block "+strcharinfo(0)); end;
                }
                delitem LightGreenDiamond, 1;
                Zeny+=50000;
                Mobpt+=20000;
                break;
            default:
                close;
            }
            getexp 0, 5000;
            setq AethyrQuest_Tyrca, 1;
            mesn;
            mesq l("Please doing business with you.");
        }
    }
    close;

OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADBOTTOM, SilkRobe);
    setunitdata(.@npcId, UDT_HEADMIDDLE, NPCEyes);
    setunitdata(.@npcId, UDT_HEADTOP, BunnyEars);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 9);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);

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