-----------------------------------  
function send_max(msg,chat_id,access_token,nFormat)
   -----------------------------------
   ---грузим luacom
   luacom = require("luacom")
   
   --для формата markdown
   -- # Формат markdown \n **жирный**, _курсив_, ~~зачёркнутый~~, ++подчёркнутый++, `моноширинный`  ,   ^^Выделенный^^ , [Документация](https://dev.max.ru/) 
   local url,status,responseText,cUser,body,cFormat,http
   --chat_id =117.......474
    --access_token = "f9LHodD0cOIq...................0BhMw0gm_6f1-DBY" 
   if not nFormat then 
      nFormat=0
   end 
   ---выбор формата разметки 
   if nFormat==0 then 
      --без формата 
      cFormat=''
      elseif nFormat==1 then 
      --HTML
      cFormat=   ',"format": "html"'
      elseif nFormat==2 then 
      --markdown
      cFormat=   ',"format": "markdown"'
   end 
   
   -- URL   
   url = "https://platform-api2.max.ru/messages?" .. "chat_id=" .. chat_id
   
   --Тело запроса (JSON)
   body ='{"text":"' .. msg .. '"'..cFormat..'}'
   -- Создаём COM-объект
   http = luacom.CreateObject("WinHttp.WinHttpRequest.5.1")
   if  http then
      -- Открываем соединение (синхронно)
      http:Open("POST", url, false)
      -- Заголовки
      http:SetRequestHeader("Authorization", access_token)
      http:SetRequestHeader("Content-Type", "application/json")
      http:SetRequestHeader("Accept","application/json")
      --Отправляем
      http:Send(body)
      --Получаем ответ
      status = http.Status
      responseText = http.ResponseText
      if http.Status==200 then 
        ---ok
      else    
          message("Status: " ..  tostring(status), 3)
          message("Response: " ..  tostring(responseText), 3)
      end    
      -- Освобождаем объект
      http = nil
   else    
      message("Не удалось создать WinHttp.WinHttpRequest.5.1", 3)
   end
end 

2026-07-22 13:05:52.478 | < | R | 1784714752478.3 | 2026-07-22 13:05:52.4783 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.600 | 82004698291 |   125418894 |       reply | 423GEJS//15.222=90
                                                                             |             | R |        0 |          |         0.00 | (161) Заявка на продажу N 82004698291 зарегистрирована.
2026-07-22 13:05:52.522 | < | O | 1784714752478.3 | 2026-07-22 13:05:52.4783 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.587 | 82004698291 |           0 |       order | 423GEJS//15.222=90
                                                                             |             | R |       43 |          |       656.09 | pre-create
2026-07-22 13:05:52.551 | < | O | 1784714752490.5 | 2026-07-22 13:05:52.4905 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.587 | 82004698291 |   125418894 |       order | 423GEJS//15.222=90
                                                                             |             | R |       43 |          |       656.09 | created
2026-07-22 13:05:52.650 | < | T | 1784714752641.7 | 2026-07-22 13:05:52.6417 | TQBR | SBMX | S |       10 |   15.258 |       152.58 | 2026-07-22 13:05:52.746 | 82004698291 |   125418894 | 17219089464 | 423GEJS//15.222=90
2026-07-22 13:05:52.659 | < | O | 1784714752641.7 | 2026-07-22 13:05:52.6417 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.587 | 82004698291 |   125418894 |       order | 423GEJS//15.222=90
                                                                             |             | R |       33 |          |       503.51 | partial
2026-07-22 13:05:55.303 | sndtx | KILL_ORDER      |                     1810 | TQBR | SBMX | S |       33 |   15.258 |       503.51 | 2026-07-22 13:05:52.587 | 82004698291 |   125418956 |       sndtx | 423GEJS//15.222=90
2026-07-22 13:05:55.346 | < | O | 1784714755343.7 | 2026-07-22 13:05:55.3437 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.587 | 82004698291 |   125418894 |       order | 423GEJS//15.222=90
                                                                             |             | R |       33 |          |       503.51 | pre-cancel
2026-07-22 13:05:55.427 | < | O | 1784714755407.3 | 2026-07-22 13:05:55.4073 | TQBR | SBMX | S |       43 |   15.258 |       656.09 | 2026-07-22 13:05:52.587 | 82004698291 |   125418894 |       order | 423GEJS//15.222=90
                                                                             |             | R |       33 |          |       503.51 | cancelled

local transaction = {
        ["TRANS_ID"]    = "1001",
        ["CLIENT_CODE"] = "XXXXXX",
        ["ACCOUNT"]     = "B00BYYYYYYYYY",
        ["CLASSCODE"]   = "TQBR",
        ["SECCODE"]     = "ELMT",
        ["ACTION"]      = "NEW_ORDER",
        ["OPERATION"]   = "S",
        ["PRICE"]       = tostring(price),
        ["QUANTITY"]    = tostring(qty),
        ["TYPE"]        = "M"
    }

local res = sendTransaction(transaction)

local run = true
function OnStop()
  run = nil
  message(tostring(ds:Close()))
end

function main()
  ds = assert(CreateDataSource(class, sec, INTERVAL_M5))
  while run do sleep(500) end
end

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

function main()
  ds = assert(CreateDataSource(class, sec, INTERVAL_M5))
  while run do sleep(500) end
  message(tostring(ds:Close()))
end

$ sudo luarocks install lua-cjson

local json = require( 'cjson' )
local tbl = json.decode( json_string )  -- JSON string -> Lua table
local json_string = json.encode( tbl )  -- Lua table -> JSON strin

function main()
  local n = getNumberOf("depo_limits")
  message("Number depo_limits: " .. n)
  if n > 0 then
    getDepoEx("NC0011100000", "10382", "SBER", "NL0011100043", 20260601)
  end
  message("Завершение работы main.")
end

:local uis = game:GetService("UserInputService")
local m1 = false
local toolequipped = falseuis.InputBegan:Connect(function(input)
if input.UserInputType == Enum.UserInputType.MouseButton1 then
print("m1")
m1 = true
end
end)--// Services
local Players = game:GetService("Players")--// Variables
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()--// Functions
function ChildAdded()
if character:FindFirstChildOfClass("Tool") then
print("equipped")
toolequipped = true
end
end--// Connections
character.ChildAdded:Connect(ChildAdded)if m1 == true then
print("m1 is true")
endif toolequipped == true then
print("toolequipped is true")
end