[Sistema Jorditron 2.5] Atrasos

system "Jorditron 2.5"
{
Ampliacion de la Segunda Intento

-ya no es compacto, pero estructural
-analiza, a eleccion del jugador, el atraso de:
Color
Paridad
Mayor o menor
Docenas
Columnas
Calles
Lineas
Cuadros
Semiplenos o caballos
plenos
repeticiones
sectores
Numeros unidos o sueltos del mismo color en el paño (nose como explicarlo, pero sirve para el contradragon)
Triadas (es simplemente una division intercalada en 3 de la rueda.. no importa la zona de la rueda donde caiga la bola, siempre hay una chance en 3 de que te toque tu triada)

-Segun fui probando y probando en base a permanencias de 10000 giros (el random del programa) ajuste los comienzos y terminos de las progresiones

-Cada uno de estos sigue su propia progresion, con la forma de la MARTINGALA, (si ya se, es la raiz de todos mis problemas)
e independiente de otras apuestas y progresiones
NOTA: Digo Martingala porq tienen la misma estructura, aumentar una ficha (o mas) cuando la ficha actual no saca ganancias netas en un solo tiro ganador.

-Los Plenos constan de un paracaidas, q me parece q no funciona como me gustaria q lo hiciese

-Cada progresion comienza luego de determinado atraso (me fije en mis permanencias y en las estadisticas que me da el programa)
y termina luego de una cantidad de perdidas impuestas por el jugador

-Mientras menos caja se tenga, mayor es el atraso que debe tener para comenzar la apuesta

promesas de la anterior
-un analisis de Bankroll, (plata inicial) // no lo hice
-prevencion ante catastrofes // vos elegis cuanto podes perder o ganar
-analizara Zonas de la rueda // Ya analiza Sectores...
-Analizara lo que llamo Triada.. pueden consultarme al respecto //Lo hice, no es la gran cosa
-Atraso a la Repeticion inmediata
-Se juega por la triple repeticion

para la proxima
-analisis sobre las series de 1, tablas de frecuencias, en base a estas, decidir sobre que atraso comenzar la progresion
-Contradragon
se esta poniendo pesado... demasiadas lineas

Por favor haganme saber los problemas y ayuden con mejoras
Ojala pueda servirles
}
method "main"
begin
While Starting a New Session
begin
Input Data "Ingresa tu caja" to Bankroll;
call "Initialize"
call "Input"
end
While on Each Spin
begin
// Analiza Caja segun Limites inferiores y superiores. Y decide Reseteo
if Flag "FlagReset" is true
begin
if Bankroll > record "BankrollUp" data
begin
//display "Ganaste. Puedes comenzar de nuevo"
add 1 to record "PartidasGanadas" data
call "Reset"
end
if Bankroll < record "BankrollDown" data
begin
//display "Perdiste. Puedes comenzar de nuevo"
subtract 1 to record "PartidasGanadas" data
call "Reset"
end
end

//Limpio todas las apuestas debido a q uso el comando ADD al aniadir fichas, y si no limpio las agrega al monto anterior. No quiero eso.
call "Limpiar Panio"
//Realiza cada busqueda de acuerdo a lo que el jugador desea jugar. ver mas abajo el metodo para comprender mejor
call "Banderas"


end
end

//Limpio todas las apuestas debido a q uso el comando ADD al aniadir fichas, y si no limpio las agrega. No quiero eso.
Method "Limpiar Panio"
begin
put 1 to record "TodosPlenos" layout index
loop until record "TodosPlenos" layout index > 37
begin
put 0 to record "TodosPlenos" layout
add 1 to record "TodosPlenos" layout index
end
put 1 to record "TodosCabllos" layout index
loop until record "TodosCaballos" layout index > 60
begin
put 0 to record "TodosCaballos" layout
add 1 to record "TodosCaballos" layout index
end
put 1 to record "TodasCalles" layout index
loop until record "TodasCalles" layout index > 12
begin
put 0 to record "TodasCalles" layout
add 1 to record "TodasCalles" layout index
end
put 1 to record "TodasCLineas" layout index
loop until record "TodasCLineas" layout index > 11
begin
put 0 to record "TodasCLineas" layout
add 1 to record "TodasCLineas" layout index
end
put 1 to record "TodosColores" layout index
loop until record "TodosColores" layout index > 2
begin
put 0 to record "TodTodosColores" layout
add 1 to record "TodosColores" layout index
end
put 1 to record "TodosPares" layout index
loop until record "TodosPares" layout index > 2
begin
put 0 to record "TodosPares" layout
add 1 to record "TodosPares" layout index
end
put 1 to record "TodosMayores" layout index
loop until record "TodosMayores" layout index > 2
begin
put 0 to record "TodosMayores" layout
add 1 to record "TodosMayores" layout index
end
put 1 to record "TodosCuadros" layout index
loop until record "TodosCuadros" layout index > 22
begin
put 0 to record "TodosCuadros" layout
add 1 to record "TodosCuadros" layout index
end
put 1 to record "TodasDocenas" layout index
loop until record "TodasDocenas" layout index > 3
begin
put 0 to record "TodasDocenas" layout
add 1 to record "TodasDocenas" layout index
end
put 1 to record "TodasColumnas" layout index
loop until record "TodasColumnas" layout index > 3
begin
put 0 to record "TodasColumnas" layout
add 1 to record "TodasColumnas" layout index
end

end

//Realiza cada busqueda de acuerdo a lo que el jugador desea jugar
Method "Banderas"
begin
if Flag "FlagColor" is true
begin
call "buscar Color"
end
if Flag "FlagParidad" is true
begin
call "buscar Paridad"
end
if Flag "FlagMayor" is true
begin
call "buscar MayorMenor"
end
if Flag "FlagDocena" is true
begin
call "buscar Docena"
end
if Flag "FlagColumna" is true
begin
call "buscar Columna"
end
if Flag "FlagLinea" is true
begin
call "buscar Linea"
end
if Flag "FlagCuadro" is true
begin
call "buscar Cuadro"
end
if Flag "FlagCalle" is true
begin
call "buscar calle"
end
if Flag "FlagCaballo" is true
begin
call "buscar Caballo"
end
if Flag "FlagPleno" is true
begin
call "buscar Pleno"
end
if Flag "FlagTriada" is true
begin
call "buscar Triada"
end
if Flag "FlagRepeticion" is true
begin
call "buscar Repeticion"
end
if Flag "FlagSector" is true
begin
call "buscar Sector"
end
if Flag "FlagBiased" is true
begin
call "Biased"
end
if Flag "FlagSueltos" is true
begin
call "Sueltos"
call "Unidos"
end

end

Method "Biased"
begin
put 1 to record "TodosPlenos" layout index
loop until record "TodosPlenos" layout index > 37
begin
if record "TodosPlenos" layout index = record "Biased1" data
begin
Copy record "TodosPlenos" layout to record "Biased1Layout" layout
end
if record "TodosPlenos" layout index = record "Biased2" data
begin
Copy record "TodosPlenos" layout to record "Biased2Layout" layout
end
add 1 to record "TodosPlenos" layout index
end
if record "Biased1Layout" layout has not hit each
begin
multiply 100% record "ProgBiased1" data to record "FichaTemp" data
add 100% of record "FichaTemp" data to record "Biased1Layout" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ProgBiased1" data index
end
else
begin
put 1 to record "ProgBiased1" data index
end
if record "Biased2Layout" layout has not hit each
begin
put 1 to record "ProgBiased2" data index
multiply 100% record "ProgBiased2" data to record "FichaTemp" data
add 100% of record "FichaTemp" data to record "Biased2Layout" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ProgBiased2" data index
end
else
begin
put 1 to record "ProgBiased2" data index
end
end

method "buscar calle"
begin
put 1 to record "TodasCalles" layout index
put 1 to record "ContCalles" data index
loop until record "TodasCalles" layout index >12
begin
if record "TodasCalles" layout has not hit more 47
begin
if record "TodasCalles" layout has not hit more 200
begin
end
else
begin
put 100% record "TodasCalles" layout index to record "ContCalles" data index
put 100% record "ContCalles" data to record "ProgCalle" data index;
multiply 100% record "ProgCalle" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodasCalles" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContCalles" data;
end
end
add 1 to record "TodasCalles" layout index
end
put 1 to record "TodasCalles" layout index
loop until record "TodasCalles" layout index >12
begin
if record "TodasCalles" layout has hit 1
begin
put 100% record "TodasCalles" layout index to record "ContCalles" data index
put 1 to record "ContCalles" data;
end
add 1 to record "TodasCalles" layout index;
end
end

method "buscar Color"
begin
put 1 to record "TodosColores" layout index
put 1 to record "ContColor" data index
loop until record "TodosColores" layout index >2
begin
if record "TodosColores" layout has not hit more 7
begin
if record "TodosColores" layout has not hit more 50
begin
end
else
begin
put 100% record "TodosColores" layout index to record "ContColor" data index
put 100% record "ContColor" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 1800% de record "FichaTemp" data to record "TodosColores" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContColor" data;
end
end
add 1 to record "TodosColores" layout index
end
put 1 to record "TodosColores" layout index
loop until record "TodosColores" layout index >2
begin
if record "TodosColores" layout has hit each
begin
put 100% record "TodosColores" layout index to record "ContColor" data index
put 1 to record "ContColor" data;
end
add 1 to record "TodosColores" layout index;
end
end

method "buscar Paridad"
begin
put 1 to record "TodosPares" layout index
put 1 to record "ContParidad" data index
loop until record "TodosPares" layout index >2
begin
if record "TodosPares" layout has not hit more 7
begin
if record "TodosPares" layout has not hit more 50
begin
end
else
begin
put 100% record "TodosPares" layout index to record "ContParidad" data index
put 100% record "ContParidad" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 1800% de record "FichaTemp" data to record "TodosPares" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContParidad" data;
end
end
add 1 to record "TodosPares" layout index
end
put 1 to record "TodosPares" layout index
loop until record "TodosPares" layout index >2
begin
if record "TodosPares" layout has hit each
begin
put 100% record "TodosPares" layout index to record "ContParidad" data index
put 1 to record "ContParidad" data;
end
add 1 to record "TodosPares" layout index;
end
end

method "buscar MayorMenor"
begin
put 1 to record "TodosMayores" layout index
put 1 to record "ContMayor" data index
loop until record "TodosMayores" layout index >2
begin
if record "TodosMayores" layout has not hit more 7
begin
if record "TodosMayores" layout has not hit more 50
begin
end
else
begin
put 100% record "TodosMayores" layout index to record "ContMayor" data index
put 100% record "ContMayor" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 600% de record "FichaTemp" data to record "TodosMayores" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContMayor" data;
end
end
add 1 to record "TodosMayores" layout index
end
put 1 to record "TodosMayores" layout index
loop until record "TodosMayores" layout index >2
begin
if record "TodosMayores" layout has hit each
begin
put 100% record "TodosMayores" layout index to record "ContMayor" data index
put 1 to record "ContMayor" data;
end
add 1 to record "TodosMayores" layout index;
end
end

