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

package.cpath = "C:\\Program Files (x86)\\Lua\5.1\\lib\\?.dll;" .. package.cpath
package.path = "C:\\Program Files (x86)\\Lua\5.1\\lualib\\?.lua;" .. package.path

sckt = require("socket")
....
smtp = require("socket.smtp")

function OnStop()
  message(string.format("OnStop %s (%s)", osTime(), tostring(os.clock())))
  return 5000
end

function osTime()
  local _date = os.date("*t")
  return string.format("%02d:%02d:%02d",_date.hour, _date.min, _date.sec)
end

function main() 
  while true do
    message(string.format("main... %s (%s)", osTime(), tostring(os.clock())))
    sleep(1000)
  end
end

function OnInit(script)
  is_run = true
  quotes_is_received = false
end

function OnStop()
  is_run = false
  return 2000
end

OnQu ote = function()end

function main()
  quotes = getQuoteLevel2('TQBR', 'LKOH')
  message(string.format("bid_count %s offer_count %s", quotes.bid_count, quotes.offer_count))
  My_Subscribe_Level_II_Quotes('TQBR', 'LKOH')
  
  while is_run do
    message('quotes_is_received ' .. tostring(quotes_is_received))
    quotes = getQuoteLevel2('TQBR', 'LKOH')
    message(string.format("bid_count %s offer_count %s", quotes.bid_count, quotes.offer_count))
    sleep(1000)
  end
  
end

function My_Subscribe_Level_II_Quotes(class_code, sec_code)
  quotes_is_received = false
  
  OnQu ote = function(cl_code, s_code)
    if cl_code == class_code and s_code == sec_code then
      quotes_is_received = true
      message(string.format("Слепок стакана по инструменту %s [%s] получен", class_code, sec_code))
      OnQu ote = function()end
    end
  end
  
  is_subscribe = Subscribe_Level_II_Quotes(class_code, sec_code)
end

package.cpath = getScriptPath() .. "\\<CDIR>\\?.dll;" .. package.cpath
package.path = getScriptPath() .. "\\<LDIR>\\?.lua;" .. package.path

is_run = true

_bid = {}

function OnQuote(class, sec)
  if class =="SPBFUT" and sec == "RIZ6" then
    ql2_bid = getQuoteLevel2(class, sec).bid
    table.insert(_bid, ql2_bid)
  end
end

function OnStop(signal)
  is_run = false
end

function main()
  
  while is_run do
  
    if #_bid == 1 then 
      for k,q in ipairs(_bid[1]) do
        if q.price == my_order_price and q.quantity == my_order_qty then
          message(string.format("Моя заявка %i в очереди", k))
        elseif q.price == my_order_price and q.quantity > my_order_qty then
          message(string.format("Моя заявка %i в очереди, но так же по данной цене еще %i лотов не моей заявки", k, q.quantity - my_order_qty))
        end
      end
      _bid = {}
    end
    
    sleep(100)
  end
end