SISTEMA FRANCISCO DELAGUAGUA V2.0

Francisco Delaguagua ha terminado casi ciego por unas cataratas asociadas a otros
graves problemas sin solución en la vista.
Este es un sistéma que el usaba con frecuencia y que se atribuía como propio.
La dinámica es tan fácil que casi no hay que exponer su funcionamiento. Se trata, sin más, de una apuesta a columnas con una apuesta fija y otra en constante movimiento.
Aunque se han fijado límites stop-loss, realmente, el lo jugaba como nexo entre el arsenal de sistémas que cada dia jugaba.
Sin duda de la observación de su juego aprendí mucho más que leyendo insidiosos libros, a veces, sin mucho sentido y sin un solo sistéma con imaginación.
Su publicación es un tributo a éste luchador incansable contra la rueda que tuvo, como todos, dias malos y buenos, pero que sobrevivió.
Zechnas/2014.

system "Zechnas - Francisco Delaguagua v2.0"
{
Francisco Delaguagua ha terminado casi ciego por unas cataratas asociadas a otros
graves problemas sin solución en la vista.
Este es un sistéma que el usaba con frecuencia y que se atribuía como propio.
La dinámica es tan fácil que no hay que exponer su funcionamiento.
Su publicación es un tributo a éste luchador incansable contra la rueda que tuvo,
como todos, dias malos y buenos, pero que sobrevivió.
Zechnas/2014.

}

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(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30) ,
corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30),
corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30) ,
corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30),corner(2:6),corner(14:18),corner(26:30)] para record "corredizas" layout;

copy list [corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),
corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),
corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),
corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29),corner(1:5),corner(13:17),corner(25:29)] para record "corredizas2" layout;

copy list [corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),
corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),
corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),
corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36),corner(8:12),corner(20:24),corner(32:36)] para record "corredizas3" layout;

copy list [corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),
corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),
corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),
corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35),corner(7:11),corner(19:23),corner(31:35)] para record "corredizas4" layout;



set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] record "sucesion" data;        // Progresión típica para juego a docenas o columnas.


put 1 en record "corredizas" layout index;
put 1 en record "corredizas2" layout index;
put 1 en record "corredizas3" layout index;
put 1 en record "corredizas4" layout index;
put 3 en column b
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;
put 100% record "sucesion" data en record "corredizas3" layout;
put 100% record "sucesion" data en record "corredizas4" layout;
put 3 en column b

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

// 2

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

//3

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

// 4

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



if bankroll > 0
begin
display
" Acaba de ganar mínimo 2 fichas.
Era lo mínimo previsto para el sistema.
La sesión se cerrará. Comience de nuevo."
end

if bankroll < -30
begin
display
" Acaba de perder lo suficiente.
Era lo máximo previsto para el sistéma.
La sesión se cerrará. Comience de nuevo."
stop session
end

End