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

function main()
  t = {}
  for i = 1, 10000000 do
    t[i] = i
  end
  local a = b + 1
end

function OnAllTrade()
  if not run then return end
  alltrade = true
  for i = 1, rows do
    table.ssort({0, 0}, function()
      DeleteRow(id, 1)
      InsertRow(id, rows)
      return true
    end)
  end
end

function OnStop()
  run = nil
  SetCell(id, 1, 1, string.format('Size: %u', GetTableSize(id)))  -- Почему-то попадаем в строку 2
end

local alltrade
function OnAllTrade()
  if not run then return end
  alltrade = true
  for i = 1, 30 do
    DeleteRow(id, 1)
    InsertRow(id, 30)
  end
end

function main()
  id = AllocTable()
  AddColumn(id, 1, 'Size', true, QTABLE_INT_TYPE, 15)
  CreateWindow(id)
  SetWindowPos(id, 0, 0, 100, 520)
  for i = 1, 30 do
    InsertRow(id, -1)
  end

  run = true
  while run do
    if alltrade then
      alltrade = nil
      SetCell(id, 30, 1, string.format('%u', GetTableSize(id)))
    else sleep(1) end
  end
end

Security = getSecurityInfo(CLASS_CODE, SEC_CODE)
SEC_PRICE_STEP = tonumber(string.format("%." .. Security.scale .. "f", Security.min_price_step))

    for i, bumaga in pairs(sec_code) do
      LowDnya = getParamEx (class_code, bumaga, "LOW").param_value
      Last = getParamEx (class_code, bumaga, "LAST").param_value
      Raznica = math.abs(LowDnya - Last)
      if Raznica > 1 then
        message(tostring(bumaga .. " " .. Raznica ))
        sec_code[i] = nil
      end
    end

    for i = #sec_code, 1, -1 do
      local bumaga = sec_code[i]
      LowDnya = getParamEx (class_code, bumaga, "LOW").param_value
      Last = getParamEx (class_code, bumaga, "LAST").param_value
      Raznica = math.abs(LowDnya - Last)
      if Raznica > 1 then
        message(tostring(bumaga .. " " .. Raznica ))
        table.remove(sec_code, i)
      end
    end

  SetTableNotificationCallback(id, function(id, msg, row, col)
    if msg == QTABLE_CONTEXTMENU then
      ShowContextMenu()
    end
  end)

  SetTableNotificationCallback(id, function(id, msg, row, col)
    if msg == QTABLE_CONTEXTMENU then
      return
    end
  end)