system "Sean's Dozens"
{
  ************************************************************************************
  *                   sean43's Cycling Dozens
  *                   Coded by: Roulette787
  *
  *  More info: http://www.rouletteforum.net/cgi-bin/forum/Blah.pl?m-1218045726/
  *
  *
  ************************************************************************************
}


method "main"
begin
  while starting a new session
  begin
     call "init";
  end

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

method "init"
begin
   copy list [1st dozen, 2nd dozen, 3rd dozen] to record "pattern" layout;
   
   //set list [1,1,2,3,4,6,9,13,20] record "progression" data;   // Sean's original progression
   //set list [1,2,4,8,16,32] record "progression" data;         // standard Martingale progression
   //set list [1,1,2,4,5,8,12,18,26] record "progression" data;  // cps10's basic progression level 1
   set list [4,8,12,20,32,48,72,108,160] record "progression" data;   // cps10's superaggressive progression level 3

   put 1 on record "pattern" layout index;
end


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

method "place bets"
begin
   put 100% record "progression" data on record "pattern" layout;


   if record "pattern" layout index >= record "pattern" layout count
   begin
      put 1 on record "pattern" layout index;
   end
   else
   begin
      add 1 on record "pattern" layout index;
   end
end