Помогите освоить LUA Опции

[DarkMaster]

Подскажите, findcolor для LUA есть вариант функции?

Задавайте все параметры одним длинным стрингом. Пока только так.
local arr, err = findcolor([[1, 1, 1920, 1080, 1, 1(123456), 2]])

Сообщение отредактировал DarkMaster - 27.2.2019, 11:10

[KaZaK]

Это только для поиска картинки или я могу вместо картинки указать диапазон цветов ну или 1 цвет??

[DarkMaster]

Это только для поиска картинки или я могу вместо картинки указать диапазон цветов ну или 1 цвет??

Прошу прощения, привычка (IMG:style_emoticons/default/smile.gif) Там не должно быть картинки - там указывайте цвет или дипазоны, которые вам нужны. Код подправил.
Для картинки есть findimage, который вполне успешно работает в lua с полноценной подержкой синтаксиса.

Сообщение отредактировал DarkMaster - 27.2.2019, 11:10

[cirus]

Задавайте все параметры одним длинным стрингом. Пока только так.
local arr, err = findcolor([[1, 1, 1920, 1080, 1, 1(123456), 2]])

Не так.

Код

--lua
local a = findcolor([[1, 1, 1920, 1080, 1, 1 (42482) %arr 2]])
hint ("Найдено пикселей " .. a)
if a then     -- если найдены
    move(arr[1][1], arr[1][2])  -- навести курсор на первый найденный пиксель
end

В скобках указывается цвет, несколько цветов или диапазон.

[sutra]

Подскажите, findcolor для LUA есть вариант функции?

Есть, посмотрю сейчас повнимательнее (слишком много у меня вариантов) и дам код, более менее стабильный. Ну если не сегодня, то завтра (по факту уже сегодня). Надо просто хоть какое-то описание функции сделать. Ну и findimage тоже дам, но там ещё сложнее для понимания. Код дам завтра точно, если не поленюсь, то и описание применения тожедам.

[KaZaK]

Доброго дня!

Ломаю голову не пойму почему не передается в функцию таблица-значение??! Помогите разобраться

Код

--lua

local function waitRnd(t)
log(type(t));
log(type(t[1]));
log(type(t[2]));
log(type(t.coment[3]));
  if #t == 1 then
    return wait(math.random(t[1]));
  elseif #t == 2 then
    return wait(math.random(t[1], t[2]));
  end;
end;

-- Блок переменных
local D = {};
D["Delay"] = {};
D.Delay = {Undock = {900, 1700, coment = "Задержка при выходе из дока"}};
log(type(D.Delay.Undock));  --Тип table
log(type(D.Delay.Undock[1]));  --Тип number

waitRnd (D.Delay.Undock);  --Вызов дает ошибку t=nil

немного в ступоре...

[cirus]

Пилот 2.41? Передаётся нормально.

log(type(t.coment[3]));

Код

log(type(t.coment));

math.random(t[1], t[2])

Для использования рандома добавить в функцию:

Код

math.randomseed(os.clock())

[KaZaK]

Да, Пилот 2.41

До этого "log(type(t.coment[3]));" даже не доходит выполнение

