Questo sito fa uso di cookie, i cookie introducono una gamma di servizi che migliorano la tua fruizione del sito. Utilizzando il sito si ritiene accettato l'uso dei cookie secondo le nostre linee guida. Per maggiori informazioni clicca qui.

Home Risorse Roulette Xtreme Sistemi Xtreme Double Streets V3.3

Double Streets V3.3

(Lohnro | Moch) giocare le sestine che sono uscite 6 volte nelle ultime 18 boules.

Xtreme icon Lohnro Double Streets v3dot3.dgt — Xtreme, 9 KB (9228 bytes)

Contenuto del file

system "Lohnro Double Streets v3.3"
{
*************************************
*         System by Lohnro
*         on the VIP Lounge
*       Roulette Extreme Code
*               by Moch
*************************************
 http://gambling.projectsydney.com/viewtopic.php?p=37848#37848

 We are looking at Double Streets.
 Before a bet is made, track the last 18 spins.
 In 18 spins every street SHOULD hit 3 times.
 What we are looking for is D/S that have hit EXACTLY twice in the last 18 spins.
 So we may be betting on 1 D/S OR 2 D/S only.


}
method "main" begin
    // start up
    while starting new session begin
        Clear all records
        call "Init"
        call "WheelType"
        exit
    end

    // count spins
    add 1 record"TotalSpins" data

    // do the tracking
    track last number for 12 spins record"Last12Spins"layout
    copy last number record"LastN"layout
    call "TrackLines"

    // Bankroll
    if bankroll > record"HighBankroll"data begin
        put 100% bankroll record"HighBankroll"data
    end

    // act on a loss
    if net < 0 begin
        set flag "qualified" true
        if record"BetType"data=1 begin
            if record"BetLayout"layout count = 1 begin
                add 1 record"Progression1"data index
                if record"Progression1"data index > record"Progression1"data count begin
                    put 1 record"Progression1"data index
                    call "GetLast12Spins"
                    set flag "qualified" false
                end
            end
            if record"BetLayout"layout count = 2 begin
                 add 1 record"Progression2"data index
                if record"Progression2"data index > record"Progression2"data count begin
                    put 1 record"Progression2"data index
                    call "GetLast12Spins"
                    set flag "qualified" false
                end
            end
        end
        else begin
            call "CalculateNextBet"
        end
    end

    // act on a win
    if net > 0 begin
        if record"BetType"data=1 begin
            if record"BetLayout"layout count = 1 begin
                put 1 record"Progression1"data index
            end
            if record"BetLayout"layout count = 2 begin
                put 1 record"Progression2"data index
            end
        end
        else begin
            call "CalculateNextBet"
        end
        if flag "Last12W" true begin
            call "GetLast12Spins"
        end
        else begin
            call "Reset"
        end
        set flag "qualified" false
    end

    // act when not qualified
    if flag "qualified" false begin
        if flag "Ready2Bet" true begin
            call "GetLines2BetOn"
            set flag "Ready2Bet" false
            set flag "qualified" true
            if record"BetLayout"layout count > record "LineHits" data begin
                call "GetLast12Spins"
                set flag "qualified" false
            end
        end
    end

    // act when  qualified
    if flag "qualified" true begin
         if record"BetType"data=1 begin
            if record"BetLayout"layout count = 1 begin
                put 100% record"Progression1"data record"BetLayout"layout list
            end
            if record"BetLayout"layout count = 2 begin
                put 100% record"Progression2"data record"BetLayout"layout list
            end
        end
        else begin
            call "CalculateNextBet"
            put 100% record"Progression"data record"BetLayout"layout list
        end
        set flag "qualified" false
    end
end

// Methods
method "Reset" begin
    set flag "Ready2Bet" false
    put 0 record"TotalSpins" data
end

