method "main"
begin
While Starting a New Session
begin
Call "Parametri"
Set list [0,1,2,3,4,4,3,2,1,1,0] Record "Row00" data
Set list [1,0,1,3,4,4,4,3,2,1,0] Record "Row01" data
Set list [2,1,0,2,3,4,5,4,3,2,0] Record "Row02" data
Set list [3,3,2,0,2,4,5,6,5,3,1] Record "Row03" data
Set list [4,4,3,2,0,2,5,7,7,5,2] Record "Row04" data
Set list [4,4,4,4,2,0,3,7,9,8,4] Record "Row05" data
Set list [3,4,5,5,5,3,0,5,9,11,8] Record "Row06" data
Set list [2,3,4,6,7,7,5,0,8,15,15] Record "Row07" data
Set list [1,2,3,5,7,9,9,8,0,15,30] Record "Row08" data
Set list [1,1,2,3,5,8,11,15,15,0,61] Record "Row09" data
Set list [0,0,0,1,2,4,8,15,30,61,0] Record "Row10" data
put 0 record "ContaColpi" data
put 1 Record "H_Ref" data
put 1 record "V_ref" data
end
While each Spin
begin
Call "risultati"
copy last number record "UltimoN" layout
if record "Chance" data = 1
begin
track last Red-Black 1 record "Last_chance" layout
copy Red record "C1" layout
copy Black Record "C2" layout
end
if record "Chance" data = 2
begin
track last Low-High 1 record "Last_chance" layout
copy Low record "C1" layout
copy High Record "C2" layout
end
if record "Chance" data = 3
begin
track last Even-Odd 1 record "Last_chance" layout
copy Even record "C1" layout
copy Odd Record "C2" layout
end
Call "Assegna"
Call "Punta"
add 1 record "ContaColpi" data
end
end
Method "Risultati"
begin
add 100% net to record "Cassa" data
if record "H_Ref" data > 11
or record "V_Ref" data > 11
begin
call "Inizializza"
return
end
if record "H_Ref" data > 10
and record "V_Ref" data > 10
begin
call "Inizializza"
return
end
end
method "Assegna"
begin
clear record "Temp" Data
if Record "C1" Layout hit each
begin
add 1 Record "H_Ref" data
end
if Record "C2" Layout hit each
begin
add 1 record "V_Ref" data
end
if record "UltimoN" layout = Number 0
begin
If Record "H_Ref" data > record "V_Ref" data
begin
add 1 record "V_Ref" data
end
If Record "V_Ref" data > record "H_Ref" data
begin
add 1 Record "H_Ref" data
end
end
// Trova la corrispondenza incrociando i valori
If record "V_Ref" data = 1
begin
duplicate Record "Row00" Record "Temp"
return
end
If record "V_Ref" data = 2
begin
duplicate Record "Row01" Record "Temp"
return
end
If record "V_Ref" data = 3
begin
duplicate Record "Row02" Record "Temp"
return
end
If record "V_Ref" data = 4
begin
duplicate Record "Row03" Record "Temp"
return
end
If record "V_Ref" data = 5
begin
duplicate Record "Row04" Record "Temp"
return
end
If record "V_Ref" data = 6
begin
duplicate Record "Row05" Record "Temp"
return
end
If record "V_Ref" data = 7
begin
duplicate Record "Row06" Record "Temp"
return
end
If record "V_Ref" data = 8
begin
duplicate Record "Row07" Record "Temp"
return
end
If record "V_Ref" data = 9
begin
duplicate Record "Row08" Record "Temp"
return
end
If record "V_Ref" data = 10
begin
duplicate Record "Row09" Record "Temp"
return
end
If record "V_Ref" data = 11
begin
duplicate Record "Row10" Record "Temp"
return
end
end
method "Punta"
begin
put 100% Record "H_Ref" data record "Temp" Data index
If Record "H_Ref" data > record "V_Ref" data
begin
put 100% record "Temp" Data Record "C1" Layout
end
If Record "H_Ref" data < record "V_Ref" data
begin
put 100% record "Temp" Data Record "C2" Layout
end
end
method "Parametri"
begin
Group
begin
Input Dropdown "Quali combinazioni vuoi giocare?
1:= Rosso / Nero
2:= Manque / Passe
3:= Pari / Dispari"
to record "Chance" data
input data "Numero di pezzi da puntare ? " record "Chip" data
end
end
method "Inizializza"
begin
Add 1 record "Partita" data index
add 100% record "Cassa" data record "Partita" data
put 0 record "Cassa" data
put 0 record "ContaColpi" data
put 1 Record "H_Ref" data
put 1 record "V_ref" data
exit
end
partendo da una cosa del genere
begin
While Starting a New Session
begin
Call "Parametri"
Set list [0,1,2,3,4,4,3,2,1,1,0] Record "Row00" data
Set list [1,0,1,3,4,4,4,3,2,1,0] Record "Row01" data
Set list [2,1,0,2,3,4,5,4,3,2,0] Record "Row02" data
Set list [3,3,2,0,2,4,5,6,5,3,1] Record "Row03" data
Set list [4,4,3,2,0,2,5,7,7,5,2] Record "Row04" data
Set list [4,4,4,4,2,0,3,7,9,8,4] Record "Row05" data
Set list [3,4,5,5,5,3,0,5,9,11,8] Record "Row06" data
Set list [2,3,4,6,7,7,5,0,8,15,15] Record "Row07" data
Set list [1,2,3,5,7,9,9,8,0,15,30] Record "Row08" data
Set list [1,1,2,3,5,8,11,15,15,0,61] Record "Row09" data
Set list [0,0,0,1,2,4,8,15,30,61,0] Record "Row10" data
put 0 record "ContaColpi" data
put 1 Record "H_Ref" data
put 1 record "V_ref" data
end
While each Spin
begin
Call "risultati"
copy last number record "UltimoN" layout
if record "Chance" data = 1
begin
track last Red-Black 1 record "Last_chance" layout
copy Red record "C1" layout
copy Black Record "C2" layout
end
if record "Chance" data = 2
begin
track last Low-High 1 record "Last_chance" layout
copy Low record "C1" layout
copy High Record "C2" layout
end
if record "Chance" data = 3
begin
track last Even-Odd 1 record "Last_chance" layout
copy Even record "C1" layout
copy Odd Record "C2" layout
end
Call "Assegna"
Call "Punta"
add 1 record "ContaColpi" data
end
end
Method "Risultati"
begin
add 100% net to record "Cassa" data
if record "H_Ref" data > 11
or record "V_Ref" data > 11
begin
call "Inizializza"
return
end
if record "H_Ref" data > 10
and record "V_Ref" data > 10
begin
call "Inizializza"
return
end
end
method "Assegna"
begin
clear record "Temp" Data
if Record "C1" Layout hit each
begin
add 1 Record "H_Ref" data
end
if Record "C2" Layout hit each
begin
add 1 record "V_Ref" data
end
if record "UltimoN" layout = Number 0
begin
If Record "H_Ref" data > record "V_Ref" data
begin
add 1 record "V_Ref" data
end
If Record "V_Ref" data > record "H_Ref" data
begin
add 1 Record "H_Ref" data
end
end
// Trova la corrispondenza incrociando i valori
If record "V_Ref" data = 1
begin
duplicate Record "Row00" Record "Temp"
return
end
If record "V_Ref" data = 2
begin
duplicate Record "Row01" Record "Temp"
return
end
If record "V_Ref" data = 3
begin
duplicate Record "Row02" Record "Temp"
return
end
If record "V_Ref" data = 4
begin
duplicate Record "Row03" Record "Temp"
return
end
If record "V_Ref" data = 5
begin
duplicate Record "Row04" Record "Temp"
return
end
If record "V_Ref" data = 6
begin
duplicate Record "Row05" Record "Temp"
return
end
If record "V_Ref" data = 7
begin
duplicate Record "Row06" Record "Temp"
return
end
If record "V_Ref" data = 8
begin
duplicate Record "Row07" Record "Temp"
return
end
If record "V_Ref" data = 9
begin
duplicate Record "Row08" Record "Temp"
return
end
If record "V_Ref" data = 10
begin
duplicate Record "Row09" Record "Temp"
return
end
If record "V_Ref" data = 11
begin
duplicate Record "Row10" Record "Temp"
return
end
end
method "Punta"
begin
put 100% Record "H_Ref" data record "Temp" Data index
If Record "H_Ref" data > record "V_Ref" data
begin
put 100% record "Temp" Data Record "C1" Layout
end
If Record "H_Ref" data < record "V_Ref" data
begin
put 100% record "Temp" Data Record "C2" Layout
end
end
method "Parametri"
begin
Group
begin
Input Dropdown "Quali combinazioni vuoi giocare?
1:= Rosso / Nero
2:= Manque / Passe
3:= Pari / Dispari"
to record "Chance" data
input data "Numero di pezzi da puntare ? " record "Chip" data
end
end
method "Inizializza"
begin
Add 1 record "Partita" data index
add 100% record "Cassa" data record "Partita" data
put 0 record "Cassa" data
put 0 record "ContaColpi" data
put 1 Record "H_Ref" data
put 1 record "V_ref" data
exit
end
partendo da una cosa del genere