SYSTEM "ZECHNAS - THIRD LAW v1.0"

[zechnas]

system "Zechnas - Third Law v1.0"
{
If the Law of Third has to be fulfilled most of the time for it to be a
Law, even having its exceptions, we have the basis so that after the
first 12 numbers let's start thinking that any of them can be of the
third to repeat. With this program we try to emulate that statement. Every
who sees the results.
The entire session should be 37 balls, unless we hit before and
Let's log out voluntarily. Each cycle of 37 balls the program will choose from
again among the first 12 starts to return to complete indefinitely the
cycle.
J.Zechnas/2010.
}
method "main"
begin
while starting new session
begin
exit
end
// Se cumple la condición verdadera
if flag "METODO" true
begin
call "METODO"
call"PREMIO"
end else begin
call "RASTREO"
end
end
//Método de apuesta
method "METODO"
begin
add 1 record"CONTADOR"data
if record"CONTADOR"data = 27
begin
// Limpiando datos records
clear  record"NO APARECEN"layout
clear  record"CONTADOR"data
clear record"ULTIMOS 12"layout
// Reseteando Datos bandera
reset all flags false
exit
end

if net > 0
begin
copy last split record"NO APARECEN"layout
add 1  record"NO APARECEN"layout index
end

put 1  record"ULTIMOS 12"layout list
put 1  record"NO APARECEN"layout list
end

//Motor principal.
method "RASTREO"
begin
track last split for 12 spins record"ULTIMOS 12"layout
if  record"ULTIMOS 12"layout count = 12
begin
set flag "METODO" true
call "METODO"
end
end

// Rutina del premio.
method "PREMIO"
begin
if net > 0 and  bankroll > 0
begin
Display "Acaba de confirmar la Ley del Tercio:
             !!! ENHORABUENA ¡¡¡.
    Comience una nueva sesión o prosiga si está en racha

             , _ ,
          ( o o )
         /'` ' `'\
        | ''''''' |
          \\'''//
           oo^oo........Zechnas/2010."

end

//Rutina de fin de programa
if  record"ULTIMOS 12"layout count > 37
begin
stop session
end
End