Double Tracking

Contenuto del file

system "Double Tracking"
{
  Autore: Manuel Rosati
  Xtremizzato da: lonerider
  Spiegazione del sistema su www.laroulette.it
}
method "main"
begin
    while Starting a new Session
    begin
        Copy list  [2,4,6] record "AA" Layout
        Copy list  [20,23,24,16] record "BB" layout
        Copy list  [29,26,28,35,31] record "CC" layout
        Copy list  [30,36,33,18,14,22] record "BC" layout
        Copy list  [34,27,32,25,9,12,3,7] record "AC" layout
        Copy list  [13,15,21,17,10,11,1,8,5,19] record "AB" layout
        
        set list [1,1,1,1,1,1,1,1,1,2,2,2] record "progressionAA" data
        set list [1,1,1,1,1,2,2,2,2,3,3,3] record "progressionBB" data
        set list [1,1,1,1,1,2,2,2,3,3,4,5] record "progressionCC" data
        set list [1,1,1,1,1,2,2,3,3,4,5,6] record "progressionBC" data
        set list [1,1,1,1,2,2,3,5,5,7,9,12] record "progressionAC" data
        set list [1,1,1,2,3,4,6,8,11,15,21,30] record "progressionAB" data
        Put 0 record "BetProgression" data index
    end
	While on Each Spin
	begin
        Call "Assign"
        Call "Results"
        Add 1 record "Spin" data
        If record "Spin" data >7
        and flag "Active" false
        begin
            Call "Verify"
        end
        if flag "Active" true
        begin
            Call "Bet"
        end
    end
end
method "Assign"
begin
    Copy last number nel record "Numero" layout
    Track last Number for 8 spins to record "Last8" layout
    Track last Number for 9 spins to record "Last9" layout
    Track last Number for 10 spins to record"Last10" layout
    Track last Number for 11 spins to record"Last11" layout
    Track last Number for 12 spins to record"Last12" layout
    Track last Number for 13 spins to record"Last13" layout

end

method "Verify"
begin
// AB
        set flag "PlayAB" true
        put 1 record "AB" Layout index
        loop until record "AB" Layout index >  record "AB" Layout count
        begin
            if record "AB" Layout found record "Last8" layout
            begin
               Set flag "PlayAB" false
            end
            add 1 record "AB" Layout index
        end
        if flag "PlayAB" true
        begin
            Copy record "AB" layout Record "BetList" Layout
        end
// AC
        set flag "PlayAC" true
        put 1 record "AC" Layout index
        loop until record "AC" Layout index >  record "AB" Layout count
        begin
            if record "AC" Layout found record "Last9" layout
            begin
               Set flag "PlayAC" false
            end
            add 1 record "AC" Layout index
        end
        if flag "PlayAC" true
        begin
            Copy record "AC" layout Record "BetList" Layout
        end
// BC
        set flag "PlayBC" true
        put 1 record "BC" Layout index
        loop until record "BC" Layout index >  record "BC" Layout count
        begin
            if record "BC" Layout found record "Last10" layout
            begin
               Set flag "PlayBC" false
            end
            add 1 record "BC" Layout index
        end
        if flag "PlayBC" true
        begin
            Copy record "BC" layout Record "BetList" Layout
        end
// CC
        set flag "PlayCC" true
        put 1 record "CC" Layout index
        loop until record "CC" Layout index >  record "CC" Layout count
        begin
            if record "CC" Layout found record "Last11" layout
            begin
               Set flag "PlayCC" false
            end
            add 1 record "CC" Layout index
        end
        if flag "PlayCC" true
        begin
            Copy record "CC" layout Record "BetList" Layout
        end

// BB
        set flag "PlayBB" true
        put 1 record "BB" Layout index
        loop until record "BB" Layout index >  record "BB" Layout count
        begin
            if record "BB" Layout found record "Last12" layout
            begin
               Set flag "PlayBB" false
            end
            add 1 record "BB" Layout index
        end
        if flag "PlayBB" true
        begin
            Copy record "BB" layout Record "BetList" Layout
        end
// AA
        set flag "PlayAA" true
        put 1 record "AA" Layout index
        loop until record "AA" Layout index >  record "AA" Layout count
        begin
            if record "AA" Layout found record "Last13" layout
            begin
               Set flag "PlayAA" false
            end
            add 1 record "AA" Layout index
        end
        if flag "PlayAA" true
        begin
            Copy record "AA" layout Record "BetList" Layout
        end


    If flag "PlayAA" true
    or flag "PlayAB" true
    or flag "PlayAC" true
    or flag "PlayBB" true
    or flag "PlayBC" true
    or flag "PlayCC" true
    begin

        If any number bet won each
         begin
            Call "GlobalCheck"
            if flag "Active" true
            begin
                return
            end
        end

        if flag "PlayAB" true
        and record "Spin" Data >=8
        begin
            Duplicate record "AB"  Record "BetList"
            Duplicate record "progressionAB" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayAC" true
        and record "Spin" Data >=9
        begin
            Duplicate record "AC" Record  "BetList"
            Duplicate record "progressionAC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayBC" true
        and record "Spin" Data >=10
        begin
            Duplicate record "BC" Record  "BetList"
            Duplicate record "progressionBC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayCC" true
        and record "Spin" Data >=11
        begin
            Duplicate record "CC"  Record "BetList"
            Duplicate record "progressionCC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayBB" true
        and record "Spin" Data >=12
        begin
            Duplicate record "BB"  Record "BetList"
            Duplicate record "progressionBB" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayAA" true
        and record "Spin" Data >=13
        begin
            Duplicate record "AA"  Record "BetList"
            Duplicate record "progressionAA" record "BetProgression"
            Set flag "Active" true
            return
        end

    end
    
end

method "Bet"
begin
    add 1 record "BetProgression" Data index
    if Record "BetProgression" Data index > Record "BetProgression" Data count
    begin
        Call "NewGame"
        put 0 record "Spin" data
        clear record "Last8" Layout
        clear record "Last9" Layout
        clear record "Last10" Layout
        clear record "Last11" Layout
        clear record "Last12" Layout
        clear record "Last13" Layout
    end

    put 100% record "BetProgression" data record "BetList" Layout list
end

method "Results"
begin
    if any number bet won each
    begin
        Call "NewGame"
    end
end

method "NewGame"
begin
    Set flag "Active" false
    Put 7 record "Spin" data
    clear record "BetList" Layout
    clear record "BetProgression" Layout
    put 0 record "BetProgression" Data index
    set flag "PlayAA" false
    set flag "PlayAB" false
    set flag "PlayAC" false
    set flag "PlayBB" false
    set flag "PlayBC" false
    set flag "PlayCC" false

end
method "GlobalCheck"
begin
        if flag "PlayAB" true
        begin
            Duplicate record "AB"  Record "BetList"
            Duplicate record "progressionAB" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayAC" true
        begin
            Duplicate record "AC" Record  "BetList"
            Duplicate record "progressionAC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayBC" true
        begin
            Duplicate record "BC" Record  "BetList"
            Duplicate record "progressionBC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayCC" true
        begin
            Duplicate record "CC"  Record "BetList"
            Duplicate record "progressionCC" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayBB" true
        begin
            Duplicate record "BB"  Record "BetList"
            Duplicate record "progressionBB" record "BetProgression"
            Set flag "Active" true
            return
        end

        if flag "PlayAA" true
        begin
            Duplicate record "AA"  Record "BetList"
            Duplicate record "progressionAA" record "BetProgression"
            Set flag "Active" true
            return
        end




end