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
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
// Evol scripts.
// Authors:
// 4144
// Qwerty Dragon
// Vasily_Makarov
// Description:
// Allows to change language and talks about what happened to him.
// 2 Bits Array:
// ShipQuests
// Variables:
// 0 ShipQuests_Julia
// 1 ShipQuests_ChefGado
// 2 ShipQuests_Nard
// Values:
// Julia:
// 10 Default, no quest given.
// 01 Need to see Julia.
// 02 Has been registered by Julia.
// Gado:
// 10 Default, no quest given.
// 11 Quest accepted.
// 12 Ingredients collected, ready to poison Julia.
// 13 Julia poisoned.
// 14 Quest complete. Chef Gago wins.
// 15 Quest complete. Julia wins (poison dish returned).
// 16 Quest complete. Julia wins.
// Nard:
// 20 Introduction of the boxes and Nard. This is displayed when the player never spoke to Nard or his box.
// 21 Nard spoke and gave access to the outdoor of the ship.
// 22 Completed the Gugli quest.
// 23 ChefGado Quest accepted.
// 24 ChefGado Quest completed and "Introduction" chapter finalized.
// 25 Reward taken from the box.
000-2-0.gat,27,24,0,0 script Julia 304,2,10;10,{
setskill 1, 1; // Add Emote skill.
mesn;
mesq lg("Hello dear!");
next;
mesq l("What do you want today?");
next;
set @q2, getq(ShipQuests_ChefGado);
set @q3, getq(ShipQuests_Nard);
set @s$, l("I don't want to change my language, sorry.");
L_Menu:
menu
rif(@q3 == 3 && @q2 == 0, l("I heard rumors about some old hostilities between you and Gado. Are they true?")), L_Rumors,
rif(@q2 == 2 && countitem("PoisonedDish", 1), l("Well... No wait, I have something for you but you shouldn't eat it... I'm taking it back to the kitchen.")), L_Regret,
rif(@q2 == 2 && countitem("PoisonedDish", 1), l("I have brought you a tasty present for your delicate mouth.")), L_PoisonJulia,
lg("I made a mistake, I would like to change my language."), L_ChooseLang,
l("Could you explain to me where I am?"), L_WhereIam,
l("What happened to me?"), L_What,
l("Can I read these rules again?"), L_Rules,
l("Nothing, sorry."), L_Quit;
mes "";
mesn;
mesq l("Of course! Tell me which language you speak and I will change the note on the ship board list.");
goto L_ChooseLang;
L_First:
callfunc "CheckClientVersion";
mesn;
mesq l("Hi, nice to see you!");
next;
mesq l("My name is Julia, it is me who took care of you after we found you in the sea.");
next;
mesq lg("I'm glad to see you're okay.");
next;
mesq lg("Could I ask you what your native language is? A sailor told me you're russian, but another one told me you're french... I'm a bit lost. I will register you on the ship boarding list just after that.");
next;
set @s$, "";
goto L_ChooseLang;
L_ChooseLang:
menu
menuimage("flags/en", l("I speak English.") + " (English)"), -,
menuimage("flags/fr", l("I speak French.") + " (Français)"), -,
menuimage("flags/ru", l("I speak Russian.") + " (Русский)"), -,
menuimage("flags/es", l("I speak Spanish.") + " (Español)"), -,
menuimage("flags/pt_BR", l("I speak Portuguese.") + " (Português)"), -,
menuimage("flags/de", l("I speak German.") + " (Deutsch)"), -,
menuimage("flags/vls", l("I speak Flemish.") + " (Vlaams)"), -,
menuimage("flags/pl", l("I speak Polish.") + " (Polski)"), -,
menuimage("flags/it", l("I speak Italian.") + " (Italiano)"), -,
menuimage("flags/nl_BE", l("I speak Dutch.") + " (Nederlands)"), -,
menuimage("flags/ca", l("I speak Catalan.") + " (Català)"), -,
@s$, L_NoChanges;
set @lang, @menu-1;
if (@lang < 0 || @lang > 10) close;
setlang @lang;
mes "";
mesn;
mesq l("Ok, done.");
set @q, getq(ShipQuests_Julia);
if (@q == 2) goto L_NoRules;
next;
mesq l("I'm sure that you've got some questions for me, feel free to ask them, but first I need to tell you the rules of proper social conduct on board.");
mesq l("Here they are.");
next;
mesn "Narrator";
mes col(l("There is a paper with some rules written on it."), 9);
next;
mesq col(l("1. ##BDo not bot##b, this means you are not allowed to perform any AFK (away from keyboard) activity, apart from standing idle."), 9);
next;
mesq col(l("2. ##BDo not use offensive/rude language##b in the chats or in your character(s) name(s)."), 9);
next;
mesq col(l("3. ##BDo not spam/flood other players.##b This includes chat spam and spam by trade requests."), 9);
next;
mesq col(l("4. ##BSpeak only English in public areas.##b You can speak whatever language you want through whispers or whenever everyone in the area can speak said language."), 9);
next;
mesq col(l("5. ##BDo not beg others##b for money, items or favours of any kind. If you want to ask for something, do it politely and only once. Try not to annoy other players."), 9);
next;
mesq col(l("6. ##BFollow the [@@http://wiki.evolonline.org/rules/esc|ESC@@]##b (Evol Social Convention)."), 9);
next;
mesq col(l("7. ##BDo not multibox.##b You are not allowed to engage in combat while controlling more than one character at a time."), 9);
next;
mesn;
mesq l("Oh, and I almost forgot! Do not give the password of your room to anybody! I am the only one who has the other key and I won't ask for yours so keep it secret and try not to use the same password for any other room in the future.");
next;
mesq l("If you want to read this page again, there is a copy up on the left wall.");
next;
mesq l("I think I'm done with that now. Do you have any questions?");
next;
setq ShipQuests_Julia, 2;
goto L_Menu;
L_NoRules:
next;
mesq l("Do you have any other questions for me?");
next;
goto L_YNMenu;
L_NoChanges:
mes "";
mesn;
mesq l("No problem, do you have any other questions for me?");
next;
L_YNMenu:
menu
l("Yes, I do."), L_Menu,
l("No, none."), L_Quit;
L_WhereIam:
mes "";
mesn;
mesq l("You're on a ship, we're on our way to the commercial capital of Artis.");
next;
mesq l("We should be there in a few days, once we arrive, I will warn the Warrior Guild about what happened, I'm sure they can help.");
next;
mesq l("But for now, you can relax on the ship, or visit the island we're docked at! Its a small island, but a good place to get some exercise and stretch your legs.");
next;
mesq l("Do you have any other questions for me?");
next;
goto L_YNMenu;
L_What:
mes "";
mesn;
mesq l("We thought that you could help us understand this, all we know is that we found you cast in the sea, adrift on your raft.");
next;
mesq lg("You were in bad shape, you should be happy we found you before the sea killed you.");
next;
mesq l("Oh, and there was this inscription on your raft. It represents the Warrior Guild of Esperia, the largest and biggest guild of the whole new world. Does that make you remember anything, anything at all?");
next;
goto L_EsperiaMenu;
L_EsperiaMenu:
menu
l("Sorry, but I can't tell you anything about that."), L_NoChanges,
l("Nothing, sorry."), L_NoChanges;
L_Rules:
mes "";
mesn;
mesq l("Of course, they are on the left wall, go have a look at them.");
next;
mesq l("Do you have any other questions for me?");
next;
goto L_YNMenu;
OnTouch:
set @q, getq(ShipQuests_Julia);
if (@q == 0 || @q == 1) goto L_First;
close;
L_PoisonJulia:
mes "";
mesn;
mesq l("Seems yummy! Let me taste it!");
next;
mesq l("Hmmm, hm... *cough*, *cough*, *burp*, *cough*. What... What is that?!... *cough*, *burp*... Damn Gado... *cough*");
if (countitem("PoisonedDish") > 0), delitem "PoisonedDish", 1;
setq ShipQuests_ChefGado, 3;
close;
L_Regret:
mes "";
mesn;
mesq l("Why? And who should you bring it back to?");
next;
menu
l("Ehm... He was really upset because of some past stories."), -;
mes "";
mesn;
mesq l("Gado! That coward lives in the past, I will ask Nard to punish him, again!");
next;
mesq l("Take this money for your wise choice. But do not try it again. The open sea has been merciful with you once... Do not further tempt the fates!");
setq ShipQuests_ChefGado, 5;
set zeny, zeny + 200;
message strcharinfo(0), l("You receive @@ E!", 200);
getexp 15, 0;
close;
L_Rumors:
mes "";
mesn;
mesq l("You shouldn't believe every tale drunken sailors tell you.");
next;
menu
l("Let's say the person who told me about that is well respected on this ship and never drunk."), -;
mes "";
mesn;
mesq l("Hahaha! All sailors aboard this ship are always drunk... Well... Except... Wait, what?! Nard told you?!");
next;
mesq l("Doesn't he like the way I'm taking care of his ship? Everything is clean and tidy with me, rightful lieutenant of La Johanne.");
next;
mesq l("I give tasks to every single sailor, all day long. That should make him happy!");
next;
menu
l("Well... I don't think it is the best way to rule a ship. Think about it."), L_Quit,
l("In fact, everything seems to work perfectly under your guidance. Nard has made the right choice."), -;
mes "";
mesn;
mesq l("I'm glad you're on my side.");
next;
mesq l("Take this money as a reward for your nice words.");
setq ShipQuests_ChefGado, 6;
set zeny, zeny + 100;
message strcharinfo(0), l("You receive @@ E!", 100);
getexp 8, 0;
close;
L_Quit:
callfunc "GoodBye";
}
|
