[****Sistema Casi Infalible]

System "Prueba del Casi infalible metodo"
{
Busquen el Metodo Casi infalible, esta en ingles. sino, les explico
By jordi
}
Method "main"
Begin
While Starting a New Session
Begin
Call "Initialize"
Call "Input"
End
While on Each Spin
Begin

//Contador de bola
add 1 to record "SpinCounter" data

//En la primera bola no se hace nada, solo copiar la chance q salio para el proximo giro
if record "SpinCounter" data = 1
begin
Copy Last Red-Black to record "penUltimo" layout
add 1 to record "penUltimo" layout index
Copy Last Even-Odd to record "penUltimo" layout
add 1 to record "penUltimo" layout index
Copy Last Low-High to record "penUltimo" layout
put 100% of record "Eleccion" data to record "penUltimo" layout index
end

//A partir de la segunda bola
if record "SpinCounter" data > 1
begin
put 0 to record "Ultimo" layout
put 0 to record "Contrario" layout

Call "Check for Chance"
Call "Check for Zero"

Call "Check for Series"
Call "Check for Group of Series"

Call "Primera Etapa"
Call "PrimerBanco"
Call "SegundoBanco"
Call "TercerBanco"
Call "Divide Bancos"

end
End
End

//Metodo para saber que chance acaba de salir
Method "Check for Chance"
Begin
// desde la segunda vuelta, ubica al penultimo como ultimo para la proxima
if record "SpinCounter" data > 2
begin
duplicate record "Ultimo" to record "penUltimo"
end
// encuentra al ultimo
put 1 to record "Ultimo" layout index
Copy Last Red-Black to record "Ultimo" layout
add 1 to record "Ultimo" layout index
Copy Last Even-Odd to record "Ultimo" layout
add 1 to record "Ultimo" layout index
Copy Last Low-High to record "Ultimo" layout

// encuentra al contrario del ultimo
put 1 to record "Contrario" layout index
put 1 to record "Ultimo" layout index

//Color
If record "Ultimo" layout = RED
begin
Copy BLACK to record "Contrario" layout
end
if record "Ultimo" layout = Black
begin
Copy Red to record "Contrario" Layout
end

add 1 to record "Ultimo" layout index
add 1 to record "Contrario" layout index

//Paridad
If record "Ultimo" layout = Even
begin
Copy Odd to record "Contrario" layout
end
if record "Ultimo" layout = Odd
begin
Copy Even to record "Contrario" Layout
end

add 1 to record "Ultimo" layout index
add 1 to record "Contrario" layout index

//MayorMenor
If record "Ultimo" layout = Low
begin
Copy High to record "Contrario" layout
end
if record "Ultimo" layout = High
begin
Copy Low to record "Contrario" Layout
end

put 100% of record "Eleccion" data to record "Ultimo" layout index
put 100% of record "Eleccion" data to record "Contrario" layout index

End

//Metodo para ver si salio un 0
Method "Check for Zero"
begin
Copy Last Number to record "UltimoNumero" layout
if record "UltimoNumero" layout = number 0
begin
Copy list [Number 0,Number 0,Number 0] to record "Ultimo" layout
end
end

//Busca q sucede con los grupos de series
Method "Check for Group of Series"
begin
if record "Ultimo" layout = record "penUltimo" layout and record "Ultimo" layout NOT= number 0
begin
if record "ContGrupos1" data > 0
begin
put 100% record "ContGrupos1" data to record "Grupos de 1" data index
add 1 to record "Grupos de 1" data
put 0 to record "ContGrupos1" data
end
if record "ContInsideSerie" data = 2
begin
set Flag "ApuestaBanco2Columna1" to true
set flag "ApuestaBanco1Columna3" to true
end
if record "ContInsideSerie" data =3
begin
set flag "ApuestaBanco3Columna1" to true
end
end
else
begin
if record "Ultimo" layout Not= number 0 and record "penUltimo" layout not= number 0
begin
if record "InsideTemp" data = 1
begin
add 1 to record "ContGrupos1" data
end
if record "ContGrupos1" data = 1
begin
set flag "ApuestaBanco1Columna1" true
end
if record "ContGrupos1" data = 2
begin
set flag "ApuestaBanco1Columna2" true
end
end
end
if record "Ultimo" layout = number 0
begin
if record "ContGrupos1" data > 0
begin
put 100% record "ContGrupos1" data to record "Grupos de 1" data index
add 1 to record "Grupos de 1" data
put 0 to record "ContGrupos1" data
end
end
end

//Busca Series
Method "Check for Series"
Begin
if record "Ultimo" layout = record "penUltimo" layout
begin
add 1 to record "ContInsideSerie" data
end
else
begin
put 100% of record "ContInsideSerie" data to record "ContTodasSeries" data index
add 1 to record "ContTodasSeries" data
put 100% of record "ContInsideSerie" data to record "InsideTemp" data
put 1 to record "ContInsideSerie" data
end
End