method "buscar Docena"
begin
put 1 to record "TodasDocenas" layout index
put 1 to record "ContDocena" data index
loop until record "TodasDocenas" layout index >3
begin
if record "TodasDocenas" layout has not hit more 11
begin
if record "TodasDocenas" layout has not hit more 50
begin
end
else
begin
put 100% record "TodasDocenas" layout index to record "ContDocena" data index
put 100% record "ContDocena" data to record "ProgDocCol" data index;
multiply 100% record "ProgDocCol" data to record "FichaTemp" data
add 400% de record "FichaTemp" data to record "TodasDocenas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContDocena" data;
end
end
add 1 to record "TodasDocenas" layout index
end
put 1 to record "TodasDocenas" layout index
loop until record "TodasDocenas" layout index >3
begin
if record "TodasDocenas" layout has hit each
begin
put 100% record "TodasDocenas" layout index to record "ContDocena" data index
put 1 to record "ContDocena" data;
end
add 1 to record "TodasDocenas" layout index;
end
end

method "buscar Columna"
begin
put 1 to record "TodasColumnas" layout index
put 1 to record "ContColumna" data index
loop until record "TodasColumnas" layout index >3
begin
if record "TodasColumnas" layout has not hit more 11
begin
if record "TodasColumnas" layout has not hit more 50
begin
end
else
begin
put 100% record "TodasColumnas" layout index to record "ContColumna" data index
put 100% record "ContColumna" data to record "ProgDocCol" data index;
multiply 100% record "ProgDocCol" data to record "FichaTemp" data
add 600% de record "FichaTemp" data to record "TodasColumnas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContColumna" data;
end
end
add 1 to record "TodasColumnas" layout index
end
put 1 to record "TodasColumnas" layout index
loop until record "TodasColumnas" layout index >3
begin
if record "TodasColumnas" layout has hit each
begin
put 100% record "TodasColumnas" layout index to record "ContColumna" data index
put 1 to record "ContColumna" data;
end
add 1 to record "TodasColumnas" layout index;
end
end

method "buscar Linea"
begin
put 1 to record "TodasLineas" layout index
put 1 to record "ContLinea" data index
loop until record "TodasLineas" layout index >11
begin
if record "TodasLineas" layout has not hit more 23
begin
if record "TodasLineas" layout has not hit more 100
begin
end
else
begin
put 100% record "TodasLineas" layout index to record "ContLinea" data index
put 100% record "ContLinea" data to record "ProgLinea" data index;
multiply 100% record "ProgLinea" data to record "FichaTemp" data
add 200% de record "FichaTemp" data to record "TodasLineas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContLinea" data;
end
end
add 1 to record "TodasLineas" layout index
end
put 1 to record "TodasLineas" layout index
loop until record "TodasLineas" layout index >11
begin
if record "TodasLineas" layout has hit each
begin
put 100% record "TodasLineas" layout index to record "ContLinea" data index
put 1 to record "ContLinea" data;
end
add 1 to record "TodasLineas" layout index;
end
end

method "buscar Cuadro"
begin
put 1 to record "TodosCuadros" layout index
put 1 to record "ContCuadro" data index
loop until record "TodosCuadros" layout index >22
begin
if record "TodosCuadros" layout has not hit more 35
begin
if record "TodosCuadros" layout has not hit more 200
begin
end
else
begin
put 100% record "TodosCuadros" layout index to record "ContCuadro" data index
put 100% record "ContCuadro" data to record "ProgCuadro" data index;
multiply 100% record "ProgCuadro" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosCuadros" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContCuadro" data;
end
end
add 1 to record "TodosCuadros" layout index
end
put 1 to record "TodosCuadros" layout index
loop until record "TodosCuadros" layout index >22
begin
if record "TodosCuadros" layout has hit each
begin
put 100% record "TodosCuadros" layout index to record "ContCuadro" data index
put 1 to record "ContCuadro" data;
end
add 1 to record "TodosCuadros" layout index;
end
end

method "buscar Caballo"
begin
put 1 to record "TodosCaballos" layout index
put 1 to record "ContCaballo" data index
loop until record "TodosCaballos" layout index >60
begin
if record "TodosCaballos" layout has not hit more 100
begin
if record "TodosCaballos" layout has not hit more 250
begin
end
else
begin
put 100% record "TodosCaballos" layout index to record "ContCaballo" data index
put 100% record "ContCaballo" data to record "ProgCaballo" data index;
multiply 100% record "ProgCaballo" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosCaballos" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContCaballo" data;
end
end
add 1 to record "TodosCaballos" layout index
end
put 1 to record "TodosCaballos" layout index
loop until record "TodosCaballos" layout index >60
begin
if record "TodosCaballos" layout has hit each
begin
put 100% record "TodosCaballos" layout index to record "ContCaballo" data index
put 1 to record "ContCaballo" data;
end
add 1 to record "TodosCaballos" layout index;
end
end

method "buscar Pleno"
begin
loop until record "TodosPlenos" layout index >37
begin
put 100% of record "TodosPlenos" layout index record "ContParacaidas" data index
if record "TodosPlenos" layout has hit each
begin
put 100% record "TodosPlenos" layout index to record "ContPleno" data index
put 1 to record "ContPleno" data;
end
//Paracaidas.. Si gana
if record "ContParacaidas" data <3 and record "ContParacaidas" data not = 0
begin
put 100% of record "TodosPlenos" layout index to record "NearestLineaIndex" data index
put 100% of record "NearestLineaIndex" data to record "TodasLineas" layout index
if record "TodasLineas" layout has hit each
begin
if record "ContParacaidas" data = 2
begin
subtract 10 to record "ContPleno" data
end
if record "ContParacaidas" data = 3
begin
subtract 8 to record "ContPleno" data
end
if record "ContPleno" data < 0
begin
put 1 to record "ContPleno" data
end
put 1 to record "ContParacaidas" data
end
end
if record "ContParacaidas" data >2 and record "ContParacaidas" data <7
begin
put 100% record "TodosPlenos" layout index to record "NearestCuadroIndex" data index
put 100% record "NearestCuadroIndex" data to record "TodosCuadros" layout index
if record "TodosCuadros" layout has hit each
begin
if record "ContParacaidas" data = 4
begin
subtract 4 to record "ContPleno" data
end
if record "ContParacaidas" data = 5
begin
subtract 3 to record "ContPleno" data
end
if record "ContParacaidas" data = 6
begin
subtract 2 to record "ContPleno" data
end
if record "ContParacaidas" data = 7
begin
subtract 1 to record "ContPleno" data
end
if record "ContPleno" data < 0
begin
put 1 to record "ContPleno" data
end
put 1 to record "ContParacaidas" data
end
end
if record "ContParacaidas" data > 6 and record "ContParacaidas" data <9
begin
put 100% record "TodosPlenos" layout index to record "NearestCalleIndex" data index
put 100% record "NearestCalleIndex" data to record "TodasCalles" layout index
if record "TodasCalles" layout has hit each
begin
if record "ContParacaidas" data = 8
begin
subtract 2 to record "ContPleno" data
end
if record "ContParacaidas" data = 9
begin
subtract 1 to record "ContPleno" data
end
if record "ContPleno" data < 0
begin
put 1 to record "ContPleno" data
end
put 1 to record "ContParacaidas" data
end
end
if record "ContParacaidas" data > 8 and record "ContParacaidas" data <15
begin
put 100% record "TodosPlenos" layout index to record "NearestCaballoIndex" data index
put 100% record "NearestCaballoIndex" data to record "TodosCaballos" layout index
if record "TodosCaballos" layout has hit each
begin
if record "ContParacaidas" data = 10
begin
subtract 6 to record "ContPleno" data
end
if record "ContParacaidas" data = 11
begin
subtract 5 to record "ContPleno" data
end
if record "ContParacaidas" data = 12
begin
subtract 4 to record "ContPleno" data
end
if record "ContParacaidas" data = 13
begin
subtract 3 to record "ContPleno" data
end
if record "ContParacaidas" data = 14
begin
subtract 2 to record "ContPleno" data
end
if record "ContParacaidas" data = 15
begin
subtract 1 to record "ContPleno" data
end
if record "ContPleno" data < 0
begin
put 1 to record "ContPleno" data
end
put 1 to record "ContParacaidas" data
end
end
add 1 to record "TodosPlenos" layout index;
end
put 1 to record "TodosPlenos" layout index
put 1 to record "ContPleno" data index
put 1 to record "ContParacaidas" data index
loop until record "TodosPlenos" layout index >37
begin
if record "TodosPlenos" layout has not hit more 130
begin

if record "TodosPlenos" layout has not hit more 450
begin
end
else
begin
put 100% record "TodosPlenos" layout index to record "ContPleno" data index
put 100% record "ContPleno" data to record "ProgPleno" data index;
multiply 100% record "ProgPleno" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosPlenos" layout
put 100% record "Ficha" data to record "FichaTemp" data
//Paracaidas
put 100% record "TodosPlenos" layout index to record "ContParacaidas" data index
if record "TodosPlenos" layout has not hit 131 and record "TodosPlenos" layout Not= number 0
begin
put 1 to record "ContParacaidas" data
end

if record "ContParacaidas" data > 0 and record "TodosPlenos" layout index Not= 37
begin
if record "ContParacaidas" data < 3
begin
put 100% record "TodosPlenos" layout index to record "NearestLineaIndex" data index
put 100% record "NearestLineaIndex" data to record "TodasLineas" layout index
add 200% of record "Ficha" data on record "TodasLineas" layout
add 1 to record "ContParacaidas" data
end
else
begin
if record "ContParacaidas" data > 2 and record "ContParacaidas" data < 7
begin
put 100% record "TodosPlenos" layout index to record "NearestCuadroIndex" data index
put 100% record "NearestCuadroIndex" data to record "TodosCuadros" layout index
add 100% of record "Ficha" data on record "TodosCuadros" layout
add 1 to record "ContParacaidas" data
end
else
begin
if record "ContParacaidas" data >6 and record "ContParacaidas" data <9
begin
put 100% record "TodosPlenos" layout index to record "NearestCalleIndex" data index
put 100% record "NearestCalleIndex" data to record "TodasCalles" layout index
add 100% of record "Ficha" data on record "TodasCalles" layout
add 1 to record "ContParacaidas" data
end
else
begin
if record "ContParacaidas" data > 8 and record "ContParacaidas" data <15
begin
put 100% record "TodosPlenos" layout index to record "NearestCaballoIndex" data index
put 100% record "NearestCaballoIndex" data to record "TodosCaballos" layout index
add 100% of record "Ficha" data on record "TodosCaballos" layout
add 1 to record "ContParacaidas" data
end
end
else
begin
if record "ContParacaidas" data >14
begin
loop until record "ContEspecial" data >15
begin
put 100% of record "ContPleno" data to record "tempEspecial" data
add 100% of record "tempEspecial" data to record "ProgPleno" data index
add 100% of record "ProgPleno" data to record "ContEspecial" data
add 1 to record "tempEspecial" data
end
put 100% of record "tempEspecial" data to record "ContPleno" data
put 0 to record "ContParacaidas" data
end
end
end
end
end
add 1 to record "ContPleno" data;
end
end
add 1 to record "TodosPlenos" layout index
end
put 1 to record "TodosPlenos" layout index
end

method "buscar Triada"
begin
call "TriA"
call "TriB"
call "TriC"
end

