Deposit Bonus 200% up to $1000

Author Topic: can you change this one please spin ?  (Read 2055 times)

0 Members and 1 Guest are viewing this topic.

D1

  • New
  • **
  • Posts: 2
can you change this one please spin ?
« on: August 28, 2015, 10:35:02 PM »
hi spin

can you change the progression on this please so the progression keeps going up until it makes a new high total the next time a number hits please ?
I know it means the proggy will probably go out of control on real money but I would love to try it.
If you can help many thanks.
Dave.

system "Positional_System"
{
    This system is similiar to the one developed by Jack Kennedy.
   
    System is based on the fact that you play 4 positions either clockwise or
    counter clockwise to the number which last hit and the same color.

    If we choose to bet from counter clockwise and 17 black hits, we to play 4 positions
    counter clockwise which would be Black number of 2,4,15,26.

    If we choose to bet from clockwise and 25 red hits, we to play 4 positions
    clockwise which would be Red numbers of 34,27,36,30.
   
    This system uses a Flat bet of 1 unit on each number.
}
method "main"
begin
    //initialize some stuff when a NEW session starts
    while starting a new session
    begin
        clear record "Last spin" layout;
        put 1 on record "Wheel position" data;
        put 1 on record "Progression" data;
        put 0 on record "Total spin count" data;
        set flag "Ready to bet" to false;
       
        //put all data input onto one form.
        group
        begin
            display "Positional System";
            //ask for which direction?
            input dropdown "Direction to place bets from?

                            1:=Clockwise
                            2:=Counter clockwise" to record "Direction" data;
            input dropdown "Table type

                            1:=Single Zero
                            2:=Double Zero" to record "table index" data;
        end

        if record "table index" data = 1 then
        begin
            load single wheel;
        end
        else
        begin
            load double wheel;
        end

        exit; //exit here and wait for the next spin
    end

    if Any Inside Bet has won each time
    begin
        set flag "Ready to bet" to false;//we WON so, get a new last number
        put 0 on record "Total spin count" data;
        put 1 on record "Progression" data;
    end

    if flag "Ready to bet" is false
    begin
        //get the last number that came up
        copy last number to record "Last spin" layout;
        set flag "Ready to bet" to true;

        //get 4 numbers to bet from wheel
        if record "Direction" data = 2 then
        begin
            call "Get numbers counter clockwise";
        end
        else
        begin
            call "Get numbers clockwise";
        end
    end
   
    if flag "Ready to bet" to true
    begin
        //if no hits after 20 spins, increase progression bet
        if record "Total spin count" data > 8 spins
        begin
            add 1 to record "Progression" data;
           
            if record "Progression" data > 27
            or record "Total spin count" data > 57 spins
            begin
                put 27 on record "Progression" data;//set maximum of 27
            end
        end
       
        call "Place bets";
        add 1 to record "Total spin count" data;
    end
end

//loop routine to place bets that are located in data record "Numbers to bet"
method "Place bets"
begin
    put 1 on record "Numbers to bet" layout index;

    Loop Until record "Numbers to bet" layout index > 4
    begin
        put 100% of record "Progression" data to record "Numbers to bet" layout;
        add 1 to record "Numbers to bet" layout index;
    end
end

{loop routine to move counter clockwise around the wheel
 and store each other number (same color) to a data record
 called "Numbers to bet".  These numbers will be used later to place
 bets.
}
method "Get numbers counter clockwise"
begin
    put 7 on record "Position Max" data;
    put 1 on record "Numbers to bet" layout index;
    put 1 on record "Wheel position" data;

    Loop Until record "Wheel position" data > record "Position Max" data
    begin
        Locate Number Left of Record "Wheel position" data from the
                               Record "Last spin" Layout to
                               Record "Numbers to bet" Layout;

        //Adjust position if around the 0 to get the correct color.
        if record "Numbers to bet" layout = Number 0
        or record "Numbers to bet" layout = Number 26
        begin
            if record "Position Max" data not = 8
            begin
                put 8 on record "Position Max" data;
                add 1 to record "Wheel position" data;
                Locate Number Left of Record "Wheel position" data from the
                                       Record "Last spin" Layout to
                                       Record "Numbers to bet" Layout;
            end
        end
        add 2 to record "Wheel position" data;
        add 1 to record "Numbers to bet" layout index;//move pointer
    end
end

{loop routine to move clockwise around the wheel
 and store each other number (same color) to a data record
 called "Numbers to bet".  These numbers will be used later to place
 bets.
}
method "Get numbers clockwise"
begin
    put 7 on record "Position Max" data;
    put 1 on record "Numbers to bet" layout index;
    put 1 on record "Wheel position" data;

    Loop Until record "Wheel position" data > record "Position Max" data
    begin
        Locate Number Right of Record "Wheel position" data from the
                               Record "Last spin" Layout to
                               Record "Numbers to bet" Layout;

        //Adjust position if around the 0 to get the correct color.
        if record "Numbers to bet" layout = Number 0
        or record "Numbers to bet" layout = Number 32
        begin
            if record "Position Max" data not = 8
            begin
                put 8 on record "Position Max" data;
                add 1 to record "Wheel position" data;
                Locate Number Right of Record "Wheel position" data from the
                                       Record "Last spin" Layout to
                                       Record "Numbers to bet" Layout;
            end
        end
       
        add 2 to record "Wheel position" data;
        add 1 to record "Numbers to bet" layout index;//move pointer
    end
end


 

