Cash to Pods

[qtdan]

prontera,166,161,3 script Pods Trader 437,{
Main:
switch(select( "POD to Cash",
"Cash to POD",
"^FF0000Close^000000")){

Case 1:
mes "Please insert the amount of POD you want to change to cash.";
mes "Each POD = 1 Cash Points.";
input @Amount,0,countitem(7179);
next;
if ( @Amount < 1 ) goto Main;
mes "You have successfully changed "+@Amount+" of POD into Cash.";
mes "Currently you have "+#CASHPOINTS+" CashPoints.";
delitem 7179,@Amount;
set #CASHPOINTS,#CASHPOINTS+@Amount;
next;
goto Main;

Case 2:
mes "Please insert the amount of POD you want.";
mes "Each POD Cost 1 CashPoints.";
input @Amount,0,#CASHPOINTS;
next;
if ( @Amount < 1 ) goto Main;
mes "You have successfully exchange Cashpoint into POD.";
getitem 7179,@Amount;
set #CASHPOINTS,#CASHPOINTS-@Amount;
next;
goto Main;
}
}

cash to pods.txt

[Emistry]

isnt your script already got it ?

if got problem...please explain what your problem ...

Please read this before you next post ~

http://rathena.org/board/forum-30/announcement-9-scripting-support-easy-as-1-2-3/