system "TEST Saliu Even Money v0.3"
{
*************************************
*     System by
*         on the VIP Lounge
*       Roulette Extreme Code
*               by Moch
*       modify by ilionar
*************************************
}
method "main" begin
    // start up
    while starting new session begin
        call "Init"
        if record"Wheel"data=1 begin
            Load Single Wheel
        end
        else begin
            Load Double Wheel
        end
        exit
    end
    // count spins
    add 1 record"Total Spins" data
    // do the tracking
    track last red-black for record"Spins"data record"Streak"layout
    if record "Streak" layout count < record "Spins" data begin
        exit
    end
    // act on a loss
    if net < 0 begin
        add 1 record"Progression"data index
        if record"Progression"data index>record"Progression"data count begin
            put 1 record"Progression"data index
        end
    end
    // act on a win
    if net > 0 begin
        put 1 record"Progression"data index
        put 0 record"BlackCount"data
        put 0 record"RedCount"data
        set flag "qualified" false
    end
    // act when not qualified
    if flag "qualified" false begin
        set flag "qualified" true
    end
    // act when  qualified
    if flag "qualified" true begin
        call"BetBlack"
        call"BetRed"
        set flag "qualified" false
    end
end
// subroutines
method "Init" begin
    set list [1,2,4,8,16,32,64,128,256,512]record"Progression"data
    //defaults
    put 3 record"Spins"data
    put 0 record"Total Spins"data
    //menu
    group begin
        display "System ..."
        display "by ..."
        input dropdown " Wheel Type ?
            1:= Single Zero
            2:= Double Zero " record"Wheel"data

        put 2 on record "aHits" data //default
        input data "Wait for x qualifications
                    before placing a bet ?" to record "aHits" data
    end
    // flags
    set flag "qualified" false
    // assign
    put 0 record"RedCount"data
    put 100% bankroll record"High Bankroll"data
    put 100% bankroll record"Low Bankroll"data
end

method"BetBlack"begin
    if list[black,red,black] has pattern match record"Streak"layout begin
        put 0 record"RedCount"data
    end
    if list[black,red,red] has pattern match record"Streak"layout begin
        add 1 record"RedCount"data
    end
    if record"RedCount"data >= record "aHits" data begin
        if black hit 1 begin
            set flag "BetBlack"true
        end
        if flag "BetBlack"true begin
            if red hit 1 begin
                put 100% record"Progression"data black
                //put 0 record"RedCount"data
                set flag "BetBlack"false
            end
        end
    end
end

method"BetRed"begin
    if list[red,black,red] has pattern match record"Streak"layout begin
        put 0 record"BlackCount"data
    end
    if list[red,black,black] has pattern match record"Streak"layout begin
        add 1 record"BlackCount"data
    end
    if record"BlackCount"data >= record "aHits" data begin
        if red hit 1 begin
            set flag "BetRed"true
        end
        if flag "BetRed"true begin
            if black hit 1 begin
                put 100% record"Progression"data red
                //put 0 record"RedCount"data
                set flag "BetRed"false
            end
        end
    end
end