SISTEMA PROPIO TRIPLE CONSECUTIVO

por **Josan** Sáb Abr 26, 2014 7:11 pm

Hola de nuevo . Les dejo programacion para RX de un sistema .
Este consiste en que en un alto porcentage de veces se forman 3 numeros consecutivos en el cilindro.
Entonces por ejemplo salen los numeros 5 , 24 pues en este caso se apostaria al 10 y al 16
o por ejemplo tambien salen los numeros 36 , 30 en este caso se apostaria al 11
Es un sistema mecanico , que va apostando a medida que van saliendo los numeros.
En el programa esta puesto para que empiece a apostar a partir de la bola numero 5 si hay algun numero al que apostar y acaba cuando han salido 15 numeros difrentes . Despues de varias pruebas esta era de las mejores que iba para el tema de las bolas .
Esto se puede cambiar en la linea numero 10 del programa se cambia el numero para el que quieran parar de apostar y en la linea 254 se cambia el numero para el que quieran empezar a apostar .
La apuesta es plana siempre de 1 ficha por numero . Tiene mucha estabilidad y se juegan como microjuegos
cuando se acierta empieza a contar otra vez o llega a la bola 15 y empieza a contar otra vez .
Pruebenlo y saquen sus conclusiones . Es curioso como se mantiene bastante plano .

system "triple consecutivo"
{el sistema consiste en formar 3 numeros consecutivos en el cilindro
empieza en la bola 5 y acaba en la bola numero 15 si no ha habido acierto
}
method "main"
begin
While Starting a New Session begin
Set List [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] to Record "apuesta" data ; end
if net < 0 begin add 1 en Record "apuesta" data index ; end
if record"suma"data > 14 begin Put 1 on Record "apuesta" data index ; Clear All Records Except ["apuesta"] data ;end

// condicion para resetear todos los records y empezar de nuevo//
if number 0 won each or number 1 won each or number 2 won each or number 3 won each or number 4 won each or number 5 won each or number 6 won each
or number 7 won each or number 8 won each or number 9 won each or number 10 won each or number 11 won each or number 12 won each or number 13 won each
or number 14 won each or number 15 won each or number 16 won each or number 17 won each or number 18 won each or number 19 won each or number 20 won each
or number 21 won each or number 22 won each or number 23 won each or number 24 won each or number 25 won each or number 26 won each or number 27 won each
or number 28 won each or number 29 won each or number 30 won each or number 31 won each or number 32 won each or number 33 won each or number 34 won each
or number 35 won each or number 36 won each begin Put 1 on Record "apuesta" data index ; Clear All Records Except ["apuesta"] data ;end

// contador de bolas //

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

// registro de cada numero //

If number 0 hit each begin add 1 en record"0"data; end
If number 1 hit each begin add 1 en record"1"data; end
If number 2 hit each begin add 1 en record"2"data; end
If number 3 hit each begin add 1 en record"3"data; end
If number 4 hit each begin add 1 en record"4"data; end
If number 5 hit each begin add 1 en record"5"data; end
If number 6 hit each begin add 1 en record"6"data; end
If number 7 hit each begin add 1 en record"7"data; end
If number 8 hit each begin add 1 en record"8"data; end
If number 9 hit each begin add 1 en record"9"data; end
If number 10 hit each begin add 1 en record"10"data; end
If number 11 hit each begin add 1 en record"11"data; end
If number 12 hit each begin add 1 en record"12"data; end
If number 13 hit each begin add 1 en record"13"data; end
If number 14 hit each begin add 1 en record"14"data; end
If number 15 hit each begin add 1 en record"15"data; end
If number 16 hit each begin add 1 en record"16"data; end
If number 17 hit each begin add 1 en record"17"data; end
If number 18 hit each begin add 1 en record"18"data; end
If number 19 hit each begin add 1 en record"19"data; end
If number 20 hit each begin add 1 en record"20"data; end
If number 21 hit each begin add 1 en record"21"data; end
If number 22 hit each begin add 1 en record"22"data; end
If number 23 hit each begin add 1 en record"23"data; end
If number 24 hit each begin add 1 en record"24"data; end
If number 25 hit each begin add 1 en record"25"data; end
If number 26 hit each begin add 1 en record"26"data; end
If number 27 hit each begin add 1 en record"27"data; end
If number 28 hit each begin add 1 en record"28"data; end
If number 29 hit each begin add 1 en record"29"data; end
If number 30 hit each begin add 1 en record"30"data; end
If number 31 hit each begin add 1 en record"31"data; end
If number 32 hit each begin add 1 en record"32"data; end
If number 33 hit each begin add 1 en record"33"data; end
If number 34 hit each begin add 1 en record"34"data; end
If number 35 hit each begin add 1 en record"35"data; end
If number 36 hit each begin add 1 en record"36"data; end

