Programa sistema efecto mariposa para RX

Hola, pongo aqui un fragmento sencillo para el sistema efecto mariposa.
Esta puesto para jugar a falta o pasa. Solamente lleva la progresion de 1,1,2 . Si falla se vuelve a repetir con la misma progresion en otra tanda de bolas .
Mirenlo a ver si es asi el sistema.El programa vale solo para hacernos una idea de como iria.
Si es asi en mis permanencias falla mas que una escopeta de feria.


system "efecto mariposa"
{ se apuesta al contrario de la primera bola
en tandas de seis bolas durante la bola 4ª, 5ª, 6ª
en falta o pasa
}
method "main"
begin
While Starting a New Session begin
Set List [1,1,2] to Record "apuesta1" data ; end

if net < 0 begin add 1 en Record "apuesta1" data index ; end
if net > 0 begin clear all records Except ["apuesta1"] data ; put 1 en record "apuesta1" data index; end

While each spin begin add 1 en record "bolas" data; end

if low tiene hit each and record "bolas" data = 1 begin put 1 en record "A" data ; end
if record "bolas" data >= 3 and record "A" data >= 1 begin put 100% de Record "apuesta1" data en high ; end

if high tiene hit each and record "bolas" data = 1 begin put 1 en record "B" data ; end
if record "bolas" data >= 3 and record "B" data >= 1 begin put 100% de Record "apuesta1" data en low ; end

if record "bolas" data = 6 begin clear all records Except ["apuesta1"] data ; put 1 en record "apuesta1" data index ; end

end