Saliu 2 Dozens v1

Contenuto del file

system "Ion Saliu 2 Dozens V1"
{

}
method "main"
begin
    while starting a new session
    begin
        //place action statement here
        Clear All Records
        Set List of [1,3,9,27,81,243] to record "bet" data
        set flag "1" false
        set flag "2" false
        set flag "3" false

        put 2 record "Nseries" data

        group     begin

        input dropdown "Wheel type ?
            1:=Single Zero
            2:=Double Zero" to record "Wheel Type" data

        display "Example: 2 series of LL or 3 series of W"
        input data "How many series to wait for ?" to record "Nseries" data
        end

        exit;
        end

    if record "Wheel Type" data = 1 begin
        Load Single Wheel  end
    else begin
        Load Double Wheel  end


    if net < 0
        begin
        add 1 record "bet" data index
        end

    if net > 0
        begin
        put 1 record "bet" data index
        end

    if record "bet" data = 0
        begin
        put 1 record "bet" data index
        end

    if 3rd dozen has hit 2 times in a row
        begin
        Add 1 to record "group_a" data index
        end

    if 2nd dozen has hit 2 times in a row
        begin
        Add 1 to record "group_b" data index
        end

    if 1st dozen has hit 2 times in a row
        begin
        Add 1 to record "group_c" data index
        end


    if 3rd dozen has hit each
        begin
        set flag "1" true
        end
    if flag "1" true
    begin
    if 1st dozen has hit 1 times in a row
        or 2nd dozen has hit 1 times in a row
        begin
        Add 1 to record "group_d" data index
        set flag "1" false
        end
    end

    if 2nd dozen has hit each
        begin
        set flag "2" true
        end
    if flag "2" true
    begin
    if 1st dozen has hit 1 times in a row
        or 3rd dozen has hit 1 times in a row
        begin
        Add 1 to record "group_d" data index
        set flag "2" false
        end
    end

    if 1st dozen has hit each
        begin
        set flag "3" true
        end
    if flag "3" true
    begin
    if 2nd dozen has hit 1 times in a row
        or 3rd dozen has hit 1 times in a row
        begin
        Add 1 to record "group_e" data index
        set flag "3" false
        end
    end

    if record "group_a" data index >= record "Nseries" data
        begin
        if 3rd dozen has hit at least 1 time in a row
        begin
        put 100% record "Bet" data on list [1st dozen, 2nd dozen]
        put 0 record "group_a" data index
        end end

    if record "group_b" data index >= record "Nseries" data
        begin
        if 2nd dozen has hit at least 1 time in a row
        begin
        put 100% record "Bet" data on list [1st dozen, 3rd dozen]
        put 0 record "group_b" data index
        end end

    if record "group_c" data index >= record "Nseries" data
        begin
        if 1st dozen has hit at least 1 time in a row
        begin
        put 100% record "Bet" data on list [2nd dozen, 3rd dozen]
        put 0 record "group_c" data index
        end end

    if record "group_d" data index >= record "Nseries" data
        begin
        if 3rd dozen has not hit each begin
        put 100% record "Bet" data on list [1st dozen, 2nd dozen]
        put 0 record "group_d" data index
        end end

    if record "group_e" data index >= record "Nseries" data
        begin
        if 2nd dozen has not hit each begin
        put 100% record "Bet" data on list [1st dozen, 3rd dozen]
        put 0 record "group_e" data index
        end end

    if record "group_f" data index >= record "Nseries" data
        begin
        if 1st dozen has not hit each begin
        put 100% record "Bet" data on list [2nd dozen, 3rd dozen]
        put 0 record "group_f" data index
        end end
end