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


Programa sistema efecto mariposa para RX

Ver el tema anterior Ver el tema siguiente Ir abajo

Programa sistema efecto mariposa para RX

Mensaje por Josan el Mar Feb 18, 2014 2:42 pm

Hola, pongo aqui un fragmento sencillo para el sistema efecto mariposa.
Esta puesto para jugar a falta o pasa. Solamente lleva la progresion de 1,1,2 . Si falla se vuelve a repetir con la misma progresion en otra tanda de bolas .
Mirenlo a ver si es asi el sistema.El programa vale solo para hacernos una idea de como iria.
Si es asi en mis permanencias falla mas que una escopeta de feria.


system "efecto mariposa"
{ se apuesta al contrario de la primera bola
en tandas de seis bolas durante la bola 4ª, 5ª, 6ª
en falta o pasa
}
method "main"
begin
While Starting a New Session begin
Set List [1,1,2] to Record "apuesta1" data ; end

if net < 0 begin add 1 en Record "apuesta1" data index ; end
if net > 0 begin clear all records Except ["apuesta1"] data ; put 1 en record "apuesta1" data index; end

While each spin begin add 1 en record "bolas" data; end

if low tiene hit each and record "bolas" data = 1 begin put 1 en record "A" data ; end
if record "bolas" data >= 3 and record "A" data >= 1 begin put 100% de Record "apuesta1" data en high ; end

if high tiene hit each and record "bolas" data = 1 begin put 1 en record "B" data ; end
if record "bolas" data >= 3 and record "B" data >= 1 begin put 100% de Record "apuesta1" data en low ; end

if record "bolas" data = 6 begin clear all records Except ["apuesta1"] data ; put 1 en record "apuesta1" data index ; end

end

Josan
Oro
Oro

Cantidad de envíos : 245
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.