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
|
// Evol scripts.
// Authors:
// Hal9000
// Qwerty Dragon
// Reid
// Description:
// Sailor part of the Gugli's quest.
// Aquada box.
000-1,34,111,0 script Tibbo 110,{
set .@g, getq(ShipQuests_Gugli);
if (.@g == 0) goto L_NoTask;
set .@q, getq(ShipQuests_Tibbo);
if (.@q == 1) goto L_CallFunc;
mesn;
mesq l("Uh? Hi! I'm sorry, but I have no time for chatting.");
next;
menu
l("Fine... I was just going to give you some help..."), -;
mes "";
mesn;
mesq l("Hel... What?! Wait!");
next;
mesq l("What kind of help?");
next;
menu
lg("Gugli asked me to help you carrying one of these boxes you are filling."), -;
mes "";
mesn;
mesq l("Then it seems I have to apologize.");
next;
mesq l("I am surprised someone has been sent here to help. It is quite... unusual.");
next;
mesq l("Bring this box to Gugli. He will be extremely happy!");
next;
callfunc "InventoryPlace", 714, 1;
setq ShipQuests_Tibbo, 1;
getitem "AquadaBox", 1;
mes "";
mesn;
mesq l("Thank you and be careful with that box. I have worked really hard to fill it!");
goto L_Close;
L_CallFunc:
callfunc "SailorFood";
menu
rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
rif(getq(ShipQuests_Tibbo) == 1 && (getq(ShipQuests_Ale) == 0 || getq(ShipQuests_Astapolos) == 0 || getq(ShipQuests_Gulukan) == 0 || getq(ShipQuests_Jalad) == 0 || getq(ShipQuests_QMuller) == 0), l("I'm still busy, I need to find the other sailors.")), -,
l("What's that food?"), L_Aquada;
mes "";
mesn;
mesq l("Who are you 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_Gulukan) == 0, l("Gulukan.")), L_Top,
rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Top,
rif(getq(ShipQuests_QMuller) == 0, l("Q'Muller.")), L_Top,
l("Nobody."), -;
goto L_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 to find him.");
close;
L_Aquada:
mes "";
mesn;
mesq l("This is an @@, a light blue sea fruit. They're highly desired in the archipelago.", getitemlink("Aquada"));
next;
mesq l("You can find them in the ocean, near corals and other sea beings. But the sea is too heavy today, you shouldn't try swimming for now.");
next;
mesq l("Otherwise, if you really want one, and if you feel capable, you can try killing tortugas or crocs if you're strong enough. I'm sure they could drop one or two @@s.", getitemlink("Aquada"));
close;
L_NoTask:
mes "";
mesn;
mesq l("I'm sorry but I have no time to chat with you.");
close;
L_TaskDone:
mes "";
mesn;
mesq l("Awesome!");
close;
L_Close:
callfunc "GoodBye";
close;
OnInit:
setnpcsex 1;
setnpcdistance 2;
end;
}
|