if record"0"data = 1 begin add 1 en record "suma" data ;put 2 en record"0"data; end
if record"1"data = 1 begin add 1 en record "suma" data ;put 2 en record"1"data; end
if record"2"data = 1 begin add 1 en record "suma" data ; put 2 en record"2"data; end
if record"3"data = 1 begin add 1 en record "suma" data ; put 2 en record"3"data; end
if record"4"data = 1 begin add 1 en record "suma" data ; put 2 en record"4"data; end
if record"5"data = 1 begin add 1 en record "suma" data ; put 2 en record"5"data; end
if record"6"data = 1 begin add 1 en record "suma" data ; put 2 en record"6"data; end
if record"7"data = 1 begin add 1 en record "suma" data ; put 2 en record"7"data; end
if record"8"data = 1 begin add 1 en record "suma" data ; put 2 en record"8"data; end
if record"9"data = 1 begin add 1 en record "suma" data ; put 2 en record"9"data; end
if record"10"data = 1 begin add 1 en record "suma" data ; put 2 en record"10"data; end
if record"11"data = 1 begin add 1 en record "suma" data ; put 2 en record"11"data; end
if record"12"data = 1 begin add 1 en record "suma" data ; put 2 en record"12"data; end
if record"13"data = 1 begin add 1 en record "suma" data ; put 2 en record"13"data; end
if record"14"data = 1 begin add 1 en record "suma" data ; put 2 en record"14"data; end
if record"15"data = 1 begin add 1 en record "suma" data ; put 2 en record"15"data; end
if record"16"data = 1 begin add 1 en record "suma" data ; put 2 en record"16"data; end
if record"17"data = 1 begin add 1 en record "suma" data ; put 2 en record"17"data; end
if record"18"data = 1 begin add 1 en record "suma" data ; put 2 en record"18"data; end
if record"19"data = 1 begin add 1 en record "suma" data ; put 2 en record"19"data; end
if record"20"data = 1 begin add 1 en record "suma" data ; put 2 en record"20"data; end
if record"21"data = 1 begin add 1 en record "suma" data ; put 2 en record"21"data; end
if record"22"data = 1 begin add 1 en record "suma" data ; put 2 en record"22"data; end
if record"23"data = 1 begin add 1 en record "suma" data ; put 2 en record"23"data; end
if record"24"data = 1 begin add 1 en record "suma" data ; put 2 en record"24"data; end
if record"25"data = 1 begin add 1 en record "suma" data ; put 2 en record"25"data; end
if record"26"data = 1 begin add 1 en record "suma" data ; put 2 en record"26"data; end
if record"27"data = 1 begin add 1 en record "suma" data ; put 2 en record"27"data; end
if record"28"data = 1 begin add 1 en record "suma" data ; put 2 en record"28"data; end
if record"29"data = 1 begin add 1 en record "suma" data ; put 2 en record"29"data; end
if record"30"data = 1 begin add 1 en record "suma" data ; put 2 en record"30"data; end
if record"31"data = 1 begin add 1 en record "suma" data ; put 2 en record"31"data; end
if record"32"data = 1 begin add 1 en record "suma" data ; put 2 en record"32"data; end
if record"33"data = 1 begin add 1 en record "suma" data ; put 2 en record"33"data; end
if record"34"data = 1 begin add 1 en record "suma" data ; put 2 en record"34"data; end
if record"35"data = 1 begin add 1 en record "suma" data ; put 2 en record"35"data; end
if record"36"data = 1 begin add 1 en record "suma" data ; put 2 en record"36"data; end

