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
|
// Author:
// Saulc
// Jesusalva
005-5,27,38,0 script Nylo NPC_PLAYER,{
function nylo_thanks;
function nylo_items;
function nylo_money;
function nylo_explain;
speech S_LAST_BLANK_LINE,
l("Visiting the bank too right? We're only a small village but Cynric is the best bank guy I know.");
.@q=getq(CandorQuest_Marggo);
do
{
select
l("Yeah, you're right."),
l("You store a large collection of goods. Could you perhaps sell me some?"),
rif(!.@q,l("What do you for a living?")),
l("What is banking?");
switch (@menu)
{
case 1:
break;
case 2:
// FIXME ME: Depends on: Living Quest
mesn;
mesq l("Sure. I like to keep Alcoholic beverages, because they raise EXP gain when you drink @@.", b(l("with friends")));
next;
mesn;
mesq l("Of course: better drinks, more EXP. Just be careful to don't get so drunk that you cannot fight anymore, will ya?");
next;
if (TUTORIAL && !@beertuto) {
@beertuto=true;
tutmes l("Drinking with friends will give 1.5% extra XP boost for each person nearby."), l(".:: Alcohol Tutorial ::.");
tutmes l("Alcohol effects expire upon death. You need vitality to drink more beer."), l(".:: Alcohol Tutorial ::.");
tutmes l("Even if you drink alone, you'll still receive the EXP bonus marked on the item description."), l(".:: Alcohol Tutorial ::.");
}
closeclientdialog; // Not needed?
openshop .name$;
break;
case 3:
goto L_Main;
break;
case 4:
nylo_explain();
.@mask=0;
do {
select
rif(!(.@mask & 1), l("How do I save items?")),
rif(!(.@mask & 2), l("How do I save money?")),
l("Thanks!");
switch (@menu) {
case 1:
.@mask=.@mask|1;
nylo_items();
break;
case 2:
.@mask=.@mask|2;
nylo_money();
break;
case 3:
.@mask=.@mask|4;
nylo_thanks();
break;
}
} while (true);
break;
}
} while (@menu != 1);
closedialog;
goodbye;
close;
L_Main:
mesn;
mesq l("Well, for a living, I usually tend to the crops.");
next;
mesn;
mes l("I raise them, water them, and then sell them.");
mes l("I also brew some of the crops, making Beer. And then I sell to adventurers!");
if (BaseLevel < 6)
close;
next;
mesn;
mes l("Well, you're an adventurer, and I guess tending to crops isn't your cup of tea.");
mes l("But maybe you could help me killing a few maggots?");
next;
mesn;
mes l("Eight Maggots will rise from the ground and will start destroying the crops.");
mes l("You must kill them before the crops are gone. I'll reward you, of course.");
next;
mesn;
mesq l("Interested?");
if (askyesno() == ASK_NO) {
mes "";
mesn;
mesq l("Heh. Fair enough.");
close;
}
.@ID=getcharid(0);
.@MAP$="MRGO@"+str(.@ID);
// Create the Marggo
.@INSTID = instance_create("MRGX@"+(.@ID), 0, IOT_NONE);
.@instanceMapName$ = instance_attachmap("005-1-1", .@INSTID, 0, .@MAP$);
// Instance already exists
if (.@instanceMapName$ == "") {
mesn;
mesq l("Wait. I remember you. You ruined my crops a few seconds ago!!");
next;
mesn;
mesq l("Shooo, shooo! Give my crops some time to recover, your noob.");
close;
}
// It was just created, so begin Marggo Quest
instance_set_timeout(300, 300, .@INSTID);
instance_init(.@INSTID);
warp .@MAP$, 29, 20;
// We'll need instance ID later and @vars are unreliable
MARGGO_ID=.@INSTID;
doevent("Nylo#Marggo::OnStart");
closeclientdialog;
close;
// Functions
function nylo_thanks {
speech S_LAST_BLANK_LINE,
l("You are very welcome.");
close;
}
function nylo_items {
speech S_LAST_BLANK_LINE,
l("Let Cynric open your storage. You might also want to open your inventory."),
l("Pick an item from either storage or inventory and choose what you want to do with it by clicking the right button."),
l("You can also pick and drag items from one window into the other but this will move all items of this kind.");
next;
speech S_LAST_BLANK_LINE,
l("Items in your storage are totally safe. Banking itself is totally safe.");
return;
}
function nylo_money {
speech S_LAST_BLANK_LINE,
l("That's easy. Cynric will save your money when you ask him to deposit. Or you pick up your money by asking to withdraw."),
l("You only have to tell him how much you want to deposit or withdraw."),
l("Also you can ask how much he already save for you by checking your balance.");
next;
speech S_LAST_BLANK_LINE,
l("Money in your storage is totally safe. Banking itself is totally safe.");
return;
}
function nylo_explain {
speech S_LAST_BLANK_LINE,
l("There are banks all over the world. Usually every important village or city has one."),
l("You can save both items and money at a bank.");
return;
}
OnInit:
.@npcId = getnpcid(.name$);
//setunitdata(.@npcId, UDT_HEADMIDDLE, 1321); // Maybe Nylo could use the whole Candor set...
setunitdata(.@npcId, UDT_HEADTOP, CreasedShirt);
setunitdata(.@npcId, UDT_HEADMIDDLE, CreasedShorts);
setunitdata(.@npcId, UDT_HEADBOTTOM, NPCEyes);
setunitdata(.@npcId, UDT_WEAPON, CandorBoots);
setunitdata(.@npcId, UDT_HAIRSTYLE, 26);
setunitdata(.@npcId, UDT_HAIRCOLOR, 0);
tradertype(NST_MARKET);
sellitem Beer, 320, 100;
.sex = G_MALE;
.distance = 4;
end;
// Restock
OnClock0600:
OnClock1200:
OnClock1800:
OnClock0004:
restoreshopitem Beer, 320, 100;
end;
}
|
