prontera,160,184,5	script	Bank Note Manager	416,{
//====================================[Credits To DaemonSpade]==========================//
//====================================[Request Of Putera Hairi]==========================//
//====================================[Customization Area]==========================//
		set .npcname$,"^0147FA[Bank Note Manager]^000000"; //NPC Name
		set .coinname$,"^0147FA Bank Note ^000000"; //Name of Item as Coin Used
		set .CoinID,25054; // Bank Note ID Set to Red Potion
		set .bnpoint,1; // Each Bank Note Price set to 1 is to 1
		set .capbanknote,30000; // Capacity of 30,000 Bank Note

//=================================================================================//

		mes .npcname$;
		mes "Hello there - "+strcharinfo(0);
		mes "You currently have ^FF0000["+#BNPoint+"^000000] BPoints";
		mes "Bank Note Exchange Capacity is [^00FF33"+.capbanknote+"^000000] BPoints";
		switch(select("(Bank Note) to (Bank Points):(Bank Points) to (Bank Note)")) {
	Case 1:
		next;
		mes .npcname$;
		mes "How many Bank Note to exchange?";
		mes "Put The Bank Note Amount";
		mes "Put  ^0000EE[0]^000000 to Cancel";
		mes "You currently have ^FF0000["+#BNPoint+"^000000] BPoints";
		mes "Bank Note Exchange Capacity is [^00FF33"+.capbanknote+"^000000] BPoints";
		next;
		do{
		input @Credit,0,countitem(.CoinID);
		if( @Credit < 1 ) close;
		}while( ( ( @Credit * .bnpoint ) + #BNPoint ) > .capbanknote );
		next;
		mes .npcname$;
		mes "Thanks";
		delitem .CoinID,@Credit;
		set #BNPoint,#BNPoint + ( @Credit * .bnpoint );
		close;

	Case 2:
		next;
		mes .npcname$;
		mes "How much Bank Note you like to Gain?";
		mes "Put The Bank Note Amount";
		mes "Put  ^0000EE[0]^000000 to Cancel";
		mes "You currently have ^FF0000["+#BNPoint+"^000000] BPoints";
		mes "Bank Note Exchange Capacity is [^00FF33"+.capbanknote+"^000000] BPoints";
		next;
		input @Credit,0,( #BNPoint / .bnpoint );
		if( @Credit < 1 ) close;
		next;
		mes .npcname$;
		mes "Thanks.";
		set #BNPoint,#BNPoint - ( @Credit * .bnpoint);
		getitem .CoinID,@Credit;
		close;

		OnInit:
		waitingroom "Bank Note Manager",0;
		end;
	}
close;
}