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
|
// Evol scripts.
// Author:
// Reid
// Description:
// Sailor part of the Gugli's quest.
// Croconut box.
000-1.gat,22,50,0,1 script Astapolos 107;2,{
set @q, getq(ShipQuests_Astapolos);
if (@q == 1) goto l_CallFunc;
// Some dialogues will be here.
setq ShipQuests_Astapolos, 1;
getitem "CroconutBox", 1;
// And here too.
l_CallFunc:
callfunc "SailorFood";
menu
rif(getq(ShipQuests_Astapolos) == 1, 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 searching?");
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("QMuller.")), l_Bottom,
rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
l("Nobody."), -;
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;
}
|