dimka (Автор тем)

Setup = {
class = "SPBFUT",
sec = "SiH2"
}


local tostring__ = tostring
function tostring(x)
return tostring__(math.tointeger(x) or x)
end

function metka(pos, price)
   local h,m,t = string.match(getInfoParam("SERVERTIME"),"(%d%d)%p(%d%d)%p(%d%d)")
   local time_pos = h..m..t
   local d,m,y = string.match(getInfoParam("TRADEDATE"),"(%d%d)%p(%d%d)%p(%d%d%d%d)")
   local date_pos = y..m..d

   label_params = {
      TEXT = tostring(price),
      IMAGE_PATH = "",
      ALIGNMENT = "LEFT",
      YVALUE = price,
      DATE = date_pos,
      TIME = time_pos,
      R = 80,
      G = 80,
      B = 180,
      TRANSPARENCY = 0,
      TRANSPARENT_BACKGROUND = 1,
      FONT_FACE_NAME = "Arial",
      FONT_HEIGHT = 10,
      HINT = tostring(pos)
   }
   return label_params
end

function main()
   local curp = getParamEx2(Setup.class, Setup.sec, "LAST").param_value+0
   up_label_id = AddLabel("jbd", metka("UP", curp+100))
   dwn_label_id = AddLabel("jbd", metka("DWN", curp-100))
   SetLabelParams("jbd", up_label_id, metka("UP", curp+100))
   SetLabelParams("jbd", dwn_label_id, metka("DWN", curp-100))
end

Setup = {
class = "SPBFUT",
sec = "SiH2"
}


local tostring__ = tostring
function tostring(x)
return tostring__(math.tointeger(x) or x)
end

function metka(pos, price)
   local h,m,t = string.match(getInfoParam("SERVERTIME"),"(%d%d)%p(%d%d)%p(%d%d)")
   local time_pos = h..m..t
   local d,m,y = string.match(getInfoParam("TRADEDATE"),"(%d%d)%p(%d%d)%p(%d%d%d%d)")
   local date_pos = y..m..d

   label_params = {
      TEXT = tostring(price),
      IMAGE_PATH = "",
      ALIGNMENT = "LEFT",
      YVALUE = price,
      DATE = date_pos,
      TIME = time_pos,
      R = 80,
      G = 80,
      B = 180,
      TRANSPARENCY = 0,
      TRANSPARENT_BACKGROUND = 1,
      FONT_FACE_NAME = "Arial",
      FONT_HEIGHT = 10,
      HINT = tostring(pos)
   }
   return label_params
end

function search_metka(idmetka, inum)
   local q = GetLabelParams(idmetka, inum)
   if q ~= nil then
      return inum
   end
      return -1
end

function main()
   local curp = getParamEx2(Setup.class, Setup.sec, "LAST").param_value+0
   up_label_id = -1
   dwn_label_id = -1
   local q = 0
   for i = 0, 100, 1 do
      q = search_metka("jbd", i)
      if q ~= -1 then
         if up_label_id < 0 then
            up_label_id = q
         elseif dwn_label_id < 0 then
            dwn_label_id = q
            break
         end
      end
   end
   SetLabelParams("jbd", up_label_id, metka("UP", curp+100))
   SetLabelParams("jbd", dwn_label_id, metka("DWN", curp-100))
end