system "Pooter's MiM Variance"
{

}
method "main"
begin
while starting a new session
begin
put 100% bankroll on record "highbr" data
end
put 100% bankroll on record "tempbr" data
call "track"

call "eval"

call "bet"
end

method "eval"
begin
if net > 0 and record "tempbr" data <= record "highbr" data
    begin

    copy record "last#" layout on record "don't play these" layout
    add 1 on record "don't play these" layout index
        if record "don't play these" layout index >=7
        begin
        put 100% record "tempbr" data on record "highbr" data
        clear record "playing these" layout
        clear record "playing twice" layout
        clear record "playing three times" layout
        clear record "don't play these" layout
        put 1 on record "don't play these" layout index
        copy record "last#" layout on record "don't play these" layout
        end

    loop until record "playing three times" layout index > record "playing three times" layout count
    begin
    add 1 on record "playing three times" layout index
    end

    put 1 on record "playing twice" layout index
    loop until record "playing twice" layout index > record "playing twice" layout count
    begin
    copy record "playing twice" layout on record "playing three times" layout
    add 1 on record "playing twice" layout index
    add 1 on record "playing three times" layout index
    end
    put 1 on record "playing twice" layout index
    clear record "playing twice" layout

    put 1 on record "play these" layout index
    loop until record "play these" layout index > record "play these" layout count
    begin
    copy record "play these" layout on record "playing twice" layout
    add 1 on record "playing twice" layout index
    add 1 on record "play these" layout index
    end
    clear record "play these" layout
    put 1 on record "play these" layout index
    end


if net > 0 and record "tempbr" data > record "highbr" data
    begin
    clear record "play these" layout
    clear record "playing twice" layout
    put 1 on record "don't play these" layout index
    put 1 on record "playing three times" layout index
    clear record "playing three times" layout
    clear record "don't play these" layout
    put 100% record "tempbr" data on record "highbr" data
    end
end


method "track"
begin
track last number for 37 times on record "play these" layout
track last number for 1 time on record "last#" layout
end

method "bet"
begin
put 1 on record "play these" layout list
put 2 on record "playing twice" layout list
put 3 on record "playing three times" layout list
put 0 on record "don't play these" layout list
end