the follower system

Contenuto del file

system "the_follower"
{
    see documentation
    
    play on last dozen.
}
method "main"
begin
    while starting a new session
    begin
        call "init"
        exit
    end

    if Number 00 has hit each time
    or Number 0  has hit each time
    begin
        call "reset"
        exit
    end
    
    if any dozen bet has won each time
    begin
        call "reset"
    end
    
    if flag "layout selected" is false
    begin
        call "get dozen layout"
    end

    if flag "ready to bet" is true
    begin
        put 100% of record "bet" data to record "dozen" layout

        add 1 to record "bet" data index
        
        if record "bet" data index > record "bet" data count
        begin
            put 1 on record "bet" data index
            set flag "ready to bet" to false
            set flag "layout selected" to false
        end
    end
end

method "reset"
begin
    put 1 on record "bet" data index
    set flag "layout selected" to false
    set flag "ready to bet" to false
end

method "get dozen layout"
begin
    copy last dozen to record "current" layout
    
    if record "current" layout is not found in record "dozen" layout
    begin
        copy record "current" layout to record "dozen" layout
        set flag "layout selected" to true
        set flag "ready to bet" to true
    end
end

method "init"
begin
    set flag "layout selected" to false
    clear record "dozen" layout
//    set list [0,0,0,0,0,0,6,9,14,21,31,47,70,105,160,238,357,500] of record "bet" data
    set list [0,0,0,0,0,0,1,1,1,2,3,4,6,9,14,21,31,47,70,105,160,238,357,500] of record "bet" data
end