General Cluster 14 80% winrate

[ignatus]

Life goes on, still we play this game called "life". 

Yet, another experiement. Take it or leave it.

80% winrate from a short test.

Gameplay/Procedure; For each spin (Live-wheels only!) BET 7 Neighbours to the current number hit, (7+7 =14 numbers bet) with a simple fibonacci progression. (1,1,2,3,5,10,15,25,35,55,75,125)

I put a Stoploss at Loss/Maxrisk -1000u and Wingoal at +750u.

RX.code

Code Select Expand

system "General Cluster 14"
// © ignatus 2020 ©

method "main"
begin
  while starting a new session
  begin
   put 2000 on total bankroll

   put 100% of Bankroll on Record "highest" Data
        put 100% of Record "highest" Data to Record "max risk" Data
        subtract 1000 of Record "max risk" Data

 
    put 0 to Record "Highest Bankroll" Data
    put 2000 to Record "LowestBR" Data

    Set List[1,1,2,3,5,10,15,25,35,55,75,125]
    //1,1,1,2,5,18,63,221,775]
    //1,2,5,12,30,75,175,400,1000]
    //1,1,1,2,3,5,8,15,25,35,75,125,200,300,500,750,1000]
     //1,1,2,5,15,55,175,600,1000]
     to Record "progression" Data

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

   Set List[1,2,3,4,5,6,7,8,9]
       to Record "win" Data

   end
   
  while on each spin
  begin
 
  if total bankroll >= 2750 each time
begin
stop session
put 2500 to Record "A" data
subtract 100% of Record "A" data from Bankroll
add 100% of Bankroll to Record "TotalBR" Data

add 1 to record "won sessions" data index
    put 1500 on total bankroll
    put 0 to Record "Highest Bankroll" Data
    put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end


   if Bankroll > Record "highest" Data
        begin
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 1000 Record "max risk" Data
        end
       


        if Bankroll <= Record "max risk" Data
        begin
            stop session

            put 1500 to Record "A" data
            subtract 100% of Bankroll from Record "A" data


            subtract 100% of Record "A" data from Record "TotalBR" Data

             put 1500 on total bankroll
             put 0 to Record "Highest Bankroll" Data
             
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 1500 of Record "max risk" Data

            add 1 to record "lost sessions" data index

             if Record "TotalBR" data < Record "LowestBR" Data
        begin
            put 100% of Record "TotalBR" data to Record "LowestBR" Data
        end

            put 1 on Record "progression" Data Index
              Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout

        end

{ if bankroll <= -1500 each
begin
stop session
end

if bankroll >= 1000 each
begin
stop session
end
}

  Track last Number for 1 spins to
Record "last1" layout





    if any inside bet won each
begin
// add 1 to Record "win" Data Index
put 1 on Record "progression" Data Index

      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end
  else
  begin
  Add 1 to Record "progression" Data index
//  put 1 on Record "win" Data Index
     Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
end


  If Record "win" Data Index >= 3 each
    Begin
      put 1 on Record "progression" Data Index
   {
       if Bankroll >= Record "Highest Bankroll" Data each
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end
    }
      put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end








   if Record "Spin counter" Data index = 1
   begin
   set flag "bet" true
   //put 1 on Record "Spin counter" Data index
   Put 7 on Neighbor Count
   Copy Record "last1" layout to Record "bet1" layout
   Copy Neighbors of Record "bet1" layout
   to Record "bett1" Layout
//  Put 100% of Record "progression" Data to Record "bett1" layout list
//  Put 100% of Record "progression" Data to Record "bet1" layout list
   end

