Coins to Coins changer vice versa

[Gelo]

Help with this please, i want to make a vice versa of this script:

  Quote

prontera,164,163,4 script Event Coin Changer 733,{

mes "[Event Coins Changer]";

mes "Hi ^ff8000"+strcharinfo(0)+"^000000, I can exchange your coins to higher coins.";

mes "^C0C0C05 Bronze Coin = 1 Silver Coin^000000";

mes "^C9AE5D5 Silver Coin = 1 Gold Coin^000000";

mes "^8B65085 Gold Coin = 1 Platinum Coin^000000";

mes "What would you like to do?";

next;

switch(select("Bronze Coin to Silver Coin","Silver Coin to Gold Coin","Gold Coin to Platinum Coin")) {

case 1:

mes "How many you want to exchange?";

next;

input .@count;

if (.@count == 0) close; // optional: if player enter 0 script will terminate

if (countitem(673) < .@count*5) goto L_NE;

delitem 673,.@count*5;

getitem 675,.@count;

close;

case 2:

mes "How many you want to exchange?";

next;

input .@count;

if (.@count == 0) close; // optional: if player enter 0 script will terminate

if (countitem(675) < .@count*5) goto L_NE;

delitem 675,.@count*5;

getitem 671,.@count;

close;

case 3:

mes "How many you want to exchange?";

next;

input .@count;

if (.@count == 0) close; // optional: if player enter 0 script will terminate

if (countitem(671) < .@count*5) goto L_NE;

delitem 671,.@count*5;

getitem 677,.@count;

close;

}

L_NE:

mes "You don't have that coin enough.";

close;

}

Thank you rathena!

[Rikimaru]

prontera,164,163,4<tab>script<tab>Event Coin Changer<tab>733,{
mes "[Event Coins Changer]";
mes "Hi ^ff8000"+strcharinfo(0)+"^000000, I can exchange your coins to higher coins.";
mes "^C0C0C05 Bronze Coin = 1 Silver Coin^000000";
mes "^C9AE5D5 Silver Coin = 1 Gold Coin^000000";
mes "^8B65085 Gold Coin = 1 Platinum Coin^000000";
mes "What would you like to do?";
next;
switch(select("Bronze Coin to Silver Coin","Silver Coin to Gold Coin","Gold Coin to Platinum Coin:Platinum Coin to Gold Coin:Gold Coin to Silver Coin:Silver Coin to Bronze Coin")) {

case 1:
mes "How many you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(673) < .@count*5) goto L_NE;
delitem 673,.@count*5;
getitem 675,.@count;
close;
case 2:
mes "How many you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(675) < .@count*5) goto L_NE;
delitem 675,.@count*5;
getitem 671,.@count;
close;
case 3:
mes "How many you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(671) < .@count*5) goto L_NE;
delitem 671,.@count*5;
getitem 677,.@count;
close;
case 4:
mes "How many Coins do you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(677) < .@count) goto L_NE;
delitem 677,.@count;
getitem 671,.@count*5;
close;
case 5:

mes "How many Coins do you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(671) < .@count) goto L_NE;
delitem 671,.@count;
getitem 675,.@count*5;
close;
case 6:

mes "How many Coins do you want to exchange?";
next;
input .@count;
if (.@count == 0) close; // optional: if player enter 0 script will terminate
if (countitem(675) < .@count) goto L_NE;
delitem 675,.@count;
getitem 673,.@count*5;
close;
}


L_NE:
mes "You don't have enough of this coin.";
close;
}

Try this,I changed it for you.

[Gelo]

It's working!

Thank you very much Rikimaru

[Rikimaru]

No Problem.

[Mystery]

You could use: http://mysterious-project.googlecode.com/svn/trunk/npc/CoinExchanger.txt as well.

Edited June 23, 2012 by Mysterious