//Primera etapa de la apuesta
Method "Primera Etapa"
Begin

if record "ContInsideSerie" data = 2 and record "Cont1Etapa" data = 0
begin
add 100% record "ValorFicha" data to record "Contrario" layout
add 1 to record "Cont1Etapa" data
end
else
begin
if record "Cont1Etapa" data = 1
begin
if record "ContInsideSerie" data = 3 or record "UltimoNumero" layout = number 0
begin
put 1 to record "Bancos" data index
add 100% of record "ValorFicha" data to record "Bancos" data
if record "UltimoNumero" layout NOT= number 0
begin
put 100% record "ValorFicha" data to record "Contrario" layout
add 1 record "Cont1Etapa" data
end
else
begin
put 0 to record "Cont1Etapa" data
end
end
else
begin
add 100% of record "ValorFicha" data to record "Ganancias" data
put 0 to record "Cont1Etapa" data
end
end
else
begin
if record "Cont1Etapa" data = 2
begin
if record "ContInsideSerie" data = 4 or record "UltimoNumero" layout = number 0
begin
put 2 to record "Bancos" data index
add 100% of record "ValorFicha" data to record "Bancos" data
if record "UltimoNumero" layout NOT= number 0
begin
put 100% record "ValorFicha" data to record "Contrario" layout
add 1 record "Cont1Etapa" data
end
else
begin
put 0 to record "Cont1Etapa" data
end
end
else
begin
add 100% of record "ValorFicha" data to record "Ganancias" data
put 0 to record "Cont1Etapa" data
end
end
else
begin
if record "Cont1Etapa" data = 3
begin
if record "ContInsideSerie" data = 5 or record "UltimoNumero" layout = number 0
begin
put 3 to record "Bancos" data index
add 100% of record "ValorFicha" data to record "Bancos" data
if record "UltimoNumero" layout NOT= number 0
begin
put 0 to record "Cont1Etapa" data
set Flag "Inicio" to false
end
else
begin
put 0 to record "Cont1Etapa" data
end
end
else
begin
add 100% of record "ValorFicha" data to record "Ganancias" data
put 0 to record "Cont1Etapa" data
end
end
end
end
end
End

//RUTINA PARA DIVIDIR LOS BANCOS
Method "Divide Bancos"
Begin
put 1 to record "Bancos" data index
put 0 to record "Perdidas" data
loop until record "Bancos" data index >3
begin
add 100% of record "Bancos" data to record "Perdidas" data
add 1 to record "Bancos" data index
end
{if all flags are false
begin
if bankroll > record "50" data
begin
put 100% of bankroll to record "Ganancias" data
set list [0,0,0] to record "Bancos" data
put 100% of bankroll to record "50" data
add 1% Bankroll to record "50" data
Round Record "50" data
add 1% record "ValorFichaTemp" data to record "ValorFichaTemp" data
put 100% of record "ValorFichaTemp" data to record "ValorFicha" data
round record "ValorFicha" data
end
end}
{if All Flags are false
begin
put 1 to record "Bancos" data index
loop until record "Bancos" data index >3
begin
if record "Bancos" data > 100
begin
subtract 66 of record "Bancos" data
put 100% of record "Bancos" data index to record "IndexTemp" data
put 1 to record "Bancos" data index
loop until record "Bancos" data index >3
begin
if record "Bancos" data index Not= record "IndexTemp" data
begin
add 33 to record "Bancos" data
end
add 1 to record "Bancos" data index
end
put 100% of record "IndexTemp" data to record "Bancos" data index
end
add 1 to record "Bancos" data index
end
end}
if flag "ApuestaBanco1Columna1" is false and flag "ApuestaBanco1Columna2" is false and flag "ApuestaBanco1Columna3" is false and flag "GanoBanco1" is false and flag "GanoBanco1Col3" is false
begin
put 1 to record "Bancos" data index
put 100% record "Bancos" data to record "Deficit" data
Set list [0,0,0] to record "Banco1" data
put 1 to record "Banco1" data index
loop until record "Deficit" data =0
begin
loop until record "Banco1" data index >3 or record "Deficit" data =0
begin
add 100% of record "ValorFicha" data to record "Banco1" data
subtract 100% of record "ValorFicha" data to record "Deficit" data
add 1 to record "Banco1" data index
end
put 1 to record "Banco1" data index
end
end

