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

031-7,76,49,2	script	Tametomo	NPC_SAVIOR,{
    if (BaseLevel < 90) {
        mesc l("The wizard seems busy. He ignores you.");
        close;
    }
    .@q = getq(AethyrQuest_Tametomo);
    .@bt = (.@q & 1);
    .@lp = (.@q & 2);

    // Generate the dialog
    .@m$=" ";
    if (!.@bt)
        .@m$+="unless you have a "+getitemlink(Butterfly)+",";
    if (!.@q)
        .@m$+=" or ";
    if (!.@lp)
        .@m$+="unless you have a "+getitemlink(LavaManaPearl)+",";

    mesn;
    mesq l("Go away,%s can't you see I'm busy?", .@m$);

    // Generate the menu
    if (!.@bt && countitem(Butterfly))
        .@showbt=true;
    if (!.@lp && countitem(LavaManaPearl))
        .@showlp=true;
    if (!.@showbt && !.@showlp)
        close;

    // Display the menu if pertinent
    next;
    select
        l("Sure, sure, I'm going..."),
        rif(.@showbt, l("I have a butterfly.")),
        rif(.@showlp, l("I have a lava mana pearl."));
    mes "";
    .@opt = @menu;
    switch (@menu) {
    case 2:
    case 3:
        mesn;
        mesq l("%s Monster Points, and a %s. That's my final offer.", fnum(35000), getitemlink(EquipmentBlueprintE));
        next;
        inventoryplace EquipmentBlueprintE, 1;
        mesc l("Accept offer?");

        if (askyesno() == ASK_NO) break;

        if (.@opt == 2 && !.@bt) {
            delitem Butterfly, 1;
            setq AethyrQuest_Tametomo, .@q | 1;
            Mobpt+=35000;
            getitem EquipmentBlueprintE, 1;
        }

        if (.@opt == 3 && !.@lp) {
            delitem LavaManaPearl, 1;
            setq AethyrQuest_Tametomo, .@q | 2;
            Mobpt+=35000;
            getitem EquipmentBlueprintE, 1;
        }

        mesn;
        mesq l("Hmpf. A pleasure doing business with you.");
    }
    close;

OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADBOTTOM, GraduationRobe);
    setunitdata(.@npcId, UDT_HEADMIDDLE, ManaGloves);
    setunitdata(.@npcId, UDT_HEADTOP, ImperialCrown);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 9);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
    npcsit;

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