System needs coding..... Please

[MXkid77]

Hi, can anyone help out with coding the following system:

nolinks://vlsroulette.com/full-systems/6-9-12-stage-streets/

I only need stage 1 coded to play on the Streets or street numbers, with a 12 step progression.

Either for RX or for NWR Scripter.......

Thanks in advance

[MXkid77]

This is basically what i need coded.

Overview:

The bet selection is determined by tracking for 24 spins to get the selection.

The selection will be either 1, 2, 3 or 4 streets which have repeated 3 or more times. These will be bet on with a progression.
*Stop on a win*, spin out 36, and retrack 24 spins for the next bet selection.

If on 24 spins, 1, 2 or 3 streets have qualified, bet on these, following the stage & level progression, taking note for a 2nd, 3rd or 4th qualifying street to be added.  Additional qualifying streets will be added at the same progression as the streets in play. If playing 1, 2, or 3 streets and you win. Stop, spin out 36, and retrack 24 for the next bet selection.

Maximum is 4 streets in play, otherwise the progression just gets out of hand.

No Bet situations:

If more than 4 streets qualify in 24 spins, spin out to 36 and retrack.

*If all 4 qualifying streets make up one dozen, you never know if this dozen will sleep or not.*
(*Use common sence with this one, but i would rather class it as a no bet and retrack for a new selection.*)

DO NOT, TRACK BACK 12 SPINS AFTER A WIN. FOLLOW THE SYSTEM OF 36 SPINS! I did this before and experienced a no show in 12 spins.

Progression: 1,2,3,4,6,10,15,23,34,51,77,115. Max drawdown 1364

Bet on selected streets. (ie. 3 numbers 1 unit) for 12 spins, stop on a win.

Any coders out there willing to give it a bash???

[MXkid77]

Bump.

[VLSroulette]

Bump.

MX, my mate, RX coders (I.e. Sp1n Dizzy, RXGuru) seem to be on vacation and sadly I only can code software in VB. It seems you better have to start trying the language yourself:

RX Scripting for Roulette Xtreme, the Step-by-step guide!´

If you can learn it successfully, you can serve your request and then you can become a coder contributor yourself

Wish you the best shall you take the roulette coding learning challenge.

Regards.

Your friend,
Victor

[Tiago2]

I'll give this system a shot at putting it to code. Thou I don't fully understand it. If you can explain further the "spin out 36" and "retrack 24" and stuff. I'll code it for NWRS

[MXkid77]

Hi Tiago, thanks for the offer mate.

Basically, the system works on a cycle of 36 spins. Tracking of which, is the first 24 spins for every cycle. The remaining 12 spins will be bet on if the criteria have been met.
If no bet has been placed due to the criteria no being met. Then the cycle of 36 must be completed before it retracks another 24 spins. If a bet is placed during the last 12 spins, then after a hit, the bet must be removed and the remainder of the "36 spin cycle" must be spun, before it retacks a new 24 spins.

Hope this helps.

[RXGuru]

Hello

I coded your system in RX.   See below.   Also you can download our new eBook for additional help in RX Scripting in out download section:
nolinks. uxsoftware. com/pages/download. html

Just copy/paste to RX Designer.

RXGuru

Code: 

Code Select Expand