if flag "ApuestaBanco2Columna1" is false and flag "ApuestaBanco2Columna2" is false and flag "GanoBanco2" is false
begin
put 2 to record "Bancos" data index
put 100% record "Bancos" data to record "Deficit" data
Set list [0,0] to record "Banco2" data
put 1 to record "Banco2" data index
loop until record "Deficit" data =0
begin
loop until record "Banco2" data index >2 or record "Deficit" data =0
begin
add 100% of record "ValorFicha" data to record "Banco2" data
subtract 100% of record "ValorFicha" data to record "Deficit" data
add 1 to record "Banco2" data index
end
put 1 to record "Banco2" data index
end
end

if flag "ApuestaBanco3Columna1" is false and flag "ApuestaBanco3Columna2" is false and flag "GanoBanco3" is false
begin
put 3 to record "Bancos" data index
put 100% record "Bancos" data to record "Deficit" data
Set list [0,0] to record "Banco3" data
put 1 to record "Banco3" data index
loop until record "Deficit" data =0
begin
loop until record "Banco3" data index >2 or record "Deficit" data =0
begin
add 100% of record "ValorFicha" data to record "Banco3" data
subtract 100% of record "ValorFicha" data to record "Deficit" data
add 1 to record "Banco3" data index
end
put 1 to record "Banco3" data index
end
end
End

//Apuestas del Banco numero 1
Method "PrimerBanco"
begin
if record "Ultimo" layout = record "penUltimo" layout or Record "UltimoNumero" layout = Number 0 or Record "penUltimo" layout = Number 0
begin
if flag "ApuestaBanco1Columna2" is true
begin
put 1 to record "Banco1" data index
put 1 to record "Bancos" data index
add 100% of record "Banco1" data to record "Bancos" data
set flag "ApuestaBanco1Columna2" to false
call "Divide Bancos"
end
if flag "GanoBanco1" is true
begin
put 2 to record "Banco1" data index
put 1 to record "Bancos" data index
add 100% of record "Banco1" data to record "Bancos" data
set flag "GanoBanco1" to false
call "Divide Bancos"
end
if flag "GanoBanco1Col3" is true
begin
put 3 to record "Banco1" data index
put 1 to record "Bancos" data index
add 100% of record "Banco1" data to record "Bancos" data
set flag "GanoBanco1Col3" to false
Call "Divide Bancos"
end
if flag "ApuestaBanco1Columna3" is true
begin
put 3 to record "Banco1" data index
add 100% of record "Banco1" data to record "Contrario" layout
set flag "ApuestaBanco1Columna3" to false
set flag "GanoBanco1Col3" to true
end
end
else
begin
if flag "GanoBanco1" is true
begin
put 2 to record "Banco1" data index
put 1 to record "Bancos" data index
subtract 100% of record "Banco1" data from record "Bancos" data
put 0 to record "Banco1" data
set Flag "GanoBanco1" to false
call "Divide Bancos"
end
if flag "ApuestaBanco1Columna2" is true
begin
put 1 to record "Banco1" data index
put 1 to record "Bancos" data index
subtract 100% of record "Banco1" data from record "Bancos" data
put 0 to record "Banco1" data
put 2 to record "Banco1" data index
add 100% of record "Banco1" data to record "Contrario" layout
set flag "ApuestaBanco1Columna2" to false
set flag "GanoBanco1" to true
end
if flag "ApuestaBanco1Columna1" is true
begin
put 1 to record "Banco1" data index
add 100% record "Banco1" data to record "Contrario" layout
set flag "ApuestaBanco1Columna2" to true
set flag "ApuestaBanco1Columna1" to false
end
if flag "GanoBanco1Col3" is true
begin
put 3 to record "Banco1" data index
put 1 to record "Bancos" data index
set flag "GanoBanco1Col3" to false
subtract 100% of record "Banco1" data from record "Bancos" data
put 0 to record "Banco1" data
Call "Divide Bancos"
end
end
end

//rutina para Segunda Caja
Method "SegundoBanco"
begin
if record "Ultimo" layout = record "penUltimo" layout or record "UltimoNumero" layout = number 0
begin
if flag "GanoBanco2" is true
begin
put 2 to record "Banco2" data index
put 2 to record "Bancos" data index
add 100% of record "Banco2" data to record "Bancos" data
set flag "GanoBanco2" to false
call "Divide Bancos"
end
end
if record "Ultimo" layout = record "penUltimo" layout
begin
if flag "ApuestaBanco2Columna2" is true
begin
put 1 to record "Banco2" data index
put 2 to record "Bancos" data index
subtract 100% of record "Banco2" data from record "Bancos" data
put 0 to record "Banco2" data
put 2 to record "Banco2" data index
add 100% of record "Banco2" data to record "Contrario" layout
set flag "ApuestaBanco2Columna2" to false
set flag "GanoBanco2" to true
end
if flag "ApuestaBanco2Columna1" is true
begin
put 1 to record "Banco2" data index
add 100% record "Banco2" data to record "Ultimo" layout
set flag "ApuestaBanco2Columna1" to false
set flag "ApuestaBanco2Columna2" to true
end
end
if record "Ultimo" layout Not = record "penUltimo" layout
begin
if flag "ApuestaBanco2Columna2" is true
begin
put 1 to record "Banco2" data index
put 2 to record "Bancos" data index
add 100% of record "Banco2" data to record "Bancos" data
set flag "ApuestaBanco2Columna2" to false
call "Divide Bancos"
end
if flag "GanoBanco2" is true
begin
put 2 to record "Banco2" data index
put 2 to record "Bancos" data index
subtract 100% of record "Banco2" data from record "Bancos" data
put 0 to record "Banco2" data
set Flag "GanoBanco2" is false
end
end
end

