Sistema Zechnas La Teoría de Martin V1.0

system "Zechnas-El tercio de Matín v1.0"
{
Martín Sánchez de Yébenes siempre decía que cuando se controlan los 2/3 de algo
lo que había que hacer rápidamente es apoderarse del tercio restante puesto que
de pasar de controlador a controlado era solo cuestión de un esfuerzo 2 veces
menor del requerido para conquistar el todo en un primer momento, y que ya una
vez puestos en faena, era fácil provocar la situación propícia.
Algo de razón debía llevar y en honor a su principio se me ha ocurrido ésta
manera de ataque contra la Rueda que tan buenos resultados ha dado y dará.
Como la idea surgió en un viaje a Cazorla, recreo algunos de los pueblos por los
que pasamos y otros en los que vi sus indicaciones.


}
method "main"
begin
while starting a new session
begin
set list [2,1,2] on record "Almedinilla" data
copy list [1st dozen, 2nd dozen, Column A, Column B] on record "Baena" layout
put 1 on record "Almedinilla" data index
put 0 on record "Carcabuey" data
put 100 on record "Durcal" data
put 1 en record "Priego" data
put 1 en number 0
end


if record "Almedinilla" data index >=5
begin
put 2 on record "Almedinilla" data index
put 100% bankroll on record "Durcal" data
put 0 on record "Carcabuey" data

end

call "Estepa"
call "Fuente Grande"
call "Gaena"
end
//================================================================
method "Estepa"
begin

if flag "Higueral" true
begin
call "Fuente Grande"
end
else
begin
copy 1st dozen on record "Iznajar" layout
copy Column A on record "Iznajar" layout
if record "Iznajar" layout is found on record "Baena" layout
begin
clear record "Baena" layout
copy list [2nd dozen, 3rd dozen, number 0, Column B, Column C] on record "Baena" layout
set flag "Higueral" true
end
else
begin
copy list [1st dozen, 2nd dozen, number 0, Column A, Column C] on record "Baena" layout
set flag "Higueral" true
end
end
end




method "Fuente Grande"
begin

if record "Jodar" data > record "Durcal" data
begin
put 100% record "Jodar" data on record "Durcal" data
add 50 on record "Durcal" data
put 1 on record "Almedinilla" data index
put 1 on record "Carcabuey" data
set flag "Higueral" false
end

if record "Jodar" data < record "Durcal" data and any dozen bet won each time
begin
exit
//subtract 1 on record "Almedinilla" data index
end


if flag "Higueral" true and any dozen bet lost each time
begin
add 1 on record "Almedinilla" data index
end
end


method "Gaena"
begin
if flag "Higueral" true
begin
put 100% bankroll on record "Jodar" data
put 100% record "Almedinilla" data on record "Baena" layout list
put 100% record "Priego" data en record "Baena" layout list
end
End