--lua
local H = {{100, 200}, {100, 300}, {100, 400}}
local count = {0, 1, 0}  -- изначально массив заполняем нулями, для примера действие 2 уже выполнено

log 'clear'  log 'mode compact'
for i=1, 3 do
    if count [i] == 0 then  -- если действие ещё не выполнялось
        -- тут какое-то условие, если истина, то выполнить действие
        log (H[i][1], H[i][2])
        count[i] = 1  -- записываем что он выполнено
    end
end

--lua
local H = {{100, 200}, {100, 300}, {100, 400}}

local count = {0, 1, 0}  -- изначально массив заполняем нулями, для примера действие 2 уже выполнено

log 'clear'  log 'mode compact'
for i=0, 3 do
    if count [i] == 0 then  -- если действие ещё не выполнялось
        -- тут какое-то условие, если истина, то выполнить действие
        log (H[i][1], H[i][2])
        count[i] = 1  -- записываем что он выполнено
    end
end

--lua
local H = {{100, 200}, {100, 300}, {100, 400}}

log 'clear'  log 'mode compact'

for i=1, #H do
    log (H[i][1], H[i][2])
end

if 1 then
 1
  else
 if 2 then
   2
  else
   if 3 then 
    break
   else
   end
 end
end

end_script()

Repeat

log (count[i])

while count[i] = 0 do

end

Угу

for i=0, 6 do

--lua
local W = {111, 222, nil, 444}

for i=1, #W do
    if W[i] then
        log (W[i])
    end
end

 log (H[i][1], H[i][2])

attemp to compare number with table

Kleft (H[i][1], H[i][2])

не работает 

 while Wcount[e] == 0 do
                for e=0, 6 do
                workwindow (W[e][1])
                    if ActivW(317, 81) == 0 then --окно активно
                    send217 ("5")
                    alarm ("выхожу.wav")
                    else
                    Wcount[e] = 1  -- записываем если неактивно
                    hint ("Окно неактивно")
                    end
                end
            end

local W = {w1, w2, w3, w4, w5, w6}
local Wcount = {0, 0, 0, 0, 0, 0}
local w1 = findwindow("W1")
  local w2 = findwindow("W2")
  local w3 = findwindow("W3")
  local w4 = findwindow("W4")
  local w5 = findwindow("W5")
  local w6 = findwindow("W6")

--lua
local WM_CLOSE = 0x0010
local window_name = {'Блокнот', 'Калькулятор', 'Lineage2'}    -- имена окон

log 'clear'  log 'mode compact'

for i=1, #window_name do
    local W = findwindow(window_name[i])
    log('Имя окна: ' .. window_name[i])
    if W then
        log('Найдено окон: ' .. tostring(#W))
        for j=1, #W do
            sendmessage (W[j][1], WM_CLOSE, 0, 0)     -- закрыть окно
        end
    else
        log('Найдено окон: 0')
    end
    log()
end

--lua
local window_name = {'Блокнот', 'Калькулятор', 'Lineage2'}    -- имена окон

log 'clear'  log 'mode compact'

for i=1, #window_name do
    local W = findwindow(window_name[i])
    log('Имя окна: ' .. window_name[i])
    if W then
        log('Найдено окон: ' .. tostring(#W))
        for j=1, #W do
            send (x)     -- вернуть обратно активность окну
        end
    else
        log('Найдено окон: 0') --у меня ощущение, что else должна стоять после end - for j=1, #W do... что-то тут не так?
    end
    log()
end

while t > os.clock() do

end --while t > os.clock() do

while t > os.clock() do
for forcount=1, 3 do 
      log (count[forcount])
      if  count [forcount] == 0 then
        left (H[forcount][1], H[forcount][2])
        --если нету свободных (все count = 1)
        break --выход из for и далее цикл процесса
      end --
 end

end --while t > os.clock() do

while t > os.clock() do
if WindowLoad (441, 561) == 3026224
 for forcount=1, 3 do 
      log (count[forcount])
      if  count [forcount] == 0 then -- если какой-то контейнер пуст
        --Выбор (H[forcount][1], H[forcount][2])
        break --выход из for в случае и далее цикл процесса
else --текущий контейнер полон???
      end --
else
 end
end
while 1 do -- основной рабочий процесс
--в случае нарушения каких-либо параметров из него выкидывает
if u = 0 then 
break 
else
 end
end
end --while t > os.clock() do

while do

 if then
 else
 end

 if then
 else
 end

end

   local W = findwindow(window_name[i])
    log('Имя окна: ' .. window_name[i])
    if W then

if W ~= nil then

--lua
a = 4
c = 7 > 3
if a then log("А существует") end
if b then log("В существует") end
if c then log("Выражение 'С' истинно") end