тот самый (Все сообщения пользователя)

 -- Флаг поддержания работы скрипта
IsRun = true;
 
function main()
   -- Цикл будет выполнятся, пока IsRun == true
   while IsRun do
      sleep(1000);
   end;   
end;
 
-- Функция вызывается терминалом QUIK при получении изменений лимита по бумагам
function OnDepoLimit(dlimit)
 
   message("Код бумаги "..tostring(dlimit.sec_code));-- STRING 
   message("Счет депо "..tostring(dlimit.trdaccid));-- STRING 
   message("Идентификатор фирмы "..tostring(dlimit.firmid));-- STRING 
   message("Код клиента "..tostring(dlimit.client_code));-- STRING 
   message("Входящий остаток по бумагам "..tostring(dlimit.openbal));-- NUMBER 
   message("Входящий лимит по бумагам "..tostring(dlimit.openlimit));-- NUMBER 
   message("Текущий остаток по бумагам "..tostring(dlimit.currentbal));-- NUMBER 
   message("Текущий лимит по бумагам "..tostring(dlimit.currentlimit));-- NUMBER 
   message("Заблокировано на продажу количества лотов "..tostring(dlimit.locked_sell));-- NUMBER 
   message("Заблокированного на покупку количества лотов "..tostring(dlimit.locked_buy));-- NUMBER 
   message("Стоимость ценных бумаг, заблокированных под покупку "..tostring(dlimit.locked_buy_value));-- NUMBER 
   message("Стоимость ценных бумаг, заблокированных под продажу "..tostring(dlimit.locked_sell_value));-- NUMBER 
   message("Цена приобретения "..tostring(dlimit.awg_position_price));-- NUMBER 
   message("Тип лимита "..tostring(dlimit.limit_kind));-- NUMBER Возможные значения: "0" – обычные лимиты, значение не равное "0" – технологические лимиты 
   message("__________");
 
end;
 
-- Функция вызывается терминалом QUIK при остановке скрипта из диалога управления и при закрытии терминала QUIK
function OnStop()
   -- Останавливает цикл в функции main
   IsRun = false;
end;

 local act_time = 0
local prev_time = 0
local counter = 0
local is_run = true
local date_time= ""

function OnAllTrade(alltrade)
if alltrade.class_code == "SPBFUT" and alltrade.sec_code == "SiM5" then
act_time = tonumber(alltrade.datetime.sec)
if  act_time == prev_time then
counter=counter+1
else
date_time = tostring(alltrade.datetime.hour) .. ":" .. tostring(alltrade.datetime.min) .. ":" .. tostring(alltrade.datetime.sec)
message(date_time .. "   " .. tostring(counter))
counter = 0
prev_time = tonumber(alltrade.datetime.sec)
end

end
end
--[[
function OnAllTrade(alltrade)
date_time = tostring(alltrade.datetime.hour) .. ":" .. tostring(alltrade.datetime.min) .. ":" .. tostring(alltrade.datetime.sec)
message(date_time)
end
--]]
function main()
while is_run 
do
sleep(100)
end

end

function OnStop()
is_run = false
return 1000
end