4 paracaidas inversos independientes

Este es mi primera programación en rx. Es una especie de 4 paracaidas inversos e independientes, y digo "especie" pq no se juega el paracaidas completo solo seiscena ,cuadro, semi y pleno....
El criterio para la seleccion del cuadro(por ejemplo) es el cubrir el numero que acertó la seiscena y asi para los semis y plenos.
La idea es de tapalov, yo solo he hecho la programación.
No lo califico con estrellas pq no sabria decir que tal es, si alguien lo prueba y lo quiere calificar que lo haga...

system "4 paracas"
{
4 paracaidas independientes, que suben al acierto...........

}
method "main"
begin
While Starting a New Session begin
call "inicio"
end

call "suma cajas"
call "control1"
call "suma cajas2"
call "control2"
call "suma cajas3"
call "control3"
call "suma cajas4"
call "control4"
end

method "inicio"
begin
add 0 record "tiradas1" data
add 0 record "tiradas2" data
add 0 record "tiradas3" data
add 0 record "tiradas4" data
//por si queremos cambiar las lineas las metemos en un record
copy list [line(4-9)] to record "l1"layout
copy list [line(13-18)] to record "l2"layout
copy list [line(22-27)] to record "l3"layout
copy list [line(31-36)] to record "l4"layout
//para controlar si jugamos a linea o semi o pleno ,
//no limpiamos los recor n,s,c..pero parece qu no hace falta

set flag "semi2"false
set flag "semi3"false
set flag "semi4"false
set flag "semi1"false
set flag "pleno1"false
set flag "pleno2"false
set flag "pleno3"false
set flag "pleno4"false
end

//aqui apostamos a lo q corresponda
method "control1" begin
if record"tiradas1"data<0 begin
clear record"tiradas1"data
end
if record"tiradas1"data <=0 begin
set flag "semi1"false
set flag "pleno1"false
put 1 record"l1"layout list
end
if record"tiradas1"data >0 and flag "pleno1" true begin
put 1 record"n1"layout
end
if record"tiradas1"data >0 and flag "semi1" faLse begin
put 1 record"c1"layout
end
if record"tiradas1"data >0 and flag "semi1" true and flag "pleno1" false begin
put 1 record"s1"layout
end
end
method "control2" begin
if record"tiradas2"data<0 begin
clear record"tiradas2"data
end
if record"tiradas2"data <=0 begin
set flag "semi2"false
set flag "pleno2"false
put 1 record"l2"layout list
end
if record"tiradas2"data >0 and flag "pleno2" true begin
put 1 record"n2"layout
end
if record"tiradas2"data >0 and flag "semi2" faLse begin
put 1 record"c2"layout
end
if record"tiradas2"data >0 and flag "semi2" true and flag "pleno2" false begin
put 1 record"s2"layout
end
end
method "control3" begin
if record"tiradas3"data<0 begin
clear record"tiradas3"data
end
if record"tiradas3"data <=0 begin
set flag "semi3"false
set flag "pleno3"false
put 1 record"l3"layout list
end
if record"tiradas3"data >0 and flag "pleno3" true begin
put 1 record"n3"layout
end
if record"tiradas3"data >0 and flag "semi3" faLse begin
put 1 record"c3"layout
end
if record"tiradas3"data >0 and flag "semi3" true and flag "pleno3" false begin
put 1 record"s3"layout
end
end
method "control4" begin
if record"tiradas4"data<0 begin
clear record"tiradas4"data
end
if record"tiradas4"data <=0 begin
set flag "semi4"false
set flag "pleno4"false
put 1 record"l4"layout list
end
if record"tiradas4"data >0 and flag "pleno4" true begin
put 1 record"n4"layout
end
if record"tiradas4"data >0 and flag "semi4" faLse begin
put 1 record"c4"layout
end
if record"tiradas4"data >0 and flag "semi4" true and flag "pleno4" false begin
put 1 record"s4"layout
end
end

//controlamos los num y las tiradas pa apostar a calle ,cuadro, etc
method "suma cajas" begin
subtract 1 record"tiradas1"data
if record"l1"layout won each begin
add 6 record"tiradas1"data
track last number for 1 spins to record"n1"layout
if record"n1"layout =number 4 or record"n1"layout =number 7 begin
copy list [corner(4:8)] to record"c1"layout;
end else begin
copy list [corner(5:9)] to record"c1"layout;
end
end
if record"c1"layout won each begin
clear record"tiradas1"data
add 9 record"tiradas1"data
set flag "semi1"true
track last split for 1 spins to record"s1"layout

