viewing paste Unknown #15540 | Athena

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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
P_Yes4:
        next;
        if(#cgp == 0 && countitem(7784) > 0){
                delitem 7784,1;
                mes "[Freebies NPC]";
                mes "Well, here you go! Thanks and enjoy the game!";
                        switch(rand(15)){
                        case 0:
                                rentitem 5776,86400;
                                break;
                        case 1:
                                rentitem 19517,86400;
                                break;
                        case 2:
                                rentitem 19515,86400;
                                break;
                        }
 
                set #costumegpack,1;
                close;
        }else if(#cgp == 1 && countitem(7785) > 0){
                delitem 7785,1;
                mes "[Freebies NPC]";
                mes "Well, here you go! Thanks and enjoy the game!";
                        switch(rand(15)){
                        case 0:
                                rentitem 19510,86400;
                                break;
                        case 1:
                                rentitem 19522,86400;
                                break;
                        case 2:
                                rentitem 19521,86400;
                                break;
                        }
 
                set #costumegpack,1;
                close;
        }else if(#cgp == 2 && countitem(7786) > 0){
                delitem 7786,1;
                mes "[Freebies NPC]";
                mes "Well, here you go! Thanks and enjoy the game!";
                        switch(rand(15)){
                        case 0:
                                rentitem 19516,86400;
                                break;
                        case 1:
                                rentitem 19513,86400;
                                break;
                        case 2:
                                rentitem 19509,86400;
                                break;
                        }
                set #costumegpack,1;
                close;
        }else{
                goto Lnenough;
        }
Viewed 280 times, submitted by unknown.