5 alla distanza

Contenuto del file

system "5 at distance"
{
  description on www.laroulette.it
  sistema: 5 alla distanza
}
method "main"
begin
    While Starting a New Session
    begin
        Put 2 Neighbor Count
        call "reset"
    end

    While on Each Spin
    begin
        add 1 record "spins" data
        Copy last number record "1st Last" Layout
        if record "spins" Data >1
        begin
            if any number bet won each
            begin
               call "reset"
            end
            call "calculate distance"

            if flag "verify" False
            begin
               call "verify serie"
            end
            if flag "verify" True
            begin
               call "bet"
            end
        end
        copy record "1st Last" Layout record "2nd Last" layout
    end

end
method "calculate distance"
begin
    Locate distance between record "1st Last" layout record "2nd Last" layout  into record "distance" data
    put 100% record "distance" data record "temp" data
    subtract 1 record "temp" data
    Locate Number Right record "temp" data from record "2nd Last" layout to Record "check" layout
    if record "check" layout not= record "1st Last" layout
    begin
        put 37 record "asd" data
        subtract 100% record "distance" data record "asd" data
        put 100% record "asd" Data record "distance" Data
        if Record "distance" Data = 0
        begin
           put 37 Record "distance" Data
        end
    end
    set max record "serie" data index
    add 1 record "serie" data index
    put 100% record "distance" data record "serie" data
    put 100% record "distance" Data record "master" Data index
    add 1 Record "master" Data
end
method "verify serie"
begin
    duplicate record "master"  record "master copy"
    put 1 record "master copy" Data index
    put 2 record "master" Data index
    set flag "verify" False
    loop until record "master" Data index > record "master" Data count
    begin
        if record "master" data = 2
        begin
           set flag "verify" True
        end
        if record "master copy" Data = 1
        and record "master" Data = 1
        begin
           set flag "verify" True
        end
        if flag "verify" True
        begin
            put 100% Record "master copy" Data index record "betting distance" data
            set max Record "master" Data index
        end

        add 1 record "master" Data index
        add 1 record "master copy" Data index
    end

end
method "reset"
begin
    set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] Record "master" data
    set flag "verify" False



end
method "bet"
begin
        //subtract 1 record "betting distance" Data
        Locate Number right record "betting distance" data from record "1st Last" layout to Record "num" layout
        Copy Neighbors of Record "num" layout to record "neighbors" layout
        put 1 record "num" layout
        put 1 record "neighbors" layout list
        //add 1 record "betting distance" Data



end