Credit Exchanger [Easy Modify]]

//==============================================================================//
//=[Script Release : Credit Exchanger]
//=[Easy Modification]
//============================================================================//
//=[Script : DaemonSpade]
//==============================================================================//
//=[Idea Came From : DaemonSpade]
//=[Special Thanks to : Emistry]
//==============================================================================//
//= Description
//==============================================================================//
//=1. This Script Has Capacity Exchange
//= Zeny Capacity is 2,000,000,000z
//=A.Non Zeny Eater
//=B.Zeny/Credit Limiter Make it Exact
//=Example A: You Have 2b Zeny & You Exchange a Coin/Credit
//= The NPC Will Ask You Agian How Many Credits or Zeny You Will Exchanged
//=Example B: It Reads Your Zeny so The NPC Know The Max of Credit You Can Exchange Dont Put Wrong Ammount of Credit/Coin
//= The NPC Will Ask You Agian How Many Credits or Zeny You Will Exchanged
//==============================================================================//
//= Rules for using this script
//=1. Do not claim it as yours.
//=2. Do not change the credits.
//=3. Do not sell the script to earn money.
//==============================================================================//

prontera,160,184,5	script	Credit Exchanger	416,{

//====================================[Customization Area]==========================//
		set .npcname$,"^0000EE[Credit Exchanger]^000000"; //NPC Name
		set .coinname$,"^0000EECredit^000000"; //Name of Item as Coin Used
		set .CoinID,501; // Credit ID Set to Red Potion
		set .zeny,10000000; // Credit Price Set by 10,000,000 or 10m
		set .capzeny,2000000000; //Zeny Capacity Set by 2,000,000,000 or 2b
//==============================================================================//
// Check Line 89 To Edit The Chat/Pub Name Like This:
//		waitingroom "Credit Exchanger",0;
//==============================================================================//

		PlayerMode:
		mes .npcname$;
		mes "Hello there "+strcharinfo(0);
		mes "Rule's Of Exchange";
		mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
		mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
		switch(select("(Credits) to (Zeny):(Zeny) to (Credits)")) {
	Case 1:
		next;
		mes .npcname$;
		mes "How many Credits to exchange?";
		mes "Put The Credit Amount";
		mes "Put  ^0000EE[0]^000000 to Cancel";
		mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
		mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
		next;
		do{
		input @Credit,0,countitem(.CoinID);
		if( @Credit < 1 ) close;
		}while( ( ( @Credit * .zeny ) + Zeny ) > .capzeny );
		next;
		mes .npcname$;
		mes "Thanks";
		delitem .CoinID,@Credit;
		set Zeny, Zeny + ( @Credit * .zeny );
		dispbottom "Zeny Exchange Finished";
		close;

	Case 2:
		next;
		mes .npcname$;
		mes "How much Credit you like to Gain?";
		mes "Put The Credit Amount";
		mes "Put  ^0000EE[0]^000000 to Cancel";
		mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]";
		mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]";
		next;
		input @Credit,0,( Zeny / .zeny );
		if( @Credit < 1 ) close;
		next;
		mes .npcname$;
		mes "Thanks.";
		set Zeny, Zeny - ( @Credit * .zeny);
		getitem .CoinID,@Credit;
		dispbottom "Credit Exchange Finished";
		close;

		OnInit:
		waitingroom "Credit Exchanger",0;
		end;
	}
close;
}