Упростить скрипт Опции

[DarkMaster]

соответствует ли третье изображение исходному.

[veiron]

соответствует ли третье изображение исходному.

А как его делать, если в первом форе не понятно какой цвет найден?

[DarkMaster]

все понятно. ну мне, по крайней мере. А тебе это и предстоит понять (IMG:style_emoticons/default/wink.gif)

[veiron]

все понятно. ну мне, по крайней мере. А тебе это и предстоит понять (IMG:style_emoticons/default/wink.gif)

Так это вам понятно. Я из массива, где не один цвет, попробовал пару раз его достать и не получилось

[DarkMaster]

думай, осознавай массивы. Тут все очень примитивно. Для начала пойми, как вообще цвет из любой ячейки достать.

[veiron]

думай, осознавай массивы. Тут все очень примитивно. Для начала пойми, как вообще цвет из любой ячейки достать.

Пробовал %а[1 3] не получилось, а больше в голову ни чего не лезет.

[DarkMaster]

ну где у нас хранятся все цвета?

[veiron]

ну где у нас хранятся все цвета?

Незнаю

[DarkMaster]

О.о

[veiron]

О.о

в массиве

[DarkMaster]

огласите весь список, пожалуйста, массивов их функций в скрипте.

[veiron]

огласите весь список, пожалуйста, массивов их функций в скрипте.

1. Переменная в которое записывается найденное количество пикселей
2. Координаты верхнего левого угла поиска
3. Координаты правого нижнего угла поиска
4. шаг поиска
5. RequiredColors - один или несколько цветов для поиска
6. массив
7. Количество найденных пикселей, после которых поиск прерывается.

[DarkMaster]

1) название_массива - используем для...
2) название_массива - используем для...
...

[veiron]

1) название_массива - используем для...
2) название_массива - используем для...
...

1. Записывается координата X
2. Записывается координата Y

[DarkMaster]

Я хз смеяться или плакать... Ты массивы в скрипте перечислить можешь?

[veiron]

Я хз смеяться или плакать... Ты массивы в скрипте перечислить можешь?

Наверно смеятся. %image, %arr, %field, %thridImage

[DarkMaster]

какой из них за что отвечает?

[veiron]

какой из них за что отвечает?

%image цвет
%arr найденный цвет
%field найденно 2 шаров
%thridImage поиск 3 изображения

[DarkMaster]

ета... а скрипт можешь целиком выложить? а то у меня по кускам где-то что валяется...

[veiron]

ета... а скрипт можешь целиком выложить? а то у меня по кускам где-то что валяется...

Скрипт

Код

// Координата левого верхнего изображения.
// С точностью до пикселя.
set #startOffsetX 260
set #startOffsetY 146
// Шаг сетки изображений.
// С точностью до пикселя.
set #cellOffsetX 41
set #cellOffsetY 41
// Изображения шариков
set %image [ 1 ] 458231        
set %image [ 2 ] 106948     
set %image [ 3 ] 151005     
set %image [ 4 ] 468460   
set %image [ 5 ] 545904    
set #countImage size (%image) 
 
for #i 1 #countImage
   set $a findcolor ( 260 146 465 351 41 41 (%image[ #i ]) %arr  2 )
    for #n 1 $a 1
        set #fieldX ( %arr [ #n 1 ] - #startOffsetX ) / #cellOffsetX + 1
        set #fieldY ( %arr [ #n 2 ] - #startOffsetY ) / #cellOffsetY + 1
        set %field [ #fieldY #fieldX ] #i
    end_for
end_for
///////////////////////////////////
for #xField 1 6 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 6 1 
        if #xField < 2
           set #xStart 1
        else
           set #xStart #xField - 1
        end_if
        if #xField > 5
           set #xEnd 6
        else
           set #xEnd #xField + 1
        end_if
        if #yField < 2
           set #yStart 1
        else
           set #yStart #yField - 1
        end_if
        if #yField > 5
           set #yEnd 6
        else
           set #yEnd #yField + 1
        end_if
        for #x #xStart #xEnd 1
            for #y #yStart #yEnd 1
                if %field [ #x #y ] = %field [ #xField #yField ] and ( #x != #xField or #y != #yField )
                    set #f 0
                    if #x1 < 6 and #y1 != 1
                        set #f #f + 1
                        Set %thridImage[#f 1] #x1 + 1
                        Set %thridImage[#f 2] #y1 - 1
                    end_if
                    if #x1 < 5 
                        set #f #f + 1
                        Set %thridImage[#f 1] #x1 + 2
                        Set %thridImage[#f 2] #y1
                    end_if
                    if #y1 < 5
                        set #f #f + 1
                        Set %thridImage[#f 1] #x1
                        Set %thridImage[#f 2] #y1 + 2
                    end_if
                    if #x1 != 1 and #y1 < 6
                        set #f #f + 1
                        Set %thridImage[#f 1] #x1 - 1
                        Set %thridImage[#f 2] #y1 + 1
                        end_if
                    for #с 1 #f 1 
                         log %thridImage[#с 1] %thridImage[#с 2]
                    end_for
                   set #n #n + 1
                end_if
            end_for
        end_for
    end_for
end_for
log timer  #n
end_script