Coin to Coin Exchanger 1.0

//===== rAthena Script =======================================
//= Kido's First Scrip Release: Coin to Coin Exchanger
//===== By: ==================================================
//= 100% Kido
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena (any version?)
//===== Description: =========================================
//= Just a Coin to Coin Exchanger
//= Exchanges an amount of desired coins for an specific amount
//= DO NOT CHANGE input @amount,0,100; <-- the 100, if you do to 1000 or more
//=the script will give that amount to the player (bug?)
//= Players have to specify the correct amount! if not, script will just
//=delete any extra amount that does not complete the request of exchange
//===== Version Change Log ==================================
//= 1.0: First release, already tested and no bugs (report if any?)
//===== YOU CAN NOT ==========================================
//= Remove the credits
//= Re-release it as yours
//= Re-release them in any way (modified or otherwise)
//= Sell it (make money with it)
//===== YOU CAN ==============================================
//= Improve it
//= Change the name of the NPC
//= Add mes or extra options
//============================================================
prontera,159,177,4	script	Exchange House	935,{
mes "Table of values";
mes "100 Bronze = 1 Silver";
mes "100 Silver = 1 Gold";
mes "100 Gold = 1 Mithril";
mes "100 Mithril = 1 Platinum";
mes "100 Platinum = 1 Proof of Donation";
next;
menu "Bronze to Silver",L_BS,"Silver to Gold",L_SG,"Gold to Mithril",L_GM,"Mithril to Platinum",L_MP,"Platinum to Proof of Don.",L_PP,"nothing, thank you anyway",L_ND;
next;
L_ND:
mes "Allright, if you need to get some coins come to me.";
close;
no_item:
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
L_BS:
if(countitem(673)<100)goto no_item;
mes "Input the amount of desired Silver Coins.";
mes "Remember: 100 Bronze Coin = 1 Silver Coin";
mes "I can exchange you a Maxium of: 100 of your desired coin.";
mes "I DO NOT DO REFUNDS, input the amount that correctly matches with your affordable desired coins that you want.";
input @amount,0,100;
delitem 673,1*@amount*100;
getitem 675,1*@amount;
close;
L_SG:
if(countitem(675)<100)goto no_item;
mes "Input the amount of desired Goldr Coins.";
mes "Remember: 100 Silver Coin = 1 Gold Coin";
mes "I can exchange you a Maxium of: 100 of your desired coin.";
mes "I DO NOT DO REFUNDS, input the amount that correctly matches with your affordable desired coins that you want.";
input @amount,0,100;
delitem 675,1*@amount*100;
getitem 671,1*@amount;
close;
L_GM:
if(countitem(671)<100)goto no_item;
mes "Input the amount of desired Mithril Coins.";
mes "Remember: 100 Gold Coin = 1 Mithril Coin";
mes "I can exchange you a Maxium of: 100 of your desired coin.";
mes "I DO NOT DO REFUNDS, input the amount that correctly matches with your affordable desired coins that you want.";
input @amount,0,100;
delitem 671,1*@amount*100;
getitem 674,1*@amount;
close;
L_MP:
if(countitem(674)<100)goto no_item;
mes "Input the amount of desired Platinum Coins.";
mes "Remember: 100 Mithril Coin = 1 Platinum Coin";
mes "I can exchange you a Maxium of: 100 of your desired coin.";
mes "I DO NOT DO REFUNDS, input the amount that correctly matches with your affordable desired coins that you want.";
input @amount,0,100;
delitem 674,1*@amount*100;
getitem 677,1*@amount;
close;
L_PP:
if(countitem(677)<100)goto no_item;
mes "Input the amount of desired Proof od Donation.";
mes "Remember: 100 Platinum Coin = 1 Proof of Donation";
mes "I can exchange you a Maxium of: 100 of your desired Proof of Donation.";
mes "I DO NOT DO REFUNDS, input the amount that correctly matches with your affordable desired Proof of Donation that you want.";
input @amount,0,100;
delitem 677,1*@amount*100;
getitem 7179,1*@amount;
close;
OnInit:
waitingroom "Casa de Cambio",0;
end;
}