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

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

local trans_id, order_num
function OnTransReply(trans_reply)
  if trans_reply.trans_id == trans_id then
    if trans_reply.status == 3 and trans_reply.order_num > 0 then
      order_num = trans_reply.order_num
    end
  end
end

function main()
  trans_id = getUniqTransID()
  local err = sendTransaction{
    TRANS_ID = tostring(trans_id),
    ACTION = "NEW_ORDER",
    ACCOUNT = account,
    CLASSCODE = class_code,
    SECCODE = sec_code,
    OPERATION = "B",
    TYPE = "L",
    PRICE = price,
    QUANTITY = "1"
  }
  if err ~= "" then
    message(err, 3)
    return
  end
  local n = 0
  while run and n < 100 do
    if order_num then
      trans_id = getUniqTransID()
      if sendTransaction{
        TRANS_ID = tostring(trans_id),
        ACTION = "MOVE_ORDERS",
        CLASSCODE = class_code,
        SECCODE = sec_code,
        MODE = "0",
        FIRST_ORDER_NUMBER = tostring(order_num),
        FIRST_ORDER_NEW_PRICE = price,
        FIRST_ORDER_NEW_QUANTITY = "1"
      } == "" then
        order_num = nil
        n = n + 1
      else trans_id = nil end
    end
    sleep(1)
  end
end

function main()
    local f = io.open(file, "a+")
    for i = 1, 100 do
      f:write(s..i.."\n")
      f:flush()
      sleep(1)
    end
    f:close()
end

local Time = X
function OnCallback()  -- любой колбек
  Time = nil
end

function main()
  if Time and os.time() > Time then
    ...
  end
end

save = {}
for i = 1, 20 do
  save[i] = {}
  for j = 1, 20 do
    save[i][j] = "hello"
  end
end

local function f(...)
  local arg = table.pack(...)
  return arg.n
end

print(f(1, nil, nil))

  local G = {1, 2, nil, 4, nil, 6}
  return print(unpack(G))  -->  1       2       nil     4       nil     6

local G = {1, 2, nil}
G[4] = 4
G[5] = nil
G[6] = 6
print(unpack(G))   -->   1       2       nil     4

local function f(...)
  local arg = {...}
  arg.n = select('#', ...)
  return arg.n
end

print(f(1, nil, nil))

local function f(...)
  return arg.n
end
print(f(1, nil, nil))  --> 3

function OnCalculate(index)
  local G = {glo1(index)}
  local n = #G
  local G_ = {glo2(index)}
  for i = 1, #G_ do
    n = n + 1
    G[n] = G_[i]
  end
  return table.unpack(G)
end

function main()
  local filename = "file.txt"
  local f = assert(io.open(filename, "w"))
  os.execute("start cmd.exe")
  message(tostring(f:close()) .. "\n" .. tostring(f))
  assert(os.remove(filename))  -- file.txt: Permission denied
end