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
276
277
278
279
280
281
282
283
284
285
286
287
|
//===== rAthena Script =======================================
//= Archer Skill Quest
//===== By: ==================================================
//= rAthena dev team
//===== Current Version: =====================================
//= 1.6
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Quest for skills: Arrow Crafting, Arrow Repel
//===== Additional Comments: =================================
//= 1.5 Rescripted to Aegis 10.3 stadards. [L0ne_W0lf]
//= 1.6 Updated to latest available official file.
//= also fixed Item issue [bugreport:5607]. [Masao]
//============================================================
moc_ruins,118,99,5 script Roberto 88,{
if (BaseJob == Job_Archer) {
if (getskilllv("AC_MAKINGARROW") == 1) {
mes "[Roberto]";
mes "Ooh, you're from my home town!";
mes "Nice to see you!";
mes "How are you?";
mes "Ah! That arrow!";
mes "You made it, didn't you!";
next;
mes "[Roberto]";
mes "Haha...!";
mes "Do you think it's a lot better?";
mes "Haha... anyways, I am glad.";
mes "Come back with once in a while";
mes "with news from home.";
mes "Then byebye~";
close;
}
else if ((BaseJob == Job_Archer) && (JobLevel >= 30)) {
mes "[Roberto]";
mes "Eh!";
mes " ";
mes "You are...";
next;
if ((countitem(907) > 19) && (countitem(921) > 6) && (countitem(906) > 40) && (countitem(1019) > 12) && (countitem(501) > 0) && (BaseJob == Job_Archer) && (JobLevel >= 30)) {
mes "[Roberto]";
mes "You brought them!";
mes "Thank you very much.";
mes "Then, as I promised, I will teach you the skill.";
next;
delitem 907,20; //Resin
delitem 921,7; //Mushroom_Spore
delitem 906,41; //Tough_Scalelike_Stem
delitem 1019,13; //Wooden_Block
delitem 501,1; //Red_Potion
skill "AC_MAKINGARROW",1,0;
mes "[Roberto]";
mes "No need to worry about arrows now.";
mes "Oh, and did you happen to see";
mes "someone called Jason in Payon?";
mes "Be careful. He is a";
mes "ferocious one.";
next;
mes "[Roberto]";
mes "You just have to be careful of Jason in Payon.";
mes "Remember.";
mes "Then bubye~ Thank you for the presents~";
close;
}
mes "[Roberto]";
mes "An archer in Morroc!?";
mes "Nice to see you! Meeting a fellow";
mes "archer in a place like this! *sniffsniff*!";
mes "I came alone to Morroc..";
mes "but I was a newcomer, and the pressure... waaah~";
mes "I was very lonely~";
next;
switch (select("It must be hard. It's ok have faith.:Keep suffering.")) {
case 1:
mes "[Roberto]";
mes "Yes. Thank you...";
mes "You must be having a hard";
mes "time in a place like this.";
mes "Isn't it hard to find arrows?";
mes "That's why I make my own.";
next;
menu "Eh, really?!",-;
mes "[Roberto]";
mes "Yeah! I gather different items";
mes "and make arrows using them.";
mes "It is a useful skill to help me";
mes "survive alone in this tough world.";
mes "If you'd like, I can teach you.";
next;
menu "That would be wonderful.",-;
mes "[Roberto]";
mes "But.. I can't do it for free.";
mes "Nothing is free in this world~";
mes "Mmm... How about this?";
mes "You bring me what I ask for.";
mes "Then I will teach you the skill.";
next;
mes "[Roberto]";
mes "I've been very lonely since I left my hometown.";
mes "I would like to treat my homesick-ness";
mes "with things from there.";
mes "Bring me 20 Resins from the trees in the ";
mes "Payon forest, and 1 Red Potion";
mes "sold in the store.";
next;
mes "[Roberto]";
mes "Also, 13 Trunks from the Willows that";
mes "lives near the Payon Forest,";
mes "41 Pointed Scale,";
mes "7 Mushroom Spores.";
mes "If you bring me all of these.";
next;
mes "[Roberto]";
mes "I will teach you the skill.";
mes "Then.. I'll be waiting.";
mes "For news from our home.";
close;
case 2:
mes "[Roberto]";
if (Sex > 1) {
mes "...hey miss.";
}
else {
mes "...hey mister.";
}
mes "...be careful at night.";
close;
}
}
mes "[Roberto]";
mes "Hmm... Do you?";
mes "Have something to say?";
mes "I,";
mes "have nothing.";
mes "Difference in levels";
mes "cuts off conversations.";
close;
}
mes "[?]";
mes "Eh... First time seeing an archer or something?";
mes "Just go where you were going.";
mes "I only talk to high level archers.";
mes "Won't open my mouth otherwise!";
close;
}
payon,103,63,3 script Jason 88,3,3,{
if (BaseJob == Job_Archer) {
if (getskilllv("AC_CHARGEARROW") == 1) {
mes "[Jason]";
mes "Eh, we meet again.";
mes "Ehhhh so weird.";
mes "Whenever I see someone again";
mes "I start eh-ing a lot.";
mes "Ehhh... anyways nice to see you again.";
mes "Ehhhh... don't come any more ehh...";
close;
}
else if ((Class == Job_Archer) && (JobLevel >= 35)) {
mes "[Jason]";
mes "Darn... my wound isn't healing.";
mes "Bleh.. I was too careless... ";
mes "to become like this.. err...";
mes "But still, hurting me like this";
mes "giving me so many injuries...";
next;
mes "What should I do about Roberto.";
mes "Mmmm... Ah!";
mes "You? How long have you been there?";
mes "Mmm... very high level.";
mes "Someone like you would definitely be";
mes "able to know how to use Arrow Repel.";
next;
switch (select("What is that?:Teach me.")) {
case 1:
mes "[Jason]";
mes "...you're kidding, right?";
mes "Oh my, you don't even know";
mes "Arrow Repel at that level?";
mes "You're a strange person.";
next;
mes "[Jason]";
mes "(Jason was in the lala land.)";
next;
mes "[Jason]";
mes "Well, ok. I'll teach you what";
mes "Arrow Repel is.";
next;
mes "[Jason]";
mes "Arrow Repel is a skill that allows you to";
mes "push the opponent away as soon as you attack.";
mes "You can only use it when you aim exactly";
mes "at the target. But unlike magic, ";
mes "it doesn't de-spell.";
next;
mes "[Jason]";
mes "It is very useful for an archer";
mes "that is weak in close ranges.";
mes "If you would like to learn,";
mes "come find me again.";
mes "There are some necessary materials.";
next;
mes "[Jason]";
mes "First, because you must modify a bow";
mes "bring a crossbow you do not use.";
mes "10 Tentacles, 10 Bill of Birds,";
mes "3 Yoyo Tails.. these are very elastic.";
mes "Also, 2 Emeralds. And last but not least...";
mes "36 bottles of Banana Juice that I love!";
next;
mes "[Jason]";
mes "......Ehem!";
mes "If you bring all of these,";
mes "I shall teach you Arrow Repel.";
mes "Then, see you again.";
mes "(I'm going to be mad if you don't bring the Banana Juice.)";
close;
case 2:
if ((countitem(721) > 1) && (countitem(942) > 2) && (countitem(962) > 9) && (countitem(925) > 9) && (countitem(532) > 35)) {
mes "[Jason]";
mes "Ok! Perfect!";
mes "I shall teach you the nationally";
mes "renowned skill, Arrow Repel!";
next;
delitem 721,2; //Azure_Jewel
delitem 942,3; //Yoyo_Tail
delitem 962,10; //Tentacle
delitem 925,10; //Bill_Of_Birds
delitem 532,36; //Banana_Juice
skill "AC_CHARGEARROW",1,0;
mes "[Jason]";
mes "Oh, works better than I expected!";
mes "Won't be needing to modify the bow!";
mes "You can take this back~";
mes "And enjoy using your newly inherited";
mes "skill in fields and dungeons!";
mes "He~heh~!";
close;
}
mes "[Jason]";
mes "Mmm... too bad.";
mes "You are missing some things.";
mes "Once again, you need 2 Emeralds,";
mes "3 Yoyo Tails, 10 Tentacles,";
mes "10 Bill of Birds, and last but";
mes "not least 36 bottles of Banana juice!";
next;
mes "[Jason]";
mes "Make sure you have all of them and come again!";
close;
}
}
mes "[Jason]";
mes "Ooh... you are an archer.";
mes "If you try a little more";
mes "you will have a great";
mes "reputation as an archer!";
mes "Exert yourself!";
close;
}
mes "[?]";
mes "What does life need from";
mes "a lonely lad like me?";
close;
OnTouch:
mes "[???]";
mes "Errrrrrr...";
close;
}
//============================================================
// Old changelog
//============================================================
//= v1.0 Roberto message text is based off RO npc. Jason message
//= text is custom from old version.
//= All items are from official quests though.[kobra_k88]
//= v1.0a Now using functions found in "Global_Functions.txt"
//= for class checks.[kobra_k88]
//= 1.2 Added Baby Class Support [Lupus]
//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
//= 1.4 Fixed exploits [Lupus]
//= 1.4a Fixed some typos [IVBela]
//= 1.4b changed perm. variables to temp ones [Lupus]
//============================================================
|
