-Счётчик, -Lua- Опции

[Levo222]

Как на Lua создать счетчик последовательного выполнения действия с присвоением каждому действию кликов координат? (с досрочным выходом из цикла в случае достижения макс числа)

code

Код

Local TCicleMax = 3 --максимальное кол-во
Count = Count + 1
local H1 = Kleft(100, 200) --первый контейнер
local H2 = Kleft(100, 300) --второй контейнер
local H3 = Kleft(100, 400) --третий контейнер

local h = findwindow("Containtg")
local t = os.clock()
While t > os.clock() do
  while Контейнер не полон (789, 9) ~= 9078784 do --Выполнять до тех пор пока контейнер не полон
    workwindow (h [1][1])
    hint ("Проверяю заполненность")
    wait (100)
    if  Контейнерполон (789, 9) == 9078785 --
    and что-то еще (10, 82) ~= 0  
    then
      hint ("Контейнер полон")
      alarm ("Контейнер полон.wav")
--но вот как узнать какой контейнер по счёту? потому что всего их 3. И если все 3 гонять по кругу это будет тупо.
      --Смотрим счётчик
      wait (10)
      --Если счётчик 3 (т.е. применялись H1, H2, H3)
      break --т.е. все 3 контейнера полны
   alarm ("Все контейнеры наполнены.wav")
    else --счетчик не 3
      --Проверка следующего контейнера--
      for i=1, #h do
        hint ("Открытие")
        workwindow (h[i][1])
        --drawtext(HNDL, '...\r\n...', 70, 300, 48, 'Segoe Print', 65279, 16000000)
        send217 ("5")
        wait (500)
--Здесь нужна какая-то функция открытия того контейнера, которыйне нажимался еще
        Kleft(Контейнер который не нажимался) --Т.е. H2/H3 второй/третий контейнер
        wait (500)
        send217 ("у")
        wait (1500)
        alarm ("Открытие контейнера.wav")
      end
    else
      hint ("Контейнер не заполнен")
      wait (200)
    end
  end
  alarm ("Завершение работы.wav")
  --log("Завершение работы")
  wait (500)

end

Если достигнуто TCicleMax, т.е. где-то в цикле уже прожимались H2 и H3 то цикл полностью завершает свою работу.
Т.е. важно чтобы скрипт помнил какие контейнеры он уже открывал, чтобы больше к ним не возвращаться.

[cirus]

постоянно вылазит ошибка

Если пишет значит есть ошибка. Выкладывайте код или ищите ошибку.

[Levo222]

Если пишет значит есть ошибка. Выкладывайте код или ищите ошибку.

Ну Вот:

8

Код

--lua
log 'clear'  log 'mode compact'
----------------Convert_Time---------------
function time (t)
  local m = math.floor( (math.floor(t) % 3600) / 60)
  local s = (math.floor(t) % 3600) % 60
  return string.format("%02d:%02d", m, s)
end
do

-------------------Контейнеры----------------
--local H = {{693, 78}, {696, 262}, {685, 451}} --
local H = {{696, 120}, {692, 404}, {704, 491}} --
local window_name = {'W1', 'W2', 'W3', 'W4', 'W5', 'W6'} --ОКНА

local count = {0, 0, 0}
-----------------------------------------------------------
log 'clear'  log 'mode compact'
----------------time--------------------
local minute = 2.1  -- х.х
local t = os.clock() + minute * 60
-----------------------------------------
----------------Window---------------------
local h = findwindow("W0")
local w1 = findwindow("W1")
local w2 = findwindow("W2")
local w3 = findwindow("W3")
local w4 = findwindow("W4")
local w5 = findwindow("W5")
local w6 = findwindow("W6")
-------------------Spot_x----------------------
function HC(x, y) return(color (x, y)) end 
function NС(x, y) return(color (x, y)) end

function D(x, y) return(color (x, y)) end  
function D1(x, y) return(color (x, y)) end 

function IW(x, y) return(color (x, y)) end
function IW1(x, y) return(color (x, y)) end

function PS(x, y) return(color (x, y)) end
function AW(x, y) return(color (x, y)) end

function WL(x, y) return(color (x, y)) end 
function WL2(x, y) return(color (x, y)) end
----------------------------------------------------
workwindow (h [1][1])
------------- -------------------------
--if (H[1][1], H[1][2]) == (696, 120) then
--else (H[1][1], H[1][2]) ==  (693, 78) then
--end
--------------------------------------------------------
end --do

