TCG code help

[tiradauno]

prontera,157,181,4 script Exchanger 2 2035,{
mes "Please input the amount of TCG you wish to change into Zeny";
mes "Each TCG = 100,000 zeny";
mes "Currently , you have "+countitem(7227)+" TCG.";
input @amount,0,countitem(7227);
if ( @amount < 1){
mes "You have choose to end the deal.";
close;
}
delitem 7227,@amount;
set Zeny,Zeny+(@amount*100000);
mes "You have changed "+@amount+" TCG into Zeny.";
close;
}

TCG = ZENY I WANT ZENY = TCG

ANYONE CAN HELP ME?

[KaitoKid]

Try this

prontera,157,181,4 script Exchanger 2 2035,{
mes "Please input the amount of Zeny you wish to change into TCG";
mes "Each 100k Zeny = 1TCG";
mes "Currently , you have "+Zeny+" Zeny.";
input @amount,0,Zeny;
if ( @amount < 1){
mes "You have choose to end the deal.";
close;
}
set @exchange, @amount / 100000;
getitem 7227,@exchange;
set Zeny,Zeny-(100000*@exchange);
mes "You have changed "+(100000*@exchange)+" Zeny into TCG.";
close;
}

Edited May 20, 2012 by Kaito_Kid