Sistema Zechnas Líneas calentitas V2.0SC

system "Zechnas Lineas calentitas"
{
SISTEMA: Zechnas Líneas calentitas
PROPOSITO: En espera de las primeras bolas de estudio seleccionamos una de las
lineas que estadísticamente tienen más posibilidades.
OBJETIVO: Con ésta segunda versión solo se pretende ganar posibilidades frente
a la estadística. Se ganará menos, pero son mayores las probabilidades.
Se aconseja jugarla con fichas de más valor en caso de querer obtener más
bebeficio por sesión.
}
method "main"
begin
while Starting a new Session
begin
Call "Pregunta"
Set list [1,1,2,2,2,3,3,3,3,6,6,6,6,6,12,12,12,12,
12,12,24,24,24,24,48] record "Progresion media" data
copy list [Line(1-6),Line(4-9),Line(7-12),Line(10-15),
Line(13-18),Line(16-21),Line(19-24),Line(22-27),Line(25-30),
Line(28-33), Line(31-36),Line(1-0)] nel record "Lineas" layout
Set flag "Verifica" false
Put 1 record "Progresion media" data index

end
While on Each Spin
begin
track last line 12 del record "Cuenta lineas" layout
if record "Cuenta lineas" layout count <12
begin
exit
end
if flag "Verifica" true
begin
call "Resultado"
end
Call "Verifica"
if flag "Verifica" true
begin
put 100% record "Progresion media" data sobre record "Objetivo" layout
end
end
end
method "Verifica"
begin
if flag "Verifica" true
begin
return
end

// Iniciando variables de verificar.

clear record "Max" data
Clear record "Contador de lineas" data
Set list [0,0,0,0,0,0,0,0,0,0,0,0] record "Contador interno" data
Set flag "Verifica" false

//Inicializando control objetivo

put 1 record "Lineas" layout index

loop until record "Lineas" layout index > record "Lineas" layout count
begin
put 100% record "Lineas" layout index del record "Contador interno" data index
put 1 record "Cuenta lineas" layout index

loop until record "Cuenta lineas" layout index > record "Cuenta lineas" layout count
begin
if record "Lineas" layout = record "Cuenta lineas" layout
begin
add 1 record "Contador interno" data

end
if record "Contador interno" data > record "Max" data
begin
put 100% record "Contador interno" data del record "Max" data
end
add 1 record "Cuenta lineas" layout index
end
add 1 record "Lineas" layout index
end
put 1 record "Contador interno" data index

loop until record "Contador interno" data index > record "Contador interno" data count
begin
if record "Contador interno" data = record "Max" data
begin
add 1 record "Contador de lineas" data
put 100% record "Contador interno" data index del record "Lineas" layout index

copy record "Lineas" layout del record "Objetivo" layout
end
add 1 record "Contador interno" data index

end

// Condiciones de verificación para el sistéma

if record "Max" data <=2
and record "Contador de lineas" data =3
begin
Set flag "Verifica" true
end
end



method "Resultado"
begin
if Any line Bet won each
begin
set flag "Verifica" False
put 1 record "Progresion media" data index

end
else
begin
add 1 record "Progresion media" data index
if record "Progresion media" data index > record "Progresion media" data count
begin
set flag "Verifica" False
put 1 record "Progresion media" data index
end
end
//Control de Perdidas-Ganancias

if Bankroll >= record "Triunfo" data
or Bankroll <= record "Riesgo" data
begin
Stop Session
end
end
method "Pregunta"
begin
group
begin
display "Aconsejable entre +100 y -50 para sesiones medias"

input data "Objetivo de ganancia (ej: 50) " record "Triunfo" Data
input data "Máximo dispuesto a perder (ej: -30) " record "Riesgo" Data;


end
End