выдает тип t = nil
и на следующей строке вылетает ошибка нет индекса(

а у тебя все сработало штатно?!

[cirus]

а у тебя все сработало штатно?!

Да.

[KaZaK]

ппц...
вырезаный кусок кода работает (IMG:style_emoticons/default/blink.gif)

Вот полный лист до места ошибки он не работет(

Код

--lua

local function waitRnd(t)
log(type(t));
log(type(t[1]));
log(type(t[2]));
log(type(t.coment));
  if #t == 1 then
    return wait(math.random(t[1]));
  elseif #t == 2 then
    return wait(math.random(t[1], t[2]));
  end;
end;

-- Блок переменных
local D = {};
D["windowClient"] = {title = "EVE - Arty Atruin", handle = 0};
D["Delay"] = {};
D.Delay = {Undock = {900, 1700, coment = "Задержка при выходе из дока"}};
log(type(D.Delay.Undock));
D.Delay = {KeyPress = {150, 150, coment = "Задержка между нажатиями кнопок"}};
log(type(D.Delay.KeyPress));
D.Delay = {Click = {100, 150, coment = "Задержки между кликами мышки"}};
log(type(D.Delay.Click));
D["checkUndock"] = {[[691, 646, 699, 652, 1, 1, (4838700) %arrMap 2 1 5]],
          coment = "Координаты и диапазон цвета для контроля выхода из дока"};
D["Activity"] = {[1] = {op = "WARP", xy = {200, 420}, delta = {18, 18}, coment = "Варп на буку камня"}};

D["rMenu"] = {WARP = {x=100, y=150, coment = "Варп по умолчанию"}};

-- Cвернуть пилот
showwindow (windowhandle(), "MINIMIZE");
wait (2000);

-- Привязка скрипта к окну
D.windowClient.handle = findwindow (D.windowClient.title);
if D.windowClient.handle == nil then
  log ("Окно клиента заголовком: "..D.windowClient.title.." не найдено!\n\
        Выполнение скрипта прекращено!");
  stop_script ();
end;
workwindow (D.windowClient.handle[1][1]);

-- Просто ждём...
--wait (5000);

for countCall = 1, 1 do -- Общее количество заходов на руду

  -- Выход из дока

  waitRnd (D.Delay.Undock);

Кажется я где-то перемудрил.. но где не понимаю

[cirus]

Кажется я где-то перемудрил.. но где не понимаю

D.Delay = {Undock = {900, 1700, coment = "Задержка при выходе из дока"}}
D.Delay = {KeyPress = {150, 150, coment = "Задержка между нажатиями кнопок"}}

D.Delay.Undock уже нет, оно переписалось KeyPress.

Код

--lua
local D = {}
D.Delay = {}
D.Delay.Undock = {900, 1700, coment = "Задержка при выходе из дока"}
D.Delay.KeyPress = {150, 150, coment = "Задержка между нажатиями кнопок"}

log(D.Delay.Undock)
log(D.Delay.KeyPress)

[KaZaK]

Как нужно в данном случае писать?!
Использовать table.insrt() ? я пробовал у меня не получилось...(

Подскажите, пжл

[cirus]

Как нужно в данном случае писать?!

Код

--lua
local D = {}
D.Delay = {}
D.Delay.Undock = {900, 1700, coment = "Задержка при выходе из дока"}
D.Delay.KeyPress = {150, 150, coment = "Задержка между нажатиями кнопок"}

log(D.Delay.Undock)
log(D.Delay.KeyPress)

[sutra]

Код и описание функции FindColor

Код

--lua
local ffi=require "ffi"
local rmem=ffi.cast
local function FindColor(addr,len,fx1,fy1,fx2,fy2,usl,numf,stepX,stepY)
  local dG,k,ind=false
  if not(addr)then
    local tmp
    dG,fx1,fy1,fx2,fy2,addr,tmp,tmp,len=true,0,0,fx2-fx1,fy2-fy1,getimage(fx1,fy1,fx2,fy2,len)
  end
  local lx,ly,r,g,b,p,d=fx2-fx1+1,fy2-fy1+1,ffi.new("uint8_t"),ffi.new("uint8_t"),ffi.new("uint8_t"),ffi.new("uint8_t[6]"),ffi.new("int16_t[6]")
  if numf then  numf=math.min(numf,lx*ly)  else  numf=lx*ly  end
  local arr,R,G,B,P,D,RG,RB,GB=ffi.new("uint16_t[?][5]",numf),true,true,true,true,true,true,true,true
  stepX,stepY,k=stepX or 1,stepY or 1,0
  if usl.R then  P,R,p[0],p[1]=false,false,usl.R,usl.R2 or usl.R  end
  if usl.G then  P,G,p[2],p[3]=false,false,usl.G,usl.G2 or usl.G  end
  if usl.B then  P,B,p[4],p[5]=false,false,usl.B,usl.B2 or usl.B  end
  if usl.RG then  D,RG,d[0],d[1]=false,false,usl.RG,usl.RG2 or 255  end
  if usl.RB then  D,RB,d[2],d[3]=false,false,usl.RB,usl.RB2 or 255  end
  if usl.GB then  D,GB,d[4],d[5]=false,false,usl.GB,usl.GB2 or 255  end
  if lx*3==len and stepX==1 and stepY==1 then
      ind=addr+fy1*len
      for i=ind,ind+ly*lx*3,3 do
        b,g,r=rmem("unsigned char*",i)[0],rmem("unsigned char*",i)[1],rmem("unsigned char*",i)[2]
        if(D or((RG or r-g>=d[0]and r-g<=d[1])and(RB or r-b>=d[2]and r-b<=d[3])and(GB or g-b>=d[4]and g-b<=d[5])))and(P or((R or r>=p[0]and r<=p[1])and(G or g>=p[2]and g<=p[3])and(B or b>=p[4]and b<=p[5])))then
          y=math.floor((i-ind)/len)
          k,arr[k]=k+1,{(i-ind-y*len)/3,y,b,g,r}
          if numf==k then  if dG then  deleteimage(addr)  end  return true,k-1,arr  end
        end
      end
    else
      local x,y=fx1,fy1
      while y<=fy2 do
        ind=addr+y*len+fx1*3
        while x<=fx2 do
          b,g,r=rmem("unsigned char*",ind)[0],rmem("unsigned char*",ind)[1],rmem("unsigned char*",ind)[2]
          if(D or((RG or r-g>=d[0]and r-g<=d[1])and(RB or r-b>=d[2]and r-b<=d[3])and(GB or g-b>=d[4]and g-b<=d[5])))and(P or((R or r>=p[0]and r<=p[1])and(G or g>=p[2]and g<=p[3])and(B or b>=p[4]and b<=p[5])))then
            k,arr[k]=k+1,{x,y,b,g,r}
            if numf==k then  if dG then  deleteimage(addr)  end  return true,k-1,arr  end
          end
          x,ind=x+stepX,ind+3*stepX
        end
        x,y=fx1,y+stepY
      end
  end
  if dG then  deleteimage(addr)  end
  if k<1 then  dG=false  else  dG=true  end
  return dG,k-1,arr
end----------------------------------------------------------------------------
-- ПЛЮСЫ и МИНУСЫ данной функции поиска
Начну сразу с МИНУСОВ, которые возможно сразу заставят отказаться от использования и дальше можно не читать
1) Нет возможности искать конкретный цвет в цифровой интерпретации (хотя можно прикрутить, вот только зачем).
2) Нет параметра deviation, причина отсутсвия та же - ЗАЧЕМ.
3) Нет возможности искать сразу по нескольким условиям поиска, причина отсутсвия та же - ЗАЧЕМ.
4) Нет обработки ошибок (делал для себя)
ПЛЮСЫ
1) Скорость поиска, толком не тестировал, но минимум в 3 раза быстрее стандартной функции
2) Возможность искать разность между каналами - это главный плюс, где это нужно каждый решит для себя сам
3) Поиск в любом окне, рабочем, не рабочем, перекрытом.
4) Первые 3 минуса собственно не являются минусами. Наоборот отсутствие этих возможностей заставит писАть
   грамотно код скрипта. Зачастую у людей что-то не ищется, потому, что жестко задаётся цвет поиска.
   Использование параметра deviation тоже может дать негативный эффект, так как применяется сразу ко
   всем каналам (RED,GREEN,BLUE). Правильнее всегда задавать конкретный ДИАПАЗОН этих каналов.
   Ну и если нужно искать конкретный цвет, просто задать значения каналов этого цвета.

