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
|
// Evol scripts.
// Authors:
// Hal9000
// Reid
// Description:
// Sailor part of the Gugli's quest.
// Croconut box.
000-1.gat,22,50,0,1 script Astapolos 107;2,{
set @g, getq(ShipQuests_Gugli);
if (@g == 0) goto L_NoTask;
set @q, getq(ShipQuests_Astapolos);
if (@q == 1) goto L_CallFunc;
mesn;
mesq l("So finally someone has came to visit me?");
next;
menu
lg("Actually, I came here to work on my task."), -;
mes "";
mesn;
mesq l("Oh, I see. That's right. Why should someone come here to see me, seriously?");
next;
mesq l("Do you think this is fair? They sent me down here alone, far away from everyone.");
next;
menu
lg("I'm sorry for your situation. They should change with another sailor from times to times."), -,
l("Well if you are whining like that all the time, then I think there is a reason behind their choice."), L_Whyning;
mes "";
mesn;
mesq l("Exactly. Even our task is ridiculous. Why should we collect food down here if we have plenty of those tasty and soft rattos inside our ship, waiting just to be hunted and cooked?");
next;
menu
l("You... You eat... rattos? I think you're just a fool."), L_Whyning,
l("Oh... eating rattos. Sounds... ehm... Delicious, yes."), -;
mes "";
mesn;
mesq l("You like them, don't you? Just speak with Peter then. He is on the second deck of the ship. He will send you to downstairs where you will find our furry meal!");
next;
mesq lg("Oh, but you didn't come here to talk about that, am I right?");
next;
menu
lg("No, indeed. I was here to help you with those boxes. Can I bring one of them back to Gugli?"), -;
mes "";
mesn;
mesq l("Usually I don't allow anyone to touch my boxes but...");
next;
mesq lg("You have been so nice to me. So please, take one.");
next;
callfunc "InventoryPlace", 715, 1;
setq ShipQuests_Astapolos, 1;
getitem "CroconutBox", 1;
mes "";
mesn;
mesq l("Good luck! And don't forget to visit Peter and our little friends when you will be back onboard!");
close;
L_CallFunc:
callfunc "SailorFood";
menu
rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
rif(getq(ShipQuests_Astapolos) == 1 && (getq(ShipQuests_Ale) == 0 || getq(ShipQuests_Gulukan) == 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.")), -,
l("How are things going?"), L_HowAreYou,
l("Who are you?"), L_Who;
mes "";
mesn;
mesq l("Who are you looking for?");
next;
menu
rif(getq(ShipQuests_Ale) == 0, l("Ale.")), L_Top,
rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), L_Bottom,
rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Top,
rif(getq(ShipQuests_QMuller) == 0, l("Q'Muller.")), L_Bottom,
rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), L_Bottom,
l("Nobody."), -;
closedialog;
close;
L_HowAreYou:
mes "";
mesn;
mesq l("A sunny and hot day,");
next;
mesq l("a quiet place,");
next;
mesq l("a ground!");
next;
mesq l("I hope that answers your question.") + " " + l("Hehe!");
close;
L_Who:
mes "";
mesn;
mesq l("My name is Astapolos. Q'Muller and I joined Nard's crew a few years ago when it was just a little merchant ship.");
next;
mesq l("At this time, we were selling crab food on our old mushroom island.");
next;
mesq l("And now I'm a sailor, as you can see!");
close;
L_Bottom:
mes "";
mesn;
mesq l("I've seen him at the bottom of the island, check around.");
close;
L_Top:
mes "";
mesn;
mesq l("I've seen him at the top of the island.");
next;
mesq l("You should walk to the north.");
close;
L_NoTask:
npctalk3 l("Just leave me alone.");
closedialog;
close;
L_TaskDone:
mes "";
mesn;
mesq l("Perfect!");
close;
L_Whyning:
npctalk3 l("Then leave me alone.");
closedialog;
close;
}
|