Sp1N-D1zZy

  • Moderator
  • New
  • *****
  • Posts: 75
  • Thanked: 1 times
  • Gender: Male
Re: can you change this one please spin ?
« Reply #1 on: August 29, 2015, 01:29:44 PM »

I've modified it so that it will bet just enough units so that if there is a win then your bank will be at a new high.

Happy experimenting,
Spin.

system "Positional_System ver 2"
{
*************************************
*      System by Jack Kennedy       *
*          Modified by D1           *
*           on roulette30           *
*************************************
         Rx-ed by UX Software
        Modified by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
This system is similiar to the one developed by Jack Kennedy.

System is based on the fact that you play 4 positions either clockwise or
counter clockwise to the number which last hit and the same color.

If we choose to bet from counter clockwise and 17 black hits,
we to play 4 positions counter clockwise which would be Black number
of 2,4,15,26.

If we choose to bet from clockwise and 25 red hits, we to play 4 positions
clockwise which would be Red numbers of 34,27,36,30.
   
This system bets enough units to make a new high on a win.
}
method "main"
begin
while starting a new session
    begin
    clear record "Last spin" layout;
    put 1 on record "Wheel position" data;
    put 1 on record "Progression" data;
    put 0 on record "Total spin count" data;
    set flag "Ready to bet" to false;
    group
        begin
        display "Positional System";
        input dropdown "Direction to place bets from?
        1:=Clockwise
        2:=Counter clockwise" to record "Direction" data;
        input dropdown "Table type
        1:=Single Zero
        2:=Double Zero" to record "table index" data;
        end
    if record "table index" data = 1 then
        begin
        load single wheel;
        end else begin
        load double wheel;
        end
    exit
    end
if Any Inside Bet has won each time
    begin
    put 100% bankroll record"Start Bank"data
    set flag "Ready to bet" to false
    put 0 on record "Total spin count" data;
    put 1 on record "Progression" data;
    end
if flag "Ready to bet" is false
    begin
    copy last number to record "Last spin" layout;
    set flag "Ready to bet" to true;
    if record "Direction" data = 2 then
        begin
        call "Get numbers counter clockwise";
        end else begin
        call "Get numbers clockwise";
        end
    end
if flag "Ready to bet" to true
    begin
    put 100% record"Start Bank"data record"Bank Loss"data
    subtract 100% bankroll record"Bank Loss"data
    put 100% record"Bank Loss"data record"Unit"data
    divide 32 record"Unit"data
    put 0 record"First Number"data
    put 1 record"Second Number"data
    loop until flag "Truncated" true
        begin
        if record"Unit"data <= record"Second Number"data and
        record"Unit"data >= record"First Number"data
            begin
            put 100% record"Second Number"data record"Bet Unit"data
            set flag "Truncated" true
            end
        add 1 record"First Number"data
        add 1 record"Second Number"data
        end
    set flag "Truncated" false
    call "Place bets";
    add 1 to record "Total spin count" data;
    end
end

method "Place bets"
begin
put 1 on record "Numbers to bet" layout index;
Loop Until record "Numbers to bet" layout index > 4
    begin
    put 100% of record "Bet Unit" data to record "Numbers to bet" layout;
    add 1 to record "Numbers to bet" layout index;
    end
end

method "Get numbers counter clockwise"
begin
put 7 on record "Position Max" data;
put 1 on record "Numbers to bet" layout index;
put 1 on record "Wheel position" data;
Loop Until record "Wheel position" data > record "Position Max" data
    begin
    Locate Number Left of Record "Wheel position" data from the
    Record "Last spin" Layout to
    Record "Numbers to bet" Layout;
    if record "Numbers to bet" layout = Number 0
    or record "Numbers to bet" layout = Number 26
        begin
        if record "Position Max" data not = 8
            begin
            put 8 on record "Position Max" data;
            add 1 to record "Wheel position" data;
            Locate Number Left of Record "Wheel position" data from the
            Record "Last spin" Layout to Record "Numbers to bet" Layout;
            end
        end
    add 2 to record "Wheel position" data;
    add 1 to record "Numbers to bet" layout index
    end
end

method "Get numbers clockwise"
begin
put 7 on record "Position Max" data;
put 1 on record "Numbers to bet" layout index;
put 1 on record "Wheel position" data;
Loop Until record "Wheel position" data > record "Position Max" data
    begin
    Locate Number Right of Record "Wheel position" data from the
    Record "Last spin" Layout to Record "Numbers to bet" Layout;
    if record "Numbers to bet" layout = Number 0
    or record "Numbers to bet" layout = Number 32
        begin
        if record "Position Max" data not = 8
            begin
            put 8 on record "Position Max" data;
            add 1 to record "Wheel position" data;
            Locate Number Right of Record "Wheel position" data from the
            Record "Last spin" Layout to Record "Numbers to bet" Layout
            end
        end
    add 2 to record "Wheel position" data
    add 1 to record "Numbers to bet" layout index
    end
end
 

D1

  • New
  • **
  • Posts: 2
Re: can you change this one please spin ?
« Reply #2 on: August 29, 2015, 01:59:39 PM »
Thanks spin
your a gent :)
 

Trilobite

  • Mature Member
  • ***
  • Posts: 339
  • Thanked: 121 times
Re: can you change this one please spin ?
« Reply #3 on: September 06, 2015, 01:46:19 AM »
You need to add a realistic table limit and reset for this one when using the progression.

Otherwise it will just win and win and win forever, Disneyland style.
« Last Edit: September 06, 2015, 01:49:32 AM by Trilobite »