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
|
// Evol scripts.
// Authors:
// Qwerty Dragon
// Reid
// Description:
// Sailor part of the Gugli's quest.
// Aquada box.
000-1,55,23,0 script Ale 105,{
set .@g, getq(ShipQuests_Gugli);
if (.@g == 0) goto L_NoTask;
set .@q, getq(ShipQuests_Ale);
if (.@q == 1) goto L_CallFunc;
mesn;
mesq l("Ouch...");
next;
mesq l("These heavy boxes are killing me, I don't feel my arms anymore!");
next;
menu
lg("Gugli sent me down here to help you."), -,
l("What's that?"), L_Plushroom,
l("See you aboard."), L_Quit;
mes "";
mesn;
mesq l("Really? That's kind of you, I accept your help!");
next;
mesq l("Hmm... Let's see, take this one.");
next;
callfunc "InventoryPlace", 714, 1;
setq ShipQuests_Ale, 1;
getitem "AquadaBox", 1;
mes "";
mesn;
mesq l("I will take care of the other ones don't worry.");
close;
L_CallFunc:
callfunc "SailorFood";
menu
rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
rif(getq(ShipQuests_Ale) == 1 && (getq(ShipQuests_Astapolos) == 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("What's that?"), L_Plushroom;
mes "";
mesn;
mesq l("Who are you looking for?");
next;
menu
rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), L_Bottom,
rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), L_Bottom,
rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Jalad,
rif(getq(ShipQuests_QMuller) == 0, l("Q'Muller.")), L_Bottom,
rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), L_Bottom,
l("Nobody."), L_Quit;
L_Bottom:
mes "";
mesn;
mesq l("I've seen him down around the southern area of the island, ask Jalad for more information.");
close;
L_Jalad:
setcamnpc "Jalad";
next;
mesn;
mesq l("Look, here he is!");
next;
restorecam;
close;
L_Plushroom:
mes "";
mesn;
mesq l("'That', as you call it, is a @@. There are plenty of 'em on this island!", getitemlink("Plushroom"));
next;
mesq l("It's a kind of mushroom that tastes like a marshmallow and looks like a plush! @@, get it?", getitemlink("Plushroom"));
next;
mesq l("These funny fungi are mushrooming all around this island. Just pick some @@s and have a try.", getitemlink("Plushroom"));
close;
L_NoTask:
mes "";
mesn;
mesq l("Ouch... These boxes are so heavy!");
close;
L_TaskDone:
mes "";
mesn;
mesq l("That's good to hear!");
close;
L_Quit:
closedialog;
close;
OnInit:
setnpcsex 1;
setnpcdistance 2;
end;
}
|
