root/npc/jobs/2-2/bard.txt @ 1

Revision 1, 31.2 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Bard Job Quest
3//===== By: ==================================================
4//= Muad_Dib(The Prometheus Project), Lupus, Samuray22
5//===== Current Version: =====================================
6//= 2.4
7//===== Compatible With: =====================================
8//= eAthena SVN
9//===== Description: =========================================
10//= [Aegis Conversion]
11//= Job quest for Bard class
12//===== Additional Comments: =================================
13//= 2.1b Updated to the Official One. [Samuray22]
14//= 2.2 Fixed BUG when baby classes weren't able to get a job,
15//=     - fixed bug with final prize [Lupus] HAVE TO CHANE ALL ITEMS to numeric IDs
16//= 2.3 Updated NPC dialogs and cutins using Aegis 10.3 files. [L0ne_W0lf]
17//=     - Fixed error with the present checking. (Lupus beat me to committing)
18//=     - Changed the reward checking to use callsub (fixed the flow of the script)
19//=     - Optimized and changed the flow of things slightly.
20//=     - Temporary character variables "@" are now ".@"
21//=     - Fixed some indentation.
22//=     - Changed item names to item IDs
23//= 2.4 Fixed hang up on bard quest. ($kiN.) [L0ne_W0lf]
24//============================================================
25
26//=============== Ayealo ============================
27comodo,226,123,5        script  Wandering Bard  741,{
28        if(Upper == 1) {
29                mes "[Lalo]";
30                mes "Chosen ones who are destined to become Gods";
31                mes "are so many in this era";
32                mes "but they never realise their fate while alive.";
33                mes "They end up to become ordinary men...";
34                next;
35                mes "[Lalo]";
36                mes "Wind and Clouds, please send this message to them,";
37                mes "who pursue food, clothing, shelter and wealth.";
38                mes "Tell them they are wasting their time...";
39                mes "Tell them they forget the most important goal of the life...";
40                close2;
41                cutin "job_bard_aiolo01",255;
42                end;
43        }
44        else if(BaseJob != Job_Archer) {
45                if(BaseJob == Job_Bard) {
46                        mes "[Lalo]";
47                        mes "Ooh hey! How's your singing these days?";
48                        mes "I wonder if your voice got any better.";
49                        next;
50                        mes "[Lalo]";
51                        mes "You don't forget to spread good news in each town, right?";
52                        mes "And don't forget to learn new songs, too...";
53                        next;
54                        mes "[Lalo]";
55                        mes "Never forget to have a positive attitude and the meaning of joy.";
56                        mes "Our songs are supposed to deliver happiness and joy to everyone.";
57                }
58                else if(Class == Job_Novice) {
59                        cutin "job_bard_aiolo01",2;
60                        mes "[Lalo]";
61                        mes "The sadness that overcomes my heart.. ";
62                        mes "It will not reside..";
63                        mes "Is this the reason behind my troubles,";
64                        mes "is this why I am weak,";
65                        mes "This must be why I cannot seem to forget you...";
66                        next;
67                        mes "[Lalo]";
68                        mes "Oh, sorry. I didn't see you because I was concentrating on writing some lyrics.";
69                        mes "Do you want to listen to my songs? Shall I sing a song for you?";
70                        next;
71                        mes "[Lalo]";
72                        mes "Heh... try asking someone else.";
73                        mes "I'm trying to compose a new song.";
74                }
75                else {
76                        cutin "job_bard_aiolo01",2;
77                        mes "[Lalo]";
78                        mes "Lalala, lalala. Beautiful Comodo.";
79                        mes "Always full of happy moments~";
80                        next;
81                        mes "[Lalo]";
82                        if (sex) {
83                                mes "Forget about your worries~";
84                                mes "And enjoy everything~";
85                        }
86                        else mes "Cute lady, shall we dance~";
87                        mes "Youth never repeats itself~";
88                }
89                close2;
90                cutin "job_bard_aiolo01",255;
91                end;
92        }
93        else if(BARD_Q == 0) {
94                cutin "job_bard_aiolo01",2;
95                mes "[Lalo]";
96                if (sex) mes "Hi! Delightful Archer.";
97                else mes "Hello! Beautiful Archer Lady.";
98                mes "How can a wanderer like me help you?";
99                next;
100                switch(select("You have a nice voice.:Could you sing for me, please?:Nothing.")) {
101                case 1:
102                        mes "[Lalo]";
103                        mes "Hahaha! Of course!";
104                        mes "if you sing with a happy heart, your voice always gets better.";
105                        next;
106                        mes "[Lalo]";
107                        mes "But, to Bards your voice is your life.";
108                        mes "Sometimes your voice will go, but you must be careful.";
109                        break;
110
111                case 2:
112                        mes "[Lalo]";
113                        mes "A song... let's see.";
114                        mes "Ok, I got one...";
115                        next;
116                        mes "[Lalo]";
117                        mes "I'll sing.. Drums of War.";
118                        mes "*ehem...*cough...gag..mememememe...";
119                        mes "1, 2, 3, 4...";
120                        next;
121                        mes "^000088The sound of horses galloping over the horizon";
122                        mes "The dust that covers the distant sun";
123                        mes "When thousands of eyes open in the night sky";
124                        mes "The castle's fire will burn with power.^000000";
125                        next;
126                        mes "^000088I can hear.. the beating of my heart.";
127                        mes "I can feel.. the blood rushing through my veins.";
128                        mes ".. and the weight of my armor.";
129                        mes "I can see.. my enemies.^000000";
130                        next;
131                        mes "^000088Louder, louder louder..";
132                        mes "Give strength to the warriors!";
133                        mes "Higher, higher, higher..";
134                        mes "This day will never come again!^000000";
135                        next;
136                        mes "^000088Shake the sky and roar through the land.";
137                        mes "Make my heart pound again!";
138                        mes "Let the trumpets sound, and castle walls ring.";
139                        mes "This moment will never come again!^000000";
140                        next;
141                        mes "[Lalo]";
142                        mes "Hmm... that's always a good song to sing.";
143                        mes "How was it? Don't you think it's a nice song?";
144                        next;
145                        if (select("Yes, it was very nice.:No, not really...") == 1) {
146                                mes "[Lalo]";
147                                mes "Thanks! if you enjoyed my song, it makes me happy, too.";
148                                next;
149                                if (Sex == 1 && JobLevel > 39) {
150                                        mes "[Lalo]";
151                                        mes "It would be nice if more people went around and sang...";
152                                        mes "Well, it's quite ok as it is now... hmmhmm.";
153                                        set BARD_Q,1;
154                                        close2;
155                                        cutin "job_bard_aiolo01",255;
156                                        end;
157                                }
158                                mes "[Lalo]";
159                                mes "if you ever want to hear my song again, just ask.";
160                                close2;
161                                cutin "job_bard_aiolo01",255;
162                                end;
163                        }
164                        cutin "job_bard_aiolo02",2;
165                        mes "[Lalo]";
166                        mes "Hmm... Did I lose my senses, I'll have to try harder.";
167                        mes "Anyways.. Thanks for listening.";
168                        break;
169
170                case 3:
171                        cutin "job_bard_aiolo02",2;
172                        mes "[Lalo]";
173                        mes "Oy, not requesting a song when you run into a Bard isn't very polite.";
174                        mes "Well... can't help it since you look like you're in a hurry anyways.";
175                        next;
176                        mes "[Lalo]";
177                        mes "Hunting is good... but you can't forget to relax once in a while.";
178                        mes "Youth is short and won't come again once it passes by..";
179                        break;
180                }
181                close2;
182                cutin "job_bard_aiolo02",255;
183                end;
184        }
185        else if(BARD_Q == 1) {
186                cutin "job_bard_aiolo01",2;
187                mes "[Lalo]";
188                mes "Hey there Archer fellow.";
189                mes "How can a wanderer like me help you?";
190                next;
191                switch(select("You have a nice voice.:Could you sing for me, please?:Nothing.")) {
192                case 1:
193                        mes "[Lalo]";
194                        mes "Hoho, your voice is rather nice as well?";
195                        mes "Ever think about singing?";
196                        next;
197                        if (select("Of course!:I can't quite possibly...") == 1) {
198                                mes "[Lalo]";
199                                mes "Haha, nice attitude. You have to be like that to become a Bard.";
200                                mes "I'll help you become a Bard then.";
201                                next;
202                                mes "[Lalo]";
203                                mes "But before that... do you think you can bring me a Flower?";
204                                mes "I need to smell the scent of a Flower to feel like teaching.";
205                                next;
206                                mes "[Lalo]";
207                                mes "It doesn't really matter which Flower, but try to bring one that I like.";
208                                mes "And don't just buy any random Flower, ok?";
209                                set BARD_Q,2;
210                                close2;
211                                cutin "job_bard_aiolo01",255;
212                                end;
213                        }
214                        mes "[Lalo]";
215                        mes "Haha, what a timid one.";
216                        mes "Don't think so little of yourself.";
217                        next;
218                        mes "[Lalo]";
219                        mes "You have plenty of talent.";
220                        mes "Come again if you change your mind.";
221                        break;
222
223                case 2:
224                        mes "[Lalo]";
225                        mes "Hmm... seems like you have some singing talents?";
226                        mes "Don't just request songs.. singing to others is quite fun, too.";
227                        next;
228                        mes "[Lalo]";
229                        mes "Try enjoying your life as a Bard.";
230                        mes "You go from town to town, singing to the people. Doesn't it sound great?";
231                        break;
232
233                case 3:
234                        mes "[Lalo]";
235                        mes "Hmm... I'm not sure what's what, but enjoy life.";
236                        mes "You look too uptight.";
237                        next;
238                        mes "[Lalo]";
239                        mes "Well then~ Have a great time~";
240                        break;
241                }
242                close2;
243                cutin "job_bard_aiolo01",255;
244                end;
245        }
246        else if(BARD_Q == 2) {
247                cutin "job_bard_aiolo01",2;
248                mes "[Lalo]";
249                mes "Welcome! Archer friend.";
250                mes "Did you bring a Flower? Let me see.";
251                next;
252                mes "[Lalo]";
253                //Good Flowers
254                if (countitem(629) > 0) {
255                        mes "Ooh! It's a Singing Flower!";
256                        mes "It's full of my memories...";
257                        next;
258                        delitem 629,1; //Singing Flower
259                        mes "[Lalo]";
260                        mes "My friend Tchaikovsky used to like it.";
261                        mes "I wonder what he's doing now...";
262                }
263                else if(countitem(703) > 0) {
264                        mes "Aah... the cute Hinelle...";
265                        mes "It doesn't have a scent but it's a very moderate cute flower.";
266                        next;
267                        delitem 703,1; //Hinalle
268                        mes "[Lalo]";
269                        mes "The leaves gave me strength when I used to fall.";
270                        mes "I really like this flower, thank you.";
271                }
272                else if(countitem(704) > 0) {
273                        mes "Aloe... This is a rare flower.";
274                        mes "How'd you get it? Rather skilled, eh?";
275                        next;
276                        delitem 704,1; //Aloe
277                        mes "[Lalo]";
278                        mes "The leaves are good and Aloe Vera is delicious, too..";
279                        mes "but it's defnitely the most beautiful when it's a flower.";
280                }
281                else if(countitem(708) > 0) {
282                        mes "Ment... You can forget about all your hardships with one of these.";
283                        mes "Nice to see it in such a long time!";
284                        next;
285                        delitem 708,1; //Ment
286                        mes "[Lalo]";
287                        mes "I heard you can make Anodyne with it...";
288                        mes "But that would be a slight waste.. thanks!";
289                }
290                else if(countitem(709) > 0) {
291                        mes "Ooh, isn't this an Izidor?";
292                        mes "It's a dangerous yet beautiful flower...";
293                        next;
294                        delitem 709,1; //Izidor
295                        mes "[Lalo]";
296                        mes "The deep purple charms a person.. ";
297                        mes "Thank you, I really like this flower.";
298                }
299                else if(countitem(748) > 0) {
300                        mes "Ooh, a Witherless Rose. The strong flower that doesn't wither.";
301                        mes "Great to give to a girlfriend.";
302                        next;
303                        delitem 748,1; //Witherless_Rose
304                        mes "[Lalo]";
305                        mes "I wonder if it would be ok for a wanderer like me to accept it.";
306                        mes "Haha, it should be ok.. right?";
307                }
308                else if(countitem(749) > 0 ) {
309                        mes "Frozen Rose... you can't really call this a flower,";
310                        mes "But it is still beautiful... a clear Rose.";
311                        next;
312                        delitem 749,1; //Frozen_Rose
313                        mes "[Lalo]";
314                        mes "You can call it a flower even though it doesn't have a scent anymore.";
315                        mes "Then I'll greatly take this.";
316                }
317                else if(countitem(710) > 0) {
318                        mes "Oh, isn't this an Illusion Flower!?";
319                        mes "Wow, how did you obtain such a rare flower!!";
320                        next;
321                        delitem 710,1; //Illusion_Flower
322                        mes "[Lalo]";
323                        mes "Than you very much, aah... I feel like heaven is in front of my eyes.";
324                        mes "What a wonderful feeling! I'm really happy!";
325                }
326                //Bad Flowers
327                else if(countitem(712) > 0) {
328                        cutin "job_bard_aiolo02",2;
329                        mes "Eh? This is just a normal flower.";
330                        mes "I like it... but it's not enough.";
331                        next;
332                        mes "[Lalo]";
333                        mes "You can get this flower from the girl in Prontera.";
334                        mes "Please bring me a different flower.";
335                        close2;
336                        cutin "job_bard_aiolo02",255;
337                        end;
338                }
339                else if(countitem(744) > 0) {
340                        mes "Oh no, you brought a Bouquet?";
341                        mes "You can't bring me something like this.";
342                        next;
343                        mes "[Lalo]";
344                        mes "Go give this to a graduating Sage or something.";
345                        mes "Since it's great as that kind of gift... Bring a different flower.";
346                        close2;
347                        cutin "job_bard_aiolo01",255;
348                        end;
349                }
350                else if(countitem(745) > 0) {
351                        cutin "job_bard_aiolo02",2;
352                        mes "Oy oy... did you go to a wedding or something?";
353                        mes "What do you expect a guy to do with a Wedding Bouquet?";
354                        next;
355                        mes "[Lalo]";
356                        mes "It's not me. Go give it to a lady or something.";
357                        mes "This isn't the type of flower I wanted.";
358                        close2;
359                        cutin "job_bard_aiolo02",255;
360                        end;
361                }
362                else if(countitem(2207) > 0) {
363                        mes "Mmm... a Fancy Flower.";
364                        mes "It's nice... but this isn't good enough.";
365                        next;
366                        mes "[Lalo]";
367                        mes "I like flowers that have a scent and are beautiful.";
368                        mes "I don't like fake flowers that go on top of heads.";
369                        close2;
370                        cutin "job_bard_aiolo01",255;
371                        end;
372                }
373                else if(countitem(1032) > 0) {
374                        cutin "job_bard_aiolo02",2;
375                        mes "...Agh, why'd you bring such a hideous thing?";
376                        mes "Are you thinking at all?";
377                        next;
378                        mes "[Lalo]";
379                        mes "if you were trying to be funny, it was a good attempt...";
380                        mes "but bring a normal flower now.";
381                        close2;
382                        cutin "job_bard_aiolo02",255;
383                        end;
384                }
385                else {
386                        cutin "job_bard_aiolo02",2;
387                        mes "Hmm? What... you didnt' bring anything.";
388                        mes "Didn't I ask you to bring a flower?";
389                        next;
390                        mes "[Lalo]";
391                        mes "Well... if you want to learn on your own, then so be it.";
392                        mes "Anyone can just go out and sing.";
393                        close2;
394                        cutin "job_bard_aiolo02",255;
395                        end;
396                }
397                next;
398                cutin "job_bard_aiolo01",2;
399                mes "[Lalo]";
400                mes "As I promised, I'll help you become a Bard.";
401                mes "But it's not easy my friend. Haha!";
402                next;
403                mes "[Lalo]";
404                mes "It is important to get to know a lot of people to learn how to sing.";
405                mes "You must also keep up with all the things going on in different villages...";
406                next;
407                mes "[Lalo]";
408                mes "There's a talking snowman in a town called Lutie.";
409                mes "Go there and bring back a present.";
410                next;
411                set BARD_Q,3;
412                set xmas_npc,1;
413                mes "[Lalo]";
414                mes "if you become friends with ^008800Jack Frost^000000, you will receive something.";
415                mes "And also talk to the townspeople while you're at it...";
416                close2;
417                cutin "job_bard_aiolo01",255;
418                end;
419        }
420        else if(BARD_Q == 3) {
421                if(xmas_npc > 10) { //this var is set in LUTIE.TXT
422                        cutin "job_bard_aiolo01",2;
423                        mes "[Lalo]";
424                        mes "How was the trip? Did you meet a lot of people?";
425                        mes "You should have been able to learn something more important than a gift.";
426                        next;
427                        mes "[Lalo]";
428                        mes "Then, do you want to try singing...?";
429                        mes "I'll sing a short melody...";
430                        mes "and you try after.";
431                        next;
432                        mes "[Lalo]";
433                        mes "Here I go.";
434                        mes "Ehem *clears throat*";
435                        mes "1, 2, 3, 4";
436                        next;
437B_Sing:
438                        set .@bard_s, rand(1,5);
439                        if (.@bard_s == 1) {
440                                mes "^3377FFThere was a man^000000";
441                                mes "who was said to be immortal.";
442                                mes "His name Jichfreid,";
443                                mes "Son of the hero Jichmunt.";
444                                mes "The evil giant Papner,";
445                                mes "Turned into a dragon and ate him.";
446                                next;
447                                input .@Song$;
448                                if (.@Song$ != "There was a man")
449                                        set .@w_point,.@w_point+1;
450
451                                mes "^3377FFThere was a man";
452                                mes "who was said to be immortal.^000000";
453                                mes "His name Jichfreid,";
454                                mes "Son of the hero Jichmunt.";
455                                mes "The evil giant Papner,";
456                                mes "Turned into a dragon and ate him.";
457                                next;
458                                input .@Song$;
459                                if (.@Song$ != "who was said to be immortal.")
460                                        set .@w_point,.@w_point+1;
461
462                                mes "^3377FFThere was a man";
463                                mes "who was said to be immortal.";
464                                mes "His name Jichfreid,^000000";
465                                mes "Son of the hero Jichmunt.";
466                                mes "The evil giant Papner,";
467                                mes "Turned into a dragon and ate him.";
468                                next;
469                                input .@Song$;
470                                if (.@Song$ != "His name Jichfreid,")
471                                        set .@w_point,.@w_point+1;
472
473                                mes "^3377FFThere was a man";
474                                mes "who was said to be immortal.";
475                                mes "His name Jichfreid,";
476                                mes "Son of the hero Jichmunt.^000000";
477                                mes "The evil giant Papner,";
478                                mes "Turned into a dragon and ate him.";
479                                next;
480                                input .@Song$;
481                                if (.@Song$ != "Son of the hero Jichmunt.")
482                                        set .@w_point,.@w_point+1;
483
484                                mes "^3377FFThere was a man";
485                                mes "who was said to be immortal.";
486                                mes "His name Jichfreid,";
487                                mes "Son of the hero Jichmunt.";
488                                mes "The evil giant Papner,^000000";
489                                mes "Turned into a dragon and ate him.";
490                                next;
491                                input .@Song$;
492                                if (.@Song$ != "The evil giant Papner,")
493                                        set .@w_point,.@w_point+1;
494
495                                mes "^3377FFThere was a man";
496                                mes "who was said to be immortal.";
497                                mes "His name Jichfreid,";
498                                mes "Son of the hero Jichmunt.";
499                                mes "The evil giant Papner,";
500                                mes "Turned into a dragon and ate him.^000000";
501                                next;
502                                input .@Song$;
503                                if (.@Song$ != "Turned into a dragon and ate him.")
504                                        set .@w_point,.@w_point+1;
505                        }
506                        else if (.@bard_s == 2) {
507                                mes "^3377FFA Merchant without money or equipment,^000000";
508                                mes "a Merchant that couldn't sell anything.";
509                                mes "But he was too proud to beg.";
510                                mes "So he gathered some money selling items.";
511                                mes "At first he only sold Red Potions.";
512                                mes "Some say he sold Sweet Potatoes, too.";
513                                next;
514                                input .@Song$;
515                                if (.@Song$ != "A Merchant without money or equipment,")
516                                        set .@w_point,.@w_point+1;
517
518                                mes "^3377FFA Merchant without money or equipment,";
519                                mes "a Merchant that couldn't sell anything.^000000";
520                                mes "But he was too proud to beg.";
521                                mes "So he gathered some money selling items.";
522                                mes "At first he only sold Red Potions.";
523                                mes "Some say he sold Sweet Potatoes, too.";
524                                next;
525                                input .@Song$;
526                                if (.@Song$ != "a Merchant that couldn't sell anything.")
527                                        set .@w_point,.@w_point+1;
528
529                                mes "^3377FFA Merchant without money or equipment,";
530                                mes "a Merchant that couldn't sell anything.";
531                                mes "But he was too proud to beg.^000000";
532                                mes "So he gathered some money selling items.";
533                                mes "At first he only sold Red Potions.";
534                                mes "Some say he sold Sweet Potatoes, too.";
535                                next;
536                                input .@Song$;
537                                if (.@Song$ != "But he was too proud to beg.")
538                                        set .@w_point,.@w_point+1;
539
540                                mes "^3377FFA Merchant without money or equipment,";
541                                mes "a Merchant that couldn't sell anything.";
542                                mes "But he was too proud to beg.";
543                                mes "So he gathered some money selling items.^000000";
544                                mes "At first he only sold Red Potions.";
545                                mes "Some say he sold Sweet Potatoes, too.";
546                                next;
547                                input .@Song$;
548                                if (.@Song$ != "So he gathered some money selling items.")
549                                        set .@w_point,.@w_point+1;
550
551                                mes "^3377FFA Merchant without money or equipment,";
552                                mes "a Merchant that couldn't sell anything.";
553                                mes "But he was too proud to beg.";
554                                mes "So he gathered some money selling items.";
555                                mes "At first he only sold Red Potions.^000000";
556                                mes "Some say he sold Sweet Potatoes, too.";
557                                next;
558                                input .@Song$;
559                                if (.@Song$ != "At first he only sold Red Potions.")
560                                        set .@w_point,.@w_point+1;
561
562                                mes "^3377FFA Merchant without money or equipment,";
563                                mes "a Merchant that couldn't sell anything.";
564                                mes "But he was too proud to beg.";
565                                mes "So he gathered some money selling items.";
566                                mes "At first he only sold Red Potions.";
567                                mes "Some say he sold Sweet Potatoes, too.^000000";
568                                next;
569                                input .@Song$;
570                                if (.@Song$ != "Some say he sold Sweet Potatoes, too.")
571                                        set .@w_point,.@w_point+1;
572                        }
573                        else if (.@bard_s == 3) {
574                                mes "^3377FFAll Gods never age.^000000";
575                                mes "The ever so Beautiful Goddess Eden,";
576                                mes "Beautiful and graceful Goddess Eden,";
577                                mes "Odin's daughter-in-law and Bragi's wife.";
578                                mes "Her sweet apples in her basket,";
579                                mes "All thanks to her sweet apples.";
580                                next;
581                                input .@Song$;
582                                if (.@Song$ != "All Gods never age.")
583                                        set .@w_point,.@w_point+1;
584
585                                mes "^3377FFAll Gods never age.";
586                                mes "The ever so Beautiful Goddess Eden,^000000";
587                                mes "Beautiful and graceful Goddess Eden,";
588                                mes "Odin's daughter-in-law and Bragi's wife.";
589                                mes "Her sweet apples in her basket,";
590                                mes "All thanks to her sweet apples.";
591                                next;
592                                input .@Song$;
593                                if (.@Song$ != "The ever so Beautiful Goddess Eden,")
594                                        set .@w_point,.@w_point+1;
595
596                                mes "^3377FFAll Gods never age.";
597                                mes "The ever so Beautiful Goddess Eden,";
598                                mes "Beautiful and graceful Goddess Eden,^000000";
599                                mes "Odin's daughter-in-law and Bragi's wife.";
600                                mes "Her sweet apples in her basket,";
601                                mes "All thanks to her sweet apples.";
602                                next;
603                                input .@Song$;
604                                if (.@Song$ != "Beautiful and graceful Goddess Eden,")
605                                        set .@w_point,.@w_point+1;
606
607                                mes "^3377FFAll Gods never age.";
608                                mes "The ever so Beautiful Goddess Eden,";
609                                mes "Beautiful and graceful Goddess Eden,";
610                                mes "Odin's daughter-in-law and Bragi's wife.^000000";
611                                mes "Her sweet apples in her basket,";
612                                mes "All thanks to her sweet apples.";
613                                next;
614                                input .@Song$;
615                                if (.@Song$ != "Odin's daughter-in-law and Bragi's wife.")
616                                        set .@w_point,.@w_point+1;
617
618                                mes "^3377FFAll Gods never age.";
619                                mes "The ever so Beautiful Goddess Eden,";
620                                mes "Beautiful and graceful Goddess Eden,";
621                                mes "Odin's daughter-in-law and Bragi's wife.";
622                                mes "Her sweet apples in her basket,^000000";
623                                mes "All thanks to her sweet apples.";
624                                next;
625                                input .@Song$;
626                                if (.@Song$ != "Her sweet apples in her basket,")
627                                        set .@w_point,.@w_point+1;
628
629                                mes "^3377FFAll Gods never age.";
630                                mes "The ever so Beautiful Goddess Eden,";
631                                mes "Beautiful and graceful Goddess Eden,";
632                                mes "Odin's daughter-in-law and Bragi's wife.";
633                                mes "Her sweet apples in her basket,";
634                                mes "All thanks to her sweet apples.^000000";
635                                next;
636                                input .@Song$;
637                                if (.@Song$ != "All thanks to her sweet apples.")
638                                        set .@w_point,.@w_point+1;
639                        }
640                        else if (.@bard_s == 4) {
641                                mes "^3377FFBragi, Bragi,^000000";
642                                mes "Forever call the poets name.";
643                                mes "My songs are his breath,";
644                                mes "My mind is his will,";
645                                mes "All wandering poets are his people,";
646                                mes "And all praise shall go to him.";
647                                next;
648                                input .@Song$;
649                                if (.@Song$ != "Bragi, Bragi,")
650                                        set .@w_point,.@w_point+1;
651
652                                mes "^3377FFBragi, Bragi,";
653                                mes "Forever call the poets name.^000000";
654                                mes "My songs are his breath,";
655                                mes "My mind is his will,";
656                                mes "All wandering poets are his people,";
657                                mes "And all praise shall go to him.";
658                                next;
659                                input .@Song$;
660                                if (.@Song$ != "Forever call the poets name.")
661                                        set .@w_point,.@w_point+1;
662
663                                mes "^3377FFBragi, Bragi,";
664                                mes "Forever call the poets name.";
665                                mes "My songs are his breath,^000000";
666                                mes "My mind is his will,";
667                                mes "All wandering poets are his people,";
668                                mes "And all praise shall go to him.";
669                                next;
670                                input .@Song$;
671                                if (.@Song$ != "My songs are his breath,")
672                                        set .@w_point,.@w_point+1;
673
674                                mes "^3377FFBragi, Bragi,";
675                                mes "Forever call the poets name.";
676                                mes "My songs are his breath,";
677                                mes "My mind is his will,^000000";
678                                mes "All wandering poets are his people,";
679                                mes "And all praise shall go to him.";
680                                next;
681                                input .@Song$;
682                                if (.@Song$ != "My mind is his will,")
683                                        set .@w_point,.@w_point+1;
684
685                                mes "^3377FFBragi, Bragi,";
686                                mes "Forever call the poets name.";
687                                mes "My songs are his breath,";
688                                mes "My mind is his will,";
689                                mes "All wandering poets are his people,^000000";
690                                mes "And all praise shall go to him.";
691                                next;
692                                input .@Song$;
693                                if (.@Song$ != "All wandering poets are his people,")
694                                        set .@w_point,.@w_point+1;
695
696                                mes "^3377FFBragi, Bragi,";
697                                mes "Forever call the poets name.";
698                                mes "My songs are his breath,";
699                                mes "My mind is his will,";
700                                mes "All wandering poets are his people,";
701                                mes "And all praise shall go to him.^000000";
702                                next;
703                                input .@Song$;
704                                if (.@Song$ != "And all praise shall go to him.")
705                                        set .@w_point,.@w_point+1;
706                        }
707                        else {
708                                mes "^3377FFLouder, louder, louder.^000000";
709                                mes "Give strength to the warriors!";
710                                mes "Shake the sky and roar through the land.";
711                                mes "Make my heart pound again!";
712                                mes "Let the castle walls ring.";
713                                mes "This day will never come again!";
714                                next;
715                                input .@Song$;
716                                if (.@Song$ != "Louder, louder, louder.")
717                                        set .@w_point,.@w_point+1;
718
719                                mes "^3377FFLouder, louder, louder.";
720                                mes "Give strength to the warriors!^000000";
721                                mes "Shake the sky and roar through the land.";
722                                mes "Make my heart pound again!";
723                                mes "Let the castle walls ring.";
724                                mes "This day will never come again!";
725                                next;
726                                input .@Song$;
727                                if (.@Song$ != "Give strength to the warriors!")
728                                        set .@w_point,.@w_point+1;
729
730                                mes "^3377FFLouder, louder, louder.";
731                                mes "Give strength to the warriors!";
732                                mes "Shake the sky and roar through the land.^000000";
733                                mes "Make my heart pound again!";
734                                mes "Let the castle walls ring.";
735                                mes "This day will never come again!";
736                                next;
737                                input .@Song$;
738                                if (.@Song$ != "Shake the sky and roar through the land.")
739                                        set .@w_point,.@w_point+1;
740
741                                mes "^3377FFLouder, louder, louder.";
742                                mes "Give strength to the warriors!";
743                                mes "Shake the sky and roar through the land.";
744                                mes "Make my heart pound again!^000000";
745                                mes "Let the castle walls ring.";
746                                mes "This day will never come again!";
747                                next;
748                                input .@Song$;
749                                if (.@Song$ != "Make my heart pound again!")
750                                        set .@w_point,.@w_point+1;
751
752                                mes "^3377FFLouder, louder, louder.";
753                                mes "Give strength to the warriors!";
754                                mes "Shake the sky and roar through the land.";
755                                mes "Make my heart pound again!";
756                                mes "Let the castle walls ring.^000000";
757                                mes "This day will never come again!";
758                                next;
759                                input .@Song$;
760                                if (.@Song$ != "Let the castle walls ring.")
761                                        set .@w_point,.@w_point+1;
762
763                                mes "^3377FFLouder, louder, louder.";
764                                mes "Give strength to the warriors!";
765                                mes "Shake the sky and roar through the land.";
766                                mes "Make my heart pound again!";
767                                mes "Let the castle walls ring.";
768                                mes "This day will never come again!^000000";
769                                next;
770                                input .@Song$;
771                                if (.@Song$ != "This day will never come again!")
772                                        set .@w_point,.@w_point+1;
773                        }
774
775                        if (.@w_point) {
776                                cutin "job_bard_aiolo02",2;
777                                mes "[Lalo]";
778                                mes "Oy, You got the lyrics wrong!";
779                                mes "Can't you even sing along..?";
780                                next;
781                                mes "[Lalo]";
782                                mes "Your pronunciation is very unclear.";
783                                mes "Do a better job next time.";
784                                close2;
785                                cutin "job_bard_aiolo02",255;
786                                end;
787                        }
788                        mes "[Lalo]";
789                        mes "..........";
790                        next;
791                        set BARD_Q,5;
792                        mes "[Lalo]";
793                        mes "Wonderful! Finished it in one try!";
794                        mes "You can become a great Bard. ";
795                        next;
796                        mes "[Lalo]";
797                        mes "Mmm... So you will not become a Bard.";
798                        mes "But I want to give you a souvenir...";
799                        next;
800                        mes "[Lalo]";
801                        mes "Do you want to just change jobs now?";
802                        mes "Or do you want a present.";
803                        next;
804                        if (select("Just change my job please.:I'd be thankful for a present.") == 1) {
805B_Change:
806                                if(SkillPoint) {
807                                        cutin "job_bard_aiolo01",2;
808                                        mes "[Lalo]";
809                                        mes "Ah... Everything is good, but you still have some skill points left.";
810                                        mes "Go learn the rest of the skills and come back.";
811                                        next;
812                                        mes "[Lalo]";
813                                        mes "And I am going to give you a small present...";
814                                        mes "So bring some trunks.";
815                                        mes "It doesn't matter what kind, as long as they are 60 of the same kind...";
816                                        close2;
817                                        cutin "job_bard_aiolo01",255;
818                                        end;
819                                }
820                                callfunc "Job_Change",Job_Bard;
821                                callfunc "F_ClearJobVar";               //clears all job variables for the current player
822                                mes "[Lalo]";
823                                mes "Very well! Hope you sing happy enjoyable songs.";
824                                mes "Live like the wind and the clouds!";
825                                next;
826                                mes "[Lalo]";
827                                mes "See you again next time!";
828                                close2;
829                                cutin "job_bard_aiolo01",255;
830                                end;
831                        }
832                        mes "[Lalo]";
833                        mes "Hmm... very well, bring some trunks.";
834                        mes "It doesn't matter what kind, as long as they are 60 of the same kind...";
835                        next;
836                        mes "[Lalo]";
837                        mes "I will give you a gift once you bring them.";
838                        mes "Have a safe trip.";
839                        close2;
840                        cutin "job_bard_aiolo01",255;
841                        end;
842                }
843                cutin "job_bard_aiolo01",2;
844                set xmas_npc,1;
845                mes "[Lalo]";
846                mes "Eh, you still haven't become his friend?";
847                mes "Talking will not be enough.";
848                next;
849                mes "[Lalo]";
850                mes "if you become friends with ^008800Jack Frost^000000, you will receive something.";
851                mes "And talk with the village people, too...";
852                close2;
853                cutin "job_bard_aiolo01",255;
854                end;
855        }
856        else if(BARD_Q == 4) {
857                cutin "job_bard_aiolo01",2;
858                mes "[Lalo]";
859                mes "Hmm... this time you can do better, right?";
860                mes "Let's try again, you can do it.";
861                next;
862                mes "[Lalo]";
863                mes "I'll sing one part...";
864                mes "and you try it after.";
865                next;
866                mes "[Lalo]";
867                mes "Here we go.";
868                mes "*Ehem*";
869                mes "1, 2, 3, 4";
870                next;
871                goto B_SING;
872        }
873        else if(BARD_Q == 5) {
874                if(SkillPoint) {
875                        cutin "job_bard_aiolo01",2;
876                        mes "[Lalo]";
877                        mes "Ah... Everything is good, but you still have some skill points left.";
878                        mes "Go learn the rest of the skills and come back.";
879                        next;
880                        mes "[Lalo]";
881                        mes "And I am going to give you a small present...";
882                        mes "So don't forget the trunks.";
883                        mes "It doesn't matter what kind, as long as they are 60 of the same sort...";
884                        close2;
885                        cutin "job_bard_aiolo01",255;
886                        end;
887                }
888                if(countitem(1019) > 59) callsub S_ChangeJob,1019,1901;
889                else if(countitem(1068) > 59) callsub S_ChangeJob,1068,1903;
890                else if(countitem(1067) > 59) callsub S_ChangeJob,1067,1903;
891                else if(countitem(1066) > 59) {
892                        if(JobLevel > 49) callsub S_ChangeJob,1066,1910;
893                        else callsub S_ChangeJob,1066,1905;
894                }
895                cutin "job_bard_aiolo01",2;
896                mes "[Lalo]";
897                mes "Mmm? Seems like you haven't prepared all trunks the yet? ";
898                mes "Do you want to just change jobs anyways?";
899                next;
900                if (select("Yes, just change my job already.:No, I'll go prepare them.") == 1) goto B_Change;
901                cutin "job_bard_aiolo01",2;
902                mes "[Lalo]";
903                mes "Hmm... ok, bring some ^3355FFtrunks^000000.";
904                mes "Doesn't matter what kind, as long as they are 60 of the same sort.";
905                next;
906                mes "[Lalo]";
907                mes "I'll give you a present if you bring them.";
908                mes "Then see you soon.";
909                close2;
910                cutin "job_bard_aiolo01",255;
911                end;
912        }
913        cutin "job_bard_aiolo01",2;
914        mes "[Lalo]";
915        mes "Whee~ whee~ whee~";
916        close2;
917        cutin "job_bard_aiolo01",255;
918        end;
919
920S_ChangeJob:
921                callfunc "Job_Change",Job_Bard;
922                callfunc "F_ClearJobVar";
923                mes "[Lalo]";
924                mes "Good job. I will make you a job change souvenir with this.";
925                mes "Wait just a moment.";
926                next;
927                mes "[Lalo]";
928                mes "^3355FFScrape Scrape Tang Tang^000000";
929                mes "^3355FFSqueak Squeak Scratch Scratch^000000";
930                delitem getarg(0),60;
931                getitem getarg(1),1;
932                next;
933                mes "[Lalo]";
934                mes "Here you go, a souvenir. It is useful when you sing.";
935                mes "Hope you sing happy songs.";
936                next;
937                mes "[Lalo]";
938                mes "See you next time!";
939                close2;
940                cutin "job_bard_aiolo01",255;
941                end;
942}
943
944//============================================================
945// Old changelog
946//============================================================
947//= 07/06/05 : Added 1st Version. [Muad_Dib]
948//= Converted to eAthena format by Dr.Evil
949//= Info about gifts and other info --> http://www.ragnainfo.net/forums/viewtopic.php?t=51467&start=0
950//= 1.1 Optimized, changed some stuff, fixed some bugs [Lupus]
951//= 1.1a minor song test fix [Lupus]
952//= 1.2 Fixed wrong item ID, added missing commands [Lupus]
953//= 1.3 Updated flower sub-quest according to official [Lupus]
954//= 1.4 Changed priority for the gifts. Now you can win the 1st
955//= prize, too. Added Izidor flower [Lupus]
956//= 2.0 Changed numbers to constants. [Vicious]
Note: See TracBrowser for help on using the browser.