method "Init" begin
    set list [1,1,2,2,3,3,4,4,5,6,8,10] record "Progression1" data
    set list [1,2,3,4,6,9] record "Progression2" data
    copy list [1,2,3,4,5,6] record"Line1"layout
    copy list [7,8,9,10,11,12] record"Line2"layout
    copy list [13,14,15,16,17,18] record"Line3"layout
    copy list [19,20,21,22,23,24] record"Line4"layout
    copy list [25,26,27,28,29,30] record"Line5"layout
    copy list [31,32,33,34,35,36] record"Line6"layout
    set list [0,0,0,0,0,0] record "LineMask" data
    // defaults
    put 18 record"MaxSpins"data
    put 0 record"TotalSpins"data
    put 2 record "LineHits" data
    // flags
    set flag "Last12W" false
    set flag "Last12L" false
    set flag "qualified" false
    set flag "Ready2Bet" false
    // Input
    group begin
        display "System Lohnro Double Streets v3.1"
        display "by Lohnro"
        input dropdown " Wheel Type ?
            1:= Single Zero
            2:= Double Zero " record"Wheel"data
        input data "Number of Spins to track ?" record"MaxSpins"data
        input checkbox "After a win use last 12 spins" flag "Last12W"
        input dropdown "Progression Type ?
            1:= Lonhro Progression
            2:= Positive on a win"  record"BetType"data

    end

    // assign
    put 100% bankroll record"HighBankroll"data
    put 100% bankroll record"LowBankroll"data
end

method "GetLines2BetOn" begin
            clear record"BetLayout"layout
            put 1 record"BetLayout"layout index
            put 1 record"LineMask"data index
            put 0 record"3Hits"data
            loop until record "LineMask" data index > record "LineMask" data count begin
                if record "LineMask" data = record "LineHits" data begin
                    if record "LineMask" data index = 1 begin
                        copy line(1-6) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                    if record "LineMask" data index = 2 begin
                        copy line(7-12) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                    if record "LineMask" data index = 3 begin
                        copy line(13-18) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                    if record "LineMask" data index = 4 begin
                        copy line(19-24) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                    if record "LineMask" data index = 5 begin
                        copy line(25-30) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                    if record "LineMask" data index = 6 begin
                        copy line(31-36) record"BetLayout"layout
                        add 1 record"BetLayout"layout index
                    end
                end
                add 1 record "LineMask" data index
            end
            set list [0,0,0,0,0,0] record "LineMask" data
end

method "GetLast12Spins" begin
    put 1 record"Last12Spins"layout index
    loop until record"Last12Spins"layout index > record"Last12Spins"layout count begin
        copy record"Last12Spins"layout record"LastN"layout
        call "TrackLines"
        add 1 record"Last12Spins"layout index
    end
    put 11 record"TotalSpins" data
end

method "TrackLines" begin
    if record"LastN"layout found record"Line1"layout begin
        put 1 record "LineMask" data index
        add 1 record "LineMask" data
    end
    if record"LastN"layout found record"Line2"layout begin
        put 2 record "LineMask" data index
        add 1 record "LineMask" data
    end
     if record"LastN"layout found record"Line3"layout begin
        put 3 record "LineMask" data index
        add 1 record "LineMask" data
    end
    if record"LastN"layout found record"Line4"layout begin
        put 4 record "LineMask" data index
        add 1 record "LineMask" data
    end
    if record"LastN"layout found record"Line5"layout begin
        put 5 record "LineMask" data index
        add 1 record "LineMask" data
    end
    if record"LastN"layout found record"Line6"layout begin
        put 6 record "LineMask" data index
        add 1 record "LineMask" data
    end
    if record"TotalSpins" data = record"MaxSpins"data begin
        set flag "Ready2Bet" true
        put 0 record"TotalSpins" data
    end
end

method "CalculateNextBet" begin
    put 0 record"Progression"data
    put 0 record"Balance"data
    set max record"BetLayout"layout index
    put 100% record"BetLayout"layout index record"Units"data
    loop until record"Balance"data > record"HighBankroll"data begin
        add 1 record"Progression"data
        duplicate record"Progression" record"Balance"
        put 6 record"Payoff"data
        subtract 100% record"Units"data record"Payoff"data
        multiply 100% record"Payoff"data record"Balance"data
        add 100% bankroll record"Balance"data
    end
end

method "WheelType" begin
    if record"Wheel"data=1 begin
        Load Single Wheel
    end
    else begin
        Load Double Wheel
    end
end