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
|
// Evol scripts.
// Authors:
// Reid
// Description:
// Cap'tain Nard dialogs.
// Nard will done the introduction by a little quest,
// This quest is meant to learn at the player how to manipulate a weapon, but also to bring some foods to the ship.
// 2 bits array:
// ShipQuests
// Variable:
// ShipQuests_NardBox
// Values:
// 0 Intro of the box and of Nard, it's displayed when the player never spoke to Nard, nor his box.
// 1 Nard spoke and he gave you access to the outdoor of the ship.
// 2 You complete the quest.
// 3 You open the chest, you complete the introduction.
000-2-3.gat,25,24,0 script Box 102,{
set @q, geta2(ShipQuests, ShipQuests_Nardbox);
mesn "Narrator";
mes col(l("Some Bandanas and Sailor Hats are inside this box."), 9);
next;
mes col(l("What do you wish to do?"), 9);
next;
menu
l("Take a Bandana"), -,
l("Nothing"), l_Close;
if (@q == 1) goto l_NotYet;
if (@q == 2) goto l_Give;
if (@q > 2) goto l_Already;
mes "";
mesn "Narrator";
mes col(l("Nard looks surprised and stop you."), 9);
next;
mesn "Nard";
mesq l("You like these hats, right?");
next;
mesq l("How if I ask you to help the crew? It would mean that you are a part of us, and that you will be able to get one of these hat.");
next;
mesq l("We need as much hands as possible to explore the island out there, and to get some new food.");
next;
mesq l("You could meet some of the other sailors by this way, and... Getting this hat of course, it will be a sign of your joint to our crew.");
next;
mesq l("What do you think?");
next;
menu
l("Why not, I got plenty of free time."), -,
l("I think that I'm still a bit sick."), l_Close;
mes "";
mesn "Nard";
mesq l("Fine!");
next;
mesq l("Go outside and talk with Gugli, he will explain you what are our needs.");
seta2 ShipQuests, ShipQuests_Nardbox, 1;
close;
l_NotYet:
mesn "Nard";
mesq l("Please don't touch at these hats, they are for crew members only.");
l_Close:
close;
l_Give:
mesn "Nard";
mesq l("Congrats!");
next;
mesn "Nard";
mesq l("You are now part of the crew! Thanks again for your help.");
seta2 ShipQuests, ShipQuests_Nardbox, 3;
getitem "Bandana", 1;
// Need to add a skill for the crew at this line.
close;
l_Already:
mesn "Nard";
mesq l("You already took a Bandana, put this one back please.");
close;
}
|