{   if Record "Spin counter" Data index = 2
   begin
   //put 1 on Record "Spin counter" Data index
   Put 5 on Neighbor Count
   Copy Record "last1" layout to Record "bet2" layout
   Copy Neighbors of Record "bet2" layout
   to Record "bett2" Layout
  // Put 100% of Record "progression" Data to Record "bett2" layout list
  // Put 100% of Record "progression" Data to Record "bet2" layout list
   end

   if Record "Spin counter" Data index = 3
   begin
   //put 1 on Record "Spin counter" Data index
   Put 3 on Neighbor Count
   Copy Record "last1" layout to Record "bet3" layout
   Copy Neighbors of Record "bet3" layout
   to Record "bett3" Layout
  // Put 100% of Record "progression" Data to Record "bett3" layout list
  // Put 100% of Record "progression" Data to Record "bet3" layout list
   end

   if Record "Spin counter" Data index = 4
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet4" layout
   Copy Neighbors of Record "bet4" layout
   to Record "bett4" Layout
  // Put 100% of Record "progression" Data to Record "bett4" layout list
  // Put 100% of Record "progression" Data to Record "bet4" layout list
   end

    if Record "Spin counter" Data index = 5
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet5" layout
   Copy Neighbors of Record "bet5" layout
   to Record "bett5" Layout
  // Put 100% of Record "progression" Data to Record "bett5" layout list
  // Put 100% of Record "progression" Data to Record "bet5" layout list
   end

{     if Record "Spin counter" Data index = 6
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet6" layout
   Copy Neighbors of Record "bet6" layout
   to Record "bett6" Layout
  // Put 100% of Record "progression" Data to Record "bett6" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

     if Record "Spin counter" Data index = 7
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet7" layout
   Copy Neighbors of Record "bet7" layout
   to Record "bett7" Layout
  // Put 100% of Record "progression" Data to Record "bett7" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

{     if Record "Spin counter" Data index = 8
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet8" layout
   Copy Neighbors of Record "bet8" layout
   to Record "bett8" Layout
   Put 100% of Record "progression" Data to Record "bett8" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

}


if flag "bet" true each
begin

{ Put 100% of Record "progression" Data to Record "bet1" layout list
Put 100% of Record "progression" Data to Record "bet2" layout list
Put 100% of Record "progression" Data to Record "bet3" layout list
Put 100% of Record "progression" Data to Record "bet4" layout list
Put 100% of Record "progression" Data to Record "bet5" layout list
Put 100% of Record "progression" Data to Record "bet6" layout list
Put 100% of Record "progression" Data to Record "bet7" layout list
Put 100% of Record "progression" Data to Record "bet8" layout list  }
Put 100% of Record "progression" Data to Record "bett1" layout list
Put 100% of Record "progression" Data to Record "bett2" layout list
Put 100% of Record "progression" Data to Record "bett3" layout list
Put 100% of Record "progression" Data to Record "bett4" layout list
Put 100% of Record "progression" Data to Record "bett5" layout list
Put 100% of Record "progression" Data to Record "bett6" layout list
Put 100% of Record "progression" Data to Record "bett7" layout list
Put 100% of Record "progression" Data to Record "bett8" layout list
end


add 1 to Record "Spin counter" Data index








{
if total bankroll <= -2000 each
begin
stop session
end
}

  If Record "progression" Data Index >
  Record "progression" Data Count
    Begin
    set flag "bet" false
put 1 on Record "progression" Data Index
put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
   End
   
  //reset all flags false
  // put 1 on Record "Spin counter" Data index

  end
END

[Roulettebeater]

you are giving us very short time between each experiment, we are not turbo-machines !

[ignatus]

you are giving us very short time between each experiment, we are not turbo-machines !

The "other" experiement failed , so lets leave it alone and move on now...:s

[Steve]

Ignatus, are you testing to see if your bet selections have better than random accuracy?

For how much longer will you repeat the same mistakes?

[ignatus]

Ignatus, are you testing to see if your bet selections have better than random accuracy?

For how much longer will you repeat the same mistakes?

Well yes. Exactly what the winrate is now, is uncertain, but for sure its above 50% now i got a winrate of 65% with this test hmmm...To be realistic, this may be realistic? least it should Win more than it lose (depending on MM and progression)...That is it *should* profitable....Not saying Everybody Can play it though beause with This test now Bankroll 2000u Minimum and wingoal +1500u (Progression MAX 100u)

TEST (live spins)

+2072
-1338
-1944
+1942
+2488
+1804
-2058
+1542
+1516
+2392
-2596
+1558
+2232
+1618
+1642
-1560
-1824
+1502
+2040
-2182
========
+10846

13/20=65% winrate

RX.code

Code Select Expand

system "General Cluster 14"
// © ignatus 2020 ©

method "main"
begin
  while starting a new session
  begin
   put 2000 on total bankroll

   put 100% of Bankroll on Record "highest" Data
        put 100% of Record "highest" Data to Record "max risk" Data
        subtract 2000 of Record "max risk" Data

 
    put 0 to Record "Highest Bankroll" Data
    put 2000 to Record "LowestBR" Data

    Set List[1,1,2,2,3,4,5,6,7,8,9,10,12,15,20,25,35,55,75,100]
    //,10,15,25,35,55,75,125]
    //1,1,1,2,5,18,63,221,775]
    //1,2,5,12,30,75,175,400,1000]
    //1,1,1,2,3,5,8,15,25,35,75,125,200,300,500,750,1000]
     //1,1,2,5,15,55,175,600,1000]
     to Record "progression" Data

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

   Set List[1,2,3,4,5,6,7,8,9]
       to Record "win" Data

   end
   
  while on each spin
  begin
 
  if total bankroll >= 3500 each time
begin
stop session
put 2500 to Record "A" data
subtract 100% of Record "A" data from Bankroll
add 100% of Bankroll to Record "TotalBR" Data

add 1 to record "won sessions" data index
    put 1500 on total bankroll
    put 0 to Record "Highest Bankroll" Data
    put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end


   if Bankroll > Record "highest" Data
        begin
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 2000 Record "max risk" Data
        end
       


        if Bankroll <= Record "max risk" Data
        begin
            stop session

            put 1500 to Record "A" data
            subtract 100% of Bankroll from Record "A" data


            subtract 100% of Record "A" data from Record "TotalBR" Data

             put 1500 on total bankroll
             put 0 to Record "Highest Bankroll" Data
             
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 1500 of Record "max risk" Data

            add 1 to record "lost sessions" data index

             if Record "TotalBR" data < Record "LowestBR" Data
        begin
            put 100% of Record "TotalBR" data to Record "LowestBR" Data
        end

            put 1 on Record "progression" Data Index
              Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout

        end

{ if bankroll <= -1500 each
begin
stop session
end

if bankroll >= 1000 each
begin
stop session
end
}

  Track last Number for 1 spins to
Record "last1" layout





    if any inside bet won each
begin
  //add 1 to Record "win" Data Index
  add 1 on Record "progression" Data Index

  if Bankroll >= Record "Highest Bankroll" Data each
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end

      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end
  else
  begin
  Add 1 to Record "progression" Data index
//  put 1 on Record "win" Data Index
     Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
end


  If Record "win" Data Index >= 3 each
    Begin
      put 1 on Record "progression" Data Index
   {
       if Bankroll >= Record "Highest Bankroll" Data each
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end
    }
      put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end








   if Record "Spin counter" Data index = 1
   begin
   set flag "bet" true
   //put 1 on Record "Spin counter" Data index
   Put 7 on Neighbor Count
   Copy Record "last1" layout to Record "bet1" layout
   Copy Neighbors of Record "bet1" layout
   to Record "bett1" Layout
//  Put 100% of Record "progression" Data to Record "bett1" layout list
//  Put 100% of Record "progression" Data to Record "bet1" layout list
   end

{   if Record "Spin counter" Data index = 2
   begin
   //put 1 on Record "Spin counter" Data index
   Put 5 on Neighbor Count
   Copy Record "last1" layout to Record "bet2" layout
   Copy Neighbors of Record "bet2" layout
   to Record "bett2" Layout
  // Put 100% of Record "progression" Data to Record "bett2" layout list
  // Put 100% of Record "progression" Data to Record "bet2" layout list
   end

   if Record "Spin counter" Data index = 3
   begin
   //put 1 on Record "Spin counter" Data index
   Put 3 on Neighbor Count
   Copy Record "last1" layout to Record "bet3" layout
   Copy Neighbors of Record "bet3" layout
   to Record "bett3" Layout
  // Put 100% of Record "progression" Data to Record "bett3" layout list
  // Put 100% of Record "progression" Data to Record "bet3" layout list
   end

   if Record "Spin counter" Data index = 4
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet4" layout
   Copy Neighbors of Record "bet4" layout
   to Record "bett4" Layout
  // Put 100% of Record "progression" Data to Record "bett4" layout list
  // Put 100% of Record "progression" Data to Record "bet4" layout list
   end

    if Record "Spin counter" Data index = 5
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet5" layout
   Copy Neighbors of Record "bet5" layout
   to Record "bett5" Layout
  // Put 100% of Record "progression" Data to Record "bett5" layout list
  // Put 100% of Record "progression" Data to Record "bet5" layout list
   end

{     if Record "Spin counter" Data index = 6
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet6" layout
   Copy Neighbors of Record "bet6" layout
   to Record "bett6" Layout
  // Put 100% of Record "progression" Data to Record "bett6" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

     if Record "Spin counter" Data index = 7
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet7" layout
   Copy Neighbors of Record "bet7" layout
   to Record "bett7" Layout
  // Put 100% of Record "progression" Data to Record "bett7" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

{     if Record "Spin counter" Data index = 8
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet8" layout
   Copy Neighbors of Record "bet8" layout
   to Record "bett8" Layout
   Put 100% of Record "progression" Data to Record "bett8" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

}


if flag "bet" true each
begin

{ Put 100% of Record "progression" Data to Record "bet1" layout list
Put 100% of Record "progression" Data to Record "bet2" layout list
Put 100% of Record "progression" Data to Record "bet3" layout list
Put 100% of Record "progression" Data to Record "bet4" layout list
Put 100% of Record "progression" Data to Record "bet5" layout list
Put 100% of Record "progression" Data to Record "bet6" layout list
Put 100% of Record "progression" Data to Record "bet7" layout list
Put 100% of Record "progression" Data to Record "bet8" layout list  }
Put 100% of Record "progression" Data to Record "bett1" layout list
Put 100% of Record "progression" Data to Record "bett2" layout list
Put 100% of Record "progression" Data to Record "bett3" layout list
Put 100% of Record "progression" Data to Record "bett4" layout list
Put 100% of Record "progression" Data to Record "bett5" layout list
Put 100% of Record "progression" Data to Record "bett6" layout list
Put 100% of Record "progression" Data to Record "bett7" layout list
Put 100% of Record "progression" Data to Record "bett8" layout list
end


add 1 to Record "Spin counter" Data index








{
if total bankroll <= -2000 each
begin
stop session
end
}

  If Record "progression" Data Index >
  Record "progression" Data Count
    Begin
    set flag "bet" false
put 1 on Record "progression" Data Index
put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
   End
   
  //reset all flags false
  // put 1 on Record "Spin counter" Data index

  end
END

[ignatus]

Comparing this now with the First version posted (First version is not Recommended, then!)

Same spins...(Version 1)

-1300
-1278
-860
+770
+756
-1290
+762
-1214
-676
+796
+766
-1088
-682
+786
+758
+752
+756
+762
+764
-712
=======
-1434


12/20=60% winrate

[ignatus]

Version 2. with a +250u WG and SL-500u i got about 70-80% winrate (tested 30 Live-sessions)

Progressionline; 1,2,3,4,6,9,13,17,22,28,35,43,52,62,73,95 (+1 Step for each loss, +1 for each win, and Reset when reached a new high)

TEST (live sessions)

+250
+250
-406
+454
+334
+252
+308
+372
-344
+270
=====
+360
+408
-380
-730
+458
+258
+330
-528
+256
+250
=====
+258
+278
+268
+262
-418
+358
+284
+362
+276
-486
=====

RX.code Version 2

Code Select Expand

system "General Cluster 14 Version 2"
// © ignatus 2020 ©

method "main"
begin
  while starting a new session
  begin
   put 500 on total bankroll

   put 100% of Bankroll on Record "highest" Data
        put 100% of Record "highest" Data to Record "max risk" Data
        subtract 500 of Record "max risk" Data

 
    put 0 to Record "Highest Bankroll" Data
    put 2000 to Record "LowestBR" Data

    Set List[1,2,3,4,6,9,13,17,22,28,35,43,52,62,73,95]
    //,10,15,25,35,55,75,125]
    //1,1,1,2,5,18,63,221,775]
    //1,2,5,12,30,75,175,400,1000]
    //1,1,1,2,3,5,8,15,25,35,75,125,200,300,500,750,1000]
     //1,1,2,5,15,55,175,600,1000]
     to Record "progression" Data

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

   Set List[1,2,3,4,5,6,7,8,9]
       to Record "win" Data

   end
   
  while on each spin
  begin
 
  if total bankroll >= 750 each time
begin
stop session
put 2500 to Record "A" data
subtract 100% of Record "A" data from Bankroll
add 100% of Bankroll to Record "TotalBR" Data

add 1 to record "won sessions" data index
    put 1500 on total bankroll
    put 0 to Record "Highest Bankroll" Data
    put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end


   if Bankroll > Record "highest" Data
        begin
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 500 Record "max risk" Data
        end
       


        if Bankroll <= Record "max risk" Data
        begin
            stop session

            put 1500 to Record "A" data
            subtract 100% of Bankroll from Record "A" data


            subtract 100% of Record "A" data from Record "TotalBR" Data

             put 1500 on total bankroll
             put 0 to Record "Highest Bankroll" Data
             
            put 100% of Bankroll on Record "highest" Data
            put 100% of Record "highest" Data to Record "max risk" Data
            subtract 1500 of Record "max risk" Data

            add 1 to record "lost sessions" data index

             if Record "TotalBR" data < Record "LowestBR" Data
        begin
            put 100% of Record "TotalBR" data to Record "LowestBR" Data
        end

            put 1 on Record "progression" Data Index
              Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout

        end

{ if bankroll <= -1500 each
begin
stop session
end

if bankroll >= 1000 each
begin
stop session
end
}

  Track last Number for 1 spins to
Record "last1" layout





    if any inside bet won each
begin
// add 1 to Record "win" Data Index
  add 1 on Record "progression" Data Index

  if Bankroll >= Record "Highest Bankroll" Data each
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end

      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end
  else
  begin
if total inside bets count >= 1 each
begin
Add 1 to Record "progression" Data index
//  put 1 on Record "win" Data Index
     Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
end
end


  If Record "win" Data Index >= 3 each
    Begin
      put 1 on Record "progression" Data Index
   {
       if Bankroll >= Record "Highest Bankroll" Data each
     begin
        clear Record "Highest Bankroll" Data
        put 100% Bankroll to Record "Highest Bankroll" Data
        put 1 on Record "progression" Data Index
     end
    }
      put 1 on Record "progression" Data Index
      Put 1 on Record "bet" Data Index
      Put 1 on Record "win" Data Index
      reset all flags false
   put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
end





    if Record "bett1" Layout list has not hit each
   begin
     set flag "bet" true
   end


   if Record "Spin counter" Data index = 1
   begin

   //put 1 on Record "Spin counter" Data index
   Put 7 on Neighbor Count
   Copy Record "last1" layout to Record "bet1" layout
   Copy Neighbors of Record "bet1" layout
   to Record "bett1" Layout
   
   set flag "B" true
//  Put 100% of Record "progression" Data to Record "bett1" layout list
//  Put 100% of Record "progression" Data to Record "bet1" layout list
   end

{   if Record "Spin counter" Data index = 2
   begin
   //put 1 on Record "Spin counter" Data index
   Put 5 on Neighbor Count
   Copy Record "last1" layout to Record "bet2" layout
   Copy Neighbors of Record "bet2" layout
   to Record "bett2" Layout
  // Put 100% of Record "progression" Data to Record "bett2" layout list
  // Put 100% of Record "progression" Data to Record "bet2" layout list
   end

   if Record "Spin counter" Data index = 3
   begin
   //put 1 on Record "Spin counter" Data index
   Put 3 on Neighbor Count
   Copy Record "last1" layout to Record "bet3" layout
   Copy Neighbors of Record "bet3" layout
   to Record "bett3" Layout
  // Put 100% of Record "progression" Data to Record "bett3" layout list
  // Put 100% of Record "progression" Data to Record "bet3" layout list
   end

   if Record "Spin counter" Data index = 4
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet4" layout
   Copy Neighbors of Record "bet4" layout
   to Record "bett4" Layout
  // Put 100% of Record "progression" Data to Record "bett4" layout list
  // Put 100% of Record "progression" Data to Record "bet4" layout list
   end

    if Record "Spin counter" Data index = 5
   begin
   //put 1 on Record "Spin counter" Data index
   Put 2 on Neighbor Count
   Copy Record "last1" layout to Record "bet5" layout
   Copy Neighbors of Record "bet5" layout
   to Record "bett5" Layout
  // Put 100% of Record "progression" Data to Record "bett5" layout list
  // Put 100% of Record "progression" Data to Record "bet5" layout list
   end

{     if Record "Spin counter" Data index = 6
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet6" layout
   Copy Neighbors of Record "bet6" layout
   to Record "bett6" Layout
  // Put 100% of Record "progression" Data to Record "bett6" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

     if Record "Spin counter" Data index = 7
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet7" layout
   Copy Neighbors of Record "bet7" layout
   to Record "bett7" Layout
  // Put 100% of Record "progression" Data to Record "bett7" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

{     if Record "Spin counter" Data index = 8
   begin
   //put 1 on Record "Spin counter" Data index
   Put 1 on Neighbor Count
   Copy Record "last1" layout to Record "bet8" layout
   Copy Neighbors of Record "bet8" layout
   to Record "bett8" Layout
   Put 100% of Record "progression" Data to Record "bett8" layout list
  // Put 100% of Record "progression" Data to Record "bet6" layout list
   end

}


if flag "bet" true each
begin

{ Put 100% of Record "progression" Data to Record "bet1" layout list
Put 100% of Record "progression" Data to Record "bet2" layout list
Put 100% of Record "progression" Data to Record "bet3" layout list
Put 100% of Record "progression" Data to Record "bet4" layout list
Put 100% of Record "progression" Data to Record "bet5" layout list
Put 100% of Record "progression" Data to Record "bet6" layout list
Put 100% of Record "progression" Data to Record "bet7" layout list
Put 100% of Record "progression" Data to Record "bet8" layout list  }
Put 100% of Record "progression" Data to Record "bett1" layout list
Put 100% of Record "progression" Data to Record "bett2" layout list
Put 100% of Record "progression" Data to Record "bett3" layout list
Put 100% of Record "progression" Data to Record "bett4" layout list
Put 100% of Record "progression" Data to Record "bett5" layout list
Put 100% of Record "progression" Data to Record "bett6" layout list
Put 100% of Record "progression" Data to Record "bett7" layout list
Put 100% of Record "progression" Data to Record "bett8" layout list
end


add 1 to Record "Spin counter" Data index








{
if total bankroll <= -2000 each
begin
stop session
end
}

  If Record "progression" Data Index >
  Record "progression" Data Count
    Begin
   // stop session
    set flag "bet" false
put 1 on Record "progression" Data Index
put 1 on Record "Spin counter" Data index
clear Record "bet1" layout
clear Record "bet2" layout
clear Record "bet3" layout
clear Record "bet4" layout
clear Record "bet5" layout
clear Record "bet6" layout
clear Record "bet7" layout
clear Record "bet8" layout
clear Record "bett1" layout
clear Record "bett2" layout
clear Record "bett3" layout
clear Record "bett4" layout
clear Record "bett5" layout
clear Record "bett6" layout
clear Record "bett7" layout
clear Record "bett8" layout
   End
   
  //reset all flags false
  // put 1 on Record "Spin counter" Data index

  end
END