Can anyone make this basic script ^_^

[Kariton Revolution]

1M = 1 poring coin

1 Poring Coin = to 1m

and

100 poring coin = 1 gold coin

 Thankyou VeryMuch!! )

[Jaburak]

prontera.gat,150,150,0 script Coin Trader 123,{

set @npcname$, "[ Trader ]";

mes @npcname$;

mes "Give me 100 Poring Coin for 1 Gold Coin.";

next;

switch(select("Ok, Trade Me!")) {

case 1: callfunc "Coin_Trade",7539,100,671; break;

default:

mes @npcname$;

mes "Ok!";

close;

}

close;

}

prontera,155,181,5 script Coin Manager 439,{

// Your Server Max Zeny Amount

set .MaxZeny,1000000000;

// Coins Item ID and each Coins Costs

setarray .Coins[1],671;

setarray .Zeny[1],1000000;

set @Menu$,"";

for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){

set @Menu$,@Menu$ + getitemname( .Coins[.@a] )+":";

}

while( 1 ){

switch( select( "Coin to Zeny:Zeny to Coin" ) ){

Case 1:

for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){

mes "Very well. Here is the list on how much each coin is worth:";

mes "^0000FF"+getitemname( .Coins[.@a] )+" : ^FF0000"+.Zeny[.@a]+"^000000 Zeny.";

}

set .@a,select( @Menu$ );

mes "Select the Amount of Coins you want to trade into Zeny.";

mes "You have "+countitem( .Coins[.@a] )+" "+getitemname( .Coins[.@a] )+".";

input @Amount,0,countitem( .Coins[.@a] );

if( @Amount < 1 ){

mes "Lack of Credits amount.";

close;

}else if( ( Zeny + ( @Amount * .Zeny[.@a] ) ) > .MaxZeny ){

mes "You can hold this amount of Zeny.";

}else{

set Zeny,Zeny + ( @Amount * .Zeny[.@a] );

delitem .Coins[.@a],@Amount;

mes "Done, you have traded "+@Amount+" of "+getitemname(.Coins[.@a])+" into "+( @Amount * .Zeny[.@a] )+" Zeny.";

close;

}

break;

Case 2:

for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){

mes "Very well. Here is the list on how much each coin is worth:";

mes "^0000FF"+getitemname( .Coins[.@a] )+" : ^FF0000"+.Zeny[.@a]+"^000000 Zeny.";

}

set .@a,select( @Menu$ );

mes "Select the Amount of Zeny you want to trade into "+getitemname( .Coins[.@a] )+".";

mes "You can get maximum of "+Zeny/.Zeny[.@a]+" "+getitemname( .Coins[.@a] )+".";

input @Amount,0,Zeny/.Zeny[.@a];

if( @Amount < 1 ){

mes "Lack of Zeny amount.";

close;

}else{

set Zeny,Zeny - ( @Amount * .Zeny[.@a] );

getitem .Coins[.@a],@Amount;

mes "Done, you have traded "+( @Amount * .Zeny[.@a] )+" Zeny into "+@Amount+" of "+getitemname(.Coins[.@a])+" .";

close;

}

break;

}

}

close;

}

[Kariton Revolution]

thankyou So MUCH !! :*