summaryrefslogtreecommitdiff
path: root/npc/000-1/gulukan.txt
blob: 532327f31d7495637781333b601efb36878a6438 (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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
// Evol scripts.
// Authors:
//    Hal9000
//    Qwerty Dragon
//    Reid
// Description:
//    Sailor part of the Gugli's quest.
//    Croconut box.

000-1,54,90,0	script	Gulukan	113,{
    .@g = getq(ShipQuests_Gugli);
    if (.@g == 0) goto L_NoTask;

    .@q = getq(ShipQuests_Gulukan);
    if (.@q == 1) goto L_Func;

    mesn;
    mesq l("Yeye @@!", strcharinfo(0));
    next;
    mesq l("How are you feeling, now that you walk on steady land? Yeye better?");
    next;

    menu
        l("Wow, it seems everyone knows my name!"), -,
        l("Well, it's not bad to finally feel something beneath my feet."), L_Continue,
        l("Not so good actually... I would feel better on Nard's ship."), L_Quit;

L_Name:
    mes "";
    mesn;
    mesq l("You know, yeyes love to chat while working.");
    next;

goto L_Continue2;

L_Continue:
    mes "";
    mesn;

L_Continue2:
    mesq lg("Are you yaying here to explore the island?");
    next;

    menu
        lg("Actually Gugli asked me if I would help you bring him some of your boxes."), -,
        l("Yes, indeed. I prefer to explore places I have never been to, before doing anything else."), L_Quit;

    mes "";
    mesn;
    mesq l("Gugli? Oh I see. Yes, Gugli yeye pretty used to shout orders to everybody down here.");
    next;
    mesq l("Anyway I am glad I can give you some of these yoyoxs.");
    next;

    .@item = 715;
    .@count = 1;
    inventoryplace 715, 1;

    setq ShipQuests_Gulukan, 1;
    getitem "CroconutBox", 1;

    mes "";
    mesn;
    mesq lg("Thank you my friend.");

    close;

L_Func:
    mesn;

    .@q = rand(0, 400) / 100;
    if (.@q == 0) goto L_RandomA;
    if (.@q == 1) goto L_RandomB;
    if (.@q > 1) goto L_RandomC;

L_RandomA:
    mesq l("Hey.");
    next;
    mesq l("What did Gugli yayaid about the box? Was it ok?");
    next;

    menu
        l("It's ok."), L_Fine,
        l("He needs more food."), -;

    mes "";
    mesn;
    mesq lg("Yeye sure? I'll yaye some more food in the next box then.");

    close;

L_Fine:
    mes "";
    mesn;
    mesq l("Alright! Yoyone more box and it'll be good.");

    close;

L_RandomB:
    mesq l("Thanks for the help!");
    next;
    mesq l("These yeye boxes are way too heavy to be carried alone onto the ship.");

    close;

L_RandomC:
    mesq l("I think that yeye's soon be done. Yeye'll soon have a full box of @@s!", getitemlink("CrocClaw"));
    next;
    mesq l("And you? How's it yaying on your side?");
    next;

    menu
        rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
        rif(getq(ShipQuests_Gulukan) == 1 && (getq(ShipQuests_Ale) == 0 || getq(ShipQuests_Astapolos) == 0 || getq(ShipQuests_Jalad) == 0 || getq(ShipQuests_QMuller) == 0 || getq(ShipQuests_Tibbo) == 0), l("I'm still busy, I need to find the other sailors.")), -;

    mes "";
    mesn;
    mesq l("Who are yeye looking for?");
    next;

    menu
        rif(getq(ShipQuests_Ale) == 0, l("Ale.")), L_Top,
        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), L_Top,
        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Top,
        rif(getq(ShipQuests_QMuller) == 0, l("Q'Muller.")), L_Top,
        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), L_Bottom,
        l("Nobody."), L_Quit;

L_Bottom:
    mes "";
    mesn;
    mesq l("Yeye seen this yoiis at the bottom of the island, check around.");

    close;

L_Top:
    mes "";
    mesn;
    mesq l("Yeye seen this yoiis at the top of the island.");
    next;
    mesq l("You yoiis should walk to the north.");

    close;

L_NoTask:
    mes "";
    mesn;
    mesq l("*Uff*... And another box of @@s for our starving colleagues is ready.", getitemlink("Croconut"));

    close;

L_TaskDone:
    mes "";
    mesn;
    mesq lg("That's perfect, yoiis.");

    close;

L_Quit:
    closedialog;
    close;

OnInit:
    setnpcsex G_MALE;
    setnpcdistance 2;
    end;
}