viewing paste rAthena#Event Coin Exchanger | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
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;
}
Viewed 628 times, submitted by unknown.