Sistema Zechnas Fantasy Corner V1.0

Típico método de sistemísta donde lo que prima es seguir la atenta apuesta
 anterior y no perder el hilo de la sucesión.
 El sistema, no obstante nos hace ver como el movimiento constante de las
 fichas a través del paño logra cruzarse con frecuencia con la bola ganadora.
 Un sistema  que en su programación Rx puede ser modificado con facilidad en
 cuanto a la progresión se refiere y que nos dará algunas satisfacciones, como
 otros muchos si no se abusa de el.
 Lo vi jugar por primera vez en el Kursaal de S.Sebastian en 1.986 y con algunas
 variantes,en cuanto a posturas iniciales, lo he visto después frecuentemente.
 (*) Notese que tanto las rachas ganadoras vienen seguidas, como las perdedoras.
 Por lo general si se ha obtenido beneficio en pocas bolas, quizá valga la pena
 tentar la suerte y no resetear a la primera de cambio.
 Zechnas/2015

system "Zechnas-Fantasy Corner V1.0"
{
 Típico método de sistemísta donde lo que prima es seguir la atenta apuesta
 anterior y no perder el hilo de la sucesión.
 El sistéma, no obstante nos hace ver como el movimiento constante de las
 fichas a través del paño logra cruzarse con frecuencia con la bola ganadora.
 Un sistéma  que en su programación Rx puede ser modificado con facilidad en
 cuanto a la progresión se refiere y que nos dará algunas satisfacciones, como
 otros muchos si no se abusa de el.
 Lo vi jugar por primera vez en el Kursaal de S.Sebastian en 1.986 y con algunas
 variantes,en cuanto a posturas iniciales, lo he visto después frecuentemente.
 (*) Nótese que tanto las rachas ganadoras vienen seguidas, como las perdedoras.
 Por lo general si se ha obtenido beneficio en pocas bolas, quizá valga la pena
 tentar la suerte y no resetear a la primera de cambio.
 Zechnas/2015

}

method "main"
begin
while starting una new session
begin
// Llamada a la apuesta de inicio y progresion.
call "comenzar";
end

// LLamada subrutinas
call "apuestas";
call "chequeo";
end

method "comenzar"
begin
copy list [corner(13:17),corner(7:11),corner(1:5),corner(2:6),corner(8:12),
corner(14:18),corner(14:18),corner(8:12),corner(2:6),corner(1:5),corner(7:11),
corner(13:17)] para record "corredizas" layout;

copy list [corner(19:23),corner(25:29),corner(31:35),corner(32:36),
corner(26:30),corner(20:24),corner(20:24),corner(26:30),corner(32:36),
corner(31:35),corner(25:29),corner(19:23)] para record "corredizas2" layout;

set list [1,1,1,1,1,2,2,2,3,3,4,5,6,7,8,9,10] record "sucesion" data;    // Progresión típica para juego a docenas o columnas.
//set list [1,1,2,3,5,8,13,21,34,55,89] record "sucesion" data;            // Progresión Fibonacci.
//set list [1,2,4,8,16,32,64,128] record "sucesion" data;                  // Progresión Martingalera.
//set list [1,1,2,4,5,8,12,19,30,48] record "sucesion" data;               // Progresión típica agresiva.
//set list [1,1,2,3,4,6,9,13,20] record "sucesion" data;                   // Progresión agresiva tipo medio.
//set list [3,0,2,3,2,5,5,7,10,12,17,22,29,39] record "sucesion" data;     // Progresión Perrin.
//set list [2,3,5,7,17,29] record "sucesion" data;                         // Progresión Perrin Prima.
//set list [1,1,1,1,2,2,2,3,3,4,5,6,7,8,10,12,14,17,21,25,30,36,43,52] record "sucesion" data; // Progresión del forista Toby, llamada "Aguantadora".


put 1 en record "corredizas" layout index;
put 1 en record "corredizas2" layout index
end

method "chequeo"
begin
//Chequeo ganancia
if net > 0
begin
put 1 en record "sucesion" data index;
end
   
if net < 0
//Chequeo pérdida
begin
add 1 en record "sucesion" data index;
end
   
if record "sucesion" data index > record "sucesion" data count
begin
put 1 en record "sucesion" data index;
end
end

method "apuestas"
begin
put 100% record "sucesion" data en record "corredizas" layout;
put 100% record "sucesion" data en record "corredizas2" layout;


if record "corredizas" layout index >= record "corredizas" layout count
begin
put 1 en record "corredizas" layout index;
end
else
begin
add 1 en record "corredizas" layout index;
end

if record "corredizas2" layout index >= record "corredizas2" layout count
begin
put 1 en record "corredizas2" layout index;
end
else
begin
add 1 en record "corredizas2" layout index;
end

if bankroll > 0
begin
display
" Acaba de ganar mínimo 1 ficha. La sesión
  se cerrará. Comience de nuevo."
//stop session
end

End

Muchas gracias maestro !!!!

Decía un paisano mío, (Séneca), que: Solo se es Maestro cuando se acaba de aprender la última lección y la hemos puesto en práctica sin lamentos (La muerte).
Éste tío si que sabía...

A las pelotas...si que taba jodido jajajajajaja

Hola Zechnas,
Donde puedo conseguir el programa RX para descargarlo, me gustaría aprender a utilizarlo?
Gracias