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

[veiron]

Ложь. Какое число может быть одновременно равно -1 и не равно -1?

это не спроста написано

Код

if #xDelta = -1 and #xDelta != 1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

[DarkMaster]

#xDelta = -1 and #xDelta != 1

прогноз с мутантами сбылся в принципе)
если #xDelta = -1, как ты считаешь #xDelta может быть при этом равной 1?

[veiron]

прогноз с мутантами сбылся в принципе)
если #xDelta = -1, как ты считаешь #xDelta может быть при этом равной 1?

нет

[DarkMaster]

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

[veiron]

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

Код

if #xDelta = -1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

[DarkMaster]

Угу. Теперь для 3 других веток аналогично на основе таблички. Вставлять это надо сразу же после метки.

[veiron]

Угу. Теперь для 3 других веток аналогично на основе таблички. Вставлять это надо сразу же после метки.

еще 3 (IMG:style_emoticons/default/blink.gif) судя по написанию этого кусочка еще на 3 дня работы.

[DarkMaster]

Ты схему так и не понял? Нужно сделать тоже самое под другие табличные данные #xDelta|#yDelta под подпрограммы 1,2,3. Мы сейчас сделали под 5 подпрограмму.

еще 3 blink.gif судя по написанию этого кусочка еще на 3 дня работы.

Я думал за час управимся.

[veiron]

Ты схему так и не понял? Нужно сделать тоже самое под другие табличные данные #xDelta|#yDelta под подпрограммы 1,2,3. Мы сейчас сделали под 5 подпрограмму.

Это я понял что под 5. Так остальные данные отличаются от 5.

Код

Я думал за час управимся.

Попробовать можно, но шанс очень маленький.

[DarkMaster]

Попробовать можно, но шанс очень маленький.

Я про сегодняшний скрипт...

Это я понял что под 5. Так остальные данные отличаются от 5

Дык в том то и разница, чтобы данные други просто подсунуть. Схема работы та же самая останется.

На сегодня все. Я спать, а то уже боюсь не выморгнуть. С тебя 3 условия. Напишешь, подумай что написал, проверь себя.

[veiron]

На сегодня все. Я спать, а то уже боюсь не выморгнуть. С тебя 3 условия. Напишешь, подумай что написал, проверь себя.

Спокойной ночи. Попробую сделать.

Код

if #xDelta = -1 and #yDelta = 1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

if #xDelta = 0 and #yDelta = -1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

if #xDelta = -1 and #yDelta = 0
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

Вот что то сделал.

[DarkMaster]

if #xDelta = -1 and #yDelta = 1

когда xDelta = -1, то #yDelta может быть не равен 1?

if #xDelta = 0 and #yDelta = -1

#xDelta = 0, когда он НЕ равен нулю?

if #xDelta = -1 and #yDelta = 0

#yDelta = 0, когда он НЕ равен нулю?

Ну а в целом правильно. Все условия рабочие, правда избыточные.
Если бы не в старый пост подсунул, то увидел бы раньше, а так новый пост не отображался, тема не горела. Я сегодня немножко утомленный, если только под вечер будем ковырять.

Пока можешь условия поправить и в скрипт их прикрутить.

[veiron]

когда xDelta = -1, то #yDelta может быть не равен 1?
#xDelta = 0, когда он НЕ равен нулю?
#yDelta = 0, когда он НЕ равен нулю?

Не понял. Все данные с таблицы.

Ну а в целом правильно. Все условия рабочие, правда избыточные.

Почему избыточные?

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

Я его еще вчера подсунул.

Пока можешь условия поправить и в скрипт их прикрутить.

Когда скажите что правильно, тогда и прикручу.

[DarkMaster]

Все данные с таблицы.

Данные правильные. Но там везде можно обойтись чуть проще. Попробуй ответить на вопросы, хотя бы для себя и все поймешь.

[veiron]

Данные правильные. Но там везде можно обойтись чуть проще. Попробуй ответить на вопросы, хотя бы для себя и все поймешь.

Код

if #xDelta = -1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

if #yDelta = -1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

if #xDelta = -1
   set #thridImageX #xField 
   set #thridImageY #yField
 else
   set #thridImageX #x 
   set #thridImageY #y
end_if

вот изменил

[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 )
                log #x #y и #xField #yField
                   set #xDelta #xField - #x
                   set #yDelta #yField - #y
                   set #vector 2 * (#xDelta) * (#yDelta) + 2 + ( abs(#xDelta))
                   gosub #vector
                   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
    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
return

//12
//00
:2
    if #yDelta = -1
        set #thridImageX #xField 
        set #thridImageY #yField
     else
        set #thridImageX #x 
        set #thridImageY #y
    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 < 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
return

//10
//20
:3
    if #xDelta = -1
        set #thridImageX #xField 
        set #thridImageY #yField
     else
        set #thridImageX #x 
        set #thridImageY #y
    end_if
     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
return

Готово

[DarkMaster]

тег кода не забывай, а то форматирование убивается.

[veiron]

тег кода не забывай, а то форматирование убивается.

Заключил в тег

[veiron]

Чет прокатился седня жестковато.

У нас за такую езду, если отловят, можно потом годика 3 пешком ходить.