Need help to code this to Rextreme

[joppoe]

Hi.
Iam not good with programing and tecnical stuff:) so I need help to code this "simple system" to try it on Rextreme.

My "system"

Wait to a Dozen have hit the same Dozen 3 times in row then bet 1$ on the other two dozen if lost there then 3, then 9 and then 27.

Hope someone can help me with this thanks.

//joppoe

[Viz]

there could be tons of easier ways to do it, but it should work now as u explained

Code Select Expand

system "untitled"
{
Wait for a Dozen hit 3 times in row
then bet 1$ on the other two dozen if lost there then 3, then 9 and then 27.
}
method "main"
begin

    if 1st dozen hit 3 begin put 1 record "2-3" data end else begin clear record "2-3" data end
    if 1st dozen hit 4 begin put 2 record "2-3" data end
    if 1st dozen hit 5 begin put 3 record "2-3" data end
    if 1st dozen hit 6 begin put 4 record "2-3" data end
   
    if 2nd dozen hit 3 begin put 1 record "1-3" data end else begin clear record "1-3" data end
    if 2nd dozen hit 4 begin put 2 record "1-3" data end
    if 2nd dozen hit 5 begin put 3 record "1-3" data end
    if 2nd dozen hit 6 begin put 4 record "1-3" data end
   
    if 3rd dozen hit 3 begin put 1 record "1-2" data end else begin clear record "1-2" data end
    if 3rd dozen hit 4 begin put 2 record "1-2" data end
    if 3rd dozen hit 5 begin put 3 record "1-2" data end
    if 3rd dozen hit 6 begin put 4 record "1-2" data end


   if record "2-3" data = 1 begin put 1  list[2nd dozen, 3rd dozen] end
   if record "2-3" data = 2 begin put 3  list[2nd dozen, 3rd dozen] end
   if record "2-3" data = 3 begin put 9  list[2nd dozen, 3rd dozen] end
   if record "2-3" data = 4 begin put 27 list[2nd dozen, 3rd dozen] end
   
   if record "1-3" data = 1 begin put 1  list[1st dozen, 3rd dozen] end
   if record "1-3" data = 2 begin put 3  list[1st dozen, 3rd dozen] end
   if record "1-3" data = 3 begin put 9  list[1st dozen, 3rd dozen] end
   if record "1-3" data = 4 begin put 27 list[1st dozen, 3rd dozen] end

   if record "1-2" data = 1 begin put 1  list[1st dozen, 2nd dozen] end
   if record "1-2" data = 2 begin put 3  list[1st dozen, 2nd dozen] end
   if record "1-2" data = 3 begin put 9  list[1st dozen, 2nd dozen] end
   if record "1-2" data = 4 begin put 27 list[1st dozen, 2nd dozen] end
   
   if any dozen bet won 1 begin clear all records end

end

[Viz]

-