system "Zechnas El Carpio 1989 Inverso v1.0"
{
Record permanencias seguidas sin perder: 25
}
method "main"
begin
while starting a new session begin
set list [1,2,3,4,5,6,7] to Record "apuesta" Data
put 1 en record "apuesta" data index;
Input Dropdown
" /___________[ Zechnas ]______________/
[ Ayudando a mejorar el juego ]/
==============================
Comenzamos. SELECCIONE APUESTAS:
1:= Negro - Columna C
2:= Rojo - Columna B " en record "chances" data; end
if net > 0 begin
put 1 en record "apuesta" data index;
Input Dropdown
"/___________[ Zechnas ]______________/
[ Ayudando a mejorar el juego ]/
==============================
¡¡ Ha ganado !!. SELECCIONE APUESTAS:
1:= Negro - Columna C
2:= Rojo - Columna B " en record "chances" data; end
if net < 0 begin add 1 record "apuesta" data index; end
if record "apuesta" data index > 7 begin
put 1 en record "apuesta" data index;
Input Dropdown
"/___________[ Zechnas ]______________/
[ Ayudando a mejorar el juego ]/
==============================
Ha superado el lÃmite de apuestas.
SELECCIONE APUESTAS:
1:= Negro - Columna C
2:= Rojo - Columna B " en record "chances" data; end
If record "chances" data = 1 begin
put 100% del record "apuesta" data en List[black,column c]; end
If record "chances" data = 2 begin
put 100% del record "apuesta" data en List[Red,column b]; end
End