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
|
// Evol scripts.
// Authors:
// Hal9000
// Qwerty Dragon
// Reid
// Description:
// Sailor part of the Gugli's quest.
// Croconut box.
000-1,22,50,0 script Astapolos NPC_ELVEN_MAN_RED,{
if (getq(General_Narrator) > 0)
{
sailortalk;
}
.@g = getq(ShipQuests_Gugli);
if (.@g == 0) goto L_NoTask;
.@q = getq(ShipQuests_Astapolos);
if (.@q == 1) goto L_CallFunc;
mesn;
mesq l("So finally someone has came to visit me?");
next;
select
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 alternate shifts with other sailors from time to time."), -,
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 downstairs to the hold, where you will find a furry meal!");
next;
mesq lg("Oh, but you didn't come here to talk about that, am I right?");
next;
select
lg("Actually, 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;
inventoryplace CroconutBox, 1;
setq ShipQuests_Astapolos, 1;
getitem CroconutBox, 1;
mes "";
mesn;
mesq l("Good luck! And remember to visit Peter and our little furry friends whenever you return back onboard!");
close;
L_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 that 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 southern part of the island, check around.");
close;
L_Top:
mes "";
mesn;
mesq l("I've seen him at the northern part 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;
OnInit:
.sex = G_MALE;
.distance = 2;
end;
}
|
