Sistema Los 4 ASES-SINOS de Alcatraco

system "los 4 asesinos"
{
comment information goes here
}
method "main"
begin
while starting a new session
begin
Call "Initialize"
Call "Input"
end
while each spin
begin
Call "AnotarNumero"
Call "Apostar"
end
end

Method "AnotarNumero"
begin
set max to record "Numeros" layout index
put 100% of record "Numeros" layout index to record "LayoutIndex" data
if record "Numeros" layout index = record "Maximo" data
begin
clear record "Numeros" layout
end
add 1 to record "Numeros" Layout index
copy last number to record "Numeros" layout
put 1 to record "Numeros" layout index
loop until record "Numeros" layout index > record "LayoutIndex" data
begin
if record "Numeros" layout has won each
begin
set flag "Reseteado" to true
end
add 1 to record "Numeros" layout index
end
if flag "Reseteado" is true
begin
clear record "Numeros" layout
set flag "Reseteado" to false
put 0 to record "Progresion" data index
end
end

Method "Apostar"
begin
if flag "Progre" is true
begin
add 1 to record "Progresion" data index
if record "Progresion" data index > 24
begin
put 1 to record "Progresion" data index
end
multiply 100% of record "Progresion" data to record "FichaTemp" data
put 100% of record "FichaTemp" data to record "Numeros" layout list
put 100% of record "Ficha" data to record "FichaTemp" data
end
else
begin
put 100% of record "FichaTemp" data to record "Numeros" layout list
end
end

Method "Initialize"
begin
set list [1,1,1,1,1,1,1,2,2,3,4,6,10,16,27,49,93,186,394,887,2129,5475,15160,45480] to record "Progresion" data

end

Method "Input"
begin
Group
begin
Input Data "Caja" to Bankroll
Input Data "Ficha" to record "Ficha" data
Input Data "Cantidad de Numeros maxima" to record "Maximo" data
Input CheckBox "Progresion" to flag "Progre"
end
put 100% of record "Ficha" data to record "FichaTemp" data
end