Paracaídas a un Puntero de Manrique

Bueno, lo que hace es un paracaídas a UN NUMERO (en este caso, el 13) que se ha repetido 4 veces en las últimas 36 bolas). Vuelve a empezar con cada acierto colateral, salvo que ya lleve 30 bolas apostando sin que salga el número.

No sé si haciendo varios paracaídas a la vez este sistema funcionará, pero los resultados de las pruebas que he hecho con esta programación (o sea, con un solo paracaídas a la vez) dejan bastante que desear.

Mi opinión es que el método de selección no es bueno. Esperaba mucho más, desde luego...

Igualmente, puede que no haya hecho suficientes pruebas.

system "Paracaidas a un Puntero de Manrique"

{
Se trata de hacer un paracaídas a un número que haya salido 4 veces en las últimas 36 bolas.
Se reinicia la progresión con cada acierto "colateral" (se sigue buscando el número), pero si este acierto se produce cuando ya llevamos 30 bolas buscándolo, se deja de apostar.

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.
}


method "main"
begin


// LE DIGO QUE EXISTE EL METHOD "ACIERTO"

call "ACIERTO"


// EN CADA BOLA, AÑADIRÁ "1" EN record"SPIN-COUNT"data

while on each spin
begin
add 1 to record"SPIN-COUNT"data
end


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

if number 13 has hit each time
begin
add 1 to record"SALIDA"data
end


// SI record"SALIDA"data ES MENOR QUE 1 (O SEA, SI EL NÚMERO xx NO HA SALIDO)
// BORRARÁ EL CONTENIDO DE record"SPIN-COUNT"data (para que empiece a contar cuando salga el número xx)

if record"SALIDA"data < 1
begin
clear record"SPIN-COUNT"data
end


// SI record"SPIN-COUNT"data ES MAYOR QUE 36 (O SEA, QUE SE HA PASADO DE TRAMO)
// BORRARÁ EL CONTENIDO DE record"SPIN-COUNT"data
// BORRARÁ EL CONTENIDO DE record"SALIDA"data
// Esto puede hacer que se pierdan oportunidades de apuesta (ya que se borran todas las salidas del número xx), pero no he encontrado otra forma de configurarlo

if record"SPIN-COUNT"data > 36
begin
clear record"SPIN-COUNT"data
clear record"SALIDA"data
end


// CUANDO record"SPIN-COUNT"data PONGA "36" Y record"SALIDA"data PONGA "4"
// O SEA, QUE EL NÚMERO xx HA SALIDO 4 VECES EN 36 BOLAS

if record"SPIN-COUNT"data <= 36 and record"SALIDA"data = 4
begin


// BORRARÁ EL CONTENIDO DE record"SPIN-COUNT"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"SPIN-COUNT"data
clear record"SALIDA"data
put 1 unit on 2nd dozen
end


// APOSTARÁ 3 BOLAS A LA SEISENA

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


// APOSTARÁ 3 BOLAS AL CUADRO

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


// APOSTARÁ 3 BOLAS A LA CALLE

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


// APOSTARÁ 6 BOLAS AL SEMIPLENO

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


// APOSTARÁ 18 BOLAS AL PLENO

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


method "ACIERTO"
begin


// SI GANA UNA APUESTA Y EL NÚMERO xx NO HA SALIDO (O SEA, SI ES UN ACIERTO "COLATERAL")
// PONDRÁ 35 EN record"SPIN-COUNT"data (tiene que ser menos de 36, porque la primera sentencia del programa le añadirá 1)
// PONDRÁ "4" EN record"SALIDA"data
// Para que comience a apostar otra vez, ya que el número que buscamos aun no ha salido

if net > 0 and number 13 has not hit each time
begin
put 35 on record"SPIN-COUNT"data
put 4 on record"SALIDA"data
end


// SI GANA UNA APUESTA Y EL NÚMERO xx NO HA SALIDO, PERO HACE MAS DE 30 BOLAS QUE NO SALE
// PONDRÁ 36 EN record"SPIN-COUNT"data (para que una sentencia del principio reinicie los 2 contadores)
// BORRARÁ EL CONTENIDO DE record"SALIDA"data
// Con esto evitamos que acabe apostando durante muchas bolas si se suceden varios aciertos "colaterales"

if net > 0 and number 13 has not hit between 0 to 30 spins
begin
put 36 on record"SPIN-COUNT"data
clear record"SALIDA"data
end


// SI GANA UNA APUESTA Y EL NÚMERO xx HA SALIDO
// PONDRÁ 36 EN record"SPIN-COUNT"data (para que una sentencia del principio reinicie los 2 contadores, y no registre esta salida del número xx)
// BORRARÁ EL CONTENIDO DE record"SALIDA"data
// Con todo esto conseguimos que no comience a apostar otra vez, que se ponga a 0 el contador de bolas y que no se registre la salida del número

if net > 0 and number 13 has hit each time
begin
put 36 on record"SPIN-COUNT"data
clear record"SALIDA"data
end
End