root/npc/quests/quests_umbala.txt

Revision 1, 37.5 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Quest NPCs related to Umbala
3//===== By: ==================================================
4//= sabernet09 & eAthena Team
5//===== Current Version: =====================================
6//= 2.1
7//===== Compatible With: =====================================
8//= eAthena 7.15 +
9//===== Description: =========================================
10//= [Aegis Conversion]
11//= Umbalian Language Quest, Umbala Skeletal Gate Quest,
12//= Umbala Event, Create Essence/Dismantle Stone
13//      Phase1.Learning the Language
14//      1       (Elder)First discussion
15//      2       (Elder)Asking about learning the language
16//      3       (Elder)Final step (understanding NPC speech)
17//      ------------------------------------------
18//      Phase2.Create Essence/Dismantle Stone
19//      4       (Shaman)Get permission to speak with her from the chief
20//      5       (Elder)Ask about conditions needed to be fulfilled to get permission
21//      6       (Elder)Get permission
22//      7       (Shaman)Use the shaman to create essences and dismantle elemental stones.
23//= Umbala Domestic Dispute?
24//= - This quest is only avaliable if you ahve not done language quest.
25//= - Variables in use: um_wind, MISC_QUEST (Bit 32768)
26//===== Additional Comments: =================================
27//= fixed by x[tsk], Lupus, PoW
28//= Quest completion is now registered
29//= 1.1 fixed Poporing Egg ID -> Poring Egg, fixed condition
30//= 1.2-1.6 fixed some Umbalian Language quests [Lupus]
31//= 1.7 Moved Umbala Event, Create Essence/Dismantle Stone, and Skeletal Gate from npc/cities/umbala.txt [Evera]
32//= 1.7a Removed all custom quests to custom folder [Lupus]
33//= 1.8 Added official chance of failure to Create Essence/Dismantle Stone [Lupus]
34//= 1.9 Added functionality to allow players to dismantle more
35//= than a stone at once, up to 10. [SinSloth]
36//= 2.0 Updated hack check and added a weight check to dismantling. [SinSloth]
37//= 2.1 Rescripted to Aegis 10.3 standards. Added strange quest. [L0ne_W0lf]
38//============================================================
39
40//==============================================================================
41// Umbala Language Quest
42//==============================================================================
43um_in,39,122,5  script  Utan Chief      784,{
44        if (event_umbala == 0) {
45                mes "[Karkatan]";
46                mes "Huh huh, a Rune-Midgardian.";
47                mes "I guess this is your first";
48                mes "visit to my village, isn't it?";
49                next;
50                mes "[Karkatan]";
51                mes "Everyone from Rune-Midgard";
52                mes "that I've met had the same";
53                mes "same expression on their";
54                mes "face as you do right now";
55                mes "when they first came here.";
56                next;
57                mes "[Karkatan]";
58                mes "Maybe it's because they cannot";
59                mes "communicate with us due to";
60                mes "the language barrier, so";
61                mes "they have no idea what's going";
62                mes "on. Yeah, I understand...";
63                mes "Anyway, welcome to my village.";
64                next;
65                mes "[Karkatan]";
66                mes "My name is Karkatan, and I";
67                mes "am the chief of the Utan tribe.";
68                mes "You must be wondering how";
69                mes "I can speak your language.";
70                next;
71                mes "[Karkatan]";
72                mes "It was taught to me long ago";
73                mes "by an adventurer from your";
74                mes "land. It's been a long time,";
75                mes "and I do not know what has";
76                mes "become of him...";
77                next;
78                mes "[Karkatan]";
79                mes "Anyhow, I learned many things";
80                mes "about Rune-Midgardian culture";
81                mes "and language.";
82                next;
83                mes "[Karkatan]";
84                mes "Sometimes, I teach the Utan";
85                mes "langauge, but I do not give";
86                mes "everyone that privilege.";
87                mes "If unscrupulous outsiders";
88                mes "learn the Utan language, they";
89                mes "may bring harm to my tribe.";
90                next;
91                mes "[Karkatan]";
92                mes "Before you can learn the Utan";
93                mes "language, first try to learn";
94                mes "Utan culture by exploring our";
95                mes "village.";
96                next;
97                mes "[Karkatan]";
98                mes "Although you are not able to";
99                mes "communicate with my people";
100                mes "right now, try to understand";
101                mes "our way of life through your";
102                mes "observations.";
103                next;
104                mes "[Karkatan]";
105                mes "Pay attention to the dress,";
106                mes "appearance and life style of the";
107                mes "local people. When you think";
108                mes "you understand enough about Utan";
109                mes "culture, come back to me and show me what you have learned.";
110                set event_umbala,1;
111                close;
112        }
113        else if (event_umbala == 1) {
114                mes "[Karkatan]";
115                mes "Oh, it's you again. So...";
116                mes "Have you learned about Utan";
117                mes "culture? I want to hear your";
118                mes "opinion, as well as your impression.";
119                next;
120                mes "[Karkatan]";
121                mes "There are still some villagers";
122                mes "who are very naive about Rune-Midgardians.";
123                mes "Usually, they fear encounters";
124                mes "with your people and will";
125                mes "hide themselves.";
126                next;
127                mes "[Karkatan]";
128                mes "So...";
129                mes "May I help you with anything?";
130                mes "I assume you did not have much of";
131                mes "a problem looking around the";
132                mes "village, but it seems you have something to ask of me.";
133                next;
134                switch(select("I want to learn Utan language.:Umbabah Umbabah?:Nothing.")) {
135                case 1:
136                        if (isequipped(2278) || isequipped(2297) || isequipped(2288) || isequipped(2292) || isequipped(5005) || isequipped(2281) || isequipped(5043)) {
137                                mes "[Karkatan]";
138                                mes "Hmmm...That's an awesome mask";
139                                mes "you're wearing. We Utans like";
140                                mes "wearing masks to keep from";
141                                mes "showing our facial expressions.";
142                                next;
143                                mes "[Karkatan]";
144                                mes "That's why we wear masks all the";
145                                mes "time. We believe that interaction";
146                                mes "and treatment of other people";
147                                mes "should not depend on how we look.";
148                                next;
149                                mes "[Karkatan]";
150                                mes "Alright. I am sure you are";
151                                mes "qualified to learn the Utan";
152                                mes "language. I will teach you how";
153                                mes "speak and to read in Utan from";
154                                mes "now on.";
155                                next;
156                                mes "[Karkatan]";
157                                mes "However, I need you to get some";
158                                mes "items ready so that we may proceed";
159                                mes "with the lessons. First, we need";
160                                mes "two different kinds of paper.";
161                                mes "^3377FF10 Oil Paper^000000 and ";
162                                mes "^3377FF5 Slick Paper^000000.";
163                                next;
164                                mes "[Karkatan]";
165                                mes "We'll also need something to";
166                                mes "write with. Let's use";
167                                mes "^3377FF1 Squid Ink^000000 and";
168                                mes "^3377FF1 Feather of Birds^000000.";
169                                mes "Please bring me those, and I will";
170                                mes "teach you when you're ready.";
171                                set event_umbala,2;
172                                close;
173                        }
174                        else {
175                                mes "[Karkatan]";
176                                mes "You don't seem to understand";
177                                mes "our culture yet. You cannot";
178                                mes "learn another language if you";
179                                mes "do not understand the culture.";
180                                next;
181                                mes "[Karkatan]";
182                                mes "When you have that expression on";
183                                mes "your face, Utans will be";
184                                mes "intimidated... Since we do";
185                                mes "not show our faces to others,";
186                                mes "we are actually very";
187                                mes "vulnerable to facial expression.";
188                                next;
189                                mes "[Karkatan]";
190                                mes "Go explore the village a little";
191                                mes "longer. You can come back";
192                                mes "anytime when you think you're ready.";
193                                next;
194                                mes "[Karkatan]";
195                                mes "In any case, what do you think";
196                                mes "about my mask? It's the current";
197                                mes "trend among us Utans...don't you";
198                                mes "think it's awesome?";
199                                close;
200                        }
201                case 2:
202                        mes "[Karkatan]";
203                        mes "Haha~ When you're just imitating";
204                        mes "the sound, you won't make any";
205                        mes "sense. Language is a mutual system";
206                        mes "for the communication of thoughts and feelings.";
207                        next;
208                        mes "[Karkatan]";
209                        mes "I regret to say that it seems that";
210                        mes "nowadays, all peoples are no";
211                        mes "longer sensitive to other cultures";
212                        mes "in that respect.";
213                        next;
214                        mes "[Karkatan]";
215                        mes "I see people that despise or";
216                        mes "ridicule others that do not";
217                        mes "understand them. It's really";
218                        mes "sad that such bigotry still exists...";
219                        next;
220                        mes "[Karkatan]";
221                        mes "If you are interested in Utan";
222                        mes "language, try to understand our";
223                        mes "culture better and come back";
224                        mes "when you're ready. I will";
225                        mes "teach you the meanings of those sounds you are using.";
226                        close;
227                case 3:
228                        mes "[Karkatan]";
229                        mes "Sometimes it's good to wander";
230                        mes "without purpose. But it's";
231                        mes "better to set a goal for";
232                        mes "a journey if you want to";
233                        mes "learn something out of";
234                        mes "the experience.";
235                        close;
236                }
237        }
238        else if (event_umbala == 2) {
239                if ((countitem(7151) > 9) && (countitem(7111) > 4) && (countitem(1024) > 0) && (countitem(916) > 0)) {
240                        mes "[Karkatan]";
241                        mes "Okay, I guess we're good to go.";
242                        mes "Let's get the lesson started.";
243                        mes "I hope you will communicate better";
244                        mes "with Utans when we are done.";
245                        next;
246                        mes "[Karkatan]";
247                        mes "..............";
248                        next;
249                        mes "[Karkatan]";
250                        mes "..............";
251                        mes ".....................";
252                        next;
253                        mes "[Karkatan]";
254                        mes "..............";
255                        mes ".....................";
256                        mes "............................";
257                        next;
258                        mes "[Karkatan]";
259                        mes "Alright, that's all. Just forget";
260                        mes "about how you've felt about Utans";
261                        mes "before you learned the language.";
262                        mes "Now go try to talk to Utans.";
263                        mes "Conversation is a very important method in understanding others.";
264                        delitem 7151,10; //Oil_Paper
265                        delitem 7111,5; //Smooth_Paper
266                        delitem 1024,1; //Chinese_Ink
267                        delitem 916,1; //Feather_Of_Birds
268                        set event_umbala,3;
269                        next;
270                        mes "[Karkatan]";
271                        mes "Okay, if you have any business";
272                        mes "in our village later, feel free";
273                        mes "to talk to me. I will try to help";
274                        mes "you as much as I can.";
275                        close;
276                }
277                else {
278                        mes "[Karkatan]";
279                        mes "I guess you are not ready yet...";
280                        mes "Did you forget what items you";
281                        mes "need? I will let you know";
282                        mes "again, so please bring them";
283                        mes "so that we can start the lesson.";
284                        next;
285                        mes "[Karkatan]";
286                        mes "^3377FF10 Oil Paper^000000,";
287                        mes "^3377FF5 Slick Paper^000000,";
288                        mes "^3377FF1 Squid Ink^000000,";
289                        mes "^3377FF1 Feather of Birds^000000.";
290                        mes "When you bring all of these,";
291                        mes "I will teach you our language.";
292                        close;
293                }
294        }
295        else if (event_umbala >= 3) {
296                if (event_umbala == 4) {
297                        mes "[Karkatan]";
298                        mes "Puchuchartan must have sent you to";
299                        mes "me. I need to check whether or not";
300                        mes "you are qualified to request";
301                        mes "her help...We Utans do not want";
302                        mes "to help evil people.";
303                        next;
304                        mes "[Karkatan]";
305                        mes "Hmmmm....";
306                        mes "It would be good to have a mask";
307                        mes "that was made in Rune-Midgard...";
308                        next;
309                        mes "[Karkatan]";
310                        mes "I wish to have ^3377FF1 Mr. Smile^000000.";
311                        mes "To Utans, receiving a mask as a";
312                        mes "present is considered an";
313                        mes "honor. Maybe Puchuchartan";
314                        mes "wants you to show us your respect by doing so.";
315                        set event_umbala,5;
316                        close;
317                }
318                else if (event_umbala == 5) {
319                        if (countitem(2278) > 0) {
320                                mes "[Karkatan]";
321                                mes "Oh, you brought it! Yes, I've";
322                                mes "always wished that I could have";
323                                mes "this mask! This is truly an";
324                                mes "honor! Thank you, adventurer";
325                                mes "from Rune-Midgard.";
326                                next;
327                                mes "[Karkatan]";
328                                mes "I will tell Puchuchartan that I";
329                                mes "confirmed your qualification.";
330                                mes "Go and speak to her. Though I";
331                                mes "am not sure what help she can give";
332                                mes "you, I hope we will be able to return this favor.";
333                                delitem 2278,1; //Mr_Smile
334                                set event_umbala,6;
335                                close;
336                        }
337                        else {
338                                mes "[Karkatan]";
339                                mes "Did I tell you that you need";
340                                mes "^3377FF1 Mr. Smile^000000?";
341                                mes "Please bring that as proof";
342                                mes "of your goodwill, as well";
343                                mes "as your sense of honor.";
344                                close;
345                        }
346                }
347                else {
348                        mes "[Karkatan]";
349                        mes "How's it going?";
350                        mes "I wish I could guide you around";
351                        mes "the village, but I cannot neglect";
352                        mes "my duty as tribal chief.";
353                        next;
354                        mes "[Karkatan]";
355                        mes "Leading a tribe is not as easy";
356                        mes "as it looks. You would understand";
357                        mes "if you were in the same position";
358                        mes "as me. Anyway, I hope you will enjoy your time in our village.";
359                        close;
360                }
361        }
362}
363
364//=====================================================================
365//                    Create Essence/Dismantle Stone
366//=====================================================================
367um_in,44,71,2   script  Utan Shaman     782,{
368        switch(event_umbala) {
369        default:       
370                mes "[??????????]";
371                mes "Umbah umbah umbabah Utan umbah";
372                mes "Umbah mookala umbabah..";
373                mes "Umbabahumbah umbabah";
374                mes "Umbabah umbaba umbaumbah umbah";
375                mes "Hum umbah umbah.";
376                close2;
377                warp "umbala",217,186;
378                end;
379        case 3:
380                mes "[Puchuchartan]";
381                mes "I did not expect that even";
382                mes "more of you Rune-Midgardians";
383                mes "would find my village. I am";
384                mes "afraid that Mother Earth may";
385                mes "be caused suffering because";
386                mes "of this...";
387                next;
388                mes "[Puchuchartan]";
389                mes "You Rune-Midgardians are a very";
390                mes "evil tribe...always accomplishing";
391                mes "your goals whether the means are";
392                mes "foul or fair, never hesitating to";
393                mes "ruin the property of others to get";
394                mes "what you want.";
395                next;
396                mes "[Puchuchartan]";
397                mes "I am worried how continuing";
398                mes "contact with the outside world";
399                mes "will affect our future...";
400                next;
401                mes "[Puchuchartan]";
402                mes "No one from Rune-Midgard has ";
403                mes "visited me without some purpose";
404                mes "and I do not think that you";
405                mes "are an exception.";
406                next;
407                mes "[Puchuchartan]";
408                mes "I only use my power for the";
409                mes "service of my tribe, and do not";
410                mes "give my aid to strangers. If you";
411                mes "really need my help, go ask for";
412                mes "the chief's permission.";
413                next;
414                mes "[Puchuchartan]";
415                mes "Also, I do not approve of";
416                mes "outsiders talking to the tribe";
417                mes "more than they have to...";
418                mes "We want to live a peaceful life, so do not disturb us.";
419                set event_umbala,4;
420                close;
421        case 4:
422        case 5:
423                mes "[Puchuchartan]";
424                mes "I already told you to get the";
425                mes "chief's approval. There is also";
426                mes "the matter of my own business to take care of.";
427                next;
428                mes "[Puchuchartan]";
429                mes "I know that you have gone through";
430                mes "many difficulties to come here,";
431                mes "but you have to leave now.";
432                close;
433        case 6:
434                mes "[Puchuchartan]";
435                mes "I've heard from the chief that he";
436                mes "has given you his approval...";
437                mes "Although I do not like this, I";
438                mes "will keep my promise. But it's";
439                mes "your call if you really need my help or not.";
440                next;
441                mes "[Puchuchartan]";
442                mes "My power allows me to create rough";
443                mes "enchanted stones and to divide a";
444                mes "pure enchanted stone into rough";
445                mes "ones. So I may be able to help";
446                mes "you in this way.";
447                next;
448                mes "[Puchuchartan]";
449                mes "So come and speak to me when";
450                mes "you think my power may be";
451                mes "of service to you.";
452                set event_umbala,7;
453                close;
454        case 7:
455                mes "[Putsuchiritan]";
456                mes "I don't know whether my talents";
457                mes "will be useful to you, but I'll";
458                mes "help you anyway.";
459                next;
460                mes "[Putsuchiritan]";
461                mes "I can create elemental essence from natural objects,";
462                mes "or, dismantle elemental stones into their component essences.";
463                mes "Which would you like to do?";
464        }
465        next;
466        mes "[Puchuchartan]";
467        mes "Rune-Midgardian who has asked for";
468        mes "my help...Although I am not sure";
469        mes "if you really need my power, I";
470        mes "will try to provide my assistance.";
471        next;
472        if (checkweight(1101,10) == 0) {
473                mes "[Puchuchartan]";
474                mes "Wait--!";
475                mes "something in your possession";
476                mes "is disturbing my peace of";
477                mes "mind. This will not do...";
478                next;
479                mes "[Puchuchartan]";
480                mes "Go leave your belongings";
481                mes "elsewhere, and only bring the";
482                mes "items that you need right now.";
483                next;
484                mes "[Puchuchartan]";
485                mes "If you refuse to do so,";
486                mes "I cannot do anything for you.";
487                mes "Get yourself ready and then";
488                mes "come back.";
489                close;
490        }
491        mes "[Puchuchartan]";
492        mes "Now, what do you wish to do?";
493        mes "My power allows me to create rough";
494        mes "enchanted stones and to divide a";
495        mes "pure enchanted stone into rough ones.";
496        next;
497        switch (select("Create rough enchanted stones:Divide a pure enchanted stone:Quit.")) {
498        case 1:
499                mes "[Puchuchartan]";
500                mes "Do you wish to create rough";
501                mes "enchanted stones? Which";
502                mes "property do you wish to create?";
503                mes "Earth, Water, Fire, Wind...";
504                mes "...choose one.";
505                next;
506                switch (select("Earth:Water:Fire:Wind")) {
507                case 1:
508                        set .@consume,947; //Horn
509                        set .@amount,15;
510                        set .@success,993; //Yellow_Live
511                        break;
512                case 2:
513                        set .@consume,946; //Snail's_Shell
514                        set .@amount,20;
515                        set .@success,991; //Crystal_Blue
516                        break;
517                case 3:
518                        set .@consume,904; //Scorpion's_Tail
519                        set .@amount,20;
520                        set .@success,990; //Boody_Red
521                        break;
522                case 4:
523                        set .@consume,1013; //Colorful_Shell
524                        set .@amount,25;
525                        set .@success,992; //Wind_Of_Verdure
526                        break;
527                }
528                if (countitem(.@consume) >= .@amount) {
529                        mes "[Puchuchartan]";
530                        mes "I will try to amplify the hidden";
531                        mes "power of natural objects in";
532                        mes "order to create rough enchanted";
533                        mes "stones. Choose one number from";
534                        mes "'1' to '9.' If you wish to cancel";
535                        mes "this request, enter '0.'";
536                        next;
537                        while(1) {
538                                input .@input,0,10;
539                                if (.@input == 0) {
540                                        mes "[Puchuchartan]";
541                                        mes "I see. It's your call.";
542                                        mes "Come back when you need me.";
543                                        close;
544                                }
545                                else if (.@input > 9) {
546                                        mes "[Puchuchartan]";
547                                        mes "Remember to choose a number";
548                                        mes "from 1 to 9.";
549                                        next;
550                                }
551                                else {
552                                        break;
553                                }
554                        }
555                        mes "[Puchuchartan]";
556                        switch(.@success) {
557                        case 990:
558                                mes "I am putting these tails into a"; break;
559                        case 991:
560                                mes "I am putting these shells into a"; break;
561                        case 992:
562                                mes "I am putting these shells into a"; break;
563                        case 993:
564                                mes "I am putting these horns into a"; break;
565                        }
566                        mes "boiling pot, and casting a";
567                        mes "sacred incantation. Remember";
568                        mes "the number you entered.";
569                        next;
570                        mes "[Puchuchartan]";
571                        mes "Amba Omba Zatumba! Umba! Ti!";
572                        mes "Umputaun Eulukaba! Umba! Ha!";
573                        mes "Julu Humba Rulala! Umba! La!";
574                        mes "Datuha Ombabalaka! Umba! Si!";
575                        mes "Sunutaba Abulumba! Umba! Si!";
576                        next;
577                        if (rand(1,10) == 1) {
578                                mes "[Puchuchartan]";
579                                mes "I guess my power was not enough.";
580                                mes "The natural power I gathered with";
581                                mes "my spell lost focus and was scattered...";
582                                delitem .@consume,.@amount;
583                                getitem 910,1; //Garlet
584                                next;
585                                mes "[Puchuchartan]";
586                                mes "It seems the spirits of nature";
587                                mes "were not in harmony at the moment.";
588                                mes "However, if you come back later,";
589                                mes "I will try to help you. Of course,";
590                                mes "there will still be the same possibility that I may fail.";
591                                close;
592                        }
593                        else {
594                                mes "[Puchuchartan]";
595                                mes "Here's the enchanted stone you";
596                                mes "wished to have. I created this";
597                                mes "with a lot of effort, so make";
598                                mes "good use of it.";
599                                delitem .@consume,.@amount;
600                                getitem .@success,1;
601                                close;
602                        }
603                }
604                else {
605                        mes "[Puchuchartan]";
606                        switch (.@success) {
607                        case 990:
608                                mes "Fire property...";
609                                mes "I will need natural";
610                                        mes "objects that are filled with";
611                                mes "the spirit of fire.";
612                                next;
613                                mes "[Puchuchartan]";
614                                mes "Scorpion which endures the";
615                                mes "blazing heat of the desert";
616                                mes "is brimming with fire energy.";
617                                mes "I need ^3377FF20 Scorpion Tails^000000.";
618                                break;
619                        case 991:
620                                mes "Water property...";
621                                mes "I will need natural";
622                                mes "objects that are filled with";
623                                mes "the spirit of water.";
624                                next;
625                                mes "[Puchuchartan]";
626                                mes "Ambernite...the spirit of";
627                                mes "water is contained within its";
628                                mes "protective shell...";
629                                mes "I will need ^3377FF20 Snail's Shell.^000000";
630                                break;
631                        case 992:
632                                mes "Wind property...";
633                                mes "I will need natural";
634                                mes "objects that are filled with";
635                                mes "the spirit of wind.";
636                                next;
637                                mes "[Puchuchartan]";
638                                mes "Stainer...the beetle";
639                                mes "that flies through the sky";
640                                mes "has the wind's spirit.";
641                                mes "I need ^3377FF25 Rainbow Shells^000000.";
642                                break;
643                        case 993:
644                                mes "Earth property...I need natural";
645                                mes "objects that are filled with";
646                                mes "the spirit of the Earth.";
647                                next;
648                                mes "[Puchuchartan]";
649                                mes "Horn...that dwells in the forest";
650                                mes "is filled with the spirits of";
651                                mes "earth and wood...Horn...";
652                                mes "I need ^3377FF15 Horn^000000 from Horns.";
653                                break;
654                        }
655                        mes "[Puchuchartan]";
656                        mes "That's all I need...";
657                        mes "Come back when";
658                        mes "you're ready.";
659                        mes "I will be here.";
660                        close;
661                }
662        case 2:
663                mes "[Puchuchartan]";
664                mes "Do you wish to divide a pure";
665                mes "enchanted stone into rough ones?";
666                mes "Which property do you want to";
667                mes "divide? Earth, Water, Fire, Wind... ";
668                mes "Choose one.";
669                next;
670                switch(select("Earth:Water:Fire:Wind")) {
671                case 1:
672                        set .@divide,997; //Great_Nature
673                        break;
674                case 2:
675                        set .@divide,995; //Mistic_Frozen
676                        break;
677                case 3:
678                        set .@divide,994; //Flame_Heart
679                        break;
680                case 4:
681                        set .@divide,996; //Rough_Wind
682                        break;
683                }
684                if (countitem(.@divide) > 0) {
685                        mes "[Puchuchartan]";
686                        mes "Let me try to return the enchanted";
687                        mes "stone to its rough form...";
688                        mes "Choose a number from 1 to 9.";
689                        mes "If you wish to cancel this";
690                        mes "request, enter 0.";
691                        next;
692                        while(1) {
693                                input .@input,0,10;
694                                if (.@input == 0) {
695                                        mes "[Puchuchartan]";
696                                        mes "I see. It's your call.";
697                                        mes "Come back when you need me.";
698                                        close;
699                                }
700                                else if (.@input > 9) {
701                                        mes "[Puchuchartan]";
702                                        mes "Remember to choose a number";
703                                        mes "from 1 to 9.";
704                                        next;
705                                }
706                                else {
707                                        break;
708                                }
709                        }
710                        mes "[Puchuchartan]";
711                        mes "I will now cast a sacred";
712                        mes "incantation. Remember the number you entered.";
713                        next;
714                        mes "[Puchuchartan]";
715                        mes "Umba Umba Kalapum! Umba! Ta!";
716                        mes "Lukura Ukulele Um! Umba! Ka!";
717                        mes "Abulaka Tabulakan! Umba! La!";
718                        mes "Ombaludu Zan Kunu! Umba! Ku!";
719                        mes "Kum Tum Lakulakun! Umba! Ha!";
720                        next;
721                        mes "[Puchuchartan]";
722                        mes "Here's the rough enchanted stones";
723                        mes "you wished to have. I created this";
724                        mes "with a lot of effort, so make good";
725                        mes "use of them.";
726                        delitem .@divide,1;
727                        switch(.@divide) {
728                        case 994:
729                                set .@shaman_p,rand(1,10);
730                                if (.@shaman_p == 1) {
731                                        getitem 990,10; //Boody_Red
732                                }
733                                else if (.@shaman_p == 2 || .@shaman_p == 3) {
734                                        getitem 990,8; //Boody_Red
735                                }
736                                else if (.@shaman_p >= 4 && .@shaman_p == 6) {
737                                        getitem 990,7; //Boody_Red
738                                }
739                                else {
740                                        getitem 990,6; //Boody_Red
741                                }
742                                close;
743                        case 995:
744                                set .@shaman_p,rand(1,10);
745                                if (.@shaman_p == 1) {
746                                        getitem 991,10; //Crystal_Blue
747                                }
748                                else if (.@shaman_p == 2 || .@shaman_p == 3) {
749                                        getitem 991,8; //Crystal_Blue
750                                }
751                                else if (.@shaman_p >= 4 && .@shaman_p <= 6) {
752                                        getitem 991,7; //Crystal_Blue
753                                }
754                                else {
755                                        getitem 991,6; //Crystal_Blue
756                                }
757                                close;
758                        case 996:
759                                set .@shaman_p,rand(1,10);
760                                if (.@shaman_p == 1) {
761                                        if (rand(1,2) == 1) {
762                                                getitem 992,10; //Wind_Of_Verdure
763                                        }
764                                        else {
765                                                getitem 992,6; //Wind_Of_Verdure
766                                        }
767                                }
768                                else if (.@shaman_p == 2 || .@shaman_p == 3) {
769                                        getitem 992,8; //Wind_Of_Verdure
770                                }
771                                else if (.@shaman_p >= 4 && .@shaman_p == 6) {
772                                        getitem 992,7; //Wind_Of_Verdure
773                                }
774                                else {
775                                        getitem 992,6; //Wind_Of_Verdure
776                                }
777                                close;
778                        case 997:
779                                set .@shaman_p,rand(1,5);
780                                if (.@shaman_p == 1) {
781                                        getitem 993,10; //Yellow_Live
782                                }
783                                else if (.@shaman_p == 2) {
784                                        getitem 993,8; //Yellow_Live
785                                }
786                                else if (.@shaman_p >= 3 || .@shaman_p <= 4) {
787                                        getitem 993,7; //Yellow_Live
788                                }
789                                else {
790                                        if (rand(1,2) == 1) {
791                                                getitem 993,6; //Yellow_Live
792                                        }
793                                        else {
794                                                getitem 993,7; //Yellow_Live
795                                        }
796                                }
797                                close;
798                        }
799                }
800                else {
801                        mes "[Puchuchartan]";
802                        mes "So, you wish to have rough";
803                        switch(.@divide) {
804                        case 994:
805                                mes "fire stones? Then I will need";
806                                mes "you to bring a pure fire stone.";
807                                break;
808                        case 995:
809                                mes "water stones? Then I'll need";
810                                mes "you to bring a pure water stone.";
811                                break;
812                        case 996:
813                                mes "wind stones? Then I will need";
814                                mes "you to bring a pure wind stone.";
815                                break;
816                        case 997:
817                                mes "earth stones? Then I'll need";
818                                mes "you to bring a pure earth stone.";
819                                break;
820                        }
821                        mes "^3377FF1 "+getitemname(.@divide)+"^000000.";
822                        next;
823                        mes "[Puchuchartan]";
824                        mes "That's all I need...";
825                        mes "Come back when";
826                        mes "you're ready.";
827                        mes "I will be here.";
828                        close;
829                }
830        case 3:
831                mes "[Puchuchartan]";
832                mes "I see. It's your call.";
833                mes "Come back when you need me.";
834                close;
835        }
836}
837
838umbala,221,193,1        script  #Skulldoor      111,{
839        if (event_umbala >= 7) {
840                warp "um_in",32,71;
841                end;
842        }
843        else {
844                mes "^3355FFA human skull disturbingly";
845                mes "hangs beside the door. The door is";
846                mes "locked tight, so you can't get in.";
847                mes "As you peer through the keyhole,";
848                mes "you can see somebody moving inside the room.^000000";
849                next;
850                if (select("Examine the skull.:Quit.") == 1) {
851                        mes "^3355FFYou see that the eye sockets";
852                        mes "of the skull are empty.";
853                        mes "How peculiar...";
854                        mes "It seems that Gemstones";
855                        mes "would fit perfectly inside of";
856                        mes "them.^000000";
857                        next;
858                        mes "^3355FFYou see the left eye socket of the";
859                        mes "skull. What do you want to do?^000000";
860                        next;
861                        switch(select("Leave it as it is.:Insert a Blue Gemstone.:Insert a Yellow Gemstone.:Insert a Red Gemstone.")) {
862                        case 1:
863                                mes "^3355FFYou left the eye socket as it was.^000000";
864                                next;
865                                break;
866                        case 2:
867                                set .@insert,717;
868                                break;
869                        case 3:
870                                set .@insert,715;
871                                break;
872                        case 4:
873                                set .@insert,716;
874                                break;
875                        }
876                        if (.@insert) {
877                                if (countitem(.@insert) > 0) {
878                                        mes "^3355FFYou inserted a "+getitemname(.@insert)+"";
879                                        mes "into the eye socket.^000000";
880                                        next;
881                                        mes "^3355FFThe gemstone rolled back out of";
882                                        mes "the mouth of the skull.^000000";
883                                        set .@skulldoor,.@skulldoor+1;
884                                        switch (.@insert) {
885                                        case 715: set .@skull,2; break;
886                                        case 716: set .@skull,3; break;
887                                        case 717: set .@skull,1; break;
888                                        }
889                                        delitem .@insert,1;
890                                        getitem .@insert,1;
891                                        next;
892                                }
893                                else {
894                                        mes "^3355FFYou forgot to carry "+getitemname(.@insert)+"";
895                                        mes "with you. So you couldn't do what you";
896                                        mes "had intended.^000000";
897                                        next;
898                                }
899                        }
900                        mes "^3355FFYou see the right eye socket of";
901                        mes "the skull. What do you want to do?^000000";
902                        next;
903                        switch(select("Leave it as it is.:Insert a Blue Gemstone.:Insert a Yellow Gemstone.:Insert a Red Gemstone.")) {
904                        case 1:
905                                mes "^3355FFYou left the eye socket as it was.^000000";
906                                next;
907                                break;
908                        case 2:
909                                set .@insert2,717;
910                                break;
911                        case 3:
912                                set .@insert2,715;
913                                break;
914                        case 4:
915                                set .@insert2,716;
916                                break;
917                        }
918                        if (.@insert2) {
919                                if (countitem(.@insert2) > 0) {
920                                        mes "^3355FFYou inserted a "+getitemname(.@insert2)+"";
921                                        mes "into the eye socket.^000000";
922                                        next;
923                                        mes "^3355FFThe gemstone rolled back out of";
924                                        mes "the mouth of the skull.^000000";
925                                        if (.@insert2 == .@insert) {
926                                                set .@skulldoor,.@skulldoor+1;
927                                        }
928                                        else {
929                                                set .@skulldoor,.@skulldoor+2;
930                                        }
931                                        delitem .@insert2,1;
932                                        getitem .@insert2,1;
933                                        next;
934                                }
935                                else {
936                                        mes "^3355FFYou forgot to carry "+getitemname(.@insert2)+"";
937                                        mes "with you. So you couldn't do what you";
938                                        mes "had intended.^000000";
939                                        next;
940                                }
941                        }
942                        mes "^3355FF..............................^000000";
943                        next;
944                        mes "^3355FF..............................";
945                        mes "..............................^000000";
946                        next;
947                        mes "^3355FF..............................";
948                        mes "..............................";
949                        mes "..............................^000000";
950                        next;
951                        switch(.@skulldoor) {
952                        case 3:
953                                if (rand(1,4) != 1) {
954                                        set .@skullopen,1;
955                                }
956                                break;
957                        case 2:
958                                if (rand(1,2) == 2) {
959                                        set .@skullopen,1;
960                                }
961                                break;
962                        case 1:
963                                if (rand(1,4) == 1) {
964                                        set .@skullopen,1;
965                                }
966                                break;
967                        default:
968                                break;
969                        }
970                        if (.@skullopen == 0) {
971                                mes "^3355FFNothing happened.";
972                                mes "You have the feeling that the";
973                                mes "skull is grinning at you. But...";
974                                mes "It's probably just a trick of the light.^000000";
975                                close;
976                        }
977                        else {
978                                mes "^3355FFSuddenly, a clicking sound comes";
979                                mes "from the skull's eye sockets and";
980                                mes "the door opens. Before you know";
981                                mes "it, you walk inside as if guided";
982                                mes "by an unseen force...^000000";
983                                close2;
984                                warp "um_in",32,71;
985                                end;
986                        }
987                }
988                mes "^3355FFYou decided to pass by the door.";
989                mes "It looks like it might be too hard to open.^000000";
990                close;
991        }
992}
993
994
995//============================================================
996// Umbala Domestic Dispute
997//============================================================
998um_in,139,48,5  script  Phrenetan       783,{
999        if (event_umbala >= 3) {
1000                mes "[Phrenetan]";
1001                mes "I am so sick and tired of";
1002                mes "my husband!! It's like he";
1003                mes "flirts with every girl";
1004                mes "in the village!";
1005                next;
1006                mes "[Phrenetan]";
1007                mes "If I see him flirting with";
1008                mes "women again...I swear...";
1009                mes "I will show him hell!!";
1010                close;
1011        }
1012        if (BaseJob == Job_Novice && Upper != 2) {
1013                mes "[Phrenetan]";
1014                mes "Umba~ umbaumbah!";
1015                mes "Umbah woomumum!";
1016                mes "Umbah woomum umbabah!";
1017                close;
1018        }
1019        if (um_wind <= 3 && (MISC_QUEST & 32768) == 0) {
1020                if (um_wind) set um_wind,1;
1021                emotion e_an;
1022                mes "[Phrenetan]";
1023                mes "Umbaumbah wooga wooga";
1024                mes "Umbaumbabah babababah!";
1025                mes "Umbaum!";
1026                next;
1027                emotion e_oh;
1028                mes "[Phrenetan]";
1029                mes "Umbah umbaumba umbah";
1030                mes "Umbabababah wooga woo!";
1031                mes "Wooga wooga umbabah umbaum!";
1032                next;
1033                emotion e_go;
1034                close;
1035        }
1036        else if (um_wind == 6 || MISC_QUEST & 32768) {
1037                emotion e_an;
1038                mes "[Phrenetan]";
1039                mes "Umbabah! Umbaumbah.....";
1040                mes "Umbaum Umbaum Wooga wooga!";
1041                mes "Wooga umumum woombababap!!!!!";
1042                next;
1043                emotion e_swt;
1044                close;
1045        }
1046        end;
1047
1048OnEmoteOmg:
1049        emotion e_omg;
1050        end;
1051
1052OnEmoteRock:
1053        emotion e_rock;
1054        end;
1055}
1056
1057um_in,144,45,5  script  Umpokoriohtan   789,{
1058        if (event_umbala >= 3) {
1059                if(rand(1,3) == 2) {
1060                        mes "[Umpokoriohtan]";
1061                        mes "Hey there, cool cat.";
1062                        mes "Don't mind the wife...";
1063                        mes "Much as I love her,";
1064                        mes "I know my obligations, ya dig?";
1065                        next;
1066                        mes "[Umpokoriohtan]";
1067                        mes "If a man's got plenty, he's";
1068                        mes "got to share it with those";
1069                        mes "that got nothing to give.";
1070                        next;
1071                        mes "[Umpokoriohtan]";
1072                        mes "If a man's hands are good";
1073                        mes "at healin', he's got to use";
1074                        mes "those hands to help folks live.";
1075                        next;
1076                        mes "[Umpokoriohtan]";
1077                        mes "If a man's lips be good at";
1078                        mes "singin', he's got to croon the";
1079                        mes "songs we like to hear so much.";
1080                        next;
1081                        mes "[Umpokoriohtan]";
1082                        mes "But if sweet lovin' is golden,";
1083                        mes "then baby...I got the Midas touch.";
1084                        next;
1085                        mes "[Umpokoriohtan]";
1086                        mes "Ooh...!";
1087                        mes "...........";
1088                        mes "My back--!";
1089                        mes "Simmer down, baby, your turn is comin' in a minute~";
1090                        donpcevent "Phrenetan::OnEmoteRock";
1091                        emotion e_swt;
1092                        close;
1093                }
1094                else {
1095                        mes "[Umpokoriohtan]";
1096                        mes "Man...sometimes my wife can";
1097                        mes "be a lil' too rough, maybe";
1098                        mes "even hurtful. But that's cool...";
1099                        mes "it just means she's got fire.";
1100                        next;
1101                        mes "[Umpokoriohtan]";
1102                        mes "But someday, she'll have to";
1103                        mes "learn that I gots to share";
1104                        mes "this heart of mine with the ladies";
1105                        mes "who really need a dose of vitamin";
1106                        mes "lovin', ya dig? It's my obligation.";
1107                        next;
1108                        mes "[Umpokoriohtan]";
1109                        mes "Wainatan, Bertztan, Chabimatan...";
1110                        mes "Those pretty girls been waitin'";
1111                        mes "toooooo long. Don't worry,";
1112                        mes "big daddy's comin' soon.";
1113                        next;
1114                        mes "[Umpokoriohtan]";
1115                        mes "OOOH~! Phrenetan!";
1116                        mes "Baby, why you gotta be rough?";
1117                        mes "Hit me gently, ya dig??";
1118                        mes "I don't mean to hurt you~";
1119                        donpcevent "Phrenetan::OnEmoteOmg";
1120                        emotion e_wah;
1121                        close;
1122                }
1123        }
1124        emotion e_heh;
1125        mes "[Umpokoriohtan]";
1126        mes "Umbaumbah...........";
1127        mes "Umbahwooga woogawoo!";
1128        mes "Umbah umumbabah umbawoo gaga.";
1129        next;
1130        emotion e_an;
1131        close;
1132
1133OnInit:
1134        disablenpc "Umpokoriohtan";
1135        end;
1136}
1137
1138um_in,101,73,3  script  Wainatan        783,{
1139        if (event_umbala >= 3) {
1140                mes "[Wainatan]";
1141                mes "I am sick and tired of this guy";
1142                mes "who always appears at night and bugs the hell out of me...";
1143                next;
1144                mes "[Wainatan]";
1145                mes "'Smooth operator that gets the";
1146                mes "job done?' Oh my god...!";
1147                mes "I hate him with a passion!";
1148                mes "I wish Umpokoriohtan would";
1149                mes "just drop dead.";
1150                close;
1151        }
1152        if (um_wind == 1) {
1153                if (gettime(3) > 18) {
1154                        set um_wind,2;
1155                        emotion e_an;
1156                        mes "[Wainatan]";
1157                        mes "Umbaumbah umgagaga.";
1158                        mes "Umbaumbawoogawoo gababah.";
1159                        mes "Umbahumbabah gawoo.";
1160                        next;
1161                        emotion e_oh;
1162                        mes "[Wainatan]";
1163                        mes "Wooga wooga woogagagah";
1164                        mes "Wogagagah woogagagah";
1165                        mes "Gawoo gawoo gah.";
1166                        close;
1167                }
1168                else {
1169                        mes "[Wainatan]";
1170                        mes "Umbabah! Umbaumbah wooga";
1171                        mes "Woogawooga umbawooga umum.";
1172                        mes "Umbabababababababababah.";
1173                        close;
1174                }
1175        }
1176        else {
1177                mes "[Wainatan]";
1178                mes "Umbaumbah umbaumbah umbah";
1179                mes "Wooga wooga woogawooga wooga";
1180                mes "Umumumum umumumum umum.";
1181                close;
1182        }
1183}
1184
1185um_in,94,123,5  script  Bertztan        783,{
1186        if (event_umbala >= 3) {
1187                mes "[Bertztan]";
1188                mes "...*Sigh* That sicko";
1189                mes "Umpo-whatever! I told him";
1190                mes "I don't like him, but he";
1191                mes "just doesn't listen!";
1192                mes "I wish...I wish he would";
1193                mes "just disappear!";
1194                close;
1195        }
1196        if (um_wind == 2) {
1197                if (gettime(3) > 18) {
1198                        set um_wind,3;
1199                        emotion e_an;
1200                        mes "[Bertztan]";
1201                        mes "Umbaumbah umgagaga.";
1202                        mes "Umbaumbawoogawoo gababah.";
1203                        mes "Umbahumbabah gawoo.";
1204                        next;
1205                        emotion e_oh;
1206                        mes "[Bertztan]";
1207                        mes "Wooga umbar umbar umbah!";
1208                        mes "Umbar woogagaga woo! Woo! Woo!";
1209                        mes "Wooga~ wooga~ Woo woo woo umbar.";
1210                        close;
1211                }
1212                else {
1213                        mes "[Bertztan]";
1214                        mes "Umbar woogaumbarumbah um!";
1215                        mes "Um~ wooga wooga umbarum.";
1216                        mes "Umbah...wooum.";
1217                        close;
1218                }
1219        }
1220        else {
1221                mes "[Bertztan]";
1222                mes "Umbar wooga umbar umbah um!";
1223                mes "Um~ woogawooga umbar um.";
1224                mes "Umbah...wooum.";
1225                close;
1226        }
1227}
1228
1229umbala,145,217,3        script  Chabimatan      783,{
1230        if (event_umbala >= 3) {
1231                mes "[Chabimatan]";
1232                mes "...*Sigh* Umpokoriohtan seems";
1233                mes "to be married. I have no";
1234                mes "idea why he still flirts";
1235                mes "with other women. Maybe he's";
1236                mes "not very mature, or he's";
1237                mes "irresponsible...";
1238                next;
1239                mes "[Chabimatan]";
1240                mes "Well, whatever he is,";
1241                mes "he's certainly not";
1242                mes "romantic. Those pick-up";
1243                mes "lines of his could";
1244                mes "some work, maybe";
1245                mes "even some clean up.";
1246                close;
1247        }
1248        if (um_wind == 3) {
1249                if (gettime(3) > 18) {
1250                        set um_wind,4;
1251                        emotion e_an;
1252                        mes "[Chabimatan]";
1253                        mes "Umbabah umbarbar woogawooga um";
1254                        mes "Umbabah umbarbar woogawooga umbah";
1255                        mes "Umumum! Wooga!";
1256                        next;
1257                        emotion e_oh;
1258                        mes "[Chabimatan]";
1259                        mes "Umbabah~~~~~~~";
1260                        mes "Woogawooga umbar umbar woo!";
1261                        mes "Wooga umbar woogawoogagah.";
1262                        enablenpc "Umpokoriohtan";
1263                        enablenpc "#!@#$%";
1264                        close;
1265                }
1266                else {
1267                        mes "[Chabimatan]";
1268                        mes "Umbabah~~~~~~~";
1269                        mes "Woogawooga umbar umbar woo";
1270                        mes "woo woo! Nook nook~";
1271                        mes "Wooga umbar wooga umbar";
1272                        mes "wooga woogagah.";
1273                        close;
1274                }
1275        }
1276        else {
1277                mes "[Chabimatan]";
1278                mes "Umbabah~~~~~~~";
1279                mes "Woogawooga umbar umbar";
1280                mes "woo woo woo nook nook.";
1281                mes "Wooga umbar wooga umbar";
1282                mes "wooga woogagah.";
1283                close;
1284        }
1285}
1286
1287um_in,141,46,0  script  #!@#$%  -1,8,8,{
1288OnInit:
1289        disablenpc "#!@#$%";
1290        end;
1291
1292OnTouch:
1293        if (um_wind == 4) {
1294                set um_wind,5;
1295                mes "^3355FFAs you enter the house";
1296                mes "you happen to witness";
1297                mes "Phrenetan beating a guy";
1298                mes "mercilessly.^000000";
1299                next;
1300                emotion e_an;
1301                mes "[Phrenetan]";
1302                mes "Umbaumbaumbaumbah!";
1303                mes "Umbaumbahumbah!!";
1304                mes "Umbaumbahumbah!!!!!!";
1305                next;
1306                mes "^3355FFYou were kicked out of the house";
1307                mes "by Phrenetan.^000000";
1308                next;
1309                enablenpc "#unpc";
1310                disablenpc "#!@#$%";
1311                warp "umbala",94,181;
1312        }
1313        end;
1314}
1315
1316umbala,94,181,0 script  #unpc   -1,1,1,{
1317OnInit:
1318        disablenpc "#unpc";
1319        end;
1320
1321OnTouch:
1322        if (um_wind == 5) {
1323                mes "^3355FFAs you realized what happened";
1324                mes "after being kicked out of the";
1325                mes "house, you see a leaf on the";
1326                mes "ground near where you're standing.^000000";
1327                next;
1328                if (select("Take it.:Leave it.") == 1) {
1329                        close2;
1330                        set um_wind,0;
1331                        set MISC_QUEST,MISC_QUEST | 32768;
1332                        getitem 610,1; //Leaf_Of_Yggdrasil
1333                        disablenpc "#unpc";
1334                        end;
1335                }
1336                set um_wind,0;
1337                set MISC_QUEST,MISC_QUEST | 32768;
1338                mes "[" + strcharinfo(0) + "]";
1339                mes "I am not supposed to take";
1340                mes "what may belong to other people.";
1341                next;
1342                mes "[" + strcharinfo(0) + "]";
1343                mes "Yeah, I'm a such good person.";
1344                close2;
1345                disablenpc "#unpc";
1346        }
1347        end;
1348}
Note: See TracBrowser for help on using the browser.