viewing paste Unknown #1003 | C

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
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;
}
Viewed 308 times, submitted by unknown.