Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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],675,671,674;
- setarray .Zeny[1],1000000,10000000,100000000;
- set @Menu$,"";
- for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){
- set @Menu$,@Menu$ + getitemname( .Coins[.@a] )+":";
- }
- while( 1 ){
- mes "What do you want to do today?";
- next;
- switch( select( "Coin to Zeny:Zeny to Coin" ) ){
- Case 1:
- mes "Very well. Here is the list on how much each coin is worth:";
- for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){
- mes "^0000FF"+getitemname( .Coins[.@a] )+" ^FF0000"+.Zeny[.@a]+"^000000 Zeny.";
- }
- next;
- 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 "You cancelled.";
- }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.";
- }
- next;
- break;
- Case 2:
- mes "Very well. Here is the list on how much each coin is worth:";
- for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){
- mes "^0000FF"+getitemname( .Coins[.@a] )+" ^FF0000"+.Zeny[.@a]+"^000000 Zeny.";
- }
- next;
- 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 "You cancelled.";
- }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])+" .";
- }
- next;
- break;
- }
- }
- close;
- }
Advertisement