summaryrefslogtreecommitdiff
path: root/npc/005-4/rosen.txt
blob: 60bf6c73f0b9ad73bd239a436be54a590d81758f (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
// TMW2 scripts.
// Author:
//    Saulc
// Description:
//    Light Armor shop keeper.
// Variables:
//    CandorQuests_Rosen
// Values:
//    0    Default.
//    1    BlackSmith quest delivered.
//    2    Chelios Quest given.
//    3    Chelios Quest done.
//    4    BlackSmith gave the sword.
//    5    Light Armor Shop quest delivered.
//    6    Light Armor Shop gave the cloths.

005-4,29,36,0	script	Rosen	NPC_ELVEN_FEMALE_ARMOR_SHOP,{

    function explain_ironingot {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Did you see Jhedia the blacksmith in Tulimshar? He might know how you could get this."),
            l("Nevertheless, you can sap it on Bif, if you are lucky.");

        return;
    }

    function rosen_quest {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("I asked Calypsan to dye this tank top, now it has an unique look!");

        narrator S_LAST_NEXT, l("You pick up the package.");

        setq CandorQuests_Rosen, 6;

        return;
    }

    speech S_LAST_NEXT,
        l("Welcome to Tolchi and Rosen Shop."),
        l("What would you like today?");

    do
    {
        .@rosen = getq(CandorQuests_Rosen);
        select
            rif(.@rosen == 5, lg("I came to retrieve a package for Rosen.")),
            menuaction(l("Trade")),
            l("How can I get iron ingot?"),
            menuaction(l("Quit"));

        switch (@menu)
        {
            case 1: //broken need a fix
                rosen_quest;
                closedialog;
                goodbye;
                close;
            case 2:
                closedialog;
                shop "Shop";
                close;
            case 3:
                explain_ironingot;
                break;
            case 4:
                closedialog;
                goodbye;
                close;
        }
    } while (1);


OnInit:
    .sex = G_FEMALE;
    .distance = 2;
    end;
}