method "TriA"
begin
if record "Triada A" layout list NOT hit each
begin
add 1 to record "ContTriadaA" data
if record "ContTriadaA" data > record "MaxTriadaA" data
begin
put 100% of record "ContTriadaA" data to record "MaxTriadaA" data
end
if record "Triada A" layout list not hit more 11
begin
if record "Triada A" layout has not hit more 50
begin
end
else
begin
multiply 100% record "tempA" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada A" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempA"data index
end
end
end
else
begin
put 0 to record "ContTriadaA" data
put 1 to record "tempA"data index
end
end

method "TriB"
begin
if record "Triada B" layout list NOT hit each
begin
add 1 to record "ContTriadaB" data
if record "ContTriadaB" data > record "MaxTriadaB" data
begin
put 100% of record "ContTriadaB" data to record "MaxTriadaB" data
end
if record "Triada B" layout list not hit more 11
begin
if record "Triada B" layout has not hit more 50
begin
end
else
begin
multiply 100% record "tempB" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada B" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempB"data index
end
end
end
else
begin
put 0 to record "ContTriadaB" data
put 1 to record "tempB"data index
end
end

method "TriC"
begin
if record "Triada C" layout list NOT hit each
begin
add 1 to record "ContTriadaC" data
if record "ContTriadaC" data > record "MaxTriadaC" data
begin
put 100% of record "ContTriadaC" data to record "MaxTriadaC" data
end
if record "Triada C" layout list not hit more 11
begin
if record "Triada C" layout has not hit more 50
begin
end
else
begin
multiply 100% record "tempC" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada C" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempC"data index
end
end
end
else
begin
put 0 to record "ContTriadaC" data
put 1 to record "tempC"data index
end
end

Method "Nearest"
begin
put 1 to record "TodosPlenos" data index
loop until record "TodosPlenos" data index > 36
begin
//Linea
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestLineaIndex" data index
loop until record "NearestIndexTemp" data < 3
begin
subtract 3 to record "NearestIndexTemp" data
add 1 to record "NearestLineaIndex" data
end
if record "NearestIndexTemp" data > 0
begin
add 1 to record "NearestLineaIndex" data
end
if record "NearestLineaIndex" data = 12
begin
put 11 to record "NearestLineaIndex" data
end
//Calles
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCalleIndex" data index
loop until record "NearestIndexTemp" data < 3
begin
subtract 3 to record "NearestIndexTemp" data
add 1 to record "NearestCalleIndex" data
end
if record "NearestIndexTemp" data > 0
begin
add 1 to record "NearestCalleIndex" data
end
//Cuadros
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCuadroIndex" data index
loop until record "NearestIndexTemp" data < 3
begin
subtract 3 to record "NearestIndexTemp" data
add 2 to record "NearestCuadroIndex" data
end
if record "NearestCuadroIndex" data = 22 and record "NearestIndexTemp" data >0
begin
subtract 2 to record "NearestCuadroIndex" data
end
if record "NearestIndexTemp" data = 1
begin
add 1 to record "NearestCuadroIndex" data
end
if record "NearestIndexTemp" data = 2
begin
add 2 to record "NearestCuadroIndex" data
end
if record "NearestCuadroIndex" data =24
begin
put 22 to record "NearestCuadroIndex" data
end
//Split
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCaballoIndex" data index
loop until record "NearestIndexTemp" data < 3
begin
subtract 3 to record "NearestIndexTemp" data
add 5 to record "NearestCaballoIndex" data
end
if record "NearestIndexTemp" data = 1 and record "NearestCaballoIndex" data Not= 55
begin
add 2 to record "NearestCaballoIndex" data
end
if record "NearestIndexTemp" data = 2 and record "NearestCaballoIndex" data Not= 55
begin
add 4 to record "NearestCaballoIndex" data
end
if record "NearestCaballoIndex" data =55 and record "NearestIndexTemp" data Not= 0
begin
if record "NearestIndexTemp" data =1
begin
add 1 to record "NearestCaballoIndex" data
end
if record "NearestIndexTemp" data = 2
begin
add 2 to record "NearestCaballoIndex" data
end
end
if record "NearestCaballoIndex" data = 60
begin
subtract 3 to record "NearestCaballoIndex" data
end
add 1 to record "TodosPlenos" data index
end
put 1 to record "TodosPlenos" data index
end

Method "buscar Repeticion"
begin
duplicate record "UltimoNumero" to record "penUltimoNumero"
Copy Last number to record "UltimoNumero" layout
if record "UltimoNumero" layout = record "penUltimoNumero" layout
begin
put 500% of record "Ficha" data to record "UltimoNumero" layout
put 0 to record "ContRepeticion" data
put 0 to record "AtrasoRepeticion" data
end
else
begin
add 1 to record "ContRepeticion" data
if record "ContRepeticion" data > 70
begin
add 1 to record "AtrasoRepeticion" data
put 100% record "AtrasoRepeticion" data to record "ProgPleno" data index
multiply 100% record "ProgPleno" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "UltimoNumero" layout
put 100% record "Ficha" data to record "FichaTemp" data
end
end
end

method "buscar Sector"
begin
put 1 to record "TodosSectores" layout index
put 1 to record "ContSector" data index
loop until record "TodosSectores" layout index >37
begin
Copy Neighbors of record "TodosSectores" layout to record "Vecinos" layout
if record "TodosSectores" layout has not hit more 19 and record "Vecinos" layout list has not hit more 19
begin
if record "TodosSectores" layout has not hit more 100 and record "Vecinos" layout list has not hit more 100
begin
end
else
begin
put 100% record "TodosSectores" layout index to record "ContSector" data index
put 100% record "ContSector" data to record "ProgSector7" data index;
multiply 100% record "ProgSector7" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosSectores" layout
put 1 to record "Vecinos" layout index
loop until record "Vecinos" layout index > 6
begin
add 100% de record "FichaTemp" data to record "Vecinos" layout
add 1 to record "Vecinos" layout index
end
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContSector" data;
end
end
add 1 to record "TodosSectores" layout index
end
put 1 to record "TodosSectores" layout index
loop until record "TodosSectores" layout index >37
begin
Copy Neighbors of record "TodosSectores" layout to record "Vecinos" layout
if record "TodosSectores" layout has not hit each and record "Vecinos" layout list has not hit each
begin
end
else
begin
put 100% record "TodosSectores" layout index to record "ContSector" data index
put 1 to record "ContSector" data;
end
add 1 to record "TodosSectores" layout index;
end
end

method "Sueltos"
begin
if record "TodosSueltos" layout list NOT hit each
begin
if record "TodosSueltos" layout list not hit more 5
begin
if Flag "SeguirSueltos" is true
begin
put 1 to record "ContadorSeguirSueltos" data
set Flag "SeguirSueltos" to false
end
if record "TodosSueltos" layout list has not hit more 15
begin
end
else
begin
put 100% record "ContSueltos" data to record "ProgChance" data index
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosSueltos" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContSueltos"data
set Flag "SeguirSueltos" to false
if record "ContSueltos" data = 16
begin
set Flag "SeguirSueltos" to true
put 1 to record "ContSueltos" data
end
end
end
end
else
begin
put 1 to record "ContSueltos" data
if Flag "SeguirSueltos" is true
begin
multiply 100% record "ContadorSeguirSueltos" data to record "FichaTemp" data
put 100% record "FichaTemp" data to record "TodosSueltos" layout list
Multiply 2 to record "ContadorSeguirSueltos" data
put 100% record "Ficha" data to record "FichaTemp" data
if record "ContadorSeguirSueltos" data >16
begin
set Flag "SeguirSueltos" to false
put 1 to record "SeguirSueltos" data
end
end
end
end

method "Unidos"
begin
if record "TodosUnidos" layout list NOT hit each
begin
if record "TodosUnidos" layout list not hit more 5
begin
if Flag "SeguirUnidos" is true
begin
put 1 to record "ContadorSeguirUnidos" data
set flag "SeguirUnidos" to false
end
if record "TodosUnidos" layout list has not hit more 7
begin
end
else
begin
put 100% record "ContUnidos" data to record "ProgChance" data index
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosUnidos" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContUnidos"data
set Flag "SeguirUnidos" to false
if record "ContUnidos" data = 16
begin
set Flag "SeguirUnidos" to true
put 1 to record "ContUnidos" data
end
end
end
end
else
begin
put 1 to record "ContUnidos" data
if Flag "SeguirUnidos" is true
begin
multiply 100% record "ContadorSeguirUnidos" data to record "FichaTemp" data
put 100% record "FichaTemp" data to record "TodosUnidos" layout list
Multiply 2 to record "ContadorSeguirUnidos" data
put 100% record "Ficha" data to record "FichaTemp" data
if record "ContadorSeguirUnidos" data >16
begin
set Flag "SeguirUnidos" to false
put 1 to record "ContadorSeguirUnidos" data
end
end
end
end

Method "Initialize"
begin
//Aqui seteo todas las progresiones,contadores y Layouts

//Para Chances
set list [1,2,4,8,16,32,64,128] to record "ProgChance" data;
set list [1,1] to record "ContColor" data;
set list [1,1] to record "ContParidad" data;
set list [1,1] to record "ContMayor" data;
set list [1] to record "ContSueltos" data;
set list [1] to record "ContUnidos" data;
copy list [Red,Black] to record "TodosColores" layout
copy list [Even,Odd] to record "TodosPares" layout
copy list [Low,High] to record "TodosMayores" layout
copy list [number 1,number 2,number 3,number 4,number 5,number 6,
number 7,number 14,number 15,number 22,number 23,number 24,
number 25,number 32,number 33,number 34,number 35,number 36]
to record "TodosSueltos" layout
copy list [split(9-12),split(8-11),split(10-13),split(16-19),
split(17-20),split(18-21),split(26-29),split(27-30),
split(28-31)] to record "TodosUnidos" layout

// Para Docenas y Columnas
set list [1,1,2,3,4,6,9,14,21,31,47,70,105,158,237]
to record "ProgDocCol" data ;
set list [1,1,1] to record "ContDocena" data;
set list [1,1,1] to record "ContColumna" data;
copy list [1st dozen,2nd dozen,3rd dozen]
to record "TodasDocenas" layout;
copy list [Column A,Column B,Column C] to record "TodasColumnas" layout;

// Para Lineas
set list [1,1,1,1,1,2,2,2,3,3,4,5,6,7,8,10,12,14,17,21,25,30,36,43,52,
62,74,89,107,128] to record "ProgLinea" data;
set list [1,1,1,1,1,1,1,1,1,1,1] to record "ContLinea" 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)] to record "TodasLineas" layout;

// Para Cuadros
set list [1,1,1,1,1,1,1,1,2,2,2,2,3,3,3,4,4,5,5,6,7,8,9,10,11,12,14,16,
18,20,22,25,28,32,36,40,45,51,57,64,72,81,91]
to record "ProgCuadro" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
to record "ContCuadro" data;
copy list [Corner(1:5),Corner(2:6),Corner(4:8),Corner(5:9),Corner(7:11),
Corner(8:12),Corner(10:14),Corner(11:15),Corner(13:17),
Corner(14:18),Corner(16:20),Corner(17:21),Corner(19:23),
Corner(20:24),Corner(22:26),Corner(23:27),Corner(25:29),
Corner(26:30),Corner(28:32),Corner(29:33),Corner(31:35),
Corner(32:36)] to record "TodosCuadros" layout;

