(Pawn) 1Bits Manipulação

////////////////////////////////////////////////////////////////////////////////
//
//
//        #### ########   ######     ######## ########    ###    ##     ##
//         ##  ##     ## ##    ##       ##    ##         ## ##   ###   ###
//         ##  ##     ## ##             ##    ##        ##   ##  #### ####
//         ##  ########   ######        ##    ######   ##     ## ## ### ##
//         ##  ##              ##       ##    ##       ######### ##     ##
//         ##  ##        ##    ##       ##    ##       ##     ## ##     ##
//        #### ##         ######        ##    ######## ##     ## ##     ##
//
//
//                    Criado por Bruno da Silva (iPs DraKiNs)
//
//          Acesse meu blog sobre programação www.brunodasilva.com
//
//              Seja membro da melhor equipe de programação
//         http://ips-team.forumeiros.com/t2-informacao-inscricao-na-ips

//                    [iPs]TeaM soluções de programação em geral
//
//
//                    Bits Booleanos | Poupando a memória em 32x
//
//
/////////////////////////////////////////////////////////////////////////////////

#define Bit_Lenght(%0) \
            (sizeof(%0) * cellbits)

#define Bit:%0<%1> \
            %0[(%1 +cellbits) / cellbits]

stock Bit_Get(bit[], pos, size = sizeof bit) {

    new
        index = (pos) / cellbits
    ;

    return index > size || index < 0 ? false : (0 != (bit[index] & (1 << pos))) ;
}

stock Bit_Set(bit[], pos, bool:val, size = sizeof bit) {

    new
        index = (pos) / cellbits
    ;

    return index > size || index < 0 ? 0 : (bit[index] = val ?(bit[index] | 1) << pos : bit[index] & ~(1 << pos)), 1;
}