prontera,108,235,6  script  Exchange NPC    94,{
    if(countitem($@token) < 1) goto no_token;
    mes "[Exchange NPC]";
    mes "Hello, I see you have a Token. Would you";
    mes "like to exchange it for 10,000 Cash Points?";
    next;
    if (select("Yes Please:Nah") == 2) {
        no_token:
        mes "[Exchange NPC]";
        mes "Have a nice day... >.>";
        close;
    }
    mes "[Exchange NPC]";
    if(countitem($@token) < 1) goto no_token;
    mes "There you go!";
    delitem $@token, 1;
    set #CASHPOINTS, #CASHPOINTS + $@cash;
    close;
    
OnInit:
set $@token, 501;
set $@cash, 10000;
}