system "Zechnas- Brutus V5.0"
{
Record : 150 sesiones sin perder
Record : 100 sesiones gana 1 o + fichas antes de la bola 33
}
method "main"
begin
while starting new session
begin
put 1 record"Tamaño"data
put 100% bankroll record"Capital inicial"data
call "Proceso"
exit
end
call "Movimiento"
call "Apuesta"
call "Premio"
end
method "Apuesta"
begin
put 100% record"Tamaño"data record"Actualiza"layout list
put 100% record"Actualiza"layout index record"Actualiza indice"data
put 1 record"Actualiza"layout index
if record"Actualiza"layout = corner(22:26)
begin
if bankroll <= record"Capital inicial"data
begin
add 1 record"Tamaño"data
end else begin
put 100% bankroll record"Capital inicial"data
put 1 record"Tamaño"data
end
clear record"Actualiza"layout
put 1 record"Culebra"layout index
end else begin
put 100% record"Actualiza indice"data record"Actualiza"layout index
end
end
method "Movimiento"
begin
if record"Actualiza"layout count = 4
begin
move list up para 1 record"Actualiza"layout
end else begin
add 1 record"Actualiza"layout index
end
copy record"Culebra"layout record"Actualiza"layout
add 1 record"Culebra"layout index
end
method "Proceso"
begin
copy list [1st dozen,2nd dozen,line(10-15),line(22-27),2nd dozen,3rd dozen,
line(22-27),line(10-15),1st dozen,2nd dozen,line(22-27),2nd dozen,3rd dozen,
line(4-9),line(16-21),corner(10:14),line(28-33),corner(22:26)] record"Culebra"layout
//copy list [1st dozen,2nd dozen,line(10-15)] record"Culebra"layout
put 1 record"Culebra"layout index
end
method "Premio"
begin
if net > 0
begin
if bankroll > record"Acierto" data
begin
display "Ya obtuvo ganancia ; finalice sesión, espere unas bolas
y comience de nuevo.
J.Zechnas."
end
end
end