Arteinvivo's Labby I v2

Contenuto del file

system "Arteinvivo's Labby I v2"
{
*************************************
*        System by Arteinvivo       *
*       request by mwilding 1981    *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
You start with a 1,1 and obviously bet 2. If you win you restart.
If you lose you add onto the end as with a normal labby.
You then always bet the last one and the first 2.
Now each labby starts a new session when it begins.
After every winning bet
1. eliminate the first 2 and the last element of the labby.
2. you check to see whether the first bet of the labby is >=6
if so, copy the labby to labby2
work away element by element of labby 2 by creating a new labby per element
value divided by 10.
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// section 2: do the tracking

// section 3: act on a loss
if red did not hit each time
    begin
    subtract 100% record"pro R"data record"bank R"data
    if flag "first bet R" true
        begin
        set flag "first bet R" false
        set list [1,1,2]record"labby R"data
        end
        else
        begin
        //add loss to the end of the labby
        put 1 record"labby R"data index
        loop until record"labby R"data index > record"labby R"data count
            begin
            add 1 record"labby R"data index
            end
        put 100% record"pro R"data record"labby R"data
        end
    end
if black did not hit each time
    begin
    subtract 100% record"pro B"data record"bank B"data
    if flag "first bet B" true
        begin
        set flag "first bet B" false
        set list [1,1,2]record"labby B"data
        end
        else
        begin
        //add loss to the end of the labby
        put 1 record"labby B"data index
        loop until record"labby B"data index > record"labby B"data count
            begin
            add 1 record"labby B"data index
            end
        put 100% record"pro B"data record"labby B"data
        end
    end

// section 4:act on a win
if red did hit each time
    begin
    add 100% record"pro R"data record"bank R"data
    if flag "first bet R" true
        begin
        call "reset R"
        end
        else
        begin
        //eliminate first two and last one
        if record"labby R"data count > 2
            begin
            clear record"temp"data
            put 3 record"labby R"data index
            loop until record"labby R"data index = record"labby R"data count
                begin
                put 100% record"labby R"data record"temp"data
                add 1 record"temp"data index
                add 1 record"labby R"data index
                end
            duplicate record"temp" record"labby R"
            end
            else
            begin
            clear record"labby R"data
            //call "reset R"
            end
        if record"labby R"data count = 0
            begin
            if record"bank R"data >=record"new high R"data
                begin
                call "reset R"
                end
                else
                begin
                if record"2nd labby R"data count > 0
                    begin
                    clear record"temp"data
                    put 1 record"2nd labby R"data index
                    put 100% record"2nd labby R"data record"to distribute"data
                    if record"2nd labby R"data index < record"2nd labby R"data count
                        begin
                        add 1 record"2nd labby R"data index
                        loop until record"2nd labby R"data index > record"2nd labby R"data count
                            begin
                            put 100% record"2nd labby R"data record"temp"data
                            add 1 record"temp"data index
                            add 1 record"2nd labby R"data index
                            end
                        duplicate record"temp" record"2nd labby R"
                        end
                    //make new 10 element max labby from the first element from 2nd labby
                    clear record"labby R"data
                    put 10% record"to distribute"data record"unit"data
                    put 100% record"unit"data number 0
                    put 100% number 0 record"unit"data
                    put 0 number 0
                    put 1 record"labby R"data index
                    loop until record"to distribute"data <= 0
                        begin
                        put 100% record"unit"data  record"labby R"data
                        add 1 record"labby R"data index
                        subtract 100% record"unit"data record"to distribute"data
                        end
                    end
                end
            end

        put 1 record"labby R"data index
        if record"labby R"data >= 6
            begin
            //goto end of 2nd labby
            put 1 record"2nd labby R"data index
            loop until record"2nd labby R"data index > record"2nd labby R"data count
                begin
                add 1 record"2nd labby R"data index
                end
            //transfer labby data to 2nd labby
            put 1 record"labby R"data index //take first element aside
            put 100% record"labby R"data record"to distribute"data
            add 1 record"labby R"data index
            loop until record"labby R"data index > record"labby R"data count //transfer the rest
                begin
                put 100% record"labby R"data record"2nd labby R"data
                add 1 record"2nd labby R"data index
                add 1 record"labby R"data index
                end
            //make new mawimum 10 element labby from the first element taken aside
            clear record"labby R"data
            put 10% record"to distribute"data record"unit"data
            put 100% record"unit"data number 0
            put 100% number 0 record"unit"data
            put 0 number 0
            put 1 record"labby R"data index
            loop until record"to distribute"data <= 0
                begin
                put 100% record"unit"data record"labby R"data
                add 1 record"labby R"data index
                subtract 100% record"unit"data record"to distribute"data
                end
            end
            else
            begin
            //continue labby betting
            end
        end
    end

if black did hit each time
    begin
    add 100% record"pro B"data record"bank B"data
    if flag "first bet B" true
        begin
        call "reset B"
        end
        else
        begin
        //eliminate first two and last one
        if record"labby B"data count > 2
            begin
            clear record"temp"data
            put 3 record"labby B"data index
            loop until record"labby B"data index = record"labby B"data count
                begin
                put 100% record"labby B"data record"temp"data
                add 1 record"temp"data index
                add 1 record"labby B"data index
                end
            duplicate record"temp" record"labby B"
            end
            else
            begin
            clear record"labby B"data
            //call "reset B"
            end
        if record"labby B"data count = 0
            begin
            if record"bank B"data >=record"new high B"data
                begin
                call "reset B"
                end
                else
                begin
                if record"2nd labby B"data count > 0
                    begin
                    clear record"temp"data
                    put 1 record"2nd labby B"data index
                    put 100% record"2nd labby B"data record"to distribute"data
                    if record"2nd labby B"data index < record"2nd labby B"data count
                        begin
                        add 1 record"2nd labby B"data index
                        loop until record"2nd labby B"data index > record"2nd labby B"data count
                            begin
                            put 100% record"2nd labby B"data record"temp"data
                            add 1 record"temp"data index
                            add 1 record"2nd labby B"data index
                            end
                        duplicate record"temp" record"2nd labby B"
                        end
                    //make new 10 element max labby from the first element from 2nd labby
                    clear record"labby B"data
                    put 10% record"to distribute"data record"unit"data
                    put 100% record"unit"data number 0
                    put 100% number 0 record"unit"data
                    put 0 number 0
                    put 1 record"labby B"data index
                    loop until record"to distribute"data <= 0
                        begin
                        put 100% record"unit"data  record"labby B"data
                        add 1 record"labby B"data index
                        subtract 100% record"unit"data record"to distribute"data
                        end
                    end
                end
            end

        put 1 record"labby B"data index
        if record"labby B"data >= 6
            begin
            //goto end of 2nd labby
            put 1 record"2nd labby B"data index
            loop until record"2nd labby B"data index > record"2nd labby B"data count
                begin
                add 1 record"2nd labby B"data index
                end
            //transfer labby data to 2nd labby
            put 1 record"labby B"data index //take first element aside
            put 100% record"labby B"data record"to distribute"data
            add 1 record"labby B"data index
            loop until record"labby B"data index > record"labby B"data count //transfer the rest
                begin
                put 100% record"labby B"data record"2nd labby B"data
                add 1 record"2nd labby B"data index
                add 1 record"labby B"data index
                end
            //make new mawimum 10 element labby from the first element taken aside
            clear record"labby B"data
            put 10% record"to distribute"data record"unit"data
            put 100% record"unit"data number 0
            put 100% number 0 record"unit"data
            put 0 number 0
            put 1 record"labby B"data index
            loop until record"to distribute"data <= 0
                begin
                put 100% record"unit"data record"labby B"data
                add 1 record"labby B"data index
                subtract 100% record"unit"data record"to distribute"data
                end
            end
            else
            begin
            //continue labby betting
            end
        end
    end

if flag "first bet R" false
    begin
    //calculate next bet
    put 0 record"pro R"data
    put 1 record"labby R"data index
    add 100% record"labby R"data record"pro R"data
    if record"labby R"data index < record"labby R"data count
        begin
        add 1 record"labby R"data index
        add 100% record"labby R"data record"pro R"data
        end
    if record"labby R"data index < record"labby R"data count
        begin
        loop until record"labby R"data index >= record"labby R"data count
            begin
            add 1 record"labby R"data index
            end
        add 100% record"labby R"data record"pro R"data
        end
    end
if flag "first bet B" false
    begin
    //calculate next bet
    put 0 record"pro B"data
    put 1 record"labby B"data index
    add 100% record"labby B"data record"pro B"data
    if record"labby B"data index < record"labby B"data count
        begin
        add 1 record"labby B"data index
        add 100% record"labby B"data record"pro B"data
        end
    if record"labby B"data index < record"labby B"data count
        begin
        loop until record"labby B"data index >= record"labby B"data count
            begin
            add 1 record"labby B"data index
            end
        add 100% record"labby B"data record"pro B"data
        end
    end

//bet
if flag "first bet R" true
    begin
    put 2 record"pro R"data
    end
if flag "first bet B" true
    begin
    put 2 record"pro B"data
    end

if record"P"data = 1 or record"P"data = 3
    begin
    put 100% record"pro R"data red
    end
if record"P"data = 2 or record"P"data = 3
    begin
    put 100% record"pro B"data black
    end
if record"P"data = 4
    begin
    if record"pro R"data > record"pro B"data
        begin
        put 100% record"pro R"data red
        subtract 100% record"pro B"data red
        end
    if record"pro B"data > record"pro R"data
        begin
        put 100% record"pro B"data black
        subtract 100% record"pro R"data black
        end
    end

end

// subroutines
method "init"
begin
group
    begin
    display "Arteinvivo's Labby I v2"
    display "------------------------------------------"
    input dropdown "Play
    1:= red only
    2:= black only
    3:= red and black full
    4:= red or black differential" record"P"data
    end
put 0 record"bank R"data
put 0 record"bank B"data
call "reset R"
call "reset B"
end

method "reset R"
begin
set flag "first bet R" true
clear record"labby R"data
clear record"2nd labby R"data
put 100% record"bank R"data record"new high R"data
end

method "reset B"
begin
set flag "first bet B" true
clear record"labby B"data
clear record"2nd labby B"data
put 100% record"bank B"data record"new high B"data
end