// Para Calles
set list [1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,4,4,4,5,5,6,6,7,7,8,
9,10,11,12,13,14,15,16,18,20,21,23,25,28,30,33,36,39,43,47,51,
55,60,66,72,79,86,93]
to record "ProgCalle" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1] to record "ContCalles" data;
copy list [street(1-3),street(4-6),street(7-9),street(10-12),
street(13-15),street(16-18),street(19-21),street(22-24),
street(25-27),street(28-30),street(31-33),street(34-36)]
to record "TodasCalles" layout;

// Para Caballos
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,3,3,
3,4,4,4,4,5,5,5,5,6,6,6,7,7,8,8,9,9,10,10,11,11,12,13,14,14,
15,16,17,18,19,20,21,23,24,25,27,28,30,32,34,36,38,40,42,45,
48,50,53,56,60,63,67,71,75,79,84,89,94,100]
to record "ProgCaballo" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
to record "ContCaballo" data;
copy list [split(1-2),split(1-4),split(2-3),split(2-5),split(3-6),
split(4-5),split(4-7),split(5-6),split(5-8),split(6-9),
split(7-8),split(7-10),split(8-9),split(8-11),split(9-12),
split(10-11),split(10-13),split(11-12),split(11-14),split(12-15),
split(13-14),split(13-16),split(14-15),split(14-17),split(15-18),
split(16-17),split(16-19),split(17-18),split(17-20),split(18-21),
split(19-20),split(19-22),split(20-21),split(20-23),split(21-24),
split(22-23),split(22-25),split(23-24),split(23-26),split(24-27),
split(25-26),split(25-28),split(26-27),split(26-29),split(27-30),
split(28-29),split(28-31),split(29-30),split(29-32),split(30-33),
split(31-32),split(31-34),split(32-33),split(32-35),split(33-36),
split(34-35),split(35-36),split(1-0),split(2-0),split(3-0)]
to record "TodosCaballos" layout;

// Para Plenos
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,
3,3,3,3,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,
7,8,8,8,8,9,9,9,9,10,10,10,10,11,11,11,12,12,12,13,13,13,14,
14,15,15,15,16,16,17,17,18,18,19,19,20,20,21,22,22,23,24,24,
25,26,26,27,28,29,29,30,31,32,33,34,35,36,37,38,39,40,41,42,
44,45,46,48,49,50,52,53,55,56,58,60,61,63,65,67,69,71,73,75,
77,79,81,84,86,88,91,94,96,99]
to record "ProgPleno" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1]
to record "ContPleno" data;
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0] to record "ContParacaidas" data
copy list [Number 1,Number 2,Number 3,Number 4,Number 5,Number 6,
Number 7,Number 8,Number 9,Number 10,Number 11,Number 12,
Number 13,Number 14,Number 15,Number 16,Number 17,Number 18,
Number 19,Number 20,Number 21,Number 22,Number 23,
Number 24,Number 25,Number 26,Number 27,Number 28,Number 29,
Number 30,Number 31,Number 32,Number 33,Number 34,Number 35,
Number 36,Number 0]
to record "TodosPlenos" layout;
call "Nearest"
duplicate record "ProgPleno" to record "ProgBiased1"
put 1 to record "ProgBiased1" data index
duplicate record "ProgPleno" to record "ProgBiased2"
put 1 to record "ProgBiased2" data index

//Para Sectores
Set list [1,1,1,1,1,2,2,3,3,4,5,6,8,10,12,15,19,23,28] to record "ProgSector" data
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1] to record "ContSector" data;
duplicate record "TodosPlenos" to record "TodosSectores"

//inicializo los contadores de las progresiones
put 1 en record "ProgDocCol" data index;
put 1 en record "ProgLinea" data index;
put 1 en record "ProgCuadro" data index;
put 1 en record "ProgCalle" data index;
put 1 en record "ProgCaballo" data index;
put 1 en record "ProgPleno" data index;
put 1 to record "ProgSector" data
put 1 en record "TodasCalles" layout index;
put 1 en record "TodasDocenas" layout index;
put 1 en record "TodasColumnas" layout index;
put 1 en record "TodasLineas" layout index;
put 1 en record "TodosCuadros" layout index;
put 1 en record "TodosCaballos" layout index;
put 1 en record "TodosPlenos" layout index;
put 1 en record "TodosSectores" layout index;
put 1 en record "TodosSueltos" layout index;
put 1 en record "TodosUnidos" layout index;

duplicate record "ProgDocCol" to record "tempA"
duplicate record "ProgDocCol" to record "tempB"
duplicate record "ProgDocCol" to record "tempC"

put 0 to record "MaxTriadaA" data
put 0 to record "MaxTriadaB" data
put 0 to record "MaxTriadaC" data

copy list [number 2, number 9, number 12, number 10, number 13, number 20,
number 16, number 19, number 26, number 29,number 30,number 34]
to record "Triada A" layout;
copy list [number 3, number 1,number 11, number 15, number 18, number 21, number 24,
number 17,number 28, number 31,number 23,number 27]
to record "Triada B" layout;
copy list [number 6, number 5, number 8, number 4, number 7, number 14,number 22, number 25,
number 33, number 36, number 32, number 35] to record "Triada C" layout;
end

Method "Input"
begin
group
begin
Input Data "Ingresa el Valor de tu ficha" to record "Ficha" data
Display "Elegi a que atrasos jugarle:"
Input Checkbox "Docena: " to Flag "FlagDocena"
Input Checkbox "Columna: " to Flag "FlagColumna"
Input Checkbox "Color: " to Flag "FlagColor"
Input Checkbox "Paridad: " to Flag "FlagParidad"
Input Checkbox "Mayor-Menor: " to Flag "FlagMayor"
Input Checkbox "Lineas: " to Flag "FlagLineas"
Input Checkbox "Calles: " to Flag "FlagCalles"
Input Checkbox "Cuadros: " to Flag "FlagCuadros"
Input Checkbox "SemiPlenos: " to Flag "FlagCaballo"
Input Checkbox "Plenos: " to Flag "FlagPleno"
Input Checkbox "Triada: " to Flag "FlagTriada"
Input Checkbox "Repeticion: " to Flag "FlagRepeticion"
Input Checkbox "Sector: " to Flag "FlagSector"
Input CheckBox "Sueltos: " to FLag "FlagSueltos"
Input Checkbox "Reset: " to Flag "FlagReset"
Input Data "Deci cuanto queres ganar por sesion" to record "LimiteArriba" data
Input Data "Deci cuanto queres perder por sesion" to record "LimiteAbajo" data
Input Checkbox "Biased?: " to Flag "FlagBiased"
Input Data "Que numero?: " to record "Biased1" data
Input Data "Otro?: " to record "Biased2" data
end

put 100% Bankroll to record "BankrollTemp" data
duplicate record "BankrollTemp" to record "BankrollUp"
duplicate record "BankrollTemp" to record "BankrollDown"
add 100% record "LimiteArriba" data to record "BankrollUp" data
subtract 100% record "LimiteAbajo" data to record "BankrollDown" data
put 100% record "Ficha" data to record "FichaTemp" data
end

Method "Reset"
begin
Clear All Records
call "Initialize"
call "Input"
//call "Todos"
end

Method "Todos"
begin
set flag "FlagDocena" to true
set flag "FlagColumna" to true
set flag "FlagColor" to true
set flag "FlagParidad" to true
set flag "FlagMayor" to true
set flag "FlagLineas" to true
set flag "FlagCuadros" to true
set flag "FlagCaballo" to false
set flag "FlagPleno" to false
set flag "FlagTriada" to true
set flag "FlagRepeticion" to true
set flag "FlagSector" to true
set flag "FlagSueltos" to true
set flag "Reset" to true
put 36 to record "LimiteArriba" data
put 1000 to record "LimiteAbajo" data
put 5 to record "Ficha" data
end

ya tengo la nueva version, pero es muy grande, no entra que hago?

Viendo los problemas que ocasionan los smileys he puesto en el enlace siguiente la versión 2.5 para el que la quiera bajar. A mi me funciona perfectamente.
A veces según versión del Rx pudiese ser que se diese algún error, pero ya digo en la mía va muy bien y la he probado a fondo.
Yo uso la versión 2.3.3

Link descarga : https://dl.dropbox.com/u/110618431/Sistema%20Atrasos%20Jorditron%20V2.5.dgt

bueno ya le corregi errores y agregue un poco mas de cosas, lo subo al .dgt porq no es muy largo el texto y no me deja postearlo en un solo post... saludos  Gracias zechnas por la buena onda!,

Sistema

deben ubicarlo en la carpeta donde tengan instalado el RX en la subcarpeta Designer

He modificado la programación comentada por jorditron en el post anterior, condensándola, para intentar que entre aquí en un mismo post.

system "Jorditron 2.5"
{Ampliacion de la Segunda Intento
-ya no es compacto, pero estructural
-analiza, a eleccion del jugador, el atraso de:
Color, Paridad, Mayor o menor, Docenas, Columnas, Calles, Lineas, Cuadros, Semiplenos o caballos, plenos, repeticiones,

sectores, Numeros unidos o sueltos del mismo color en el paño (nose como explicarlo, pero sirve para el contradragon), Triadas (es

simplemente una division intercalada en 3 de la rueda.. no importa la zona de la rueda donde caiga la bola, siempre hay una chance en

3 de que te toque tu triada)
-Pueden ustedes Decidir cuanto atraso es necesario para comenzar la progresion
-Cada uno de estos sigue su propia progresion, con la forma de la MARTINGALA, (si ya se, es la raiz de todos mis problemas)
e independiente de otras apuestas y progresiones
NOTA: Digo Martingala porq tienen la misma estructura, aumentar una ficha (o mas) cuando la ficha actual no saca ganancias netas

en un solo tiro ganador.
-Los Plenos constan de un paracaidas, q me parece q no funciona como me gustaria q lo hiciese
-Cada progresion comienza luego de determinado atraso (me fije en mis permanencias y en las estadisticas que me da el programa)
y termina luego de una cantidad de perdidas impuestas por el jugador
-Mientras menos caja se tenga, mayor es el atraso que debe tener para comenzar la apuesta
promesas de la anterior
-un analisis de Bankroll, (plata inicial) // no lo hice
-prevencion ante catastrofes // vos elegis cuanto podes perder o ganar
-analizara Zonas de la rueda // Ya analiza Sectores...
-Analizara lo que llamo Triada.. pueden consultarme al respecto //Lo hice, no es la gran cosa
-Atraso a la Repeticion inmediata
-Se juega por la triple repeticion
para la proxima
-analisis sobre las series de 1, tablas de frecuencias, en base a estas, decidir sobre que atraso comenzar la progresion
-Contradragon
se esta poniendo pesado... demasiadas lineas
Por favor haganme saber los problemas y ayuden con mejoras
Ojala pueda servirles
}
method "main"
begin
While Starting a New Session begin
Input Data "Ingresa tu caja" to Bankroll;
call "Limites"
call "Initialize"
call "Input"; end
While on Each Spin begin
// Analiza Caja segun Limites inferiores y superiores. Y decide Reseteo
if Flag "FlagReset" is true begin
if Bankroll > record "BankrollUp" data begin
display "Ganaste. Puedes comenzar de nuevo"
add 1 to record "PartidasGanadas" data
call "Reset"; end
if Bankroll < record "BankrollDown" data begin
display "Perdiste. Puedes comenzar de nuevo"
add 1 to record "PartidasPerdidas" data
call "Reset"; end
end
//Limpio todas las apuestas debido a q uso el comando ADD al aniadir fichas, y si no limpio las agrega al monto anterior. No quiero eso.
call "Limpiar Panio"
//Realiza cada busqueda de acuerdo a lo que el jugador desea jugar. ver mas abajo el metodo para comprender mejor
call "Banderas"
end
end

