// 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;
        }
    }
}