system "Zechnas-Fantasy Corner V1.0"

[zechnas]

system "Zechnas-Fantasy corner V1.0"
{


}

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
//Chaequeo 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

[zechnas]

-