// condicion para resetear todos los records y empezar de nuevo//

if record"0"data >= 1 and record"32"data >= 1 and record"15"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"32"data >= 1 and record"15"data >= 1 and record"19"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"15"data >= 1 and record"19"data >= 1 and record"4"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"19"data >= 1 and record"4"data >= 1 and record"21"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"4"data >= 1 and record"21"data >= 1 and record"2"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"21"data >= 1 and record"2"data >= 1 and record"25"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"2"data >= 1 and record"25"data >= 1 and record"17"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"25"data >= 1 and record"17"data >= 1 and record"34"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"17"data >= 1 and record"34"data >= 1 and record"6"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"34"data >= 1 and record"6"data >= 1 and record"27"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"6"data >= 1 and record"27"data >= 1 and record"13"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"27"data >= 1 and record"13"data >= 1 and record"36"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"13"data >= 1 and record"36"data >= 1 and record"11"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"36"data >= 1 and record"11"data >= 1 and record"30"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"11"data >= 1 and record"30"data >= 1 and record"8"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"30"data >= 1 and record"8"data >= 1 and record"23"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"8"data >= 1 and record"23"data >= 1 and record"10"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"23"data >= 1 and record"10"data >= 1 and record"5"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"10"data >= 1 and record"5"data >= 1 and record"24"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"5"data >= 1 and record"24"data >= 1 and record"16"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"24"data >= 1 and record"16"data >= 1 and record"33"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"16"data >= 1 and record"33"data >= 1 and record"1"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"33"data >= 1 and record"1"data >= 1 and record"20"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"1"data >= 1 and record"20"data >= 1 and record"14"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"20"data >= 1 and record"14"data >= 1 and record"31"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"14"data >= 1 and record"31"data >= 1 and record"9"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"31"data >= 1 and record"9"data >= 1 and record"22"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"9"data >= 1 and record"22"data >= 1 and record"18"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"22"data >= 1 and record"18"data >= 1 and record"29"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"18"data >= 1 and record"29"data >= 1 and record"7"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"29"data >= 1 and record"7"data >= 1 and record"28"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"7"data >= 1 and record"28"data >= 1 and record"12"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"28"data >= 1 and record"12"data >= 1 and record"35"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"12"data >= 1 and record"35"data >= 1 and record"3"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"35"data >= 1 and record"3"data >= 1 and record"26"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"3"data >= 1 and record"26"data >= 1 and record"0"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

if record"26"data >= 1 and record"0"data >= 1 and record"32"data >= 1 begin
Put 1 on Record "apuesta" data index
Clear All Records Except ["apuesta"] data ;end

