AHK: Не разрывается цикл

Он зацикливается на втором цикле и продолжает исполнять его, даже не смотря на то, что условие для завершения цикла выполняется (номер анализируемого пиксела превышает допустимый)

P.S. Добавил коментарии что бы было понятнее.

Заносил, как зацикливался, так и зацикливается Ток теперь не на 2м цикле, а на первом - значение текущего пиксела по Y (ThsPxY) не высчитывается.

P.S. Кинул полную на данный момент версию скрипта.

Сократил код из 1го поста, выкинул ненужное, оставив общую идею.
NektoN95, постарайтесь использовать общепринятые правила оформления кода. Комментарии, форматирование, безусловно, вещи хорошие. Но еще неплохо взять за практику - сначала основной код, затем процедуры и подпрограммы. Люди обычно читают сверху вниз, и пробираться через сотни строк в поисках начала программы - удовольствие довольно сомнительное.

#NoEnv
Process Priority,,High 
SetBatchLines -1

RcrdInMssv(36,44,39,48,0xff0000)
mstxt := RdStrng(1, 0xff0000)
msgbox, %mstxt%

;-----------------------------------------------------------------
RcrdInMssv(x1,y1,x2,y2,FndClr){
   local x, y, clr
   x1--, y1--
   %FndClr% := Object(), y:=y2-y1
   while y {
      x:=x2-x1
      while x {
         PixelGetColor, clr, x1+x, y1+y
         %FndClr%[x, y] := (FndClr = clr), x--
      } y--
   }
}
;-----------------------------------------------------------------
RdStrng(StrngNmbr, MssvNm){
local rtrnvr
    Loop % %MssvNm%.MaxIndex()
        rtrnvr .= %MssvNm%[A_Index, StrngNmbr]
    return % rtrnvr
}

По большому счету, для больших площадей PixelGetColor мало подходит ввиду очень медленной работы, рекомендую обратить взор в сторону бибилиотеки Gdip.

Спасибо, только вот маленькая проблемка в этой строке:

Loop % %MssvNm%.MaxIndex()

Здесь как триггер для разрыва лупа вы указываете количество строк, а надо указать количество элементов в строке (столбцов). В итоге, если ширина изображения (и соответственно массива) больше его высоты, то цикл прерывается раньше положенного. Я пробовал написать так:

Loop % %MssvNm%.%StrngNmbr%.MaxIndex()

но он ошибку пишет. Не подскажите, как написать правильно?

Спасибо, обязательно.

И кстати, новую команду не обязательно писать с новой строки, достаточно через запятую написать?

Irbis, спасибо. И вот еще что... Адаптировал скрипт под gdip

#NoEnv
#include Gdip_All.ahk
Process Priority,,High 
SetBatchLines -1
pToken := GDIP_StartUp()

F1::
RcrdInMssv(36,44,200,48,0xff0000)
msgbox, % RdStrng(1, 0xff0000)
return


Esc::
GDIP_DisposeImage(pBitMap)
GDIP_Shutdown(pToken)
ExitApp

;-----------------------------------------------------------------
RcrdInMssv(x1,y1,x2,y2,FndClr){
   local x, y, clr
   pBitMap := GDIP_BitmapFromScreen()
   x1--, y1--
   %FndClr% := Object(), y:=y2-y1
   while y {
      x:=x2-x1
      while x {
         clr := DEC2HEX(GDIP_GetPixel(pbitmap, x1+x, y1+y), "true")
         msgbox, % FndClr " " clr " " (FndClr = clr)
         %FndClr%[x, y] := (FndClr = clr), x--
      } y--
   }
}
;-----------------------------------------------------------------
RdStrng(StrngNmbr, MssvNm){
local rtrnvr
    Loop % %MssvNm%.MaxIndex()
        rtrnvr .= %MssvNm%[A_Index, StrngNmbr]
    return % rtrnvr
}
;-----------------------------------------------------------------
DEC2HEX(DEC, RARGB="false") {
    SetFormat, IntegerFast, hex
    RGB += DEC ;Converts the decimal to hexidecimal
    if(RARGB=="true")
        RGB := RGB & 0x00ffffff
    return RGB
}

Возникла проблемка: функция DEC2HEX (не моя) переводит скрипт в 16-рич. систему счисления. По завершении этой функции надо бы переводить скрипт обратно в десятичку, иначе результат сравнения (FndClr = clr) тоже записывается как 0x0 или 0x1, что как-бе не есть гуд. Но тогда результат функции DEC2HEX то же переводится в десятичку, что как-бе тоже не есть гуд, так-как в таком разе сравнение (FndClr = clr) вообще происходит с ошибкой, так как системы счисления разные. Как бы так зафиксировать в 16-ричной форме значение, возвращаемое DEC2HEX? Может можно как-то превратить переменную RGB из числовой в строковую, что-бы SetFormat её не затронул (хотя я не заметил, что бы переменные в ahk делились на типы)? Или еще как то?

Уф, наворотили сорок бочек арестантов. Вам бы попроще что-нибудь написать для начала. Попозже посмотрю.

А насколько примерно быстрее, и в 18 посте на этот счёт всё правильно?

А как думаешь, будет прирост скорости если заменить PixelSearch на цикл с GDIP_GetPixel? Предположу что нет, ведь логика и методы наверняка те же.

Вон оно как... Спасибо.

Ну, я как-бе в курсе. В конце концов, это далеко не окончательная версия скрипта.

Ну, предпологается сравнительно простенький скрипт распознавания текста, который будет следить за игровым чатом. Предпологается что эта функция при появлении нового сообщения будет делать своеобразный снимок фрагмента изображения с новым сообщением (в тот самый массив) . Далее будет происходить его обработка, а после он будет удаляться.  Соответственно удобнее создавать его прямо в теле функции. А кстати, как удалить массив из памяти?

Ээ..., а какая функция GDI делает снимок?

И да, кстати мне вот тут понадобилось организовать связь между двумя скриптами (к сожалению стабильно они работают только по отдельности). Думаю сделать это через Send\OnMessage, в связи с этим вопрос, как получить идентификатор скрипта, если у него нет окна?

GDIP_BitmapFromScreen()
Если есть какие-то вопросы по работе с библиотекой, имеется англоязычная справка с примерами.

Это не повод уделять внимание мелочам реализации, оставляя основное "на потом". Сделай вход-выход, основу скрипта, пока не нагромоздил всяких плюшек, а то потом начинаются вопросы про умирание скрипта через несколько минут работы, утечки памяти и пр.

Массив удаляется, когда удаляется последняя ссылка на него. (Как обычная переменная).

Имя_массива := ""

На форуме были подобные темы, teadrinker недавно выкладывал вариант взаимодействия нескольких скриптов одновременно.

Простой пример. Как обмениватся сообщениями между скриптами.
Более продвинутый вариант.Асинхронный запуск скриптов.