system "mxkid77_streets"
{
********************
*  Coded by RXGuru *
*                  *
*  Aprin 23, 2009  *
********************

The bet selection is determined by tracking for 24 spins to get the selection.
The selection will be either 1, 2, 3 or 4 streets which have repeated 3 or more
times. These will be bet on with a progression. *Stop on a win*, spin out 36,
and retrack 24 spins for the next bet selection. If on 24 spins, 1, 2 or 3
streets have qualified, bet on these, following the stage & level progression,
taking note for a 2nd, 3rd or 4th qualifying street to be added.  Additional
qualifying streets will be added at the same progression as the streets in play.
If playing 1, 2, or 3 streets and you win. Stop, spin out 36, and retrack 24
for the next bet selection. Maximum is 4 streets in play, otherwise the progression
just gets out of hand. No Bet situations: If more than 4 streets qualify in 24 spins,
spin out to 36 and retrack. *If all 4 qualifying streets make up one dozen, you
never know if this dozen will sleep or not.* (*Use common sence with this one,
but I would rather class it as a no bet and retrack for a new selection.*)
DO NOT, TRACK BACK 12 SPINS AFTER A WIN. FOLLOW THE SYSTEM OF 36 SPINS!
Progression: 1,2,3,4,6,10,15,23,34,51,77,115. Max drawdown 1364
Bet on selected streets. (ie. 3 numbers 1 unit) for 12 spins, stop on a win.
}
method "main"
begin
    while starting a new session
    begin
        //initialize here
        call "initialize"
       
        put 0 on record "spin count" data
        set list [1,2,3,4,6,10,15,23,34,51,77,115] to record "progression" data
        copy list [Street(1-3),Street(4-6),Street(7-9),Street(10-12),
                   Street(13-15),Street(16-18),Street(19-21),Street(22-24),
                   Street(25-27),Street(28-30),Street(31-33),Street(34-36)] to record "streets" layout
                   
        Input checkbox "Retrack if 4 qualifying streets
                        make up 1 dozen
                        " to flag "retrack"
    end
   
    While on Each Spin
    begin
        //count up to 36 spins
        add 1 to record "spin count" data
       
        if record "spin count" data = 36
        or Any Street Bet has won each time
        begin
            //end of 36 spins, so initialize and start over
            call "initialize"
        end
       
        if flag "spin out to 36" is true
        begin
            //spin out to 36 so exit
            exit
        end
       
        copy last street to record "last street" layout

        if flag "ready to bet" is false
        begin
            //add street hits
            call "add street hit"
        end
       
        //after 24 spins, check for qualifications of streets
        if record "spin count" data >= 24
        begin
            Call "qualify hits"

            if flag "retrack" is true
            begin
                call "check for qualify dozen"
            end
           
            if record "street count" data > 4
            begin
                //more than 4 streets qualify, the set spin out to 36
                set flag "spin out to 36" to true
                exit
            end
           
            if flag "ready to bet" is true
            begin
                if record "street count" data < 4
                begin
                    //less than 4 so qualify more until we reach 4 streets
                    call "add street hit"
                    call "qualify hits"
                end
               
                //make a bet using progression
                call "place bets"
                add 1 to record "progression" data index
            end
        end
    end
end

method "initialize"
begin
    put 1 on record "spin count" data
    set flag "spin out to 36" to false
    set flag "ready to bet" to false
    clear record "streets" data
    put 0 on record "street count" data
    put 1 on record "progression" data index
end

method "add street hit"
begin
    put 1 on record "streets" layout index

    //loop through 24 spins to count street hits
    loop until record "streets" layout index > record "streets" layout count
    begin
        if record "last street" layout = record "streets" layout
        begin
            put 100% of record "streets" layout index to record "streets" data index
            add 1 to record "streets" data
        end

        add 1 to record "streets" layout index
    end
end

method "qualify hits"
begin
    //check if two lines has
    put 0 on record "street count" data
    put 1 on record "streets" data index

    loop until record "streets" data index > record "streets" data count
    begin
        if record "streets" data >=3
        begin
            add 1 to record "street count" data
        end

        add 1 to record "streets" data index
    end
   
    if record "street count" data <=4
    begin
        set flag "ready to bet" to true
    end
end

method "place bets"
begin
    put 1 on record "streets" data index

    loop until record "streets" data index > record "streets" data count
    begin
        if record "streets" data >= 3
        begin
            put 100% of record "streets" data index to record "streets" layout index
            put 100% of record "progression" data to record "streets" layout
        end

        add 1 to record "streets" data index
    end
end

method "check for qualify dozen"
begin
    set flag "in dozen" to false
   
    //first dozen
    put 1 on record "start street" data
    put 4 on record "end street" data
    call "check dozen"

    //second dozen
    put 5 on record "start street" data
    put 8 on record "end street" data
    call "check dozen"

    //third dozen
    put 9 on record "start street" data
    put 12 on record "end street" data
    call "check dozen"
   
    if flag "in dozen" is true
    begin
        set flag "ready to bet" to false
        set flag "spin out to 36" to true
    end
end

method "check dozen"
begin
    put 100% of record "start street" data to record "streets" data index

    put 0 on record "count" data

    loop until record "streets" data index > record "end street" data
    begin
        if record "streets" data >=3
        begin
            add 1 to record "count" data
        end

        add 1 to record "streets" data index
    end

    if record "count" data = record "street count" data
    begin
        set flag "in dozen" to true
    end
end


[VLSroulette]

Excellent to see an active RX coder around

DGT file here:
nolinks://vlsroulette.com/downloads/?sa=view;id=331

[smiley=dankk2.gif]

[Tiago2]

Here's the system to work with NWRS
If you want to play with flat bets remove this line "Idx := Idx+1;"

Code Select Expand


{Coded by Tiago2}
Uses
  ScriptUtils;                               
             
Const Empty = -5;         
             
Var
  STrack,FCnt; //..Arrays to hold Streets to be bet at and Street counts

procedure Click_SpinEx;
Begin
  Click_Spin;
  Print(IntToStr(NumberSpun)+':');
