Help on this script about coin exchanger

[abdol]

Hello i just want to change the ammount of coin to be traded 

50 bronze coin = 1m zeny but it doesnt work

 

here is my script. hope someone notices it and help me

 

 

prontera,190,161,4    script     Coin to Zeny     109,{

// 50 Bronze Coin = How Many Zeny ?
set .Rates,1000000;
while( 50 ){
switch( select("Coin to Zeny:Zeny to Coin") ){
Case 1:
  if( !countitem(673) ){
   mes "You didnt have enough Bronze coin";
  }else{
   mes "You have "+countitem(673)+" Coins.";
   mes "How many  Coin will be convert to zeny ?";
   input @Amount,50,countitem(673);
   if( !@Amount || (( .Rates * @Amount ) + Zeny ) > 1800000000 ){
    mes "Deal Cancelled. your zeny is full .";
   }else{
    delitem 673,@Amount;
    mes "Converted "+@Amount+" of Coin into Zeny.";
    mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";
    set Zeny,Zeny + ( .Rates * @Amount );
   }
  }
  next;
  break;
Case 2:
  if( Zeny < .Rates ){
   mes "You don't have enough Zeny.";
  }else{
   mes "You have "+Zeny+" Zeny.";
   mes "How many Coin do you want ?";
   mes "You can get maximum of "+( Zeny / .Rates )+" Bronze Coin.";
   input @Amount,50,( Zeny / .Rates );
   if( !@Amount ){
    mes "Deal Cancelled.";
   }else{
    set Zeny,Zeny - ( @Amount * .Rates );
    mes "Converted "+( @Amount * .Rates )+" Zeny into "+@Amount+"  Coin.";
    getitem 673,@Amount;
   }
  }
  next;
  break;
}
}
close;
}
 

[Pride]

prontera,190,161,4    script     Coin to Zeny     109,{

// 50 Bronze Coin = How Many Zeny ?
set .Rates,1000000;
mes "Select what you want";
switch( select("Coin to Zeny:Zeny to Coin") ){
Case 1:
  if( countitem(673) < 50 ){
   mes "You didnt have enough Bronze coin";
   close;
  }else{
   mes "You have "+countitem(673)+" Coins.";
   mes "How many  Coin will be convert to zeny ?";
   mes "You can enter 0 to cancel this deal";
   input .@Amount,50,countitem(673);
   if( !.@Amount || (( .Rates * .@Amount ) + Zeny ) > 1800000000 ){
    mes "Deal Cancelled. your zeny is full .";
	close;
   }else{
    delitem 673,.@Amount;
    mes "Converted "+.@Amount+" of Coin into Zeny.";
    mes "Gained Total of "+( .Rates * .@Amount )+" of Zeny.";
    set Zeny,Zeny + ( .Rates * .@Amount );
   }
  }
  next;
  break;
Case 2:
  if( Zeny < .Rates ){
   mes "You don't have enough Zeny.";
   close;
  }else{
   mes "You have "+Zeny+" Zeny.";
   mes "How many Coin do you want ?";
   mes "You can get maximum of "+( Zeny / .Rates )+" Bronze Coin.";
   mes "You can enter 0 to cancel this deal";
   input .@Amount,1,( Zeny / .Rates );
   if( !.@Amount ){
    mes "Deal Cancelled.";
	close;
   }else{
    set Zeny,Zeny - ( .@Amount * .Rates );
    mes "Converted "+( .@Amount * .Rates )+" Zeny into "+.@Amount+"  Coin.";
    getitem 673,.@Amount;
   }
  }
  next;
  break;
}

close;
end;
}

Please use code box next time. This code is not tested so tell me if you have any errors

Edited August 17, 2022 by Pride