system "Groupy bets v1"
{
*************************************
*          System by skyman         *
*         on the VIP Lounge         *
*************************************
          Rx-ed by St0rm0r
-------------------------------------
           00-c0mpatible
-------------------------------------
1. Have a total of 4 betting groups.
Group 1 consists of 20 $1 bets. Group 2 consist $2 bets,
group3 consists $3 bets and group 4 consists $4 bets.

2. Start by betting on group1's $1 bet on 1st dozen for 20 times.

3. After all group1 bets finish, if overall profit, start all over again.
If overall loses, start on group2 $2 bet on lst dozen.
The number of group2 bets depend on how many lost in group1 bet.
eg. if group1 lost 15 bets, group2 will have 15 $2 bets.

4. After all group2 bets finish, if overall profit, start all over at
group1 again.
If overall loses, start on group3's $3 bet on lst dozen.
The number of group3 bets depend on how many lost in group 2 bet.
eg. group2 lost 10 bets, group3 will have 10 $3 bets.

5. This process goes on for group3 and group4.
If at end of any group, total is profit, then start all over from group 1.
-------------------------------------
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// act on a loss
if net < 0
    begin
    add 1 record"loss"data
    end

if record"#bets"data >= record"end"data
begin
if bankroll > record"high"data
    begin
    if record"C"data = 1
        begin
        group
            begin
            display "You have reached a new high"
            display "We start a new session"
            end
        end
    call "reset"
    exit
    end
add 1 record"unit"data index
if record"unit"data index > record"unit"data count
    begin
    call "reset"
    if record"C"data = 1
        begin display "ending session in a loss" end
    exit
    end
put 0 record"#bets"data
put 100% record"loss"data record"end"data
put 0 record"loss"data
end

//section 4: bet
put 100% record"unit"data on 1st dozen
add 1 record"#bets"data
end

// subroutines
method "init"
begin
group
    begin
    display "Groupy bets"
    display "--------------------"
    input data "Each group consists of X bets (e.g. 20):" record"end"data
    input dropdown "Comments:
    1:= on
    2:= off" record"C"data
    end
//==========SET YOUR PROGRESSION HERE ========================================
set list [1,2,3,4,6,9,13,20] record"unit"data
//============================================================================
call "reset"
end

method "reset"
begin
put 0 record"#bets"data
put 100% bankroll record"high"data
put 0 record"loss"data
put 1 record"unit"data index
end