Dozen Streets

[ignatus]

An unpublished system, that may win "short term" with the proper moneymanagement (this you have to figure)...i just leave the code, "as it is"...cheers

RX.code

Code Select Expand

system "Dozen Streets"
// © ignatus 2020 ©

method "main"
begin
  while starting a new session
  begin
      put 0 to Record "Highest Bankroll" Data
      put 0 on total bankroll

       Set List[1,2,4,8,15,35,75,125,150,200]
             to Record "progression" Data


       Set List[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
       to Record "Bet" Data

       Set List[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,
                22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38]
       to Record "spin" Data
       


  end
 
  copy List [Street(1-3)] to Record "s1" Layout
  copy List [Street(4-6)] to Record "s2" Layout
  copy List [Street(7-9)] to Record "s3" Layout
  copy List [Street(10-12)] to Record "s4" Layout
  copy List [Street(13-15)] to Record "s5" Layout
  copy List [Street(16-18)] to Record "s6" Layout

  copy List [Street(19-21)] to Record "s7" Layout
  copy List [street(22-24)] to Record "s8" Layout
  copy List [street(25-27)] to Record "s9" Layout
  copy List [street(28-30)] to Record "s10" Layout
  copy List [street(31-33)] to Record "s11" Layout
  copy List [street(34-36)] to Record "s12" Layout
 
{ copy List [Line(1-6)] to Record "L" Layout
  copy List [Line(31-36)] to Record "H" Layout
  }
 
 
   while on each spin
  begin



  If Record "progression" Data Index >
  Record "progression" Data Count
    Begin
      reset all flags false

   Put 1 on Record "progression" Data Index
   Put 1 on Record "spin" Data Index
   Put 1 to Record "Bet" Data Index

  { clear Record "R" Layout
   clear Record "B" Layout
    clear Record "O" Data
      clear Record "E" Data
      clear Record "H" Data
      clear Record "L" Data
   }
   End



{
if spin count  >= 500 each time
begin
stop session
end
}

{
if total bankroll >= 500 each time
begin
stop session
end



if total bankroll <= -750 each time
begin
stop session
end

}


if any inside bet lost each
begin
Add 1 to Record "Bet" Data Index

if total inside bets count >= 5 each
begin
//add 1 on Record "progression" Data Index
end

if flag "L" true each
begin
set flag "W" false
end
set flag "L" true
end






Add 1 to Record "spin" Data Index





if any street bet won each
begin
set flag "L" false
//add 1 on Record "progression" Data Index


if flag "W" true each
begin
put 1 to Record "progression" Data Index
end


reset all flags false

  set flag "W" true
   Put 1 to Record "Bet" Data Index
    Put 1 to Record "spin" Data Index



  { clear Record "R" Layout
   clear Record "B" Layout
    clear Record "d1" Layout
      clear Record "d3" Layout
      clear Record "c3" Layout
      clear Record "c2" Layout
      clear Record "H" Layout
      clear Record "L" Layout
   }
  if Bankroll >= Record "Highest Bankroll" Data
    begin

      reset all flags false

        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data

      put 1 to Record "progression" Data Index
      set flag "W" false
    end
end


   if Record "Bet" data index >= 3 each
   begin
     if flag "W" true each
     begin
     add 1 to Record "W" data
     end
     reset all flags false
     
     if Record "W" data >= 2 each
     begin
       set flag "W" true
       put 1 to Record "W" data
     end
    Put 1 to Record "Bet" Data Index
    Put 1 to Record "spin" Data Index
   end








if Record "Bet" data index = 1 each
   begin

IF Street(1-3) has hit each
  begin
   set flag "s2" true
   set flag "s3" true
   set flag "s4" true
   end

IF Street(4-6) has hit each
  begin
   set flag "s1" true
   set flag "s3" true
   set flag "s4" true
   end

IF Street(7-9) has hit each
  begin
   set flag "s4" true
   set flag "s2" true
   set flag "s1" true
   end
   
IF Street(10-12) has hit each
  begin
   set flag "s1" true
   set flag "s2" true
   set flag "s3" true
   end


IF Street(13-15) has hit each
  begin
   set flag "s6" true
   set flag "s7" true
   set flag "s8" true
   end
   
IF Street(16-18) has hit each
  begin
   set flag "s8" true
   set flag "s5" true
   set flag "s7" true
   end



IF Street(19-21) has hit each
  begin
   set flag "s5" true
   set flag "s8" true
   set flag "s6" true
   end

IF Street(22-24) has hit each
  begin
  set flag "s5" true
  set flag "s6" true
  set flag "s7" true
   end


IF Street(25-27) has hit each
  begin
   set flag "s10" true
   set flag "s11" true
   set flag "s12" true
   end

IF Street(28-30) has hit each
  begin
   set flag "s9" true
   set flag "s11" true
   set flag "s12" true
   end
   
IF Street(31-33) has hit each
  begin
   set flag "s12" true
   set flag "s10" true
   set flag "s9" true
   end

IF Street(34-36) has hit each
  begin
   set flag "s11" true
   set flag "s10" true
   set flag "s9" true
   end
end

if Record "Bet" data index = 2 each
   begin
   
add 1 on Record "progression" Data Index

IF Street(1-3) has hit each
  begin
   set flag "s2" true
   set flag "s3" true
   set flag "s4" true
   end

IF Street(4-6) has hit each
  begin
   set flag "s1" true
   set flag "s3" true
   set flag "s4" true
   end

IF Street(7-9) has hit each
  begin
   set flag "s4" true
   set flag "s2" true
   set flag "s1" true
   end

IF Street(10-12) has hit each
  begin
   set flag "s1" true
   set flag "s2" true
   set flag "s3" true
   end


IF Street(13-15) has hit each
  begin
   set flag "s6" true
   set flag "s7" true
   set flag "s8" true
   end

IF Street(16-18) has hit each
  begin
   set flag "s8" true
   set flag "s5" true
   set flag "s7" true
   end



IF Street(19-21) has hit each
  begin
   set flag "s5" true
   set flag "s8" true
   set flag "s6" true
   end

IF Street(22-24) has hit each
  begin
  set flag "s5" true
  set flag "s6" true
  set flag "s7" true
   end


IF Street(25-27) has hit each
  begin
   set flag "s10" true
   set flag "s11" true
   set flag "s12" true
   end

IF Street(28-30) has hit each
  begin
   set flag "s9" true
   set flag "s11" true
   set flag "s12" true
   end

IF Street(31-33) has hit each
  begin
   set flag "s12" true
   set flag "s10" true
   set flag "s9" true
   end

IF Street(34-36) has hit each
  begin
   set flag "s11" true
   set flag "s10" true
   set flag "s9" true
   end
end






if flag "s1" true each
begin
  put 100% of Record "progression" data to Record "s1" Layout
  put 100% of Record "progression" data to Record "H" Layout list
end

if flag "s2" true each
begin
  put 100% of Record "progression" data to Record "s2" Layout
  put 100% of Record "progression" data to Record "H" Layout list

end


if flag "s3" true each
begin
  put 100% of Record "progression" data to Record "s3" Layout
  put 100% of Record "progression" data to Record "H" Layout list
end

if flag "s4" true each
begin
  put 100% of Record "progression" data to Record "s4" Layout
  put 100% of Record "progression" data to Record "H" Layout list
end


if flag "s5" true each
begin
  put 100% of Record "progression" data to Record "s5" Layout
  put 100% of Record "progression" data to Record "H" Layout list
end

if flag "s6" true each
begin
  put 100% of Record "progression" data to Record "s6" Layout
  put 100% of Record "progression" data to Record "H" Layout list
end


if flag "s7" true each
begin
  put 100% of Record "progression" data to Record "s7" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end


if flag "s8" true each
begin
  put 100% of Record "progression" data to Record "s8" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end

if flag "s9" true each
begin
  put 100% of Record "progression" data to Record "s9" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end


if flag "s10" true each
begin
  put 100% of Record "progression" data to Record "s10" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end


if flag "s11" true each
begin
  put 100% of Record "progression" data to Record "s11" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end

if flag "s12" true each
begin
  put 100% of Record "progression" data to Record "s12" Layout
  put 100% of Record "progression" data to Record "L" Layout list
end




  end
END