End;

procedure Include(Var Arr; Value: Integer);
Begin           
  For I := Low(Arr) to High(Arr) do
    if Arr[I] = Value then
      Break               
    else if Arr[I] = Empty then
    Begin                                       
      Arr[I] := Value;           
      Break;               
    End;
End;                                                                 
                             
procedure Exclude(Var Arr; Value: Integer);
Begin                               
  For I := Low(Arr) to High(Arr) do
    if Arr[I] = Value then
    Begin
      if I = High(Arr) then
        Arr[High(Arr)] := Empty
      else
        for ii := I to High(Arr) - 1 do
          Arr[ii] := Arr[ii+1];
    End; 
End;

function Count(Arr): Integer;
Begin
  Result := 0;
  for I := Low(Arr) to High(Arr) do
    if Arr[I] <> Empty then                   
      Result := Result+1
    else Break;     
End;     
                 
function TrackStreets: Boolean;
Begin
  STrack := CreateArray(4,atInteger);
  for I := Low(STrack) to High(STrack) do
    STrack[I] := Empty;
     
  FCnt := CreateArray(mEnd(Trios)-mStart(Trios)+1,atInteger);
  for n := 1 to 24 do   
  Begin
    Click_SpinEx;                 
    for Cat := Trio_1_2_3 to Trio_34_35_36 do
      if NumInCat(NumberSpun,Cat) then
        FCnt[Cat-Trio_1_2_3] := FCnt[Cat-Trio_1_2_3]+1;
  End;                                           
  for Cat := Low(FCnt) to High(FCnt) do
    if FCnt[Cat] >= 3 then
      Include(STrack,Cat+mStart(Trios));
     
  if (Count(STrack) = 4) then
  Begin
    D1 := True;
    D2 := True;       
    D3 := True;
    for n := Low(STrack) to High(STrack) do
    Begin
       Cat := STrack[n];
       if Not ((Trio_1_2_3 <= Cat) and (Cat <= Trio_10_11_12)) then    //..Check if all streets are in 1st dozen
         D1 := False;                                                 
       if Not ((Trio_13_14_15 <= Cat) and (Cat <= Trio_22_23_24)) then  //..Check if all streets are in 2nd dozen
         D2 := False;
       if Not ((Trio_25_26_27 <= Cat) and (Cat <= Trio_34_35_36)) then  //..Check if all streets are in 3rd Dozen
         D3 := False;                                               
    End; 
    Result := ((D1 = False) and (D2 = False) and (D3 = False));
  End else Result := (Count(STrack) >= 3);                   
End;         

Begin
  Betting := False;
  Progr := [1,2,3,4,6,10,15,23,34,51,77,115];
 
  for R := 1 to 500 do
  Begin
    if Betting = False then
    Begin
      if TrackStreets = False then
        for I := 1 to 12 do Click_SpinEx;
      else
      Begin
        Betting := True;
        if Count(STrack) = 3 then
        Begin
          Need4th := True
          Bets := [STrack[0],STrack[1],STrack[2]];
        End;
        else Need4th := False;
      End;
    End else                 
    Begin
      Idx := 0;
      for I := 1 to 12 do         
      Begin
        Str := '  Bet '+IntToStr(Progr[Idx])+' Units on:   ';       
        for Cat := Low(STrack) to High(STrack) do
          if STrack[Cat] <> Empty then
          Begin           
            PlaceBet(STrack[Cat],Progr[Idx]);
            Str := Str + CatToStr(STrack[Cat])+'       ';
          End;             
        if Str <> '  Bet '+IntToStr(Progr[Idx])+' Units on:   ' then
        Begin
          Print(Str);
          Idx := Idx+1;
        End;
        Click_SpinEx;       
        if Need4th = True then
          for Cat := Trio_1_2_3 to Trio_34_35_36 do
             if NumInCat(NumberSpun,Cat) then
             Begin
               FCnt[Cat-Trio_1_2_3] := FCnt[Cat-Trio_1_2_3]+1;
               if (FCnt[Cat-Trio_1_2_3] >= 3) and (NumInArray(Cat,Bets) = False) then
               Begin
                 Include(STrack,Cat);
                 Need4th := False;
                 Break;
               End;
             End;             
        for Cat := Low(STrack) to High(STrack) do
          if CatWon(STrack[Cat]) then           
          Begin
            for n := Low(STrack) to High(STrack) do
              STrack[n] := Empty;
              Need4th := False;
            Break;                         
          End;
      End;                     
      Betting := False;
    End;         
  End;
End;


[VLSroulette]

Wowers dear friends, so glad there are coders serving requests 

Kudos to you guys!

[VLSroulette]

-