// condiciones para efectuar la apuesta //
if record"bolas"data >= 5 begin
if record"0"data >= 1 and record"15"data >= 1 begin put 100% de Record "apuesta" data en number 32; end
if record"32"data >= 1 and record"19"data >= 1 begin put 100% de Record "apuesta" data en number 15; end
if record"15"data >= 1 and record"4"data >= 1 begin put 100% de Record "apuesta" data en number 19; end
if record"19"data >= 1 and record"21"data >= 1 begin put 100% de Record "apuesta" data en number 4; end
if record"4"data >= 1 and record"2"data >= 1 begin put 100% de Record "apuesta" data en number 21; end
if record"21"data >= 1 and record"25"data >= 1 begin put 100% de Record "apuesta" data en number 2; end
if record"2"data >= 1 and record"17"data >= 1 begin put 100% de Record "apuesta" data en number 25; end
if record"25"data >= 1 and record"34"data >= 1 begin put 100% de Record "apuesta" data en number 17; end
if record"17"data >= 1 and record"6"data >= 1 begin put 100% de Record "apuesta" data en number 34; end
if record"34"data >= 1 and record"27"data >= 1 begin put 100% de Record "apuesta" data en number 6; end
if record"6"data >= 1 and record"13"data >= 1 begin put 100% de Record "apuesta" data en number 27; end
if record"27"data >= 1 and record"36"data >= 1 begin put 100% de Record "apuesta" data en number 13; end
if record"13"data >= 1 and record"11"data >= 1 begin put 100% de Record "apuesta" data en number 36; end
if record"36"data >= 1 and record"30"data >= 1 begin put 100% de Record "apuesta" data en number 11; end
if record"11"data >= 1 and record"8"data >= 1 begin put 100% de Record "apuesta" data en number 30; end
if record"30"data >= 1 and record"23"data >= 1 begin put 100% de Record "apuesta" data en number 8; end
if record"8"data >= 1 and record"10"data >= 1 begin put 100% de Record "apuesta" data en number 23; end
if record"23"data >= 1 and record"5"data >= 1 begin put 100% de Record "apuesta" data en number 10; end
if record"10"data >= 1 and record"24"data >= 1 begin put 100% de Record "apuesta" data en number 5; end
if record"5"data >= 1 and record"16"data >= 1 begin put 100% de Record "apuesta" data en number 24; end
if record"24"data >= 1 and record"33"data >= 1 begin put 100% de Record "apuesta" data en number 16; end
if record"16"data >= 1 and record"1"data >= 1 begin put 100% de Record "apuesta" data en number 33; end
if record"33"data >= 1 and record"20"data >= 1 begin put 100% de Record "apuesta" data en number 1; end
if record"1"data >= 1 and record"14"data >= 1 begin put 100% de Record "apuesta" data en number 20; end
if record"20"data >= 1 and record"31"data >= 1 begin put 100% de Record "apuesta" data en number 14; end
if record"14"data >= 1 and record"9"data >= 1 begin put 100% de Record "apuesta" data en number 31; end
if record"31"data >= 1 and record"22"data >= 1 begin put 100% de Record "apuesta" data en number 9; end
if record"9"data >= 1 and record"18"data >= 1 begin put 100% de Record "apuesta" data en number 22; end
if record"22"data >= 1 and record"29"data >= 1 begin put 100% de Record "apuesta" data en number 18; end
if record"18"data >= 1 and record"7"data >= 1 begin put 100% de Record "apuesta" data en number 29; end
if record"29"data >= 1 and record"28"data >= 1 begin put 100% de Record "apuesta" data en number 7; end
if record"7"data >= 1 and record"12"data >= 1 begin put 100% de Record "apuesta" data en number 28; end
if record"28"data >= 1 and record"35"data >= 1 begin put 100% de Record "apuesta" data en number 12; end
if record"12"data >= 1 and record"3"data >= 1 begin put 100% de Record "apuesta" data en number 35; end
if record"35"data >= 1 and record"26"data >= 1 begin put 100% de Record "apuesta" data en number 3; end
if record"3"data >= 1 and record"0"data >= 1 begin put 100% de Record "apuesta" data en number 26; end
if record"26"data >= 1 and record"32"data >= 1 begin put 100% de Record "apuesta" data en number 0; end
if record"0"data >= 1 and record"32"data >= 1 begin put 100% de Record "apuesta" data en list [ number 26, number 15] ; end
if record"32"data >= 1 and record"15"data >= 1 begin put 100% de Record "apuesta" data en list [ number 0, number 19] ; end
if record"15"data >= 1 and record"19"data >= 1 begin put 100% de Record "apuesta" data en list [ number 32, number 4] ; end
if record"19"data >= 1 and record"4"data >= 1 begin put 100% de Record "apuesta" data en list [ number 15, number 21] ; end
if record"4"data >= 1 and record"21"data >= 1 begin put 100% de Record "apuesta" data en list [ number 19, number 2] ; end
if record"21"data >= 1 and record"2"data >= 1 begin put 100% de Record "apuesta" data en list [ number 4, number 25] ; end
if record"2"data >= 1 and record"25"data >= 1 begin put 100% de Record "apuesta" data en list [ number 21, number 17] ; end
if record"25"data >= 1 and record"17"data >= 1 begin put 100% de Record "apuesta" data en list [ number 2, number 34] ; end
if record"17"data >= 1 and record"34"data >= 1 begin put 100% de Record "apuesta" data en list [ number 25, number 6] ; end
if record"34"data >= 1 and record"6"data >= 1 begin put 100% de Record "apuesta" data en list [ number 17, number 27] ; end
if record"6"data >= 1 and record"27"data >= 1 begin put 100% de Record "apuesta" data en list [ number 34, number 13] ; end
if record"27"data >= 1 and record"13"data >= 1 begin put 100% de Record "apuesta" data en list [ number 6, number 36] ; end
if record"13"data >= 1 and record"36"data >= 1 begin put 100% de Record "apuesta" data en list [ number 27, number 11] ; end
if record"36"data >= 1 and record"11"data >= 1 begin put 100% de Record "apuesta" data en list [ number 13, number 30] ; end
if record"11"data >= 1 and record"30"data >= 1 begin put 100% de Record "apuesta" data en list [ number 36, number 8] ; end
if record"30"data >= 1 and record"8"data >= 1 begin put 100% de Record "apuesta" data en list [ number 11, number 23] ; end
if record"8"data >= 1 and record"23"data >= 1 begin put 100% de Record "apuesta" data en list [ number 30, number 10] ; end
if record"23"data >= 1 and record"10"data >= 1 begin put 100% de Record "apuesta" data en list [ number 8, number 5] ; end
if record"10"data >= 1 and record"5"data >= 1 begin put 100% de Record "apuesta" data en list [ number 23, number 24] ; end
if record"5"data >= 1 and record"24"data >= 1 begin put 100% de Record "apuesta" data en list [ number 10, number 16] ; end
if record"24"data >= 1 and record"16"data >= 1 begin put 100% de Record "apuesta" data en list [ number 5, number 33] ; end
if record"16"data >= 1 and record"33"data >= 1 begin put 100% de Record "apuesta" data en list [ number 24, number 1] ; end
if record"33"data >= 1 and record"1"data >= 1 begin put 100% de Record "apuesta" data en list [ number 16, number 20] ; end
if record"1"data >= 1 and record"20"data >= 1 begin put 100% de Record "apuesta" data en list [ number 33, number 14] ; end
if record"20"data >= 1 and record"14"data >= 1 begin put 100% de Record "apuesta" data en list [ number 1, number 31] ; end
if record"14"data >= 1 and record"31"data >= 1 begin put 100% de Record "apuesta" data en list [ number 20, number 9] ; end
if record"31"data >= 1 and record"9"data >= 1 begin put 100% de Record "apuesta" data en list [ number 14, number 22] ; end
if record"9"data >= 1 and record"22"data >= 1 begin put 100% de Record "apuesta" data en list [ number 31, number 18] ; end
if record"22"data >= 1 and record"18"data >= 1 begin put 100% de Record "apuesta" data en list [ number 9, number 29] ; end
if record"18"data >= 1 and record"29"data >= 1 begin put 100% de Record "apuesta" data en list [ number 22, number 7] ; end
if record"29"data >= 1 and record"7"data >= 1 begin put 100% de Record "apuesta" data en list [ number 18, number 28] ; end
if record"7"data >= 1 and record"28"data >= 1 begin put 100% de Record "apuesta" data en list [ number 29, number 12] ; end
if record"28"data >= 1 and record"12"data >= 1 begin put 100% de Record "apuesta" data en list [ number 7, number 35] ; end
if record"12"data >= 1 and record"35"data >= 1 begin put 100% de Record "apuesta" data en list [ number 28, number 3] ; end
if record"35"data >= 1 and record"3"data >= 1 begin put 100% de Record "apuesta" data en list [ number 12, number 26] ; end
if record"3"data >= 1 and record"26"data >= 1 begin put 100% de Record "apuesta" data en list [ number 35, number 0] ; end
if record"26"data >= 1 and record"0"data >= 1 begin put 100% de Record "apuesta" data en list [ number 3, number 32] ; end

end
end