Coin Exchanger

[Hatake Kakashi]

coin exchanger, you can enter how many coin you will trade for zenny. thanks bcoz i use 1by1 only.

[Emistry]

try this....

prontera,155,181,5 script Sample 718,{
mes "Which you wanna exchange ?";
next;
if( select("Silver Coin to Gold Coin:close") == 2 ) close;
mes "Exchange Rate :";
mes "^FF00001 Silver Coin = 1,000,000 Zeny^000000";
if( !countitem(675) ) close;
mes "You have ^0000FF"+countitem(675)+"^000000 Silver Coin, can exchange for ^0000FF"+( 1000000*countitem(675) )+"^000000 Zeny.";
mes "How many ^0000FFSilver Coin^000000 you want to exchange to Zeny. ??";
input @Amount,0,countitem(675);
next;
mes "Thank you, you have exchanged ^0000FF"+( @Amount )+"^000000 Silver Coin into ^0000FF"+( @Amount * 1000000 )+"^000000 Zeny.";
delitem 675,@Amount;
set Zeny,Zeny + ( 1000000 * countitem(675) );
close;
}

next time, please provide more detail on this....nvr request a script by mention just few lines of words.....

Edited December 14, 2011 by Emistry

[Hatake Kakashi]

ok, sorry

Coin to Zeny and zeny to coin same price. thanks

Platinum Coin = 500m

Gold Coin = 100m

Silver Coin = 50

Mithril Coin = 1m

[Emistry]

try this

prontera,155,181,5 script Sample 718,{
setarray .CoinID,
  677,
  671,
  675,
  674;

setarray .Zeny,
  500000000,
  100000000,
  50000000,
  1000000;
while( 1 ){
mes "What service you want ?";
next;
switch( select("Zeny to Coin:Coin to Zeny") ){
Case 1:
 mes "What Coin you want ?";
 set .@CoinMenu$,"";
 for( set .@i,0; .@i < getarraysize( .CoinID ); set .@i,.@i + 1 ){
  mes "^0000FF"+getitemname( .CoinID[.@i] )+" : ^FF0000"+.Zeny[.@i]+"^000000 Zeny";
  set .@CoinMenu$,.@CoinMenu$ + getitemname( .CoinID[.@i] )+":";
 }
 set .@Coin,select( .@CoinMenu$ ) - 1;
 next;
 mes "Selected : ^00FF00"+getitemname( .CoinID[.@Coin] )+"^000000";
 if( Zeny < .Zeny[.@Coin] ){
  mes "It seem like you didnt have Enough Zeny for this.";
  next;
  break;
 }
 mes "You can exchange to ^FF0000"+( Zeny / .Zeny[.@Coin] )+" ^0000FF"+getitemname( .CoinID[.@Coin] )+"^000000 .";
 mes "How many ^0000FF"+getitemname( .CoinID[.@Coin] )+"^000000 do you want ?";
 input @Amount,0,( Zeny / .Zeny[.@Coin] );
 if( !@Amount ) close;
 mes "You gained "+@Amount+" ^0000FF"+getitemname( .CoinID[.@Coin] )+"^000000.";
 set Zeny,Zeny - ( @Amount * .Zeny[.@Coin] );
 getitem .CoinID[.@Coin],@Amount;
 next;
 break;
Case 2:
 mes "Which Coin ?";
 set .@CoinMenu$,"";
 for( set .@i,0; .@i < getarraysize( .CoinID ); set .@i,.@i + 1 ){
  mes "^0000FF"+getitemname( .CoinID[.@i] )+" : ^FF0000"+countitem( .CoinID[.@i] )+"^000000 Available";
  set .@CoinMenu$,.@CoinMenu$ + getitemname( .CoinID[.@i] )+":";
 }
 do{
  set .@Coin,select( .@CoinMenu$ ) - 1;
 }while( !countitem( .CoinID[.@Coin] ) );
 next;
 mes "Selected : ^00FF00"+getitemname( .CoinID[.@Coin] )+"^000000";
 mes "You can exchange ^0000FF"+countitem( .CoinID[.@Coin] )+" "+getitemname( .CoinID[.@Coin] )+"^000000 to ^FF0000"+( countitem( .CoinID[.@Coin] ) * .Zeny[.@Coin] )+"^000000 Zeny.";
 mes "How many ^0000FF"+getitemname( .CoinID[.@Coin] )+"^000000 do you want to change into Zeny ?";
 input @Amount,0,( ( 1000000000 - Zeny ) / .Zeny[.@Coin] );
 if( !@Amount ) close;
 mes "You gained "+( @Amount * .Zeny[.@Coin] )+" Zeny.";
 delitem .CoinID[.@Coin],@Amount;
 set Zeny,Zeny + ( @Amount * .Zeny[.@Coin] );
 next;
 break;
 }
}
}

[Hatake Kakashi]

thanks sir.