Ruleteros
Si quiere ver todo el contenido del foro registrese como usuario.

No tendrá publicidad y podrá intercambiar ideas y opiniones con usuarios con su misma inquietud.

Si no, solo podrá acceder a una visión limitada del contenido de estos foros.


If you want to see the entire contents of this forum you must register.

Don't have advertising will be able to exchange ideas and opinions with users with the same curiosity

If not registered, can access only a limited view of the contents of these forums.

Continuando la navegación, usted acepta la utilización de las cookies que los servicios de terceros puedan establecer. Mas información
Hora del foro
Aviso!! Announcement!!
Para ver el contenido del foro en su totalidad, debe estar registrado, sino tendra una version REDUCIDA del mismo.

To view the contents of the forum in its entirety, your must be registered, your not be registered will have a version thereof REDUCED.
Conectarse

Recuperar mi contraseña


[****Sistema Casi Infalible]

Ver el tema anterior Ver el tema siguiente Ir abajo

[****Sistema Casi Infalible]

Mensaje por jorditron el Jue Nov 08, 2012 11:43 am

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

jorditron
Bronce
Bronce

Cantidad de envíos : 40
Fecha de inscripción : 04/10/2012

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.