Paracaidas de Manrique a Números recién Despertados

Buenas a todos !!!

Después de quemarme las pestañas durante varias horas, he conseguido programar un paracaídas a números que se han despertado después de 3 universos...

Bueno, lo cierto es que lo que he hecho es modificar el que ya estaba colgado (por Zechnas), así que está hecho para el número 13, pero se puede modificar para cualquier número, o todos a la vez...

¿Os interesa que lo cuelgue?

Bueno, creo que procede colgarlo aquí... Si no es así, que proceda el adm a borrarlo, xD

Por cierto: tiene mas errores, aunque ya los he arreglado.
Como está pegado arriba no reinicia correctamente. Cuando el número sale sigue apostando (aparte de que está mal la docena).

Así que el admin puede borrarlo (lo siento, :$), subo la versión correcta...

Por cierto 2 (xD): FUNCIONA !!!

Cuando lo hayas cambiado por el corregido nos lo haces saber. Si acaso que el moderador te lo cambie por el corregido para que la gente no copie el primero.

A ver si algun dia aprendo, a primera vista no parece demasiado complicado, sabiendo para que sirve cada frase, como esa "tiene not hit" que me hace gracia y que debe decir "no acertó" o algo así.

De momento intento programar algo en excel, no para encontrar un sistema perfecto sino para sacar estadisticas de sistemas o ejercicios de conceptos. Me gusta mucho el RX, eso sí, para rapidez, el excel, te tira cien mil bolas, entre 1 y 2 segundos. Supongo que depende de la potencia del Procesador del PC. El mío, un Intel Core i5-2320, 3.00 GHz, 64 bits, y 6 GB de RAM.

saludos y gracias por subirlo.

Buenas otra vez !!!

Pues Arbo, yo no tengo ni idea de programar, aunque si que sé bastante de informática. En Excel no sabría hacerlo, aunque todo es ponerse.

Lo he conseguido utilizando otros sistemas como plantilla (en este caso, el que programó Zechnas), leyendome el tutorial de Astier y la ayuda del programa (que vaya traducción, por cierto, xD) y haciendo muchas pruebas (mirando el historial de apuestas)...

Bueno, aquí va la versión final, y espero que definitiva:

system "Paracaidas de Manrique a Números recién Despertados"

{
Se trata de hacer un paracaídas a los números que acaben de salir, luego de haber estado al menos 3 universos (111 bolas) "dormidos".

Hay un pequeño cambio con respecto al paracaídas original: se empieza con una tirada a la docena que contiene el número y tres a la seisena (en lugar de cuatro a la seisena). Creo que ese cambio sigue el espíritu de la progresión, aunque es comprensible que se empiece en la seisena cuando se hace más de un paracaídas al mismo tiempo.

Por otra parte, se reinicia la progresión con cada acierto "colateral", tal como recomendaba Manrique, pero sin dejar de seguir al número.
}


method "main"
begin

// LE DIGO QUE EXISTE EL METHOD "Acierto"

call "Acierto"

// SI EL NÚMERO xx NO SALE EN 111 BOLAS, BORRARÁ EL CONTENIDO DE record"SALIDA"data
// Y PONDRÁ "111" EN record"ATRASO"data

if number 13 tiene not hit en 111 bolas
begin
clear record"SALIDA"data
put 111 en record"ATRASO"data
end

// CUANDO SALGA EL NÚMERO xx AÑADIRÁ "1" EN record"SALIDA"data
// (en el paso anterior lo hemos borrado porque si no comenzaría a apostar al llegar a las 111 bolas, sin esperar a que salga)

if number 13 hit 1 time
begin
add 1 en record"SALIDA"data
end

// CUANDO record"ATRASO"data PONGA "111" (O SEA, QUE EL NÚMERO xx LLEVABA AL MENOS 111 BOLAS SIN SALIR)
// Y record"SALIDA"data PONGA "1" (O SEA, QUE HA SALIDO UNA VEZ DESDE SU "APALANQUE")

if record"ATRASO"data = 111 and record"SALIDA"data = 1
begin

// BORRARÁ EL CONTENIDO DE record"ATRASO"data Y record"SALIDA"data (porque si no luego comenzaría a apostar sin que se dieran las condiciones)
// APOSTARÁ 1 BOLA A LA DOCENA

clear record"ATRASO"data
clear record"SALIDA"data
put 1 ficha en 2nd dozen
end

// APOSTARÁ 3 BOLAS A LA SEISENA

if 2nd dozen has lost 1
begin
put 1 ficha en line(13-18)
end
if line(13-18) has lost 1
begin
put 1 ficha en line(13-18)
end
if line(13-18) has lost 2
begin
put 1 ficha en line(13-18)
end

// APOSTARÁ 3 BOLAS AL CUADRO

if line(13-18) has lost 3
begin
put 1 ficha en corner(13:17)
end
if corner(13:17) has lost 1
begin
put 1 ficha en corner(13:17)
end
if corner(13:17) has lost 2
begin
put 1 ficha en corner(13:17)
end

// APOSTARÁ 3 BOLAS A LA CALLE

