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

local run = true
function OnStop()
  run = nil
end

function main()
  local mLots
  while run do 
    local tblTotalLot = getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT, LIMIT_KIND)
    if type(tblTotalLot) == "table" then
      local TotalLots = tblTotalLot.currentbal
      if mLots ~= TotalLots then
        local t = {}
        for k, v in pairs(tblTotalLot) do
          t[#t+1] = tostring(k) .. "=" .. tostring(v)
        end
        message("mLots = " .. tostring(mLots) .. "\n" .. table.concat(t, ", "), 3)
        mLots = TotalLots
      end
    else
      message("getDepoEx error", 3)
      return
    end
    sleep(1)
  end
end

local run = true
function OnStop()
  run = nil
end

function main()
  local mLots
  while run do 
    local tblTotalLot = getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT, LIMIT_KIND)
    if type(tblTotalLot) == "table" then
      local TotalLots = tblTotalLot.currentbal
      if mLots ~= TotalLots then
        local t = {}
        for k, v in pairs(tblTotalLot) do
          t[#t+1] = tostring(k) .. "=" .. tostring(v)
        end
        message("mLots = " .. tostring(mLots) .. "\n" .. table.concat(t, ", "), 3)
        mLots = TotalLots
      end
    end
    sleep(1)
  end
end

local a = {}
function OnInit()
  for i = 1, 100000 do a[i] = 1 end
end

local run = true
function OnStop()
  a = nil
  run = false
end

function OnAllTrade()
  a = nil
  run = false
end

function OnParam()
  a = nil
  run = false
end

function main()
  local r
  run = true
  a[0]=(a[1]or 0)
  + (a[2]or 0)
  + (a[3]or 0)
  ...  -- Тут много строк  "+ (a[i]or 0)"
  + (a[99999]or 0)
  + (a[100000]or 0)

  r = run
  message(tostring(r) .. '; ' .. a[0], 2)
end

local n = 25
local run = true
function OnStop()
  run = nil
end

function OnParam(class_code, sec_code)
  p = {}
  for i = 1, n do
    p[tostring(i)] = tostring(i)
  end
  for k, v in pairs(p) do
    p[k] = os.time()
    p[k] = nil
  end
end

function OnAllTrade(alltrade)
  a = {}
  for i = 1, n do
    a[tostring(i)] = tostring(i)
  end
  for k, v in pairs(a) do
    a[k] = os.time()
    a[k] = nil
  end
end

function main()
  while run do
    m = {}
    for i = 1, n do
      m[tostring(i)] = tostring(i)
    end
    for k, v in pairs(m) do
      m[k] = os.time()
      m[k] = nil
    end
    sleep(1)
  end
end