ds  =   CreateDataSource ( "SPBOPT" ,  "RI95000BI6" , INTERVAL_M1,  "theorprice" )
lastCandleIndex  =  ds: Size ()
ds: SetUpdateCallback (ddd)

 function   ddd (idx)
    if  idx  >  lastCandleIndex  then 
       message ( 'Свеча закрылась. Ее цена закрытия Close = '  .. ds:C(idx))
      lastCandleIndex  =  idx
    end 
 end 
  

  new  =   getParamEx ( "SPBOPT" ,  "RI95000BI6" ,  "theorprice" ).param_value +  0 
 if  new ~ =  last  then 
    message ( "новое значение "  .. new)
 end 
last  =  new
  

ds = CreateDataSource("SPBOPT", "RI95000BI6", INTERVAL_M1, "theorprice")
lastCandleIndex = ds:Size()
ds:SetUpdateCallback(ddd)

function ddd(idx)
   if idx > lastCandleIndex then
      message('Свеча закрылась. Ее цена закрытия Close = '..ds:C(idx))
      lastCandleIndex = idx
   end
end

new = getParamEx("SPBOPT", "RI95000BI6", "theorprice").param_value+0
if new ~= last then
   message("новое значение "..new)
end
last = new

ds = CreateDataSource("SPBOPT", "RI95000BI6", INTERVAL_M1, "theorprice")
LastOpen = ds:O(ds:Size())

function OnQuote(class_code, sec_code)
   if class_code == CLASS_CODE_OPT and sec_code == SEC_CODE_OPT and MayOpt then
      ql2 = getQuoteLevel2(class_code, sec_code)
      if tonumber(ql2.offer[1].price+0) ~= nil and tonumber(ql2.offer[1].price+0) <= tonumber(getParamEx(class_code, sec_code, "theorprice").param_value+0) then
         PRICE_OPT = ql2.offer[1].price+0
         MayOpt = false
      end
   end
end

function OnParam(class, sec)
   -- если изменилась цена опциона, включить флаг, чтобы посмотреть стакан
   if class == CLASS_CODE_OPT and sec == SEC_CODE_OPT and not MayOpt then
      MayOpt = true 
   end
end