if corner(13:17) has lost 3
begin
put 1 ficha en street(13-15)
end
if street(13-15) has lost 1
begin
put 1 ficha en street(13-15)
end
if street(13-15) has lost 2
begin
put 1 ficha en street(13-15)
end

// APOSTARÁ 6 BOLAS AL SEMIPLENO

if street(13-15) has lost 3
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 1
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 2
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 3
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 4
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 5
begin
put 1 ficha en split(13-14)
end

// APOSTARÁ 18 BOLAS AL PLENO

if split(13-14) has lost 6
begin
put 1 ficha en number 13
end
if number 13 has lost 1
begin
put 1 ficha en number 13
end
if number 13 has lost 2
begin
put 1 ficha en number 13
end
if number 13 has lost 3
begin
put 1 ficha en number 13
end
if number 13 has lost 4
begin
put 1 ficha en number 13
end
if number 13 has lost 5
begin
put 1 ficha en number 13
end
if number 13 has lost 6
begin
put 1 ficha en number 13
end
if number 13 has lost 7
begin
put 1 ficha en number 13
end
if number 13 has lost 8
begin
put 1 ficha en number 13
end
if number 13 has lost 9
begin
put 1 ficha en number 13
end
if number 13 has lost 10
begin
put 1 ficha en number 13
end
if number 13 has lost 11
begin
put 1 ficha en number 13
end
if number 13 has lost 12
begin
put 1 ficha en number 13
end
if number 13 has lost 13
begin
put 1 ficha en number 13
end
if number 13 has lost 14
begin
put 1 ficha en number 13
end
if number 13 has lost 15
begin
put 1 ficha en number 13
end
if number 13 has lost 16
begin
put 1 ficha en number 13
end
if number 13 has lost 17
begin
put 1 ficha en number 13
end
End


// SI GANA UNA APUESTA
// AÑADIRÁ "1" EN record"SALIDA"data
// PONDRÁ "111" EN record"ATRASO"data
// Para que comience a apostar otra vez, aunque el acierto pueda ser "colateral" o no.
// Si ha salido nuestro número no comenzará de nuevo, porque una de las sentencias del principio también añadirá 1 en record"SALIDA"data (quedándose en 2, xD)

method "Acierto"
begin
if net > 0
begin
put 111 en record"ATRASO"data
add 1 en record"SALIDA"data
end
End

Recuerdo que:

https://ruleteros.variousforum.com/t200-normas-para-publicar-sistemas

https://ruleteros.variousforum.com/t407-normas-foro-rx

Se agradece ceñirse en lo posible a las normas para mayor facilidad a la hora de búsquedas y comparaciones.

Ya, Arquitekto, por eso te he preguntado si podía colgarlo...
Pero después me ha parecido que no hacía falta todo eso en este caso, ya que es un paracaídas normal, solo que con un criterio de selección específico...

Perdoname si la estoy liando... No era mi intención en absoluto...

Pues es para matarme, pero tiene otro error...

Después de esto:

if number 13 hit 1 time
begin
add 1 en record"SALIDA"data
end

Hay que agegar esto:

if number 13 hit 2 time
begin
add 1 en record"SALIDA"data
end

Igualmente, las estadísticas apenas cambian.
Si no está esa sentencia, vuelve a empezar la progresión si el número sale en la primera tirada (solo en la primera, por eso no lo había detectado)

Bueno, ahora si que ya está...
Espero que Arquitekto no me odie... aun, xD

Venga, saludos !!!

Bueno, versión final...

Agregando la sentencia anterior hace lo mismo, pero he encontrado una mas adecuada, así que allí va:

system "Paracaidas de Manrique a Números recién Despertados"

{
Se trata de hacer un paracaídas a los números que acaben de salir, luego de haber estado al menos 3 universos (111 bolas) "dormidos".

Hay un pequeño cambio con respecto al paracaídas original: se empieza con una tirada a la docena que contiene el número y tres a la seisena (en lugar de cuatro a la seisena). Creo que ese cambio sigue el espíritu de la progresión, aunque es comprensible que se empiece en la seisena cuando se hace más de un paracaídas al mismo tiempo.

Por otra parte, se reinicia la progresión con cada acierto "colateral", tal como recomendaba Manrique, pero sin dejar de seguir al número.
}


method "main"
begin


// SI EL NÚMERO xx NO SALE EN 111 BOLAS
// BORRARÁ EL CONTENIDO DE record"SALIDA"data (porque si no comenzaría a apostar al llegar a las 111 bolas, sin esperar a que salga)
// Y PONDRÁ "111" EN record"ATRASO"data

if number 13 tiene not hit en 111 bolas
begin
clear record"SALIDA"data
put 111 en record"ATRASO"data
end


// SI GANA UNA APUESTA
// PONDRÁ "111" EN record"ATRASO"data
// AÑADIRÁ "1" EN record"SALIDA"data
// Para que comience a apostar otra vez, aunque el acierto pueda ser "colateral" o no.
// Si ha salido nuestro número no comenzará de nuevo, porque la siguiente sentencia también añadirá 1 en record"SALIDA"data (quedándose en 2, xD)

