system "The Worm"
{
*************************************
*         System by Spinit          *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
For system instructions, please visit thread at VIP Lounge:

http://www.gambling.projectsydney.com/viewtopic.php?t=4925
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    put 1 record"Unit Size"data
    put 100% bankroll record"Starting Bankroll"data
    call "Init"
    exit
    end
call "Compile Worm"
call "Bet"
end

method "Bet"
begin
put 100% record"Unit Size"data record"Bet this"layout list
put 100% record"Bet this"layout index record"Bet this index"data
put 1 record"Bet this"layout index
if record"Bet this"layout = number 32
    begin
    if bankroll <= record"Starting Bankroll"data
        begin
        add 1 record"Unit Size"data
        end else begin
        put 100% bankroll record"Starting Bankroll"data
        put 1 record"Unit Size"data
        end
    clear record"Bet this"layout
    put 1 record"Worm"layout index
    end else begin
    put 100% record"Bet this index"data record"Bet this"layout index
    end
end

method "Compile Worm"
begin
if record"Bet this"layout count = 10
    begin
    move list up by 1 record"Bet this"layout
    end else begin
    add 1 record"Bet this"layout index
    end
copy record"Worm"layout record"Bet this"layout
add 1 record"Worm"layout index
end

method "Init"
begin
copy list [1,2,3,6,9,12,15,18,21,24,27,30,33,36,35,34,31,28,25,22,19,16,
13,10,7,4,5,8,11,14,17,20,23,26,29,32] record"Worm"layout
put 1 record"Worm"layout index
end