prontera,154,188,5	script	eKoin Exchanger	416,{
mes "[eKoin Exchanger]";
mes "Hello there "+strcharinfo(0);
mes "1 eKoin is equivalent to 100 Poring Coin";
next;
switch(select("(eKoin) to (Poring Coin):(Poring Coin) to (eKoin)")) {
	Case 1:
		input @eKoin,0,countitem(7517);
		if (@eKoin == 0){
			mes "[eKoin Exchanger]";
			mes "Come back when you have coins to exchange.";
		}else{
			getitem 7539, (100 * @eKoin);
			delitem 7517, @eKoin;
			dispbottom "Poring Coin Exchange Finished";
		}
		close;

	Case 2:
		input @coin,0,( countitem(7539)/100 );
		if (@coin == 0){
			mes "[eKoin Exchanger]";
			mes "Come back when you have coins to exchange.";
		}else{
		getitem 7517, @coin;
		delitem 7539, (100 * @coin);
		dispbottom "eKoin Exchange Finished";
		}
		close;
	}
close;
}