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