Progresion Penthouse a docenas

EXPLICACION DEL SISTEMA

La Penthouse guarda un gran parecido a la más conocida progresión d'Alembert.

Aplicada a las docenas o columnas es la siguiente:
1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,.....
y como en la d'Alembert, al perder, nos desplazamos a la derecha un término y al ganar, como está aplicada a docenas, nos desplazamos dos términos a la izquierda.   

La programación se ha realizado dando la opción de jugar a la 1ª Docena, a la 2ª Docena, a la 3ª Docena o a todas a la vez.

Nota de moderación: 
La programación corregida y actualizada está en el 5º post, ya que la publicada originalmente daba errores.


system "Penthouse 3 Dozens progression"
{played on dozens
 -progression is 1,1,1,2,2,2,3,3,3 ect....
 -Move 1 to the right on a loss and 2 to the left on a win.
 -progression resets on a new profit

 coded by Colt 23/7/2012
}
method "main"
begin
   While Starting a New Session
   begin
   input dropdown "Which dozen would you like to play?
   1:= 1st Dozen
   2:= 2nd Dozen
   3:= 3rd Dozen
   4:= All Dozens"
   to record "table" data
   if record "table" data =1
   begin
   copy  1st dozen to record "dozen1" layout
   put 100% of record "bet1" data on record "dozen1" layout
   end
   if record "table" data =2
   begin
   copy  2nd dozen to record "dozen2" layout
   put 100% of record "bet2" data on record "dozen2" layout
   end
   if record "table" data =3
   begin
   copy  3rd dozen to record "dozen3" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
   if record "table" data =4
   begin
   copy 1st dozen to record "dozen1" layout
   copy 2nd dozen to record "dozen2" layout
   copy 3rd dozen to record "dozen3" layout
   put 100% of record "bet1" data on record "dozen1" layout
   put 100% of record "bet2" data on record "dozen2" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet1" data

    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet2" data

    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet3" data

   put 100% bankroll to record "bank" data
   end
   While on Each Spin
   begin
   if record "dozen1" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet1" data index
   put 1 to record "bet2" data index
   put 1 to record "bet3" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet1" data index
   end
   end

       if record "dozen2" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet2" data index
   put 1 to record "bet1" data index
   put 1 to record "bet3" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet2" data index
   end
   end

       if record "dozen3" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet3" data index
   put 1 to record "bet1" data index
   put 1 to record "bet2" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet3" data index
   end
   end

   if record "dozen1" layout has lost each spin
   begin
   add 1 to record "bet1" data index
   end

   if record "dozen2" layout has lost each spin
   begin
   add 1 to record "bet2" data index
   end

   if record "dozen3" layout has lost each spin
   begin
   add 1 to record "bet3" data index
   end

   if record "bet1" data index <1
   begin
   put 1 to record "bet1" data index
   end
   if record"bet1" data index >150
   begin
   put 150 to record "bet1" data index
   end

   if record "bet2" data index <1
   begin
   put 1 to record "bet2" data index
   end
   if record"bet2" data index >150
   begin
   put 150 to record "bet2" data index
   end
   if record "bet3" data index <1
   begin
   put 1 to record "bet3" data index
   end
   if record"bet3" data index >150
   begin
   put 150 to record "bet3" data index
   end
   put 100% of record "bet1" data on record "dozen1" layout
   put 100% of record "bet2" data on record "dozen2" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
end



he encontrado este codigo pero me da un error y no se por que, a ver si alguien sabe por que es.

cuando agregues el codigo, no pongas el "Logged" final, igual segun el programa y el automatismo, solo me da perdidas...

Antes de copiar códigos de otras web o foros y ponerlas en éste aseguraros de que el código no está bajo licencia porque puede ocurrir lo que en la antígua página de Joker en la que creo que hubo, incluso, responsabilidades penales. pues hay gente que solo licencia para un determinado lugar.
De hecho yo lo hacía en el foro del Joker de esa manera.

Recuerdo que este código lo hicieron a petición mía en otro foro en inglés.

A mí me funciona corréctamente el RX. No es mal sistema.

Modificaciones efectuadas:

- La programación original tiene bastantes errores de programación que ni permiten cargarla en el programa.
- En la opción de jugar a las 3 Docenas, apostaba a las tres docenas a la vez, lo cual nos hace perder más fichas si aparece el cero.
- Ahora se restan entre ellas. La Docena que tiene menor apuesta, sus fichas se restan de las otras.
- Los resultados son los mismos, pero se disminuye la pérdida de fichas al aparecer el cero.
- Se ha aprovechado a traducir al castellano.
- La verdad es que se ha cambiado tanto la programación, que ha sido casi mejor comenzar de nuevo. 


...

Programación eliminada por el autor



.

Realmente mejorado.

Gracias astier!

astier, eres un máquina!!;

Me veo programando....dentro de 20 años, ya jubilado.jeje

Mas allá de la programación (no soy ducho, en esto), podrían brindar algún tipo de dato, si les a servido, la progresión? la han utilizado con 1,2, 3 doc/col a la vez? gracias queridos compañeros.

Excelente programación, como siempre, astier.
La vieja idea no es mala, lástima que muchas veces supera pronto los límites de la mesa. Por otra parte tambien hay que decir que en muchas ocasiones tiene rachas de más de 2000 bolas en ascenso constante con pequeñas caidas sin importancia.