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

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

function main()
  local pos
  while run do 
    local fut_pos = getFuturesHolding(FIRMID, ACCOUNT, SEC_CODE, TYPE)
    if type(fut_pos) == "table" then
      local totalnet = fut_pos.totalnet
      if pos ~= totalnet then
        message(SEC_CODE .. ": pos = " .. tostring(pos) .. "\n" .. fut_pos.sec_code .. ": totalnet = " .. tostring(totalnet), 3)
        pos = totalnet
      end
    else
     message("getFuturesHolding error", 3)
    end
    sleep(1)
  end
end

local run = true
function OnStop()
  run = nil
end
function main()
  while run do 
    getFuturesHolding(FIRMID, ACCOUNT, SEC_CODE, TYPE)
    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
        message(SEC_CODE .. ": mLots = " .. tostring(mLots) .. "\n" .. tblTotalLot.sec_code .. ": currentbal = " .. tostring(TotalLots), 3)
        mLots = TotalLots
      end
    else
      message("getDepoEx error", 3)
    end
    sleep(1)
  end
end

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

function main()
  while run do 
    getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT, LIMIT_KIND)
    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
    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