summaryrefslogtreecommitdiff
path: root/npc/merchants/coin_exchange.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/merchants/coin_exchange.txt')
-rw-r--r--npc/merchants/coin_exchange.txt87
1 files changed, 87 insertions, 0 deletions
diff --git a/npc/merchants/coin_exchange.txt b/npc/merchants/coin_exchange.txt
new file mode 100644
index 000000000..8603383ad
--- /dev/null
+++ b/npc/merchants/coin_exchange.txt
@@ -0,0 +1,87 @@
+//===== rAthena Script =======================================
+//= Manuk & Splendide Coin Merchants
+//===== By: ==================================================
+//= rAthena Dev Team
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [Official Conversion]
+//= Coin redemption NPCs.
+//===== Additional Comments: =================================
+//= 1.0 First version
+//= 1.1 Fixed checkweight. [Gepard]
+//= 1.2 Optimized and merged into one file. [Euphy]
+//============================================================
+
+- script ::merchant_13_2 -1,{
+ set .@n$, "["+strnpcinfo(1)+"]";
+ mes .@n$;
+ if (isequipped(2782) && ep13_2_rhea == 100) {
+ if (!checkweight(1201,1)) {
+ mes "It looks like you're carrying too many things.";
+ mes "Why not put some of your items in storage and come back?";
+ close;
+ }
+ mes "Hello.";
+ mes "What are you looking for?";
+ next;
+ if (strnpcinfo(1) == "Merchant of Manuk") {
+ setarray .@Items[2],12342,12343,12348;
+ set .@Book,11019; //Manuk_Selling_Item
+ set .@Coin,6080; //Manuk_Coin
+ set .@i, select("View item description:Manuk's Opportunity:Manuk's Courage:Manuk's Faith:Cancel");
+ }
+ else {
+ setarray .@Items[2],12344,12345,12349;
+ set .@Book,11018; //Splendide_Selling_Item
+ set .@Coin,6081; //Splendide_Coin
+ set .@i, select("View item description:Buy Pinguicula's Fruit Jam:Buy Luciola's Honey Jam:Buy Cornus' Tears:Do nothing");
+ }
+ mes .@n$;
+ if (.@i == 1) {
+ mes "Here are the item descriptions.";
+ close2;
+ ReadBook .@Book,1;
+ end;
+ }
+ else if (.@i < 5) {
+ mes "I can sell you 3 "+getitemname(.@Items[.@i])+" for ^3131FF1 coin^000000.";
+ next;
+ switch(select("Purchase:Do not purchase")) {
+ case 1:
+ if (countitem(.@Coin)) {
+ mes .@n$;
+ mes "Thank you for coming.";
+ delitem .@Coin,1;
+ getitem .@Items[.@i],3;
+ close;
+ }
+ else {
+ mes .@n$;
+ mes "You don't have enough coins.";
+ close;
+ }
+ case 2:
+ mes .@n$;
+ break;
+ }
+ }
+ mes "Come again if you change your mind.";
+ close;
+ }
+ else {
+ if (strnpcinfo(1) == "Merchant of Manuk") {
+ mes "Rtt od d";
+ mes "Qwo hd is d irr";
+ }
+ else {
+ mes "BurWehAla";
+ mes "tasnarAndu Ie Ru";
+ }
+ close;
+ }
+}
+man_in01,286,16,1 duplicate(merchant_13_2) Merchant of Manuk 454
+spl_in01,110,326,5 duplicate(merchant_13_2) Merchant of Splendide 439 \ No newline at end of file