Ball 24

Contenuto del file

system "ball 24 system"
{
NOTE: ** For Version 2.0.13 or better **

For documentation see this link:
http://gambling.projectsydney.com/viewtopic.php?t=744&start=0

Basic instruction:

Select table (single or double)
Select number of spins to wait 24, 37, etc.
Select to bet on all numbers that have two hits during the X spins 
and keep it static until a WIN or always check the last X spins and place
bets on all numbers with two hits.

Play until you get at least one hit then reset.
}
method "main"
begin
    while starting a new session
    begin
      call "initialize";
      call "input";
      exit;
    end
    
    if  any inside bet has won each time
    or  record "bet type" data = 2 //rolling bet type
    begin
        set flag "bets placed" to false;
    end

    track last number of record "track count" data to record "track spins" layout;

    if  record "track spins" layout count = record "track count" data
    and flag "bets placed" is false
    begin
        call "count hits";
    end
    
    call "place bets";
end

method "place bets"
begin
    set flag "bets placed" to false;
    put 1 on record "wheel" layout index;
    put 1 on record "wheel" data index;

    loop until record "wheel" layout index > record "wheel" layout count
    begin
        if record "wheel" data = 2
        begin
            put 1 to record "wheel" layout;
            set flag "bets placed" to true;
        end

        add 1 to record "wheel" data index;
        add 1 to record "wheel" layout index;
    end
end

method "count hits"
begin
    clear record "wheel" data;
    put 1 on record "wheel" layout index;
    put 1 on record "wheel" data index;

    loop until record "wheel" layout index > record "wheel" layout count
    begin
        put 1 on record "track spins" layout index;
        
        loop until record "track spins" layout index > record "track spins" layout count
        begin
            if record "wheel" layout = record "track spins" layout
            begin
                add 1 to record "wheel" data;
            end
            
            add 1 to record "track spins" layout index;
        end
        
        add 1 to record "wheel" data index;
        add 1 to record "wheel" layout index;
    end
    
    set max to record "track spins" layout index;
end

method "input"
begin
    group
    begin
        display "Ball 24 by Rafin";
        input dropdown "Wheel type
        
                        1:=Single Zero
                        2:=Double Zero" to record "wheel type" data;
        input data "How many spins to track?" to record "track count" data;
        input dropdown "Bet on static repeats or dynamic repeats.

                        1:=Static
                        2:=Dynamic" on record "bet type" data;
    end
    
    if record "wheel type" data = 1
    begin
        load single wheel;
    end
    else
    begin
        load double wheel;
    end
end

{Initialize.  Make a record "wheel" of all of the numbers.
 Include the number 00 incase of American wheel.
}
method "initialize"
begin
    set flag "bets placed" to false
    
    clear record "track spins" layout;
    put 24 on record "track count" data;
    copy list [number 1, number 2, number 3, number 4, number 5, number 6,
               number 7,
               number 8, number 9, number 10,number 11,number 12,number 13,
               number 14,number 15,number 16,number 17,number 18,number 19,
               number 20,number 21,number 22,number 23,number 24,number 25,
               number 26,number 27,number 28,number 29,number 30,number 31,
               number 32,number 33,number 34,number 35,number 36,number 0,
               number 00] to record "wheel" layout

    clear record "wheel" data;
    put 1 on record "bet type" data;
end