system "Dreamers Sleepers"
{
*************************************
*         System by dreamer         *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
For instructions visit thread at VIP lounge:

http://www.gambling.projectsydney.com/viewtopic.php?t=4938
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    group
        begin
        display "Dreamers Sleepers"
        display "------------------------------------------------------"
        input dropdown "Wheel Type
        1:=Single Wheel
        2:=Double Wheel" record"Wheel Type"data
        end
    call "Init"
    exit
    end
if flag "Got Sleepers" true
    begin
    track last number for 1 spins record"Last Number"layout
    if record"Last Number"layout found record"Sleepers"layout
        begin
        copy record"Last Number"layout record"Bet this"layout
        add 1 record"Bet this"layout index
        end
    call "Place Bets"
    end else begin
    call "Track"
    end
end

method "Place Bets"
begin
if net < 0
    begin
    add 100% net record"Session Loss Master"data
    duplicate record"Session Loss Master" record"Session Loss"
    divide 100% record"Unit Size"data record"Session Loss"data
    if record"Session Loss"data <= -18 and record"Unit Size"data <= 2
        begin
        add 1 record"Unit Size"data index
        if record"Unit Size"data index > record"Unit Size"data count
            begin
            set max record"Unit Size"data index
            end
        put 0 record"Session Loss"data
        put 0 record"Session Loss Master"data
        end
    if record"Session Loss"data <= -9 and record"Unit Size"data >= 3
        begin
        add 1 record"Unit Size"data index
        if record"Unit Size"data index > record"Unit Size"data count
            begin
            set max record"Unit Size"data index
            end
        put 0 record"Session Loss"data
        put 0 record"Session Loss Master"data
        end
    end
if net > 0
    begin
    add 1 record"Master Session"data
    if record"Master Session"data > 10
        begin
        if record"Wheel Type"data = 1
            begin
            set flag "Single Wheel" true
            end else begin
            set flag "Single Wheel" false
            end
        clear all records
        if flag "Single Wheel" true
            begin
            put 1 record"Wheel Type"data
            end else begin
            put 2 record"Wheel Type"data
            end
        call "Init"
        set flag "Got Sleepers" false
        exit
        end
    put 1 record"Unit Size"data index
    put 0 record"Session Loss"data
    put 0 record"Session Loss Master"data
    end
put 100% record"Unit Size"data record"Bet this"layout list
end

method "Track"
begin
if record"Wheel Type"data = 1
    begin
    track last number for 37 spins record"Track"layout
    if record"Track"layout count = 37
        begin
        call "Get Sleepers"
        clear record"Track"layout
        end
    end else begin
    track last number for 38 spins record"Track"layout
    if record"Track"layout count = 38
        begin
        call "Get Sleepers"
        clear record"Track"layout
        end
    end
end

method "Get Sleepers"
begin
set flag "Got Sleepers" true
put 1 record"Wheel Layout"layout index
clear record"Sleepers"layout
loop until record"Wheel Layout"layout index > record"Wheel Layout"layout count
    begin
    if record"Wheel Layout"layout not found record"Track"layout
        begin
        copy record"Wheel Layout"layout record"Sleepers"layout
        add 1 record"Sleepers"layout index
        end
    add 1 record"Wheel Layout"layout index
    end
end

method "Init"
begin
if record"Wheel Type"data = 1
    begin
    load single wheel
    copy list [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,
    28,29,30,31,32,33,34,35,36] record"Wheel Layout"layout
    end else begin
    load double wheel
    copy list [00,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,
    28,29,30,31,32,33,34,35,36] record"Wheel Layout"layout
    end
put 1 record"Unit Size"data
put 1 record"Master Session"data
set list [1,2,3,4,5,7,9,12,16,22,30,40,50,70] record"Unit Size"data
end