3 dozens progression code

[jarabo002]

Again, I am going to ask for a dgt code, an excel file o something similar to play the Penthouse 3 dozens progression as GLC explain it, with a reset on a new profit, and distribute the bets in case of big holes. Because it can be difficult to track:

link:://rouletteforum.cc/index.php?topic=9704.msg83634#msg83634 

Thanks

[Colt]

I've just started learning to code in RX, so I'll give it a go.
let me know if it needs to be changed.

[Colt]

system "Penthouse 3 Dozens progression"
{played on dozens
  -progression is 1,1,1,2,2,2,3,3,3 ect....
  -Move 1 to the right on a loss and 2 to the left on a win.
  -progression resets on a new profit

  coded by Colt 23/7/2012
}
method "main"
begin
    While Starting a New Session
    begin
    input dropdown "Which dozen would you like to play?
    1:= 1st Dozen
    2:= 2nd Dozen
    3:= 3rd Dozen"
    to record "table" data
    if record "table" data =1
    begin
    copy  1st dozen to record "dozen" layout
    end
    if record "table" data =2
    begin
    copy  2nd dozen to record "dozen" layout
    end
    if record "table" data =3
    begin
    copy  3rd dozen to record "dozen" layout
    end
     set list[1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,
     21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40
     ,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet" data
    put 100% bankroll to record "bank" data
    end
     put 100% of record "bet" data on record "dozen" layout
    While on Each Spin
    begin
    if record "dozen" layout has won each spin
    begin
    if bankroll> record "bank" data
    begin
    put 1 to record "bet" data index
    put 100% bankroll to record "bank" data
    end
    else
    begin
    subtract 2 from record "bet" data index
    end
    end
    if record "dozen" layout has lost each spin
    begin
    add 1 to record "bet" data index
    end
    if record "bet" data index <1
    begin
    put 1 to record "bet" data index
    end
    if record"bet" data index >150
    begin
    put 150 to record "bet" data index
    end
    put 100% of record "bet" data on record "dozen" layout
    end
end

[jarabo002]

Thank you Colt!


It would be much better if we can play with the 3 dozens at the same time.

[Colt]

I've added the option to bet all 3 dozens

[Colt]

system "Penthouse 3 Dozens progression"
{played on dozens
  -progression is 1,1,1,2,2,2,3,3,3 ect....
  -Move 1 to the right on a loss and 2 to the left on a win.
  -progression resets on a new profit

  coded by Colt 23/7/2012
}
method "main"
begin
    While Starting a New Session
    begin
    input dropdown "Which dozen would you like to play?
    1:= 1st Dozen
    2:= 2nd Dozen
    3:= 3rd Dozen
    4:= All Dozens"
    to record "table" data
    if record "table" data =1
    begin
    copy  1st dozen to record "dozen1" layout
    put 100% of record "bet1" data on record "dozen1" layout
    end
    if record "table" data =2
    begin
    copy  2nd dozen to record "dozen2" layout
    put 100% of record "bet2" data on record "dozen2" layout
    end
    if record "table" data =3
    begin
    copy  3rd dozen to record "dozen3" layout
    put 100% of record "bet3" data on record "dozen3" layout
    end
    if record "table" data =4
    begin
    copy 1st dozen to record "dozen1" layout
    copy 2nd dozen to record "dozen2" layout
    copy 3rd dozen to record "dozen3" layout
    put 100% of record "bet1" data on record "dozen1" layout
    put 100% of record "bet2" data on record "dozen2" layout
    put 100% of record "bet3" data on record "dozen3" layout
    end
     set list[1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,
     21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40
     ,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet1" data

     set list[1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,
     21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40
     ,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet2" data

     set list[1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,
     21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40
     ,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet3" data

    put 100% bankroll to record "bank" data
    end
    While on Each Spin
    begin
    if record "dozen1" layout has won each spin
    begin
    if bankroll> record "bank" data
    begin
    put 1 to record "bet1" data index
    put 1 to record "bet2" data index
    put 1 to record "bet3" data index
    put 100% bankroll to record "bank" data
    end
    else
    begin
    subtract 2 from record "bet1" data index
    end
    end
   
        if record "dozen2" layout has won each spin
    begin
    if bankroll> record "bank" data
    begin
    put 1 to record "bet2" data index
    put 1 to record "bet1" data index
    put 1 to record "bet3" data index
    put 100% bankroll to record "bank" data
    end
    else
    begin
    subtract 2 from record "bet2" data index
    end
    end
   
        if record "dozen3" layout has won each spin
    begin
    if bankroll> record "bank" data
    begin
    put 1 to record "bet3" data index
    put 1 to record "bet1" data index
    put 1 to record "bet2" data index
    put 100% bankroll to record "bank" data
    end
    else
    begin
    subtract 2 from record "bet3" data index
    end
    end
   
    if record "dozen1" layout has lost each spin
    begin
    add 1 to record "bet1" data index
    end
   
    if record "dozen2" layout has lost each spin
    begin
    add 1 to record "bet2" data index
    end
   
    if record "dozen3" layout has lost each spin
    begin
    add 1 to record "bet3" data index
    end
   
    if record "bet1" data index <1
    begin
    put 1 to record "bet1" data index
    end
    if record"bet1" data index >150
    begin
    put 150 to record "bet1" data index
    end
   
    if record "bet2" data index <1
    begin
    put 1 to record "bet2" data index
    end
    if record"bet2" data index >150
    begin
    put 150 to record "bet2" data index
    end
    if record "bet3" data index <1
    begin
    put 1 to record "bet3" data index
    end
    if record"bet3" data index >150
    begin
    put 150 to record "bet3" data index
    end
    put 100% of record "bet1" data on record "dozen1" layout
    put 100% of record "bet2" data on record "dozen2" layout
    put 100% of record "bet3" data on record "dozen3" layout
    end
end

[jarabo002]

Thank you  again  Colt!




Its a very good work!