system "Masaniello Chances 11/20"
{
Progressione Masaniello
Xtremizzato da Lonerider

Per una spiegazione del metodo vedere il sito www.laroulette.it

}
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