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;
}
}
}