system "5 Count v2"
{
*************************************
*         System by Talesman        *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
Track red-black for 15 spins and determine the color that's ahead.
Play the color that's ahead for 5 spins.
If at any time you're even or ahead, play the base bet unit and reset the 5 count.
If you're behind after 5 spins, bet the loss on the color that's ahead then.
-------------------------------------
}
method "main"
begin
// do this once
while starting new session
    begin
    call "init"
    exit
    end

// do the tracking
track last number for 1 record"last N"layout
if record"last N"layout not = number 0 and  record"last N"layout not = number 00
    begin
    if record"E"data = 1
        begin
        track last red-black for 15 times record"last color"layout
        if record"last color"layout = red
            begin
            add 1 record"color1"data
            end
        if record"last color"layout = black
            begin
            add 1 record"color2"data
            end
        end
    if record"E"data = 2
        begin
        track last even-odd for 15 times record"last color"layout
        if record"last color"layout = even
            begin
            add 1 record"color1"data
            end
        if record"last color"layout = odd
            begin
            add 1 record"color2"data
            end
        end
    if record"E"data = 3
        begin
        track last high-low for 15 times record"last color"layout
        if record"last color"layout = high
            begin
            add 1 record"color1"data
            end
        if record"last color"layout = low
            begin
            add 1 record"color2"data
            end
        end
    if record"E"data = 4
        begin
        track last red-black for 15 times record"last color"layout
        if record"last color"layout = red
            begin
            add 1 record"red"data
            end
        if record"last color"layout = black
            begin
            add 1 record"black"data
            end
        track last even-odd for 1 time record"last EO"layout
        if record"last EO"layout = even
            begin
            add 1 record"even"data
            end
        if record"last EO"layout = odd
            begin
            add 1 record"odd"data
            end
        track last high-low for 1 time record"last HL"layout
        if record"last HL"layout = high
            begin
            add 1 record"high"data
            end
        if record"last HL"layout = low
            begin
            add 1 record"low"data
            end
        end
    end
    else
    begin
    if record"last color"layout count < 15
        begin
        put 1 record"last color"layout index
        loop until record"last color"layout index > record"last color"layout count
            begin
            add 1 record"last color"layout index
            end
        copy number 0 record"last color"layout
        end
    end

if bankroll > = record"high1"data and record"last color"layout count >= 15
        begin
        call "reset"
        if record"C"data = 1 begin display "You're even or ahead"  end
        end

if record"#bets"data = 5
    begin
    put 100% record"high1"data record"loss"data
    subtract 100% bankroll record"loss"data
    if record"L"data = 2
        begin
        add 100% record"B"data record"loss"data
        end
    put 100% record"loss"data record"pro"data
    put 0 record"#bets"data
    set flag "qualified" false
    if record"C"data = 1 begin display "You're behind after 5 spins"  end
    end

// act when not qualified
if flag "qualified" false
    begin
    if record"last color"layout count < 15
        begin
        exit
        end
        else
        begin
        if record"E"data < 4
            begin
            if record"color1"data > record"color2"data
                begin
                copy record"color1"layout record"play"layout
                set flag "qualified" true
                end
            if record"color1"data < record"color2"data
                begin
                copy record"color2"layout record"play"layout
                set flag "qualified" true
                end
            set flag "qualified" true
            end
            else
            begin
            put 100% record"red"data record"highest"data
            copy red record"play"layout
            if record"black"data > record"highest"data
                begin
                put 100% record"black"data record"highest"data
                copy black record"play"layout
                end
            if record"even"data > record"highest"data
                begin
                put 100% record"even"data record"highest"data
                copy even record"play"layout
                end
            if record"odd"data > record"highest"data
                begin
                put 100% record"odd"data record"highest"data
                copy odd record"play"layout
                end
            if record"high"data > record"highest"data
                begin
                put 100% record"high"data record"highest"data
                copy high record"play"layout
                end
            if record"low"data > record"highest"data
                begin
                put 100% record"low"data record"highest"data
                copy low record"play"layout
                end
            set flag "qualified" true
            end
        end
    end

// act when qualified
if flag "qualified" true
    begin
    //bet
    put 100 % record"pro"data record"play"layout
    add 1 record"#bets"data
    end

end

// subroutines
method "init"
begin
group
    begin
    display "5 Count"
    display "-----------------"
    input data "Base bet:" record"B"data
    input dropdown "Play:
    1:= red-black
    2:= even-odd
    3:= high-low
    4:= most occurring even money hit" record"E"data
    input dropdown "When behind, Play:
    1:= loss
    2:= loss + 1" record"L"data
    input dropdown "Comments:
    1:= on
    2:= off" record"C"data
    end
if record"E"data = 1
    begin
    copy red record"color1"layout
    copy black record"color2"layout
    end
if record"E"data = 2
    begin
    copy even record"color1"layout
    copy odd record"color2"layout
    end
if record"E"data = 3
    begin
    copy high record"color1"layout
    copy low record"color2"layout
    end
put 0 record"color1"data
put 0 record"color2"data
put 0 record"red"data
put 0 record"black"data
put 0 record"even"data
put 0 record"odd"data
put 0 record"high"data
put 0 record"low"data
call "reset"
end

method "reset"
begin
set flag "qualified" false
put 0 record"#bets"data
put 100% bankroll record"high1"data
put 100% record"B"data record"pro"data
end