Sistema Zechnas Frozen V1.0

system "Zechnas-Frozen V1.0"
{
Como se pueden ganar bastantes fichas de una forma sencilla es una realidad
con éste frío sistéma que pintó muy bien cuando lo programé.
La idea no es original, Atila, Frasco Elias..etc ya lo jugaban como forma de
entretenimiento rentable. Uds. juzgarán, pero seguro, que para obtener esas
ansiadas 5 fichas diarias, no tendran ningun problema. Las sesiones positivas
deberían ser muchas más que las que perdemos.
La ganancia que paraliza el programa se ha programado por encima de 4 Uds.
La pérdida de sesión por encima de -8 Uds.
Estos parametros son fácilmente cambiables, así como la progresión que actua
sobre el balance y que en éste caso es supersuave.
J.Zechnas/2011.
}

method "main"
begin
while starting a new session
begin
call "Iniciando";
end
call "Chequeo";
call "Apuestas";
call "Ganapierde";
end

method "iniciando"
begin
copy list [2nd dozen, line(16-21) ] to record "Figura 1" layout;
copy list [corner(2:6),corner(26:30)] to record "Figura 2" layout;
copy list [corner(8:12),corner(32:36)] to record "Figura 3" layout;
set list [1,1,1,1,1,2,2,2,2,3,3,3,4,4,5,6,7,8,9,10] record "Progresion" data;
put 1 on record "Figura 1" layout index;
put 1 on record "Figura 2" layout index;
put 1 on record "Figura 3" layout index;
end

method "Chequeo"
begin
if net > 0
begin
put 1 on record "Progresion" data index;
end

if net < 0
begin
add 1 on record "Progresion" data index;
end

if record "Progresion" data index > record "Progresion" data count
begin
put 1 on record "Progresion" data index;
end
end

method "Apuestas"
begin
put 100% record "Progresion" data on record "Figura 1" layout;
put 100% record "Progresion" data on record "Figura 2" layout;
put 100% record "Progresion" data on record "Figura 3" layout

if record "Figura 1" layout index >= record "Figura 1" layout count
or record "Figura 2" layout index >= record "Figura 2" layout count
or record "Figura 3" layout index >= record "Figura 3" layout count

begin
put 1 on record "Figura 1" layout index;
put 1 on record "Figura 2" layout index;
put 1 on record "Figura 3" layout index
end
else
begin
add 1 on record "Figura 1" layout index;
add 1 on record "Figura 2" layout index;
add 1 on record "Figura 3" layout index;
end
end

method "Ganapierde"
begin
if bankroll > 4
begin
display " Acaba de hacer la caja prevista.
Comience otra sesión "
stop session
end

if bankroll < -8
begin
display " Acaba de perder esta sesión.
Puede comenzar otra "
stop session
end

End

cual es el sistema ?

Pásalo por Rx y lo verás como actúa.

...Después de casi una hora hablando con su vecino, un pobre viejecito octogenario, el preguntó : Como me dice Ud. que ayer estuvo hablando con su hijo en Australia y que lo veía mientras hablaba...
Cosas del Internet D. Segismundo, cosas de brujas.

El símil bien puede valer de ejemplo en el Siglo XXI...

buenas ya me explicara que sistema es este no me entero sl2

Yo si me he quedado con la copla.
Amigos gran invento ese del RX.
Lo pones en su casillero y rula solo y vas viendo el juego.
Mas facil que manejar uno de esos moviles del 4G.

Hombreee... uno que ya maneja Rx y puede disfrutar de sus ventajas.
Alguien más se comunica con tambores todavía...?