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

function cyrcle(c) -- крутилок
   local t=os.time()
   if c=="|" then 
      return "/", t
   elseif c=="/" then 
      return "--", t
   elseif c=="--" then 
      return "\\", t
   elseif c=="\\" then
      return "|", t
   else
      return "" ,t
   end    
end

-- Пример (цветовые функции здесь не привожу)
go,gt="",0
...
...
function main()
 is_run=true
 ...
 while is_run do
  go,gt=cyrcle(go)
  ...
  ...
  ...
  ...  
  SetCell(kt_id,x,y,go) -- вывод в ячейку таблицы
  --раскраска крутилка
  if go=="/" or go=="\\" then
   color(x,y,kt_id,"Lemon")
  else
   color(x,y,kt_id,"Salad")
  end
  if os.time()-gt>60 then color(x,y,kt_id,"Red") end 
  ...
  sleep(50)
 end
end

function GetDS(p) -- функция закачки  данных
   local error_desc=""
   if p==1 then -- дневные
...
   elseif p==2 then -- тиковые
      dsa,error_desc=CreateDataSource(p_classcode, trw.p_seccode, INTERVAL_TICK)
      while not dsa or dsa:Size()==0 do
         local n=100
         while n>0 do
            sleep(100)
            if dsa and dsa:Size()>0 then break end
            n=n-1
         end
         if not dsa or dsa:Size()==0 then
            dsa,error_desc=CreateDataSource(p_classcode, trw.p_seccode, INTERVAL_TICK) -- повтор 
         end
         if error_desc~=nil and error_desc~="" then
            message("TICK, "..p_classcode.."/"..trw.p_seccode.."/".."Source2 error==>" .. error_desc)
            return 0
         end
      end
      dsa:SetEmptyCallback()
      return    dsa:Size()

   else
      return 0
   end
end

   local a="09:15:18"
   local b=string.gsub(a,":","")
   local c=tonumber(b)
   local d=tonumber(string.gsub(a,":",""))
   message(tostring(c).." "..tostring(d))