summaryrefslogtreecommitdiff
path: root/npc/pre-re/quests/quests_dewata.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/quests/quests_dewata.txt')
-rw-r--r--npc/pre-re/quests/quests_dewata.txt2398
1 files changed, 2398 insertions, 0 deletions
diff --git a/npc/pre-re/quests/quests_dewata.txt b/npc/pre-re/quests/quests_dewata.txt
new file mode 100644
index 000000000..1d8c16346
--- /dev/null
+++ b/npc/pre-re/quests/quests_dewata.txt
@@ -0,0 +1,2398 @@
+//===== rAthena Script =======================================
+//= Dewata Quest NPCs
+//===== By: ==================================================
+//= Gennosuke Kouga
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= Quest NPCs related to Dewata:
+//== "Dewata Legend"
+//== "Help The Old Man"
+//== "The Enchantment Weapon" (Keris)
+//===== Additional Comments: =================================
+//= 1.0 First version.
+//= 1.1 Standardized. [Euphy]
+//============================================================
+
+// Entrance - Alberta Sailors
+//============================================================
+
+alberta,240,47,5 script Alberta Sailor#alberta 536,{
+ mes "[Alberta Sailor]";
+ mes "Do ya want to visit ^C35817Dewata Island?^000000";
+ mes "With dazzling waves and charming vistas, it's a great place to relax.";
+ mes "The transit fee is 10,000 Zeny.";
+ next;
+ if(select("Yes:No")==2) {
+ mes "[Alberta Sailor]";
+ mes "Let me know";
+ mes "when you're ready to travel~";
+ close; }
+ mes "[Alberta Sailor]";
+ mes "Have a nice trip~";
+ close2;
+ warp "dewata",232,53;
+ end;
+}
+
+dewata,230,49,5 script Alberta Sailor#dewata 536,{
+ mes "[Alberta Sailor]";
+ mes "Want to go back to ^C35817Alberta^000000?";
+ next;
+ if(select("Yes:No")==2) {
+ mes "[Alberta Sailor]";
+ mes "Have some more fun before you go!";
+ mes "^C35817Dewata^000000 Island still has more to offer.";
+ close; }
+ mes "[Alberta Sailor]";
+ mes "I hope you had a lot of fun on your trip to ^C35817Dewata^000000 Island.";
+ close2;
+ warp "alberta",235,44;
+ end;
+}
+
+dewata,235,56,4 script Gatekeeper of Krakatau#1 534,{
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "^C35817Krakatau Volcano^000000 is a very dangerous area";
+ mes "I cannot allow anyone to go inside.";
+ next;
+ if (checkquest(9162)>=0 && countitem(11533)) {
+ select("^0000FFTribal Chief Paiko^000000");
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "Oh! I didn't know about that!";
+ mes "This is some of the best news";
+ mes "I have heard recently.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "What is this wonderful smell?";
+ mes "Of course, it's our ^4AA02CSatay^000000!";
+ mes "I was sightly hungry...";
+ mes "so this should fill me up.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "Since you came all the way here";
+ mes "I will share an interesting story.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "It has become a lost tradition in";
+ mes "recent years, but until 10";
+ mes "years ago in order to become a";
+ mes "^C35817Jaty Tribe^000000 warrior you had to";
+ mes "climb ^C35817Krakatau Volcano^000000 to prove your endurance.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "The eyes of those warriors were";
+ mes "anxious yet determined before going";
+ mes "up ^C35817Krakatau Volcano^000000.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "I still cannot forget that look in";
+ mes "their eyes. I feel a little bit of";
+ mes "the same emotion from you, Adventurer.";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "I want you to live long and";
+ mes "prosper. Be heathly and safe.";
+ mes "Travel so you can live to tell";
+ mes "the tale of your adventures.";
+ changequest 9162,9163;
+ delitem 11533,1;
+ close; }
+ if(select("Allow me through:I don't want to go in")==1) {
+ if(dewata_legend >= 5) {
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "You are the traveler who was";
+ mes "acknowledged by tribe leader as a";
+ mes "friend of the tribe and received a";
+ mes "^4AA02CShining Cendrawasih Feather.^000000";
+ next;
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "I will let you pass, but";
+ mes "^C35817Krakatau Volcano^000000 is";
+ mes "dangerous so please take care.";
+ close2;
+ warp "dew_dun01",289,160;
+ end; }
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "^C35817Krakatau Volcano^000000 is";
+ mes "a very dangerous area,";
+ mes "so I can't allow you in";
+ mes "unless you qualify for entry.";
+ close; }
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "You have choosen wisely.";
+ mes "^C35817Krakatau Volcano^000000 is";
+ mes "an extremely dangerous area.";
+ close;
+}
+
+dew_dun01,292,164,4 script Gatekeeper of Krakatau#2 541,{
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "Want to go back to Dewata?";
+ next;
+ if(select("Yes:No")==2) {
+ mes "[Gatekeeper of Krakatau Volcano]";
+ mes "^C35817Krakatau Volcano^000000 is";
+ mes "a dangerous place.";
+ mes "You should go back now.";
+ close; }
+ close2;
+ warp "dewata",232,53;
+ end;
+}
+
+dew_fild01,78,288,5 script Jaty Tribe Warrior 541,{
+ mes "[Jaty Tribe Warrior]";
+ mes "We revere strength and bravery.";
+ mes "We are the ^FF0000Jaty^000000 Tribe.";
+ if (checkquest(9158)==-1 || !countitem(11533)) close;
+ next;
+ mes "[Jaty Tribe Warrior]";
+ mes "My trained eyes see that";
+ mes "you are about to say something.";
+ mes "Speak, state your business.";
+ next;
+ select("^0000FFTribal Chief Paiko^000000");
+ mes "[Jaty Tribe Warrior]";
+ mes "I've heard about your";
+ mes "helpful deeds...";
+ mes "As a representative of my tribe";
+ mes "I express my thanks to you.";
+ next;
+ mes "[Jaty Tribe Warrior]";
+ mes "Also, thank you for the ^4AA02CSatay^000000.";
+ mes "My mouth is already watering...";
+ mes "There is something I would like";
+ mes "to share with you regarding our tribe.";
+ next;
+ mes "[Jaty Tribe Warrior]";
+ mes "Unlike the ancient times when our";
+ mes "tribe's warriors fought and shed";
+ mes "their blood, the world has become";
+ mes "more peaceful nowadays. But our";
+ mes "tribe's territory has shrunk drastically.";
+ next;
+ mes "[Jaty Tribe Warrior]";
+ mes "Nevertheless, we will continue";
+ mes "keeping the warrior tradition of";
+ mes "our tribe alive, and we will";
+ mes "preserve the pride we have earned";
+ mes "through the sacrifice of past warriors.";
+ next;
+ mes "[Jaty Tribe Warrior]";
+ mes "I hope that your perserverance and";
+ mes "pride remain with you in your travels.";
+ changequest 9158,9159;
+ delitem 11533,1;
+ close;
+}
+
+dew_fild01,185,300,4 script Tribe Manager 541,{
+ mes "[Tribe Manager]";
+ mes "Keeping our culture and tradition";
+ mes "is very important.";
+ if(!checkquest(9160)>=0 || !countitem(11533)) {
+ mes "Although it is a little boring...";
+ close; }
+ next;
+ mes "[Tribe Manager]";
+ mes "It seems to me that you have";
+ mes "something to say, don't you?";
+ next;
+ select("^0000FFTribal Chief Paiko^000000");
+ mes "[Tribe Manager]";
+ mes "I didn't know that there was";
+ mes "such an effort being put forth";
+ mes "and that you took a key role in the effort...";
+ mes "You are the hero of the ^C35817Jaty Tribe^000000!";
+ next;
+ mes "[Tribe Manager]";
+ mes "Wow~ the savory scent of";
+ mes "delicious homemade ^4AA02CSatay^000000!";
+ mes "Thank you for the meal.";
+ mes "Please give my regards";
+ mes "to our Tribe Leader.";
+ next;
+ mes "[Tribe Manager]";
+ mes "There are few contacts between";
+ mes "^C35817Dewata Island^000000 and ^C35817Jaty Tribe^000000.";
+ mes "We used to have a stronger bond";
+ mes "in older times.";
+ next;
+ mes "[Tribe Manager]";
+ mes "But with the new culture and";
+ mes "foreigners flowing in,";
+ mes "^C35817Dewata Island^000000 has became a";
+ mes "tourist attraction and we";
+ mes "have lost touch with them.";
+ next;
+ mes "[Tribe Manager]";
+ mes "The tourist attraction has";
+ mes "expanded continously, but the";
+ mes "reason it hasn't influenced us";
+ mes "here is due to this small temple";
+ mes "which I am managing.";
+ next;
+ mes "[Tribe Manager]";
+ mes "I couldn't let our tradition fade";
+ mes "away like that so easily.";
+ mes "I hope keeping our tradition and";
+ mes "culture alive lets people know how";
+ mes "important these things are to us.";
+ next;
+ mes "[Tribe Manager]";
+ mes "From now on, I hope people from";
+ mes "^C35817Dewata Island^000000 and ^C35817Jaty";
+ mes "Tribe^000000 can get along and interact";
+ mes "more often.";
+ changequest 9160,9161;
+ delitem 11533,1;
+ close;
+}
+
+// NPC - Memo
+//============================================================
+
+dewata,109,262,4 script Memo#dew_drink 534,{
+ if(dewata_oldman >= 1) {
+ if (checkquest(5040) >= 0) {
+ mes "[Memo]";
+ mes "So, what did Lero say?";
+ next;
+ select("Palm tree... became.");
+ mes "- You explain the situation to";
+ mes "Mr. Memo -";
+ next;
+ mes "[Memo]";
+ mes "Lero said sorry?";
+ mes "Hmmm, it's okay.";
+ next;
+ mes "[Memo]";
+ mes "That must be ^0000FFPoby^000000. If he has";
+ mes "been hurt, that's why there wasn't";
+ mes "any message. Lero actually";
+ mes "cares about him a lot...";
+ next;
+ changequest 5040,5041; }
+ if (checkquest(5041) >= 0) {
+ mes "[Memo]";
+ mes "He might be troublesome,";
+ mes "but please visit Jaty village.";
+ mes "Lero must complete the oil.";
+ next;
+ mes "[Memo]";
+ mes "If it is not, wait there and bring";
+ mes "^FF000030 Bottle of Oil^000000 to me.";
+ close; }
+ if (checkquest(5042) >= 0 && countitem(6401) >= 30) {
+ mes "[Memo]";
+ mes "You brought the oil. Good job, and thank you.";
+ next;
+ mes "[Memo]";
+ mes "Excuse me, but I have an urgent";
+ mes "matter to attend to. Wait for a bit,";
+ mes "then talk to me when I'm done.";
+ delitem 6401,30;
+ changequest 5042,5043;
+ set dewata_oldman,2;
+ close;
+ } else if (checkquest(5043,PLAYTIME) == 2) {
+ mes "[Memo]";
+ mes "Did I make you wait too long?";
+ next;
+ mes "[Memo]";
+ mes "My family has been making Arks for four generations.";
+ next;
+ mes "[Memo]";
+ mes "Grandfather had a hard living";
+ mes "since he didn't get many good sales.";
+ next;
+ mes "[Memo]";
+ mes "Dewata island people do not drink";
+ mes "much in the hot weather.";
+ next;
+ mes "[Memo]";
+ mes "When I was young, Dewata";
+ mes "developed as a tourist atrraction,";
+ mes "and that's when the tour package";
+ mes "Ark started selling well.";
+ next;
+ mes "[Memo]";
+ mes "Good liquid needs fresh oil,";
+ mes "I was able to make a liquid";
+ mes "for ten years and deliver it all on time.";
+ next;
+ mes "[Memo]";
+ mes "Because today's oil has not";
+ mes "arrived on time, I think I might";
+ mes "have a hard time.";
+ next;
+ mes "[Memo]";
+ mes "You helped me make the liquid correctly.";
+ next;
+ mes "[Memo]";
+ mes "This proverb '^0000FFMengatakan mudah,";
+ mes "mengerjakan susah^000000.' means it is";
+ mes "easy to say something, but hard to";
+ mes "do anything.";
+ next;
+ mes "[Memo]";
+ mes "In other words, it's easy to say";
+ mes "that we'll help others but its hard";
+ mes "to actually do the action.";
+ next;
+ emotion e_thx;
+ mes "[Memo]";
+ mes "You really did a great job. I like";
+ mes "you because you are different from";
+ mes "today's youngins.";
+ getitem 617,1;
+ getexp 50000,10000;
+ changequest 5043,5044;
+ next;
+ mes "[Memo]";
+ mes "Will you help me with my work";
+ mes "from time to time?";
+ mes "I will pay you for what you do for me.";
+ close;
+ } else if (checkquest(5043,PLAYTIME) != -1) {
+ mes "[Memo]";
+ mes "... ... ...";
+ next;
+ mes "- Memo is making an ark -";
+ close;
+ } else if (checkquest(5044,PLAYTIME) == 2) {
+ mes "[Memo]";
+ mes "^FF0000" + strcharinfo(0) +"^000000? -";
+ next;
+ if(select("Just came by to say hello...:I will help you.")==1) {
+ mes "[Memo]";
+ mes "I guess you are busy.";
+ mes "If possible, will you get the oil";
+ mes "from Lero? I appreciate it...";
+ close; }
+ mes "[Memo]";
+ mes "Thank you, I know you're busy";
+ mes "and helping me can be a chore.";
+ next;
+ mes "[Memo]";
+ mes "Can you help Lero and bring back palm tree oil...?";
+ erasequest 5044;
+ setquest 5045;
+ close;
+ } else if (checkquest(5044,PLAYTIME) != -1) {
+ mes "[Memo]";
+ mes "Will you help me tomorrow?";
+ mes "Poby still has a back pain.";
+ mes "Backaches don't just go away";
+ mes "after one day...";
+ close;
+ } else if (checkquest(5045) >= 0) {
+ mes "[Memo]";
+ mes "Can you help Lero and bring back palm tree oil...?";
+ close;
+ } else if (checkquest(5047) >= 0 || checkquest(5049) >= 0 || checkquest(5051) >= 0) {
+ mes "[Memo]";
+ mes "Oh, you brought the oil! Good job!";
+ next;
+ mes "[Memo]";
+ mes "You must have had a hard time";
+ mes "bringing the oil, so take this drink.";
+ next;
+ mes "[Memo]";
+ mes "Ark is famous for tourists. A guy";
+ mes "bought many bottles by himself.";
+ next;
+ mes "[Memo]";
+ mes "Worrying that he'll drink alone?";
+ mes "Too much drink always becomes poisonous.";
+ next;
+ mes "[Memo]";
+ mes "I want you to help me this time.";
+ next;
+ mes "[Memo]";
+ mes "Poby still has back pains and it";
+ mes "will take some days for him to";
+ mes "recover.";
+ if (checkquest(5047)>=0) {
+ delitem 6401,10;
+ getitem 11534,2;
+ erasequest 5047;
+ setquest 5044;
+ } else if (checkquest(5049)>=0) {
+ delitem 6401,15;
+ getitem 11534,2;
+ erasequest 5049;
+ setquest 5044;
+ } else if (checkquest(5051)>=0) {
+ delitem 6401,20;
+ getitem 11534,2;
+ erasequest 5051;
+ setquest 5044; }
+ close; }
+ mes "[Memo]";
+ mes "So, what did Lero say?";
+ next;
+ emotion e_dots;
+ mes "[Memo]";
+ mes "... ... ...";
+ next;
+ mes "[Memo]";
+ mes "You didn't find out what happened?";
+ next;
+ mes "[Memo]";
+ mes "Find the best oil master. His name is ^0000FFLero^000000.";
+ close; }
+ if(rand(1,5)==1) {
+ mes "[Memo]";
+ mes "What should I do? I still don't";
+ mes "have any news from the Jaty tribe.";
+ next;
+ mes "[Memo]";
+ mes "Oh no~ All the liquid is going to spoil...";
+ next;
+ select("What happened?");
+ emotion e_what;
+ mes "[Memo]";
+ mes "Who are you?";
+ next;
+ mes "[Memo]";
+ mes "You're an adventurer, right?";
+ mes "As you can see from the jars around";
+ mes "me, I am making ^0000FFtraditional wine^000000";
+ mes "for a living.";
+ next;
+ mes "[Memo]";
+ mes "Everyone knows about this, so";
+ mes "^0000FFDewata Island^000000 attracts many";
+ mes "tourists.";
+ next;
+ mes "[Memo]";
+ mes "Especially this traditional wine, which";
+ mes "has been made for four generations!";
+ mes "But ^FF0000Ark^000000 is short of supply.";
+ mes "Ark needs ^0000FFPalm Oils^000000, made";
+ mes "from Oil Palm Fruit.";
+ next;
+ mes "[Memo]";
+ mes "Unfortunately, we haven't been";
+ mes "getting ^0000FFPalm Oil^000000 from the Jaty";
+ mes "tribe village lately.";
+ mes "The ingredients might be useless";
+ mes "if it is delivered too late.";
+ next;
+ select("Sound like a big problem.");
+ mes "[Memo]";
+ mes "It is more of a problem than you";
+ mes "think. Sales are credit, but if we";
+ mes "do not make due today we'll lose";
+ mes "the credit, the ingredients, and";
+ mes "the tourists who do not get the";
+ mes "Ark. So it's quite damaging.";
+ next;
+ emotion e_dots;
+ mes "[Memo]";
+ mes "... ...";
+ next;
+ emotion e_gasp;
+ mes "[Memo]";
+ mes "Ah, right! Are you busy now?";
+ next;
+ if(select("Sorry, I am busy.:No, I am not busy.")==1) {
+ emotion e_pif;
+ mes "[Memo]";
+ mes "Hmm, I have no choice.";
+ mes "You don't care that others are in";
+ mes "trouble. What has this world come to?";
+ close; }
+ mes "[Memo]";
+ mes "That's good to hear.";
+ mes "So since you are wandering here...";
+ next;
+ mes "[Memo]";
+ mes "Do you mind if I ask a favor~?";
+ mes "Actually, I have visited the Jaty";
+ mes "Tribe, but this unmatured ^FF0000Ark^000000";
+ mes "won't let me leave.";
+ next;
+ mes "[Memo]";
+ mes "Will you go to Jaty village and";
+ mes "ask ^0000FFLero^000000 what happened?";
+ next;
+ mes "[Memo]";
+ mes "This guy has never broken a";
+ mes "promise for 10 years, so he must have";
+ mes "a really good reason not to come.";
+ setquest 5035;
+ set dewata_oldman,1;
+ next;
+ mes "[Memo]";
+ mes "Find the best oil master.";
+ mes "His name again is ^0000FFLero^000000... Remember it!";
+ close;
+ } else {
+ emotion e_swt2;
+ mes "[Memo]";
+ mes "Oh God! We don't have a message";
+ mes "from the Jaty tribe yet.";
+ next;
+ mes "[Memo]";
+ mes "They have never broken a promise";
+ mes "for 10 years, and I don't know the";
+ mes "reason. What's happening...?";
+ next;
+ emotion e_sob;
+ mes "[Memo]";
+ mes "I might soil all the liquid if it";
+ mes "is going on like this.";
+ close;
+ }
+}
+
+// NPC - Lero
+//============================================================
+
+dew_fild01,114,275,4 script Lero#dew_drink 536,{
+ if(dewata_oldman == 2) {
+ if (checkquest(5045) >= 0) {
+ mes "[Lero]";
+ mes "Hey, I've been waiting for you.";
+ mes "I didn't know that Poby's injury";
+ mes "would make my life so difficult.";
+ next;
+ set .@dailylero,rand(1,3);
+ if (.@dailylero == 1) changequest 5045,5046;
+ else if (.@dailylero == 2) changequest 5045,5048;
+ else if (.@dailylero == 3) changequest 5045,5050;
+ mes "[Lero]";
+ mes "I'm ashamed to ask you this, but";
+ if (checkquest(5048) >= 0)
+ mes "could you bring ^0000FF30 pieces of oil palm nuts^000000?";
+ else if (checkquest(5046) >= 0)
+ mes "could you bring ^0000FF20 pieces of oil palm nuts^000000?";
+ else if (checkquest(5050) >= 0)
+ mes "could you bring ^0000FF40 pieces of oil palm nuts^000000?";
+ next;
+ lerowait:
+ if (checkquest(5046) >= 0 && countitem(6402) > 19) {
+ callsub lerocount,20;
+ changequest 5046,5047;
+ close;
+ } else if (checkquest(5048) >= 0 && countitem(6402) > 29) {
+ callsub lerocount,30;
+ changequest 5048,5049;
+ close;
+ } else if (checkquest(5050) >= 0 && countitem(6402) > 39) {
+ callsub lerocount,40;
+ changequest 5050,5051;
+ close; }
+ mes "[Lero]";
+ mes "Once you bring the oil palm nuts,";
+ mes "Mr. Memo will exchange them with oil.";
+ close; }
+ else if (checkquest(5046) >= 0 || checkquest(5048) >= 0 || checkquest(5050) >= 0) goto lerowait;
+ else if (checkquest(5047) >= 0 || checkquest(5049) >= 0 || checkquest(5051) >= 0) {
+ mes "[Lero]";
+ mes "As I told you before, it is heavier";
+ mes "than you might think, so be careful";
+ mes "when carrying this.";
+ close; }
+ mes "[Lero]";
+ mes "What happened? I didn't get a memo";
+ mes "from Mr. Memo someone was coming.";
+ close; }
+ if (checkquest(5035) >= 0) {
+ emotion e_an;
+ mes "[Lero]";
+ mes "Oh no! I have so many orders and";
+ mes "I'm running out of ingredients.";
+ mes "Not yet? What's going on, Poby?";
+ mes "Where did he go?";
+ next;
+ emotion e_ag;
+ select("Excuse me, but are you Lero?");
+ mes "[Lero]";
+ mes "When Poby gets back here, I'm";
+ mes "gonna give him a beating he'll never forget!";
+ next;
+ mes "- Lero seems pretty mad at someone";
+ mes "and ignores you -";
+ next;
+ mes "[Lero]";
+ mes "Oops. Who are you?";
+ next;
+ select("Memo sent me here.");
+ mes "[Lero]";
+ mes "Ah, right! I forgot about Memo";
+ mes "because the workers who gather";
+ mes "nuts have not come yet. Sorry.";
+ next;
+ mes "[Lero]";
+ mes "To make fresh palm oils, I need";
+ mes "fresh Palm Oil Fruit. Then I'll be";
+ mes "able able to get more from its";
+ mes "fresh fruit.";
+ next;
+ mes "[Lero]";
+ mes "Between you and me, Mr.Memo is so";
+ mes "fussy that he will not use any";
+ mes "unfresh oil.";
+ next;
+ mes "[Lero]";
+ mes "To make fresh oil, he always sends";
+ mes "the workers to the palm tree forest,";
+ mes "but... the guys sent at dawn have";
+ mes "not come back yet.";
+ next;
+ mes "[Lero]";
+ mes "First, I thought that he was lazy";
+ mes "and it made me very uneasy.";
+ mes "Can you find the workers in palm forest?";
+ next;
+ select("Yes, I will find them.");
+ mes "[Lero]";
+ mes "Thank you so much.";
+ mes "Find Poby.";
+ next;
+ mes "[Lero]";
+ mes "Poby might in ^0000FFPalm Forest^000000.";
+ mes "The crop is best at the southern part of the forest.";
+ changequest 5035,5036;
+ close;
+ } else if (checkquest(5036) >= 0) {
+ emotion e_what;
+ mes "[Lero]";
+ mes "Did you find Poby?";
+ next;
+ mes "[Lero]";
+ mes "... ... ...";
+ next;
+ mes "[Lero]";
+ mes "Oh, you haven't visited the east";
+ mes "of ^0000FFPalm Forest^000000 yet. I'm pretty";
+ mes "worried...";
+ close;
+ } else if (checkquest(5037) >= 0) {
+ emotion e_what;
+ mes "[Lero]";
+ mes "You're back... and... Poby...";
+ mes "How is Poby?";
+ next;
+ select("Pobu...");
+ mes "[Lero]";
+ mes "Ah! I didn't know that. I always";
+ mes "tell Poby '^0000FFKemarau setahun rusak sehari.'^000000";
+ next;
+ mes "[Lero]";
+ mes "He climbed the tree without any";
+ mes "safety equipment, so he might've";
+ mes "fallen down and gotten injured.";
+ next;
+ mes "[Lero]";
+ mes "Hmm... Sorry I couln't get the";
+ mes "Palm Oil right now.";
+ next;
+ mes "[Lero]";
+ mes "Will you deliver the message to";
+ mes "Mr. Memo that it is impossible";
+ mes "to get the oil due do to a";
+ mes "lack of ingredients?";
+ mes "No artisans can create anything";
+ mes "without ingredients.";
+ next;
+ select("Why don't I get the ingredients?");
+ mes "[Lero]";
+ mes "Ah, that can be a good way, but it";
+ mes "will be hard to gather nuts as a starter.";
+ next;
+ mes "[Lero]";
+ mes "Hmm!!!";
+ mes "I have a good idea.";
+ next;
+ mes "[Lero]";
+ mes "You can ask Poby about the best";
+ mes "method of gathering nuts where you";
+ mes "met him in forest. He should be";
+ mes "able to teach you the technique.";
+ changequest 5037,5038;
+ next;
+ mes "[Lero]";
+ mes "Although he is lazy and rather";
+ mes "careless, he is the best worker.";
+ close;
+ } else if (checkquest(5038) >= 0) {
+ mes "[Lero]";
+ mes "You can ask Poby about the best";
+ mes "method of gathering nuts where you";
+ mes "met him in forest. He should be";
+ mes "able to tell you the technique.";
+ next;
+ mes "[Lero]";
+ mes "Although he is lazy and rather";
+ mes "careless, he is the best worker.";
+ close;
+ } else if (checkquest(5039) >= 0) {
+ if(countitem(6402) > 59) {
+ mes "[Lero]";
+ mes "One two three four,....";
+ next;
+ mes "[Lero]";
+ mes "60 pieces of nuts, exactly. I will";
+ mes "press the oil right now.";
+ next;
+ emotion e_sry;
+ mes "[Lero]";
+ mes "It takes sometime, so go back to";
+ mes "Mr. Memo and tell him the";
+ mes "situation. Alse tell him that I'm";
+ mes "sorry for the delay.";
+ delitem 6402,60;
+ changequest 5039,5040;
+ close; }
+ mes "[Lero]";
+ mes "Did you gather the nuts already?";
+ next;
+ mes "[Lero]";
+ mes "One, two....";
+ next;
+ mes "[Lero]";
+ mes "This isn't the number I ordered from Poby.";
+ next;
+ mes "[Lero]";
+ mes "It's going to be difficult if it is";
+ mes "delayed more, so hurry up and bring me ^FF000060^000000 ^0000FFPalm Oil Fruit^000000.";
+ close;
+ } else if (checkquest(5040) >= 0) {
+ mes "[Lero]";
+ mes "It takes sometime, so go back to";
+ mes "Mr. Memo and tell him the";
+ mes "situation. Alse tell him that I'm";
+ mes "sorry for the delay.";
+ close;
+ } else if (checkquest(5041) >= 0) {
+ mes "[Lero]";
+ mes "You've come at the right time.";
+ mes "I just finished making the palm tree oil.";
+ next;
+ mes "[Lero]";
+ mes "It is heavier than you might think,";
+ mes "so be careful when carrying it.";
+ next;
+ emotion e_sry;
+ mes "[Lero]";
+ mes "Oh, tell Mr. Memo that I'm sorry";
+ mes "for the late delivery, and explain";
+ mes "that it wasn't my fault.";
+ changequest 5041,5042;
+ getitem 6401,30;
+ close;
+ } else if (checkquest(5042) >= 0) {
+ mes "[Lero]";
+ mes "It is heavier than you might think,";
+ mes "so be careful when carrying it.";
+ next;
+ emotion e_sry;
+ mes "[Lero]";
+ mes "Oh, tell Mr. Memo that I'm sorry";
+ mes "for the late delivery, and explain";
+ mes "that it wasn't my fault.";
+ close; }
+ mes "[Lero]";
+ mes "What's going on with Poby...?";
+ mes "Why hasn't he come back...?";
+ next;
+ mes "- Seems like he is waitting for someone -";
+ close;
+
+lerocount:
+ mes "[Lero]";
+ mes "One, two, three, four....";
+ next;
+ mes "[Lero]";
+ mes "Extracly "+getarg(0)+" pieces of oil palm";
+ mes "nuts. Let you exchange them with oil right now.";
+ next;
+ mes "[Lero]";
+ mes "As I told you before, it is";
+ mes "heavier than you might think, so";
+ mes "be careful when carrying this.";
+ delitem 6402, getarg(0);
+ getitem 6401, getarg(0)/2;
+ return;
+}
+
+// NPC - Poby
+//============================================================
+
+dew_fild01,259,48,4 script Poby#dew_drink 538,{
+
+ if(dewata_oldman >= 2) {
+ mes "[Poby]";
+ mes "Oh? ^FF0000" + strcharinfo(0) +"^000000, we meet again. What's going on?";
+ next;
+ if(select("Why'd you come here?:I want to know how to get fruit.")==2) {
+ mes "[Memo]";
+ mes "It is easy for a beginner like";
+ mes "you. All you have to do is";
+ mes "shake or kick the tree.";
+ next;
+ mes "[Memo]";
+ mes "It might be dangerous, so you";
+ mes "must always wear a ^0000FFSafety Helmet^000000.";
+ close; }
+ mes "[Poby]";
+ mes "I'm taking a walk because I think";
+ mes "it will make my back ache less.";
+ close; }
+ if (checkquest(5036) >= 0) {
+ emotion e_swt2;
+ mes "[Poby]";
+ mes "Ah~ backache..";
+ next;
+ select("Are you Poby?");
+ mes "[Poby]";
+ mes "Who are you?";
+ next;
+ mes "[Poby]";
+ mes "I don't know you, but";
+ mes "are you a fan of mine?";
+ mes "I'm Poby, the best fruit";
+ mes "hunter in the Jaty tribe.";
+ next;
+ emotion e_what;
+ mes "[Poby]";
+ mes "You're here for my autograph?";
+ next;
+ select("Lero made me come here.");
+ mes "[Poby]";
+ mes "Ah! Mr.Lero made you come here. I";
+ mes "can't move because I hurt my back";
+ mes "while climbing a tree.";
+ next;
+ emotion e_sob;
+ mes "[Poby]";
+ mes "!#@$*&!@$&!@$%!$#*&!@#$";
+ next;
+ mes "[Poby]";
+ mes "And I've still never had a girlfriend...";
+ next;
+ emotion e_sob;
+ mes "[Poby]";
+ mes "!#@$*&!@$&!@$%!$#*&!@#$";
+ next;
+ mes "[Poby]";
+ mes "Ah! Sorry. Tell Mr. Lero that I'll";
+ mes "go back if I can find a way to move.";
+ changequest 5036,5037;
+ next;
+ mes "[Poby]";
+ mes "I can't move at all 'cuz of this backache...";
+ close;
+ } else if (checkquest(5037) >= 0) {
+ mes "[Poby]";
+ mes "Ah! Sorry. Tell Mr. Lero that I'll";
+ mes "go back if I can find a way to move.";
+ next;
+ emotion e_swt2;
+ mes "[Poby]";
+ mes "I can't move at all 'cuz of this backache...";
+ close;
+ } else if (checkquest(5038) >= 0) {
+ emotion e_swt2;
+ mes "[Poby]";
+ mes "Ah~ Backache..";
+ next;
+ mes "[Poby]";
+ mes "Oh!! You're-- Let me guess...";
+ next;
+ emotion e_dots;
+ mes "[Poby]";
+ mes "... ... ... ...";
+ next;
+ mes "[Poby]";
+ mes "...you're back! You plan to";
+ mes "catch ^0000FFPalm Oil Fruit^000000 instead of me, right?";
+ next;
+ mes "[Poby]";
+ mes "It is hard for beginners to catch";
+ mes "the fruit like me. No, it's";
+ mes "impossible.";
+ next;
+ mes "[Poby]";
+ mes "Masters usually climb the tree to";
+ mes "catch the fruit, but you're a";
+ mes "beginner...";
+ next;
+ mes "[Poby]";
+ mes "It's easiest for beginners";
+ mes "to shake or kick the tree.";
+ mes "It might be dangerous, so remember to wear a ^0000FFSafety Helmet^000000.";
+ changequest 5038,5039;
+ next;
+ emotion e_gasp;
+ mes "[Poby]";
+ mes "Ok! Gather ^FF000060 ^0000FFPalm Oil Fruit^000000 and";
+ mes "bring it to Mr. Lero.";
+ close;
+ } else if (checkquest(5039) >= 0) {
+ if(countitem(6402) > 59) {
+ mes "[Poby]";
+ mes "You've got all the fruits.";
+ mes "Bring them to Mr. Lero.";
+ close; }
+ mes "[Poby]";
+ mes "It's easiest for beginners like";
+ mes "you to shake or kick the tree.";
+ next;
+ mes "[Poby]";
+ mes "It might be dangerous, so always";
+ mes "wear a ^0000FFSafety Helmet^000000.";
+ next;
+ mes "[Poby]";
+ mes "Gather ^FF000060 ^0000FFPalm Oil Fruit^000000 and";
+ mes "bring it to Mr. Lero.";
+ close;
+ }
+ emotion e_sob;
+ mes "[Poby]";
+ mes "Ah~ my freakin' back is killing me.";
+ close;
+}
+
+// NPC - Tribal Chief Paiko
+//============================================================
+
+dew_in01,15,49,5 script Tribal Chief Paiko#dew_ 540,{
+ set .@n$, "[Tribal Chief Paiko]";
+ if(dewata_legend == 2) {
+ mes .@n$;
+ mes "I can see you are a traveler";
+ mes "from another land.";
+ mes "What brings you here?";
+ next;
+ if(select("I overheard the story by accident:I have nothing to say.")==2) {
+ mes .@n$;
+ mes "You are wasting your time here.";
+ mes "There are many other attractions";
+ mes "around our village.";
+ close; }
+ mes .@n$;
+ mes "What do you mean?";
+ mes "You heard the story about the crown?";
+ mes "You must have heard incorrectly.";
+ mes "I have nothing to say to you";
+ mes "regarding such things.";
+ next;
+ select("Kasyapa was talking about a crown...");
+ mes .@n$;
+ mes "It seems that ^0000FFKasyapa^000000 has told you";
+ mes "a tall tale, and I appreciate your";
+ mes "concern about our affairs.";
+ next;
+ mes .@n$;
+ mes "It's not something that a stranger";
+ mes "like you could understand. Make";
+ mes "like a tree, and get out of here.";
+ set dewata_legend,3;
+ close;
+ } else if(dewata_legend == 3) {
+ mes .@n$;
+ mes "There are many other attractions around our village.";
+ next;
+ mes .@n$;
+ mes "If it's about the crown, I want";
+ mes "you to stop asking about it.";
+ mes "Please leave.";
+ close;
+ } else if(dewata_legend == 4) {
+ if (checkquest(9155) >= 0) {
+ if(countitem(6405) > 14) {
+ mes .@n$;
+ mes "Oh! You've found all of them.";
+ mes "Look! The feathers you have found";
+ mes "are sparkling, aren't they?";
+ mes "Alright, let me begin crafting";
+ mes "the ^4AA02CJaty Crown^000000. I feel that";
+ mes "I am ready.";
+ next;
+ specialeffect EF_MAPPILLAR3;
+ mes "- Suddenly, a large noise begins";
+ mes "to boom as you and ^0000FFPaiko^000000 are";
+ mes "surrounded by warm and bright";
+ mes "sparkling energy like a thousand";
+ mes "tinkling fireflies. -";
+ changequest 9155,9156;
+ delitem 6405,15;
+ close; }
+ mes .@n$;
+ mes "It seems that you have yet to find";
+ mes "the materials to make the ^4AA02CJaty Crown^000000.";
+ next;
+ mes .@n$;
+ mes "The symbol of the Jaty Tribe is";
+ mes "also a famous mystical creature.";
+ mes "Find ^FF000015 ^4AA02CCendrawasih Feathers^000000 and";
+ mes "bring them to me.";
+ close;
+ } else if (checkquest(9156) >= 0) {
+ mes .@n$;
+ mes "With your help the ^4AA02CJaty Crown^000000 is";
+ mes "coming along nicely.";
+ mes "It will take some time until the";
+ mes "task is finished, so please wait a little.";
+ next;
+ mes .@n$;
+ mes "After the ^4AA02CJaty Crown^000000 is complete,";
+ mes "there is a gift that I want to give";
+ mes "to you.";
+ next;
+ mes .@n$;
+ mes "Ah, you should go see ^0000FFSage";
+ mes "Kasyapa^000000, who really wants to";
+ mes "reward you with something.";
+ changequest 9156,9157;
+ close;
+ } else if (checkquest(9157) >= 0) {
+ mes .@n$;
+ mes "Ah, you should go see ^0000FFSage";
+ mes "Kasyapa^000000, who really wants to";
+ mes "reward you with something.";
+ close; }
+ mes .@n$;
+ mes "I've been waiting for you.";
+ mes "According to ^0000FFSage Kasyapa^000000,";
+ mes "you are willing to help us make";
+ mes "a crown for our tribe.";
+ next;
+ select("Crown-a-what's it?");
+ mes .@n$;
+ mes "The tribe leader has the duty of";
+ mes "making and protecting the ^4AA02CJaty";
+ mes "Crown^000000 to uphold the tribe's pride";
+ mes "and honor.";
+ next;
+ mes .@n$;
+ mes "But ever since I became the tribe";
+ mes "leader, there have been difficulties";
+ mes "making it.";
+ next;
+ mes "[Tribale Chief Paiko]";
+ mes "According to ^0000FFSage Kasyapa^000000, you can";
+ mes "help us create a ^4AA02CJaty Crown^000000.";
+ next;
+ mes .@n$;
+ mes "Do you think you can help?";
+ mes "Your efforts will not go";
+ mes "unrewarded.";
+ next;
+ if(select("I will help.:Sorry, I cannot help now.")==2) {
+ mes .@n$;
+ mes "That's really sad.";
+ mes "If you ever change";
+ mes "your mind, please come again.";
+ mes "I will be waiting.";
+ close; }
+ mes .@n$;
+ mes "Many thanks to you, stranger";
+ mes "If Kasyapa trusts you, then I know";
+ mes "that you can help us make a";
+ mes "^4AA02CJaty Crown^000000.";
+ mes "What you can do to";
+ mes "help us is very simple.";
+ next;
+ mes .@n$;
+ mes "The symbol of the Jaty Tribe is";
+ mes "also a famous mystical creature.";
+ mes "Find ^FF000015 ^4AA02CCendrawasih Feathers^000000 and";
+ mes "bring them to me.";
+ mes "Our faith is in you, stranger.";
+ setquest 9155;
+ close;
+ } else if(dewata_legend == 5) {
+ if (checkquest(9158) >= 0) {
+ chiefrequest:
+ mes .@n$;
+ mes "It seems that you haven't";
+ mes "delivered the ^4AA02CSatay^000000 yet.";
+ if (checkquest(9158) >= 0) mes "Did you run into any problems?";
+ else if (checkquest(9160) >= 0) mes "Is there something wrong?";
+ else if (checkquest(9162) >= 0) mes "Anything happened?";
+ else if (checkquest(9163) >= 0) mes "Anything go wrong?";
+ next;
+ switch( select("I ate them all.:Who do I deliver this to...?:Nothing.")) {
+ case 1:
+ if (checkquest(9158) >= 0 || checkquest(9160) >= 0) {
+ mes .@n$;
+ mes "Huh... so you couldn't resist";
+ mes "yourself, eh?";
+ mes "Don't blame yourself too much. It";
+ mes "is difficult resist the ^4AA02CSatay^000000's";
+ mes "addicting aroma."; }
+ else if (checkquest(9162) >= 0 || checkquest(9164) >= 0) {
+ mes .@n$;
+ mes "I warned you not to give in";
+ mes "to the sweet smells of the ^4AA02CSatay^000000."; }
+ next;
+ mes .@n$;
+ mes "Our tribe is short on food";
+ mes "supplies so we can't give out more";
+ mes "of our ^4AA02CSatay^000000. But there's a rumor";
+ mes "that the restaurant owner in";
+ mes "Dewata Island is making and";
+ mes "selling their own ^4AA02CSatay^000000.";
+ next;
+ mes .@n$;
+ mes "It is not as tasty as our tribe's";
+ mes "recipe, but this is an urgent task.";
+ mes "Just find and deliver it.";
+ close;
+ case 2:
+ if (checkquest(9158) >= 0) {
+ mes .@n$;
+ mes "Our tribe warriors come to mind";
+ mes "to deliver the food to share ^4AA02CSatay^000000";
+ mes "with warriors in the village.";
+ } else if (checkquest(9160) >= 0) {
+ mes .@n$;
+ mes "The second person to deliver the";
+ mes "^4AA02CSatay^000000 to is someone who stays";
+ mes "across the river.";
+ next;
+ mes .@n$;
+ mes "That is the ^0000FFTribe Manager^000000.";
+ mes "Please deliver it to him before it cools down.";
+ } else if (checkquest(9162) >= 0) {
+ mes .@n$;
+ mes "The third person to deliver the";
+ mes "^4AA02CSatay^000000 to is the ^0000FFGatekeeper";
+ mes "of Krakatau Volcano^000000.";
+ mes "Please deliver it to him before it cools down.";
+ } else if (checkquest(9164) >= 0) {
+ mes .@n$;
+ mes "The last person to deliver the";
+ mes "^4AA02CSatay^000000 to is the ^0000FFBorobudur";
+ mes "Temple Manager^000000, who is in";
+ mes "^C35817Dewata Island^000000.";
+ mes "Please deliver it to him before it cools down.";
+ close; }
+ close;
+ case 3:
+ mes .@n$;
+ mes "Alright! Deliver it right now!";
+ close;
+ }
+ } else if (checkquest(9159) >= 0) {
+ mes .@n$;
+ mes "Ah, the next person whom I want";
+ mes "the ^4AA02CSatay^000000 delivered to is someone";
+ mes "who stays across from the river,";
+ mes "the ^0000FFTribe Manager^000000.";
+ next;
+ mes .@n$;
+ mes "To this end, I will give you 2";
+ mes "more servings of ^4AA02CSatay^000000.";
+ next;
+ mes .@n$;
+ mes "If you are attracted by the aroma";
+ mes "of the ^4AA02CSatay^000000, you may eat one.";
+ mes "But if you eat more you won't be";
+ mes "able to share ^4AA02CSatay^000000 with our friends.";
+ changequest 9159,9160;
+ getitem 11533,2;
+ close; }
+ else if (checkquest(9160) >= 0) goto chiefrequest;
+ else if (checkquest(9161) >= 0) {
+ mes .@n$;
+ mes "Oh, you delivered it already?";
+ mes "The third person to deliver the";
+ mes "^4AA02CSatay^000000 to is the ^0000FFGatekeeper of Krakatau Volcano^000000.";
+ next;
+ mes .@n$;
+ mes "I'll give you 2 more servings";
+ mes "of ^4AA02CSatay^000000 for this delivery.";
+ next;
+ mes .@n$;
+ mes "And just like before, don't give";
+ mes "in to the smell and try not to eat the ^4AA02CSatay^000000.";
+ changequest 9161,9162;
+ getitem 11533,2;
+ close; }
+ else if (checkquest(9162) >= 0) goto chiefrequest;
+ else if (checkquest(9163) >= 0) {
+ mes .@n$;
+ mes "Oh, you delivered it!";
+ mes "Last person to deliver ^4AA02CSatay^000000 to is";
+ mes "the ^0000FFBorobudur Temple Manager^000000, who is";
+ mes "on ^C35817Dewata Island^000000.";
+ next;
+ mes .@n$;
+ mes "I will give you 2 more ^4AA02CSatay^000000.";
+ next;
+ mes .@n$;
+ mes "And just like before, don't give";
+ mes "in to the smell and try not to eat the ^4AA02CSatay^000000.";
+ changequest 9163,9164;
+ getitem 11533,2;
+ close; }
+ else if (checkquest(9164) >= 0) goto chiefrequest;
+ else if (checkquest(9165) >= 0) {
+ mes .@n$;
+ mes "Oh, you delivered it!";
+ mes "You've done good work.";
+ mes "It has been a good time for";
+ mes "all of us to share and enjoy";
+ mes "this happy occasion together.";
+ mes "Thank you.";
+ next;
+ mes .@n$;
+ mes "While you were on the way back";
+ mes "from delivering the ^4AA02CSatay^000000,";
+ mes "the ^4AA02CJaty Crown^000000 has been made.";
+ mes "Its ambience and radiance make it a";
+ mes "truly flawless crown.";
+ next;
+ mes .@n$;
+ mes "Also, you brought more than enough";
+ mes "materials, so after making the ^4AA02CJaty";
+ mes "Crown^000000 we were able to craft a";
+ mes "similar one for you to keep.";
+ next;
+ mes .@n$;
+ mes "It's not the same as the original,";
+ mes "but it has its own specialty. It is";
+ mes "my reward to thank you for what you";
+ mes "have done.";
+ next;
+ mes .@n$;
+ mes "Made with our tribe's secret";
+ mes "marinade, try the ^4AA02CSatay^000000.";
+ mes "It was made with all our heart";
+ mes "especially for you, but don't";
+ mes "forget to share it with friends.";
+ next;
+ mes .@n$;
+ mes "You've done good work.";
+ mes "Whatever you do in the future, I";
+ mes "wish for you to have a life which";
+ mes "is full of fortune and joy";
+ mes "As Chief of the ^C35817Jaty Tribe^000000, I wish";
+ mes "you the best of luck!!";
+ set dewata_legend,6;
+ erasequest 9165;
+ getitem 11533,5;
+ getitem 18520,1;
+ close; }
+ mes .@n$;
+ mes "With your support I am not";
+ mes "worried about creating the";
+ mes "^4AA02CJaty Crown^000000. I really appreciate it.";
+ next;
+ mes .@n$;
+ mes "A delightful day like today should";
+ mes "be celebrated. Don't you think?";
+ mes "So I prepared to sample the";
+ mes "special food of our tribe, called ^4AA02CSatay^000000.";
+ next;
+ mes .@n$;
+ mes "But, this ^4AA02CSatay^000000 is too tasty for";
+ mes "just the two of us to share, so we";
+ mes "would like to share it with people";
+ mes "out in the village.";
+ next;
+ mes .@n$;
+ mes "What do you think?";
+ mes "In order to share news that";
+ mes "the ^4AA02CJaty Crown^000000 is being";
+ mes "sucessfully crafted, and to share";
+ mes "the delicious ^4AA02CSatay^000000 with our";
+ mes "friends, I need your help.";
+ next;
+ mes .@n$;
+ mes "Are you up for a short delivery job?";
+ next;
+ if(select("Of course, I can help:Sorry, I am too busy to help.")==2) {
+ mes .@n$;
+ mes "I believed you would definitely help me...";
+ mes "It's a little disappointing.";
+ mes "If you ever change your mind";
+ mes "come speak with me again.";
+ close; }
+ mes .@n$;
+ mes "Oh!, I knew you'd help.";
+ mes "Our tribe's warriors come to my";
+ mes "mind before we share with anyone else.";
+ mes "Please share ^4AA02CSatay^000000 with the";
+ mes "warriors in the village.";
+ next;
+ mes .@n$;
+ mes "For the moment I will give you 2 ^4AA02CSatay^000000.";
+ next;
+ mes .@n$;
+ mes "You may be tempted by the aroma";
+ mes "of our ^4AA02CSatay^000000, and you may eat one.";
+ mes "But if you eat more than that you won't";
+ mes "be able to share the ^4AA02CSatay^000000";
+ mes "with our village friends.";
+ setquest 9158;
+ getitem 11533,2;
+ close;
+ } else if(dewata_legend == 6) {
+ mes .@n$;
+ mes "You've done good work.";
+ mes "Whatever you do in the future, I";
+ mes "wish for you to have a life which";
+ mes "is full of fortune and joy.";
+ mes "As Chief of the ^C35817Jaty Tribe^000000, I wish";
+ mes "you the best of luck!!";
+ close; }
+ mes .@n$;
+ mes "I am the leader of this ^0000FFPaiko^000000 tribe.";
+ close;
+}
+
+// NPC - Sage Kasyapa
+//============================================================
+
+dew_in01,22,48,3 script Sage Kasyapa#dew_ 541,{
+
+ if(dewata_legend == 2 || dewata_legend == 3) {
+ mes "[Sage Kasyapa]";
+ mes "Instead of talking to me, why";
+ mes "don't you talk to our tribe's";
+ mes "leader, ^0000FFChief Paiko^000000?";
+ close;
+ } else if(dewata_legend == 4) {
+ if (checkquest(9155) >= 0) {
+ mes "[Sage Kasyapa]";
+ mes "I heard you could help making";
+ mes "a crown for our tribe leader.";
+ mes "You will certainly be a big";
+ mes "help to us... I trust my";
+ mes "own eyes and the";
+ mes "sparking light...";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "The symbol of the Dayak Tribe";
+ mes "and a famous mystical creature.";
+ mes "Find ^FF000015 ^4AA02CCendrawasih Feathers^000000";
+ mes "and bring them to ^0000FFChief Paiko^000000.";
+ close;
+ } else if (checkquest(9156) >= 0) {
+ mes "[Sage Kasyapa]";
+ mes "With the feathers that you have";
+ mes "brought, creating a ^4AA02CJaty Crown^000000 is";
+ mes "going much more smoothly.";
+ mes "Go see ^0000FFChief Paiko^000000.";
+ close;
+ } else if (checkquest(9157) >= 0) {
+ mes "[Sage Kasyapa]";
+ mes "There is something";
+ mes "I wish to give to you";
+ mes "as a reward for your help.";
+ mes "Please, it would honor us if you would take it.";
+ next;
+ specialeffect2 EF_PNEUMA;
+ mes "[Sage Kasyapa]";
+ mes "The reason I asked you to embark";
+ mes "on this important mission is";
+ mes "because of this feather.";
+ mes "Handed down from generation to";
+ mes "generation, the legendary origin of";
+ mes "the crown is this feather...";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "I saw this feather begin to shine";
+ mes "when you came here.";
+ mes "I knew you were a person who";
+ mes "would endeavour to help us.";
+ mes "On behalf of my people,";
+ mes "I give my thanks.";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "Also, the feather you received";
+ mes "isn't just valuable on it's own,";
+ mes "it also is an acknowledgment from our tribe.";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "Like ^C35817Krakatau Volcano^000000, when you";
+ mes "venture into dangerous areas like";
+ mes "that, if you display this feather,";
+ mes "you can get help from the tribe.";
+ mes "Anyway, I really thank you.";
+ set dewata_legend,5;
+ erasequest 9157;
+ getitem 6406,1;
+ close; }
+ mes "[Sage Kasyapa]";
+ mes "I've been waiting for you.";
+ mes "Our tribe's leader has a favor";
+ mes "to ask of you.";
+ mes "Please talk to ^0000FFChief Paiko^000000.";
+ close;
+ } else if(dewata_legend >= 5) {
+ mes "[Sage Kasyapa]";
+ mes "Also, the feather you received";
+ mes "isn't just valuable on it's own,";
+ mes "it also is an acknowledgment from our tribe.";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "Like ^C35817Krakatau Volcano^000000, when you";
+ mes "venture into dangerous areas like";
+ mes "that, if you display this feather";
+ mes "you can get help from the tribe.";
+ mes "Anyway, I really thank you.";
+ close; }
+ mes "[Sage Kasyapa]";
+ mes "Your earnest expression tells me";
+ mes "that you have something to say";
+ mes "you might as well tell me what it is.";
+ next;
+ if(select("I overheard talk about a crown...:Just looking for the gift shop.")==2) {
+ emotion e_hmm,0,"Tribal Chief Paiko#dew_";
+ mes .@n$;
+ mes "Really?";
+ mes "It looked as if your eyes";
+ mes "wanted to say something.";
+ close; }
+ mes "[Sage Kasyapa]";
+ mes "Oh, you heard about the crown, eh?";
+ mes "Ah, this old man's got loose lips.";
+ mes "We should have used a little more";
+ mes "discretion...";
+ next;
+ select("Anything I can do to help?");
+ mes "[Sage Kasyapa]";
+ mes "I can see in your eyes";
+ mes "that you are a trustworthy sort... but...";
+ next;
+ specialeffect EF_PNEUMA;
+ mes "- There is a brief twinkling";
+ mes "of light. All of a sudden ^0000FFKasyapa^000000";
+ mes "seems taken aback. -";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "Ah, the feather......!";
+ mes "Instead of talking to me, why don't";
+ mes "you talk to our tribe's leader,";
+ mes "^0000FFPaiko^000000?";
+ set dewata_legend,2;
+ close;
+}
+
+// NPC - Palm Tree
+//============================================================
+
+- script Palm Tree -1,{
+
+ if (checkquest(5039) >= 0 || checkquest(5046) >= 0 || checkquest(5048) >= 0 || checkquest(5050) >= 0) {
+ if ((checkquest(5039) >= 0) && countitem(6402) > 59 || (checkquest(5046) >= 0 && countitem(6402) > 19) || (checkquest(5048) >= 0 && countitem(6402) > 29) || (checkquest(5050) >= 0 && countitem(6402) > 39)) {
+ mes "- The palm tree denies your greedy hands. -";
+ close; }
+ mes "There's palm tree.";
+ mes "You can kick or shake it.";
+ mes "What do you want to do?";
+ next;
+ switch(select("Shake the tree:Kick the tree")) {
+ case 1:
+ specialeffect EF_HITLINE2;
+ mes "You shake the palm tree.";
+ next;
+ mes "... ... ...";
+ next;
+ set .@palm_rand,rand(1,20);
+ if (.@palm_rand > 0 && .@palm_rand < 5) {
+ set .@pstone,rand(1,3);
+ if (.@pstone == 1) {
+ mes "As you shake the palm tree like a";
+ mes "polaroid picture...";
+ mes "a ^FF0000stone^000000 falls out.";
+ } else if (.@pstone == 2) {
+ mes "As you shake the palm tree";
+ mes "enough to move its branchs...";
+ mes "a ^FF0000Stone^000000 falls out.";
+ } else if (.@pstone == 3) {
+ mes "As you shake the palm tree like";
+ mes "a crazed Alchemist...";
+ mes "a ^FF0000Stone^000000 falls out."; }
+ getitem 7049,1;
+ } else if (.@palm_rand == 13 || .@palm_rand == 12) {
+ if(getequipid(EQI_HEAD_TOP) == 5009) {
+ mes "- Something smashes down on your";
+ mes "head, right where that soft spot";
+ mes "is, but it's ok, you're safe!";
+ mes "'cuz you already equipped ^0000FFSafety Helmet^000000. -";
+ close2;
+ specialeffect EF_BASH;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ end; }
+ mes "As you shake the palm tree with";
+ mes "wreckless abandon...";
+ mes "something smashes down on your";
+ mes "head, right where that soft spot";
+ mes "is, $#*@! that's a one in a million shot.";
+ close2;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ warp "dew_fild01",371,211;
+ percentheal -10,0;
+ end;
+ } else if (.@palm_rand >= 5 && .@palm_rand < 9) {
+ set .@pleaf,rand(1,3);
+ if (.@pleaf == 1) {
+ mes "As you shake the palm tree like a";
+ mes "salt shaker...";
+ mes "a ^FF0000Great Leaf^000000 falls out.";
+ } else if (.@pleaf == 2) {
+ mes "As you shake the palm tree with";
+ mes "furious violence...";
+ mes "a ^FF0000Great Leaf^000000 falls out.";
+ } else if (.@pleaf == 3) {
+ mes "As you shake the palm tree";
+ mes "enough to move its branchs...";
+ mes "a ^FF0000Great Leaf^000000 falls out."; }
+ getitem 7198,1;
+ } else if (.@palm_rand >= 9 && .@palm_rand < 12) {
+ set .@pfruit,rand(1,6);
+ if (.@pfruit == 1) {
+ mes "Once shaking a palm tree";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ mes "- Fell in a Hurly-Burly.. -";
+ mes "- Fell in a Hurly-Burly.. -";
+ } else if (.@pfruit == 2) {
+ mes "As you shake the palm tree with";
+ mes "all of your strength...";
+ mes "tons of ^0000FFOil Palm Fruit^000000 crashes down from the tree.";
+ } else if (.@pfruit == 3) {
+ mes "As you shake the palm tree like";
+ mes "a disobedient child...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ } else if (.@pfruit == 4) {
+ mes "As you shake the palm tree";
+ mes "enough to move its branchs...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ } else if (.@pfruit == 5) {
+ mes "Once shaking a palm tree";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ } else if (.@pfruit == 6) {
+ mes "As you shake the palm tree like";
+ mes "a crazed Alchemist...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out."; }
+ getitem 6402,rand(1,5);
+ } else if (.@palm_rand > 13 && .@palm_rand < 17) {
+ set .@pworm,rand(1,3);
+ if (.@pworm == 1){
+ mes "As you shake the palm tree like";
+ mes "a disobedient child...";
+ mes "a ^FF0000Worm Peeling^000000 falls out";
+ } else if (.@pworm == 2) {
+ mes "As you shake the palm tree like";
+ mes "a crazed Alchemist...";
+ mes "a ^FF0000Worm Peeling^000000 falls out.";
+ } else if (.@pworm == 3) {
+ mes "As you shake the palm tree with";
+ mes "all of your strength...";
+ mes "tons of ^FF0000Worm Peeling^000000 crashes down from the tree."; }
+ getitem 955,1;
+ } else if (.@palm_rand >= 17 && .@palm_rand <= 19) {
+ set .@pnothing,rand(1,3);
+ if (.@pnothing == 1) {
+ mes "As you shake the palm tree like";
+ mes "a crazed Alchemist...";
+ mes "but nothing happens.";
+ } else if (.@pnothing == 2) {
+ mes "As you shake the palm tree";
+ mes "with wreckless abandon...";
+ mes "but nothing happens.";
+ } else if (.@pnothing == 3) {
+ mes "As you shake the palm tree";
+ mes "enough to move its branchs...";
+ mes "but nothing happens.";
+ }
+ }
+ close2;
+ specialeffect EF_BASH;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ end;
+ case 2:
+ specialeffect EF_BASH;
+ mes "You kick the palm tree swiftly with";
+ mes "all your might.";
+ next;
+ mes "... ... ...";
+ next;
+ set .@palm_rand,rand(1,20);
+ if (.@palm_rand > 0 && .@palm_rand < 5) {
+ set .@pstone,rand(1,3);
+ if (.@pstone == 1) {
+ mes "As you give the palm tree";
+ mes "a big boot...";
+ mes "a ^FF0000Stone^000000 falls out.";
+ } else if (.@pstone == 2) {
+ mes "As you give the palm tree";
+ mes "a strong kick like a scorned";
+ mes "woman...";
+ mes "a ^FF0000stone^000000 falls out.";
+ } else if (.@pstone == 3) {
+ mes "As you give the palm tree";
+ mes "a good'ole football punt...";
+ mes "a ^FF0000stone^000000 falls out."; }
+ getitem 7049,1;
+ } else if (.@palm_rand == 13 || .@palm_rand == 12) {
+ if(getequipid(EQI_HEAD_TOP) == 5009) {
+ mes "- Something smashes down on your";
+ mes "head, right where that soft spot";
+ mes "is, but it's ok, you're safe!";
+ mes "'cuz you already equipped ^0000FFSafety Helmet^000000. -";
+ close2;
+ specialeffect EF_BASH;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ end; }
+ mes "As you shake the palm tree with";
+ mes "wreckless abandon...";
+ mes "something smashes down on your";
+ mes "head, right where that soft spot";
+ mes "is, $#*@! that's a one in a million shot.";
+ close2;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ warp "dew_fild01",371,211;
+ percentheal -10,0;
+ end;
+ } else if (.@palm_rand >= 5 && .@palm_rand < 9) {
+ set .@pleaf,rand(1,3);
+ if (.@pleaf == 1) {
+ mes "Once kicking a palm tree";
+ mes "with all power";
+ mes "a ^FF0000Great Leaf^000000 falls out.";
+ } else if (.@pleaf == 2) {
+ mes "As you give the palm tree";
+ mes "a good'ole football punt...";
+ mes "a ^FF0000Great Leaf^000000 falls out.";
+ } else if (.@pleaf == 3) {
+ mes "As you give the palm tree";
+ mes "a quick kick to it's";
+ mes "proverbial shin...";
+ mes "a ^FF0000Great Leaf^000000 falls out."; }
+ getitem 7198,1;
+ } else if (.@palm_rand >= 9 && .@palm_rand < 12) {
+ set .@pfruit,rand(1,6);
+ if (.@pfruit == 1) {
+ mes "Once kicking a palm tree";
+ mes "with all power...";
+ mes "an ^0000FFOil Palm Tree^000000 falls out.";
+ mes "- Fell in a Hurly-Burly.. -";
+ mes "- Fell in a Hurly-Burly.. -";
+ } else if (.@pfruit == 2) {
+ mes "As you give the palm tree";
+ mes "a quick kick to it's";
+ mes "proverbial shin...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ } else if (.@pfruit == 3) {
+ mes "As you give the palm tree";
+ mes "a good 'ole punt...";
+ mes "tons of ^0000FFOil Palm Fruit^000000 crashs down";
+ mes "from the tree.";
+ } else if (.@pfruit == 4) {
+ mes "As you give the palm tree";
+ mes "a chuck norris kick...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out.";
+ } else if (.@pfruit == 5) {
+ mes "As you give the palm tree";
+ mes "a strong dropkick...";
+ mes "tons of ^0000FFOil Palm Fruit^000000 crashs down";
+ mes "from the tree.";
+ } else if (.@pfruit == 6) {
+ mes "As you give the palm tree";
+ mes "a good'ole football punt...";
+ mes "an ^0000FFOil Palm Fruit^000000 falls out."; }
+ getitem 6402,rand(1,5);
+ } else if (.@palm_rand > 13 && .@palm_rand < 17) {
+ set .@pworm,rand(1,3);
+ if (.@pworm == 1) {
+ mes "As you give the palm tree";
+ mes "a strong dropkick...";
+ mes "a ^FF0000Worm Peeling^000000 falls out";
+ } else if (.@pworm == 2) {
+ mes "Once kicking a palm tree";
+ mes "with all power...";
+ mes "a ^FF0000Worm Peeling^000000 falls out.";
+ } else if (.@pworm == 3) {
+ mes "As you give the palm tree";
+ mes "a chuck norris kick...";
+ mes "tons of ^FF0000Worm Peeling^000000 crashes down from the tree."; }
+ getitem 955,1;
+ } else if (.@palm_rand >= 17 && .@palm_rand <= 19) {
+ set .@pnothing,rand(1,3);
+ if (.@pnothing == 1) {
+ mes "As you give the palm tree";
+ mes "a good'ole roundhouse...";
+ mes "but nothing happens.";
+ } else if (.@pnothing == 2) {
+ mes "As you give the palm tree";
+ mes "a strong kick like a scormed";
+ mes "woman...";
+ mes "but nothing happens.";
+ } else if (.@pnothing == 3) {
+ mes "As you give the palm tree";
+ mes "a thunderous kick...";
+ mes "but nothing happens."; }
+ }
+ close2;
+ specialeffect EF_BASH;
+ initnpctimer;
+ disablenpc "Palm Tree#"+strnpcinfo(2);
+ end;
+ }
+ } else {
+ mes "- There's a palm tree facing the cool wind. -";
+ close; }
+ end;
+
+OnTimer60000:
+ enablenpc "Palm Tree#"+strnpcinfo(2);
+ stopnpctimer;
+ end;
+}
+dew_fild01,209,201,0 duplicate(Palm Tree) Palm Tree#drink01 844
+dew_fild01,338,121,0 duplicate(Palm Tree) Palm Tree#drink02 844
+dew_fild01,247,62,0 duplicate(Palm Tree) Palm Tree#drink03 844
+dew_fild01,358,136,0 duplicate(Palm Tree) Palm Tree#drink04 844
+dew_fild01,276,73,0 duplicate(Palm Tree) Palm Tree#drink05 844
+dew_fild01,326,147,0 duplicate(Palm Tree) Palm Tree#drink06 844
+dew_fild01,278,63,0 duplicate(Palm Tree) Palm Tree#drink07 844
+dew_fild01,334,107,0 duplicate(Palm Tree) Palm Tree#drink08 844
+dew_fild01,301,88,0 duplicate(Palm Tree) Palm Tree#drink09 844
+dew_fild01,307,146,0 duplicate(Palm Tree) Palm Tree#drink10 844
+dew_fild01,314,72,0 duplicate(Palm Tree) Palm Tree#drink11 844
+dew_fild01,325,159,0 duplicate(Palm Tree) Palm Tree#drink12 844
+dew_fild01,320,68,0 duplicate(Palm Tree) Palm Tree#drink13 844
+dew_fild01,339,163,0 duplicate(Palm Tree) Palm Tree#drink14 844
+dew_fild01,345,88,0 duplicate(Palm Tree) Palm Tree#drink15 844
+dew_fild01,346,193,0 duplicate(Palm Tree) Palm Tree#drink16 844
+dew_fild01,344,71,0 duplicate(Palm Tree) Palm Tree#drink17 844
+dew_fild01,355,193,0 duplicate(Palm Tree) Palm Tree#drink18 844
+dew_fild01,358,93,0 duplicate(Palm Tree) Palm Tree#drink19 844
+dew_fild01,341,261,0 duplicate(Palm Tree) Palm Tree#drink20 844
+dew_fild01,70,196,0 duplicate(Palm Tree) Palm Tree#drink21 844
+dew_fild01,363,219,0 duplicate(Palm Tree) Palm Tree#drink22 844
+dew_fild01,289,302,0 duplicate(Palm Tree) Palm Tree#drink23 844
+dew_fild01,97,145,0 duplicate(Palm Tree) Palm Tree#drink24 844
+dew_fild01,299,107,0 duplicate(Palm Tree) Palm Tree#drink25 844
+dew_fild01,206,99,0 duplicate(Palm Tree) Palm Tree#drink26 844
+dew_fild01,355,113,0 duplicate(Palm Tree) Palm Tree#drink27 844
+dew_fild01,188,72,0 duplicate(Palm Tree) Palm Tree#drink28 844
+dew_fild01,278,136,0 duplicate(Palm Tree) Palm Tree#drink29 844
+dew_fild01,238,80,0 duplicate(Palm Tree) Palm Tree#drink30 844
+dew_fild01,258,128,0 duplicate(Palm Tree) Palm Tree#drink31 844
+dew_fild01,252,97,0 duplicate(Palm Tree) Palm Tree#drink32 844
+dew_fild01,240,125,0 duplicate(Palm Tree) Palm Tree#drink33 844
+dew_fild01,256,98,0 duplicate(Palm Tree) Palm Tree#drink34 844
+dew_fild01,225,117,0 duplicate(Palm Tree) Palm Tree#drink35 844
+dew_fild01,119,42,0 duplicate(Palm Tree) Palm Tree#drink36 844
+dew_fild01,219,121,0 duplicate(Palm Tree) Palm Tree#drink37 844
+dew_fild01,279,93,0 duplicate(Palm Tree) Palm Tree#drink38 844
+dew_fild01,209,137,0 duplicate(Palm Tree) Palm Tree#drink39 844
+dew_fild01,206,156,0 duplicate(Palm Tree) Palm Tree#drink40 844
+
+// NPC - Hideouts
+//============================================================
+
+dew_fild01,57,273,0 script #hideout 45,1,1,{
+ if(dewata_legend >= 1) {
+ warp "dew_in01",16,34;
+ end; }
+ mes "- You hear a faint conversation going on inside -";
+ next;
+ mes "[Tribal Chief Paiko]";
+ mes "Once again, I have failed to";
+ mes "make the ^E66C2CJaty Crown^000000...";
+ mes "I was sure that I could do it this time.";
+ mes "Why won't it work?";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "The ^4AA02CJaty Crown^000000 has been known to";
+ mes "have miraculous power since the";
+ mes "time of the ancients.";
+ mes "But it's been said that only those";
+ mes "who've earned a tribal honor";
+ mes "would be able to use it.";
+ next;
+ mes "[Tribal Chief Paiko]";
+ mes "^0000FFKasyapa^000000!!";
+ mes "Are you saying that even though I";
+ mes "am the leader of our tribe, I have";
+ mes "not yet received that honor?";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "Calm down, ^0000FFChief Paiko^000000...";
+ mes "As the Great and Powerful Chief,";
+ mes "you should be more than enough to qualify.";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "In my younger years I could have";
+ mes "easily solved the problem, but this";
+ mes "old man's mind cannot figure out";
+ mes "what's missing.";
+ next;
+ mes "- The conversation trails off and";
+ mes "you don't hear anymore. -";
+ set dewata_legend,1;
+ close;
+}
+
+dew_in01,16,31,0 script #hidein 45,1,1,{
+ if(dewata_legend != 3) {
+ warp "dew_fild01",60,273;
+ end; }
+ mes "- Kasyapa and Chief Paiko begin";
+ mes "talking as you are about to";
+ mes "leave... -";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "I am unsure of what is missing, but";
+ mes "that traveler could be a big help in";
+ mes "creating the ^4AA02CJaty Crown^000000.";
+ mes "Of this I am certain.";
+ mes "The reason is...";
+ next;
+ mes "[Tribal Chief Paiko]";
+ mes "What is the reason?";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "This ^E56717Cendrawasih Feather^000000 was owned";
+ mes "by our first tribe leader when the";
+ mes "crown was originally created.";
+ mes "It was stored as a treasured";
+ mes "heirloom of our tribe.";
+ next;
+ mes "[Sage Kasyapa]";
+ mes "But when the traveler came near,";
+ mes "this feather started to shine, and";
+ mes "I kept thinking that this is not";
+ mes "just a coincidence";
+ mes "This person will be the key to";
+ mes "assisting us to make the crown.";
+ next;
+ mes "[Tribal Chief Paiko]";
+ mes "Could it happen for sure?";
+ mes "If so, I will give everything";
+ mes "to support them...";
+ set dewata_legend,4;
+ close;
+}
+
+// NPC - Mastersmith Gatti
+//============================================================
+
+dew_fild01,127,240,4 script Gatti#weapon 813,{
+ if (checkquest(5052) >= 0) {
+ mes "[Gatti]";
+ mes "Were you recognized by the natives?";
+ next;
+ mes "[Gatti]";
+ mes "... ... ...";
+ next;
+ if (dewata_legend >= 5) {
+ mes "[Gatti]";
+ mes "Oh yes! Finally.";
+ mes "You also possess a strong energy.";
+ mes "Did you finally get the recognition from natives?";
+ next;
+ select("Yes.");
+ mes "[Gatti]";
+ mes "Oh! Just as I expected!";
+ mes "I was so lucky to meet you.";
+ mes "Everything is going so well.";
+ next;
+ mes "[Gatti]";
+ mes "I know I have no right to ask";
+ mes "you for this, but a meeting like";
+ mes "this is destiny...";
+ next;
+ mes "[Gatti]";
+ mes "- Gatti mumbles. -";
+ next;
+ mes "[Gatti]";
+ mes "The weapon material that I so";
+ mes "longed for is ^0000FFComodo Leather^000000.";
+ mes "Please get me 100 of them.";
+ next;
+ mes "[Gatti]";
+ mes "I'm so eager to make the weapon in";
+ mes "the weapon blueprint.";
+ next;
+ mes "[Gatti]";
+ mes "Please, before my passion fades out.";
+ next;
+ mes "[Gatti]";
+ mes "Oh! And the Comodo Dragon is a very";
+ mes "powerful monster, so please be careful.";
+ changequest 5052,5053;
+ close; }
+ mes "[Gatti]";
+ mes "Not yet, I guess. I'm asking around";
+ mes "everywhere, but I couldn't find a";
+ mes "way to get recognition from natives.";
+ mes "I don't know when I can finish";
+ mes "making this weapon.";
+ next;
+ mes "[Gatti]";
+ mes "If you get recognition before";
+ mes "me, please DON'T forget to visit";
+ mes "me.";
+ close;
+ } else if (checkquest(5053) >= 0) {
+ if (countitem(6403) > 99) {
+ mes "[Gatti]";
+ mes "By the looks of your walk, you must";
+ mes "have brought me 100 Comodo Leather. Hand it over to me.";
+ next;
+ mes "- Gatti takes the Comodo Leather from you. -";
+ erasequest 5053;
+ set dewata_gatti,2;
+ delitem 6403,100;
+ close; }
+ mes "[Gatti]";
+ mes "Please be careful. The Comodo";
+ mes "Dragon is very powerful monster.";
+ mes "And don't forget to bring me 100";
+ mes "Comodo Leather on your";
+ mes "way back.";
+ close; }
+ if (dewata_gatti == 0) {
+ mes "[Gatti]";
+ mes "Hey there, young man~ Are you from here?";
+ next;
+ select("No, I'm not.");
+ mes "[Gatti]";
+ mes "I'd like to ask you a question.";
+ mes "Where is this place?";
+ next;
+ mes "- He seems to be asking for the";
+ mes "Island name. -";
+ next;
+ input .@dewataname$;
+ if (.@dewataname$ != "Dewata Island") {
+ mes "[Gatti]";
+ mes "Is that so... "+.@dewataname$+"? "+.@dewataname$+"... "+.@dewataname$+"...";
+ mes ""+.@dewataname$+"...";
+ next;
+ mes "- The old man gave a deep sign of resignation and countinued speaking. -";
+ next;
+ mes "[Gatti]";
+ mes "Damn... My plan is ruined. I";
+ mes "invested all my fortunes to get";
+ mes "there, but I failed. I can't do";
+ mes "anything now, my boat has been";
+ mes "wrecked.";
+ next;
+ mes "- The old man starts to cry. -";
+ mes "- Feeling awkward, you quickly leave. -";
+ close; }
+ mes "[Gatti]";
+ mes "This is Dewata Island? You're sure";
+ mes "this is Dewata Island?";
+ next;
+ mes "[Gatti]";
+ mes "Hahahahahahahahaha...!!!";
+ next;
+ mes "- The old man started to laugh";
+ mes "like a crazy person after";
+ mes "hearing the name of the island.";
+ mes "You decide to ask a little bit later. -";
+ set dewata_gatti,1;
+ close;
+ } else if (dewata_gatti == 1) {
+ select("Well, sir...");
+ mes "[Gatti]";
+ mes "Cough... cough...";
+ next;
+ mes "[Gatti]";
+ mes "Oh... Sorry~ Sorry. I was so happy";
+ mes "that I finally arrived at Dewata";
+ mes "Island.";
+ next;
+ mes "[Gatti]";
+ mes "This is not a short story. Oh! I";
+ mes "have to introduce myself first. I";
+ mes "am Mastersmith Gatti, also an";
+ mes "Adventurer.";
+ next;
+ mes "[Gatti]";
+ mes "I found a mysterious weapon";
+ mes "blueprint, but I don't remember";
+ mes "exactly when I acquired it.";
+ next;
+ select("Weapon blueprint...?");
+ mes "[Gatti]";
+ mes "Yes! I traveled all around to find";
+ mes "the materials for the weapon, but...";
+ next;
+ select("But what?");
+ mes "[Gatti]";
+ mes "I couldn't find the last material anywhere.";
+ next;
+ mes "[Gatti]";
+ mes "It was about to give up, but there";
+ mes "was some fine print on the";
+ mes "blueprint saying that it could be";
+ mes "found on Dewata Island.";
+ next;
+ mes "[Gatti]";
+ mes "I don't know why somebody put such";
+ mes "an important thing in fine print.";
+ mes "Anyway, after reading that, I";
+ mes "invested all my fortunes to find";
+ mes "that Island.";
+ next;
+ select("Oh... Is that so?");
+ mes "[Gatti]";
+ mes "This island is strange. I arrived";
+ mes "here a week ago, and everybody here";
+ mes "has been avoiding me.";
+ next;
+ mes "[Gatti]";
+ mes "Last week was so hard, but you";
+ mes "saved me by telling me this is";
+ mes "Dewata Island.";
+ mes "Thank you for telling me, and";
+ mes "thank you for passing here at";
+ mes "just the right time.";
+ next;
+ select("Uh... No problem.");
+ mes "[Gatti]";
+ mes "Well... There was a little problem";
+ mes "of my ship getting wrecked, but";
+ mes "that's neither here nor there.";
+ next;
+ mes "[Gatti]";
+ mes "Now that I found out this is";
+ mes "Dewata Island, I should find";
+ mes "the material for this great weapon.";
+ next;
+ mes "[Gatti]";
+ mes "... ... ... ...";
+ next;
+ mes "[Gatti]";
+ mes "Ah! The material that I am looking";
+ mes "for is ^FF0000Comodo Leather^000000.";
+ next;
+ select("^FF0000Comodo Leather?^000000");
+ mes "[Gatti]";
+ mes "Yes. In the blueprint, it's";
+ mes "written that only a few";
+ mes "of the Dewata Natives are";
+ mes "worthy enough to fight";
+ mes "against the Comodo Dragon.";
+ next;
+ mes "[Gatti]";
+ mes "In order to fight the Comodo";
+ mes "Dragon, you have to get recognized";
+ mes "by the natives. I assume it'll be";
+ mes "hard to get the recognition.";
+ next;
+ select("Of course, it must be...");
+ mes "[Gatti]";
+ mes "Let me ask you a favor.";
+ mes "If you get the recognition first,";
+ mes "please don't forget to visit me.";
+ setquest 5052;
+ close;
+ } else if (dewata_gatti == 2) {
+ mes "[Gatti]";
+ mes "Oh~ Look at this. How resilient.. So soft.";
+ next;
+ mes "[Gatti]";
+ mes "Comodo Leather is the best material ever.";
+ next;
+ mes "[Gatti]";
+ mes "Hmm... Like this?";
+ next;
+ mes "[Gatti]";
+ mes "Or like this? Yes! This is the way!";
+ next;
+ mes "- Mastersmith Gatti enjoys";
+ mes "processing the Leathers you've";
+ mes "brought to make the weapon. -";
+ mes "- You should wait a little while. -";
+ set dewata_gatti,3;
+ close;
+ } else if (dewata_gatti == 3) {
+ if (checkquest(5054) >= 0) {
+ mes "[Gatti]";
+ mes "You brought all the material already?";
+ mes "You were also curious about the finished weapon? Haha.";
+ next;
+ mes "[Gatti]";
+ mes ".... .... ....";
+ next;
+ if (countitem(6403)>99 && countitem(999)>19 && countitem(984)>9 && countitem(6404)) {
+ mes "[Gatti]";
+ mes "Great, we have enough. Wait a little.";
+ next;
+ specialeffect EF_REFINEOK;
+ mes "[Gatti]";
+ mes "I finished making the weapon. This";
+ mes "is called ^FF0000Keris^000000, according to the blueprint.";
+ next;
+ mes "[Gatti]";
+ mes "I keep finding new stuff when I";
+ mes "lay my eyes on this blueprint.";
+ next;
+ mes "[Gatti]";
+ mes "I've learned how to make the";
+ mes "weapon, so ask me anytime if you need it.";
+ set dewata_gatti,4;
+ getitem 13067,1;
+ delitem 6403,100;
+ delitem 999,20;
+ delitem 984,10;
+ delitem 6404,1;
+ erasequest 5054;
+ close; }
+ mes "[Gatti]";
+ mes "Hmm... I need more of those.";
+ mes "If my ship didn't get wrecked.";
+ mes "I could made it on my own, but...";
+ next;
+ mes "- Gatti mumbles to himself. -";
+ next;
+ mes "[Gatti]";
+ mes "100 Comodo Leather, 20 Steel,";
+ mes "and 10 Oridecon are what I need.";
+ next;
+ mes "[Gatti]";
+ mes "If you bring them all,";
+ mes "I'll make the best weapon ever.";
+ close; }
+ select("Well... Gatti?");
+ mes "[Gatti]";
+ mes "Oh! Sorry, sorry! This leather is";
+ mes "so interesting.";
+ next;
+ mes "[Gatti]";
+ mes "I made a hilt out of the leather you brought me.";
+ next;
+ mes "[Gatti]";
+ mes ".... .... .... ....";
+ next;
+ select("Hilt?");
+ mes "[Gatti]";
+ mes "You don't know what a hilt is?";
+ mes "That's what you call the handle of a weapon.";
+ next;
+ mes "- Gatti shows a thing that looks like the handle of a weapon. -";
+ next;
+ mes "[Gatti]";
+ mes "I tried making it like what's";
+ mes "written in the blueprint, but";
+ mes "I need more material.";
+ next;
+ select("Really?");
+ mes "[Gatti]";
+ mes ".... .... .... ....";
+ next;
+ mes "[Gatti]";
+ mes "Yes... To be frank with you,";
+ mes "I ruined a lot of them trying";
+ mes "different things.";
+ next;
+ mes "[Gatti]";
+ mes "I know this is alot to ask,";
+ mes "but can you get me 100 more";
+ mes "Comodo Leather, 20 Steel, and 10 Oridecon?";
+ next;
+ mes "[Gatti]";
+ mes "I'll make you a best weapon ever.";
+ next;
+ mes "[Gatti]";
+ mes "Oh! I almost forgot. Don't forget";
+ mes "to bring the hilt that I just made you.";
+ next;
+ mes "[Gatti]";
+ mes "A weapon must have a handle.";
+ getitem 6404,1;
+ setquest 5054;
+ close;
+ } else if (dewata_gatti >= 4) {
+ mes "[Gatti]";
+ mes "You're ^FF0000"+strcharinfo(0)+"^000000?";
+ mes "So, how's the Keris that I made it for you?";
+ next;
+ switch(select("It's great!:I need another Keris.:Can I make it stronger?")) {
+ case 1:
+ mes "[Gatti]";
+ mes "Yes, yes of course it's great.";
+ mes "I made that weapon so it must be good.";
+ close;
+ case 2:
+ if (countitem(6404) == 1) {
+ if (countitem(6403)>69 && countitem(999)>19 && countitem(984)>9) {
+ mes "[Gatti]";
+ mes "You have all materials.";
+ mes "Wait just a little.";
+ next;
+ specialeffect EF_REFINEOK;
+ mes "[Gatti]";
+ mes "Here is the Keris! Ask me anytime.";
+ getitem 13067,1;
+ delitem 6404,1;
+ delitem 6403,70;
+ delitem 999,20;
+ delitem 984,10;
+ close; }
+ mes "[Gatti]";
+ mes "You only have a Hilt. You'll need";
+ mes "to bring me 10 Oridecon, 20 Steel,";
+ mes "and 70 Comodo Leather.";
+ next;
+ mes "[Gatti]";
+ mes "If you bring them, I'll make a";
+ mes "brand new Keris.";
+ close;
+ } else if (countitem(6404) > 1) {
+ mes "[Gatti]";
+ mes "You already have 1 Hilt in your inventory. What do you need 1 more Hilt for?";
+ close;
+ } else if (countitem(6403)>49 && countitem(7201)) {
+ mes "[Gatti]";
+ mes "You bought the material for the";
+ mes "Hilt. I'll make it right away.";
+ next;
+ mes "[Gatti]";
+ mes "Put in here, and process it like this...";
+ next;
+ mes "[Gatti]";
+ mes "Here you go. I can make a Keris if";
+ mes "you bring me 10 Oridecon, 20 Steel,";
+ mes "and 70 Comodo Leather.";
+ getitem 6404,1;
+ delitem 6403,50;
+ delitem 7201,1;
+ close; }
+ mes "[Gatti]";
+ mes "You want me to make one more";
+ mes "Keris for you? In that case I";
+ mes "need a Hilt, 50 Comodo Leather,";
+ mes "and 1 Log. These are what I need to make a Hilt.";
+ close;
+ case 3:
+ mes "[Gatti]";
+ mes "So, you want to enchant your";
+ mes "weapon? The weapon gets broken";
+ mes "from time to time during the";
+ mes "process, but it doesn't";
+ mes "happen that often.";
+ next;
+ mes "[Gatti]";
+ mes "In another case, the enchantment";
+ mes "may be applied to an item which";
+ mes "you didn't mean to enchant.";
+ mes "So just bring ^5555ffONE Weapon^000000";
+ mes "if you want the enchantment to be safe.";
+ next;
+ switch(select("Please enchant the weapon.","Things you need to know.","Maybe next time.")) {
+ case 1:
+ mes "[Gatti]";
+ mes "^FFA500To enchant your Weapon^000000:";
+ mes "- 100,000 Zeny";
+ mes "- ^FF0000Weapon will lose refines and cards^000000.";
+ next;
+ if (countitem(13067) > 1) {
+ mes "[Gatti]";
+ mes "Please come back with just ONE equipment to be enchanted.";
+ close; }
+ mes "[Gatti]";
+ mes "You want to enchant your";
+ mes "^FF0000" + getitemname(13067) + "^000000?";
+ mes "The cost of this work is ^0000FF100,000^000000 Zeny.";
+ next;
+ if(select("Do it, please!:May be next time..")==2) close;
+ if (Zeny < 100000) {
+ mes "[Gatti]";
+ mes "I'd like to go ahead with this enchant attempt, but you're missing a few things.";
+ mes "You sure that you have enough Zeny.";
+ close; }
+ delitem 13067,1;
+ set Zeny, Zeny-100000;
+ close2;
+ specialeffect2 EF_REPAIRWEAPON;
+ progressbar "FFFF00",3;
+ set .@Enchant_3,rand(4760,4802);
+ set .@Enchant_4,rand(4760,4802);
+ set .@ERate, rand(100);
+ if (.@ERate < 14) { // -- 14% Break chance
+ mes "[Gatti]";
+ mes "Wah! I am so sorry, but it failed.";
+ mes "However, I am completely innocent.";
+ mes "This is your luck, and it was destined by god, okay?";
+ mes "Don't be so disappointed, and try next time.";
+ next;
+ mes "[Gatti]";
+ mes "I wish you good luck next time!";
+ close;
+ } else {
+ getitem2 13067,1,1,0,0,0,0,.@Enchant_3,.@Enchant_4;
+ mes "[Gatti]";
+ mes "Great, your weapon received the enchant.";
+ mes "It looks pretty well done. Congratulations!";
+ next;
+ mes "[Gatti]";
+ mes "See you again, adventurer!";
+ close; }
+ case 2:
+ mes "[Gatti]";
+ mes "If you want to do it, I'll";
+ mes "have to tell you some cautionary";
+ mes "things before enchanting the";
+ mes "weapon.";
+ next;
+ mes "[Gatti]";
+ mes "I need 1 weapon of level";
+ mes "3 or 4, and maximum slot of 2.";
+ mes "And 100,000 Zeny too.";
+ mes "As you know, I don't have any";
+ mes "money right now because my";
+ mes "ship got wrecked.";
+ next;
+ mes "[Gatti]";
+ mes "If you have a weapon that is";
+ mes "refined or inserted with cards";
+ mes "in your inventory which you";
+ mes "don't want to enchant, it";
+ mes "could get destroyed.";
+ next;
+ mes "[Gatti]";
+ mes "Or its upgrades could get";
+ mes "changed during the";
+ mes "enchantment process.";
+ next;
+ mes "[Gatti]";
+ mes "If you don't want that to";
+ mes "happen, put the refined";
+ mes "weapon elsewhere before the enchantment.";
+ next;
+ mes "[Gatti]";
+ mes "Sometimes the enchantment";
+ mes "fails. The weapon doesn't get";
+ mes "destroyed every time you fail.";
+ mes "However, you should know that";
+ mes "the weapon gets destroyed from";
+ mes "time to time.";
+ close;
+ case 3:
+ mes "[Gatti]";
+ mes "Whenever you want to enchant";
+ mes "weapon, just bring me the";
+ mes "weapon you want to enchant";
+ mes "and 100,000 Zeny.";
+ close;
+ }
+ }
+ }
+}