Could you please code this system in RX?

[hideseek]

Hi,
   End digit play:

                    If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits of 6 and 1 for four spins flat bet.
Thanks
Hideseek

[RXGuru]

Hello

Here is your code.  Regards RXGuru

Code Select Expand

system "End digit play"
{
***********************************************
*
*      End digit playm
*      Coded by: RXGuru
*
***********************************************

If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits
of 6 and 1 for four spins flat bet.


}
method "main"
begin
    While starting a New Session
    Begin
        Put 1 on record "bet" data
        Copy List [6,16,26,36,1,11,21,31] to record "end digits" layout
        put 0 on record "bet count" data
        Set flag "bet?" to false
       
        Input Data "Enter your bet amount" to record "bet" data
    end

    While on Each Spin
    begin
        Copy Last number to record "last number" layout
       
        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false
        begin
            Set flag "bet?" to true
        end
       
        if flag "bet?" is true
        begin
            Add 1 to record "bet count" data
           
            if record "bet count" data > 4 then
            or Any Number Bet has Won each time
            begin
                Set flag "bet?" to false
                Put 0 on record "bet count" data
                exit
            end
           
            Put 100% of record "bet" data to record "end digits" layout list
        end
    end

end


[VLSroulette]

.DGT file at RX code section from downloads section:

hideseek_end-digit-play_rxguru.dgt

Thanks RXGuru

[hideseek]

OHHHHHH Thanks a Million RXGuru and Victor.

[hideseek]

I wanted to modify the code in this way:
If 2 simultaneous hits, then play all of the end digit #s for 4 spins.
For ex:
       6,11------------> now play all
       36,16-----------> now play all.
Thanks

[RXGuru]

Hello

Try this code

RXGuru

Code Select Expand

system "End digit play II"
{
***********************************************
*
*      End digit playm
*      Coded by: RXGuru
*
***********************************************

If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits
of 6 and 1 for four spins flat bet.

******* MODIFIED by RXGuru 12.9.2009 **********

If 2 simultaneous hits, then play all of the end digit #s for 4 spins.
For ex:
       6,11------------> now play all
       36,16-----------> now play all.



}
method "main"
begin
    While starting a New Session
    Begin
        Put 1 on record "bet" data
        Copy List [6,16,26,36,1,11,21,31] to record "end digits" layout
        put 0 on record "bet count" data
        Set flag "bet?" to false
       
        Input Data "Enter your bet amount" to record "bet" data
    end

    While on Each Spin
    begin
        Copy Last number to record "last number" layout
       
        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false
        begin
            Set flag "bet?" to true
        end
       
        if flag "bet?" is true
        begin
            Add 1 to record "bet count" data
           
            if record "bet count" data > 4 then
            or Any Number Bet has Won each time
            begin
                Set flag "bet?" to false
                Put 0 on record "bet count" data

                if  record "previous number" layout is found in record "end digits" layout
                and record "last number" layout is found in record "end digits" layout
                begin
                    put 0 on record "bet count" data
                    set flag "bet?" to true
                end
                else
                begin
                    exit
                end
            end
           
            Put 100% of record "bet" data to record "end digits" layout list

            Copy record "last number" layout to record "previous number" layout
        end
    end

end


[hideseek]

RX Guru thanks again. But it is betting on single hit itself. I wanted to wait for 2 hits, then play.
Thanks

[rjeaton1]

This should do it:

Code Select Expand

    system "End digit play II"
{
***********************************************
*
*      End digit playm
*      Coded by: RXGuru
*
***********************************************

If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits
of 6 and 1 for four spins flat bet.

******* MODIFIED by RXGuru 12.9.2009 **********

If 2 simultaneous hits, then play all of the end digit #s for 4 spins.
For ex:
       6,11------------> now play all
       36,16-----------> now play all.



}
method "main"
begin
    While starting a New Session
    Begin
        Put 1 on record "bet" data
        Copy List [6,16,26,36,1,11,21,31] to record "end digits" layout
        put 0 on record "bet count" data
        Set flag "bet?" to false

        Input Data "Enter your bet amount" to record "bet" data
    end

    While on Each Spin
    begin
        Copy Last number to record "last number" layout
       
        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        set flag "bet?" to true
        end
       
        if record "last number" layout is not found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        put 0 to record "times hit" data
        end

        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false
        begin
            add 1 to record "times hit" data
            end



        if flag "bet?" is true
        begin
            Add 1 to record "bet count" data

            if record "bet count" data > 4 then
            or Any Number Bet has Won each time
            begin
                Set flag "bet?" to false
                Put 0 on record "bet count" data

                if  record "previous number" layout is found in record "end digits" layout
                and record "last number" layout is found in record "end digits" layout
                begin
                    put 0 on record "bet count" data
                    set flag "bet?" to true
                end
                else
                begin
                    exit
                end
            end

            Put 100% of record "bet" data to record "end digits" layout list

            Copy record "last number" layout to record "previous number" layout
        end
    end

end


[hideseek]

Hi RJ/RXGuru,
      Thanks for modifying it. But I still have a problem. It is not stopping at first win, it is continuously plays for 3 more spins. First win it should stop and re-track.
