viewing paste Exchanger | Athena

Posted on the | Last edited on
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
// Item Converter
prontera,150,150,4      script  Hunter  727,{
 
        .@SCoin = 657;
        .@PCoin = 7539;
 
        mes "[Hunter]";
        mes "Hello there!";
        mes "how can I help you?";
        next;
        switch(select("Read Information:Convert Coins")) {
       
case 1:
        mes "[Hunter]";
        mes "I am allowed to convert,";
        mes "your Silver Coins into Poring Coins.";
        mes "-----------------------------------";
        mes "10 Silver Coins = 1 Poring Coin";
        end;
 
case 2:
        if(countitem(.@SCoin) >= 10) {
        mes "[Hunter]";
        mes "Ok, how many Silver Coins do you want to ex-change?";
        input .@count,0,countitem(.@SCoin);
        if(.@count < 10) end;
        set .@amount,( .@count / 10 );
        delitem .@SCoin,( .@amount / 10 );
        getitem .@PCoin,.@amount;
        mes "Our deal is complete!";
        end;
                }
        }
}      
Viewed 552 times, submitted by Radian.