Список проголосовавших за комментарий "Igr, На Lua нужно долго и нудно разбираться. Вот код функции main, остальные сами, если будет желание.<br/> <p><br/> is_run = true<br/> Account = «12»<br/> Class_Code = «SPBFUT»<br/> Sec_Code = «RIM6»<br/> TF = 0<br/> time_frime = INTERVAL_M1<br/> lots = 1<br/> Length = 1<br/> overbought = -20<br/> oversell = -80<br/> id = 1<br/> switch_on = 1<br/> ds = 0<br/> poza = 0<br/> lastpoza = 0<br/> disconect_t = 0<br/> t_old_can = 0<br/> old_day = 0<br/> new_day_f = 0<br/> new_can_f = 0<br/> new_tic_f = 0<br/> all_trade_f = 0<br/> count_main = 0<br/> m_all_orders = {}<br/> dofile(getScriptPath()… "\\load.luac")<br/> dofile(getScriptPath()… "\\order.luac")<br/> dofile(getScriptPath()… "\\trade.luac")<br/> dofile(getScriptPath()… "\\indicator.luac")<br/> dofile(getScriptPath()… "\\on_order.luac")<br/> timeformat = function(time)<br/> local time1 = 0<br/> local time2 = 0<br/> local time3 = 0<br/> time1 = string.find(time, ":", 0)<br/> if time1 ~= nil and time1 ~= 0 then<br/> time2 = string.find(time, ":", time1 + 1)<br/> time3 = string.sub(time, 0, time1 — 1)… string.sub(time, time1 + 1, time2 — 1)… string.sub(time, time2 + 1, string.len(time))<br/> end<br/> return time3<br/> end</p><p>main = function()<br/> repeat<br/> if pcall(conf) == false then<br/> sleep(200)<br/> message("\135\224\227\240\243\230\224\254 \239\224\240\224\236\229\242\240\251", 1)<br/> else<br/> if pcall(read_poz) == false then<br/> sleep(200)<br/> message("\135\224\227\240\243\230\224\254 \239\238\231\232\246\232\254", 1)<br/> else<br/> ds = CreateDataSource(Class_Code, Sec_Code, time_frime)<br/> ds:SetUpdateCallback(cb)<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> repeat<br/> if is_run then<br/> sleep(800)<br/> count_main = count_main + 1<br/> local servertime = getInfoParam(«SERVERTIME»)<br/> if tonumber(servertime) == 0 or servertime == nil then<br/> disconect_t = 0<br/> end<br/> until servertime ~= nil<br/> servertime = tonumber(timeformat(servertime))<br/> if isConnected() == 1 and servertime ~= nil and tonumber(servertime) ~= 0 and disconect_t == 0 then<br/> disconect_t = os.clock()<br/> end<br/> until isConnected() == 1<br/> until servertime ~= nil<br/> until tonumber(servertime) ~= 0<br/> until math.abs(os.clock() — tonumber(disconect_t)) > 7<br/> until isConnected() == 1<br/> until servertime ~= nil<br/> until tonumber(servertime) ~= 0<br/> if new_day_f == 1 then<br/> f_new_day()<br/> repeat<br/> if pcall(read_poz) == false then<br/> sleep(200)<br/> message("\135\224\227\240\243\230\224\254 \239\238\231\232\246\232\254", 1)<br/> else<br/> new_day_f = 0<br/> end<br/> until new_can_f == 1 or new_tic_f == 1<br/> until all_trade_f == 1<br/> if count_main >= 2 then<br/> if pcall(conf) == false then<br/> sleep(200)<br/> message("\135\224\227\240\243\230\224\254 \239\224\240\224\236\229\242\240\251", 1)<br/> else<br/> count_main = 0<br/> end<br/> if new_can_f == 1 then<br/> new_can_f = 0<br/> end<br/> if switch_on == 0 then<br/> kill_orders()<br/> position_f()<br/> market_ord(0)<br/> else<br/> trade_alg()<br/> end<br/> new_tic_f = 0<br/> all_trade_f = 0<br/> else<br/> end<br/> end<br/> end<br/> end<br/> end<br/> end<br/> end<br/> end<br/> end</p><p>cb = function(size)<br/> if ds:Size() ~= nil and tonumber(ds:Size()) == size then<br/> local date = getInfoParam(«TRADEDATE»)<br/> local date1 = tonumber(string.sub(date, 7, 10)… string.sub(date, 4, 5)… string.sub(date, 0, 2))<br/> if date1 ~= tonumber(old_day) then<br/> new_day_f = 1<br/> old_day = date1<br/> end<br/> new_tic_f = 1<br/> local date2 = ds:T(size).year… Chisla(ds:T(size).month)… Chisla(ds:T(size).day)… Chisla(ds:T(size).hour)… Chisla(ds:T(size).min)… «00»<br/> if tonumber(date2) ~= t_old_can then<br/> new_can_f = 1<br/> t_old_can = tonumber(date2)<br/> end<br/> end<br/> end</p><p>OnAllTrade = function(T1)<br/> if T1.sec_code == Sec_Code then<br/> all_trade_f = 1<br/> end<br/> end</p><p>OnStop = function(T2)<br/> is_run = false<br/> T2 = 1<br/> ds:Close()<br/> end</p><p>Chisla = function(Num)<br/> if string.len(tostring(Num)) == 1 then<br/> Num = «0»… tostring(Num)<br/> else<br/> Num = tostring(Num)<br/> end<br/> return Num<br/> end</p><p> </p>"