//Limpio todas las apuestas debido a q uso el comando ADD al aniadir fichas, y si no limpio las agrega. No quiero eso.
Method "Limpiar Panio"
begin
put 1 to record "TodosPlenos" layout index
loop until record "TodosPlenos" layout index > 37 begin
put 0 to record "TodosPlenos" layout; add 1 to record "TodosPlenos" layout index; end
put 1 to record "TodosCaballos" layout index
loop until record "TodosCaballos" layout index > 60 begin
put 0 to record "TodosCaballos" layout; add 1 to record "TodosCaballos" layout index; end
put 1 to record "TodasCalles" layout index
loop until record "TodasCalles" layout index > 12 begin
put 0 to record "TodasCalles" layout; add 1 to record "TodasCalles" layout index; end
put 1 to record "TodasLineas" layout index
loop until record "TodasLineas" layout index > 11 begin
put 0 to record "TodasLineas" layout; add 1 to record "TodasLineas" layout index; end
put 1 to record "TodosColores" layout index
loop until record "TodosColores" layout index > 2 begin
put 0 to record "TodosColores" layout; add 1 to record "TodosColores" layout index; end
put 1 to record "TodosPares" layout index
loop until record "TodosPares" layout index > 2 begin
put 0 to record "TodosPares" layout; add 1 to record "TodosPares" layout index; end
put 1 to record "TodosMayores" layout index
loop until record "TodosMayores" layout index > 2 begin
put 0 to record "TodosMayores" layout; add 1 to record "TodosMayores" layout index; end
put 1 to record "TodosCuadros" layout index
loop until record "TodosCuadros" layout index > 22 begin
put 0 to record "TodosCuadros" layout; add 1 to record "TodosCuadros" layout index; end
put 1 to record "TodasDocenas" layout index
loop until record "TodasDocenas" layout index > 3 begin
put 0 to record "TodasDocenas" layout; add 1 to record "TodasDocenas" layout index; end
put 1 to record "TodasColumnas" layout index
loop until record "TodasColumnas" layout index > 3 begin
put 0 to record "TodasColumnas" layout; add 1 to record "TodasColumnas" layout index; end
end
//Realiza cada busqueda de acuerdo a lo que el jugador desea jugar
Method "Banderas"
begin
if Flag "FlagColor" is true begin call "buscar Color"; end
if Flag "FlagParidad" is true begin call "buscar Paridad"; end
if Flag "FlagMayor" is true begin call "buscar MayorMenor"; end
if Flag "FlagDocena" is true begin call "buscar Docena"; end
if Flag "FlagColumna" is true begin call "buscar Columna"; end
if Flag "FlagLinea" is true begin call "buscar Linea"; end
if Flag "FlagCuadro" is true begin call "buscar Cuadro"; end
if Flag "FlagCalle" is true begin call "buscar calle"; end
if Flag "FlagCaballo" is true begin call "buscar Caballo"; end
if Flag "FlagPleno" is true begin call "buscar Pleno"; end
if Flag "FlagTriada" is true begin call "buscar Triada"; end
if Flag "FlagRepeticion" is true begin call "buscar Repeticion"; end
if Flag "FlagSector" is true begin call "buscar Sector"; end
if Flag "FlagBiased" is true begin call "Biased"; end
if Flag "FlagSueltos" is true begin
call "Sueltos"
call "Unidos"; end
end
// ===============================Chances Simples
method "buscar Color"
begin
put 1 to record "TodosColores" layout index
loop until record "TodosColores" layout index >2 begin
if record "TodosColores" layout has not hit each begin
put 100% record "TodosColores" layout index to record "AtrasoColor" data index
add 1 to record "AtrasoColor" data
put 100% record "TodosColores" layout index to record "ContColor" data index
if record "AtrasoColor" data >= record "LimMinChances" data begin
if record "ContColor" data <9 begin
put 100% record "ContColor" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 1800% de record "FichaTemp" data to record "TodosColores" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContColor" data; end
else begin
put 1 to record "ContColor" data; end
end
end
add 1 to record "TodosColores" layout index
end
put 1 to record "TodosColores" layout index
loop until record "TodosColores" layout index >2 begin
put 100% record "TodosColores" layout index to record "AtrasoColor" data index
if record "TodosColores" layout has hit each begin
put 100% record "TodosColores" layout index to record "ContColor" data index
put 1 to record "ContColor" data; put 0 to record "AtrasoColor" data; end
add 1 to record "TodosColores" layout index; end
end

method "buscar Paridad"
begin
put 1 to record "TodosPares" layout index
loop until record "TodosPares" layout index >2 begin
if record "TodosPares" layout has not hit each begin
put 100% record "TodosPares" layout index to record "AtrasoParidad" data index
add 1 to record "AtrasoParidad" data
put 100% record "TodosPares" layout index to record "ContParidad" data index
if record "AtrasoParidad" data >= record "LimMinChances" data begin
if record "ContParidad" data <9 begin
put 100% record "ContParidad" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 1800% de record "FichaTemp" data to record "TodosPares" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContParidad" data; end
else begin
put 1 to record "ContParidad" data; end
end
end
add 1 to record "TodosPares" layout index
end
put 1 to record "TodosPares" layout index
loop until record "TodosPares" layout index >2 begin
put 100% record "TodosPares" layout index to record "AtrasoParidad" data index
if record "TodosPares" layout has hit each begin
put 100% record "TodosPares" layout index to record "ContParidad" data index
put 1 to record "ContParidad" data; put 0 to record "AtrasoParidad" data; end
add 1 to record "TodosPares" layout index; end
end

method "buscar MayorMenor"
begin
put 1 to record "TodosMayores" layout index
loop until record "TodosMayores" layout index >2 begin
if record "TodosMayores" layout has not hit each begin
put 100% record "TodosMayores" layout index to record "AtrasoMayores" data index
add 1 to record "AtrasoMayores" data
put 100% record "TodosMayores" layout index to record "ContMayor" data index
if record "AtrasoMayores" data >= record "LimMinChances" data begin
if record "ContMayor" data <9 begin
put 100% record "ContMayor" data to record "ProgChance" data index;
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 600% de record "FichaTemp" data to record "TodosMayores" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContMayor" data; end
else begin
put 1 to record "ContMayor" data; end
end
end
add 1 to record "TodosMayores" layout index; end
put 1 to record "TodosMayores" layout index
loop until record "TodosMayores" layout index >2 begin
put 100% record "TodosMayores" layout index to record "AtrasoMayores" data index
if record "TodosMayores" layout has hit each begin
put 100% record "TodosMayores" layout index to record "ContMayor" data index
put 1 to record "ContMayor" data;
put 0 to record "AtrasoMayores" data; end
add 1 to record "TodosMayores" layout index; end
end
//=======================Docenas, Columnas, Triadas
method "buscar Docena"
begin
put 1 to record "TodasDocenas" layout index
loop until record "TodasDocenas" layout index >3 begin
if record "TodasDocenas" layout has not hit each begin
put 100% record "TodasDocenas" layout index to record "AtrasoDocenas" data index
add 1 to record "AtrasoDocenas" data
put 100% record "TodasDocenas" layout index to record "ContDocena" data index
if record "AtrasoDocenas" data >= record "LimMinDocCol" data begin
if record "ContDocena" data <16 begin
put 100% record "ContDocena" data to record "ProgDocCol" data index;
multiply 100% record "ProgDocCol" data to record "FichaTemp" data
add 400% de record "FichaTemp" data to record "TodasDocenas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContDocena" data; end
else begin
put 1 to record "ContDocena" data; end
end
end
add 1 to record "TodasDocenas" layout index; end
put 1 to record "TodasDocenas" layout index
loop until record "TodasDocenas" layout index >3 begin
put 100% record "TodasDocenas" layout index to record "AtrasoDocenas" data index
if record "TodasDocenas" layout has hit each begin
put 100% record "TodasDocenas" layout index to record "ContDocena" data index
put 1 to record "ContDocena" data; put 0 to record "AtrasoDocenas" data; end
add 1 to record "TodasDocenas" layout index; end
end

method "buscar Columna"
begin
put 1 to record "TodasColumnas" layout index
loop until record "TodasColumnas" layout index >3 begin
if record "TodasColumnas" layout has not hit each begin
put 100% record "TodasColumnas" layout index to record "AtrasoColumnas" data index
add 1 to record "AtrasoColumnas" data
put 100% record "TodasColumnas" layout index to record "ContColumna" data index
if record "AtrasoColumnas" data >= record "LimMinDocCol" data begin
if record "ContDocena" data <16 begin
put 100% record "ContColumna" data to record "ProgDocCol" data index;
multiply 100% record "ProgDocCol" data to record "FichaTemp" data
add 600% de record "FichaTemp" data to record "TodasColumnas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContColumna" data; end
else begin
put 1 to record "ContColumna" data; end
end
end
add 1 to record "TodasColumnas" layout index; end
put 1 to record "TodasColumnas" layout index
loop until record "TodasColumnas" layout index >3 begin
put 100% record "TodasColumnas" layout index to record "AtrasoColumnas" data index
if record "TodasColumnas" layout has hit each begin
put 100% record "TodasColumnas" layout index to record "ContColumna" data index
put 1 to record "ContColumna" data;
put 0 to record "AtrasoColumnas" data; end
add 1 to record "TodasColumnas" layout index; end
end

method "buscar Triada"
begin
call "TriA"
call "TriB"
call "TriC"
end

method "TriA"
begin
if record "Triada A" layout list NOT hit each begin
add 1 to record "AtrasoTriadaA" data
if record "AtrasoTriadaA" data > record "MaxTriadaA" data begin
put 100% of record "ContTriadaA" data to record "MaxTriadaA" data; end
if record "AtrasoTriadaA" data >= record "LimMinDocCol" data begin
if record "tempA" data index < 16 begin
multiply 100% record "tempA" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada A" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempA"data index
end
else begin
put 1 to record "tempA" data index; end
end
end
else begin
put 0 to record "AtrasoTriadaA" data
put 1 to record "tempA" data index; end
end

method "TriB"
begin
if record "Triada B" layout list NOT hit each begin
add 1 to record "AtrasoTriadaB" data
if record "AtrasoTriadaB" data > record "MaxTriadaB" data begin
put 100% of record "ContTriadaB" data to record "MaxTriadaB" data; end
if record "AtrasoTriadaB" data >= record "LimMinDocCol" data begin
if record "tempB" data index < 16 begin
multiply 100% record "tempB" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada B" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempB" data index; end
else begin
put 1 to record "tempB" data index; end
end
end
else begin
put 0 to record "AtrasoTriadaB" data; put 1 to record "tempB" data index; end
end

