Sistema Zechnas Repleno

system "Zechnas-Repleno"
{

SISTEMA: Zechnas-Repleno. (**)
PROPOSITO: Ganar en lo único de lo que la Ruleta no puede escapar : De las
repeticiones; En éste caso de los plenos.
OBJETIVO : Conseguir lo antes posible una repetición de un pleno.
PROGRESION: Suave, solo compensa los atrasos hasta 6 fichas en pleno.
VALORACION : (**)

}
method "main"
begin
while starting a new session
begin
call "a";
end

call "b";
call "c";
call "d";
end

method "a"
begin
set list [(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,
5,5,5,6,6,6,6,6) ] en record "e" data;
put 1 en record "e" data index;
end

method "b"
begin
if net > 0
begin
put 1 en record "e" data index;
call "premio"
end
if net < 0
begin
if record "e" data index >= record "e" data count
begin
put 1 en record "e" data index;
end

else
begin
add 1 en record "e" data index;

end
end
end

method "c"
begin
copy last number para record "ulti" layout;
copy neighbors de record "natu" layout para record "vecinos" layout
end

method "d"
begin
put 100% del record "e" data en record "ulti" layout;
end

method "premio"
begin
if net > 0
begin
if bankroll > record "acierto" data
begin
display
" Ya obtuvo ganancia.Termine sesión,
deje pasar unas bolas y comience de nuevo.
, _ ,
( o o )
/'` ' `'\
| ''''''' |
|\\'''//|
oo^oo........Zechnas."

end
end
end