//================= Hercules Script ======================================= //= _ _ _ //= | | | | | | //= | |_| | ___ _ __ ___ _ _| | ___ ___ //= | _ |/ _ \ '__/ __| | | | |/ _ \/ __| //= | | | | __/ | | (__| |_| | | __/\__ \ //= \_| |_/\___|_| \___|\__,_|_|\___||___/ //================= License =============================================== //= This file is part of Hercules. //= http://herc.ws - http://github.com/HerculesWS/Hercules //= //= Copyright (C) 2012-2015 Hercules Dev Team //= Copyright (C) Z3R0 //= //= Hercules is free software: you can redistribute it and/or modify //= it under the terms of the GNU General Public License as published by //= the Free Software Foundation, either version 3 of the License, or //= (at your option) any later version. //= //= This program is distributed in the hope that it will be useful, //= but WITHOUT ANY WARRANTY; without even the implied warranty of //= MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //= GNU General Public License for more details. //= //= You should have received a copy of the GNU General Public License //= along with this program. If not, see . //========================================================================= //= Rare Diamond Merchant //================= Description =========================================== //= Exchanges 17 Carat Diamond //================= Current Version ======================================= //= 1.5 //========================================================================= - script RareDiamondMerchant 1_M_MERCHANT,{ .@npc$ = "[Rare Diamond Merchant]"; mes .@npc$; mes "Ladies and Gentlemen! ! !"; mes "You've heard rumors but you've never once seen with your own eyes"; mes "the world's rarest diamond!"; mes "The ^FF82FF'17 Carat Diamond'^000000 is currently on sale for a cheap price!!"; mes "If valuable diamonds interest you then listen up!"; next; mes .@npc$; mes "You can give the diamond as a gift to your lover."; mes "The receiver of the ^FF82FF'17 Carat Diamond'^000000 will cherish it"; mes "and treasure you in their heart."; emotion e_loud; next; mes .@npc$; mes "What? You don't have a lover?"; mes "You can still just hang on to it for yourself."; mes "The enchanting aura of the ^FF82FF'17 Carat Diamond'^000000 is likely"; mes "to bring love into your life."; next; mes .@npc$; mes "Known as the captivating diamond of diamonds..."; mes "It is the ^FF82FF'17 Carat Diamond'^000000!"; next; .@menu$ = "^FF82FF'17 Carat Diamond'^000000?"; if (countitem(17Carat_Dia)) .@menu$ += ":Exchange my 17 Carat Diamond for zeny..."; switch(select(.@menu$)) { case 1: mes .@npc$; mes "Yes!"; mes "Hehe, the ^FF82FF'17 Carat Diamond'^000000 you see right now"; mes "is one of the highest quality 17 carat diamonds."; mes "Comparing it to any pea-sized, colorless rock you may have"; mes "dug up from Morroc is unspeakable!"; emotion e_omg; next; mes .@npc$; mes "Some claim that this is the very same diamond"; mes "that was seen by Kachua in Comodo!"; next; if (select("End Conversation", "How much is it?") == 1) { mes .@npc$; mes "It's rather inexpensive!"; mes "If you're interested, talk to me any time!"; close; } mes .@npc$; mes "Of course! The most important thing is price!"; mes "As I've said earlier, the ^FF82FF'17 Carat Diamond'^000000 has been"; mes "appraised as a 17 carat diamond."; mes "There aren't many like it in the world."; next; mes .@npc$; mes "The price is a mere 500 million zeny!"; mes "There is also a 1,000,000z service fee."; mes "Compared to the quality of the diamond"; mes "this is a small price to pay."; next; if (select("^828282It's too expensive.^000000", "I'll buy it.") == 1) { mes .@npc$; mes "To say that a diamond such as the"; mes "^FF82FF'17 Carat Diamond'^000000 is too expensive, "; mes "you leave me speechless."; close; } mes .@npc$; mes "OOOH! I knew from the moment I saw you that you were the rightful"; mes "owner of this wonderful diamond."; mes "I'm glad I wasn't wrong!"; mes "I believe this diamond will suit you quite well."; mes "All I need from you is to complete this contract."; next; while(1) { if (select("^B9062FI will sign the contract.^000000", "^828282Nevermind, I changed my mind.^000000") == 2) { mes .@npc$; mes "I see, that's too bad.."; close; } mes .@npc$; mes "What is your name?"; next; mes "[" + strcharinfo(PC_NAME) + "]"; mes "My name is " + strcharinfo(PC_NAME) + "."; next; mes .@npc$; mes "Alright then, please sign here."; next; input .@charname$; if (.@charname$ == strcharinfo(PC_NAME)) { mes .@npc$; mes "Okay, good."; mes "All that is left now is payment."; next; if (Zeny >= 501000000) { mes .@npc$; mes ". . . . . ."; next; mes .@npc$; mes "Calculating the price and service fee.."; mes "501,000,000 zeny."; mes "Amount has been confirmed."; emotion e_loud; Zeny -= 501000000; getitem 6024, 1; next; mes .@npc$; mes "You may exchange the diamond back for zeny at any time."; mes "However, there will be a 1,000,000z service fee."; mes "Thank you for your business."; emotion e_thx; close; } else { mes .@npc$; mes "Hm?"; mes "I'm sorry, but you don't have sufficient funds."; mes "Including the service fee, a total of 501,000,000z is required."; mes "Please check your zeny balance and try again."; emotion e_hmm; close; } } else { mes .@npc$; mes "Is this really your signature?"; mes "Will sign again to confirm?"; next; } } case 2: mes .@npc$; mes "AAH. You would like to exchange your ^FF82FF'17 Carat Diamond'^000000 for zeny?"; emotion e_gasp; next; if (select("Yes", "No") == 2) { mes .@npc$; mes "Then, what is it you desire?.."; mes ". . . . . ...."; emotion e_dots; close; } mes .@npc$; mes "I see. After I receive your signature, "; mes "You must offer your ^FF82FF'17 Carat Diamond'^000000."; mes "Also don't forget there is a 1,000,000z service fee!"; next; mes .@npc$; mes "What is your name?"; next; mes "[" + strcharinfo(PC_NAME) + "]"; mes "My name is " + strcharinfo(PC_NAME) + "."; next; mes .@npc$; mes "Alright then, please sign here."; next; while (1) { if (select("Sign", "Don't Sign") == 2) { mes .@npc$; mes "The trade cannot be completed without your signature."; close; } input .@charname$; if (.@charname$ == strcharinfo(PC_NAME)) { mes .@npc$; mes "Your signature has been received."; mes "I will now take your ^FF82FF'17 Carat Diamond'^000000.."; mes "You will receive ^0000FF499,000,000z^000000 afterwards."; next; mes .@npc$; mes "Thank you for your business."; mes "Whenever you need a ^FF82FF'17 Carat Diamond'^000000,"; mes "come back anytime with 500 million zeny."; emotion e_thx; delitem 6024, 1; Zeny += 499000000; close; } else { mes .@npc$; mes "Is this really your signature?"; mes "Will sign again to confirm?"; next; } } } } prontera,165,89,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#1 1_M_MERCHANT geffen,106,63,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#2 1_M_MERCHANT morocc,146,100,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#3 1_M_MERCHANT alberta,129,60,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#4 1_M_MERCHANT lighthalzen,163,65,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#5 1_M_MERCHANT rachel,106,142,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#6 1_M_MERCHANT payon,180,130,6 duplicate(RareDiamondMerchant) Rare Diamond Merchant#7 1_M_MERCHANT