Владимир (Все сообщения пользователя)

j=a[i][1][1];
message(i..": ");
message(i..": SP["..j.."]="..SP[2]);
message(i..": SP["..j.."]="..SP[j]);

message(i..": ");            -- печатает "0: "
message(i..": SP["..a[i][1][1].."]");      -- печатает "0: SP[2]"
message(i..": SP["..a[i][1][1].."]="..SP[2]);   -- печатает "0: SP[2]=0"
message(i..": SP["..a[i][1][1].."]="..SP[a[i][1][1]]);

function d0(s)         -- обрезка концевых нулей после запятой
 s=tonumber(s);         -- для числовых переменных
 if s==math.floor(s) then s=math.floor(s) end
 return s;         -- возвращаем огрызок
end;            -- конец функции d0()

k=0;   -- признак ненужности тикера в таблице
a[i][2]=getParamEx(a[i][1][0],a[i][0],"LAST").param_value;
j=a[i][2]/a[i][1][7]*100-100;   -- текущее изменение средней цены
if j<-5 then k=1;end      -- провалившиеся тикеры показываем
if a[i][1][5]>0 then      -- если есть ставки по тикеру
 j=a[i][2]/a[i][5][a[i][1][4]-1]*100-100;
 if j>3 or j<-3 then k=1;end   -- тикеры с отклонившейся последней ставкой
end;   -- конец условия "есть ставки по тикеру" 
if k==0 and a[i][9]~=-1 then   -- тикер есть, а его быть не должно
...

function main()
 f=true;-- признак работы скрипта (false - завершение)
 c=0;   -- малый счётчик прерываний
 C=0;   -- большой счётчик прерываний
 ...   -- идёт начальная инициализация данных (вместо onInit)
 while f do   -- бесконечный цикл до остановки скрипта
  sleep(1500);   -- раз в 1.5 секунды запускаем утилиту опроса
  small();   -- текущих данных и вывода их юзеру
 end;   -- конец бесконечного цикла
 ...   -- идёт запись результатов в файл
 message("Скрипт остановлен!");
end;

function small()-- обработчик прерывания по таймеру
 local i=0;   -- индекс текущего тикера
 local j=0;   -- значение последней цены
 c=c+1;   -- счётчик "мелких" прерываний
 if c==10 then c=0; big();end;   -- прошло 15 секунд, включаем анализ
 while i<N do   -- цикл по тикерам (опрос текущих курсов)
  if a[i][9]~= 0 then   -- если тикер присутствует в таблице
   j=getParamEx(a[i][1][0],a[i][0],"LAST").param_value;
   if j~=a[i][2] then   -- если курс изменился
    a[i][2]=j;   -- запоминаем новое значение курса
    SetCell(T,a[i][9],3,tostring(d0(a[i][2])));
   end;   -- конец условия "курс изменился"
  end;   -- конец условия "тикер присутствует в таблице"
  i=i+1;-- переходим к следующему тикеру
 end;   -- конец цикла по тикерам
end

function big()   -- более серьёзный обработчик
 ...   -- идёт некий анализ данных
end

function d0(s)   -- обрезка концевых нулей после запятой
 s=tonumber(s);   -- для числовых переменных
 if s==math.floor(s) then s=math.floor(s) end
 return s;   -- возвращаем огрызок
end

function OnStop()-- вызов по нажатию кнопки "Остановка скрипта"
 f=false;   -- команда на прекращение бесконечного цикла
end