Help to finish coding a Roulette Xtreme dgt file

[abydos]

Hello everyone

I started to create a file for Roulette Xtreme dgt with a group of 15 numbers and waited 6 times that the group of numbers did not come out before playing with a progression of 1-1-2-3-6

But I can't find the formula for the coding to insert the last 3 groups
Group 2 with numbers (0-6-8-10-11-13-17-19-23-27-30-32-36)
Group 3 with numbers (0-1-5-9-11-14-16-20-24-26-28-31-32-33)
Group 4 with the numbers (0-3-5-7-12-15-18-20-22-26-29-28-35) and always wait 6 times that the groups of numbers are not output before playing with a progression of 1-1-2-3-6

If someone could help me.

Thanks in advance.

here is the beginning of the file

system "4Groups"

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 "Progress" data;
put 1 units on record "Progress" 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 "Progress" data index > record "Progress" data count
     begin
     call "init";
     exit;
     end
else
     begin
     add 1 unit on record "Progress" 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 "Progress" data on record "Bets" layout;
     add 1 unit on record "bets" layout index;
     end

end

QUOTE
MORE...