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