viewing paste Unknown #21667 | 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
if (BaseLevel < 25) {
        mes "[Lottery Hat]";
        mes "I'm sorry, it's just for Base Level 25 or higher";
        close2;
}
        mes "[Lottery Hat]";
        mes "Please, insert the promotional code.";
        input .@procode$;
        next;
        if ( .@procode$ == 2015k ) {
        .@rate = rand( 100 );
 
        if ( .@rate <= 10 ) {
        .@item = F_Rand( 5074,5132 );
        }
        else if ( .@rate <= 40 ) {
        .@item = F_Rand( 5766,5786 );
        }
        else else {
        .@item = F_Rand( 5474,5137 );
        }
        getitem .@item,1;
        announce strcharinfo(0)+" has been rewarded with "+getitemname( .@item )+";bc_all;
        end;
        }
        mes "[Lottery Hat]";
        mes "sorry, your promocode is wrong.";
        mes "Please, check the forums.";
        close;
}
Viewed 655 times, submitted by unknown.