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

[DarkMaster]

Это сравнение значений массива. При этом выражении не сравниваются индексы.

Давай с простого. Напиши сравнение x координат. Только x.

Сообщение отредактировал DarkMaster - 13.8.2013, 13:54

[veiron]

Это сравнение значений массива. При этом выражении не сравниваются индексы.

Давай с простого. Напиши сравнение x координат. Только x.

if #xField = #xStart
нашел
end_if

[DarkMaster]

На прошлой странице мы разбирали, какие переменные содержат Х координаты исходного изображения и проверяемого +/-1?

[veiron]

На прошлой странице мы разбирали, какие переменные содержат Х координаты исходного изображения и проверяемого +/-1?

if #x = #xField
нашел
end_if

[DarkMaster]

Во. Теперь про "=". Поскольку нам надо исключить равенство, то знак должен быть иным. Не равно в пилоте обозначается, как != либо <>.

Составь два условия неравенства: для X и для Y координат.

[veiron]

Во. Теперь про "=". Поскольку нам надо исключить равенство, то знак должен быть иным. Не равно в пилоте обозначается, как != либо <>.

Составь два условия неравенства: для X и для Y координат.

if #x != #xField and #y != #xField
нашел
end_if

[DarkMaster]

Нашел? Может быть все-таки НЕ нашел?)

Ну и подставить к сравнению значений этих ячеек.

[veiron]

Нашел? Может быть все-таки НЕ нашел?)

Ну и подставить к сравнению значений этих ячеек.

if #x #xField != #y #xField
нашел
end_if

[DarkMaster]

не-не. это фантастика какая-то)
if %field [ #x #y ] = %field [ #xField #yField ]
вот с этим совместить.

просто в кучу 3 условия собрать

[veiron]

не-не. это фантастика какая-то)
if %field [ #x #y ] = %field [ #xField #yField ]
вот с этим совместить.

просто в кучу 3 условия собрать

if %field [ #x #y ] = %field [ #xField #yField ] != [ #xField #yField ]

[DarkMaster]

Не изобретай велосипед. and в помощь.

[veiron]

Не изобретай велосипед. and в помощь.

Если вы не против, давайте сделаем перекур. А то, от переваривания столько инфы, я уже даже начинаю забывать как меня зовут. Я за 8 лет в школе так долго на уроке не сидел)

[DarkMaster]

Я все предложил бы дописать эти несчастные 3 условия через and, на этом поиск пар будет готов. И на сегодня успокоиться.

[veiron]

Я все предложил бы дописать эти несчастные 3 условия через and, на этом поиск пар будет готов. И на сегодня успокоиться.

Код

if %field [ #x #y ] = %field [ #xField #yField ] and [#x != #xField and #y != #yField]

может так?

[DarkMaster]

Скобки только квадратные убери [#x != #xField and #y != #yField]
И все.

Готово.

Если сразу не заведется (не дай бог), то буду заниматься отладкой.

[veiron]

Скобки только квадратные убери [#x != #xField and #y != #yField]
И все.

Готово.

Если сразу не заведется (не дай бог), то буду заниматься отладкой.

Код

if %field [ #x #y ] = %field [ #xField #yField ] and #x != #xField and #y != #yField

так ?

[DarkMaster]

ага

[veiron]

ага

так все равно ни чего не находит, да и вроде ни чего не изминилось в логе?

[DarkMaster]

дай полный скрипт еще раз.

// тег кода внутри спойлера так же работает (IMG:style_emoticons/default/wink.gif)

ета. и картинку, если можно. Чтобы прогнал на ней, а не только на строчки медитировал.

[veiron]

дай полный скрипт еще раз.

// тег кода внутри спойлера так же работает (IMG:style_emoticons/default/wink.gif)

ета. и картинку, если можно. Чтобы прогнал на ней, а не только на строчки медитировал.

скрипт

Код

set #startOffsetX 260
set #startOffsetY 145
// Шаг сетки изображений.
// С точностью до пикселя.
set #cellOffsetX 41
set #cellOffsetY 41
// Изображения шариков
set %image [ 1 ] 476925            
set %image [ 2 ] 453298      
set %image [ 3 ] 134586    
set %image [ 4 ] 746852   
set %image [ 5 ] 643258     
set #countImage size (%image) 
 
for #i 1 #countImage
// Имидж или колор сам выбирай.
   // set $a findimage ... %image [ #i ] %arr ...
    set $a findcolor ( 100, 100 500, 500  1 1 (%image[ #i ]) %arr  2 )
    log $a   финд колор
    for #n 1 $a 1
        set #fieldX ( %arr [ #n 1 ] - #startOffsetX ) / #cellOffsetX + 1
        set #fieldY ( %arr [ #n 2 ] - #startOffsetY ) / #cellOffsetY + 1
        log #fieldX #fieldY
        set %field [ #fieldY #fieldX ] #i
    end_for
end_for
///////////////////////////////////
for #xField 1 6 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 6 1 
             log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
         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 and #y != #yField
                      log обнаружена пара в ячейках #x #y и #xField #yField
                   end_if
              end_for
         end_for
    end_for
end_for

что за картинка?