Sistema a docenas

Hola dejo aqui un sistema de docenas con su coreespondiente programa de RX , para que lo prueben y a ver si algun conceptual se anima a ver donde se puede cortar las progresiones o algo para modificar en el programa.

El sistema hace lo siguiente:

A la segunda repeticion de cualquiera de las tres docenas empieza a apostar .
Cuando falla empieza a apostar otra vez a otra segunda repeticion sumando una unidad en la apuesta .
Si gana sigue apostando en la misma docena quitando dos unidades .
En cualquier positivo empieza otra vez la progresion .



system "progresionando  docenas a la segunda repeticion "
{
}
method "main"
begin
While Starting a New Session begin Set List [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,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,
53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,
85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,
113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,
137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,
161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,
185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200] to Record "apuesta" data
put 100% del bankroll en record"maximaCaja"data; end

if 1st Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 1st Dozen
  end

if 2nd Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 2nd Dozen
  end

if 3rd Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 3rd Dozen
  end

if net < 0 begin add 1 en Record "apuesta" data index ; end
if record "apuesta" data index > 200 begin Put 1 on Record "apuesta" data index ;Clear All Records Except ["apuesta"] data  ;end

if 1st Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 1st Dozen ; end
if 2nd Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 2nd Dozen ; end
if 3rd Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 3rd Dozen ; end

if 1st Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 1st Dozen ; end
if 2nd Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 2nd Dozen ; end
if 3rd Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 3rd Dozen ; end
end

Puse algo sobre docenas y columnas lo saque de YouTube fíjate es para ruleta americana en un 80% se da.