Aide pour finir codage d'un fichier dgt Roulette Xtreme

[abydos]

Bonjour à tous

J'ai commencé à créer un fichier pour Roulette Xtreme dgt avec un groupe 15 numéros et attendre 6 fois que le groupe de numéros n'est pas sortie avant de jouer avec une progression de 1-1-2-3-4-7

Mais je ne trouve pas la formule pour le codage pour insérer les 3 derniers groupe
Groupe 2 avec les numéros (0-6-8-10-11-13-17-19-23-27-30-32-36)
Groupe 3 avec les numéros (0-1-5-9-11-14-16-20-24-26-28-31-32-33)
Groupe 4 avec les numéros (0-3-5-7-12-15-18-20-22-26-29-28-35)  et toujours attendre 6 fois que les groupes de numéros ne sont pas sortie avant de jouer avec une progression de 1-1-2-3-6

Si une personne pourrais m'aider.

Merci d'avance.

voici le début du fichier

system "4Groupes"

method "main"
begin
if starting a new session
    begin
    call "init";
    end


if flag "qualified" is false
    begin
    call "qualify";
    end
else
    begin
    call "check win/lose";
    call "place bets";
    end

end




method "init"
begin

set list [1,1,2,3,6] on record "Progression" data;
put 1 units on record "Progression" data index;

set flag "qualified" to false;

copy list [number 0, number 2, number 4, number 8, number 12, number 15,
           number 17, number 19, number 20, number 21, number 23,
           number 25, number 29, number 32, number 34]
           to record "Bets" layout;

end



method "qualify"
begin

if number 0 has not hit more than 6 times
and number 2 has not hit more than 6 times
and number 4 has not hit more than 6 times
and number 8 has not hit more than 6 times
and number 12 has not hit more than 6 times
and number 15 has not hit more than 6 times
and number 17 has not hit more than 6 times
and number 19 has not hit more than 6 times
and number 20 has not hit more than 6 times
and number 21 has not hit more than 6 times
and number 23 has not hit more than 6 times
and number 25 has not hit more than 6 times
and number 29 has not hit more than 6 times
and number 32 has not hit more than 6 times
and number 34 has not hit more than 6 times

    begin
    set flag "qualified" to true;
    call "place bets";
    end



end




method "check win/lose"
begin

if net amount > 0
or record "Progression" data index > record "Progression" data count
    begin
    call "init";
    exit;
    end
else
    begin
    add 1 unit on record "Progression" data index;
    end

end


method "place bets"
begin

put 1 unit on record "bets" layout index;

loop until record "bets" layout index > record "bets" layout count
    begin
    put 100% of record "Progression" data on record "Bets" layout;
    add 1 unit on record "bets" layout index;
    end

end

[abydos]

-