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
|
// Evol scripts.
// Authors:
// gumi
// Reid
// Description:
// Lloyd the banker NPC.
// Variables:
// 0 ArtisQuests_Lloyd
// 1 ArtisQuests_Fexil
// 2 ArtisQuests_Enora
// Quest states:
// 00 -- Never talked
// 01 -- Registred on the Guild
// 10 -- not started
// 11 -- Lloyd warned about the quest
// 20 -- Default.
// 21 -- BlackSmith quest delivered.
// 22 -- Chelios Quest given.
// 23 -- Chelios Quest done.
001-2-19,31,25,0 script Lloyd the Banker NPC_LLOYD,{
function enora_quest {
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Black iron... That is a very specific request that you have for me!"),
l("Let me check in my inventory book..."),
l("..."),
l("Yes, I have some! \"5x Black Iron Ingots\""),
lg("Is this for you or somebody else? Because you need to be registered to obtain these materials.");
switch (selectd(ArtisQuests_Enora,
l("This is for my own use."),
l("Chelios asked me to get it.")))
{
case 1:
speech S_FIRST_BLANK_LINE,
l("This is your first time asking for something, you won't pay this time, take it as a sign of good faith!"),
l("If you need something in the future, do not hesitate to pass by here, our stock is full of boxes collecting dust.");
emotion E_WINK;
break;
case 2:
speech S_FIRST_BLANK_LINE,
l("Chelios... He is part of the Blacksmith House, is he not?"),
l("Since Don settled in Artis he and his band refused to register to the Merchant Guild."),
l("I will close an eye for once, but only because it's your first time asking for something!"),
l("Sometimes a good merchant needs to reach out first. It's on the house, give Chelios my regards!");
emotion E_WINK;
break;
}
setq ArtisQuests_Enora, 3;
return;
}
function explain_guild {
speech S_LAST_NEXT,
l("The guild is in charge of the commerce regularization throughout Artis and its surroundings."),
l("With the help of the town hall and the Legion of Aemil we organize some auction and we help local merchants to launch their businesses."),
l("We also feature some services like a storage and a bank for members."),
l("Registration is open to everybody, but newcomers need to pay a fee for all of the paperwork.");
narrator S_FIRST_BLANK_LINE,
l("The bank and item storage is shared between all characters within a same account."),
l("With it, you can safely move items and funds between your characters."),
l("To move between characters that are on different accounts, you have to use the Trade function.");
return;
}
function first_visit {
speech S_LAST_NEXT,
l("Welcome!"),
l("My name is Lloyd, I am a representative of the Merchant Guild of Artis.");
selectd(l("My name is @@...", strcharinfo(0)));
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("\"@@\", I like this name!", strcharinfo(0)),
l("Oh, wait a second...");
narrator S_LAST_NEXT,
l("Lloyd is searching something in his book.");
speech S_LAST_NEXT,
l("I see."),
lg("You are new around here, right?");
if (selectd(l("How do you know?"), l("Yes I am.")) == 1)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Oh, it is simple. I have on this book the names of every citizen of Artis and its surroundings."),
l("And I have no mention of a so called \"@@\" on it!", strcharinfo(0));
}
else
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("I knew it!");
}
speech S_LAST_NEXT,
l("Let me explain to you what the Merchant Guild is for.");
explain_guild;
next;
.@price = 500;
speech S_LAST_NEXT,
l("The fee is of @@ E. So, do you want to register?", .@price);
switch (selectd(l("Yes."),
l("I don't have the time now.")))
{
case 1:
if (Zeny < .@price)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("You do not seem to have enough money, come back later!");
}
else
{
Zeny -= .@price;
setq ArtisQuests_Lloyd, 1;
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Perfect!"),
l("I wrote your name on the book, you are now free to use the storage and bank services.");
}
break;
case 2:
break;
}
return;
}
function paper_to_deliver {
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Now that you bring up that topic, that reminds me of something..."),
l("Earlier today there was this young seller named Fexil that passed by here."),
l("He asked to lend some money and a place to open his store, I think that he asked for a place on the merchant squares on the south-west of the city..."),
l("Anyway, he forgot his permit when he left the building."),
l("Could you bring it to him?");
do
{
.@q = selectd(ArtisQuests_Fexil,
l("Ok, I will bring it to him."),
l("I need more information first."),
l("I don't have the time."));
switch (.@q)
{
case 1:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("Thank you for this!");
setq ArtisQuests_Fexil, 1;
break;
case 2:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("You should look for a seller named Fexil around the merchant square."),
l("Ask other merchants, they might know where he is.");
break;
case 3:
speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
l("No problem, come back later if you changed your mind!");
break;
}
} while (.@q == 2);
}
if (getq(ArtisQuests_Lloyd) == 0)
{
first_visit;
closeclientdialog;
goodbye;
close;
}
speech S_LAST_NEXT,
l("Welcome to the Merchant Guild of Artis!"),
l("What do you want today?");
do
{
.@enora = getq(ArtisQuests_Enora);
selectd
rif(.@enora == 2, l("I'm looking for some black iron ingots.")),
l("I would like to store some items."),
l("I would like to perform money transactions."),
l("What is this guild for?"),
l("Does the guild has any work for me right now?"),
l("Bye.");
switch (@menu)
{
case 1:
enora_quest;
break;
case 2:
closeclientdialog();
openstorage();
close;
break;
case 3:
MerchantGuild_Bank();
break;
case 4:
mes "";
explain_guild;
break;
case 5:
if (getq(ArtisQuests_Fexil) >= 1)
{
MerchantGuild_Quests(.bankid);
continue;
}
paper_to_deliver();
continue;
}
if (@menu != 6)
{
speech S_FIRST_BLANK_LINE | S_LAST_NEXT | S_NO_NPC_NAME,
l("Something else?");
}
} while (@menu != 6);
closeclientdialog;
goodbye;
close;
OnInit:
.quest_debug = ArtisQuests_Lloyd;
.bodytype = BODYTYPE_3;
.distance = 4;
// Bank configuration
array_push($@BANK_NAME$, .name$);
array_push($@BANK_TOWN$, "Artis");
.bankid = getarraysize($@BANK_NAME$)-1;
end;
}
function script FixBankVault {
if (#MerchantBank)
{
BankVault += max(0, #MerchantBank);
#MerchantBank = 0;
}
return;
}
|