end
if record"s1"layout won each begin
clear record"tiradas1"data
add 18 record"tiradas1"data
set flag "pleno1"true
track last number for 1 spins to record"n1"layout
end
if record"n1"layout won each begin
clear record"tiradas1"data
end
end
method "suma cajas2" begin
subtract 1 record"tiradas2"data
if record"l2"layout won each begin
add 6 record"tiradas2"data
track last number for 1 spins to record"n2"layout
if record"n2"layout =number 13 or record"n2"layout =number 16 begin
copy list [corner(13:17)] to record"c2"layout;
end else begin
copy list [corner(14:18)] to record"c2"layout;
end
end
if record"c2"layout won each begin
clear record"tiradas2"data
add 9 record"tiradas2"data
set flag "semi2"true
track last split for 1 spins to record"s2"layout

end
if record"s2"layout won each begin
clear record"tiradas2"data
add 18 record"tiradas2"data
set flag "pleno2"true
track last number for 1 spins to record"n2"layout
end
if record"n2"layout won each begin
clear record"tiradas2"data
end
end
method "suma cajas3" begin
subtract 1 record"tiradas3"data
if record"l3"layout won each begin
add 6 record"tiradas3"data
track last number for 1 spins to record"n3"layout
if record"n3"layout =number 22 or record"n3"layout =number 25 begin
copy list [corner(22:26)] to record"c3"layout;
end else begin
copy list [corner(23:27)] to record"c3"layout;
end
end
if record"c3"layout won each begin
clear record"tiradas3"data
add 9 record"tiradas3"data
set flag "semi3"true
track last split for 1 spins to record"s3"layout

end
if record"s3"layout won each begin
clear record"tiradas3"data
add 18 record"tiradas3"data
set flag "pleno3"true
track last number for 1 spins to record"n3"layout
end
if record"n3"layout won each begin
clear record"tiradas3"data
end
end
method "suma cajas4" begin
subtract 1 record"tiradas4"data
if record"l4"layout won each begin
add 6 record"tiradas4"data
track last number for 1 spins to record"n4"layout
if record"n4"layout =number 31 or record"n4"layout =number 34 begin
copy list [corner(31:35)] to record"c4"layout;
end else begin
copy list [corner(32:36)] to record"c4"layout;
end
end
if record"c4"layout won each begin
clear record"tiradas4"data
add 9 record"tiradas4"data
set flag "semi4"true
track last split for 1 spins to record"s4"layout

end
if record"s4"layout won each begin
clear record"tiradas4"data
add 18 record"tiradas4"data
set flag "pleno4"true
track last number for 1 spins to record"n4"layout
end
if record"n4"layout won each begin
clear record"tiradas4"data
end
end

compañero, te salio un emoticono provocando un error al cargar el programa, te faltaria para poder dejarlo ok quitar el 8) y supongo que lo que va en su lugar seria el numero 8 y cierre de parentesis.

esta aclaracion es para aquellos que lo quieran probar.

saludos

No se pq salio ese emoticono,trate de editar el texto pero siempre me sale,
,

tkt escribió:No se pq salio ese emoticono,trate de editar el texto pero siempre me sale,
,

subelo a alguna pagina en lugar de pegarlo o pegalo en alguna pagina de pegar texto.

Ya esta editado, espero q ahora este bien

Siento ser yo el que tenga que comentarlo..., pero hay unas normas en el foro que se tienen que respetar.

Para la publicación de sistemas respetar en todo lo posible estas instrucciones:
Título del tema: (ejemplo) [** Sistéma xxxx]
[clasificación propia medida en asteriscos *, mínimo *, máximo ***** ]
[nombre del sistema]
Un primer post, con la descripción del sistema y
Un segundo post, con el código.

Si lo que se publica es un sistema, lo que va en ese hilo es el código del sistema con su titulo valorado y demás como estaba explicado en las anteriores normas, con un hilo paralelo en Ruleta -> Sistemas, donde se pueda preguntar y debatir sobre el.

La idea es que en sistemas se encuentren rápidamente todos los sistemas de juego publicados, así como sus debates pruebas etc, y en el foro de rx simplemente la programación de este si es que el sistema esta programado, con esto conseguiremos mantener todas las dudas en un solo hilo en lugar de dos.

Cualquier sistema publicado en RX sin su correspondiente sistema en el foro de sistemas sera borrado.

Los hilos de un sistema dentro de este foro de RX serán para preguntas/comentarios de RX, las preguntas/comentarios sobre el sistema en si irán en el foro de sistemas, dentro del hilo del sistema en si.

Por favor, deberíais realizar el hilo correspondiente en Ruleta-->Sistemas-->Multiples
con la explicación detallada del sistema y cumplir con el resto de Normas.

Perdon, no me di cuenta.
El procedimiento correcto, es como lo detalla astie.

Es recomendable por el bien de todos intentar respetar las normas.

Saludos