MANJORDI 1.00 (Jorditron 1.0)

este no sirve, ya estoy mejorando uno que tiene codigo mas comprimido y hace 4 veces mas cosas, estoy teniendo un problema con unos contadores asi q todavia no lo subo, cuando este listo lo subire

system "ManJordi 1.00"
{
por ahora no vale mucho, lo unico que hace es ver cual docena no sale
hace 3 numeros y comenzar a apostar en ella, la progresion esta diseniada
para siempre ganar por lo menos 1 ficha, en el casino q yo juego la docena
tiene un limite de 20 fichas para empezar, por lo que yo apuesto una ficha
a las 2 lineas que contienen toda la docena.. por ej 1docena> (1/6) y (7/12)
y solo gasto 2 fichas, entonces lo unico q hay q hacer es poner en cada una de esas
lineas la cantidad que aparece en este programa.
pueden ver progresiones para calles, cuartos y lineas, pero todavia no escribi el codigo para eso
en futuras versiones, el programa evaluara todas las lineas calles docenas, etc..
y comenzara a apostar individualmente al que no viene saliendo X bolas..
por ahora esta puesto para apostar cuando no sale hace 3 numeros
segun la Autobola da buenos resultados por ahora, pero no se confien del todo

en caso de superar el limite de una apuesta, intenten compensarla apostando a los Splits
que componen la docena

}
method "main"
begin
While Starting a New Session
begin
//Add initialize logic here
//when a new session is started
set list [1,1,2,3,4,6,9,14,21,31,47,70] to record "ProgDocena" data ;
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,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] to record "ProgCalle" data;
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] to record "ProgCuadro" data;
put 1 en record "ProgDocena" data index;
put 1 en record "ProgLinea" data index;
put 1 en record "ProgCalle" data index;
put 1 en record "ProgCuadro" data index;
copy list [number 2, split(9-12),
split(10-13), number 20,
split(16-19),split(26-29),number 30,number 34] to record "Triada A" layout;
copy list [number 3, number 1,number 11, split(15-18),
split(21-24), number 17,
split(28-31),number 23,number 27] to record "Triada B" layout;
copy list [number 6, split(5-8),
split(5-8), number 14,
split(22-25),split(33-36),split(32-35)] to record "Triada C" layout;
Input Data "Enter your starting Bankroll" to Bankroll;
end

While on Each Spin
begin
// on every spin
// Add betting logic here
if 1st Dozen has NOT hit more 3
begin
//move the progression pointer up to the next level
add 1 to record "ProgDocena" data index;
Put 100% of record "ProgDocena" data on 1st Dozen;
end

if 1st Dozen has won each time or record "ProgDocena" data index > 12
begin
//after a WIN or exceed Maximum progression, start over
Put 1 to record "ProgDocena" data index;
end
if 2nd Dozen has NOT hit more 3
begin
//move the progression pointer up to the next level
add 1 to record "ProgDocena" data index;
Put 100% of record "ProgDocena" data on 2nd Dozen;
end

if 2nd Dozen has won each time or record "ProgDocena" data index > 12
begin
//after a WIN or exceed Maximum progression, start over
Put 1 to record "ProgDocena" data index;
end
if 3rd Dozen has NOT hit more 3
begin
//move the progression pointer up to the next level
add 1 to record "ProgDocena" data index;
Put 100% of record "ProgDocena" data on 3rd Dozen;
end

if 3rd Dozen has won each time or record "ProgDocena" data index > 12
begin
//after a WIN or exceed Maximum progression, start over
Put 1 to record "ProgDocena" data index;
end

end
end