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

[DarkMaster]

Код который я привел правильный, а вот присвоение третьего элемента нет (IMG:style_emoticons/default/smile.gif)

#x #y

В этом коде ни с чем не сравниваются!

%field [ #x #y ]

Это одно значение.

#x #y

Это два значения, причем абсолютно других.

[veiron]

Код который я привел правильный, а вот присвоение третьего элемента нет (IMG:style_emoticons/default/smile.gif)
В этом коде ни с чем не сравниваются!

Это одно значение.

Это два значения, причем абсолютно других.

Так наверно надо сделать так:

Код

 %field [ 1 1 ] #x
 %field [ 1 2 ] #y

[DarkMaster]

Нет. Внимательно посмотри где же все-таки содержатся координаты третьего изображения.

[veiron]

Нет. Внимательно посмотри где же все-таки содержатся координаты третьего изображения.

Третье было тут:

Код

[%thridImage[#с 1] %thridImage[#с 2]

[DarkMaster]

воо. А теперь присвоение всех трех в правильном виде.

[veiron]

Код

set %field3[1 1] #x 
set %field3[1 2] #y
set %field3[1 3] #xField 
set %field3[1 4] #yField
set %field3[1 5] %thridImage[1 1]
set %field3[1 6] %thridImage[1 2]

[DarkMaster]

А почему они мутировали?

[veiron]

Код

set %field3[1 1] %field [ 1 1 ] 
set %field3[1 2] %field [ 1 2 ]
set %field3[1 3] #xField  
set %field3[1 4] #yField
set %field3[1 5] %thridImage[1 1]
set %field3[1 6] %thridImage[1 2]

[DarkMaster]

Я вообще про #c спрашивал. Не перебирай. Сначала думай, потом пиши.

[veiron]

Код

set %field3[1 1] #x 
set %field3[1 2] #y
set %field3[1 3] #xField  
set %field3[1 4] #yField
set %field3[1 5] %thridImage[#c 1]
set %field3[1 6] %thridImage[#c 2]

[DarkMaster]

Верно. Теперь давай сделаем вывод в лог этих значений, чтобы увидеть возможный ход.

Сейчас хотелось бы вернуться чуток к написанным подпрограммам. Посмотри 5 подпрограмму и остальные. В остальных нет обнуления переменной и цикла. В должный вид это надо бы привести. Дополненный скрипт запости.

Сообщение отредактировал DarkMaster - 22.9.2013, 19:16

[veiron]

Верно. Теперь давай сделаем вывод в лог этих значений, чтобы увидеть возможный ход.

Сейчас хотелось бы вернуться чуток к написанным подпрограммам. Посмотри 5 подпрограмму и остальные. В остальных нет обнуления переменной и цикла. В должный вид это надо бы привести. Дополненный скрипт запости.

set #f 0 я в подпрограммы добавил.

Код

log %field3[1 1] %field3[1 2] %field3[1 3]  %field3[1 4] %field3[1 5] %field3[1 6]  

[DarkMaster]

set только мешаться будет. Но на правду похоже. Лучше разделить на несколько выводов, т.к. есть баг из-за которого лог не будет обрабатывать длинные строки с переменными.

[veiron]

Код

log %field3[1 1] %field3[1 2] %field3[1 3] 
log %field3[1 4] %field3[1 5] %field3[1 6]

[DarkMaster]

А глаза не сломаешь на второй координате?) Мне то пофигу - читать тебе.

Скрипт, пожалуйста, запости правленный с for'ами. Надо будет тестить, а тестить не на чем.

[veiron]

А глаза не сломаешь на второй координате?) Мне то пофигу - читать тебе.
log %field3[1 1]
log %field3[1 2]
log %field3[1 3]
log %field3[1 4]
log %field3[1 5]
log %field3[1 6]

Надо будет тестить, а тестить не на чем.

Что бы тестить нужен акк?

[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 ( 0 0 260 146 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 )
                log #x #y и #xField #yField
                   set #xDelta #xField - #x
                   set #yDelta #yField - #y
                   set #vector 2 * (#xDelta) * (#yDelta) + 2 + ( abs(#xDelta))
                   gosub #vector
                     set %field3[1 1] #x 
                     set %field3[1 2] #y
                     set %field3[1 3] #xField  
                     set %field3[1 4] #yField
                     set %field3[1 5] %thridImage[#c 1]
                     set %field3[1 6] %thridImage[#c 2]
                   log %field3[1 1]
                   log %field3[1 2]
                   log %field3[1 3]
                   log %field3[1 4]
                   log %field3[1 5]
                   log %field3[1 6]
                   set #n #n + 1
                end_if
            end_for
        end_for
    end_for
end_for
log timer  #n
end_script


//10
//02
:5
    if #xDelta = -1
       set #thridImageX #xField 
       set #thridImageY #yField
      else
       set #thridImageX #x 
       set #thridImageY #y
    end_if
    set #f 0
    if #thridImageX < 6 and #thridImageY != 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY
    end_if
    if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    for #с 1 #f 1
         if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
          log %field [%thridImage[#с 1] %thridImage[#с 2]]
         end_if
        end_for
return

//01
//20
:1
    if #xDelta = -1
       set #thridImageX #xField 
       set #thridImageY #yField
      else
       set #thridImageX #x 
       set #thridImageY #y
    end_if
    set #f 0
    if #thridImageX > 1 and #thridImageY > 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX > 2
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY
    end_if
   if #thridImageX < 6 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    if #thridImageY < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    for #с 1 #f 1
         if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
          log %field [%thridImage[#с 1] %thridImage[#с 2]]
         end_if
        end_for
return

//12
//00
:2
    if #yDelta = -1
       set #thridImageX #xField 
       set #thridImageY #yField
      else
       set #thridImageX #x 
       set #thridImageY #y
    end_if
    set #f 0
     if #thridImageX > 1 and #thridImageY > 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX < 5 and #thridImageY > 1 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX > 2
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY
    end_if
    if #thridImageX < 4 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 3
        Set %thridImage[#f 2] #thridImageY 
    end_if
    if #thridImageX > 1 and #thridImageY < 6 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    if #thridImageX < 5 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    for #с 1 #f 1
         if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
          log %field [%thridImage[#с 1] %thridImage[#с 2]]
         end_if
        end_for
return


//10
//20
:3
    if #xDelta = -1
       set #thridImageX #xField 
       set #thridImageY #yField
      else
       set #thridImageX #x 
       set #thridImageY #y
    end_if
    set #f 0
     if #thridImageY > 2 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY - 2 
    end_if
    if #thridImageX > 1 and #thridImageY > 1 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX < 6 and #thridImageY > 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX > 1 and #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 2 
    end_if
        if #thridImageX < 6 and #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    if #thridImageY < 4
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 3
    end_if
    for #с 1 #f 1
         if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
          log %field [%thridImage[#с 1] %thridImage[#с 2]]
         end_if
        end_for
return

[DarkMaster]

for'ы в конце процедур где? вижу только в "5".

[veiron]

for'ы в конце процедур где? вижу только в "5".

Исправил.