diff options
Diffstat (limited to 'npc/merchants/gemstone.txt')
-rw-r--r-- | npc/merchants/gemstone.txt | 230 |
1 files changed, 115 insertions, 115 deletions
diff --git a/npc/merchants/gemstone.txt b/npc/merchants/gemstone.txt index de3deb518..9faa09393 100644 --- a/npc/merchants/gemstone.txt +++ b/npc/merchants/gemstone.txt @@ -1,116 +1,116 @@ -//===== eAthena Script =======================================
-//= Gemstone trader
-//===== By: ==================================================
-//= L0ne_W0lf
-//===== Current Version: =====================================
-//= 1.0
-//===== Compatible With: =====================================
-//= eAhena SVN
-//===== Description: =========================================
-//= [Aegis Conversion]
-//= Trade various colors of gemstones for other color gemstones.
-//===== Additional Comments: =================================
-//= 1.0 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
-//= Any notes pertaining to the prior trader may be found
-//= in the cities/payon.txt
-//============================================================
-
-payon,173,238,5 script Jade 754,{
- //Ensure the player can hold at least one item
- //set max_max_c,CheckMaxCount;
- //if (max_max_c == 1) {
- // mes "^3355FFWait a second! Right now, you're carrying too many items with you. Please come back after putting some of your things into Kafra Storage.^000000";
- // close;
- //}
- mes "[Jade]";
- mes "Bring me two";
- mes "Gemstones of the";
- mes "same color, and I will";
- mes "change them to Gemstones";
- mes "of a different color.";
- next;
- switch(select("Blue Gemstones into Red ones!:Red Gemstones into Yellow ones!:Yellow Gemstones into Blue ones!")) {
- case 1: callsub S_TradeGems,717,716;
- case 2: callsub S_TradeGems,716,715;
- case 3: callsub S_TradeGems,715,717;
- }
-
-S_TradeGems:
- if (countitem(getarg(0)) < 2) {
- mes "[Jade]";
- mes "Hah...!";
- mes "You're kidding me, right?";
- mes "I can't provide you with this";
- mes "service if you don't";
- mes "give me at least";
- mes "2 "+getitemname(getarg(0))+"s!";
- close;
- }
- else {
- set .@gems,countitem(getarg(0))/2;
- mes "[Jade]";
- mes "I believe I can create";
- mes "a total of " + .@gems + " " + getitemname(getarg(1)) + "s";
- mes "using the "+getitemname(getarg(0))+"s";
- mes "that you currently have.";
- mes "What do you want to do?";
- next;
- switch(select("Give me as many as you can.:I want to set the amount.:I quit.")) {
- case 1:
- delitem getarg(0),.@gems * 2;
- getitem getarg(1),.@gems;
- mes "[Jade]";
- mes "There you go.";
- mes "Feel free to come";
- mes "back any time.";
- mes "Hm, what's that look for?";
- mes "Is there something on my face?";
- close;
- case 2:
- mes "[Jade]";
- mes "So how many";
- mes "do you want?";
- mes "The maximum number";
- mes "that you can enter is 100.";
- next;
- while(1) {
- input .@input;
- if (.@input == 0) {
- mes "[Jade]";
- mes "None at all?";
- mes "I guess you";
- mes "changed your mind...";
- close;
- }
- else if (.@input > 100) {
- mes "[Jade]";
- mes "Errm...";
- mes "I asked you to enter";
- mes "an amount no greater";
- mes "than 100, remember...?";
- next;
- }
- else {
- break;
- }
- }
-
- if (.@gems > .@input) {
- delitem getarg(0),.@input * 2;
- getitem getarg(1),.@input;
- mes "[Jade]";
- mes "There you go.";
- mes "Feel free to come";
- mes "back any time.";
- mes "Hm, what's that look for?";
- mes "Is there something on my face?";
- }
- close;
- case 3:
- mes "[Jade]";
- mes "Sure, no problem.";
- mes "Come back any time.";
- close;
- }
- }
+//===== eAthena Script ======================================= +//= Gemstone trader +//===== By: ================================================== +//= L0ne_W0lf +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= eAhena SVN +//===== Description: ========================================= +//= [Aegis Conversion] +//= Trade various colors of gemstones for other color gemstones. +//===== Additional Comments: ================================= +//= 1.0 Rescripted to Aegis 10.3 standards. [L0ne_W0lf] +//= Any notes pertaining to the prior trader may be found +//= in the cities/payon.txt +//============================================================ + +payon,173,238,5 script Jade 754,{ + //Ensure the player can hold at least one item + //set max_max_c,CheckMaxCount; + //if (max_max_c == 1) { + // mes "^3355FFWait a second! Right now, you're carrying too many items with you. Please come back after putting some of your things into Kafra Storage.^000000"; + // close; + //} + mes "[Jade]"; + mes "Bring me two"; + mes "Gemstones of the"; + mes "same color, and I will"; + mes "change them to Gemstones"; + mes "of a different color."; + next; + switch(select("Blue Gemstones into Red ones!:Red Gemstones into Yellow ones!:Yellow Gemstones into Blue ones!")) { + case 1: callsub S_TradeGems,717,716; + case 2: callsub S_TradeGems,716,715; + case 3: callsub S_TradeGems,715,717; + } + +S_TradeGems: + if (countitem(getarg(0)) < 2) { + mes "[Jade]"; + mes "Hah...!"; + mes "You're kidding me, right?"; + mes "I can't provide you with this"; + mes "service if you don't"; + mes "give me at least"; + mes "2 "+getitemname(getarg(0))+"s!"; + close; + } + else { + set .@gems,countitem(getarg(0))/2; + mes "[Jade]"; + mes "I believe I can create"; + mes "a total of " + .@gems + " " + getitemname(getarg(1)) + "s"; + mes "using the "+getitemname(getarg(0))+"s"; + mes "that you currently have."; + mes "What do you want to do?"; + next; + switch(select("Give me as many as you can.:I want to set the amount.:I quit.")) { + case 1: + delitem getarg(0),.@gems * 2; + getitem getarg(1),.@gems; + mes "[Jade]"; + mes "There you go."; + mes "Feel free to come"; + mes "back any time."; + mes "Hm, what's that look for?"; + mes "Is there something on my face?"; + close; + case 2: + mes "[Jade]"; + mes "So how many"; + mes "do you want?"; + mes "The maximum number"; + mes "that you can enter is 100."; + next; + while(1) { + input .@input; + if (.@input == 0) { + mes "[Jade]"; + mes "None at all?"; + mes "I guess you"; + mes "changed your mind..."; + close; + } + else if (.@input > 100) { + mes "[Jade]"; + mes "Errm..."; + mes "I asked you to enter"; + mes "an amount no greater"; + mes "than 100, remember...?"; + next; + } + else { + break; + } + } + + if (.@gems > .@input) { + delitem getarg(0),.@input * 2; + getitem getarg(1),.@input; + mes "[Jade]"; + mes "There you go."; + mes "Feel free to come"; + mes "back any time."; + mes "Hm, what's that look for?"; + mes "Is there something on my face?"; + } + close; + case 3: + mes "[Jade]"; + mes "Sure, no problem."; + mes "Come back any time."; + close; + } + } }
\ No newline at end of file |