-	script	Credit Exchanger#2	903,{
	mes "[Credit Exchanger]";
	mes "What do you want?";
switch(select("[Credits to Zeny]","[Zeny to Credits]")){
    case 1:
        if(!countitem(20234)){
            mes "You don't have any credit";
            close;
        }
        mes "How many you want to exchange?";
        input @u;
        if(countitem(20234)<@u){
            mes "You don't have enough credit.";
            close;
        }
        mes "Ok~!";
        delitem 20234,@u;
        set Zeny,Zeny+10000000*@u;
        set @u,0;
        close;
    case 2:
        if(zeny<10000000){
            mes "You don't have enough Zeny.";
            close;
        }
        mes "How many you want to exchange?";
        input @u;
        if(10000000*@u>Zeny){
            mes "You don't have enough Zeny.";
            close;
        }
        set ztc_player,gettimetick(2);
        mes "Ok~!";
        getitem 20234,@u;
        set Zeny,Zeny-10000000*@u;
        close;
}
OnInit:
waitingroom "Credit Exchanger",0;
end;
}
prontera,164,168,5	duplicate(Credit Exchanger#2)	Credit Exchanger#3	903
geffen,116,62,5	duplicate(Credit Exchanger#2)	Credit Exchanger#4	903
turbo_room,93,117,5	duplicate(Credit Exchanger#2)	Credit Exchanger#3	903