for ex: 16,21------> we bet here and the next spin is 36, it is a win. So stop and re-track.
Thanks
HS

[rjeaton1]

Hi RJ/RXGuru,
      Thanks for modifying it. But I still have a problem. It is not stopping at first win, it is continuously plays for 3 more spins. First win it should stop and re-track.
for ex: 16,21------> we bet here and the next spin is 36, it is a win. So stop and re-track.
Thanks
HS

My fault, I completely forgot to program what it should/shouldn't do after a win.  Here you go:

Code Select Expand

    system "End digit play II"
{
***********************************************
*
*      End digit playm
*      Coded by: RXGuru
*
***********************************************

If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits
of 6 and 1 for four spins flat bet.

******* MODIFIED by RXGuru 12.9.2009 **********

If 2 simultaneous hits, then play all of the end digit #s for 4 spins.
For ex:
       6,11------------> now play all
       36,16-----------> now play all.



}
method "main"
begin
    While starting a New Session
    Begin
        Put 1 on record "bet" data
        Copy List [6,16,26,36,1,11,21,31] to record "end digits" layout
        put 0 on record "bet count" data
        Set flag "bet?" to false

        Input Data "Enter your bet amount" to record "bet" data
    end

    While on Each Spin
    begin
        call "check for win/loss"
        Copy Last number to record "last number" layout
       
        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        set flag "bet?" to true
        end
       
        if record "last number" layout is not found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        put 0 to record "times hit" data
        end

        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false
        begin
            add 1 to record "times hit" data
            end



        if flag "bet?" is true
        begin
            Add 1 to record "bet count" data

            if record "bet count" data > 4 then
            or Any Number Bet has Won each time
            begin
                Set flag "bet?" to false
                Put 0 on record "bet count" data

                if  record "previous number" layout is found in record "end digits" layout
                and record "last number" layout is found in record "end digits" layout
                begin
                    put 0 on record "bet count" data
                    set flag "bet?" to true
                end
                else
                begin
                    exit
                end
            end

            Put 100% of record "bet" data to record "end digits" layout list

            Copy record "last number" layout to record "previous number" layout
        end
    end

end

method "check for win/loss"
begin
if any inside bet has won each time
begin
set flag "bet?" to false
put 0 to record "times hit" data
clear record "last number" layout
end
end


[hideseek]

Thanks RJ,
             System plays perfectly but looses
Now I wanted to try it little differently.
Can you modify it this way:

If 6-1 cadences comes play cadences of 5-0.
for EX: 6,36--------> play for 5,15,25,35,0,10,20,30
          6,31---------> play all 5s and all 0s.

Thanks

[rjeaton1]

Thanks RJ,
             System plays perfectly but loses
Now I wanted to try it little differently.
Can you modify it this way:

If 6-1 cadences comes play cadences of 5-0.
for EX: 6,36--------> play for 5,15,25,35,0,10,20,30
          6,31---------> play all 5s and all 0s.

Thanks

Sorry to hear it is a loser    But here are the changes you requested:

Code Select Expand

    system "End digit play II"
{
***********************************************
*
*      End digit playm
*      Coded by: RXGuru
*
***********************************************

If end digits of 6 (6,16,26,36) or 1(1,11,21,31) comes play end digits
of 6 and 1 for four spins flat bet.

******* MODIFIED by RXGuru 12.9.2009 **********

If 2 simultaneous hits, then play all of the end digit #s for 4 spins.
For ex:
       6,11------------> now play all
       36,16-----------> now play all.



}
method "main"
begin
    While starting a New Session
    Begin
        Put 1 on record "bet" data
        Copy List [6,16,26,36,1,11,21,31] to record "end digits" layout
        copy list [5,15,25,35,0,10,20,30] to record "end digits 2" layout
        put 0 on record "bet count" data
        Set flag "bet?" to false

        Input Data "Enter your bet amount" to record "bet" data
    end

    While on Each Spin
    begin
        call "check for win/loss"
        Copy Last number to record "last number" layout
       
        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        set flag "bet?" to true
        end
       
        if record "last number" layout is not found in record "end digits" layout
        and flag "bet?" is false and record "times hit" data = 1
        begin
        put 0 to record "times hit" data
        end

        if record "last number" layout is found in record "end digits" layout
        and flag "bet?" is false
        begin
            add 1 to record "times hit" data
            end



        if flag "bet?" is true
        begin
            Add 1 to record "bet count" data

            if record "bet count" data > 4 then
            or Any Number Bet has Won each time
            begin
                Set flag "bet?" to false
                Put 0 on record "bet count" data

                if  record "previous number" layout is found in record "end digits" layout
                and record "last number" layout is found in record "end digits" layout
                begin
                    put 0 on record "bet count" data
                    set flag "bet?" to true
                end
                else
                begin
                    exit
                end
            end

            Put 100% of record "bet" data to record "end digits 2" layout list

            Copy record "last number" layout to record "previous number" layout
        end
    end

end

method "check for win/loss"
begin
if any inside bet has won each time
begin
set flag "bet?" to false
put 0 to record "times hit" data
clear record "last number" layout
end
end


[hideseek]

Thank you so much RJ. ~20 permutations of cadences has been checked. Nothing wins. 

[hideseek]

-