is_run = false

function OnInit(script)
 is_run = true
end

function OnStop()
 is_run = false
end


function cb_for_ds(index)
-- получение нового индекса и его обработка, 
   if (last_processing_index>0 and ds:Size()>0 and last_processing_index< ds:Size()-1) then
      full_processing(index)
   end
end

function full_processing(index)
-- здесь выполняется тяжелая логика обработки нового индекса из источника данных с расчетом индикаторов и т.д. 
   
end


function main()
 
    ds = CreateDataSource("SPBFUT", "RIU3", INTERVAL_M1)
    ds: SetUpdateCallback (cb_for_ds)

    while is_run do
 
   sleep(100)
    end
end

last_processing_index=0
is_run = false

function OnInit(script)
 is_run = true
end

function OnStop()
 is_run = false
end


function cb_for_ds( index )
-- получение нового индекса и выставление флага
   if (last_processing_index>0 and ds:Size()>0 and last_processing_index< ds:Size()-1) then
      get_new_index = true
   end
end

function full_processing()
-- здесь выполняется тяжелая логика обработки индекса (last_processing_index+1) из источника данных с расчетом индикаторов и т.д. 
   
   if (last_processing_index == (ds:Size()-1)) then
      return
   end
   
   new_processing_index = last_processing_index+1
   . . .
   . . .
   last_processing_index= new_processing_index
end


function main()
 
    ds = CreateDataSource("SPBFUT", "RIU3", INTERVAL_M1)
    ds: SetUpdateCallback (cb_for_ds)

    while is_run do
 
   if (get_new_index == true) then
      full_processing()
   end

   sleep(100)
    end
end