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;
}