------------------- СТАТУС--------------------------------
while t > os.clock() do
 if h > 0 then
 log ("окно существует")
  alarm ("Проверяю загрузку.wav")
  if IW (10, 100) ~= 0 --НЕ загружен

  then
  log ("Не загружен")
    if D (58, 575) == 0 
    and D1 (408, 572) == 1250075
    then 
      log ("Сбой")
      ---------------------------Выключение окон --------------------
      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
            if ActivW(317, 81) == 0 then --окно активно
              send217 ("выключить")
            else
              Wcount[j] = 1  -- записываем если неактивно
              hint ("Окно неактивно")
            end
          end
        else
          log('Найдено окон: 0')
        end
      end
      break
    else
      end
  -----------------Список выбора--------------------------------------
  log ("Проверяю экран")
  if WL (441, 561) == 3026224
  and WL2 (134, 580) == 1054234 
  then
    alarm ("Окно.wav")
    log ("Список")
    for forcount=1, 3 do
      log (count[forcount])
      if  count [forcount] == 0 then
        log (H[forcount][1], H[forcount][2])
        log (count[forcount])
        alarm ("Выбор контейнера.wav")
        move (H[forcount][1], H[forcount][2])
        wait(100)
        left (H[forcount][1], H[forcount][2])
        wait(300)
        send217 ("Enter")
        wait(100)
       while InWorld (10, 100) ~= 0 do --ждём загрузку
        if InWorld (10, 100) == 0 
        then
        break
        else
        end
         wait(200)
      end
       --count[forcount] = 1 --присвоили
        break
      else 
      end
  end
  else
  end
    else
    end 

  while 1 == 1 do --Выполнять до тех пор пока не будут полны/не произойдёт сбоя
    hint ("Проверяю")
    wait (200)
    hint ("Проверка сбоя")
    if  PS(11, 124) == 16579836 
    then
      log ('Сбой')
--Send ("выход")
      wait (500)
      workwindow (h[1][1])
      send217 ("5")
      wait (500)
      send217 ("5")
      wait (5000)
      send217 ("5")
      alarm ("выхожу.wav")
      count[forcount] = 1  -- записываем что он заполнен/бракованный
      --Выхожу из тех окон
      ---------------------------Выключение окон --------------------
      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
            if ActivW(317, 81) == 0 then --окно активно
              send217 ("5")
              wait(200)
            else
              Wcount[j] = 1  -- записываем если неактивно
              hint ("Окно неактивно")
            end 
          end 
        else
          log('Найдено окон: 0')
        end  
      end
      --паузу 15 мин--
      log ("Делаю паузу 15 мин")
      wait (150000)
      if t < os.clock() then
      break
    else
    end
    wait (20)
      ---------------------------Включаем ОКНА ОБРАТНО--------------------
      for ii=1, #window_name do
        local WX = findwindow(window_name[ii])
        log('Имя окна: ' .. window_name[ii])
        if WX then
          log('Найдено окон: ' .. tostring(#WX))
          for jj=1, #W do
            if ActivW(317, 81) ~= 0 then --окно неактивно
              send217 ("Enter")
              wait (2000)
              --alarm ("Захожу.wav")
            else
              Wcount[jj] = 1  -- записываем если активно
              hint ("Окно ктивно")
            end  --if ActivW(317, 81)
          end
        else
          log('Найдено окон: 0')
        end
      end
------После включения окон ------------
      break
 else 
      wait (200)
      hint ("Нет сбоя")
   if HC (828, 11) == 7368192
--полон
    then
      hint ("Выхожу")
      workwindow (h[1][1])
      alarm ("выхожу.wav")
      send217 ("5")
      wait (500)
      send217 ("5")
      wait (5000)
      send217 ("5")
      count[forcount] = 1  -- запиcываем что Бак на этом шаге счетчика полон
      break    
    else
    end -- не полон!... (цикл продолжается)
  end
  end
else 
break
end
end
--вышли из цикла времени


if h then
hint ("Окно существует")
workwindow (h [1][1])
if (D (58, 575) == 0  and D1 (408, 572) == 1250075) then
  while (D (58, 575) == 0  and D (408, 572) == 1250075) do
    alarm ("сигнал.wav")
    wait (1000)
    alarm (".wav")
    hint ("Сбой")
    wait (1000)
  end
else
  if count == 1 then
    while count == 1 do
      alarm ("сигнал.wav")
      wait (1000)
      hint ('Баки полны')
      wait (1000)
    end
  else
    if t < os.clock() then
      while t < os.clock() do
        wait (1000)
        hint ("Время истекло")
        wait (1000)
        alarm ("Время истекло.wav")
      end
    else
    end 
  end 
end
else 
while h < 1 do
        alarm ("Окно не существует.wav")
        wait (1000)
        hint ("Окно не существует")
        wait (1000)
      end
end