*** Sistema Zechnas Lorite V2.0

system "Zechnas - Lorite V2.0"
{

Elegimos una serie combinada de tres elementos, en éste caso las columnas y la
jugamos hasta obtener una ganancia de al menos 5 unidades o hasta que se produce
una mala racha que pone en peligro nuestra caja. Aconsejable dejar la serie
después de la salida del segundo cero si nuestra caja ya registra pérdidas.

Podemos ir cambiando a nuestro gusto las series programadas o podemos
inventar nuevas secuencias e ir sustituyendolas para ver resultados.

Para probar las otras secuencias añadir barra, barra (//) delante de la que
está en uso y quitar las barras de la que quiere usar.
Zechnas/2009
}
method "main"
begin
while starting a new session
begin

copy list [column a,column b,column c] to record "colfavor" layout

// Otras secuencias :

//copy list [column a,column b,column c,column a] to record "colfavor" layout
//copy list [column a,column c,column b,column b, column a] to record "colfavor" layout
//copy list [column a,column a,column c, column c, column b, column b] to record "colfavor" layout

set list [1,1,2,2,2,4,4,4,4,8,8,8,8,8] to record "progsuave" data

put 100% of record "progsuave" data to record "colfavor" layout
exit
end

if record "colfavor" layout has won each time
begin
put 1 to record "progsuave" data index
end

if record "colfavor" layout has lost each time
begin
add 1 to record "progsuave" data index

if record "progsuave" data index > record "progsuave" data count
begin
display "Ha llegado a unas pérdidas aceptables para éste sistéma
cierre sesión, espere unas bolas e intentelo de nuevo"
Stop Session
end
end

add 1 to record "colfavor" layout index

if record "colfavor" layout index > record "colfavor" layout count
begin
put 1 on record "colfavor" layout index
end

put 100% of record "progsuave" data to record "colfavor" layout


End