diff options
Diffstat (limited to 'npc/pre-re/merchants/gemstone.txt')
| -rw-r--r-- | npc/pre-re/merchants/gemstone.txt | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/npc/pre-re/merchants/gemstone.txt b/npc/pre-re/merchants/gemstone.txt new file mode 100644 index 000000000..a6181f61a --- /dev/null +++ b/npc/pre-re/merchants/gemstone.txt @@ -0,0 +1,117 @@ +//===== rAthena Script ======================================= +//= Gemstone trader +//===== By: ================================================== +//= L0ne_W0lf +//===== Current Version: ===================================== +//= 1.2 +//===== Compatible With: ===================================== +//= rAthena 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 +//= 1.1 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf] +//= 1.2 Updated input with min/max values. [L0ne_W0lf] +//= Added a checkweight. +//============================================================ + +payon,173,238,5 script Jade#pay 754,{ + if (checkweight(1201,1) == 0) { + 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,0,101; + 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; + } + } +} |