method "TriC"
begin
if record "Triada C" layout list NOT hit each begin
add 1 to record "AtrasoTriadaC" data
if record "AtrasoTriadaC" data > record "MaxTriadaC" data begin
put 100% of record "ContTriadaC" data to record "MaxTriadaC" data; end
if record "AtrasoTriadaC" data >= record "LimMinDocCol" data begin
if record "tempC" data index < 16 begin
multiply 100% record "tempC" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "Triada C" layout list
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "tempC"data index; end
else begin
put 1 to record "tempC" data index; end
end
end
else begin
put 0 to record "AtrasoTriadaC" data; put 1 to record "tempC" data index; end
end
//======================LINEAS
method "buscar Linea"
begin
put 1 to record "TodasLineas" layout index
loop until record "TodasLineas" layout index >11 begin
if record "TodasLineas" layout has not hit each begin
put 100% record "TodasLineas" layout index to record "AtrasoLineas" data index
add 1 to record "AtrasoLineas" data
put 100% record "TodasLineas" layout index to record "ContLinea" data index
if record "AtrasoLineas" data >= record "LimMinLineas" data begin
if record "ContLinea" data < 31 begin
put 100% record "ContLinea" data to record "ProgLinea" data index;
multiply 100% record "ProgLinea" data to record "FichaTemp" data
add 200% de record "FichaTemp" data to record "TodasLineas" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContLinea" data; end
else begin
put 1 to record "ContLinea" data; end
end
end
add 1 to record "TodasLineas" layout index; end
put 1 to record "TodasLineas" layout index
loop until record "TodasLineas" layout index >11 begin
put 100% record "TodasLineas" layout index to record "AtrasoLineas" data index
if record "TodasLineas" layout has hit each begin
put 100% record "TodasLineas" layout index to record "ContLinea" data index
put 1 to record "ContLinea" data; put 0 to record "AtrasoLineas" data; end
add 1 to record "TodasLineas" layout index; end
end
//=========================CUADROS
method "buscar Cuadro"
begin
put 1 to record "TodosCuadros" layout index
loop until record "TodosCuadros" layout index >22 begin
if record "TodosCuadros" layout has not hit each begin
put 100% record "TodosCuadros" layout index to record "AtrasoCuadros" data index
add 1 to record "AtrasoCuadros" data
put 100% record "TodosCuadros" layout index to record "ContCuadro" data index
if record "AtrasoCuadros" data >= record "LimMinCuadros" data begin
if record "ContCuadro" data < 44 begin
put 100% record "ContCuadro" data to record "ProgCuadro" data index;
multiply 100% record "ProgCuadro" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosCuadros" layout
put 100% record "Ficha" data to record "FichaTemp" data; add 1 to record "ContCuadro" data; end
else begin
put 1 to record "ContCuadro" data; end
end
end
add 1 to record "TodosCuadros" layout index; end
put 1 to record "TodosCuadros" layout index
loop until record "TodosCuadros" layout index >22 begin
put 100% record "TodosCuadros" layout index to record "AtrasoCuadros" data index
if record "TodosCuadros" layout has hit each begin
put 100% record "TodosCuadros" layout index to record "ContCuadro" data index
put 1 to record "ContCuadro" data; put 0 to record "AtrasoCuadros" data; end
add 1 to record "TodosCuadros" layout index; end
end
//==========================CALLES
method "buscar calle"
begin
put 1 to record "TodasCalles" layout index
loop until record "TodasCalles" layout index >12 begin
if record "TodasCalles" layout has not hit each begin
put 100% record "TodasCalles" layout index to record "AtrasoCalles" data index
add 1 to record "AtrasoCalles" data
put 100% record "TodasCalles" layout index to record "ContCalles" data index
if record "AtrasoCalles" data >= record "LimMinCalles" data begin
if record "ContCalles" data < 55 begin
put 100% record "TodasCalles" layout index to record "ContCalles" data index
put 100% record "ContCalles" data to record "ProgCalle" data index;
multiply 100% record "ProgCalle" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodasCalles" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContCalles" data; end
else begin
put 1 to record "ContCalles" data; end
end
end
add 1 to record "TodasCalles" layout index; end
put 1 to record "TodasCalles" layout index
loop until record "TodasCalles" layout index >12 begin
put 100% record "TodasCalles" layout index to record "AtrasoCalles" data index
if record "TodasCalles" layout has hit 1 begin
put 100% record "TodasCalles" layout index to record "ContCalles" data index
put 1 to record "ContCalles" data; put 0 to record "AtrasoCalles" data; end
add 1 to record "TodasCalles" layout index; end
end
//==========================CABALLOS
method "buscar Caballo"
begin
put 1 to record "TodosCaballos" layout index
loop until record "TodosCaballos" layout index >60 begin
if record "TodosCaballos" layout has not hit each begin
put 100% record "TodosCaballos" layout index to record "AtrasoCaballos" data index
add 1 to record "AtrasoCaballos" data
put 100% record "TodosCaballos" layout index to record "ContCaballo" data index
if record "AtrasoCaballos" data >= record "LimMinCaballos" data begin
if record "ContCaballo" data < 107 begin
put 100% record "ContCaballo" data to record "ProgCaballo" data index;
multiply 100% record "ProgCaballo" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosCaballos" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContCaballo" data; end
else begin
put 1 to record "ContCaballo" data; end
end
end
add 1 to record "TodosCaballos" layout index; end
put 1 to record "TodosCaballos" layout index
loop until record "TodosCaballos" layout index >60 begin
put 100% record "TodosCaballos" layout index to record "AtrasoCaballos" data index
if record "TodosCaballos" layout has hit each begin
put 100% record "TodosCaballos" layout index to record "ContCaballo" data index
put 1 to record "ContCaballo" data; put 0 to record "AtrasoCaballos" data; end
add 1 to record "TodosCaballos" layout index; end
end
//=========================PLENOS Y PARACAIDAS
method "buscar Pleno"
begin
put 1 to record "TodosPlenos" layout index
loop until record "TodosPlenos" layout index >37 begin
put 100% of record "TodosPlenos" layout index record "ContParacaidas" data index
put 100% of record "TodosPlenos" layout index to record "AtrasoPlenos" data index
if record "TodosPlenos" layout has hit each begin
put 100% record "TodosPlenos" layout index to record "ContPleno" data index
put 1 to record "ContPleno" data;
put 0 to record "AtrasoPlenos" data;
put 0 to record "ContParacaidas" data; end
//Paracaidas.. Si gana
if record "ContParacaidas" data <3 and record "ContParacaidas" data not = 0 begin
put 100% of record "TodosPlenos" layout index to record "NearestLineaIndex" data index
put 100% of record "NearestLineaIndex" data to record "TodasLineas" layout index
if record "TodasLineas" layout has hit each begin
if record "ContParacaidas" data = 2 begin
subtract 10 to record "ContPleno" data; end
if record "ContParacaidas" data = 3 begin
subtract 8 to record "ContPleno" data; end
if record "ContPleno" data < 0 begin
put 1 to record "ContPleno" data; end
put 1 to record "ContParacaidas" data; end
end
if record "ContParacaidas" data >2 and record "ContParacaidas" data <7 begin
put 100% record "TodosPlenos" layout index to record "NearestCuadroIndex" data index
put 100% record "NearestCuadroIndex" data to record "TodosCuadros" layout index
if record "TodosCuadros" layout has hit each begin
if record "ContParacaidas" data = 4 begin
subtract 4 to record "ContPleno" data; end
if record "ContParacaidas" data = 5 begin
subtract 3 to record "ContPleno" data; end
if record "ContParacaidas" data = 6 begin
subtract 2 to record "ContPleno" data; end
if record "ContParacaidas" data = 7 begin
subtract 1 to record "ContPleno" data; end
if record "ContPleno" data < 0 begin
put 1 to record "ContPleno" data; end
put 1 to record "ContParacaidas" data; end
end
if record "ContParacaidas" data > 6 and record "ContParacaidas" data <9 begin
put 100% record "TodosPlenos" layout index to record "NearestCalleIndex" data index
put 100% record "NearestCalleIndex" data to record "TodasCalles" layout index
if record "TodasCalles" layout has hit each begin
if record "ContParacaidas" data = 8 begin
subtract 2 to record "ContPleno" data; end
if record "ContParacaidas" data = 9 begin
subtract 1 to record "ContPleno" data; end
if record "ContPleno" data < 0 begin
put 1 to record "ContPleno" data; end
put 1 to record "ContParacaidas" data; end
end
if record "ContParacaidas" data > 8 and record "ContParacaidas" data <15 begin
put 100% record "TodosPlenos" layout index to record "NearestCaballoIndex" data index
put 100% record "NearestCaballoIndex" data to record "TodosCaballos" layout index
if record "TodosCaballos" layout has hit each begin
if record "ContParacaidas" data = 10 begin
subtract 6 to record "ContPleno" data; end
if record "ContParacaidas" data = 11 begin
subtract 5 to record "ContPleno" data; end
if record "ContParacaidas" data = 12 begin
subtract 4 to record "ContPleno" data; end
if record "ContParacaidas" data = 13 begin
subtract 3 to record "ContPleno" data; end
if record "ContParacaidas" data = 14 begin
subtract 2 to record "ContPleno" data; end
if record "ContParacaidas" data = 15 begin
subtract 1 to record "ContPleno" data; end
if record "ContPleno" data < 0 begin
put 1 to record "ContPleno" data; end
put 1 to record "ContParacaidas" data; end
end
add 1 to record "TodosPlenos" layout index; end
put 1 to record "TodosPlenos" layout index; put 1 to record "ContPleno" data index
put 1 to record "ContParacaidas" data index
loop until record "TodosPlenos" layout index >37 begin
if record "TodosPlenos" layout has not hit each begin
put 100% record "TodosPlenos" layout index to record "AtrasoPlenos" data index
add 1 to record "AtrasoPlenos" data
put 100% record "TodosPlenos" layout index to record "ContPleno" data index
if record "AtrasoPlenos" data >= record "LimMinPlenos" data begin
if record "ContPleno" data < 164 begin
put 100% record "ContPleno" data to record "ProgPleno" data index;
multiply 100% record "ProgPleno" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosPlenos" layout
put 100% record "Ficha" data to record "FichaTemp" data
//Paracaidas
put 100% record "TodosPlenos" layout index to record "ContParacaidas" data index
if record "AtrasoPlenos" data = record "LimMinPlenos" data
and record "TodosPlenos" layout Not= number 0 begin
put 1 to record "ContParacaidas" data; end
if record "ContParacaidas" data > 0 and record "TodosPlenos" layout index Not= 37 begin
if record "ContParacaidas" data < 3 begin
put 100% record "TodosPlenos" layout index to record "NearestLineaIndex" data index
put 100% record "NearestLineaIndex" data to record "TodasLineas" layout index
add 200% of record "Ficha" data on record "TodasLineas" layout
add 1 to record "ContParacaidas" data; end
else begin
if record "ContParacaidas" data > 2 and record "ContParacaidas" data < 7 begin
put 100% record "TodosPlenos" layout index to record "NearestCuadroIndex" data index
put 100% record "NearestCuadroIndex" data to record "TodosCuadros" layout index
add 100% of record "Ficha" data on record "TodosCuadros" layout
add 1 to record "ContParacaidas" data; end
else begin
if record "ContParacaidas" data >6 and record "ContParacaidas" data <9 begin
put 100% record "TodosPlenos" layout index to record "NearestCalleIndex" data index
put 100% record "NearestCalleIndex" data to record "TodasCalles" layout index
add 100% of record "Ficha" data on record "TodasCalles" layout
add 1 to record "ContParacaidas" data; end
else begin
if record "ContParacaidas" data > 8 and record "ContParacaidas" data <15 begin
put 100% record "TodosPlenos" layout index to record "NearestCaballoIndex" data index
put 100% record "NearestCaballoIndex" data to record "TodosCaballos" layout index
add 100% of record "Ficha" data on record "TodosCaballos" layout
add 1 to record "ContParacaidas" data; end
end
else begin
if record "ContParacaidas" data >14 begin
loop until record "ContEspecial" data >15 begin
put 100% of record "ContPleno" data to record "tempEspecial" data
add 100% of record "tempEspecial" data to record "ProgPleno" data index
add 100% of record "ProgPleno" data to record "ContEspecial" data
add 1 to record "ContPleno" data; end
put 0 to record "ContParacaidas" data; end
end end end end
//fin paracaidas
add 1 to record "ContPleno" data; end
else begin
put 1 to record "ContPleno" data; end
end
end
add 1 to record "TodosPlenos" layout index; end
put 1 to record "TodosPlenos" layout index; end
//=============================SECTORES
method "buscar Sector"
begin
put 1 to record "TodosSectores" layout index
put 1 to record "ContSector" data index
loop until record "TodosSectores" layout index >37 begin
Copy Neighbors of record "TodosSectores" layout to record "Vecinos" layout
if record "TodosSectores" layout has not hit more 19 and record "Vecinos" layout list has not hit more 19 begin
if record "TodosSectores" layout has not hit more 100 and record "Vecinos" layout list has not hit more 100 begin
end
else begin
put 100% record "TodosSectores" layout index to record "ContSector" data index
put 100% record "ContSector" data to record "ProgSector7" data index;
multiply 100% record "ProgSector7" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosSectores" layout
put 1 to record "Vecinos" layout index
loop until record "Vecinos" layout index > 6 begin
add 100% de record "FichaTemp" data to record "Vecinos" layout
add 1 to record "Vecinos" layout index; end
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ContSector" data; end
end
add 1 to record "TodosSectores" layout index; end
put 1 to record "TodosSectores" layout index
loop until record "TodosSectores" layout index >37 begin
Copy Neighbors of record "TodosSectores" layout to record "Vecinos" layout
if record "TodosSectores" layout has not hit each and record "Vecinos" layout list has not hit each
begin end
else begin
put 100% record "TodosSectores" layout index to record "ContSector" data index
put 1 to record "ContSector" data; end
add 1 to record "TodosSectores" layout index; end
end
//===============================REPETICIONES
Method "buscar Repeticion"
begin
duplicate record "UltimoNumero" to record "penUltimoNumero"
Copy Last number to record "UltimoNumero" layout
if record "UltimoNumero" layout = record "penUltimoNumero" layout begin
put 500% of record "Ficha" data to record "UltimoNumero" layout
put 0 to record "ContRepeticion" data
put 0 to record "AtrasoRepeticion" data; end
else begin
add 1 to record "AtrasoRepeticion" data
if record "AtrasoRepeticion" data >= record "LimMinPlenos" data begin
add 1 to record "ContRepeticion" data
put 100% record "ContRepeticion" data to record "ProgPleno" data index
multiply 100% record "ProgPleno" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "UltimoNumero" layout
put 100% record "Ficha" data to record "FichaTemp" data; end
end end
//===============================SUELTOS Y UNIDOS
method "Sueltos"
begin
if record "TodosSueltos" layout list NOT hit each begin
if Flag "SeguirSueltos" is true begin
put 0 to record "ContadorSeguirSueltos" data
set Flag "SeguirSueltos" to false; end
add 1 to record "AtrasoSueltos" data
if record "AtrasoSueltos" data >= record "LimMinChances" data begin
add 1 to record "ContSueltos" data
if record "ContSueltos" data <9 begin
put 100% record "ContSueltos" data to record "ProgChance" data index
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosSueltos" layout list
put 100% record "Ficha" data to record "FichaTemp" data; end
else begin
put 0 to record "ContSueltos" data; end
end end
else begin
if record "AtrasoSueltos" data >= record"LimMinChances" data begin
add 1 to record "ContadorSeguirSueltos" data
set Flag "SeguirSueltos" to true; end
if Flag "SeguirSueltos" is true begin
multiply 100% record "ContadorSeguirSueltos" data to record "FichaTemp" data
put 100% record "FichaTemp" data to record "TodosSueltos" layout list
Multiply 2 to record "ContadorSeguirSueltos" data
put 100% record "Ficha" data to record "FichaTemp" data
if record "ContadorSeguirSueltos" data >8 begin
set Flag "SeguirSueltos" to false
put 0 to record "ContadorSeguirSueltos" data; end
end
put 0 to record "AtrasoSueltos" data; put 0 to record "ContSueltos" data; end
end