-- ОПИСАНИЕ ФУНКЦИИ
-- check,numfind,arr = FindColor( < address, length, >  |  < handle, | "abs",>  fx1,fy1,fx2,fy2,usl [,numf [,stepX [,stepY]]] )

-- check - булева переменная, принимает значения true если поиск успешен и false в противном случае
-- numfind - количество найденных пикселей, РАВНО ПЛЮС 1, то есть если -1, значит ничего не найдено.
-- arr - массив найденных пикселей, обратите внимание, индексы начинаются с НУЛЯ
--   arr[0][0] - координата X первого найденного пикселя, arr[0][1] - координата Y,
--   arr[0][2],arr[0][3],arr[0][4] - значения каналов первого найденного пикселя BLUE,GREEN,RED соответственно
--   arr[numfind][0] - координата X последнего найденного пикселя, arr[numfind][1] - координата Y,
--   arr[numfind][2],arr[numfind][3],arr[numfind][4] - значения каналов последнего найденного пикселя BLUE,GREEN,RED соответственно
--   применять оператор #arr - НЕЛЬЗЯ - массив не является таблицей lua, используйте for i=0,numfind do ... end

-- address - адрес в памяти снимка области экрана  ИЛИ  nil , если необходимо искать непосредственно на экране
-- length  - длина строки в памяти  ИЛИ хендл окна поиска ИЛИ "abs" , если необходимо искать по абсолютным координатам
-- usl - таблица условий поиска
-- fx1,fy1,fx2,fy2 - координаты поиска в памяти или координаты области поиска
-- numf - максимальное количество искомых пикселей, по умолчанию все возможные
-- stepX, stepY - шаг поиска по горизонтали и вертикали, по умолчанию 1
--   Варианты ключей таблицы поиска
--     R=...,R2=...,G=...,G2=...,B=...,B2=...,RG=...,RG2=...,RB=...,RB2=...,GB=...,GB2=...
--     ключи со значениями 2 должны быть больше или равны значениям основных параметров, т.е. R2>=R и т.д.
--     Если ключи со значением 2 не заданы, то для ключей R,G,B по умолчанию они будут равны основным параметрам
--     а для ключей RG,RB,GB они будут равны 255 , т.е. максимально возможному значению


