//===== 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)==-1 || !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;
}
}
}
}
