--lua
math.randomseed(os.clock())
local handle = findwindow('кнут')
if handle then
  workwindow(handle[1][1])
  showwindow(handle[1][1])
  windowpos(1, 1, 1366, 768)
else
  log('Окно не найдено')
end
log 'clear' log 'mode compact'
log ("open", 10, 563, 290, 190) -- открыть окно лога в координатах , с размером
log ("АС")

--есть: Работает не очень как хочу но это ПОТОМ.
local startX, startY, endX, endY = 0, 0, 1366, 768  -- координаты поиска
local path = [[C:\Newfindi]] -- путь к картинкам

local image = {"Сундук", "Красный", "Синий", "Зелёный", "Отдать", "Забрать"}   -- Именами картинок
hint ("Всего картинок для поиска " .. #image)
for i= #image, 1, -1  do   --  for i=1, #image do  -- цикл для поиска картинок
    local arr, a = findimage (startX, startY, endX, endY, {path .. "\\" .. image[i] .. ".bmp"}, 2)  -- поиск картинки
    if a > 0 then    -- if  arr then
       kleft (arr[1][1], arr[1][2])
       wait (310 + math.random (100))
    end
end

while color(x, y) ~= your_color do
    wait(100)
end

while not (color(x, y) == your_color and findimage(...)) do
    wait(100)
end

::start::
local startX, startY, endX, endY = 0, 0, 1366, 768  -- координаты поиска 
local path = [[C:\Newfindi]] -- путь к картинкам

while color(715, 396,"abs") ~= 1914709 do -- ЖДАТЬ  НАДО Что бы findimange Было.
 wait(500 + math.random(150))
end

 -- БЛОК КАРТИНОК ПРЕДМЕТОВ.
local image = {"книга", "клыки", "коты"} -- ИМЕНА КАРТИНОК.
  hint ("Всего картинок для поиска " .. #image)
    for i=1, #image do  -- цикл для поиска картинок
local arr, a = findimage (startX, startY, endX, endY, {path .. "\\" .. image[i] .. ".bmp"}, 2)  -- поиск картинки
    if  arr then
kleft (arr[1][1], arr[1][2])
   wait (230 + math.random (100))
end
end

После клика по картинки выезжает табло со словами.
 -- БЛОК КАРТИНОК НАДПИСЕЙ.
   wait (230 + math.random (100))
local image = {"открыть", "опусташить", "вскрыть"} -- ИМЕНА СЛОВ.
  hint ("Всего картинок для поиска " .. #image)
    for i=1, #image do  -- цикл для поиска картинок
local arr, a = findimage (startX, startY, endX, endY, {path .. "\\" .. image[i] .. ".bmp"}, 2)  -- поиск картинки
    if  arr then
kleft (arr[1][1], arr[1][2])
   wait (1110 + math.random (170))
end
end

local image = {"череп"} -- 
  hint ("Всего картинок для поиска " .. #image)
    for i=1, #image do  -- цикл для поиска картинок
local arr, a = findimage (startX, startY, endX, endY, {path .. "\\" .. image[i] .. ".bmp"}, 2)  -- поиск картинки
    if  arr then
   wait (210 + math.random (100))
log('Череп')
goto start
end
end
while color(715, 396,"abs") ~= 1914709 do -- ЖДАТЬ  НАДО Что бы findimange Было.
 wait(500 + math.random(150))
end
Ниже бругие блоки срипта.
goto start

repeat
  image1 =  findimage(startX, startY, endX, endY, {path .. "\\" .. your_image .. ".bmp"}, 2)  
until image1

close = {} -- Обязательно дожен быть глобальын. НЕ local
local stat = findcolor(303, 291, 417, 392, 1, 1, "(0xC0E9F0-0xC0E9F9)", '%close',2,100,100)

--lua

local startX, startY, endX, endY = 0, 0, 1920, 1080

local path = [["F:\путь\картинка1.bmp"]]
while not findimage (startX, startY, endX, endY, {path}, 2) do
        local path1 = [[F:\путь]]
        local image = {"картинка2", "картинка3"}
        for i=1, #image do                    
            local arr, c = findimage (startX, startY, endX, endY, {path1 .. "\\" .. image[i] .. ".bmp"}, 2, 70, 2, 2)
        end
end

-- после появления картинки1, проверяем, нашлась ли картинка2 или 3 (то есть берем переменную из предыдущего цикла)
if c then         
        local x = (1727 + math.random (39))
        local y = (965 + math.random (15))
        move (x, y)
end

--lua
if true then
    local c = 123  -- локальная переменная, существует только в этом блоке if end
end

log(c)    -- nil переменной не существует

--lua
local c
if true then
    c = 123
end

log(c)

--lua
log("C:\\folder1\\folder2")