if net > 0
begin
put 111 en record"ATRASO"data
add 1 en record"SALIDA"data
end


// SI EL NÚMERO xx SALE EN LA ÚLTIMA BOLA
// AÑADIRÁ "1" EN record"SALIDA"data

if number 13 tiene hit each time
begin
add 1 en record"SALIDA"data
end


// CUANDO record"ATRASO"data PONGA "111" (O SEA, QUE EL NÚMERO xx LLEVABA AL MENOS 111 BOLAS SIN SALIR)
// Y record"SALIDA"data PONGA "1" (O SEA, QUE HA SALIDO UNA VEZ DESDE SU "APALANQUE")

if record"ATRASO"data = 111 and record"SALIDA"data = 1
begin


// BORRARÁ EL CONTENIDO DE record"ATRASO"data Y record"SALIDA"data (porque si no luego comenzaría a apostar sin que se dieran las condiciones)
// APOSTARÁ 1 BOLA A LA DOCENA

clear record"ATRASO"data
clear record"SALIDA"data
put 1 ficha en 2nd dozen
end


// APOSTARÁ 3 BOLAS A LA SEISENA

if 2nd dozen has lost 1
begin
put 1 ficha en line(13-18)
end
if line(13-18) has lost 1
begin
put 1 ficha en line(13-18)
end
if line(13-18) has lost 2
begin
put 1 ficha en line(13-18)
end


// APOSTARÁ 3 BOLAS AL CUADRO

if line(13-18) has lost 3
begin
put 1 ficha en corner(13:17)
end
if corner(13:17) has lost 1
begin
put 1 ficha en corner(13:17)
end
if corner(13:17) has lost 2
begin
put 1 ficha en corner(13:17)
end


// APOSTARÁ 3 BOLAS A LA CALLE

if corner(13:17) has lost 3
begin
put 1 ficha en street(13-15)
end
if street(13-15) has lost 1
begin
put 1 ficha en street(13-15)
end
if street(13-15) has lost 2
begin
put 1 ficha en street(13-15)
end


// APOSTARÁ 6 BOLAS AL SEMIPLENO

if street(13-15) has lost 3
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 1
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 2
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 3
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 4
begin
put 1 ficha en split(13-14)
end
if split(13-14) has lost 5
begin
put 1 ficha en split(13-14)
end


// APOSTARÁ 18 BOLAS AL PLENO

if split(13-14) has lost 6
begin
put 1 ficha en number 13
end
if number 13 has lost 1
begin
put 1 ficha en number 13
end
if number 13 has lost 2
begin
put 1 ficha en number 13
end
if number 13 has lost 3
begin
put 1 ficha en number 13
end
if number 13 has lost 4
begin
put 1 ficha en number 13
end
if number 13 has lost 5
begin
put 1 ficha en number 13
end
if number 13 has lost 6
begin
put 1 ficha en number 13
end
if number 13 has lost 7
begin
put 1 ficha en number 13
end
if number 13 has lost 8
begin
put 1 ficha en number 13
end
if number 13 has lost 9
begin
put 1 ficha en number 13
end
if number 13 has lost 10
begin
put 1 ficha en number 13
end
if number 13 has lost 11
begin
put 1 ficha en number 13
end
if number 13 has lost 12
begin
put 1 ficha en number 13
end
if number 13 has lost 13
begin
put 1 ficha en number 13
end
if number 13 has lost 14
begin
put 1 ficha en number 13
end
if number 13 has lost 15
begin
put 1 ficha en number 13
end
if number 13 has lost 16
begin
put 1 ficha en number 13
end
if number 13 has lost 17
begin
put 1 ficha en number 13
end
End

Por cierto, he hecho alguna prueba sin paracaídas (para probar si el criterio de selección es bueno, como creía) y al parecer gana lo que le toca.
Tampoco he hecho pruebas suficientes porque estoy liado con los hilos de CyT, pero le tenía fe a este criterio y en principio también me ha decepcionado.

Supongo que para la mayoría de vosotros no será una sorpresa, xDDD

Resumo las normas, porque parece no quedan claras:

Los comentarios sobre un sistema van en el hilo de sistemas.
Los comentarios sobre una codificación de un sistema van en el hilo de rx.

En el apartado de rx va el código de los sistemas, y ha de llevar si o si un hilo paralelo en el apartado de sistemas, con la explicación del sistema y es donde se debate sobre el sistema.

Hilo rx -> código sistema nodoyuna
Hilo sistemas -> explicación del sistema nodoyuna
Hilo rx -> consultas, comentarios, preguntas, merjoras sobre el código del sistema nodoyuna
Hilo sistemas -> consultas, comentarios, preguntas,mejoras sobre el uso y funcionamiento sistema nodoyuna

Lo siento, Arquitekto. Ya sabes que no hay tal hilo en sistemas.

No creo que valga la pena crearlo, en este caso, pero si quieres lo hago. Por mi parte, tampoco quiero comentar nada más del "sistema". Solo hice esa puntualización con la esperanza de avivar a algún inocente.

P.D: Me ha gustado el glosario. Me alegra que también tenga sentido del humor, xDDD