Sistema Zechnas One (Básico)

system "Zechnas One V1.0"
{

}
method "main"
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(13-15),street(16-18),street(19-21)]
put 4 fichas en 3rd dozen
if number 0 tiene hit en 1 bola or number 15 tiene hit en 1 bola
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(13-15),street(16-18),street(19-21)]
put 4 fichas en 3rd dozen
end

if number 23 tiene hit en 1 bola or number 24 tiene hit en 1 bola
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(16-18),street(19-21),street(22-24)]
put 4 fichas en 3rd dozen
put 0 fichas en street(13-15)
end

End

system "Zechnas - One - V2.0 by Jordi"
{
Hice lo q entendi
}
method "main"
begin
while starting a new session
begin
Call "Initialize"
Call "Input"
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "Lineas" layout list
add 1 to record "Contador" data
end
while on each spin
begin
if flag "Fase1" is true
begin
put 100% of record "Cifra1" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase1Espera" is true
begin
put 100% of record "Cifra1" data to record "Cifra" data
call "Espera"
end
else
begin
if flag "Fase2" is true
begin
put 100% of record "Cifra2" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase2Espera" is true
begin
put 100% of record "Cifra2" data to record "Cifra" data
call "Espera"
end
else
begin
if flag "Fase3" is true
begin
put 100% of record "Cifra3" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase3Espera" is true
begin
put 100% of record "Cifra3" data to record "Cifra" data
call "Espera"
end
end
end
end
end
end
end
end

Method "Apuesta"
begin
if record "Contador" data < record "Cifra" data
begin
if record "Elegida" layout has not hit each
begin
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "Lineas" layout list
end
else
begin
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "LineaExtra" layout list
end
add 1 to record "Contador" data
end
else
begin
if flag "Fase1" is true
begin
set flag "Fase1" to false
set flag "Fase1Espera" to true
put 1 to record "Contador" data
end
if flag "Fase2" is true
begin
set flag "Fase2" to false
set flag "Fase2Espera" to true
put 1 to record "Contador" data
end
if flag "Fase3" is true
begin
set flag "Fase3" to false
set flag "Fase3Espera" to true
put 1 to record "Contador" data
end
end
end

Method "Espera"
begin
if record "Contador" data < record "Cifra" data
begin
add 1 to record "Contador" data
end
else
begin
if flag "Fase1Espera" is true
begin
set flag "Fase1Espera" to false
set flag "Fase2" to true
put 0 to record "Contador" data
put 100% of record "Cifra2" data to record "Cifra" data
call "Apuesta"
end
if flag "Fase2Espera" is true
begin
set flag "Fase2Espera" to false
set flag "Fase3" to true
put 0 to record "Contador" data
put 100% of record "Cifra3" data to record "Cifra" data
call "Apuesta"
end
if flag "Fase3Espera" is true
begin
set flag "Fase3Espera" to false
set flag "Fase1" to true
put 0 to record "Contador" data
put 100% of record "Cifra1" data to record "Cifra" data
call "Apuesta"
end
end
end

Method "Initialize"
begin
set flag "Fase1" to true
set flag "Fase2" to false
set flag "Fase3" to false
set flag "Fase1Espera" to false
set flag "Fase2Espera" to false
set flag "Fase3Espera" to false
put 0 to record "Contador" data
end

Method "Input"
begin
Group
begin
Input Data "Caja" to Bankroll
Input Data "Ficha" to record "Ficha" data
Input DropDown "Elige la linea
a la q no jugaras:
1:=1.2.3
2:=4.5.6
3:=7.8.9
4:=10.11.12
5:=13.14.15
6:=16.17.18
7:=19.20.21
8:=22.23.24
9:=25.26.27
10:=28.29.30
11:=31.32.33
12:=34.35.36" to record "LineaNojugable" data
Display "3 numeros no mayores a 3"
Input Data "Primer Numero" to record "Cifra1" data
Input Data "Segund Numero" to record "Cifra2" data
Input Data "Tercer Numero" to record "Cifra3" data
end
put 100% of record "Ficha" data to record "FichaTemp" data
if record "LineaNojugable" data < 5
begin
copy 2nd dozen to record "Docena1" layout
copy 3rd dozen to record "Docena2" layout
if record "LineaNojugable" data = 1
begin
copy list [Street(4-6),Street(7-9),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(4-6),Street(7-9)] to record "LineaExtra" layout
copy list [Street(1-3)] to record "Elegida" layout
end
if record "LineaNojugable" data = 2
begin
copy list [Street(1-3),Street(7-9),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(4-6),Street(10-12)] to record "LineaExtra" layout
copy list [Street(4-6)] to record "Elegida" layout
end
if record "LineaNojugable" data = 3
begin
copy list [Street(1-3),Street(4-6),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(7-9),Street(10-12)] to record "LineaExtra" layout
copy list [Street(7-9)] to record "Elegida" layout
end
if record "LineaNojugable" data = 4
begin
copy list [Street(1-3),Street(4-6),Street(7-9)] to record "Lineas" layout
copy list [Street(4-6),Street(7-9),Street(10-12)] to record "LineaExtra" layout
copy list [Street(10-12)] to record "Elegida" layout
end
end
else
begin
if record "LineaNojugable" data <9
begin
copy 1st dozen to record "Docena1" layout
copy 3rd dozen to record "Docena2" layout
if record "LineaNojugable" data = 5
begin
copy list [Street(16-18),Street(19-21),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(16-18),Street(19-21)] to record "LineaExtra" layout
copy list [Street(13-15)] to record "Elegida" layout
end
if record "LineaNojugable" data = 6
begin
copy list [Street(13-15),Street(19-21),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(16-18),Street(22-24)] to record "LineaExtra" layout
copy list [Street(16-18)] to record "Elegida" layout
end
if record "LineaNojugable" data = 7
begin
copy list [Street(13-15),Street(16-18),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(19-21),Street(22-24)] to record "LineaExtra" layout
copy list [Street(19-21)] to record "Elegida" layout
end
if record "LineaNojugable" data = 8
begin
copy list [Street(13-15),Street(16-18),Street(19-21)] to record "Lineas" layout
copy list [Street(16-18),Street(19-21),Street(22-24)] to record "LineaExtra" layout
copy list [Street(22-24)] to record "Elegida" layout
end
end
else
begin
copy 1st dozen to record "Docena1" layout
copy 2nd dozen to record "Docena2" layout
if record "LineaNojugable" data = 9
begin
copy list [Street(28-30),Street(31-33),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(28-30),Street(31-33)] to record "LineaExtra" layout
copy list [Street(25-27)] to record "Elegida" layout
end
if record "LineaNojugable" data = 10
begin
copy list [Street(25-27),Street(31-33),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(28-30),Street(34-36)] to record "LineaExtra" layout
copy list [Street(28-30)] to record "Elegida" layout
end
if record "LineaNojugable" data = 11
begin
copy list [Street(25-27),Street(28-30),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(31-33),Street(34-36)] to record "LineaExtra" layout
copy list [Street(31-33)] to record "Elegida" layout
end
if record "LineaNojugable" data = 12
begin
copy list [Street(25-27),Street(28-30),Street(31-33)] to record "Lineas" layout
copy list [Street(28-30),Street(31-33),Street(34-36)] to record "LineaExtra" layout
copy list [Street(34-36)] to record "Elegida" layout
end
end
end
end