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

[DarkMaster]

Это лень) И противные ассоциации со школой.
Нарисуйте прямую:
_________0_______________>

Поставьте там необходимые числа в условиях. 1 и 6. Нарисуйте стрелочки в какую сторону допустимы значения.
Аналогично проделайте с выражениями, где присутствуют +/- 1/2. Нарисуйте при каких значениях
x+2<6
Да, да это уравнение. Нам по сути его надо решить.
x+2<6
x<6-2 // переносим 2 в правую сторону уравнения. При переносе знак ВСЕГДА меняется на противоположный.
x<4 // рисуем это на числовой прямой.

Я это делаю автоматически в уме даже не задумываясь. На это надо потратить 15 минут с тетрадкой и больше писать кривые ифы c <> не будешь.

Стелочка влево - знак <
Стрелочка вправо - знак >

[veiron]

Это лень) И противные ассоциации со школой.
Нарисуйте прямую:
_________0_______________>

Поставьте там необходимые числа в условиях. 1 и 6. Нарисуйте стрелочки в какую сторону допустимы значения.
Аналогично проделайте с выражениями, где присутствуют +/- 1/2. Нарисуйте при каких значениях
x+2<6
Да, да это уравнение. Нам по сути его надо решить.
x+2<6
x<6-2 // переносим 2 в правую сторону уравнения. При переносе знак ВСЕГДА меняется на противоположный.
x<4 // рисуем это на числовой прямой.

Я это делаю автоматически в уме даже не задумываясь. На это надо потратить 15 минут с тетрадкой и больше писать кривые ифы c <> не будешь.

Стелочка влево - знак <
Стрелочка вправо - знак >

Код

  000000
  0x0000
  x01000
  020x00
  00x000
  000000
    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 #thridImageY > 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 #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 2
    end_if

Уже мозг закипает от инфы) Вот смотрите, вроде по научному сделал.

[DarkMaster]

Во. <> и числа все правильные. В двух местах спутал X и Y координату. Думаю по невнимательности. Я уже говорил про них, но голова у тебя болела явно о другом)

[veiron]

Во. <> и числа все правильные. В двух местах спутал X и Y координату. Думаю по невнимательности. Я уже говорил про них, но голова у тебя болела явно о другом)

Само собой о другом. Думал, как бы прогулять уроки про эти вектора)

Код

  000000
  0x0000
  x01000
  020x00
  00x000
  000000
    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

[DarkMaster]

Все верно. Осталось еще две ветки (IMG:style_emoticons/default/smile.gif)

[veiron]

Все верно. Осталось еще две ветки (IMG:style_emoticons/default/smile.gif)

Код

    000000   
    000000  
    0х00х0    
    х0120х    
    0х00х0  
    000000 

     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 > 1 and #thridImageY < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    if #thridImageX > 2
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY
    end_if
    if #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY 
    end_if
        if #thridImageY > 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

[DarkMaster]

верно

[veiron]

верно

Код

    00х000   
    0х0х00  
    001000    
    002000    
    0х0х00  
    00х000 

     if #thridImageX > 2 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY 
    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 #thridImageY < 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

[DarkMaster]

if #thridImageY < 6 and #thridImageY > 1

Думаю все понятно.

Set %thridImage[#f 1] #thridImageX - 2

ошибка в предыдущей сигнатуре из поста 626.
Ну и иф составлен на ошибочное выражение.

[veiron]

Думаю все понятно.

Код

    00х000   
    0х0х00  
    001000    
    002000    
    0х0х00  
    00х000 

     if #thridImageX > 2 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY 
    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

[DarkMaster]

if #thridImageX > 2
set #f #f + 1
Set %thridImage[#f 1] #thridImageX - 2
Set %thridImage[#f 2] #thridImageY
end_if

Оси спутаны пост 630

Set %thridImage[#f 1] #thridImageX - 1
Set %thridImage[#f 2] #thridImageY + 2

еще раз спутаны оси. 626

Set %thridImage[#f 1] #thridImageX + 2
Set %thridImage[#f 2] #thridImageY

ошибка 626

[veiron]

Оси спутаны пост 630

Код

    0х0х00  
    001000    
    002000    
    0х0х00  
    00х000 

     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

[DarkMaster]

После всех правок все в 1 пост слепи. Уже вместе проверю. Чисел много, все до безобразия похожие, еще и 10 постов с 10 разными версиями. Уже путаться начинаю и сильно.

[veiron]

После всех правок все в 1 пост слепи. Уже вместе проверю. Чисел много, все до безобразия похожие, еще и 10 постов с 10 разными версиями. Уже путаться начинаю и сильно.

Скрипт

Код

  000000
  0x0000
  x01000
  020x00
  00x000
  000000
    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
-------------------------- 
    000000   
    000000  
    0х00х0    
    х0120х    
    0х00х0  
    000000 

     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 #thridImageY > 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
--------------------------------------
    00х000   
    0х0х00  
    001000    
    002000    
    0х0х00  
    00х000 

     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

[DarkMaster]

if #thridImageY > 1 and #thridImageY < 6
set #f #f + 1
Set %thridImage[#f 1] #thridImageX - 1
Set %thridImage[#f 2] #thridImageY + 1
end_if

Третья (горизонтальная) сигнатура.
Остальное вроде правильно. Но мог и я пропустить. Все очень похожее, неудобно.

В основной скрипт после правки прилепляй. Имена подпрограмм не спутай только.

[veiron]

Третья (горизонтальная) сигнатура.
Остальное вроде правильно. Но мог и я пропустить. Все очень похожее, неудобно.
В основной скрипт после правки прилепляй. Имена подпрограмм не спутай только.

Что за сигнатура?
if #thridImageX > 1 and #thridImageY < 6

[DarkMaster]

В основной скрипт после правки прилепляй. Имена подпрограмм не спутай только.

В кучу в кучу (IMG:style_emoticons/default/smile.gif)

Что за сигнатура?

Пары и возможные расположения третьего шара это не что иное, как сигнатура по своей сути. Просто термин. Шибко не заморачивайся.
Сигнатура (алгебра и математическая логика) — набор операций, предикатов и отношений, удовлетворяющих некоторой системе аксиом.

if #thridImageX > 1 and #thridImageY < 6

Ага.

Ну как? Окупилась ручка и тетрадка?

[veiron]

В кучу в кучу (IMG:style_emoticons/default/smile.gif)

Собранный скрипт

Код

// Координата левого верхнего изображения.
// С точностью до пикселя.
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
    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 #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 #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 #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]

Попиши, а то путаться будем потом.

10
02

01
20

10
20

12
00

// Это чтобы далеко не лазить, в скрипт не вноси.
gosub 5 || -1 -1
gosub 5 || 1 1
gosub 1 || -1 1
gosub 1 || 1 -1
gosub 2 || 0 -1
gosub 2 || 0 1
gosub 3 || -1 0
gosub 3 || 1 0

На сегодня все. Завтра будет заканчивать третье изображение. Осталось написать 4 ифа и все.

Сообщение отредактировал DarkMaster - 22.8.2013, 21:36

[veiron]

Попиши, а то путаться будем потом.

10
02

01
20

10
20

12
00

Записал в скрипт

На сегодня все. Завтра будет заканчивать третье изображение. Осталось написать 4 ифа и все.

Еще на несколько дней работы)))