//rutina para Tercera Caja
Method "TercerBanco"
begin
if record "Ultimo" layout = record "penUltimo" layout or record "UltimoNumero" layout = number 0
begin
if flag "GanoBanco3" is true
begin
put 2 to record "Banco3" data index
put 3 to record "Bancos" data index
add 100% of record "Banco3" data to record "Bancos" data
set flag "GanoBanco3" to false
call "Divide Bancos"
end
end
if record "Ultimo" layout = record "penUltimo" layout
begin
if flag "ApuestaBanco3Columna2" is true
begin
put 1 to record "Banco3" data index
put 3 to record "Bancos" data index
subtract 100% of record "Banco3" data from record "Bancos" data
put 0 to record "Banco3" data
put 2 to record "Banco3" data index
add 100% of record "Banco3" data to record "Contrario" layout
set flag "ApuestaBanco3Columna2" to false
set flag "GanoBanco3" to true
end
if flag "ApuestaBanco3Columna1" is true
begin
put 1 to record "Banco3" data index
add 100% record "Banco3" data to record "Ultimo" layout
set flag "ApuestaBanco3Columna1" to false
set flag "ApuestaBanco3Columna2" to true
end
end
if record "Ultimo" layout Not = record "penUltimo" layout
begin
if flag "ApuestaBanco3Columna2" is true
begin
put 1 to record "Banco3" data index
put 3 to record "Bancos" data index
add 100% of record "Banco3" data to record "Bancos" data
set flag "ApuestaBanco3Columna2" to false
call "Divide Bancos"
end
if flag "GanoBanco3" is true
begin
put 2 to record "Banco3" data index
put 3 to record "Bancos" data index
subtract 100% of record "Banco3" data from record "Bancos" data
put 0 to record "Banco3" data
set Flag "GanoBanco2" is false
end
end
end

//RUTINA DE INICIOS DE DATOS PARA EL PROGRAMA
Method "Initialize"
Begin
set flag "ApuestaBanco1Columna1" to false
set flag "ApuestaBanco1Columna2" to false
set flag "ApuestaBanco2Columna1" to false
set flag "ApuestaBanco2Columna2" to false
set flag "ApuestaBanco1Columna3" to false
set flag "ApuestaBanco3Columna1" to false
set flag "ApuestaBanco3Columna2" to false
set Flag "GanoBanco1" to false
set flag "GanoBanco2" to false
set flag "GanoBanco3" to false
set flag "GanoBanco1Col3" to false

put 0 to record "SpinCounter" data
put 1 to record "ContInsideSerie" data
put 0 to record "Cont1Etapa" data
Set list [0,0,0] to record "ContTodasSeries" data
put 0 to record "ContGrupos1" data
Set list [0,0,0] to record "Grupos de 1" data
Set list [0,0,0] to record "Bancos" data
put 1 to record "Bancos" data index
Set list [0,0,0] to record "Banco1" data
Set list [0,0] to record "Banco2" data
Set list [0,0] to record "Banco3" data
Copy list [Number 0,Number 0, Number 0]to record "Zero" layout

End
//Rutina de Inicio de DATOS POR EL USUARIO
Method "Input"
Begin
Group
begin
Input Dropdown "Elegi La chance
1:=Rojo/Negro
2:=Par/Impar
3:=Menor Mayor" to record "Eleccion" data;

Input Data "Caja:" to Bankroll
Input Data "Tu Ficha:" to record "ValorFicha" data
//Input Data "LimiteSuperior" to record "LimiteSuperior" data
end
if record "Eleccion" data = 1
begin
Copy list [Red,Black] to record "Chance" layout
end
else
begin
if record "Eleccion" data = 2
begin
Copy list [Even,Odd] to record "Chance" layout
end
else
begin
if record "Eleccion" data = 3
begin
Copy list [Low,High] to record "Chance" layout
end
end
end
Duplicate record "LimiteSuperior" to record "50"
duplicate record "ValorFicha" to record "ValorFichaTemp"
put 100% bankroll to record "50" data
add 1% bankroll to record "50" data
round record "50" data
End