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