system "Zechnas & Prof. Bacterio V2.0"

[zechnas]

system "Zechnas & Prof. Bacterio V2.0"
{
*******************************************************************************
* Juego colaborativo a 3 apuestas:                                            *
* Una apuesta fija a linea (1-0) con progresión suave.                        *
* Una a puesta al cuadro donde se ubica la última bola salida                 *
* Una apuesta al número de la rueda 10 posiciones a derechas del último salido*
* (*) La líneaq 45 determina si queremos usar tambien progresión en las 2     *
* primeras apuestas. Por defecto (0) desactivada.                             *
*******************************************************************************
}
method "main"
begin
while starting a new session
begin
call "init";
end

call "select numbers";
call "place bets";
put 1 ficha en line(1-0)
call "line one";
call"Talega"
end

method "init"
begin
set list [1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5] on record "progression" data;
clear record "numbers" layout;
end

method "place bets"
begin
if net > 0
begin
put 1 on record "progression" data index;
end
if net < 0
begin
if record "progression" data index >= record "progression" data count
begin
put 1 on record "progression" data index;
end
else
begin
add 0 on record "progression" data index;
end
end
   
if record "numbers" layout count > 1
begin
put 100% record "progression" data on record "numbers" layout list;
end
end

//
method "line one"
begin
if line(1-0) tiene not hit more en 6 bolas
begin
add 1 ficha en line(1-0)
end
if line(1-0) tiene not hit more en 12 bolas
begin
add 1 ficha en line(1-0)
end
if line(1-0) tiene not hit more en 18 bolas
begin
add 1 ficha en line(1-0)
end
if line(1-0) tiene not hit more en  24 bolas
begin
add 1 ficha en line(1-0)
end
if line(1-0) tiene not hit more en 30 bolas
begin
add 2 ficha en line(1-0)
if line(1-0) tiene not hit more en 36 bolas
begin
add 2 ficha en line(1-0)
end
end
end
//

method "select numbers"
begin
clear record "numbers" layout;
Locate Number right 9 spins from the Last number to Record "numbers" layout;


if record "numbers" layout count > 0
begin
add 1 on record "numbers" layout index;
end
copy last corner to record "numbers" layout;
end
// Determinando si se gana y se acaba sesión.
    method "Talega"
    begin
    if net > 0
    begin
    if bankroll > record"Jornal" data
    begin
    display "


Acertó.Prosiga o marque pestaña y finalice sesión.

       , _ ,
          ( o o )
         /'` ' `'\
       |  '''''''  |
         |\\'''//|
           oo^oo........Zechnas/2013."








end
end

[zechnas]

-