This is my coin manager npc, it does trade 10m-zeny = 1 Platinum Coin and viceversa i want to change it to anyone can change Platinum coins to zeny, but to change zeny into platinum coins you have to make a
quest and it will be only for 30 days and you cant change more than 2b zeny per day, my idea is when you talk to the npc he ask you: what do you want to do today? -Trade Platinum coins to Zeny,-Trade Zeny to platinum coins,-Make Platinum permit quest, if you doesnt have the permit to trade zeny into P. coins he will tell you you, im sory but you have to make platinum permit quest to trade zeny into platinum coins, do you want to make platinum permit quest?. Please help me with this guys thanks in advance
prontera,128,213,5 script Coin Manager#1::CM 733,{
// Your Server Max Zeny Amount
set .MaxZeny,1000000000;
// Coins Item ID and each Coins Costs
setarray .Coins[1],677;
setarray .Zeny[1],10000000;
set @Menu$,"";
for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){
set @Menu$,@Menu$ + getitemname( .Coins[.@a] )+":";
}
while( 1 ){
mes "Hello I am the Coin Manager, if you are interested in coins you have to talk with me,What can i help you with?";
next;
switch( select( "I want trade Coin to Zeny:I want trade Zeny to Coin" ) ){
Case 1:
mes "Very well. But im only interested on really expensive Coins made of Platinum:";
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 don't have that quantity of Coins.";
}else if( ( Zeny + ( @Amount * .Zeny[.@a] ) ) > .MaxZeny ){
mes "You can't 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 don't have that quantity of Zeny.";
}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;
}
payon,164,222,2 duplicate(CM) Coin Manager#2 733
turbo_room,93,117,5 duplicate(CM) Coin Manager#3 733
Question
eboni001
This is my coin manager npc, it does trade 10m-zeny = 1 Platinum Coin and viceversa i want to change it to anyone can change Platinum coins to zeny, but to change zeny into platinum coins you have to make a
quest and it will be only for 30 days and you cant change more than 2b zeny per day, my idea is when you talk to the npc he ask you: what do you want to do today? -Trade Platinum coins to Zeny,-Trade Zeny to platinum coins,-Make Platinum permit quest, if you doesnt have the permit to trade zeny into P. coins he will tell you you, im sory but you have to make platinum permit quest to trade zeny into platinum coins, do you want to make platinum permit quest?. Please help me with this guys thanks in advance
prontera,128,213,5 script Coin Manager#1::CM 733,{ // Your Server Max Zeny Amount set .MaxZeny,1000000000; // Coins Item ID and each Coins Costs setarray .Coins[1],677; setarray .Zeny[1],10000000; set @Menu$,""; for( set .@a,1; .@a < getarraysize( .Coins ); set .@a,.@a+1 ){ set @Menu$,@Menu$ + getitemname( .Coins[.@a] )+":"; } while( 1 ){ mes "Hello I am the Coin Manager, if you are interested in coins you have to talk with me,What can i help you with?"; next; switch( select( "I want trade Coin to Zeny:I want trade Zeny to Coin" ) ){ Case 1: mes "Very well. But im only interested on really expensive Coins made of Platinum:"; 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 don't have that quantity of Coins."; }else if( ( Zeny + ( @Amount * .Zeny[.@a] ) ) > .MaxZeny ){ mes "You can't 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 don't have that quantity of Zeny."; }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; } payon,164,222,2 duplicate(CM) Coin Manager#2 733 turbo_room,93,117,5 duplicate(CM) Coin Manager#3 733Edited by eboni001Link to comment
Share on other sites
8 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.