system "Spinit's Sleepers v2"
{
*************************************
*         System by Spinit          *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
Play all the sleepers after 37(38 for 00) spins, and play
them for the next 37(38 for 00) spins, put 1 unit on each of the sleepers.

If lose increase bet on all sleepers to 2 units on each,
if lose again increase all sleepers to 3 units on each and
so on until a hit and then once they hit all sleepers go back to 1 unit,
another thing to remember is to record all the sleepers for the next 37/38
while you play to set up for the next game just to keep it continuious.
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    exit
    end
call "Track"
call "Place Bets"
end

method "Place Bets"
begin
if flag "Bet" true
    begin
    if net > 0
        begin
        put 1 record"Unit Size"data
        end else begin
        add 1 record"Unit Size"data
        end
    end
put 100% record"Unit Size"data record"Sleepers"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"
        put 0 record"Unit Size"data
        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
        put 0 record"Unit Size"data
        end
    end
end

method "Get Sleepers"
begin
set flag "Bet" 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
group
    begin
    display "Spinit's Sleepers"
    display "------------------------------------------------------"
    input dropdown "Wheel Type
    1:=Single Wheel
    2:=Double Wheel" record"Wheel Type"data
    end
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
end