//Credits to Putera //Do Not Erase //Do Not Sell/Own The Script
welgaia,164,236,5	script	Bank Note Exchanger	416,{

		mes "[Bank Note Exchanger]";
		mes "Hi!";
		mes "1 Bank Note = 1m Zeny";
		mes "Also have Cap for Exchange";
		mes "Bank Note Exchange / 200 pcs";
		mes "Zeny Exchange / 2,000,000,000";
		switch(select("Bank Notes = Zeny:Zeny = Bank Notes")) {
	Case 1:
		mes "[Bank Note Exchanger]";
		mes "How many Bank Note's to exchange?";
		next;
		do{
		input @BankNote,0,countitem(25054);
		if( @BankNote < 1 ) close;
		}while( ( ( @BankNote * 1000000 ) + Zeny ) > 2000000000 );
		next;
		mes "[Bank Note Exchanger]";
		mes "Thanks";
		delitem 25054,@BankNote;
		set Zeny, Zeny + ( @BankNote * 1000000 );
		close;

	Case 2:
		mes "[Bank Note Exchanger]";
		mes "How much Zeny to convert to Bank Note's?";
		next;
		input @BankNote,0,( Zeny / 1000000 );
		if( @BankNote < 1 ) close;
		next;
		mes "[Bank Note Exchanger]";
		mes "Thanks.";
		set Zeny, Zeny - ( @BankNote * 1000000);
		getitem 25054,@BankNote;
		close;
	}
close;
}