local exitflag
local ticker = "SiM1"
local tf = 30
local candles = {}

local function calculate(item)
    if item.sec_code ~= ticker then return end
    --так можно округлять только! до таймфрема 3600
    local tm = math.floor(os.time(item.datetime)/tf) * tf
    local price, qty = item.price, item.qty
    
    if not candles[tm] then
        local index = #candles+1
        candles[index] = tm
        candles[tm] = 
        {
            O = price, H = price, L = price, C = price, V = qty, I = index
        }
        return
    end
    
    local bar = candles[tm]
    if price > bar.H then bar.H = price end
    if price < bar.L then bar.L = price end
    bar.V = bar.V + qty
end
function main()
    local last_row = 0
    
    while not exitflag do
        local row = getNumberOf("all_trades")
        if row > last_row then
            for i = last_row, row-1 do
                calculate(getItem("all_trades",i))
                if exitflag then break end
            end
            last_row = row
        end
        sleep(1)
    end
---[[ проверка после остановки скрипта
    local tm = candles[10]
    local bar = candles[tm]
    message(
        os.date("%c", tm)..
        "\n O= "..tostring(bar.O)..
        "\n H= "..tostring(bar.H)..
        "\n L= "..tostring(bar.L)..
        "\n C= "..tostring(bar.C)..
        "\n V= "..tostring(bar.V)..
        "\n I= "..tostring(bar.I)..
        "\n Всего баров: "..tostring(#candles)
    )
--]]
end
function OnStop()
    exitflag = true
    return 300
end