method "Unidos"
begin
if record "TodosUnidos" layout list NOT hit each begin
if Flag "SeguirUnidos" is true begin
put 0 to record "ContadorSeguirUnidos" data
set Flag "SeguirUnidos" to false; end
add 1 to record "AtrasoUnidos" data
if record "AtrasoUnidos" data >= record "LimMinChances" data begin
add 1 to record "ContUnidos" data
if record "ContUnidos" data <9 begin
put 100% record "ContUnidos" data to record "ProgChance" data index
multiply 100% record "ProgChance" data to record "FichaTemp" data
add 100% de record "FichaTemp" data to record "TodosUnidos" layout list
put 100% record "Ficha" data to record "FichaTemp" data; end
else begin
put 0 to record "ContUnidos" data; end
end end
else begin
if record "AtrasoUnidos" data >= record"LimMinChances" data begin
add 1 to record "ContadorSeguirUnidos" data
set Flag "SeguirUnidos" to true; end
if Flag "SeguirUnidos" is true begin
multiply 100% record "ContadorSeguirUnidos" data to record "FichaTemp" data
put 100% record "FichaTemp" data to record "TodosUnidos" layout list
Multiply 2 to record "ContadorSeguirUnidos" data
put 100% record "Ficha" data to record "FichaTemp" data
if record "ContadorSeguirUnidos" data >8 begin
set Flag "SeguirUnidos" to false
put 0 to record "ContadorSeguirUnidos" data; end
end
put 0 to record "AtrasoUnidos" data; put 0 to record "ContUnidos" data; end
end
//================================BIASED
Method "Biased"
begin
put 1 to record "TodosPlenos" layout index
loop until record "TodosPlenos" layout index > 37 begin
if record "TodosPlenos" layout index = record "Biased1" data begin
Copy record "TodosPlenos" layout to record "Biased1Layout" layout; end
if record "TodosPlenos" layout index = record "Biased2" data begin
Copy record "TodosPlenos" layout to record "Biased2Layout" layout; end
add 1 to record "TodosPlenos" layout index; end
if record "Biased1Layout" layout has not hit each begin
multiply 100% record "ProgBiased1" data to record "FichaTemp" data
add 100% of record "FichaTemp" data to record "Biased1Layout" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ProgBiased1" data index; end
else begin
put 1 to record "ProgBiased1" data index; end
if record "Biased2Layout" layout has not hit each begin
put 1 to record "ProgBiased2" data index
multiply 100% record "ProgBiased2" data to record "FichaTemp" data
add 100% of record "FichaTemp" data to record "Biased2Layout" layout
put 100% record "Ficha" data to record "FichaTemp" data
add 1 to record "ProgBiased2" data index; end
else begin
put 1 to record "ProgBiased2" data index; end
end

Method "Nearest"
begin
put 1 to record "TodosPlenos" data index
loop until record "TodosPlenos" data index > 36 begin
//Linea
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestLineaIndex" data index
loop until record "NearestIndexTemp" data < 3 begin
subtract 3 to record "NearestIndexTemp" data; add 1 to record "NearestLineaIndex" data; end
if record "NearestIndexTemp" data > 0 begin
add 1 to record "NearestLineaIndex" data; end
if record "NearestLineaIndex" data = 12 begin
put 11 to record "NearestLineaIndex" data; end
//Calles
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCalleIndex" data index
loop until record "NearestIndexTemp" data < 3 begin
subtract 3 to record "NearestIndexTemp" data; add 1 to record "NearestCalleIndex" data; end
if record "NearestIndexTemp" data > 0 begin
add 1 to record "NearestCalleIndex" data; end
//Cuadros
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCuadroIndex" data index
loop until record "NearestIndexTemp" data < 3 begin
subtract 3 to record "NearestIndexTemp" data; add 2 to record "NearestCuadroIndex" data; end
if record "NearestCuadroIndex" data = 22 and record "NearestIndexTemp" data >0 begin
subtract 2 to record "NearestCuadroIndex" data; end
if record "NearestIndexTemp" data = 1 begin
add 1 to record "NearestCuadroIndex" data end
if record "NearestIndexTemp" data = 2 begin
add 2 to record "NearestCuadroIndex" data end
if record "NearestCuadroIndex" data =24 begin
put 22 to record "NearestCuadroIndex" data end
//Split
put 100% of record "TodosPlenos" data index to record "NearestIndexTemp" data
put 100% of record "TodosPlenos" data index to record "NearestCaballoIndex" data index
loop until record "NearestIndexTemp" data < 3 begin
subtract 3 to record "NearestIndexTemp" data; add 5 to record "NearestCaballoIndex" data; end
if record "NearestIndexTemp" data = 1 and record "NearestCaballoIndex" data Not= 55 begin
add 2 to record "NearestCaballoIndex" data end
if record "NearestIndexTemp" data = 2 and record "NearestCaballoIndex" data Not= 55 begin
add 4 to record "NearestCaballoIndex" data end
if record "NearestCaballoIndex" data =55 and record "NearestIndexTemp" data Not= 0 begin
if record "NearestIndexTemp" data =1 begin
add 1 to record "NearestCaballoIndex" data end
if record "NearestIndexTemp" data = 2 begin
add 2 to record "NearestCaballoIndex" data end
end
if record "NearestCaballoIndex" data = 60 begin
subtract 3 to record "NearestCaballoIndex" data end
add 1 to record "TodosPlenos" data index end
put 1 to record "TodosPlenos" data index end

