Sistema Zechnas DoMaCo v

system "Zechnas-DoMaCo"
{
Elegimos Docenas y Columnas a jugar pudiendo elegir si terminar la sesión o no
hacerlo y entrar en progresión a la espera de que las docenas y columnas coinci-
dentes nos sean propicias a la vez.
Conviene cambiar a menudo de estratégia al elegir las apuestas e ir intercalando
si no vemos una tendencia clara de alguna Docena-Columna saliente.
}
method "main"
begin
while starting new session
begin
call "Eligiendo"
exit
end
call "Apostando"
call "Premio"
end

method "Apostando"
begin
if net > 0
begin
put 1 record"Estrategia"data index

end
if net < 0
begin
add 1 record"Estrategia"data index
put 1 ficha en number 0
end
if record"Estrategia"data index > record"Estrategia"data count
begin
put 1 record"Estrategia"data index
end
put 100% record"Estrategia"data record"Colocado"layout list

end

method "Eligiendo"
begin
group
begin
display "Zechnas - DoMaCo"

input dropdown "Elija docenas y columnas
1:=1st + 2nd + Col A+B
2:=1st + 2nd + Col A+C
3:=1st + 2nd + Col B+C

4:=2nd + 3rd + Col A+B
5:=2nd + 3rd + Col A+C
6:=2nd + 3rd + Col B+C

7:=3rd + 1st + Col A+B
8:=3rd + 1st + Col A+C
9:=3rd + 1st + Col B+C " record"Docol"data
end

if record"Docol"data = 1
begin
copy list [1st dozen, 2nd dozen, column A, Column B] record"Colocado"layout
end

if record"Docol"data = 2
begin
copy list [1st dozen, 2nd dozen, column A, Column C] record"Colocado"layout
end

if record"Docol"data = 3
begin
copy list [1st dozen, 2nd dozen, column B, Column C] record"Colocado"layout
end


if record"Docol"data = 4
begin
copy list [2nd dozen, 3rd dozen, Column A, Column B] record"Colocado"layout
end

if record"Docol"data = 5
begin
copy list [2nd dozen, 3rd dozen, Column A, Column C] record"Colocado"layout
end

if record"Docol"data = 6
begin
copy list [2nd dozen, 3rd dozen, Column B, Column C] record"Colocado"layout
end

if record"Docol"data = 7
begin
copy list [1st dozen, 3rd dozen, Column A, Column B] record"Colocado"layout
end

if record"Docol"data = 8
begin
copy list [1st dozen, 3rd dozen, Column A, Column C] record"Colocado"layout
end

if record"Docol"data = 9
begin
copy list [1st dozen, 3rd dozen, Column B, Column C] record"Colocado"layout
end

set list [1,2,3,6,8,10,12,24,48 ] record"Estrategia"data
put 1 record"Estrategia"data index
call "Apostando"
end

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



end
end
end