Binario8.dgt
( Nardolio | laroulette.it ) Trasformazione dei numeri usciti in binari a base 8 prendendo come riferimento i valori opposti delle chance semplici e calcolandone i totali dopo tre colpi su tre direzioni.
Binario8.dgt
—
Xtreme,
16 KB (16958 bytes)
Contenuto del file
system "Binario 8"
{Creato da: nardolio
Xtremizzato da: laRoulette.it
Il programma crea per ogni numero uscito un numero binario corrispodente ai segni delle chance.
Dopo tre numeri si vede quali sono i numeri binari più usciti e si mettono in gioco per il
colpo successivo
Informazioni sul sistema nel sito www.laroulette.it
}
method "main"
begin
While Starting new Session
begin
put 0 record "K1" data
put 0 record "K2" data
put 0 record "K3" data
put 0 record "K4" data
put 0 record "K5" data
put 0 record "K6" data
put 0 record "K7" data
put 0 record "K8" data
put 0 record "K9" data
Set list [0,0,0,0,0,0,0,0] record "Totali" data
Copy List [red,odd,low,red,odd,high,red,even,low,red,even,high,
black,odd,low,black,odd,high,black,even,low,black,even, high] record "Serie" layout
put 1 record "Progressione" Data
end
While On each Spin
begin
If flag "Punta" true
begin
Call "Risultato"
end
If number 0 not hit each
begin
Add 1 record "ContaColpi" data
end
Call "Aggiorna"
Call "Verifica"
Call "Punta"
end
end
method "Risultato"
begin
// Controlla se ha vinto parzialmente e diminuisce la progression
If net = record "Progressione" Data
begin
Subtract 1 record "Progressione" data
if record "Progressione" Data <=1
begin
put 1 record "Progressione" Data
end
end
else //Controlla se ha perso e aumenta la progressione
begin
Put -100% record "Progressione" data record "temp" data
If net = record "temp" data
begin
Add 1 record "Progressione" Data
end
else
begin
If net > record "Progressione" Data
begin // se ha vinto tutto aggiotna la cassa jolly
add 100% net record "CassaJolly" data
Subtract 1 record "Progressione" data
if record "Progressione" Data <=1
begin
put 1 record "Progressione" Data
end
end
Else //se ha perso tutto aggiorna la cassa Jolly
begin
add 100% net record "CassaJolly" data
add 1 record "Progressione" Data
end
end
end
Add 100% net record "Cassa" data
{ Routine per riazzerare la progressione se l'attacco parziale è finito in vincita
If record "Cassa" data >0
And net >0
begin
Put 1 record "Progressione" data
Put 0 record "Cassa" data
end }
end
method "Verifica"
begin //Assegna al numero uscito i valori binari delle chance
If red hit each
begin
put 0 record "K7" data
end
If black hit each
begin
put 1 record "K7" data
end
If odd hit each
begin
put 0 record "K8" data
end
If even hit each
begin
put 1 record "K8" data
end
If low hit each
begin
put 0 record "K9" data
end
If high hit each
begin
put 1 record "K9" data
end
// controlla se sono uscite tre chance
If record "ContaColpi" data <3
begin
return
end
// Aggiunge il totale ad ognuno degli 8 numeri binari
// Binario 1---------------------
if record "K1" Data = 0
begin
If record "K2" Data = 0
begin
If record "K3" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K3" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K2" Data = 0
begin
If record "K3" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K3" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 2---------------------
if record "K4" Data = 0
begin
If record "K5" Data = 0
begin
If record "K6" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K6" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K5" Data = 0
begin
If record "K6" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K6" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 3---------------------
if record "K7" Data = 0
begin
If record "K8" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K9" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K8" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K9" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 4---------------------
if record "K1" Data = 0
begin
If record "K4" Data = 0
begin
If record "K7" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K7" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K4" Data = 0
begin
If record "K7" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K7" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 5---------------------
if record "K2" Data = 0
begin
If record "K5" Data = 0
begin
If record "K8" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K8" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K5" Data = 0
begin
If record "K8" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K8" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 6---------------------
if record "K3" Data = 0
begin
If record "K6" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K9" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K6" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K9" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 7---------------------
if record "K1" Data = 0
begin
If record "K5" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K9" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K5" Data = 0
begin
If record "K9" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K3" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
// Binario 8---------------------
if record "K3" Data = 0
begin
If record "K5" Data = 0
begin
If record "K7" data =0
begin
Add 1 record "000" data
end
else
begin
Add 1 record "001" data
end
end
else
begin
If record "K7" data =0
begin
Add 1 record "010" data
end
else
begin
Add 1 record "011" data
end
end
end
else
begin
If record "K5" Data = 0
begin
If record "K7" data =0
begin
Add 1 record "100" data
end
else
begin
Add 1 record "101" data
end
end
else
begin
If record "K7" data =0
begin
Add 1 record "110" data
end
else
begin
Add 1 record "111" data
end
end
end
//-- Assegna i totali di ogni binario al record totali
Put 1 record "Totali" Data index
Put 100% record "000" data record "Totali" data
Put 2 record "Totali" Data index
Put 100% record "001" data record "Totali" data
Put 3 record "Totali" Data index
Put 100% record "010" data record "Totali" data
Put 4 record "Totali" Data index
Put 100% record "011" data record "Totali" data
Put 5 record "Totali" Data index
Put 100% record "100" data record "Totali" data
Put 6 record "Totali" Data index
Put 100% record "101" data record "Totali" data
Put 7 record "Totali" Data index
Put 100% record "110" data record "Totali" data
Put 8 record "Totali" Data index
Put 100% record "111" data record "Totali" data
// Guarda se si deve puntare e assegna l''indice per la puntata
Put 0 to record "Max" data
put 1 record "Totali" Data index
loop until record "Totali" Data index> record "Totali" Data count
begin
if record "Totali" Data = Record "Max" data
begin
set flag "Punta" False
end
if record "Totali" Data > Record "Max" data
begin
Put 100% record "Totali" Data Record "Max" data
Put 100% record "Totali" data index record "BinarioX" data
Set flag "Punta" True
end
add 1 record "Totali" Data index
end
end
method "Punta"
begin
// Determina le combinazioni da puntare in base all'indice
Put 300% record "BinarioX" data record "Ref" data
Subtract 2 record "Ref" Data
Put 100% record "Ref" data record "Serie" layout index
If flag "Punta" True
begin
Put 100% record "Progressione" Data record "Serie" layout
add 1 record "Serie" layout index
Put 100% record "Progressione" Data record "Serie" layout
add 1 record "Serie" layout index
Put 100% record "Progressione" Data record "Serie" layout
end
end
Method "Aggiorna"
begin //Sposta le serie dei numeri usciti per avere sempre gli ultimi 3
If number 0 not hit each
begin
Put 100% record "K4" data record "K1" data
Put 100% record "K5" data record "K2" data
Put 100% record "K6" data record "K3" data
Put 100% record "K7" data record "K4" data
Put 100% record "K8" data record "K5" data
Put 100% record "K9" data record "K6" data
end
Clear record "000" data
Clear record "001" data
Clear record "010" data
Clear record "011" data
Clear record "100" data
Clear record "101" data
Clear record "110" data
Clear record "111" data
End
