summaryrefslogtreecommitdiff
path: root/npc/001-2-24/nard.txt
blob: e88b584802520f7d9b4dd68bbb129658d3b1e78f (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
// Evol scripts.
// Authors:
//    Qwerty Dragon
//    Reid
// Description:
//    Captain Nard dialogs.
//    Nard does the introduction with a small quest.
//    This quest is meant to teach the player how to use a weapon,and to bring food to the ship.
//    4 bits array:
//    ShipQuests
// Variable:
//    0    ShipQuests_Nard
//    1    ShipQuests_Gugli
//    2    ShipQuests_ChefGado
// Values:
//    00   Introduction of the boxes and Nard. This is displayed when the player never spoke to Nard or his box.
//    01   Nard spoke and gave access to the outdoor of the ship.
//    02   Completed the Gugli quest.
//    03   ChefGado Quest accepted.
//    04   ChefGado Quest completed and "Introduction" chapter finalized.
//    05   Reward taken from the box.
//    10   Never talked with Gugli.
//    11   Gugli gives you the task.
//    12   Gave all of the boxes to Gugli.

001-2-24,25,26,0	script	Nard#Artis	NPC_NARD,{

    mesn;
    mesq g(l("Good day miss."), l("Good day mister."));
    next;
    mesq l("What can I do for you?");

    menu
        l("I'm lost, where should I go?"), L_Lost,
        l("How long will you stay here?"), -;

    speech 5,
        l("We just returned from a long journey and Artis is a good city to rest and to conclude our exchange."),
        l("I think that we will stay in port for a great time, though, if you want to visit some nearby we could take you there."),
        l("Do you want to go somewhere?");

    switch (select(l("Lost Island."),
                   l("Nowhere, I'm fine here.")))
    {
        case 1:
            speech 5,
                l("Let's set sail then!");

            savepoint "000-2-1.gat", 50, 38;
            if (!getmapxy(.@map$, .@x, .@y, 0))
            {
                warp "000-2-3.gat", .@x, .@y;
            }
            else
            {
                warp "000-2-3.gat", 22, 27;
            }

            closedialog;
            close;
        case 2:
            speech 5,
                l("Ok we stay docked here if you need our help.");

            closedialog;
            close;
    }

L_Lost :
    mes "";
    mesn;
    mesq l("Julia made an appeal to the Legion of Aemil to get in touch with you, exit the ship and you should see your escort!");
    next;

    closedialog;
    close;

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