-	script	Credit Exchanger#2	903,{
    mes "[Credit Exchanger]";
    mes "What do you want?";
switch(select("[Credits to Super Credits]","[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 || @u < 100){
            mes "You don't have enough credit.";
            close;
        }
		set @realu, @u / 100; //report to nearest 100 multiplier
        mes "Ok~!";
        delitem 20234,@realu * 100;
        getitem "supercoinid", @realu;
        close;
    case 2:
        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 3:
        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#5	903