system "Simon's Last Winning Dozen"
{
    ****************************************************************************
    *                  System: Bet on Last Winning Dozen                       *
    *                       Coded by: Roulette787                              *
    *                                                                          *
    *  More info: http://www.rouletteforum.net/cgi-bin/forum/                  *
    *                                              Blah.pl?m-1218045726/s-105/ *
    ****************************************************************************
}
method "main"
begin
    while starting a new session
    begin
       call "init";
    end

    call "check win";
    call "select dozen";
    call "place bets";
end


method "init"
begin
   //set list [1, 1, 2, 3, 4, 6] on record "progression" data;
   set list [1, 2, 3, 4, 6, 9, 13, 20, 30, 45, 68, 101, 152, 228, 342, 513, 769, 1154, 1731, 2596] on record "progression" data;
   put 1 on record "progression" data index;
end



method "check win"
begin
   if net > 0
   begin
      put 1 on record "progression" data index;
   end
   
   if net < 0
   begin
      if record "progression" data index >= record "progression" data count
      begin
         put 1 on record "progression" data index;
      end
      else
      begin
         add 1 on record "progression" data index;
      end
   end
end

method "select dozen"
begin
   copy last dozen to record "lastD" layout;
end

method "place bets"
begin
   put 100% of record "progression" data on record "lastD" layout;
end