prontera,148,168,4  script  Event Coin Changer  733,{
    mes "[Event Coins Changer]";
    mes "Hi ^ff8000"+strcharinfo(0)+"^000000, I can exchange your coins to higher coins.";
    mes "^C0C0C05 Bronze Coin = 1 Silver Coin^000000";
    mes "^C9AE5D5 Silver Coin = 1 Gold Coin^000000";
    mes "^8B65085 Gold Coin = 1 Platinum Coin^000000";
    mes "What would you like to do?";
    next;
    switch(select("Bronze Coin to Silver Coin","Silver Coin to Gold Coin","Gold Coin to Platinum Coin:Platinum Coin to Gold Coin:Gold Coin to Silver Coin:Silver Coin to Bronze Coin")) {
        case 1:
            mes "How many you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(673) < .@count*5) goto L_NE;
            delitem 673,.@count*5;
            getitem 675,.@count;
            close;
            
        case 2:
            mes "How many you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(675) < .@count*5) goto L_NE;
            delitem 675,.@count*5;
            getitem 671,.@count;
            close;
            
        case 3:
            mes "How many you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(671) < .@count*5) goto L_NE;
            delitem 671,.@count*5;
            getitem 677,.@count;
            close;
            
        case 4:
            mes "How many Coins do you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(677) < .@count) goto L_NE;
            delitem 677,.@count;
            getitem 671,.@count*5;
            close;
            
        case 5:
            mes "How many Coins do you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(671) < .@count) goto L_NE;
            delitem 671,.@count;
            getitem 675,.@count*5;
            close;
            
        case 6:
            mes "How many Coins do you want to exchange?";
            next;
            input .@count;
            if (.@count == 0) close; // optional: if player enter 0 script will terminate
            if (countitem(675) < .@count) goto L_NE;
            delitem 675,.@count;
            getitem 673,.@count*5;
            close;
    }
 
L_NE:
    mes "You don't have enough of this coin.";
    close;
}