prontera,155,181,5%TAB%script%TAB%Sample%TAB%718,{
    // 1 Poring Coin = How Many Zeny ?
    set .Rates,100000;
    while( 1 ){
        switch( select("Poring Coin to Zeny:Zeny to Poring Coin") )
        {
            case 1:  
                if( !countitem(7539) ){   
                    mes "You didnt have enough Poring Coin.";  
                }else {   
                    mes "You have "+countitem(7539)+" Poring Coin.";   
                    mes "How many Poring Coin will be convert to zeny ?";   
                    input @Amount,0,countitem(7539);   
                    if( !@Amount || (( .Rates * @Amount ) + Zeny ) > 1000000000 ){  
                        mes "Deal Cancelled.";   
                    } else {    
                        delitem 7539,@Amount;   
                        mes "Converted "+@Amount+" of Poring Coin into Zeny.";  
                        mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";    
                        set Zeny,Zeny + ( .Rates * @Amount );   
                    }  
                }  
                next;  
                break;
            case 2:  
                if( Zeny < .Rates ){   
                    mes "You didnt have enough Zeny.";  
                } else {   
                    mes "You have "+Zeny+" Zeny.";   
                    mes "How many Poring Coin you want ?";   
                    mes "You can get maximum of "+( Zeny / .Rates )+" Poring Coin.";   
                    input @Amount,0,( Zeny / .Rates );   
                    if( !@Amount ){ 
                        mes "Deal Cancelled.";   
                    } else {    
                        set Zeny,Zeny - ( @Amount * .Rates );   
                        mes "Converted "+( @Amount * .Rates )+" Zeny into "+@Amount+" Poring Coin.";    
                        getitem 7539,@Amount;   
                    }  
                }  
                next;  
                break;
        }
    }
    close;
}