dimka (Автор тем)

Settings=
{
 Name = "AAA2",
 Name1 = "abcd",
 val_r = 0,
 line = 
 {
 {
 Name = "MA",
 Color = #ff0000,
 Type = TYPE_LINE,
 Width = 2
 }
 }
}


 function Init()
   return 1
 end

function OnCalculate(index)
   local q1 = 0
   
   t1, n1, l1 = getCandlesByIndex(Settings.Name1, 0, index-1, 1)
    
   q1 = Settings.val_r
   if t1[0].close > 0 then
      q1 = t1[0].close
      Settings.val_r = q1
   end
 
   return q1
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 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