Coin To Coin Exchanger 1.1

//===== rAthena Script =======================================
//= Kido's First Scrip Release: Coin to Coin Exchanger
//===== By: ==================================================
//= 100% Kido
//===== Current Version: =====================================
//= 1.1
//===== 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?)
//= 1.1: Replaced a lot of labels L_thing for Switch(select (thanks Annie)
//===== 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
//============================================================
izlude,99,147,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;
switch(select("Bronze to Silver:Silver to Gold:Gold to Mithril:Mithril to Platinum:Platinum to Proof of Donation:Nothing, thank you.")) {
case 1:
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.";
next;
if(countitem(673)<100) {
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
}
else
{
input @amount,0,100;
delitem 673,1*@amount*100;
getitem 675,1*@amount;
close;
}
case 2:
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.";
next;
if(countitem(675)<100) {
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
}
else
{
input @amount,0,100;
delitem 675,1*@amount*100;
getitem 671,1*@amount;
close;
}
case 3:
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.";
next;
if(countitem(671)<100) {
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
}
else
{
input @amount,0,100;
delitem 671,1*@amount*100;
getitem 674,1*@amount;
close;
}
case 4:
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.";
next;
if(countitem(674)<100) {
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
}
else
{
input @amount,0,100;
delitem 674,1*@amount*100;
getitem 677,1*@amount;
close;
}
case 5:
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.";
next;
if(countitem(677)<100) {
mes "You don't have enought Coin to get the desired amount of coins that you specified.";
close;
}
else
{
input @amount,0,100;
delitem 677,1*@amount*100;
getitem 7179,1*@amount;
close;
}
case 6:
mes "Allright, if you need to get some coins come to me.";
close;
}
OnInit:
waitingroom "Coin Exchange",0;
end;
}