EDP = "NO"
FIRMID = "не об\255зателе\237"
RISK_CHANGE = "NO"
RISK_CONST = 6
LICENSE_RISK = "NO"
VEDLOG = "Ведётс\255"
PAPER = "RTS"
ACCOUNT_DEPO = "99999"
CLIENTCODE = "11111"
MODULD = "10092021"
SALUT = "1000000000"
MODULPRO ="10092021"
RISK_LIC = 6
Trade = function(Type)
  -- function num : 0_0 , upvalues : _ENV
  local temp = nil
  trans_id = trans_id + 1
  local spred = 100
  local Price = 0
  local operation = ""
  if Type == "BUY" then
    for j = 0, 9 do
      Price = (getParamEx(CLASS_CODE, SEC_CODE, "offer")).param_value
      if Price == 0 then
        do
          temp = (getParamEx(CLASS_CODE, SEC_CODE, "bid")).param_value
        end
      end
    end
    spred = Price + spred
    operation = "B"
  else
    for j = 0, 9 do
      Price = (getParamEx(CLASS_CODE, SEC_CODE, "bid")).param_value
      if Price == 0 then
        do
          temp = (getParamEx(CLASS_CODE, SEC_CODE, "offer")).param_value
        end
      end
    end
    spred = Price - (spred)
    operation = "S"
  end
  local Transaction = {ACCOUNT = ACCOUNT_DEPO, TYPE = "L", TRANS_ID = tostring(trans_id), CLASSCODE = CLASS_CODE, SECCODE = SEC_CODE, ACTION = "NEW_ORDER", OPERATION = operation, PRICE = tostring(spred), QUANTITY = "1"}
  for j = 0, 10 do
    sendTransaction(Transaction)
    while not stopped and trans_Status == nil do
      sleep(10)
    end
    local Status = trans_Status
    trans_Status = nil
    if Status ~= 3 then
      row = t:AddLine()
      t:SetValue(row, "Дата", Data.date, i)
      t:SetValue(row, "Врем\255", TimeF, i)
      t:SetValue(row, "Событи\229", (string.format)("Зайт\232 \226 сделку не удалос\252 по цене %d! Статус %d: %s", Price, Status, trans_result_msg), i)
      i = i + 1
      f:write("\n", Data.date, " ", TimeF, " ", (string.format)("Зайт\232 \226 сделку не удалос\252 по цене %d! Статус %d: %s", Price, Status, trans_result_msg))
      f:flush()
      f:seek("end", 0)
      ;
      (bot.sendMessage)(from_id, (string.format)("Zajti v sdelku ne udalos` po cene %d! Status %d", Price, Status))
      if j == 9 then
        return false
      end
    else
      row = t:AddLine()
      t:SetValue(row, "Дата", Data.date, i)
      t:SetValue(row, "Врем\255", TimeF, i)
      t:SetValue(row, "Событи\229", (string.format)("\194 сделку зашл\232 по цене: %d", Price), i)
      i = i + 1
      f:write("\n", Data.date, " ", TimeF, " ", (string.format)("\194 сделку зашл\232 по цене: %d", Price))
      f:flush()
      f:seek("end", 0)
      ;
      (bot.sendMessage)(from_id, (string.format)("V sdelku zashli po cene: %d", Price))
      sleep(10)
      return true
    end
  end
  CountVolat = function(period, interV)
    -- function num : 0_0_0 , upvalues : _ENV
    tCandle = CreateDataSource(codeclass, codebum, interV)
    NumEndCandle = tCandle:Size()
    Sum = 0
    for j = 1, period do
      Volat = tCandle:H(NumEndCandle - j) - tCandle:L(NumEndCandle - j)
      Sum = Sum + Volat
    end
    avgVolat = Sum / period
    target = avgVolat / 2
    Hi = tCandle:H(NumEndCandle - 1)
    Lo = tCandle:L(NumEndCandle - 1)
    HiO = tCandle:H(NumEndCandle - 2)
    LoO = tCandle:L(NumEndCandle - 2)
    trd = "ничего"
    if HiO < Hi and LoO < Lo then   trd = "Лонг"
    else
      if Hi < HiO and Lo < LoO then   trd = "Шорт"
      else
        if HiO < Hi and Lo < LoO then  trd = "Внеш.свеч\224"
        else
          if Hi < HiO and LoO < Lo then
            HiOO = tCandle:H(NumEndCandle - 3)
            LoOO = tCandle:L(NumEndCandle - 3)
            if HiOO < HiO and LoOO < LoO then   trd = "Лонг(внут\240.свеч\224)"
            else
              if HiO < HiOO and LoO < LoOO then   trd = "Шорт(внут\240.свеч\224)"
              else   trd = "ХЗ"
              end
            end
          else      trd = "ничего"
          end
        end
      end
    end
    trend = trd
    return avgVolat, target, Hi, Lo, trend
  end
  insertLabel = function(labelType, labelDate, labelTime, yValue)
    label_params = {}
    if labelType == 1 then
      label_params.IMAGE_PATH = "C:\\pic_qlua\\купл\255.bmp"
    else
      if labelType == 2 then
        label_params.IMAGE_PATH = "C:\\pic_qlua\\продаж\224.bmp"
      end
    end
    label_params.TIME = labelTime
    label_params.DATE = labelDate
    label_params.YVALUE = yValue
    label_params.ALIGNMENT = TOP
    AddLabel(id_grafic, label_params)
  end
end