35 Unit

Contenuto del file

system "Turbo's 35 Unit method"
{
*************************************
*      System by Turbogenius        *
*        on the VIP Lounge          *
*************************************
  Posted: Sat Jun 04, 2005 4:38 pm
Post subject: Turbo's 35 unit method
               v1.0
         Rx-ed by St0rm0r

Method:
1 ) Record 37 spins
2 ) Starting with spin 38, play all sleepers from our records.
3 ) When a number played shows, simply add 1 unit to it and continue.
4 ) Once your total stake on the table reaches 35 units, remove the bet(s) that
have the most units on them.. and continue on.

Session options:
1= reset on "any" profit
2= reset at win +500 or reset at 300 spins whichever happens first
}
method "main"
begin
while starting new session
    begin
    call "init"
    exit
    end

if net > 0
    begin
    if record"reset"data = 2
        begin
        if bankroll >= record"ref bank"data
            begin
            call "reset"
            exit
            end
        end
        else
        begin
        if bankroll > record"ref bank1"data
            begin
            call "reset"
            exit
            end
        end
    end

add 1 to record"number of spins"data
if record"reset"data = 2 and record"number of spins"data > 300
    begin
    call "reset"
    exit
    end
track last number for 1 time in record"last number"layout

if flag "qualify" is false
begin
call "update hit list"
if record"number of spins"data < 37
    begin
    exit
    end
    else
    begin
    call "set hit list to play list"
    set flag "qualify" to true
    end
end

if flag "qualify" is true
begin
call "update play list"
put 1 in record"hit list"data index
loop until record"hit list"data index > record"hit list"data count
    begin
    if record"hit list"data > 0
        begin
        put 100% of record"hit list"data index in record"numbers"layout index
        put 100% of record"hit list"data on record"numbers"layout
        end
    add 1 to record"hit list"data index
    end
end
end

method "init"
begin
group
    begin
    display "TURBO's 35 Unit method"
    input dropdown "when do you want to reset: ?
    1:= on 'any' profit
    2:= on 500 profit or at 300 spins whichever happens first"
    to record"reset"data
    end
copy list [number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
put 1 in record"numbers"layout index
call "reset"
end

method "reset"
begin
set flag "qualify" to false
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
to record"hit list"data
put 0 in record"number of spins"data
put 100% bankroll to record"ref bank1"data
put 100% bankroll to record"ref bank"data
add 500 to record"ref bank"data
end

method "update hit list"
begin
put 1 in record"numbers"layout index
loop until record"numbers"layout = record"last number"layout
    begin
    add 1 to record"numbers"layout index
    end
put 100% of record"numbers"layout index in record"hit list"data index
add 1 to record"hit list"data
end

method "reduce to 35"
begin
put 0 in record"highest single amount"data
put 0 in record"highest identity"data
put 0 in record"total"data
put 1 in record"hit list"data index
loop until record"hit list"data index > record"hit list"data count
    begin
    if record"hit list"data > record"highest single amount"data
        begin
        put 100% of record"hit list"data in record"highest single amount"data
        put 100% of record"hit list"data index in record"highest identity"data
        end
    add 100% of record"hit list"data to record"total"data
    add 1 to record"hit list"data index
    end
if record"total"data > 35
    begin
    put 100% of record"highest identity"data in record"hit list"data index
    subtract 100% of record"hit list"data from record"total"data
    put 0 in record"hit list"data
    end
end

method "set hit list to play list"
begin
put 1 in record"hit list"data index
loop until record"hit list"data index > record"hit list"data count
    begin
    if record"hit list"data = 0
        begin
        put 1 on record"hit list"data
        end
        else
        begin
        put 0 on record"hit list"data
        end
    add 1 to record"hit list"data index
    end
end

method "update play list"
begin
put 1 in record"numbers"layout index
loop until record"numbers"layout = record"last number"layout
    begin
    add 1 to record"numbers"layout index
    end
put 100% of record"numbers"layout index in record"hit list"data index
if record"hit list"data > 0
    begin
    add 1 to record"hit list"data
    end
call "reduce to 35"
loop until record"total"data < 36
    begin
    call "reduce to 35"
    end
end