-- Варианты использования функции
-- 1) Просто проверить наличие требуемого пикселя (пикселей) в окне с хендлом handle
-- if FindColor(nil,handle,0,0,999,999,{R=254,R2=255,G=235,G2=255,B=98,B2=200},1000) then
--   ... необходимые действия
-- end
-- 2) Получить массив искомых пикселей из области экрана (в данном примере область 2-х мониторов 1920 х 1080)
-- local check,numfind,arr=FindColor(nil,"abs",0,0,3839,1079,{R=255,G=0,B=0},1000)
-- if check then  -- если пиксели найдены
--   ... необходимые действия
-- end
-- 3) Искать в памяти снимка экрана все пиксели хоть как-то похожие на красные, т.е. все оттенки красного
-- addr,w,h,len=getimage(0,0,1919,1079,"abs")
-- local check,numfind,arr=FindColor(addr,len,0,0,1919,1079,{RG=150,RB=150})
-- ... необходимые действия
-- deleteimage(addr)
-- 4) Просто пример варианта задания параметров поиска c использованием поиска по разности каналов
-- local check,numfind,arr=FindColor(addr,len,0,0,1919,1079,{RG=150,RB=-150,RB2=-50,R=120,R2=255})

-- РЕКОМЕНДАЦИИ. Старайтесь задавать параметр количества искомых пикселей не более требуемого,
-- внимание! по умолчанию будут искаться все возможные. Чем меньше этот параметр, тем меньше
-- требуется памяти и тем быстрее осуществляется поиск. 
-- Можете переименовать функцию по своему усмотрению, так как в lua синтаксис регистрозависимый
-- конфликта сочетания использования данной FindColor и стандартной findcolor не будет.

Забыл заремарить несколько строк, сорри.

Код заточен под быстродействие, если будете править, учтите, любая мелочь может привести к серьёзнейшей (в десятки раз) потере скорости.

[sutra]

FindImage тоже могу дать если надо. Но только без описания работы, ну просто лень. В 2-х словах сложно пояснить, слишком много наворочано, но ищет супер, просто нет слов. Спасибо Дарку, научил как надо делать!

[KaZaK]

FindImage тоже могу дать если надо.

Давай) буду опыт перенимать

У меня следующий нубский вопрос:

Код

--lua

local function f()
  return D[2]-D[1]   -- D = nil ??? почему
end

local D={12, 45}

log(f())

end_script ()

Почему в функции не доступен массив D ????

[DarkMaster]

Потому что D объявлено после функции. Вас же, например, не смутит, что код:

Код

local result = D[2]-D[1]
local D={12, 45}

выдаст ошибку? Тут так же. Нарушен порядок. Чтобы этого избежать можно пойти двумя с половиной путями:
1) Передавать таблицу в функцию в явном виде (правильный вариант, глобальные переменные - это зло).
2) Можно обявить D, но инициализировать позже:

Код

--lua

local D
local function f()
  return D[2]-D[1]   -- D не nil 
end

D={12, 45}

log(f())

end_script ()

Есть еще один вариант, это который 2.5. По своей сути он идентичен 2, но применяется для функций. Иногда при перекрестных вызовах невозможно объявить функцию "наверху" кода, т.к. она вызывает другую функцию, которая должна быть выше. В таких случаях проще всего использовать прототип функции. Формально ничем не отличается от второго варианта, но, если вы пишите, на с++, например, то вам это будет привычнее видеть:

Код

local my_func = function() end

local some_func = function()
    return my_func() + 1
end

my_func = function()
    return 1
end

На самом деле срабоатет даже если объявлять не протипом, а просто:
local my_func
или
local my_func = nil
Но мне привычнее объявить сразу функцией - избавляет от двусмысленности кода.

Сообщение отредактировал DarkMaster - 1.3.2019, 2:34

[cirus]

local some_func() = function()

Код

local some_func = function()

[KaZaK]

Спасибо за разъяснения по общему синтаксису)

кодом на FindImage поделитесь?!)


ПС переменная linedelay для Lua скрипта актуальна?

[cirus]

кодом на FindImage поделитесь

http://uopilot.tati.pro/index.php?title=Список_функций_(Lua)

переменная linedelay для Lua скрипта актуальна?

Нет.
wait (1) чтоб не грузить проц.