diff options
Diffstat (limited to 'npc/merchants/diamond.txt')
| -rw-r--r-- | npc/merchants/diamond.txt | 493 |
1 files changed, 187 insertions, 306 deletions
diff --git a/npc/merchants/diamond.txt b/npc/merchants/diamond.txt index 5456947e2..96669cad7 100644 --- a/npc/merchants/diamond.txt +++ b/npc/merchants/diamond.txt @@ -15,354 +15,235 @@ prontera,165,89,6 script Rare Diamond Merchant#1 58,{
- // Store NPC Name for Ease of Use
- set .@npc$, "[Rare Diamond Merchant]";
+ set .@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;
- // Standard Dialog
- 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!";
-
- // Display Next Button
- next;
-
- // Standard Dialog
- 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.";
-
- // Display Emotion
- emotion 56;
-
- // Display Next Button
- 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 56;
+ next;
- // Standard Dialog
- 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.";
-
- // Display Next Button
- next;
-
- // Standard Dialog
- mes .@npc$;
- mes "Known as the captivating diamond of diamonds...";
- mes "It is the ^FF82FF'17 Carat Diamond'^000000!";
-
- // Display Next Button
- next;
-
- // Store Menu Variable String Object
- set .@menu$, "^FF82FF'17 Carat Diamond'^000000?";
+ 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;
- // Determine if Item ID 6024 Exists in Inventory
- if (countitem(6024)) {
- // If Exists (Appends String to Menu)
- set .@menu$, .@menu$ + ":Exchange my 17 Carat Diamond for zeny..";
- }
+ mes .@npc$;
+ mes "Known as the captivating diamond of diamonds...";
+ mes "It is the ^FF82FF'17 Carat Diamond'^000000!";
+ next;
- // Displays Menu to Client & uses Switch to Determine Option Selected
- switch(select(.@menu$)) {
- case 1: // Buy Diamond
- // Standard Dialog
- 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!";
+ set .@menu$, "^FF82FF'17 Carat Diamond'^000000?";
- // Display Emotion
+ if (countitem(6024)) {
+ set .@menu$, .@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 23;
-
- // Display Next Button
- next;
+ next;
- // Standard Dialog
+ 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 "Some claim that this is the very same diamond";
- mes "that was seen by Kachua in Comodo!";
-
- // Display Next Button
+ 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;
- // Show Menu to Client and Determine if First Option (1) was Chosen
- if (select("End Conversation:How much is it?") == 1) {
- // Standard Dialog
- mes .@npc$;
- mes "It's rather inexpensive!";
- mes "If you're interested, talk to me any time!";
-
- // Display Close Button
- close;
- }
+ 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;
- // Standard Dialog
- 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.";
-
- // Display Next Button
- next;
-
- // Standard Dialog
+ if (select("^828282It's too expensive.^000000:I'll buy it.") == 1) {
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.";
-
- // Display Next Button
- next;
+ mes "To say that a diamond such as the";
+ mes "^FF82FF'17 Carat Diamond'^000000 is too expensive, ";
+ mes "you leave me speechless.";
+ close;
+ }
- // Show Menu to Client and Determine if First Option (1) was Chosen
- if (select("^828282It's too expensive.^000000:I'll buy it.") == 1) {
- // Standard Dialog
- 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.";
-
- // Display Close Button
- 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;
}
- // Standard Dialog
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.";
-
- // Display Next Button
+ mes "What is your name?";
next;
-
- // Loop Indefinitely Until Told to Break (1) Always is True
- while(1) {
- // Show Menu to Client and Determine if Second Option (2) was Chosen
- if (select("^B9062FI will sign the contract.^000000:^828282Nevermind, I changed my mind.^000000") == 2) {
- // Standard Dialog
- mes .@npc$;
- mes "I see, that's too bad..";
-
- // Display Close Button
- close;
- }
+ mes "[" + strcharinfo(0) + "]";
+ mes "My name is " + strcharinfo(0) + ".";
+ next;
+
+ mes .@npc$;
+ mes "Alright then, please sign here.";
+ next;
+
+ input .@charname$;
- // Standard Dialog
+ if (.@charname$ == strcharinfo(0)) {
+ mes .@npc$;
+ mes "Okay, good.";
+ mes "All that is left now is payment.";
+ next;
+
+ if (Zeny >= 501000000) {
mes .@npc$;
- mes "What is your name?";
+ mes ". . . . . .";
next;
- mes "[" + strcharinfo(0) + "]";
- mes "My name is " + strcharinfo(0) + ".";
+
+ mes .@npc$;
+ mes "Calculating the price and service fee..";
+ mes "501,000,000 zeny.";
+ mes "Amount has been confirmed.";
- // Display Next Button
+ emotion 56;
+
+ set Zeny, Zeny - 501000000;
+
+ getitem 6024, 1;
next;
-
- // Standard Dialog
+
mes .@npc$;
- mes "Alright then, please sign here.";
-
- // Display Next Button
- next;
-
- // Ask Client to Type Value, Store into Variable
- input .@charname$;
-
- // Determine if Typed Value equals Character Name
- if (.@charname$ == strcharinfo(0)) {
- // Standard Dialog
- mes .@npc$;
- mes "Okay, good.";
- mes "All that is left now is payment.";
-
- // Display Next Button
- next;
-
- // Determine if Client Zeny is Greater or Equal to Value (501000000)
- if (Zeny >= 501000000) {
- // Standard Dialog
- mes .@npc$;
- mes ". . . . . .";
-
- // Display Next Button
- next;
+ 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.";
- // Standard Dialog
- mes .@npc$;
- mes "Calculating the price and service fee..";
- mes "501,000,000 zeny.";
- mes "Amount has been confirmed.";
-
- // Display Emotion
- emotion 56;
-
- // Change Zeny to Itself Minus Value (501000000)
- set Zeny, Zeny - 501000000;
-
- // Give Client One (1) of Item ID 6024
- getitem 6024, 1;
-
- // Display Next Button
- next;
-
- // Standard Dialog
- 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.";
-
- // Display Emotion
- emotion 15;
-
- // Display Close Button
- close;
- }
- else { // The Zeny Check Failed
- // Standard Dialog
- 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.";
-
- // Display Emotion
- emotion 20;
-
- // Display Close Button
- close;
- }
- }
- else { // Signature Check (Typed Value Did Not Equal Character Name)
- // Standard Dialog
- mes .@npc$;
- mes "Is this really your signature?";
- mes "Will sign again to confirm?";
+ emotion 15;
- // Display Next Button
- next;
- }
- }
- case 2: // Exchange Diamond (Only Available if Diamond is in Inventory)
- // Standard Dialog
- mes .@npc$;
- mes "AAH. You would like to exchange your ^FF82FF'17 Carat Diamond'^000000 for zeny?";
-
- // Display Emotion
- emotion 0;
-
- // Display Next Button
- next;
-
- // Show Menu to Client and Determine if Second Option (2) was Chosen
- if (select("Yes:No") == 2) {
- // Standard Dialog
+ close;
+ }
+ else {
mes .@npc$;
- mes "Then, what is it you desire?..";
- mes ". . . . . ....";
+ 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.";
- // Display Emotion
- emotion 9;
-
- // Display Close Button
+ emotion 20;
+
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?";
- // Standard Dialog
- 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!";
-
- // Display Next Button
- next;
-
- // Standard Dialog
+ emotion 0;
+ next;
+
+ if (select("Yes:No") == 2) {
mes .@npc$;
- mes "What is your name?";
-
- // Display Next Button
- next;
-
- // Standard Dialog
- mes "[" + strcharinfo(0) + "]";
- mes "My name is " + strcharinfo(0) + ".";
+ mes "Then, what is it you desire?..";
+ mes ". . . . . ....";
+
+ emotion 9;
+ 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;
- // Display Next Button
- next;
+ mes .@npc$;
+ mes "What is your name?";
+ next;
- // Standard Dialog
- mes .@npc$;
- mes "Alright then, please sign here.";
-
- // Display Next Button
- next;
+ mes "[" + strcharinfo(0) + "]";
+ mes "My name is " + strcharinfo(0) + ".";
+ next;
- // Loop Indefinitely Until Told to Break (1) Always is True
- while (1) {
+ mes .@npc$;
+ mes "Alright then, please sign here.";
+ next;
- // Show Menu to Client and Determine if Second Option (2) was Chosen
- if (select("Sign:Don't Sign") == 2) {
- // Standard Dialog
- mes .@npc$;
- mes "The trade cannot be completed without your signature.";
-
- // Display Close Button
- close;
- }
+ while (1) {
+ if (select("Sign:Don't Sign") == 2) {
+ mes .@npc$;
+ mes "The trade cannot be completed without your signature.";
+ close;
+ }
- // Ask Client to Type Value, Store into Variable
- input .@charname$;
+ input .@charname$;
- // Determine if Typed Value equals Character Name
- if (.@charname$ == strcharinfo(0)) {
- // Standard Dialog
- 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.";
-
- // Display Next Button
- next;
-
- // Standard Dialog
- 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.";
+ if (.@charname$ == strcharinfo(0)) {
+ 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;
- // Display Emotion
- emotion 15;
+ 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.";
- // Delete One (1) of Item ID 6024 from Client
- delitem 6024, 1;
+ emotion 15;
- // Change Zeny to Itself Plus Value (499000000)
- set Zeny, Zeny + 499000000;
-
- // Display Close Button
- close;
- }
- else { // Signature Check (Typed Value Did Not Equal Character Name)
- // Standard Dialog
- mes .@npc$;
- mes "Is this really your signature?";
- mes "Will sign again to confirm?";
+ delitem 6024, 1;
- // Display Next Button
- next;
- }
+ set Zeny, Zeny + 499000000;
+ close;
+ }
+ else {
+ mes .@npc$;
+ mes "Is this really your signature?";
+ mes "Will sign again to confirm?";
+ next;
+ }
}
}
}
|