rmi(rror)227 v1

Contenuto del file

system "rmi(rror)227 v1"
{
*************************************
*          System by rmi227         *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
Bet against the last eight results repeating, and ignore the zero.
We use simple martingale 1,2,4,8,16,32,64,128,256,512 or a labby.
-------------------------------------
}
method "main"
begin
// do this once
while starting new session
    begin
    call "init"
    end

// do the tracking
if record"P"data = 1
    begin track last red-black for 8 times record"last 8EM"layout end
if record"P"data = 2
    begin track last even-odd for 8 times record"last 8EM"layout end
if record"P"data = 3
    begin track last high-low for 8 times record"last 8EM"layout end
if record"last 8EM"layout count < 8
    begin exit end

add 1 record"pointer"data
if record"pointer"data = 8
    begin
    set flag "qualified" false
    end

// act on a loss
if net < 0
    begin
    add 1 record"pro"data index
    if record"pro"data index > record"pro"data count
        begin
        put 1 record"pro"data index
        end
    set max record"labby"data index
    add 1 record"labby"data index
    put 100% record"unit"data record"labby"data
    end

// act on a win
if net > 0
    begin
    call "reset"
    if record"labby"data count < 3
        begin
        call "set labby here"
        end
        else
        begin
        clear record"temp"data
        put 2 record"labby"data index
        loop until record"labby"data index = record"labby"data count
            begin
            put 100% record"labby"data record"temp"data
            add 1 record"temp"data index
            add 1 record"labby"data index
            end
        duplicate record"temp" record"labby"
        end
    end

// act when not qualified
if flag "qualified" false
    begin
    clear record"bet on them"layout
    put 1 record"last 8EM"layout index
    loop until record"last 8EM"layout index > record"last 8EM"layout count
        begin
        if record"last 8EM"layout = red begin copy black record"bet on them"layout end
        if record"last 8EM"layout = black begin copy red record"bet on them"layout end
        if record"last 8EM"layout = even begin copy odd record"bet on them"layout end
        if record"last 8EM"layout = odd begin copy even record"bet on them"layout end
        if record"last 8EM"layout = high begin copy low record"bet on them"layout end
        if record"last 8EM"layout = low begin copy high record"bet on them"layout end
        add 1 record"bet on them"layout index
        add 1 record"last 8EM"layout index
        end
    put 0 record"pointer"data
    set flag "qualified" true
    end

// act when qualified
if flag "qualified" true
    begin
    //bet
    set max record"bet on them"layout index
    subtract 100% record"pointer"data record"bet on them"layout index
    if record"B"data = 1
        begin put 1 record"bet on them"layout end
    if record"B"data = 2
        begin put 100% record"pro"data record"bet on them"layout end
    if record"B"data = 3
        begin
        put 1 record"labby"data index
        put 100% record"labby"data record"unit"data
        if record"labby"data count > 1
            begin
            set max record"labby"data index
            add 100% record"labby"data record"unit"data
            end
        put 100% record"unit"data record"bet on them"layout
        end
    end

end

// subroutines
method "init"
begin
group
    begin
    display "rmi(rror)227"
    display"------------------------------------------------------------------"
    input dropdown "Play:
    1:= red-black
    2:= even-odd
    3:= high-low" record"P"data
    input dropdown "Progression:
    1:= flat bet
    2:= 1,2,4,8,16,32,64,128,256,512
    3:= 0,1 labby" record"B"data
    end
set list [1,2,4,8,16,32,64,128,256,512] record"pro"data
call "set labby here"
call "reset"
end

method "reset"
begin
set flag "qualified" false
put 1 record"pro"data index
end

method "set labby here"
begin
set list [0,1] record"labby"data
end