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

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

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


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

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

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

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

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

Recuperar mi contraseña


Sistema a docenas

Ver el tema anterior Ver el tema siguiente Ir abajo

Sistema a docenas

Mensaje por Josan el Lun Nov 06, 2017 5:37 pm

Hola dejo aqui un sistema de docenas con su coreespondiente programa de RX , para que lo prueben y a ver si algun conceptual se anima a ver donde se puede cortar las progresiones o algo para modificar en el programa.

El sistema hace lo siguiente:

A la segunda repeticion de cualquiera de las tres docenas empieza a apostar .
Cuando falla empieza a apostar otra vez a otra segunda repeticion sumando una unidad en la apuesta .
Si gana sigue apostando en la misma docena quitando dos unidades .
En cualquier positivo empieza otra vez la progresion .



system "progresionando  docenas a la segunda repeticion "
{
}
method "main"
begin
While Starting a New Session begin Set List [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,
53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,
85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,
113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,
137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,
161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,
185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200] to Record "apuesta" data
put 100% del bankroll en record"maximaCaja"data; end

if 1st Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 1st Dozen
  end

if 2nd Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 2nd Dozen
  end

if 3rd Dozen hit each and bankroll > record"maximaCaja"data begin
 put 3 en  Record "apuesta" data index
 put 100% del bankroll en record"maximaCaja"data
 put 100% de record "apuesta" data en 3rd Dozen
  end

if net < 0 begin add 1 en Record "apuesta" data index ; end
if record "apuesta" data index > 200 begin Put 1 on Record "apuesta" data index ;Clear All Records Except ["apuesta"] data  ;end

if 1st Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 1st Dozen ; end
if 2nd Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 2nd Dozen ; end
if 3rd Dozen won each begin Subtract 2 en Record "apuesta" data index ; put 100% de record "apuesta" data en 3rd Dozen ; end

if 1st Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 1st Dozen ; end
if 2nd Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 2nd Dozen ; end
if 3rd Dozen tiene hit en 2 bola  begin put 100% de record "apuesta" data en 3rd Dozen ; end
end

Josan
Oro
Oro

Cantidad de envíos : 246
Fecha de inscripción : 10/01/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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