Method "Initialize"
begin
//Aqui seteo todas las progresiones,contadores y Layouts
//Para Chances
set list [1,2,4,8,16,32,64,128] to record "ProgChance" data;
set list [1,1] to record "ContColor" data;
set list [1,1] to record "ContParidad" data;
set list [1,1] to record "ContMayor" data;
put 0 to record "ContSueltos" data; put 0 to record "ContUnidos" data;
copy list [Red,Black] to record "TodosColores" layout
copy list [Even,Odd] to record "TodosPares" layout
copy list [Low,High] to record "TodosMayores" layout
copy list [number 1,number 2,number 3,number 4,number 5,number 6,
number 7,number 14,number 15,number 22,number 23,number 24,
number 25,number 32,number 33,number 34,number 35,number 36]
to record "TodosSueltos" layout
copy list [split(9-12),split(8-11),split(10-13),split(16-19),
split(17-20),split(18-21),split(26-29),split(27-30),
split(28-31)] to record "TodosUnidos" layout
set Flag "SeguirSueltos" to false
set Flag "SeguirUnidos" to false
// Para Docenas y Columnas
set list [1,1,2,3,4,6,9,14,21,31,47,70,105,158,237]
to record "ProgDocCol" data ;
set list [1,1,1] to record "ContDocena" data;
set list [1,1,1] to record "ContColumna" data;
copy list [1st dozen,2nd dozen,3rd dozen]
to record "TodasDocenas" layout;
copy list [Column A,Column B,Column C] to record "TodasColumnas" layout;
// Para Lineas
set list [1,1,1,1,1,2,2,2,3,3,4,5,6,7,8,10,12,14,17,21,25,30,36,43,52,
62,74,89,107,128] to record "ProgLinea" data;
set list [1,1,1,1,1,1,1,1,1,1,1] to record "ContLinea" 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)] to record "TodasLineas" layout;
// Para Cuadros
set list [1,1,1,1,1,1,1,1,2,2,2,2,3,3,3,4,4,5,5,6,7,8,9,10,11,12,14,16,
18,20,22,25,28,32,36,40,45,51,57,64,72,81,91]
to record "ProgCuadro" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
to record "ContCuadro" data;
copy list [Corner(1:5),Corner(2:6),Corner(4:8),Corner(5:9),Corner(7:11),
Corner(8:12),Corner(10:14),Corner(11:15),Corner(13:17),
Corner(14:18),Corner(16:20),Corner(17:21),Corner(19:23),
Corner(20:24),Corner(22:26),Corner(23:27),Corner(25:29),
Corner(26:30),Corner(28:32),Corner(29:33),Corner(31:35),
Corner(32:36)] to record "TodosCuadros" layout;
// Para Calles
set list [1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,4,4,4,5,5,6,6,7,7,8,
9,10,11,12,13,14,15,16,18,20,21,23,25,28,30,33,36,39,43,47,51,
55,60,66,72,79,86,93]
to record "ProgCalle" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1] to record "ContCalles" data;
copy list [street(1-3),street(4-6),street(7-9),street(10-12),
street(13-15),street(16-18),street(19-21),street(22-24),
street(25-27),street(28-30),street(31-33),street(34-36)]
to record "TodasCalles" layout;
// Para Caballos
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,3,3,
3,4,4,4,4,5,5,5,5,6,6,6,7,7,8,8,9,9,10,10,11,11,12,13,14,14,
15,16,17,18,19,20,21,23,24,25,27,28,30,32,34,36,38,40,42,45,
48,50,53,56,60,63,67,71,75,79,84,89,94,100]
to record "ProgCaballo" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
to record "ContCaballo" data;
copy list [split(1-2),split(1-4),split(2-3),split(2-5),split(3-6),
split(4-5),split(4-7),split(5-6),split(5-8),split(6-9),
split(7-8),split(7-10),split(8-9),split(8-11),split(9-12),
split(10-11),split(10-13),split(11-12),split(11-14),split(12-15),
split(13-14),split(13-16),split(14-15),split(14-17),split(15-18),
split(16-17),split(16-19),split(17-18),split(17-20),split(18-21),
split(19-20),split(19-22),split(20-21),split(20-23),split(21-24),
split(22-23),split(22-25),split(23-24),split(23-26),split(24-27),
split(25-26),split(25-28),split(26-27),split(26-29),split(27-30),
split(28-29),split(28-31),split(29-30),split(29-32),split(30-33),
split(31-32),split(31-34),split(32-33),split(32-35),split(33-36),
split(34-35),split(35-36),split(1-0),split(2-0),split(3-0)]
to record "TodosCaballos" layout;
// Para Plenos
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,
3,3,3,3,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,
7,8,8,8,8,9,9,9,9,10,10,10,10,11,11,11,12,12,12,13,13,13,14,
14,15,15,15,16,16,17,17,18,18,19,19,20,20,21,22,22,23,24,24,
25,26,26,27,28,29,29,30,31,32,33,34,35,36,37,38,39,40,41,42,
44,45,46,48,49,50,52,53,55,56,58,60,61,63,65,67,69,71,73,75,
77,79,81,84,86,88,91,94,96,99]
to record "ProgPleno" data;
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] to record "ContPleno" data;
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0] to record "ContParacaidas" data
copy list [Number 1,Number 2,Number 3,Number 4,Number 5,Number 6,
Number 7,Number 8,Number 9,Number 10,Number 11,Number 12,
Number 13,Number 14,Number 15,Number 16,Number 17,Number 18,
Number 19,Number 20,Number 21,Number 22,Number 23,
Number 24,Number 25,Number 26,Number 27,Number 28,Number 29,
Number 30,Number 31,Number 32,Number 33,Number 34,Number 35,
Number 36,Number 0]
to record "TodosPlenos" layout;
call "Nearest"
duplicate record "ProgPleno" to record "ProgBiased1"
put 1 to record "ProgBiased1" data index
duplicate record "ProgPleno" to record "ProgBiased2"
put 1 to record "ProgBiased2" data index
//Para Sectores
Set list [1,1,1,1,1,2,2,3,3,4,5,6,8,10,12,15,19,23,28] to record "ProgSector" data
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] to record "ContSector" data;
duplicate record "TodosPlenos" to record "TodosSectores"
//inicializo los contadores de las progresiones
put 1 en record "ProgDocCol" data index; put 1 en record "ProgLinea" data index;
put 1 en record "ProgCuadro" data index; put 1 en record "ProgCalle" data index;
put 1 en record "ProgCaballo" data index; put 1 en record "ProgPleno" data index;
put 1 to record "ProgSector" data index; put 1 en record "TodasCalles" layout index;
put 1 en record "TodasDocenas" layout index; put 1 en record "TodasColumnas" layout index;
put 1 en record "TodasLineas" layout index; put 1 en record "TodosCuadros" layout index;
put 1 en record "TodosCaballos" layout index; put 1 en record "TodosPlenos" layout index;
put 1 en record "TodosSectores" layout index; put 1 en record "TodosSueltos" layout index;
put 1 en record "TodosUnidos" layout index;
duplicate record "ProgDocCol" to record "tempA"
duplicate record "ProgDocCol" to record "tempB"
duplicate record "ProgDocCol" to record "tempC"
put 0 to record "MaxTriadaA" data; put 0 to record "MaxTriadaB" data
put 0 to record "MaxTriadaC" data
copy list [number 2, number 9, number 12, number 10, number 13, number 20,
number 16, number 19, number 26, number 29,number 30,number 34]
to record "Triada A" layout;
copy list [number 3, number 1,number 11, number 15, number 18, number 21, number 24,
number 17,number 28, number 31,number 23,number 27]
to record "Triada B" layout;
copy list [number 6, number 5, number 8, number 4, number 7, number 14,number 22, number 25,
number 33, number 36, number 32, number 35] to record "Triada C" layout; end

Method "Input"
begin
group begin
Input Data "Ingresa el Valor de tu ficha" to record "Ficha" data
Display "Elegi a que atrasos jugarle:"
Input Checkbox "Docena: " to Flag "FlagDocena"
Input Checkbox "Columna: " to Flag "FlagColumna"
Input Checkbox "Color: " to Flag "FlagColor"
Input Checkbox "Paridad: " to Flag "FlagParidad"
Input Checkbox "Mayor-Menor: " to Flag "FlagMayor"
Input Checkbox "Lineas: " to Flag "FlagLineas"
Input Checkbox "Calles: " to Flag "FlagCalles"
Input Checkbox "Cuadros: " to Flag "FlagCuadros"
Input Checkbox "SemiPlenos: " to Flag "FlagCaballo"
Input Checkbox "Plenos: " to Flag "FlagPleno"
Input Checkbox "Triada: " to Flag "FlagTriada"
Input Checkbox "Repeticion: " to Flag "FlagRepeticion"
Input Checkbox "Sector: " to Flag "FlagSector"
Input CheckBox "Sueltos: " to FLag "FlagSueltos"
Input Checkbox "Reset: " to Flag "FlagReset"
Input Data "Deci cuanto queres ganar por sesion" to record "LimiteArriba" data
Input Data "Deci cuanto queres perder por sesion" to record "LimiteAbajo" data
Input Checkbox "Biased?: " to Flag "FlagBiased"
Input Data "Que numero?: " to record "Biased1" data
Input Data "Otro?: " to record "Biased2" data
end
put 100% Bankroll to record "BankrollTemp" data
duplicate record "BankrollTemp" to record "BankrollUp"
duplicate record "BankrollTemp" to record "BankrollDown"
add 100% record "LimiteArriba" data to record "BankrollUp" data
subtract 100% record "LimiteAbajo" data to record "BankrollDown" data
put 100% record "Ficha" data to record "FichaTemp" data; end

Method "Reset"
begin
//Clear All Records
call "Initialize"
call "Input"
//call "Todos"
end

Method "Todos"
begin
set flag "FlagDocena" to true
set flag "FlagColumna" to true
set flag "FlagColor" to true
set flag "FlagParidad" to true
set flag "FlagMayor" to true
set flag "FlagLineas" to true
set flag "FlagCuadros" to true
set flag "FlagCaballo" to false
set flag "FlagPleno" to false
set flag "FlagTriada" to true
set flag "FlagRepeticion" to true
set flag "FlagSector" to true
set flag "FlagSueltos" to true
set flag "Reset" to true
put 36 to record "LimiteArriba" data
put 1000 to record "LimiteAbajo" data
put 5 to record "Ficha" data
end

Method "Limites"
begin
Group begin
display "Atraso Minimo para comenzar la progresion"
Input Data "Chances: (8)" to record "LimMinChances" data
Input Data "Doc/Col: (12)" to record "LimMinDocCol" data
Input Data "Lineas: (24)" to record "LimMinLineas" data
Input Data "Cuadros: (36)" to record "LimMinCuadros" data
Input Data "Calles: (48)" to record "LimMinCalles" data
Input Data "Caballos: (120)" to record "LimMinCaballos" data
Input Data "Plenos: (200)" to record "LimMinPlenos" data
Input CheckBox "Default: " to Flag "DefaultLimits"
end
if Flag "DefaultLimits" is true
begin
put 8 to record "LimMinChances" data
put 12 to record "LimMinDocCol" data
put 24 to record "LimMinLineas" data
put 36 to record "LimMinCuadros" data
put 48 to record "LimMinCalles" data
put 120 to record "LimMinCaballos" data
put 200 to record "LimMinPlenos" data
end
end

Astier tu version da error
en la linea 54

rokero prueva a quitarle el punto y en el suguiente error que te da le quitas la coma.

rokero escribió:Astier tu version da error
en la linea 54

Es el problema de revisar y modificar cientos de líneas y después copiar y pegar aquí.
Gracias rokero, ya está modificado.