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 624 times, submitted by Guest.