root/npc/quests/quests_prontera.txt @ 1

Revision 1, 102.9 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Quest NPCs related to Prontera
3//===== By: ==================================================
4//= kobra_k88; L0ne_W0lf
5//===== Current Version: =====================================
6//= 2.1
7//===== Compatible With: =====================================
8//= eAthena SVN
9//===== Description: =========================================
10//= Collection of Prontera-based quests.
11//= * Culvert Access
12//= * Ph.D Hat Quest
13//= * Gaebolg Family Curse
14//===== Comments: ============================================
15//= Culvert Access:
16//= - [Aegis Conversion]
17//= - Variable in use: MISC_QUEST (bit 8)
18//= Ph.D Hat Quest:
19//= - n/a
20//= Gaebolg Family Curse:
21//= - [Aegis Conversion]
22//= - Variable in use: prt_curse (max 61)
23//===== Additional Comments: =================================
24//= Fixed flower name Dreamy -> Illusion
25//= 1.2 Fixed exploit [Lupus]
26//= 1.3 Removed Duplicates [Silent]
27//= 1.4 Moved Culvert from cities/prontera.txt [Evera]
28//= 1.5 Culvert has been rescripted from the ground up. [L0ne_W0lf]
29//= 1.6 Added Gaebolg Family Curse quest. [L0ne_W0lf]
30//= 1.6a Fixed a couple spelling mistakes. [L0ne_W0lf]
31//= 1.7 Updated "Ph.D Quest" Dialogs. [Samuray22]
32//= 1.7b Fixed some minor typos. [SinSloth]
33//= 1.7c replaced item "names" with item id. [Lupus]
34//= 1.8 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
35//= 1.9 Fixed "him" -> "her" in Ph.D hat quest. THansk to yyCC. [L0ne_W0lf]
36//= 2.0 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
37//= 2.0a Corrected a Typo error ";;". [Samuray22]
38//= 2.0b Corrected a Typo error. (bugreport:950) [Samuray22]
39//= 2.1 Added missing checkweights. [L0ne_W0lf]
40//============================================================
41
42// Prontera Culvert
43//============================================================
44prt_in,88,105,2 script  Recruiter       105,{
45        if (MISC_QUEST & 8) {
46                mes "[Recruiter]";
47                mes "Ah...";
48                mes "I know those eyes.";
49                mes "Full of compassion";
50                mes "...and courage.";
51                next;
52                mes "[Recruiter]";
53                mes "Of course you're a volunteer for campaign to reclaim the Prontera Culvert. Would you let me warp you there?";
54                next;
55                if (select("Warp to Culvert Entrance.:Quit.") == 1) {
56                        warp "prt_fild05",274,208;
57                        end;
58                }
59                close;
60        }
61        mes "[Recruiter]";
62        mes "Ah, let me inform you that the Capital Defense Headquarter of the Rune-Midgarts Kingdom has now decided to recruit a punitive force due to the Prontera Culvert's situation.";
63        next;
64        switch(select("Volunteer.:Situation...?:Quit.")) {
65        case 1:
66                callsub S_Volunteer;
67                mes "[Recruiter]";
68                mes "Are you ready, hero?";
69                mes "I will now warp you";
70                mes "to the Culvert.";
71                next;
72                warp "prt_fild05",274,208;
73                end;
74        case 2:
75                mes "[Recruiter]";
76                mes "Haven't you heard...?";
77                mes "The Prontera Culvert is infested with all kinds of filthy vermin!";
78                next;
79                mes "[Recruiter]";
80                mes "Due to the serious risk of water contamination, and the safety of Rune-Midgardians, the Culvert has been quarantined by royal decree.";
81                next;
82                mes "[Recruiter]";
83                mes "Needless to say, this has caused shortages in the water supply in our kingdom. Indeed, such a crisis in these dark times...";
84                next;
85                mes "[Recruiter]";
86                mes "Our people";
87                mes "thirst for water...";
88                mes "But they thirst";
89                mes "even more...";
90                mes "For a hero!";
91                next;
92                mes "[Recruiter]";
93                mes "Will you stand idly as the children of Rune-Midgarts suffer from parched throats and shed tears of dryness?! Would you bury our children?!";
94                next;
95                mes "[Recruiter]";
96                mes "Warriors! Rune-Midgarts is calling you! Cleanse this land's pestilence and cast out the vermin in the Culvert! Only you... Can make a difference.";
97                next;
98                if (select("Volunteer.:Quit.") == 1) {
99                        callsub S_Volunteer;
100                        mes "[Recruiter]";
101                        mes "Adventurer...";
102                        mes "I will now warp you";
103                        mes "to the Prontera Culvert.";
104                        next;
105                        warp "prt_fild05",274,208;
106                        end;
107                }
108                mes "[Recruiter]";
109                mes "Hmpf. Well. The next time you take a drink of water, just remember that an average of nine and a half children just died... ^990000Of thirst^000000.";
110                close;
111
112        case 3:
113                close;
114        }
115
116S_Volunteer:
117        set MISC_QUEST,MISC_QUEST | 8;
118        mes "[Recruiter]";
119        mes "Your registration...";
120        mes "is now complete.";
121        next;
122        mes "[Recruiter]";
123        mes "I would like to thank you for volunteering to do your part for our great kingdom. Here, take these provisions for your battles against the forces of darkness.";
124        next;
125        mes "[Recruiter]";
126        mes "3 Red Potions, 1 Milk,";
127        mes "and 1 Orange Potion";
128        mes "...to give you hope.";
129        getitem 501,3; //Red_Potion
130        getitem 519,1; //Milk
131        getitem 502,1; //Orange_Potion
132        next;
133        return;
134}
135
136prt_fild05,270,212,5    script  Culvert Guardian        105,{
137        if(MISC_QUEST & 8) {
138                mes "[Culvert Guardian]";
139                mes "Ah, you're one of our volunteers. This is the entrance of the Prontera Culvert.";
140                mes "Do you wish to";
141                mes "go inside?";
142                next;
143                if (select("Sure.:Quit.") == 1) {
144                        warp "prt_sewb1",131,247;
145                        end;
146                }
147                close;
148        }
149        mes "[Culvert Guardian]";
150        mes "I'm sorry, but we can only allow volunteers for the Culvert Campaign to enter.";
151        next;
152        mes "[Culvert Guardian]";
153        mes "If you'd like to volunteer, please visit the ^000077Culvert Registrar^000000 located in the 11 O'clock direction of Prontera.";
154        close;
155}
156
157// Ph.D Hat Quest
158//============================================================
159prt_in,38,108,3 script  Teacher 53,{
160        if(countitem(710) > 0 && countitem(703) > 0 && countitem(704) > 0 && countitem(708) > 0) {
161                mes "[Teacher]";
162                mes "My God! The Flower you are holding...";
163                next;
164                switch( select( "Show her the flowers.","Give her the flowers.","Cancel.")) {
165                        case 1:
166                                mes "[Teacher]";
167                                mes "Are those the Flowers I've been looking for...";
168                                mes "Would you give them to me?";
169                                next;
170                                mes "[Teacher]";
171                                mes "If you give them to me... I... I will give my precious item...";
172                                close;
173                        case 2:
174                                if(countitem(710) > 0 && countitem(703) > 0 && countitem(704) > 0 && countitem(708) > 0) {
175                                        delitem 710,1;
176                                        delitem 703,1;
177                                        delitem 704,1;
178                                        delitem 708,1;
179                                        getitem 5012,1;
180                                        mes "[Teacher]";
181                                        mes "Thank you so much! First time in my life someone is nice to me!";
182                                        mes "I will give you my precious item like I promised you.";
183                                        mes "This is the cap I wore when I graduated, it is full of my school memory.";
184                                        mes "Please take it... I hope you would cherish it like me.";
185                                        close;
186                                }
187                                        mes "[Teacher]";
188                                        mes "... After a closer look I realized those are not the flowers I want...";
189                                        mes "Ha! Ha! I have really bad eyesight...";
190                                        close;
191                        case 3:
192                                close;
193                        }
194        }
195        mes "[Teacher]";
196        mes "Those flowers are pretty... Right?";
197        next;
198        switch( select( "Continue talking.","Cancel.")) {
199                case 1:
200                        mes "[Teacher]";
201                        mes "I seldom go out with anyone when I was young, I was studying all the time.";
202                        mes "Sometimes I think I've wasted my youth ... But I don't regret it. Because I study hard, I got good education and become who I am today!";
203                        next;
204                        mes "[Teacher]";
205                        mes "But honestly... I feel sad sometimes for not having good friends...";
206                        mes "When I get tired of studying... I don't even have a friend to talk to...";
207                        mes "Luckily, I found the true friend of my life at last.";
208                        next;
209                        mes "[Teacher]";
210                        mes "When I walked into that garden and saw all the beautiful flowers...";
211                        mes "I suddenly feel I am sharing the same fate as these flowers, so they become my best friends ever.";
212                        next;
213                        mes "[Teacher]";
214                        mes "For others, they are just flowers... But for me, they are my source of strength.";
215                        mes "I can't have achieved anything without their company.";
216                        next;
217                        mes "[Teacher]";
218                        mes "That's why I start to think about doing something to repay the people who had given me the flowers.";
219                        mes "We have done so much research about flowers here... We even want to build a place full of flowers... for a better world!";
220                        next;
221                        mes "[Teacher]";
222                        mes "So... We really need a large amount of flowers...";
223                        mes "But I never go out anywhere... It is hard for me to find any!";
224                        mes "If you can find me  ^3355FFIllusion Flower^000000, ^3355FFHinalle^000000, ^3355FFAloe^000000 and ^3355FFMent^000000 and bring them to me, I will give you my treasure.";
225                        close;
226                case 2:
227                        mes "[Teacher]";
228                        mes "One day I will use a lot of flowers to make the most pretty place in the world...";
229                        close;
230                }
231}
232
233// Gaebolg Family Curse
234//============================================================
235prontera,248,212,3      script  Busy Boy#prt    706,3,3,{
236        callsub S_CheckWeight; //Check Player's weight
237        if (BaseLevel > 59) {
238                if (prt_curse == 0) {
239                        mes "[Busy-Looking Boy]";
240                        mes "Aw nuts...";
241                        mes "What am I gonna do?";
242                        mes "I have to deliver these";
243                        mes "books, but... I... Oh man,";
244                        mes "I can't get scared now!";
245                        close;
246                }
247                else if (prt_curse == 1) {
248                        mes "[Busy-Looking Boy]";
249                        mes "Aw nuts...";
250                        mes "What am I gonna do?";
251                        mes "I have to deliver these";
252                        mes "books, but... I... Oh man,";
253                        mes "I can't get scared now!";
254                        next;
255                        if (select("Speak with him:Ignore him") == 1) {
256                                mes "["+strcharinfo(0)+"]";
257                                mes "Say, what seems";
258                                mes "to be the problem?";
259                                next;
260                                mes "[Busy-Looking Boy]";
261                                mes ".........?";
262                                next;
263                                mes "[Busy-Looking Boy]";
264                                if (sex) {
265                                        mes "Ack! You're that clumsy";
266                                        mes "dude who made me drop";
267                                }
268                                else {
269                                        mes "Ack! You're that ditzy";
270                                        mes "chick who made me drop";
271                                }
272                                mes "all of those books earlier!";
273                                mes "Wait, you ditched me before,";
274                                mes "so why act all concerned now?";
275                                Emotion e_gasp;
276                        }
277                        else {
278                                mes "[Busy-Looking Boy]";
279                                mes "Okay, okay...";
280                                mes "Don't even think";
281                                mes "about floating in";
282                                mes "the sky. You're like,";
283                                mes "so stable. Don't think...";
284                                mes "Just... Just board that ship...";
285                                close;
286                        }
287                        next;
288                        select("Well, I, um...");
289                        mes "[Busy-Looking Boy]";
290                        if (sex) {
291                                mes "Yeah... A real";
292                                mes "man wouldn't have";
293                                mes "ditched back then";
294                                mes "without helping me.";
295                                mes "You're a real creepo,";
296                                mes "you know that?";
297                        }
298                        else {
299                                mes "Yeah... If you were";
300                                mes "a graceful and considerate";
301                                mes "lady, you woulda helped me";
302                                mes "out before. I'm right, huh?";
303                        }
304                        next;
305                        mes "^3355FFYou instinctively";
306                        mes "kick over one of the";
307                        mes "piles of books next";
308                        mes "to the young boy.";
309                        mes "You couldn't help it:";
310                        mes "it was a natural reflex!^000000";
311                        next;
312                        Specialeffect 180; //EF_HITDARK
313                        Emotion e_omg;
314                        mes "^3355FF*BAM!*^000000";
315                        next;
316                        Emotion e_omg;
317                        mes "[Busy-Looking Boy]";
318                        mes "Ack! Those books...!";
319                        mes "It took me so long to";
320                        mes "stack all of those!";
321                        next;
322                        mes "["+strcharinfo(0)+"]";
323                        mes "Oh no, what a mess!";
324                        mes "Here, let me help you";
325                        mes "arrange these nicely";
326                        mes "out of the bottom of";
327                        mes "my freakin' heart.";
328                        Emotion e_lv,1;
329                        next;
330                        mes "[Busy-Looking Boy]";
331                        mes "...";
332                        mes "......";
333                        mes ".........";
334                        Emotion e_dots;
335                        next;
336                        mes "[Busy-Looking Boy]";
337                        mes "Huh...?";
338                        mes "Oh, thanks for";
339                        mes "helping me out here.";
340                        mes "I really appreciate it.";
341                        next;
342                        select("Are these all yours?");
343                        mes "[Busy-Looking Boy]";
344                        mes "These? Oh, I'm supposed";
345                        mes "to deliver these for my job.";
346                        mes "I need to take these to Juno";
347                        mes "from the Prontera Library";
348                        mes "for a client. However, um...";
349                        next;
350                        mes "[Busy-Looking Boy]";
351                        mes "Well...";
352                        mes "I get motion sick really";
353                        mes "easily, so it scares me to";
354                        mes "death to ride the Airship";
355                        mes "all the way to Juno.";
356                        Emotion e_dots;
357                        next;
358                        mes "[Busy-Looking Boy]";
359                        mes "Now I'm in trouble!";
360                        mes "I'm never late, but this";
361                        mes "time I just can't help it.";
362                        mes "There's nothing I can do!";
363                        mes "Oh, I'm gonna lose this job!";
364                        Emotion e_sob;
365                        next;
366                        mes "[Busy-Looking Boy]";
367                        mes "Wait... You adventurers";
368                        mes "do a lot of traveling, right?";
369                        mes "If you're traveling to Juno,";
370                        mes "would you please deliver this";
371                        mes "for me? I'll be in real trouble";
372                        mes "if I don't send these books...";
373                        next;
374                        callsub S_GetBooks;
375                        mes "[Busy-Looking Boy]";
376                        mes "I-I understand.";
377                        mes "It's none of your ";
378                        mes "business, I know, but";
379                        mes "I'm just so desperate...";
380                        Emotion e_sob;
381                        set prt_curse,2;
382                        close;
383                }
384                else if (prt_curse == 2) {
385                        mes "[Busy-Looking Boy]";
386                        mes "Oh, hello again.";
387                        mes "Sorry, but I'm trying to";
388                        mes "concentrate here. Gonna...";
389                        mes "Summon all my courage...";
390                        mes "and b-board that Airship!";
391                        mes "Argh! No, I can't do it!";
392                        Emotion e_dots;
393                        next;
394                        callsub S_GetBooks;
395                        mes "[Busy-Looking Boy]";
396                        mes "^333333*Sob...*^000000";
397                        mes "What am I gonna do?";
398                        mes "That guy's been waiting";
399                        mes "for me to deliver his books";
400                        mes "for quite a while now...";
401                        Emotion e_sob;
402                        close;
403                }
404                else if (prt_curse == 3) {
405                        mes "[Busy-Looking Boy]";
406                        mes "Oh, please deliver";
407                        mes "those books I gave";
408                        mes "you to ^FF0000Mr. Karlomoff^000000, who";
409                        mes "should be waiting around";
410                        mes "the Juno Library. Thanks";
411                        mes "again for your help~";
412                        close;
413                }
414                mes "[Busy-Looking Boy]";
415                mes "Ack! Would you leave";
416                mes "me alone and let me work?";
417                mes "I've got something important";
418                mes "to do! When I finish arranging";
419                mes "these books,  need to... I need to make some preparations!";
420                close;
421        }
422        mes "[Busy-Looking Boy]";
423        mes "Ack! Would you leave";
424        mes "me alone and let me work?";
425        mes "I've got something important";
426        mes "to do! When I finish arranging";
427        mes "these books, I need to... I need to make some preparations!";
428        close;
429
430OnTouch:
431        callsub S_CheckWeight; //Check Player's weight
432        if (BaseLevel > 59) {
433                if (prt_curse == 0) {
434                        Specialeffect 180; //EF_HITDARK
435                        mes "^3355FF*BAM!*^000000";
436                        next;
437                        mes "[Busy Looking Boy]";
438                        mes "Hey, look out!";
439                        mes "Can't you be more";
440                        mes "careful?! Geeeeez!";
441                        Emotion e_ag;
442                        next;
443                        mes "["+strcharinfo(0)+"]";
444                        mes "Oops, I'm so sorry.";
445                        mes "Are you alright?";
446                        next;
447                        mes "[Busy Looking Boy]";
448                        mes "Yeah, no thanks to you!";
449                        mes "Oh... Don't worry, I'm fine.";
450                        next;
451                        mes "^3355FFYou notice that the boy";
452                        mes "dropped many hardcover";
453                        mes "books that are probably about";
454                        mes "ruins and their legends, based";
455                        mes "on their titles. The boy dusted";
456                        mes "himself off and began to";
457                        mes "carefully pile the books.^000000";
458                        next;
459                        if (select("Leave:Help him pile the books") == 1) {
460                                mes "[Busy-Looking Boy]";
461                                mes "Next time, look";
462                                mes "where you're going,";
463                                mes "alright? I mean, you";
464                                mes "might really break";
465                                mes "something if you're";
466                                mes "always that careless!";
467                                set prt_curse,1;
468                                close;
469                        }
470                        mes "[Busy-Looking Boy]";
471                        mes "Huh...?";
472                        mes "Oh, thanks for";
473                        mes "helping me out here.";
474                        mes "I really appreciate it.";
475                        next;
476                        select("Are these all yours?");
477                        mes "[Busy-Looking Boy]";
478                        mes "These? Oh, I'm supposed";
479                        mes "to deliver these for my job.";
480                        mes "I need to take these to Juno";
481                        mes "from the Prontera Library";
482                        mes "for a client. However, um...";
483                        next;
484                        mes "[Busy-Looking Boy]";
485                        mes "Well...";
486                        mes "I get motion sick really";
487                        mes "easily, so it scares me to";
488                        mes "death to ride the Airship";
489                        mes "all the way to Juno.";
490                        Emotion e_dots;
491                        next;
492                        mes "[Busy-Looking Boy]";
493                        mes "Now I'm in trouble!";
494                        mes "I'm never late, but this";
495                        mes "time I just can't help it.";
496                        mes "There's nothing I can do!";
497                        mes "Oh, I'm gonna lose this job!";
498                        Emotion e_sob;
499                        next;
500                        mes "[Busy-Looking Boy]";
501                        mes "Wait... You adventurers";
502                        mes "do a lot of traveling, right?";
503                        mes "If you're traveling to Juno,";
504                        mes "would you please deliver this";
505                        mes "for me? I'll be in real trouble";
506                        mes "if I don't send these books...";
507                        next;
508                        callsub S_GetBooks;
509                        mes "[Busy-Looking Boy]";
510                        mes "I-I understand.";
511                        mes "It's none of your ";
512                        mes "business, I know, but";
513                        mes "I'm just so desperate...";
514                        Emotion e_sob;
515                        set prt_curse,2;
516                        close;
517                }
518                else if (prt_curse == 3) {
519                        mes "[Busy-Looking Boy]";
520                        mes "Oh, please deliver";
521                        mes "those books I gave";
522                        mes "you to ^FF0000Mr. Karlomoff^000000, who";
523                        mes "should be waiting around";
524                        mes "the Juno Library. Thanks";
525                        mes "again for your help~";
526                        close;
527                }
528        }
529        end;
530
531S_GetBooks:
532        if (select("Help him:Don't help him") == 1) {
533                mes "[Busy-Looking Boy]";
534                mes "Oh, thank you so much!";
535                mes "You don't understand how";
536                mes "much I dread those Airships.";
537                mes "Now, would you please deliver";
538                mes "these books to ^FF0000Mr. Karlomoff^000000";
539                mes "near the Juno Library?";
540                next;
541                mes "[Busy-Looking Boy]";
542                mes "I know these books are";
543                mes "pretty heavy, but be really";
544                mes "careful with them! Anyway,";
545                mes "thanks for doing this for me.";
546                mes "I was really at my wit's end...";
547                set prt_curse,3;
548                getitem 7431,1; //Books
549                close;
550        }
551        return;
552
553S_CheckWeight:
554        if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
555                mes "^3355FFWait a second!";
556                mes "Right now, you're carrying";
557                mes "too many things with you.";
558                mes "Please come back after";
559                mes "using the Kafra Service";
560                mes "to store some of your items.^000000";
561                close;
562        }
563        return;
564}
565
566yuno,311,195,3  script  Historian#prt01 754,{
567        if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
568                mes "^3355FFWait a second!";
569                mes "Right now, you're carrying";
570                mes "too many things with you.";
571                mes "Please come back after";
572                mes "using the Kafra Service";
573                mes "to store some of your items.^000000";
574                close;
575        }
576        if (prt_curse < 3) {
577                mes "[Historian]";
578                mes "Juno's mysterious past";
579                mes "holds some great secret.";
580                mes "I'm sure of it! It excites me";
581                mes "to know that my research";
582                mes "brings me that much closer";
583                mes "to finally unveiling it!";
584                next;
585                mes "[Historian]";
586                mes "But I'll admit that even I don't know how much digging I'll";
587                mes "have to do to learn what I want. It's our duty as historians to";
588                mes "find out the truth of the past, but it definitely won't be easy.";
589                next;
590                mes "[Historian]";
591                mes "To understand, to see the";
592                mes "truth of the past with my";
593                mes "own eyes... I'd even sell";
594                mes "my soul for the opportunity.";
595                close;
596        }
597        else if (prt_curse == 3) {
598                mes "^3355FFAs you approached, this";
599                mes "historian suddenly closed";
600                mes "the book that he was reading,";
601                mes "looked to the heavens and";
602                mes "let out a deep breath in a vain";
603                mes "attempt to relieve his tension.^000000";
604                next;
605                mes "[Historian]";
606                mes "GRRRRRRRRR!";
607                mes "Where are my books?!";
608                Emotion e_ag;
609                next;
610                select("Are you alright?");
611                mes "[Historian]";
612                mes "Er? Oh. I'm sorry you";
613                mes "had to see that. I'm just";
614                mes "extremely upset. You see,";
615                mes "I'm expecting a delivery of";
616                mes "research books from Prontera,";
617                mes "but they haven't arrived yet.";
618                next;
619                mes "[Historian]";
620                mes "In fact, the delivery boy is";
621                mes "very late. This will delay my";
622                mes "research considerably since";
623                mes "I cannot proceed without more";
624                mes "new material to study.";
625                next;
626                if (countitem(7431) > 0) {
627                        select("Excuse me, but what's your name?");
628                        mes "[Historian]";
629                        mes "Hm? I'm Karlomoff, the";
630                        mes "1st scholar of the Rekenber";
631                        mes "Historical Research Group.";
632                        mes "Did you need something, or";
633                        mes "were you looking around here";
634                        mes "for somebody in particular?";
635                        next;
636                }
637                else {
638                        select("Oh, I'm delivering the books for him.");
639                        Emotion e_what;
640                        mes "[Historian]";
641                        mes "Ah, really?";
642                        mes "Great, you're here!";
643                        mes "So, where are the books?";
644                        next;
645                        mes "["+strcharinfo(0)+"]";
646                        mes "I...";
647                        mes "I don't have";
648                        mes "them right now.";
649                        next;
650                        mes "[Historian]";
651                        mes "What...?";
652                        mes "Don't tell me that";
653                        mes "you lost them! Those";
654                        mes "books were priceless!";
655                        mes "Did you come all this";
656                        mes "way just to tell me that?";
657                        next;
658                        mes "[Historian]";
659                        mes "Well, I suppose you'll";
660                        mes "have to report the loss of";
661                        mes "the books and get some new";
662                        mes "copies of those books that";
663                        mes "you were supposed to deliver.";
664                        mes "Now hurry, I need to research!";
665                        close;
666                }
667                select("Right, I brought your books.");
668                mes "[Historian]";
669                mes "What? But you're not the";
670                mes "delivery boy. Well, let me see";
671                mes "the books you've brought. Hm...";
672                mes "Just as I thought: the Rune-";
673                mes "Midgarts Kingdom has a great";
674                mes "wealth of ancient information.";
675                next;
676                mes "[Historian]";
677                mes "Ah, thank you so much for";
678                mes "bringing these. However, by";
679                mes "your mode of dress, I can tell";
680                mes "that you are an adventurer.";
681                mes "What happened to the delivery boy that was supposed to bring these?";
682                next;
683                mes "[Historian]";
684                mes "..........?";
685                mes "Afraid to ride the Airship?";
686                mes "Motion sickness? Well, that's";
687                mes "quite understandable. The poor";
688                mes "boy should have contacted me";
689                mes "about that beforehand.";
690                next;
691                mes "[Historian]";
692                mes "Goodness, it's been ";
693                mes "a while since I've had";
694                mes "a visitor. Would you like";
695                mes "to stay and chat for a bit?";
696                mes "Just give me a minute to get";
697                mes "a cool drink of water first~";
698                set prt_curse,4;
699                delitem 7431,1; //Books
700                close;
701        }
702        else if (prt_curse == 4) {
703                mes "[Historian]";
704                mes "Ah, that glass of";
705                mes "water was just what";
706                mes "I needed to refresh";
707                mes "myself. Let me tell you";
708                mes "a little bit about my work.";
709                next;
710                mes "[Historian]";
711                mes "I might have it mentioned before, but my name is Karlomoff and";
712                mes "I work in the Rekenber Historical Research as its 1st scholar. We";
713                mes "recently finished our project on the Schwaltzvalt Republic.";
714                next;
715                mes "[Historian]";
716                mes "Now, we're trying to learn";
717                mes "more about the Rune-Midgarts";
718                mes "Kingdom's history. We believe";
719                mes "it's linked to our Schwaltzvalt";
720                mes "Republic because they share the";
721                mes "continent. Makes sense, right?";
722                next;
723                mes "[Historian]";
724                mes "Ultimately, we hope that";
725                mes "new information from our";
726                mes "research of Rune-Midgarts will";
727                mes "shed some new light on our";
728                mes "current understanding of the";
729                mes "Schwaltzvalt Republic's past.";
730                next;
731                mes "[Historian]";
732                mes "Including myself, there are";
733                mes "^3131FF3 members of the Rekenber";
734                mes "Historical Research Group^000000";
735                mes "that are studying the Rune-";
736                mes "Midgarts Kingdom's history.";
737                next;
738                select("Rekenber Historical Research Group?");
739                mes "[Historian]";
740                mes "You adventurers from Rune-";
741                mes "Midgarts may not know it, but";
742                mes "the Rekenber Corporation has";
743                mes "unofficial control over our";
744                mes "Schwaltzvalt Republic. Some";
745                mes "hate it, others don't care.";
746                next;
747                mes "[Historian]";
748                mes "Anyway, Rekenber has its own";
749                mes "Historical Research Group since";
750                mes "rediscovering ancient technologies has been key to its success, well,";
751                mes "so far as I can tell. Personally, I enjoy the pursuit of knowledge.";
752                next;
753                mes "[Historian]";
754                mes "Oh, here's an interesting";
755                mes "fact! Did you know that the";
756                mes "title of ruler of Rune-Midgarts";
757                mes "isn't always passed down";
758                mes "through the same family?";
759                next;
760                mes "[Historian]";
761                mes "Actually, there are several";
762                mes "royal families that hold a";
763                mes "special competition to decide";
764                mes "which prince becomes the";
765                mes "next king. Fascinating...";
766                next;
767                select("Several royal families?");
768                mes "[Historian]";
769                mes "Yes, I'll try to explain it";
770                mes "briefly. There are a total";
771                mes "of 7 royal families. Each";
772                mes "family is descended from one";
773                mes "of the 7 warriors that founded";
774                mes "the Rune-Midgarts Kingdom.";
775                next;
776                mes "[Historian]";
777                mes "According to the records,";
778                mes "Jormungand, the snake of the";
779                mes "earth, appeared and brought";
780                mes "chaos to the entire continent.";
781                mes "7 warriors appeared and drove the serpent away, saving the world.";
782                next;
783                mes "[Historian]";
784                mes "With the return of peace,";
785                mes "the 7 warriors established";
786                mes "the Rune-Midgarts Kingdom,";
787                mes "choosing Tristram Gaebolg III";
788                mes "as the kingdom's first ruler. ";
789                next;
790                mes "[Historian]";
791                mes "Knowing that their descendents";
792                mes "may not always be deserving of";
793                mes "ruling the kingdom, the 7 warriors agreed to hold a contest amongst";
794                mes "their families each generation to prevent royal corruption.";
795                next;
796                Emotion e_swt2;
797                mes "[Historian]";
798                mes "Oh... Not too excited";
799                mes "about history, huh? Well,";
800                mes "maybe if I sing the ancient";
801                mes "song of this myth, you'd be";
802                mes "better able to understand...";
803                next;
804                mes "[Historian]";
805                mes "^FF0000*The great serpent*^000000";
806                mes "^FF0000*swallowed the sea.*^000000";
807                mes "^FF0000*The eagle of the rainbow*^000000";
808                mes "^FF0000*swallowed the serpent.*^000000";
809                mes "^FF0000*Then the eagle built its nest.*^000000";
810                mes "^FF0000*A nest upon the swallowed sea.*^000000";
811                next;
812                mes "[Historian]";
813                mes "^333333*Ahem*^000000 As you see, I'm";
814                mes "quite tone deaf. But the";
815                mes "point is that people still";
816                mes "praise the 7 warriors' exploits";
817                mes "through this song. Isn't that";
818                mes "interesting to know about?";
819                set prt_curse,5;
820                close;
821        }
822        else if (prt_curse == 5) {
823                mes "[Historian]";
824                mes "I'm sorry that I let my";
825                mes "mouth run while talking at";
826                mes "great length about Rune-";
827                mes "Midgart's history. Still,";
828                mes "I hope you found that tale";
829                mes "at least a little enjoyable.";
830                next;
831                mes "[Historian]";
832                mes "Oh! Will you be returning to";
833                mes "the Rune-Midgarts Kingdom?";
834                mes "If so, then I have a favor to";
835                mes "ask you. Would you please";
836                mes "deliver this report I've written to my colleague in Morroc?";
837                next;
838                mes "[Historian]";
839                mes "It would be a great help";
840                mes "to me if you could get this";
841                mes "report to her right away.";
842                mes "Ah, her name is Rodafrian.";
843                mes "I'm certain you can find her";
844                mes "somewhere in that desert town.";
845                set prt_curse,6;
846                getitem 7342,1; //File01
847                close;
848        }
849        else if (prt_curse == 6) {
850                mes "[Historian]";
851                mes "Please find my colleague,";
852                mes "Rodafrian, in Morroc and";
853                mes "deliver my report to her.";
854                mes "You should be able to find";
855                mes "her there doing research.";
856                next;
857                if (select("I will:Can I listen to that song again?") == 1) {
858                        mes "[Historian]";
859                        mes "Once again, thank";
860                        mes "you for your help.";
861                        mes "It will really speed the";
862                        mes "progress of my research,";
863                        mes "especially since those books";
864                        mes "were delivered fairly late...";
865                }
866                else {
867                        mes "[Historian]";
868                        mes "Song? Oh, you mean the";
869                        mes "one praising the 7 who";
870                        mes "founded the Rune-Midgarts";
871                        mes "Kingdom? Sure, let's see now...";
872                        next;
873                        mes "[Historian]";
874                        mes "^FF0000*The great serpent*^000000";
875                        mes "^FF0000*swallowed the sea.*^000000";
876                        mes "^FF0000*The eagle of the rainbow*^000000";
877                        mes "^FF0000*swallowed the serpent.*^000000";
878                        mes "^FF0000*Then the eagle built its nest.*^000000";
879                        mes "^FF0000*A nest upon the swallowed sea.*^000000";
880                        next;
881                        mes "[Historian]";
882                        mes "You must be more interested";
883                        mes "in history than I suspected.";
884                        mes "If you'd like, I'll write you a";
885                        mes "letter or recommendation";
886                        mes "for the Rekenber Historical";
887                        mes "Research Group. Ha ha ha~";
888                }
889                close;
890        }
891        else if (prt_curse > 55) {
892                mes "[Historian]";
893                mes "Ah, it's been a while";
894                mes "since the last time I saw";
895                mes "you. Rodafrian actually came";
896                mes "to visit me a few days ago.";
897                mes "I believe she came here";
898                mes "to gloat or threaten me...";
899                next;
900                mes "[Historian]";
901                mes "It was very surreal.";
902                mes "She kept raving about";
903                mes "some incredible revelation,";
904                mes "and about finally putting me";
905                mes "in my place. I didn't know she";
906                mes "could be so competitive!";
907                close;
908        }
909        else {
910                mes "[Historian]";
911                mes "ZzzzZZz....";
912                mes "ZzzzZZz....ZZZzzzz...";
913                close;
914        }
915}
916
917morocc_in,45,126,3      script  Historian#prt02 702,{
918        if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
919                mes "^3355FFWait a second!";
920                mes "Right now, you're carrying";
921                mes "too many things with you.";
922                mes "Please come back after";
923                mes "using the Kafra Service";
924                mes "to store some of your items.^000000";
925                close;
926        }
927        if (prt_curse == 6) {
928                if (countitem(7342) < 0) {
929                        mes "^3355FFYou seem to have lost";
930                        mes "Karlomoff's Report. You";
931                        mes "needed to deliver here to";
932                        mes "one of his colleagues...";
933                        close;
934                }
935                mes "[Historian Rodafrian]";
936                mes "Oh, how does this place";
937                mes "have to be so hot? This";
938                mes "can't be good for my skin...";
939                mes "Ooh, I wish I were back home";
940                mes "in the Schwaltzvalt Republic~";
941                Emotion e_sob;
942                next;
943                mes "[Historian Rodafrian]";
944                mes "Hello there.";
945                mes "E-excuse me, but,";
946                mes "um, may I help you?";
947                next;
948                select("Mr. Karlomoff has sent me.");
949                mes "[Historian Rodafrian]";
950                mes "Karlomoff...?";
951                mes "Him? Alright...";
952                mes "What did he send";
953                mes "you to me for?";
954                next;
955                mes "^3355FFYou hand Karlomoff's";
956                mes "report to Rodafrian.^000000";
957                next;
958                mes "[Historian Rodafrian]";
959                mes "A report? What does he";
960                mes "want to show off this time?";
961                mes "^333333*Sigh*^000000 Ah well, thanks for";
962                mes "the trouble. I'll look at it,";
963                mes "though I'm not expecting";
964                mes "much if Karlomoff wrote it.";
965                next;
966                if (select("Ask her about her research:End conversation") == 1) {
967                        mes "[Historian Rodafrian]";
968                        mes "Oh, you know about the";
969                        mes "Rekenber Historical Research";
970                        mes "Group? Ah, right. Karlomoff";
971                        mes "must have told you already.";
972                        mes "Currently we're researching";
973                        mes "the Rune-Midgarts Kingdom.";
974                        next;
975                        mes "[Historian Rodafrian]";
976                        mes "Now, while I understand the";
977                        mes "value of ancient books and";
978                        mes "records, I think Karlomoff";
979                        mes "relies on them too much.";
980                        mes "I prefer more active research";
981                        mes "in the vein of archaelogy.";
982                        next;
983                        mes "[Historian Rodafrian]";
984                        mes "Right now, I'm spending";
985                        mes "time in Morroc to visit the";
986                        mes "Sphinx and Pyramids and see";
987                        mes "if I can excavage some relics.";
988                        mes "Hopefully I can uncover some new historical evidence that way.";
989                        next;
990                        mes "[Historian Rodafrian]";
991                        mes "If you're interested in";
992                        mes "learning more about Morroc's";
993                        mes "history, please go ahead and";
994                        mes "talk to my assistance. He's very passionate about studying this";
995                        mes "town's culture and background.";
996                        next;
997                        mes "[Historian Rodafrian]";
998                        mes "Actually, the people of";
999                        mes "Morroc also appreciate their";
1000                        mes "town's history, and pass down";
1001                        mes "songs about ancient times";
1002                        mes "through the generations. Let's";
1003                        mes "see, how did that one go?";
1004                        next;
1005                        mes "[Historian Rodafrian]";
1006                        mes "^FF0000*The great serpent*^000000";
1007                        mes "^FF0000*swallowed the sea.*^000000";
1008                        mes "^FF0000*The eagle of the rainbow*^000000";
1009                        mes "^FF0000*swallowed the serpent, and*^000000";
1010                        mes "and... and... Um. Oh dear.";
1011                        next;
1012                        mes "[Historian Rodafrian]";
1013                        mes "I can't remember the next";
1014                        mes "line! Actually, have you";
1015                        mes "heard this song before?";
1016                        next;
1017                        switch(select("Yes, I have.:Yes, but it is different.:No, sorry.")) {
1018                        case 1:
1019                                mes "[Historian Rodafrian]";
1020                                mes "Oh, that's great!";
1021                                mes "Would you provide";
1022                                mes "me with the line that";
1023                                mes "follows these lyrics?";
1024                                next;
1025                                mes "^FF0000*The great serpent*^000000";
1026                                mes "^FF0000*swallowed the sea.*^000000";
1027                                mes "^FF0000*The eagle of the rainbow*^000000";
1028                                mes "^FF0000*swallowed the serpent.*^000000";
1029                                mes "......................";
1030                                next;
1031                                input .@answer$;
1032                                if (.@answer$ == "Then the eagle built its nest.") {
1033                                        mes "[Historian Rodafrian]";
1034                                        mes "Really? That makes";
1035                                        mes "sense, but those lyrics";
1036                                        mes "sound different than the";
1037                                        mes "ones I had heard. Hmmmm...";
1038                                        mes "If you don't mind, would you";
1039                                        mes "please tell me your name?";
1040                                        callsub S_GiveName,1;
1041                                }
1042                                else {
1043                                        mes "[Historian Rodafrian]";
1044                                        mes "Huh...?";
1045                                        mes "That doesn't sound";
1046                                        mes "right at all. Are you sure";
1047                                        mes "that's the lyric you heard?";
1048                                        delitem 7342,1; //File01
1049                                        set prt_curse,7;
1050                                        close;
1051                                }
1052
1053                        case 2:
1054                                mes "[Historian Rodafrian]";
1055                                mes "What was that?";
1056                                mes "The song is different?";
1057                                mes "Hmm. Then, would you";
1058                                mes "please sing the version";
1059                                mes "that you know to me?";
1060                                next;
1061                                mes "^3355FFYou clear your throat";
1062                                mes "and begin to sing the song";
1063                                mes "that you heard from Karlomoff.^000000";
1064                                next;
1065                                mes "["+strcharinfo(0)+"]";
1066                                input .@line$;
1067                                if (.@line$ == "The great serpent swallowed the sea.") {
1068                                        set .@total,.@total+1;
1069                                        mes "*The great serpent*";
1070                                        mes "*swallowed the sea.*";
1071                                }
1072                                else mes "* "+.@line$+"*";
1073
1074                                input .@line$;
1075                                if (.@line$ == "The eagle of the rainbow swallowed the serpent.") {
1076                                        set .@total,.@total+1;
1077                                        mes "*The eagle of the rainbow*";
1078                                        mes "*swallowed the serpent.*";
1079                                }
1080                                else mes "*"+.@line$+"*";
1081
1082                                input .@line$;
1083                                if (.@line$ == "Then the eagle built its nest.") {
1084                                        set .@total,.@total+1;
1085                                        mes "*Then the eagle built its nest.*";
1086                                }
1087                                else mes "*"+.@line$+"*";
1088
1089                                input .@line$;
1090                                if (.@line$ == "A nest upon the swallowed sea.") {
1091                                        set .@total,.@total+1;
1092                                        mes "*A nest upon the swallowed sea.*";
1093                                }
1094                                else mes "*"+.@line$+"*";
1095                                next;
1096                                if (.@total == 4) {
1097                                        mes "[Historian Rodafrian]";
1098                                        mes "Really? That makes";
1099                                        mes "sense, but those lyrics";
1100                                        mes "sound different than the";
1101                                        mes "ones I had heard. Hmmmm...";
1102                                        mes "If you don't mind, would you";
1103                                        mes "please tell me your name?";
1104                                        callsub S_GiveName,1;
1105                                }
1106                                else {
1107                                        mes "[Historian Rodafrian]";
1108                                        mes "Huh...?";
1109                                        mes "That doesn't sound right";
1110                                        mes "at all. Are you sure those";
1111                                        mes "are the lyrics you heard?";
1112                                        delitem 7342,1; //File01
1113                                        set prt_curse,7;
1114                                        close;
1115                                }
1116
1117                        case 3:
1118                                mes "[Historian Rodafrian]";
1119                                mes "............";
1120                                mes "........................";
1121                                mes "Well then. Would you";
1122                                mes "mind if I ask you for";
1123                                mes "your name, adventurer?";
1124                                callsub S_GiveName,1;
1125                        }
1126                }
1127                mes "[Historian]";
1128                mes "Although I love doing my";
1129                mes "research and uncovering";
1130                mes "new information regarding";
1131                mes "history, I feel a little lonely";
1132                mes "sometimes. Not many people";
1133                mes "share my interests, you know...";
1134                close;
1135        }
1136        else if (prt_curse == 7) {
1137                mes "^3355FFArms folded, Rodafrian";
1138                mes "seems to be deep in thought.";
1139                mes "Then, as if making making";
1140                mes "an important decision, she";
1141                mes "looks directly into your eyes";
1142                mes "and begins to speak.^000000";
1143                next;
1144                mes "[Historian Rodafrian]";
1145                mes "Adventurer...";
1146                mes "I want to know your name.";
1147                callsub S_GiveName,0;
1148        }
1149        else if (prt_curse > 7 && prt_curse < 30) {
1150                mes "[Historian Rodafrian]";
1151                mes "As I recall, Mondo should";
1152                mes "be at Mount Mjolnir, located";
1153                mes "in the northern region of the";
1154                mes "Rune-Midgarts Kingdom. Ask";
1155                mes "him for the lyrics of the song that I can't seem to remember...";
1156                close;
1157        }
1158        else if (prt_curse == 30 || prt_curse == 55) {
1159                mes "[Historian Rodafrian]";
1160                mes "Oh, you've returned.";
1161                mes "Have you met with Mondo";
1162                mes "and figured out the lyrics of";
1163                mes "that song I was looking for?";
1164                next;
1165                mes "["+strcharinfo(0)+"]";
1166                mes "^FF0000*The great serpent*^000000";
1167                mes "^FF0000*swallowed the sea.*^000000";
1168                mes "^FF0000*The eagle of the rainbow*^000000";
1169                mes "^FF0000*swallowed the serpent.*^000000";
1170                mes "^FF0000*Then snake scales grew on*^000000";
1171                mes "^FF0000*the eagle, and it slowly died.*^000000";
1172                next;
1173                mes "[Historian Rodafrian]";
1174                mes "Oh, yes!";
1175                mes "Yes, that was it! Now";
1176                mes "I remember, thank you";
1177                mes "so much! Ah, back to work...";
1178                next;
1179                mes "["+strcharinfo(0)+"]";
1180                mes "^333333(As a historian, Rodafrian";
1181                mes "might be able to help me in";
1182                mes "investigating the curse of the";
1183                mes "Gaebolgs. The priests told me";
1184                mes "not to tell anybody, though.";
1185                mes "Should I take this risk?)^000000";
1186                next;
1187                if (select("Tell her about Jormungand's curse:Don't tell her") == 1) {
1188                        mes "^3355FFYou explain everything";
1189                        mes "that you have learned to";
1190                        mes "Rodafrian, choosing not";
1191                        mes "to withhold any secrets.^000000";
1192                        Emotion e_ic;
1193                        next;
1194                        mes "[Historian Rodafrian]";
1195                        mes ".....................!";
1196                        Emotion e_gasp;
1197                        next;
1198                        mes "[Historian Rodafrian]";
1199                        mes "Thank you for sharing that";
1200                        mes "with me. I hope you realize";
1201                        mes "how precious that information";
1202                        mes "is. I had no idea the royal";
1203                        mes "family was keeping that kind";
1204                        mes "of secret. Goodness, me...";
1205                        next;
1206                        mes "[Historian Rodafrian]";
1207                        mes "You know, I don't really";
1208                        mes "know much about poison, but";
1209                        mes "I do know that, aside from our";
1210                        mes "own Assassins, there are poison";
1211                        mes "experts living in some strange";
1212                        mes "land located to the west.";
1213                        next;
1214                        mes "[Historian Rodafrian]";
1215                        mes "Anyway, your report about";
1216                        mes "the Gaebolg family will be";
1217                        mes "greatly appreciated by the";
1218                        mes "Rekenber Historical Research";
1219                        mes "Group. But first, I need to";
1220                        mes "finish this Morroc project...";
1221                        next;
1222                        mes "[Historian Rodafrian]";
1223                        mes "Anyway, keep this information";
1224                        mes "a secret between me and you";
1225                        mes "for now. Then, when I reveal the secret curse of the Gaebolg royal";
1226                        mes "family, I'll finally outshine that Karlomoff! Bwahahahahaha!";
1227                        next;
1228                        mes "["+strcharinfo(0)+"]";
1229                        mes "^333333(Drat, she didn't give me";
1230                        mes "any help... All I did was";
1231                        mes "reveal a huge secret to her";
1232                        mes "that she might spread around!";
1233                        mes "Oh well, I guess I better head";
1234                        mes "back to the priests...)^000000";
1235                        if (prt_curse == 30)
1236                                set prt_curse,31;
1237                        else
1238                                set prt_curse,60;
1239                        close;
1240                }
1241
1242                mes "[Historian Rodafrian]";
1243                mes "Oh, let me thank you";
1244                mes "once again for going";
1245                mes "through the trouble of";
1246                mes "getting that lyric for me~";
1247                mes "I put my assistant through";
1248                mes "enough trouble already...";
1249                next;
1250                mes "[Historian Rodafrian]";
1251                mes "I also better not forget";
1252                mes "to go through Karlomoff's";
1253                mes "report. I'll have to have a";
1254                mes "debate with him sooner or";
1255                mes "later, and I really want to";
1256                mes "put that guy in his place!";
1257                next;
1258                mes "^3355FFRodafrian seemed very";
1259                mes "happy and began to read";
1260                mes "through Karlomoff's report.";
1261                mes "For now, it would be best";
1262                mes "to return to Father Bamph.^000000";
1263                if (prt_curse == 30)
1264                        set prt_curse,40;
1265                else
1266                        set prt_curse,56;
1267                close;
1268        }
1269        else if (prt_curse == 31 || prt_curse == 40) {
1270                mes "^3355FFRodafrian seemed very";
1271                mes "happy and began to read";
1272                mes "through Karlomoff's report.";
1273                mes "For now, it would be best";
1274                mes "to return to Father Bamph.^000000";
1275                close;
1276        }
1277        else if (prt_curse == 56) {
1278                Emotion e_an;
1279                mes "[Historian Rodafrian]";
1280                mes "I just paid a visit to";
1281                mes "Karlomoff and gave him";
1282                mes "a piece of my mind! I think...";
1283                mes "I think I put him in his place.";
1284                mes "But I can never really tell";
1285                mes "with that sneaky guy...";
1286                close;
1287        }
1288        else if (prt_curse == 60) {
1289                Emotion e_an;
1290                mes "[Historian Rodafrian]";
1291                mes "I just aid a visit to";
1292                mes "Karlomoff and gave him";
1293                mes "a piece of my mind! I think...";
1294                mes "I think I put him in his place.";
1295                mes "But I can never really tell";
1296                mes "with that sneaky guy...";
1297                next;
1298                mes "It doesn't look like";
1299                mes "Rodafrian can offer you";
1300                mes "any more information. For";
1301                mes "now, it would be best to";
1302                mes "go to ^3355FFIProntera Church.^000000";
1303                close;
1304        }
1305        else {
1306                mes "[Historian Rodafrian]";
1307                mes "I'm sorry, but I'm";
1308                mes "really very busy with my";
1309                mes "research at the moment.";
1310                mes "Perhaps we can talk later";
1311                mes "once I've completed this?";
1312                close;
1313        }
1314
1315S_GiveName:
1316        next;
1317        select("My name is "+strcharinfo(0)+".");
1318        mes "[Historian Rodafrian]";
1319        mes "Ah "+strcharinfo(0)+", eh?";
1320        mes "Do you mind if I ask you a favor? I really need to verify the true";
1321        mes "lyrics for this song. However,";
1322        mes "I need to stay here in Morroc";
1323        mes "to complete my research.";
1324        next;
1325        mes "[Historian Rodafrian]";
1326        mes "Would you please find my";
1327        mes "colleague Mondo and ask him";
1328        mes "for this song's lyrics? You can";
1329        mes "find him in the ancient ruins";
1330        mes "in Mount Mjolnir, north in the";
1331        mes "Rune-Midgarts Kingdom.";
1332        next;
1333        mes "[Historian Rodafrian]";
1334        mes "I apologize for asking";
1335        mes "you to do what sounds like";
1336        mes "a silly errand, but I actually";
1337        mes "need to know this song's lyrics";
1338        mes "for the sake of my research...";
1339        if (getarg(0) == 1) delitem 7342,1; //File01
1340        set prt_curse,8;
1341        close;
1342}
1343
1344mjolnir_01,135,168,3    script  Historian#prt03 754,{
1345        if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
1346                mes "^3355FFWait a second!";
1347                mes "Right now, you're carrying";
1348                mes "too many things with you.";
1349                mes "Please come back after";
1350                mes "using the Kafra Service";
1351                mes "to store some of your items.^000000";
1352                close;
1353        }
1354        if (prt_curse == 8) {
1355                mes "[Historian Mondo]";
1356                mes "Excuse me...";
1357                mes "But if you don't have";
1358                mes "anything important for";
1359                mes "me, then would you";
1360                mes "please leave? I have";
1361                mes "research to attend to...";
1362                next;
1363                mes "["+strcharinfo(0)+"]";
1364                mes "I'm sorry, but Ms. Rodafrian";
1365                mes "wanted me to ask you for the";
1366                mes "lyrics of some song describing";
1367                mes "the Rune-Midgarts Kingdom's";
1368                mes "founding. Would you tell";
1369                mes "them to me for her?";
1370                next;
1371                mes "[Historian Mondo]";
1372                mes "Rodafrian? Oh, she must";
1373                mes "mean that old children's";
1374                mes "song. How did it go now?";
1375                mes "Ah, now I remember...";
1376                next;
1377                mes "[Historian Mondo]";
1378                mes "^FF0000*The great serpent*^000000";
1379                mes "^FF0000*swallowed the sea.*^000000";
1380                mes "^FF0000*The eagle of the rainbow*^000000";
1381                mes "^FF0000*swallowed the serpent.*^000000";
1382                mes "^FF0000*Then snake scales grew on*^000000";
1383                mes "^FF0000*the eagle, and it slowly died.*^000000";
1384                next;
1385                select("...........?");
1386                mes "[Historian Mondo]";
1387                mes "Yes, I know: the song";
1388                mes "is rather morbid, despite";
1389                mes "the fact that it's sung like";
1390                mes "such a happy song. Sometimes";
1391                mes "these little songs are supposed";
1392                mes "to scare kids into doing good.";
1393                next;
1394                select("Excuse me...");
1395                mes "[Historian Mondo]";
1396                mes "Hm? You look confused.";
1397                mes "Did you have a question";
1398                mes "to ask me about the song?";
1399                next;
1400                mes "["+strcharinfo(0)+"]";
1401                mes "Actually, I heard";
1402                mes "a different version";
1403                mes "of this song, so I was";
1404                mes "wondering why the lyrics";
1405                mes "would be different...";
1406                next;
1407                mes "[Historian Mondo]";
1408                mes "Really now?";
1409                mes "Well then, let me";
1410                mes "hear the version that";
1411                mes "you've heard, starting";
1412                mes "from the beginning.";
1413                next;
1414                callsub S_Song;
1415        }
1416        else if (prt_curse == 9) {
1417                mes "[Historian Mondo]" ;
1418                mes "Ah, would you tell me";
1419                mes "the lyrics of the version of";
1420                mes "the Rune-Midgarts Kingdom";
1421                mes "founding myth song that";
1422                mes "you happened to hear?";
1423                next;
1424                callsub S_Song;
1425        }
1426        else if (prt_curse == 10) {
1427                mes "[Historian Mondo]";
1428                mes "Interesting...";
1429                mes "The version you heard";
1430                mes "from Karlomoff is different";
1431                mes "than the one I know. It's";
1432                mes "possible that his version";
1433                mes "is the most authentic.";
1434                next;
1435                mes "[Historian Mondo]";
1436                mes "After all, I learned";
1437                mes "the version I know";
1438                mes "by listening to a";
1439                mes "little kid sing it.";
1440                next;
1441                select("A kid?");
1442                mes "[Historian Mondo]";
1443                mes "Yeah. My guess? The version";
1444                mes "that the kid sang might have";
1445                mes "changed as it was transmitted";
1446                mes "by mouth through the generations. If you want to learn more, you";
1447                mes "should probably find that kid.";
1448                next;
1449                mes "[Historian Mondo]";
1450                mes "Anyway, Karlomoff may have";
1451                mes "the most accurate version of";
1452                mes "the song since he's very good";
1453                mes "at procuring and authenticating";
1454                mes "historical written records and";
1455                mes "documents. It's his specialty.";
1456                next;
1457                mes "[Historian Mondo]";
1458                mes "Ah, if you want to learn more,";
1459                mes "then you should try to find the";
1460                mes "kid that was singing the song.";
1461                mes "Hmm, he might be around ^3131DDthe";
1462                mes "river near here^000000. Hopefully it";
1463                mes "won't be too hard to find him.";
1464                next;
1465                mes "[Historian Mondo]";
1466                mes "Once you're able to talk";
1467                mes "to that kid, go ahead and";
1468                mes "report back to Rodafrian.";
1469                mes "She probably needs to know";
1470                mes "soon, and I can talk to that";
1471                mes "little kid at my leisure, so...";
1472                next;
1473                mes "[Historian Mondo]";
1474                mes "Well then, I hope you";
1475                mes "find what you're looking";
1476                mes "for. Good luck in your";
1477                mes "travels, adventurer.";
1478                set prt_curse,11;
1479                close;
1480        }
1481        else {
1482                mes "[Historian Mondo]";
1483                mes "Isn't this such";
1484                mes "a beautiful place?";
1485                mes "It's no wonder that";
1486                mes "ancient peoples chose";
1487                mes "to live around here...";
1488                close;
1489        }
1490
1491
1492S_Song:
1493        mes "["+strcharinfo(0)+"]";
1494        input .@line$;
1495        if (.@line$ == "The great serpent swallowed the sea.") {
1496                set .@total,.@total+1;
1497                mes "*The great serpent*";
1498                mes "*swallowed the sea.*";
1499        }
1500        else mes "*"+.@line$+"*";
1501
1502        input .@line$;
1503        if (.@line$ == "The eagle of the rainbow swallowed the serpent.") {
1504                set .@total,.@total+1;
1505                mes "*The eagle of the rainbow*";
1506                mes "*swallowed the serpent.*";
1507        }
1508        else mes "*"+.@line$+"*";
1509
1510        input .@line$;
1511        if (.@line$ == "Then the eagle built its nest.") set .@total,.@total+1;
1512        mes "*"+.@line$+"*";
1513
1514        input .@line$;
1515        if (.@line$ == "A nest upon the swallowed sea.") set .@total,.@total+1;
1516        mes "*"+.@line$+"*";
1517
1518        if (.@total == 4) set prt_curse,10;
1519        else {
1520                next;
1521                mes "["+strcharinfo(0)+"]";
1522                mes "Wait, wait...";
1523                mes "I think I messed up!";
1524                mes "(Those weren't the";
1525                mes "correct lyrics...)";
1526                set prt_curse,9;
1527        }
1528        close;
1529}
1530
1531mjolnir_01,298,302,0    script  #prt_poem01     -1,2,2,{
1532OnTouch:
1533        if (prt_curse == 11) {
1534                mes "^FF0000*The great serpent*^000000";
1535                mes "^FF0000*swallowed the sea.*^000000";
1536                close;
1537        }
1538        end;
1539}
1540
1541mjolnir_01,300,297,0    script  #prt_poem02     -1,2,2,{
1542OnTouch:
1543        if (prt_curse == 11) {
1544                mes "^FF0000*The great serpent*^000000";
1545                mes "^FF0000*swallowed the sea.*^000000";
1546                close;
1547        }
1548        end;
1549}
1550
1551mjolnir_01,292,288,0    script  #prt_poem03     -1,2,2,{
1552OnTouch:
1553        if (prt_curse == 11) {
1554                mes "^FF0000*The eagle of the rainbow*^000000";
1555                mes "^FF0000*swallowed the serpent.*^000000";
1556                close;
1557        }
1558        end;
1559}
1560
1561mjolnir_01,302,286,0    script  #prt_poem04     -1,2,2,{
1562OnTouch:
1563        if (prt_curse == 11) {
1564                mes "^FF0000*Then snake scales*^000000";
1565                mes "^FF0000*grew on the eagle...*^000000";
1566                close;
1567        }
1568        end;
1569}
1570
1571mjolnir_01,313,279,0    script  #prt_poem05     -1,2,2,{
1572OnTouch:
1573        if (prt_curse == 11) {
1574                mes "^FF0000*And it slowly died...*^000000";
1575                close;
1576        }
1577        end;
1578}
1579
1580mjolnir_01,312,269,5    script  Dog#prt 81,{
1581        mes "[Dog]";
1582        mes "Bow Wow!";
1583        close;
1584}
1585
1586mjolnir_01,313,269,5    script  Dazed Boy#prt   706,{
1587        if (prt_curse == 11) {
1588                mes "[Absent-Minded Boy]";
1589                mes "The great serpent";
1590                mes "swallowed the sea.";
1591                mes "The eagle of the rainbow";
1592                mes "swallowed the serpent.";
1593                mes "Then snake scales grew on";
1594                mes "the eagle, and it slowly died.";
1595                next;
1596                mes "[Exhausted-Looking Woman]";
1597                mes "Goodness...!";
1598                mes "Will you please stop";
1599                mes "singing that song?";
1600                next;
1601                mes "[Absent-Minded Boy]";
1602                mes "..................";
1603                next;
1604                mes "^3355FFThe little boy quietly";
1605                mes "stared at the woman for a";
1606                mes "little bit, and then crouched";
1607                mes "down and began petting a";
1608                mes "dog sitting next to him.^000000";
1609                next;
1610                if (select("What did you just sing?:Ignore them") == 1) {
1611                        mes "[Absent-Minded Boy]";
1612                        mes "...";
1613                        mes "......";
1614                        mes ".........";
1615                        next;
1616                        mes "[Absent-Minded Boy]";
1617                        mes "Woof-woof, have you";
1618                        mes "heard this song? Mommy";
1619                        mes "taught me to sing it, you";
1620                        mes "know. She says it was sung";
1621                        mes "by people for a long time~";
1622                        next;
1623                        mes "^3355FFThe boy continued speaking";
1624                        mes "to the dog like an old friend,";
1625                        mes "ignoring your presence and";
1626                        mes "acting as if you didn't exist.^000000";
1627                        next;
1628                        mes "[Exhausted-Looking Woman]";
1629                        mes "Kaanu...";
1630                        mes "What did I tell";
1631                        mes "you about ignoring";
1632                        mes "people's questions!";
1633                        next;
1634                        mes "[Kaanu]";
1635                        mes ".........";
1636                        mes "..................";
1637                        mes "Uh oh, Woof-woof.";
1638                        mes "Mommy seems upset";
1639                        mes "for some reason.";
1640                        next;
1641                        mes "[Exhausted-Looking Woman]";
1642                        mes "I'm sorry, my kid is...";
1643                        mes "Look, did you want to know";
1644                        mes "more about that song? Try";
1645                        mes "not to worry about it: it's just an old children's tune.";
1646                        next;
1647                        if (select("Why are you here?:May I hear the song again?") == 1) {
1648                                mes "[Exhausted-Looking Woman]";
1649                                mes ".................";
1650                                next;
1651                                mes "^3355FFThe woman's lip tightens";
1652                                mes "with shame. It's obvious";
1653                                mes "that this topic makes her";
1654                                mes "feel very uncomfortable.^000000";
1655                                next;
1656                                mes "[Kaanu]";
1657                                mes "...";
1658                                mes "......";
1659                                mes ".........";
1660                                next;
1661                                mes "[Kaanu]";
1662                                mes "Woof-woof, do you know";
1663                                mes "why Mommy is always";
1664                                mes "so sad? I wish I knew";
1665                                mes "why Mommy never smiles...";
1666                                next;
1667                                mes "[Exhausted-Looking Woman]";
1668                                mes "........";
1669                                set prt_curse,12;
1670                                close;
1671                        }
1672                        mes "[Exhausted-Looking Woman]";
1673                        mes "..................";
1674                        next;
1675                        mes "[Exhausted-Looking Woman]";
1676                        mes "Okay. I can do this";
1677                        mes "simple thing for you.";
1678                        mes "Let me recite this song...";
1679                        next;
1680                        mes "[Exhausted-Looking Woman]";
1681                        mes "The great serpent";
1682                        mes "swallowed the sea.";
1683                        mes "The eagle of the rainbow";
1684                        mes "swallowed the serpent.";
1685                        mes "Then snake scales grew on";
1686                        mes "the eagle, and it slowly died.";
1687                        set prt_curse,12;
1688                        close;
1689                }
1690                mes "[Absent-Minded Boy]";
1691                mes "...";
1692                mes "......";
1693                mes ".........";
1694                close;
1695        }
1696        else if (prt_curse == 36) {
1697                mes "^3355FFThe little boy looked";
1698                mes "very worn and weary of";
1699                mes "life, a look that is very";
1700                mes "unsettling on the face";
1701                mes "of a young child.^000000";
1702                close;
1703        }
1704        else if (prt_curse == 45) {
1705                mes "^3355FFThe little boy still";
1706                mes "won't talk to you, but";
1707                mes "he acknowledges your";
1708                mes "presense by making eye";
1709                mes "contact and smiling.^000000";
1710                close;
1711        }
1712        else if (prt_curse > 54) {
1713                mes "^3355FFThe little boy still";
1714                mes "won't talk to you, but he";
1715                mes "make you feel welcome";
1716                mes "by giving you a warm smile.^000000";
1717                close;
1718        }
1719        else {
1720                mes "[Absent-Minded Boy]";
1721                mes "...";
1722                mes "......";
1723                mes ".........";
1724                next;
1725                mes "^3355FFYou find it difficult";
1726                mes "to ignore the little boy's";
1727                mes "probing, wary eyes directed";
1728                mes "at you. It's very clear that";
1729                mes "he doesn't trust you.^000000";
1730                close;
1731        }
1732}
1733
1734mjolnir_01,316,268,3    script  Exhausted-Looking Woman 879,{
1735        if ((MaxWeight-Weight) < 2000 || checkweight(1201,1) == 0) {
1736                mes "^3355FFWait a second!";
1737                mes "Right now, you're carrying";
1738                mes "too many things with you.";
1739                mes "Please come back after";
1740                mes "using the Kafra Service";
1741                mes "to store some of your items.^000000";
1742                close;
1743        }
1744        if (prt_curse == 11) {
1745                mes "[Absent-Minded Boy]";
1746                mes "The great serpent";
1747                mes "swallowed the sea.";
1748                mes "The eagle of the rainbow";
1749                mes "swallowed the serpent.";
1750                mes "Then snake scales grew on";
1751                mes "the eagle, and it slowly died.";
1752                next;
1753                mes "[Exhausted-Looking Woman]";
1754                mes "Goodness...!";
1755                mes "Will you please stop";
1756                mes "singing that song?";
1757                next;
1758                mes "[Absent-Minded Boy]";
1759                mes "..................";
1760                next;
1761                mes "^3355FFThe little boy quietly";
1762                mes "stared at the woman for a";
1763                mes "little bit, and then crouched";
1764                mes "down and began petting a";
1765                mes "dog sitting next to him.^000000";
1766                next;
1767                if (select("What did you just sing?:Ignore them") == 1) {
1768                        mes "[Absent-Minded Boy]";
1769                        mes "...";
1770                        mes "......";
1771                        mes ".........";
1772                        next;
1773                        mes "[Absent-Minded Boy]";
1774                        mes "Woof-woof, have you";
1775                        mes "heard this song? Mommy";
1776                        mes "taught me to sing it, you";
1777                        mes "know. She says it was sung";
1778                        mes "by people for a long time~";
1779                        next;
1780                        mes "^3355FFThe boy continued speaking";
1781                        mes "to the dog like an old friend,";
1782                        mes "ignoring your presence and";
1783                        mes "acting as if you didn't exist.^000000";
1784                        next;
1785                        mes "[Exhausted-Looking Woman]";
1786                        mes "Kaanu...";
1787                        mes "What did I tell";
1788                        mes "you about ignoring";
1789                        mes "people's questions!";
1790                        next;
1791                        mes "[Kaanu]";
1792                        mes ".........";
1793                        mes "..................";
1794                        mes "Uh oh, Woof-woof.";
1795                        mes "Mommy seems upset";
1796                        mes "for some reason.";
1797                        next;
1798                        mes "[Exhausted-Looking Woman]";
1799                        mes "I'm sorry, my kid is...";
1800                        mes "Look, did you want to know";
1801                        mes "more about that song? Try";
1802                        mes "not to worry about it: it's just an old children's tune.";
1803                        next;
1804                        if (select("Why are you here?:May I hear the song again?") == 1) {
1805                                mes "[Exhausted-Looking Woman]";
1806                                mes ".................";
1807                                next;
1808                                mes "^3355FFThe woman's lip tightens";
1809                                mes "with shame. It's obvious";
1810                                mes "that this topic makes her";
1811                                mes "feel very uncomfortable.^000000";
1812                                next;
1813                                mes "[Kaanu]";
1814                                mes "...";
1815                                mes "......";
1816                                mes ".........";
1817                                next;
1818                                mes "[Kaanu]";
1819                                mes "Woof-woof, do you know";
1820                                mes "why Mommy is always";
1821                                mes "so sad? I wish I knew";
1822                                mes "why Mommy never smiles...";
1823                                next;
1824                                mes "[Exhausted-Looking Woman]";
1825                                mes "........";
1826                                set prt_curse,12;
1827                                close;
1828                        }
1829                        mes "[Exhausted-Looking Woman]";
1830                        mes "..................";
1831                        next;
1832                        mes "[Exhausted-Looking Woman]";
1833                        mes "Okay. I can do this";
1834                        mes "simple thing for you.";
1835                        mes "Let me recite this song...";
1836                        next;
1837                        mes "[Exhausted-Looking Woman]";
1838                        mes "The great serpent";
1839                        mes "swallowed the sea.";
1840                        mes "The eagle of the rainbow";
1841                        mes "swallowed the serpent.";
1842                        mes "Then snake scales grew on";
1843                        mes "the eagle, and it slowly died.";
1844                        set prt_curse,12;
1845                        close;
1846                }
1847                mes "[Exhausted-Looking Woman]";
1848                mes "...........";
1849                close;
1850        }
1851        else if (prt_curse == 12) {
1852                mes "[Exhausted-Looking Woman]";
1853                mes "Not too many people";
1854                mes "come to this remote area.";
1855                mes "What brings you all the";
1856                mes "way over here, I wonder?";
1857                next;
1858                mes "["+strcharinfo(0)+"]";
1859                mes "Actually, I'm just";
1860                mes "trying to learn the";
1861                mes "real lyrics of that";
1862                mes "song that little boy";
1863                mes "has been singing.";
1864                next;
1865                mes "[Exhausted-Looking Woman]";
1866                mes ".........";
1867                next;
1868                mes "[Exhausted-Looking Woman]";
1869                mes "That song's lyrics, and";
1870                mes "its meaning, can change";
1871                mes "from person to person as";
1872                mes "time goes on. I suppose part";
1873                mes "of the reason is because it's";
1874                mes "been handed down orally...";
1875                next;
1876                mes "[Exhausted-Looking Woman]";
1877                mes "It sounds like such a happy";
1878                mes "song, but it's meaning had";
1879                mes "changed for me ever since";
1880                mes "the accident had happened...";
1881                mes "It's been so long, but I don't";
1882                mes "think the pain will ever heal.";
1883                next;
1884                select("Accident?");
1885                mes "[Exhausted-Looking Woman]";
1886                mes "I'm... I'm sorry.";
1887                mes "I don't think I can talk";
1888                mes "about it. If I try, I know I'll";
1889                mes "relive the horror. Every day";
1890                mes "is already a struggle to cope";
1891                mes "with the sins I've committed.";
1892                next;
1893                mes "[Exhausted-Looking Woman]";
1894                mes "I know it's selfish, but";
1895                mes "I have a favor to ask of you.";
1896                mes "I can't really leave this area,";
1897                mes "and seldom do I receive visitors. Would you be so kind to deliver";
1898                mes "something to Prontera for me?";
1899                next;
1900                mes "[Exhausted-Looking Woman]";
1901                mes "I used to live in Prontera,";
1902                mes "and ever since the accident,";
1903                mes "Father Bamph has been so very";
1904                mes "supportive of me. It's not enough to repay his kindness, but please";
1905                mes "give these herbs to him for me.";
1906                next;
1907                mes "[Exhausted-Looking Woman]";
1908                mes "You can find ^3131FFFather Bamph^000000";
1909                mes "in ^3131FFProntera Church^000000. When you ";
1910                mes "see him, please give him my";
1911                mes "warmest regards. I would do it";
1912                mes "myself, but because of what I did, I can't return to Prontera...";
1913                next;
1914                mes "["+strcharinfo(0)+"]";
1915                mes "^333333(Alright then. I guess";
1916                mes "I should deliver these";
1917                mes "herbs to Prontera Church";
1918                mes "before I talk to Rodafrian.)^000000";
1919                getitem 7432,1;
1920                set prt_curse,13;
1921                close;
1922        }
1923        else if (prt_curse > 12 && prt_curse < 16) {
1924                mes "[Exhausted-Looking Woman]";
1925                mes "Father Bamph has helped";
1926                mes "me so much. Please bring";
1927                mes "that herb pouch to him in";
1928                mes "Prontera Church, and give";
1929                mes "him my warmest regards.";
1930                close;
1931        }
1932        else if (prt_curse == 16) {
1933                mes "[Bonnie Imbullea]";
1934                mes "Oh, you've come back?";
1935                mes "Were you able to deliver";
1936                mes "that pouch of herbs that";
1937                mes "I gave you to Father Bamph?";
1938                next;
1939                mes "["+strcharinfo(0)+"]";
1940                mes "Yes, I did. Actually,";
1941                mes "Father Bamph sent me";
1942                mes "here to ask you a few";
1943                mes "things. You see, he told";
1944                mes "me all about the royal secret";
1945                mes "and, well, your exorcism.";
1946                next;
1947                mes "[Bonnie Imbullea]";
1948                mes "Oh. I see.";
1949                mes "You must think";
1950                mes "me a monster...";
1951                mes "Those poor children";
1952                mes "are dead because of me...";
1953                next;
1954                mes "["+strcharinfo(0)+"]";
1955                mes "N-no! Not at all!";
1956                mes "I just wanted to ask if there";
1957                mes "was a connection between";
1958                mes "the song that Kaanu has been";
1959                mes "singing and Jormungand's curse.";
1960                next;
1961                mes "[Bonnie Imbullea]";
1962                mes "...";
1963                mes "......";
1964                mes ".........";
1965                next;
1966                mes "[Bonnie Imbullea]";
1967                mes "After the exorcism failed,";
1968                mes "I should have been punished";
1969                mes "with death. But the royal family and the Prontera Church took";
1970                mes "mercy on me, and allowed";
1971                mes "me to live here in exile.";
1972                Emotion e_dots;
1973                next;
1974                mes "[Bonnie Imbullea]";
1975                mes "I began to sing this song";
1976                mes "to keep myself distracted,";
1977                mes "even if it was related to";
1978                mes "the Jormungand curse.";
1979                next;
1980                mes "[Bonnie Imbullea]";
1981                mes "You know, now that I think";
1982                mes "about it, I do remember hearing";
1983                mes "that after the exorcism failed,";
1984                mes "a maid found a fragment of a";
1985                mes "Red Gemstone while cleaning";
1986                mes "the secret ceremonial grounds.";
1987                Emotion e_gasp,1;
1988                next;
1989                mes "[Bonnie Imbullea]";
1990                mes "I always thought it";
1991                mes "was a little strange.";
1992                mes "I wanted to investigate";
1993                mes "it, but then I was discharged";
1994                mes "from the Prontera Church";
1995                mes "after my failure...";
1996                next;
1997                mes "["+strcharinfo(0)+"]";
1998                mes "A fragment from";
1999                mes "a Red Gemstone?";
2000                mes "Maybe... maybe it's";
2001                mes "evidence that someone";
2002                mes "sabotaged the exorcism!";
2003                next;
2004                mes "[Bonnie Imbullea]";
2005                mes "What happened was tragic,";
2006                mes "but it would make me feel";
2007                mes "so much better if that were";
2008                mes "really the truth. Even if the";
2009                mes "exorcism was sabotaged,";
2010                mes "we can't turn back time...";
2011                next;
2012                mes "["+strcharinfo(0)+"]";
2013                mes "^333333(Hmm...";
2014                mes "I better head back";
2015                mes "to Prontera Church";
2016                mes "and let Father Bamph";
2017                mes "know about this information.)^000000";
2018                set prt_curse,17;
2019                close;
2020        }
2021        else if (prt_curse == 17) {
2022                mes "[Bonnie Imbullea]";
2023                mes "It's really very";
2024                mes "difficult to live";
2025                mes "with this guilt.";
2026                mes "I was trained to help";
2027                mes "people, not kill them!";
2028                next;
2029                mes "^3355FFYou tried to comfort";
2030                mes "Bonnie Imbullea for a";
2031                mes "little while before you";
2032                mes "return to Prontera Church.";
2033                close;
2034        }
2035        else if (prt_curse == 35 || prt_curse == 44 || prt_curse == 54) {
2036                mes "^3355FFYou tell Bonnie Imbullea";
2037                mes "that the deaths of the princes";
2038                mes "were not her fault and that the exorcism was probably sabotaged.";
2039                mes "However, you keep specifics, like the use of poison, to yourself.^000000";
2040                next;
2041                mes "[Bonnie Imbullea]";
2042                mes "Is that really true...?";
2043                mes "Oh, I'm so happy! I really";
2044                mes "thought I'd have to live the";
2045                mes "rest of my in seclusion with";
2046                mes "this horrible shame. Oh, thank";
2047                mes "you so much for your help!";
2048                next;
2049                mes "[Bonnie Imbullea]";
2050                mes "Kaanu will be able to";
2051                mes "meet other kids his own";
2052                mes "age... We can finally live";
2053                mes "a normal life. How wonderful...";
2054                next;
2055                mes "[Bonnie Imbullea]";
2056                mes "But wait...";
2057                mes "How exactly did the";
2058                mes "princes die, then?";
2059                mes "There weren't any";
2060                mes "wounds on the bodies";
2061                mes "from what I remember...";
2062                next;
2063                mes "["+strcharinfo(0)+"]";
2064                mes "Well, um, I wouldn't know";
2065                mes "anything about that, but";
2066                mes "Father Bamph and Father";
2067                mes "Biscuss are handling the";
2068                mes "investigation, and they're";
2069                mes "doing their best to find out.";
2070                next;
2071                mes "[Bonnie Imbullea]";
2072                mes "I see. Well, I believe in";
2073                mes "them: they're great priests,";
2074                mes "after all. Although I may be";
2075                mes "forgiven for my failure, I still fear for the royal family...";
2076                mes "All I can do for now is pray.";
2077                next;
2078                mes "[Bonnie Imbullea]";
2079                mes "Anyway, I promise that";
2080                mes "I won't reveal what I know";
2081                mes "about this incident to the";
2082                mes "public. And if you ever come";
2083                mes "by the mountain again, I hope";
2084                mes "you stop by to visit us.";
2085                next;
2086                mes "[Bonnie Imbullea]";
2087                mes "You don't understand";
2088                mes "how much the news you've";
2089                mes "brought really means to me.";
2090                mes "I can finally free myself from";
2091                mes "this burdensome guilt...";
2092                mes "Thank you, kind adventurer~";
2093                if (prt_curse == 35) set prt_curse,36;
2094                else if (prt_curse == 44) set prt_curse,45;
2095                else {
2096                        next;
2097                        mes "^3355FFNow, you can return to";
2098                        mes "Rodafrian, the historian";
2099                        mes "stationed in Morroc.^000000";
2100                        set prt_curse,55;
2101                }
2102
2103                close;
2104        }
2105        else if (prt_curse == 36) {
2106                mes "[Bonnie Imbullea]";
2107                mes "By your grace and mercy,";
2108                mes "please pity the poor souls";
2109                mes "and protect the royal family...";
2110                mes "Bless us with your light and";
2111                mes "may your wisdom guide us...";
2112                close;
2113        }
2114        else if (prt_curse == 45) {
2115                mes "[Bonnie Imbullea]";
2116                mes "I guess we've gotten";
2117                mes "too used to the peace";
2118                mes "and serenity of Mount";
2119                mes "Mjolnir. It won't be easy";
2120                mes "to leave, even if we're welcome to return to Prontera...";
2121                close;
2122        }
2123        else if (prt_curse > 54) {
2124                mes "[Bonnie Imbullea]";
2125                mes "Thank you so much";
2126                mes "for helping out in the";
2127                mes "investigation of the";
2128                mes "princes. I'd never know";
2129                mes "happiness again if it";
2130                mes "weren't for your efforts.";
2131                close;
2132        }
2133        else {
2134                mes "[Bonnie Imbullea]";
2135                mes "^333333*Sigh...*^000000";
2136                close;
2137        }
2138}
2139
2140
2141prt_church,115,122,0    warp    #sazekan        1,1,prt_church,168,106
2142prt_church,166,106,0    warp    #prtchhall      1,1,prt_church,112,122
2143
2144prt_church,185,106,3    script  Father Bamph    60,{
2145        if (prt_curse == 13) {
2146                mes "[Father Bamph]";
2147                mes "Welcome to";
2148                mes "Prontera Church.";
2149                mes "Please relax, and";
2150                mes "let your mind and";
2151                mes "spirit find rest in";
2152                mes "these hallowed halls.";
2153                next;
2154                select("Give him the herb pouch.");
2155                if (countitem(7432) < 1) {
2156                        mes "["+strcharinfo(0)+"]";
2157                        mes "Ack!";
2158                        mes "Now, where did I put";
2159                        mes "that pouch with the herbs?";
2160                        close;
2161                }
2162                mes "[Father Bamph]";
2163                mes "May I ask...";
2164                mes "Why are you giving";
2165                mes "me this pouch of herbs?";
2166                next;
2167                mes "["+strcharinfo(0)+"]";
2168                mes "Well, there was this";
2169                mes "lady living on Mount";
2170                mes "Mjolnir who wanted me";
2171                mes "to give this to you. Um, she";
2172                mes "has a son named Kaanu?";
2173                next;
2174                mes "[Father Bamph]";
2175                mes "Oh, you must have met";
2176                mes "Bonnie Imbullea. It's";
2177                mes "been a long time since";
2178                mes "I've seen her. How is";
2179                mes "she doing, may I ask?";
2180                next;
2181                mes "["+strcharinfo(0)+"]";
2182                mes "Oh...";
2183                mes "I guess she's fine.";
2184                mes "But she seems really...";
2185                mes "I dunno, tormented...";
2186                next;
2187                mes "[Father Biscuss]";
2188                mes "Good! If she were happy";
2189                mes "and relaxed after what she";
2190                mes "did, not even God would forgive";
2191                mes "her! She deserves to live the";
2192                mes "rest of her life in agony!";
2193                next;
2194                mes "[Father Bamph]";
2195                mes "Father Biscuss, how can";
2196                mes "you say something like that?";
2197                mes "She did her best to stop what";
2198                mes "had happened! We should pity";
2199                mes "her for the suffering she must be feeling. Where is your compassion?";
2200                next;
2201                mes "[Father Biscuss]";
2202                mes "Bah! Don't speak to me";
2203                mes "about compassion! Weren't";
2204                mes "you the one who recommended";
2205                mes "her to perform the exorcism in";
2206                mes "the first place? You didn't";
2207                mes "forget that, did you?";
2208                next;
2209                mes "[Father Bampf]";
2210                mes "......";
2211                mes ".........";
2212                mes "............";
2213                next;
2214                mes "[Father Biscuss]";
2215                mes "Hah!";
2216                next;
2217                select("About Bonnie Imbullea");
2218                mes "[Father Bamph]";
2219                mes "Well...";
2220                mes "I don't...";
2221                mes "I don't know if";
2222                mes "I should be telling ";
2223                mes "you about that incident...";
2224                next;
2225                mes "[Father Biscuss]";
2226                mes "You know what? If Bonnie";
2227                mes "sent this adventurer here";
2228                mes "for a favor, it probably means";
2229                mes "she trusts this person. Besides, we need somebody to carry out";
2230                if (sex)
2231                        mes "this task for us. Why not him?";
2232                else
2233                        mes "this task for us. Why not her?";
2234                next;
2235                mes "[Father Bamph]";
2236                mes "Your words have the ring";
2237                mes "of truth, Father Biscuss.";
2238                mes "Well then, adventurer, give";
2239                mes "me the opportunity to tell you";
2240                mes "something very important. But, you must not tell anyone else...";
2241                set prt_curse,14;
2242                delitem 7432,1; //Leather_Pouch
2243                close;
2244        }
2245        else if (prt_curse == 14) {
2246                mes "[Father Bamph]";
2247                mes "What I am about to tell";
2248                mes "you must be kept secret.";
2249                mes "Now, do you know about";
2250                mes "Jormungand, the great serpent";
2251                mes "born from the god Loki and";
2252                mes "the giantess, Angrboda?";
2253                next;
2254                mes "[Father Bamph]";
2255                mes "Jormungand was an evil";
2256                mes "beast that, after the thousand";
2257                mes "year war between the gods and";
2258                mes "demons, began to attack humans.";
2259                mes "It brought great chaos and much";
2260                mes "suffering around the world...";
2261                next;
2262                mes "[Father Bamph]";
2263                mes "Finally, the first Tristram of";
2264                mes "the Gaebolg family defeated";
2265                mes "Jormungand together with 6";
2266                mes "other warriors, but only after";
2267                mes "it killed his beloved father.";
2268                next;
2269                mes "[Father Bamph]";
2270                mes "Tristram would become the";
2271                mes "first king of the Rune-Midgarts";
2272                mes "Kingdom, but his family would";
2273                mes "suffer from the curse placed";
2274                mes "by Jormungand before its defeat. ";
2275                next;
2276                mes "[Father Bamph]";
2277                mes "To this day...";
2278                mes "^FF0000Every first prince of";
2279                mes "the Gaebolg family dies";
2280                mes "at a young age^000000. That is";
2281                mes "Jormungand's curse and";
2282                mes "the royal family's secret.";
2283                Emotion e_omg,1;
2284                next;
2285                mes "["+strcharinfo(0)+"]";
2286                mes "What...?!";
2287                mes "Is this really true?!";
2288                mes "Isn't there any way to";
2289                mes "counter this horrible curse?!";
2290                next;
2291                mes "[Father Bamph]";
2292                mes "Please lower your voice.";
2293                mes "Yes, it's a shame that the";
2294                mes "royal family must suffer like";
2295                mes "this. But all the exorcisms";
2296                mes "that have been attempted";
2297                mes "over the years have failed...";
2298                next;
2299                mes "[Father Bamph]";
2300                mes "Although the situation";
2301                mes "appeared hopeless, King";
2302                mes "Tristram III tried once again to exorcise the curse. Following";
2303                mes "his orders, the greatest priests and exorcists were all summoned.";
2304                next;
2305                mes "[Father Bamph]";
2306                mes "A series of tests was";
2307                mes "performed to select the";
2308                mes "best priests and exorcists";
2309                mes "to remove this curse. In the end, ^3131FFBonnie Imbullea^000000 was chosen to";
2310                mes "lead the exorcism ceremony.";
2311                next;
2312                mes "["+strcharinfo(0)+"]";
2313                mes "Wait, but you mentioned";
2314                mes "samething about an accident.";
2315                mes "Does that mean that she failed";
2316                mes "in performing the exorcism?";
2317                next;
2318                mes "[Father Bamph]";
2319                mes "Yes, unfortunately.";
2320                mes "After the priests and";
2321                mes "exorcists gathered in the";
2322                mes "secret ceremonial grounds,";
2323                mes "three princes were killed";
2324                mes "instead of just the first.";
2325                next;
2326                mes "[Father Biscuss]";
2327                mes "Although we all swore to";
2328                mes "keep that incident a secret,";
2329                mes "Bonnie Imbullea took full";
2330                mes "responsibility for the deaths.";
2331                mes "That is why she is in self";
2332                mes "imposed exile from the kingdom.";
2333                next;
2334                mes "["+strcharinfo(0)+"]";
2335                mes "What...?";
2336                mes "That's...";
2337                mes "That's crazy!";
2338                next;
2339                mes "[Father Biscuss]";
2340                mes "I know that this";
2341                mes "is a very long story,";
2342                mes "and that it's a little";
2343                mes "complicated. Please";
2344                mes "listen to what we have";
2345                mes "to ask from here on...";
2346                Emotion e_dots;
2347                set prt_curse,15;
2348                close;
2349        }
2350        else if (prt_curse == 15) {
2351                mes "[Father Bamph]";
2352                mes "Now, you should know that";
2353                mes "all of the princes that were";
2354                mes "killed that day bore strange";
2355                mes "looking marks on their bodies.";
2356                mes "It almost looked as if they";
2357                mes "were growing snake scales.";
2358                Emotion e_gasp,1;
2359                next;
2360                mes "["+strcharinfo(0)+"]";
2361                mes "Wait, they grew snake";
2362                mes "scales? That sounds just";
2363                mes "like one of the versions of";
2364                mes "this song I'm investigating.";
2365                mes "I think it was the song about the Rune-Midgarts Kingdom's origin.";
2366                next;
2367                mes "[Father Bamph]";
2368                mes "Wait, that song?";
2369                mes "Hm, I don't see how";
2370                mes "it's related. Let's see";
2371                mes "now, how did it go?";
2372                mes "Rainbows... Eagles...";
2373                mes "Ah! Now I remember!";
2374                next;
2375                mes "[Father Bamph]";
2376                mes "The great serpent";
2377                mes "swallowed the sea.";
2378                mes "The eagle of the rainbow";
2379                mes "swallowed the serpent.";
2380                mes "Then the eagle built its nest.";
2381                mes "A nest upon the swallowed sea.";
2382                next;
2383                mes "["+strcharinfo(0)+"]";
2384                mes "Hmm...";
2385                mes "Well, I heard a";
2386                mes "different version";
2387                mes "of the same song.";
2388                mes "It goes like...";
2389                next;
2390                mes "["+strcharinfo(0)+"]";
2391                mes "The great serpent";
2392                mes "swallowed the sea.";
2393                mes "The eagle of the rainbow";
2394                mes "swallowed the serpent.";
2395                mes "Then snake scales grew on";
2396                mes "the eagle, and it slowly died.";
2397                next;
2398                mes "[Father Bamph]";
2399                mes "Oh, my. I learned the song";
2400                mes "when I was a young boy from";
2401                mes "my father. However, your version seems to reveal the secret curse";
2402                mes "of the Gaebolgs. Please tell me, where did you hear that song?";
2403                next;
2404                mes "["+strcharinfo(0)+"]";
2405                mes "Well, I first heard this";
2406                mes "version from a historian,";
2407                mes "and then I found out that";
2408                mes "Bonnie Imbullea knows it as";
2409                mes "well. Um, is there a problem?";
2410                next;
2411                mes "[Father Bamph]";
2412                mes "If those song lyrics are";
2413                mes "spread, the secret of the";
2414                mes "royal family curse could be";
2415                mes "revealed to the public. Would";
2416                mes "you please help us by speaking";
2417                mes "to Bonnie Imbullea once again?";
2418                next;
2419                mes "[Father Bamph]";
2420                mes "If you can, please try to";
2421                mes "see if you can learn of any";
2422                mes "connection between the curse";
2423                mes "and the song, or if she can";
2424                mes "remember anything that happened";
2425                mes "after the exorcism failed...";
2426                set prt_curse,16;
2427                close;
2428        }
2429        else if (prt_curse == 16) {
2430                mes "[Father Bamph]";
2431                mes "Please visit Bonnie";
2432                mes "Imbullea in Mount Mjolnir";
2433                mes "to see if you can learn more";
2434                mes "about that song, or about what";
2435                mes "happened after the attempted exorcism of the Jormungand curse.";
2436                close;
2437        }
2438        else if (prt_curse == 17) {
2439                mes "[Father Bamph]";
2440                mes "Ah, have you spoken";
2441                mes "to Bonnie Imbullea?";
2442                mes "Please tell me if you";
2443                mes "have learned anything new.";
2444                next;
2445                mes "^3355FFYou related everything";
2446                mes "that Bonnie Imbullea spoke";
2447                mes "about, including the discovery";
2448                mes "of a fragment of Red Gemstone";
2449                mes "in the secret ceremonial grounds. ";
2450                next;
2451                mes "[Father Bamph]";
2452                mes "Red Gemstone? There's";
2453                mes "no reason for that to be in";
2454                mes "a holy place. Hmm. There's";
2455                mes "more to this case than meets";
2456                mes "the eye. We better investigate";
2457                mes "the truth, starting now.";
2458                next;
2459                mes "[Father Bamph]";
2460                mes "Come with me, adventurer,";
2461                mes "to the secret ceremonial";
2462                mes "grounds for the royal family.";
2463                mes "Just use the switch hidden";
2464                mes "within the bookshelf and";
2465                mes "I will meet you there.";
2466                set prt_curse,18;
2467                close;
2468        }
2469        else if (prt_curse > 17 && prt_curse < 22) {
2470                mes "[Father Bamph]";
2471                mes "Come with me to the";
2472                mes "secret ceremonial grounds";
2473                mes "so that we can investigate";
2474                mes "the possibility of sabotage";
2475                mes "with the exorcism that";
2476                mes "Bonnie Imbullea performed.";
2477                next;
2478                mes "[Father Bamph]";
2479                mes "There is a hidden switch";
2480                mes "in the bookshelf that you";
2481                mes "can use to transport yourself";
2482                mes "there. Go, and I will meet";
2483                mes "you in the ceremonial grounds.";
2484                close;
2485        }
2486        else if (prt_curse == 22) {
2487                mes "[Father Bamph]";
2488                mes "This is a matter of grave";
2489                mes "importance, but we can't";
2490                mes "alert the royal family yet and";
2491                mes "cause a panic. It would be";
2492                mes "best to fully investigate this";
2493                mes "first and collect proof.";
2494                next;
2495                mes "[Father Bamph]";
2496                mes "Brave adventurer, would";
2497                mes "you please visit the Assassin";
2498                mes "Guild in Morroc and see if you";
2499                mes "can learn anything about how";
2500                mes "we can verify whether poison";
2501                mes "was used to kill the princes?";
2502                set prt_curse,23;
2503                close;
2504        }
2505        else if (prt_curse == 23) {
2506                mes "[Father Bamph]";
2507                mes "Please see if you can";
2508                mes "learn anything about testing";
2509                mes "for the use of poison from";
2510                mes "a member of the Assassin";
2511                mes "Guild in Morroc.";
2512                close;
2513        }
2514        else if (prt_curse == 31) {
2515                mes "[Father Bamph]";
2516                mes "Ah, you've returned~";
2517                mes "Have you managed to learn";
2518                mes "anything about poison from";
2519                mes "the Assassin Guild? I know";
2520                mes "their members must be";
2521                mes "very difficult to find...";
2522                next;
2523                mes "^3355FFYou relate all of the";
2524                mes "information you learned";
2525                mes "about poison to Father Bamph,";
2526                mes "including the method to test";
2527                mes "for the use of poison in murder. ";
2528                next;
2529                mes "[Father Bamph]";
2530                mes "Ah, I see. Then, would";
2531                mes "you please bring 1 Yellow";
2532                mes "Gemstone and 1 Green Potion";
2533                mes "to the secret ceremonial grounds as soon as you can? I will wait";
2534                mes "over there for you once again.";
2535                set prt_curse,32;
2536                close;
2537        }
2538        else if (prt_curse == 32 || prt_curse == 33 || prt_curse == 41 || prt_curse == 42 || prt_curse == 51 || prt_curse == 52) {
2539                mes "[Father Bamph]";
2540                mes "You can use the hidden";
2541                mes "switch in the bookshelf to";
2542                mes "enter the secret ceremonial";
2543                mes "grounds. Don't forget that we";
2544                mes "need^3131FF 1 Yellow Gemstone^000000 and ^3131FF1 Green Potion^000000 to test for poison.";
2545                close;
2546        }
2547        else if (prt_curse == 34) {
2548                mes "[Father Bamph]";
2549                mes "I can't believe it!";
2550                mes "If poison was used, then";
2551                mes "the second and third princes";
2552                mes "were murdered! Unbelievable...";
2553                mes "How can anyone kill children?";
2554                next;
2555                mes "[Father Bamph]";
2556                mes "At the very least, we now";
2557                mes "know that their deaths were";
2558                mes "not Bonnie Imbullea's fault.";
2559                mes "Now I must discuss with Father";
2560                mes "Biscuss and decide how to tell";
2561                mes "the royal family about this...";
2562                next;
2563                mes "[Father Bamph]";
2564                mes "Once again, let me remind";
2565                mes "you that everything that has";
2566                mes "transpired here must be kept";
2567                mes "secret. The public cannot know";
2568                mes "of Jormungand's curse! It would cause political turmoil and chaos!";
2569                next;
2570                mes "[Father Bamph]";
2571                mes "Still, that does not mean";
2572                mes "that I cannot personally thank";
2573                mes "you for all of your help. I'm very grateful for what you have done,";
2574                mes "adventurer. May safety accompany you on all of your journeys.";
2575                set prt_curse,35;
2576                close;
2577        }
2578        else if (prt_curse > 34 && prt_curse < 40) {
2579                mes "[Father Bamph]";
2580                mes "I'm at a loss at what";
2581                mes "to do. Sometimes, even";
2582                mes "I have doubts and believe";
2583                mes "that Odin has abandoned us...";
2584                close;
2585        }
2586        else if (prt_curse == 40) {
2587                mes "[Father Bamph]";
2588                mes "Ah, you've returned~";
2589                mes "Have you managed to learn";
2590                mes "anything about poison from";
2591                mes "the Assassin Guild? I know";
2592                mes "their members must be";
2593                mes "very difficult to find...";
2594                next;
2595                mes "^3355FFYou relate all of the";
2596                mes "information you learned";
2597                mes "about poison to Father Bamph,";
2598                mes "including the method to test";
2599                mes "for the use of poison in murder. ";
2600                next;
2601                mes "[Father Bamph]";
2602                mes "Ah, I see. Then, would";
2603                mes "you please bring^3131FF 1 Yellow";
2604                mes "Gemstone^000000 and ^3131FF1 Green Potion^000000";
2605                mes "to the secret ceremonial grounds as soon as you can? I will wait";
2606                mes "over there for you once again.";
2607                set prt_curse,41;
2608                close;
2609        }
2610        else if (prt_curse == 43 || prt_curse == 53) {
2611                mes "[Father Bamph]";
2612                mes "I can't believe it!";
2613                mes "If poison was used, then";
2614                mes "the second and third princes";
2615                mes "were murdered! Unbelievable...";
2616                mes "How can anyone kill children?";
2617                next;
2618                mes "[Father Bamph]";
2619                mes "At the very least, we now";
2620                mes "know that their deaths were";
2621                mes "not Bonnie Imbullea's fault.";
2622                mes "Now I must discuss with Father";
2623                mes "Biscuss and decide how to tell";
2624                mes "the royal family about this...";
2625                next;
2626                mes "[Father Bamph]";
2627                mes "Oh, and would you please";
2628                mes "inform ^3131FFBonnie Imbullea^000000 that";
2629                mes "the deaths of the princes were";
2630                mes "not her fault? I'm sure that news would bring her great relief";
2631                mes "from her burden of guilt...";
2632                next;
2633                mes "[Father Bamph]";
2634                mes "Once again, let me remind";
2635                mes "you that everything that has";
2636                mes "transpired here must be kept";
2637                mes "secret. The public cannot know";
2638                mes "of Jormungand's curse! It would cause political turmoil and chaos!";
2639                next;
2640                mes "[Father Bamph]";
2641                mes "Still, that does not mean";
2642                mes "that I cannot personally thank";
2643                mes "you for all of your help. I'm very grateful for what you have done,";
2644                mes "adventurer. May safety accompany you on all of your journeys.";
2645                if (prt_curse == 43) set prt_curse,44;
2646                else set prt_curse,54;
2647                getexp 1600000,0;
2648                close;
2649        }
2650        else if (prt_curse > 43 && prt_curse < 50) {
2651                mes "[Father Bamph]";
2652                mes "Have you spoken to";
2653                mes "Bonnie Imbullea yet?";
2654                mes "Try not to worry about the";
2655                mes "news about the princes'";
2656                mes "murder. Father Biscuss";
2657                mes "and I will handle it.";
2658                close;
2659        }
2660        else if (prt_curse == 50) {
2661                mes "[Father Bamph]";
2662                mes "Ah, you've returned~";
2663                mes "Have you managed to learn";
2664                mes "anything about poison from";
2665                mes "the Assassin Guild? I know";
2666                mes "their members must be";
2667                mes "very difficult to find...";
2668                next;
2669                mes "You relate all of the";
2670                mes "information you learned";
2671                mes "about poison to Father Bamph,";
2672                mes "including the method to test";
2673                mes "for the use of poison in murder. ";
2674                next;
2675                mes "[Father Bamph]";
2676                mes "Ah, I see. Then, would";
2677                mes "you please bring ^3131FF1 Yellow";
2678                mes "Gemstone^000000 and ^3131FF1 Green Potion^000000";
2679                mes "to the secret ceremonial grounds as soon as you can? I will wait";
2680                mes "over there for you once again.";
2681                set prt_curse,51;
2682                close;
2683        }
2684        else if (prt_curse == 60) {
2685                mes "[Father Bamph]";
2686                mes "Oh, "+strcharinfo(0)+"~";
2687                mes "Long time, no see.";
2688                mes "Have you spoken to";
2689                mes "Bonnie yet? Ah, and";
2690                mes "how may I help you today?";
2691                next;
2692                mes "^3355FFYou tell Father Bamph";
2693                mes "that rare herbs grow in";
2694                mes "a land to the west, although";
2695                mes "you do not mention that you";
2696                mes "told Rodafrian about the curse.^000000";
2697                next;
2698                mes "[Father Biscuss]";
2699                mes "Land to the west?";
2700                mes "That place is rumored to";
2701                mes "be populated by fanatics.";
2702                mes "Father Bamph, I think they";
2703                mes "may be prime suspects for";
2704                mes "the murder of the princes...";
2705                next;
2706                mes "[Father Bamph]";
2707                mes "Well, I'll admit that it's";
2708                mes "possible, but we haven't had";
2709                mes "contact with anyone from the";
2710                mes "land to the west for so long...";
2711                mes "It's still far too early to make those kinds of assumptions.";
2712                next;
2713                select("Land to the west?");
2714                mes "[Father Bamph]";
2715                mes "Not much is known about";
2716                mes "the land to the west. We";
2717                mes "did send several priests";
2718                mes "there once to spread our";
2719                mes "faith. However, they failed...";
2720                next;
2721                mes "[Father Bamph]";
2722                mes "From what I can tell,";
2723                mes "almost everyone there";
2724                mes "is a strong adherent of";
2725                mes "that region's native religion.";
2726                mes "Anyway, thank you for informing";
2727                mes "us. We'll handle it from here.";
2728                next;
2729                mes "[Father Bamph]";
2730                mes "Ah, to preserve the secrets";
2731                mes "of the royal family, I ask that";
2732                mes "you refrain from entering the";
2733                mes "secret ceremonial grounds";
2734                mes "from now on. Thanks again for your help, "+strcharinfo(0)+".";
2735                set prt_curse,61;
2736                close;
2737        }
2738        else {
2739                mes "[Father Bamph]";
2740                mes "I'm sorry, but would it";
2741                mes "be alright if we talked";
2742                mes "later? I have to handle";
2743                mes "a very important task now...";
2744                close;
2745        }
2746}
2747
2748prt_church,184,110,3    script  Father Biscuss  60,{
2749        if (prt_curse == 54) {
2750                mes "[Father Biscuss]";
2751                mes "Hmm, I still suspect that";
2752                mes "someone from the Assassin";
2753                mes "Guild may have killed the";
2754                mes "princes. Just in case, I'm";
2755                mes "going to send a spy. Keep";
2756                mes "that information secret.";
2757                next;
2758                mes "[Father Biscuss]";
2759                mes "So yes. You didn't learn";
2760                mes "or hear anything from us,";
2761                mes "and you don't know anything";
2762                mes "about the royal family's curse.";
2763                mes "From here on, Father Bamph";
2764                mes "and I will handle this issue.";
2765                close;
2766        }
2767        else if (prt_curse == 35) {
2768                mes "[Father Biscuss]";
2769                mes "I've never seen Father";
2770                mes "Bamph this way before, but";
2771                mes "I can understand how he feels.";
2772                mes "As one of the leaders of this";
2773                mes "church, he feels responsible";
2774                mes "for these princes' deaths.";
2775                next;
2776                mes "[Father Biscuss]";
2777                mes "I'm sure he'll feel";
2778                mes "better in a few days,";
2779                mes "but right now, he's in no";
2780                mes "condition to compile the";
2781                mes "valuable info that you've";
2782                mes "provided, so I'll do it.";
2783                next;
2784                mes "[Father Biscuss]";
2785                mes "Personally, I feel that";
2786                mes "what happened was tragic,";
2787                mes "but it should be avenged.";
2788                mes "Perhaps that why I've held";
2789                mes "a grudge against Imbullea";
2790                mes "for all this time. Anyway...";
2791                next;
2792                mes "[Father Biscuss]";
2793                mes "Although we can't";
2794                mes "acknowledge it publicly,";
2795                mes "on behalf of the Prontera";
2796                mes "Church, I want to thank";
2797                mes "you for all of your help.";
2798                set prt_curse,36;
2799                getexp 1600000,0;
2800                close;
2801        }
2802        else if (prt_curse == 36) {
2803                mes "[Father Biscuss]";
2804                mes "No one can know light";
2805                mes "without experiencing";
2806                mes "darkness. Peace has";
2807                mes "no meaning until it is";
2808                mes "contrasted with chaos.";
2809                next;
2810                mes "[Father Biscuss]";
2811                mes "Religion becomes even";
2812                mes "more important during times";
2813                mes "of chaos, and times of need.";
2814                mes "I must remain calm, especially";
2815                mes "when Father Bamph feels so bad about this whole incident...";
2816                close;
2817        }
2818        else {
2819                mes "[Father Biscuss]";
2820                mes "Please observe";
2821                mes "silence within the";
2822                mes "Priest Room. Thank";
2823                mes "you for cooperating.";
2824                close;
2825        }
2826}
2827
2828prt_church,177,113,3    script  #gototomb       111,{
2829        if (prt_curse > 17 && prt_curse < 23 || prt_curse > 31 && prt_curse < 35 || prt_curse == 41 || prt_curse == 42 || prt_curse == 44 || prt_curse == 51 || prt_curse == 52) {
2830                warp "prt_church",21,91;
2831        }
2832        end;
2833}
2834
2835prt_church,23,89,3      script  Father Biscuss#tomb     60,{
2836        mes "[Father Biscuss]";
2837        mes "Hm...?";
2838        mes "Are you ready to";
2839        mes "head back upstairs?";
2840        next;
2841        if (select("Yes:No") == 1) {
2842                mes "[Father Biscuss]";
2843                mes "Please follow me.";
2844                next;
2845                warp "prt_church",178,111;
2846                end;
2847        }
2848        mes "[Father Biscuss]";
2849        mes "Please take your time";
2850        mes "and investigate this as";
2851        mes "thoroughly as you can.";
2852        close;
2853}
2854
2855prt_church,16,114,4     script  Father Bamph#tomb       60,{
2856        if (prt_curse == 18) {
2857                mes "[Father Bamph]";
2858                mes "There are the bodies";
2859                mes "of the Gaebolg princes";
2860                mes "that were killed during";
2861                mes "the exorcism. Please take";
2862                mes "a look at the body to the left.";
2863                set prt_curse,19;
2864                close;
2865        }
2866        else if (prt_curse == 19) {
2867                mes "[Father Bamph]";
2868                mes "Please take a look";
2869                mes "at the body to the";
2870                mes "far left, the first prince.";
2871                close;
2872        }
2873        else if (prt_curse == 20) {
2874                mes "["+strcharinfo(0)+"]";
2875                mes "That weird mark looked";
2876                mes "just like snake scales.";
2877                mes "Is... Is that the mark left";
2878                mes "behind by Jormungand's curse?";
2879                next;
2880                mes "[Father Bamph]";
2881                mes "That's right.";
2882                mes "Now, let's examine the";
2883                mes "body of the second prince,";
2884                mes "located in the middle.";
2885                close;
2886        }
2887        else if (prt_curse == 21) {
2888                mes "[Father Bamph]";
2889                mes "Now...";
2890                mes "Now we should";
2891                mes "examine the third prince.";
2892                close;
2893        }
2894        else if (prt_curse == 22) {
2895                mes "[Father Bamph]";
2896                mes "Let's go upstairs where we";
2897                mes "can continue this conversation.";
2898                mes "Ah, you might want to ask";
2899                mes "Father Biscuss to lead you.";
2900                close;
2901        }
2902        else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
2903                mes "[Father Bamph]";
2904                mes "Do you have a ^3131FFYellow";
2905                mes "Gemstone^000000 and ^3131FFGreen Potion^000000";
2906                mes "ready? If so, you should begin";
2907                mes "testing on the body of the third prince before the others.";
2908                close;
2909        }
2910        else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
2911                mes "[Father Bamph]";
2912                mes "The mark disappeared?";
2913                mes "Oh, this is just horrible!";
2914                mes "That would mean that poison";
2915                mes "was used to murder the other";
2916                mes "princes! I almost... can't...";
2917                next;
2918                mes "[Father Bamph]";
2919                mes "I... I need some time";
2920                mes "to recover from the shock";
2921                mes "and to think about all of";
2922                mes "this carefully. For now,";
2923                mes "let's go back upstairs.";
2924                if (prt_curse == 33) set prt_curse,34;
2925                else if (prt_curse == 42) set prt_curse,43;
2926                else set prt_curse,53;
2927                close;
2928        }
2929        else if (prt_curse == 43 || prt_curse == 53) {
2930                mes "[Father Bamph]";
2931                mes "We've disturbed the";
2932                mes "bodies of these poor";
2933                mes "souls enough. We should";
2934                mes "go back upstairs now...";
2935                close;
2936        }
2937        end;
2938}
2939
2940prt_church,19,111,5     script  #prince1        887,{
2941        if (prt_curse == 19) {
2942                mes "[Father Bamph]";
2943                mes "This is the body of";
2944                mes "the king's first son, the";
2945                mes "crown prince. Just as it has";
2946                mes "happened for generations,";
2947                mes "the curse took the life of";
2948                mes "the first born prince...";
2949                next;
2950                mes "^3355FFBeneath one of the";
2951                mes "prince's sleeves, you";
2952                mes "notice a dark mark. Upon";
2953                mes "pulling up the sleeve, you";
2954                mes "note that the mark resembles";
2955                mes "the scales of a serpent.^000000";
2956                set prt_curse,20;
2957                close;
2958        }
2959        else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
2960                mes "^3355FFYou poured a little bit";
2961                mes "of the solution made from";
2962                mes "Yellow Gemstone and Green";
2963                mes "Potion on the mark on the skin.";
2964                mes "You waited a while, but there was no reaction from the solution.^000000";
2965                close;
2966        }
2967        else {
2968                mes "^3355FFIt's the body of a male";
2969                mes "dressed in luxurious robes.";
2970                mes "Although deceased, the color";
2971                mes "of life has not yet left the body. ";
2972                close;
2973        }
2974}
2975
2976prt_church,21,111,5     script  #prince2        887,{
2977        if (prt_curse == 20) {
2978                mes "[Father Bamph]";
2979                mes "This is the body of the";
2980                mes "second prince. The curse";
2981                mes "is only supposed to kill";
2982                mes "the firstborn prince, but";
2983                mes "all three princes of this";
2984                mes "generation were killed...";
2985                next;
2986                mes "[Father Bamph]";
2987                mes "Despite our great efforts";
2988                mes "to exorcise this powerful";
2989                mes "curse, we all failed. Those";
2990                mes "involved have begun to believe";
2991                mes "that Odin may have abandoned us... ";
2992                Emotion e_omg,1;
2993                next;
2994                mes "^3355FFYou examine the body of";
2995                mes "the second prince and notice";
2996                mes "that the scale marks on his";
2997                mes "skin are fainter, and slightly";
2998                mes "different in color, than the";
2999                mes "marks on the first prince.^000000";
3000                next;
3001                mes "["+strcharinfo(0)+"]";
3002                mes "Father Bamph...!";
3003                mes "Look, these marks are";
3004                mes "different on the second";
3005                mes "prince than on the first";
3006                mes "prince! See? They're different";
3007                mes "in darkness and coloration.";
3008                next;
3009                mes "[Father Bamph]";
3010                mes "Goodness, you're right!";
3011                mes "How did we overlook this?";
3012                mes "Hm, this supports the idea";
3013                mes "that a conspiracy may be";
3014                mes "involved. Let's go check";
3015                mes "the body of the third prince.";
3016                set prt_curse,21;
3017                close;
3018        }
3019        else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
3020                specialeffect 192; //EF_POISONATTACK
3021                specialeffect 53; //EF_POISONHIT
3022                specialeffect 109; //EF_BUBBLE
3023                mes "^3355FFYou poured a little of the";
3024                mes "solution made from Green";
3025                mes "Potion and Yellow Gemstone";
3026                mes "on the body's scale marks. The";
3027                mes "scale marks grow fainter and";
3028                mes "the solution bubbles on contact. ";
3029                close;
3030        }
3031        else {
3032                mes "^3355FFIt's the body of a male";
3033                mes "dressed in luxurious robes.";
3034                mes "Although deceased, the color";
3035                mes "of life has not yet left the body. ";
3036                close;
3037        }
3038}
3039
3040prt_church,24,111,5     script  #prince3        887,{
3041        if (prt_curse == 21) {
3042                mes "^3355FFYou and Father Bamph";
3043                mes "hurriedly inspect the third";
3044                mes "prince's body and find that the";
3045                mes "scale marks on his skin are";
3046                mes "a little darker than the marks";
3047                mes "on the second prince's skin.^000000";
3048                next;
3049                mes "[Father Bamph]";
3050                mes "This is very suspicious...";
3051                mes "The deaths of the second and";
3052                mes "third princes might have been";
3053                mes "caused by murder, rather than";
3054                mes "the curse. However, what could";
3055                mes "possibly be used to kill them?";
3056                next;
3057                while(1) {
3058                        if (select("A weapon!:Poison!") == 1) {
3059                                mes "[Father Bamph]";
3060                                mes "Hmm... But none of the";
3061                                mes "bodies had any wounds";
3062                                mes "or scarring. If that were the";
3063                                mes "case, I'm sure the king would";
3064                                mes "have declared war on someone.";
3065                                mes "It couldn't have been a weapon.";
3066                                next;
3067                        }
3068                        else  break;
3069                }
3070                mes "[Father Bamph]";
3071                mes "Poison...?";
3072                mes "Oh dear! No one in the";
3073                mes "Prontera Church would know";
3074                mes "the first thing about that. But";
3075                mes "maybe poison was used.";
3076                mes "How can we find out for sure?";
3077                next;
3078                mes "[Father Biscuss]";
3079                mes "I say, you go straight to";
3080                mes "the experts. Someone in the";
3081                mes "^FF0000Assassin Guild in Morroc^000000";
3082                mes "ought to know. I hear they";
3083                mes "can make poison that can kill";
3084                mes "a man with just one drop!";
3085                next;
3086                mes "[Father Bamph]";
3087                mes "Ah, that's a good idea!";
3088                mes "Hmm, but first, let's go";
3089                mes "continue this conversation";
3090                mes "outside, shall we? I'd prefer";
3091                mes "not to disturb these bodies...";
3092                set prt_curse,22;
3093                close;
3094        }
3095        else if (prt_curse == 22) {
3096                mes "[Father Bamph]";
3097                mes "Let's go upstairs where we";
3098                mes "can continue this conversation.";
3099                mes "Ah, you might want to ask";
3100                mes "Father Biscuss to lead you.";
3101                close;
3102        }
3103        else if (prt_curse == 32 || prt_curse == 41 || prt_curse == 51) {
3104                if (countitem(506) > 0 && countitem(715) > 0) {
3105                        mes "^3355FFYou open a bottle of";
3106                        mes "Green Potion and insert a";
3107                        mes "Yellow Gemstone. The gem";
3108                        mes "quickly dissolves, conveniently";
3109                        mes "forming a solution to test for the presense of poison. You pour";
3110                        mes "it on the prince's scale marks.^000000";
3111                        next;
3112                        specialeffect 192; //EF_POISONATTACK
3113                        specialeffect 53; //EF_POISONHIT
3114                        specialeffect 109; //EF_BUBBLE
3115                        mes "^3355FF*Pssssssssh*^000000";
3116                        next;
3117                        mes "^3355FFThe solution bubbles";
3118                        mes "once it touches the skin,";
3119                        mes "and the serpent scale marks";
3120                        mes "on the prince's body slowly";
3121                        mes "fade until they disappear.^000000";
3122                        delitem 506,1; //Green_Potion
3123                        delitem 715,1; //Yellow_Gemstone
3124                        if (prt_curse == 32) set prt_curse,33;
3125                        else if (prt_curse == 41) set prt_curse,42;
3126                        else set prt_curse,52;
3127                        close;
3128                }
3129                mes "^3355FFYou'll need to have";
3130                mes "a Green Potion and";
3131                mes "a Yellow Gemstone in";
3132                mes "order to test and confirm";
3133                mes "whether poison killed the";
3134                mes "second and third princes.^000000";
3135                close;
3136        }
3137        else if (prt_curse == 33 || prt_curse == 42 || prt_curse == 52) {
3138                mes "^3355FFThe serpent scale marks";
3139                mes "on this prince's body have";
3140                mes "vanished after you applied";
3141                mes "the Green Potion and Yellow";
3142                mes "Gemstone solution to the skin.^000000";
3143                close;
3144        }
3145        else {
3146                mes "^3355FFIt's the body of a male";
3147                mes "dressed in luxurious robes.";
3148                mes "Although deceased, the color";
3149                mes "of life has not yet left the body. ";
3150                close;
3151        }
3152}
3153
3154moc_fild16,201,295,5    script  Assassin Guildsman#poiso        884,{
3155        if (prt_curse == 23) {
3156                mes "[Assassin Guildsman]";
3157                mes "What business";
3158                mes "brings you here?";
3159                next;
3160                if (select("Poison:Nothing") == 1) {
3161                        mes "["+strcharinfo(0)+"]";
3162                        mes "I need to talk to";
3163                        mes "a poison specialist.";
3164                        mes "I'm investigating";
3165                        mes "something for the";
3166                        mes "Prontera Church,";
3167                        mes "possibly a murder.";
3168                        next;
3169                        mes "[Assassin Guildsman]";
3170                        mes "...";
3171                        mes "......";
3172                        mes ".........";
3173                        next;
3174                        mes "[Assassin Guildsman";
3175                        mes "Listen carefully.";
3176                        mes "I will only tell this";
3177                        mes "to you one time.";
3178                        next;
3179                        mes "[Assassin Guildsman]";
3180                        mes "There is an";
3181                        mes "Assassin's Private Pub";
3182                        mes "in the 7 o'clock direction";
3183                        mes "in Morroc. Go find someone";
3184                        mes "named ^3131FFMarjana^000000 inside.";
3185                        set prt_curse,24;
3186                        close;
3187                }
3188                mes "[Assassin Guildsman]";
3189                mes "No. That look in";
3190                mes "your eyes. I'm sure";
3191                mes "there is a reason that";
3192                mes "you have come here...";
3193                close;
3194        }
3195        else {
3196                mes "[Assassin Guildsman]";
3197                mes "It's very dry and";
3198                mes "windy today. I like this";
3199                mes "weather. It feels like it";
3200                mes "perfectly matches the soul";
3201                mes "of a true Assassin, the loner";
3202                mes "that hides in the shadows.";
3203                close;
3204        }
3205}
3206
3207que_job01,10,16,5       script  Marjana#poison  885,{
3208        if (prt_curse == 24) {
3209                mes "[Marjana]";
3210                mes "What business brings";
3211                mes "you here? I'm giving";
3212                mes "you 4 minutes to speak";
3213                mes "with me, so be direct.";
3214                next;
3215                mes "["+strcharinfo(0)+"]";
3216                mes "I want to learn";
3217                mes "more about poison";
3218                mes "and confirm if it was";
3219                mes "used to kill someone.";
3220                next;
3221                mes "[Marjana]";
3222                mes "Poison? You've come";
3223                mes "to just the right person.";
3224                mes "If I don't know the answer,";
3225                mes "I doubt you'll find anyone";
3226                mes "else that would. Ask away.";
3227                next;
3228                mes "["+strcharinfo(0)+"]";
3229                mes "Is it true that an";
3230                mes "Assassin's poison";
3231                mes "can be so powerful,";
3232                mes "that just one drop";
3233                mes "can kill a person?";
3234                next;
3235                mes "[Marjana]";
3236                mes "It's true that such powerful";
3237                mes "poison exists, but such deadly";
3238                mes "poison is usually only used by";
3239                mes "Assassin Crosses. Generally,";
3240                mes "normal Assassins use poisons";
3241                mes "that are much less potent.";
3242                next;
3243                mes "["+strcharinfo(0)+"]";
3244                mes "Alright. Can you make";
3245                mes "a poison that leaves a";
3246                mes "specific mark on the body?";
3247                next;
3248                mes "[Marjana]";
3249                mes "Sure. There's all kinds of";
3250                mes "poisons that exist that I'm";
3251                mes "sure you can't even imagine.";
3252                mes "However, poisons that leave";
3253                mes "specific marks are difficult to";
3254                mes "use, and few can handle them.";
3255                next;
3256                mes "[Marjana]";
3257                mes "The types of marks";
3258                mes "that are left behind all";
3259                mes "depend on the materials";
3260                mes "used to create the poison.";
3261                mes "Since some materials are";
3262                mes "exclusive to certain areas...";
3263                next;
3264                mes "[Marjana]";
3265                mes "Well, the type of mark";
3266                mes "that was left behind could";
3267                mes "actually serve as some kind";
3268                mes "of clue. What was the mark";
3269                mes "on the victim's body?";
3270                next;
3271                mes "["+strcharinfo(0)+"]";
3272                mes "We're not sure if";
3273                mes "poison was used yet,";
3274                mes "but there are marks that";
3275                mes "look like snake scales";
3276                mes "left on the bodies.";
3277                next;
3278                mes "[Marjana]";
3279                mes "Hmm. You know, if I had";
3280                mes "to guess, I would say that";
3281                mes "poison was probably used.";
3282                mes "But the poison would have";
3283                mes "to originate from outside of";
3284                mes "the Rune-Midgarts Kingdom...";
3285                next;
3286                mes "[Marjana]";
3287                mes "Yeah...";
3288                mes "The materials used to";
3289                mes "make those snake scale";
3290                mes "marks... Some of them can't";
3291                mes "even be found here on the";
3292                mes "Rune-Midgard continent.";
3293                next;
3294                mes "[Marjana]";
3295                mes "We're running out of time.";
3296                mes "Listen, you can confirm whether";
3297                mes "poison was used to kill someone";
3298                mes "by mixing a Yellow Gemstone with a Green Potion, and sprinkling";
3299                mes "the solution on the body.";
3300                next;
3301                mes "[Marjana]";
3302                mes "If poison was used, the";
3303                mes "solution with react with";
3304                mes "the body. But this method";
3305                mes "won't work if too much time";
3306                mes "has passed after the murder.";
3307                mes "You better try this soon...";
3308                set prt_curse,25;
3309                close;
3310        }
3311
3312OnInit:
3313        disablenpc "Marjana#poison";
3314        end;
3315
3316OnEnable:
3317        enablenpc "Marjana#poison";
3318        end;
3319}
3320
3321morocc,45,103,0 script  #prtcurse       -1,2,2,{
3322OnTouch:
3323        if (prt_curse == 25) {
3324                mes "["+strcharinfo(0)+"]";
3325                mes "Hm. I'd better review";
3326                mes "the facts I've learned so";
3327                mes "that I can better focus on";
3328                mes "this investigation. Let's see~";
3329                next;
3330                mes "["+strcharinfo(0)+"]";
3331                mes "Long ago, the giant serpent";
3332                mes "Jormungand threatened mankind.";
3333                mes "7 warriors defeated Jormungand, led by Tristram III of the Gaebolg";
3334                mes "family, but Jormungand cursed the Gaebolg bloodline in its defeat.";
3335                next;
3336                mes "["+strcharinfo(0)+"]";
3337                mes "Ever since, the curse kills";
3338                mes "the first born prince of the";
3339                mes "Gaebolg family at an early age.";
3340                mes "However, all of the princes of";
3341                mes "this generation were killed.";
3342                next;
3343                mes "["+strcharinfo(0)+"]";
3344                mes "According to what I've";
3345                mes "learned from that assassin,";
3346                mes "the first prince died from the";
3347                mes "curse, and the other two may";
3348                mes "have died from poisoning.";
3349                next;
3350                mes "["+strcharinfo(0)+"]";
3351                mes "It's most likely that if";
3352                mes "poison was used, then the";
3353                mes "person who used it was an";
3354                mes "assassin from outside of the";
3355                mes "Rune-Midgarts Kingdom. Yes,";
3356                mes "that's about everything I know.";
3357                next;
3358                mes "["+strcharinfo(0)+"]";
3359                mes "Now, that historian Rodafrian";
3360                mes "has been waiting for me to tell";
3361                mes "her the lyrics of that song, but Father Bamph is also waiting";
3362                mes "for the info I've learned from the Assassin Guild. What should I do?";
3363                next;
3364                if (select("Go to Rodafrian:Go to Father Bamph") == 1) {
3365                        mes "["+strcharinfo(0)+"]";
3366                        mes "Well, it's easier for me";
3367                        mes "to visit Rodafrian now.";
3368                        mes "She's much closer than";
3369                        mes "Father Bamph, so I guess";
3370                        mes "that I'll go talk to her first.";
3371                        set prt_curse,30;
3372                        close;
3373                }
3374                mes "["+strcharinfo(0)+"]";
3375                mes "Well, it's more important";
3376                mes "that I go see Father Bamph";
3377                mes "and investigate the princes'";
3378                mes "bodies. I better head over";
3379                mes "to Prontera right away.";
3380                set prt_curse,50;
3381                close;
3382        }
3383}
3384
3385prt_in,162,99,4 script  Librarian#curse 67,{
3386        if (checkweight(1201,1) == 0) {
3387                mes "^3355FFWait a second!";
3388                mes "Right now, you're carrying";
3389                mes "too many things with you.";
3390                mes "Please come back after";
3391                mes "using the Kafra Service";
3392                mes "to store some of your items.";
3393                close;
3394        }
3395        if (prt_curse == 3) {
3396                if (countitem(7431) < 1) {
3397                        mes "[Librarian]";
3398                        mes "Please make sure to return";
3399                        mes "library books to the correct";
3400                        mes "place after you use them.";
3401                        mes "We don't have enough staff";
3402                        mes "to organize all these books...";
3403                        next;
3404                        if (select("Report the loss of the books:End Conversation") == 1) {
3405                                mes "[Librarian]";
3406                                mes "Oh, you lost some books?";
3407                                mes "Please write down the book";
3408                                mes "titles and pay the 700 zeny";
3409                                mes "penalty charge. Aftewards,";
3410                                mes "we will provide you with";
3411                                mes "replacement copies.";
3412                                next;
3413                                if (zeny > 699) {
3414                                        mes "[Librarian]";
3415                                        mes "Ah, here you are.";
3416                                        mes "Please take these";
3417                                        mes "replacement copies,";
3418                                        mes "and try not to lose";
3419                                        mes "them again. Thank you.";
3420                                        set zeny,zeny-700;
3421                                        getitem 7431,1; //Books
3422                                        close;
3423                                }
3424                                mes "[Librarian]";
3425                                mes "Hmm...";
3426                                mes "Come back as soon";
3427                                mes "as you can with the";
3428                                mes "700 zeny to pay the";
3429                                mes "lost book penalty charge.";
3430                                close;
3431                        }
3432                        mes "[Librarian]";
3433                        mes "Please keep silent";
3434                        mes "while inside the library.";
3435                        mes "Thank you for cooperating.";
3436                        close;
3437                }
3438                else {
3439                        mes "[Librarian]";
3440                        mes "Being a librarian can";
3441                        mes "be pretty rough. People";
3442                        mes "just leave the books all";
3443                        mes "scattered, but expect them";
3444                        mes "to be organized. Ooh, books";
3445                        mes "are always getting lost too...";
3446                        next;
3447                        mes "[Librarian]";
3448                        mes "When you have";
3449                        mes "to clean up their";
3450                        mes "messes, you get to";
3451                        mes "realize how sloppy";
3452                        mes "people can really be.";
3453                        close;
3454                }
3455        }
3456        else {
3457                mes "[Librarian]";
3458                mes "Being a librarian can";
3459                mes "be pretty rough. People";
3460                mes "just leave the books all";
3461                mes "scattered, but expect them";
3462                mes "to be organized. Ooh, books";
3463                mes "are always getting lost too...";
3464                next;
3465                mes "[Librarian]";
3466                mes "When you have";
3467                mes "to clean up their";
3468                mes "messes, you get to";
3469                mes "realize how sloppy";
3470                mes "people can really be.";
3471                close;
3472        }
3473}
Note: See TracBrowser for help on using the browser.