6 Distanze

Contenuto del file

system "6 Distanze"
{
Sistema: 6 Distanze
Creato da: Uzzo
Xtremizzato da: LaRoulette.it
Metodo per trovare la ripetizione di una distanza uscita nei sei colpi precedenti
speigazioni dettagliate nel sito www.laroulette.it

}
method "main"
begin
    While Starting a New Session
    begin
        Put 1 record "boules" Data
        Put 1 record "pezzi" Data
        Set Flag "Gioca" False
    end

    While each Spin
    begin
//      call "controlla partite"  //gioca sessioni di 300 e si ferma a SW+96 SL -72
        Copy Last Number to Record "Ultimo" layout
        If flag "Gioca" True
        begin
            call "risultato"
        end
        if record "boules" data >1
        begin
            call "Calcola"
            add 1 record "Osserva" Data
            if record "Osserva" Data >=6
            begin
            clear Record "TempUscite" Data
            Clear Record "Da Giocare" data
                Call "verifica"
            end
        end
         //Verficia se il colpo � stato vinto o perso
        // punta se si � ancora in gioco
        If flag "Gioca" True
        begin
            call "Punta"
        end
        Copy record "Ultimo" layout record "Penultimo" Layout
        Add 1 record "boules" data
    end
end

method "Calcola"
begin
    clear record "temp" Layout
    clear Record "temp1" Layout
    clear Record "differenza" Data
    clear Record "distanza" Data
    clear Record "gap" Data

        Locate Distance between the Record "Penultimo" layout to
        record "Ultimo" layout into Record "distanza" Data
        Duplicate Record "distanza" record "gap"
        subtract 1 record "gap" data
        Locate number right Record "gap" data dal record "Penultimo" Layout nel record "temp" layout
        Locate number left Record "gap" data dal record "Penultimo" Layout nel record "temp1" layout

        //subtract 1  Record "ruota" Layout index
        add 1 Record "6Uscite" Data index
         if Record "Ultimo" Layout = record "temp" layout
         begin
            add 100% Record "distanza" Data Record "6Uscite" Data
        end
        else
        begin
           subtract 100% record "distanza" Data record "differenza" data
           add 37  record "differenza" data
           add 100% Record "differenza" Data Record "6Uscite" Data
        end
end

method "verifica"
begin
   duplicate record "6Uscite" record "TempUscite"
   put 1 Record "TempUscite" Data index
   loop until Record "TempUscite" Data index > Record "TempUscite" Data count
   begin
        If  Record "TempUscite" Data not found Record "Da giocare" Data
        begin
            add 1 record "Da giocare" Data index
            add 100% Record "TempUscite" Data Record "Da giocare" Data
            add 1 record "ContaNumeri" data
        end
        add 1 Record "TempUscite" Data index
        if Record "Da giocare" Data index =6
        begin
            set Flag "Gioca" True
            Duplicate record "Da Giocare" Record "Riferimento"
            Put 0 record "ContaNumeri" Data
            put 0 Record "Osserva" Data
            add 1 record "conta Partite" data
            //call  "fiches"
            //call "Perse di fila"
            clear Record "6Uscite" Data
            // prepara le puntate sottraendo 1 al gap
            put 1 record "Riferimento" Data index
            loop until Record "Riferimento" Data index > Record "Riferimento" Data count
            begin
                subtract 1 record "Riferimento" Data
                add 1 Record "Riferimento" Data index
            end
        end

   end
end
method "Punta"
begin

            put 1 record "Riferimento" Data index
            loop until Record "Riferimento" Data index > Record "Riferimento" Data count
            begin
                Locate number right Record "Riferimento" Data dal record "Ultimo" Layout nel record "Puntata" layout
                put 100%  record  "pezzi" Data record "Puntata" layout
                add 1 Record "Riferimento" Data index
            end
end
method "Risultato"
begin
      add 100% net Record "parziale" data
      if  Any Number Bet lost each
      begin
        add 1 to record "perse" data
         if record "perse" data >= 6
         begin
            Set flag "Gioca" false
            clear Record "perse" data
            add 1 to record "PerseConsecutive" Data
         end
      end
      if  Any Number Bet won each
      begin
          Set flag "Gioca" false
          put 0 record "PerseConsecutive" Data
          clear Record "perse" data
       end

end

method "fiches"
begin
      Put 100% bankroll record "saldo" data
      if record "saldo" Data >= -36
      begin put 1 record "pezzi" data end
      if record "saldo" Data >= -72
      and record "saldo" Data < -36
      begin put 2 record "pezzi" data end
      if record "saldo" Data >= -108
      and record "saldo" Data < -72
      begin put 3 record "pezzi" data end
      if record "saldo" Data >= -144
      and record "saldo" Data < -108
      begin put 4 record "pezzi" data end
      if record "saldo" Data >= -180
      and record "saldo" Data < -144
      begin put 5 record "pezzi" data end
      if record "saldo" Data >= -216
      and record "saldo" Data < -180
      begin put 6 record "pezzi" data end
end

method "Perse di fila"
begin
      if record "PerseConsecutive" data =1
      begin put 2 record "pezzi" data end
      if record "PerseConsecutive"data=2
      begin put 3 record "pezzi" data end
      if record "PerseConsecutive"data=3
      begin put 4 record "pezzi" data end
      if record "PerseConsecutive"data=4
      begin put 5 record "pezzi" data end
      if record "PerseConsecutive"data>=5
      begin put 6 record "pezzi" data end

end

method "controlla partite"
begin
       add 1 record "conta" data
       If record "conta" data >500
        begin
            clear All Records
            Put 1 record "boules" Data
            Put 1 record "pezzi" Data
            Set Flag "Gioca" False
            set Flag "gameover" false
        end
       //If record "parziale" data >=72
       //or record "parziale" data <-36
        //if bankroll <=-90
        if bankroll >=180
        //if record "conta partite" data >=12
       or flag "gameover" true
       begin
            set flag "gameover" true
           exit
       end
end