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

[veiron]

Код

if #verx #vwry #colzh   //  иф 1 если нашли выполняем действие
     .........
end_if
     if #gytx #gyty #koh   // иф 2 идем в начало
           goto start
     end_if
if #verx #vwry #colzh   //  если нашли выполняем действие
     .........
end_if

Подскажите, как правильнее сделать . Чередовать 1 иф со 2 или 2 иф добавить к первому. И что будет быстрее работать. Таких блоков 20 шт подрят.

[DarkMaster]

1 иф со 2 или 2 иф добавить к первому.

переведи. лучше кодом оба варианта.

у тебя кстати вообще не должно быть столько ифов. откуда? Там for'ом перебор по уму делать надо.

[veiron]

переведи. лучше кодом оба варианта.

Код

if #verx #vwry #colzh and #gytx #gyty #koh      //  иф 1 если нашли выполняем действие +  иф 2 идем в 
    .........
end_if

Мой цвет шара и мой ход, Если моего хода нет пропустить.

у тебя кстати вообще не должно быть столько ифов. откуда? Там for'ом перебор по уму делать надо.

Я не могу понять как сделать фор в разные координаты.

Код

 
    set #d findcolor (0, 0 500, 500 1 1 (207) %arr 2)
      set #xx %s[#t 1]           
      set #yy %s[#t 2]   //  найденный  шар
      set #x1 #xx - 20
      set #y1 #yy + 28   // ищем шар слева внизу
      set #x2 #xx - 35
      set #y2 #yy        // ищем шар слева по центру
      set #x3 #xx - 48
      set #y3 #yy - 48   // ищем шар справа внизу
if #x1 #y1 #colzh   //  нашел, идем передвигать шар.
     gosub
end_if
if #x2 #y2 #colzh   //  нашел, идем передвигать шар.
     gosub
end_if
if #x3 #y2 #colzh   //  нашел, идем передвигать шар.
     gosub
end_if

Разве это можно фором заменить? А таких 2 блока на один цвет. Потому и скрипт очень длинный получается.

[DarkMaster]

if #verx #vwry #colzh and #gytx #gyty #koh

это гораздо шустрее, чем 2 ифа

Разве это можно фором заменить?

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

[veiron]

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

Если вас не затруднит, можно хоть какой нибудь пример этого. Для меня фор, это дремучий лес.

это гораздо шустрее, чем 2 ифа

И еще, а если у меня в одном ифе 10 координат, что лучше, сделать ифом или фором перебирать?

[DarkMaster]

Код

set %arr [ 1 1 ] 11
set %arr [ 1 2 ] 12
set %arr [ 1 3 ] 13
set %arr [ 2 1 ] 21
set %arr [ 2 2 ] 22
set %arr [ 2 3 ] 23
set #sizeArr size (%arr)

for #i 1 #sizeArr 1
     if %arr [ #i 1 ] %arr [ #i 2 ] %arr [ #i 3 ]
          log попался
     end_if
end_for

[veiron]

Код

set %arr [ 1 1 ] 11
set %arr [ 1 2 ] 12
set %arr [ 1 3 ] 13
set %arr [ 2 1 ] 21
set %arr [ 2 2 ] 22
set %arr [ 2 3 ] 23
set #sizeArr size (%arr)

for #i 1 #sizeArr 1
     if %arr [ #i 1 ] %arr [ #i 2 ] %arr [ #i 3 ]
          log попался
     end_if
end_for

Спасибо. Только массив от куда я беру цвет и координаты у меня %color, а его куда вставить?

[DarkMaster]

вместо %arr вроде.

set #xx %s[#t 1]
set #yy %s[#t 2] // найденный шар
set #x1 #xx - 20
set #y1 #yy + 28 // ищем шар слева внизу
set #x2 #xx - 35
set #y2 #yy // ищем шар слева по центру
set #x3 #xx - 48
set #y3 #yy - 48 // ищем шар справа внизу

Чтобы вот этой ерундой не заниматься, есть field, в котором достаточно четко прописаны шары и цвета. Вообще после создания field тебе больше не нужно обращаться к цветам. Только перебор внутри массива. Весь смысл был уйти от поисков на экране. У тебя есть вся необходимая информация в %field, Делай if'ы на ячейки.

[veiron]

вместо %arr вроде.

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

Чтобы вот этой ерундой не заниматься, есть field, в котором достаточно четко прописаны шары и цвета. Вообще после создания field тебе больше не нужно обращаться к цветам. Только перебор внутри массива. Весь смысл был уйти от поисков на экране. У тебя есть вся необходимая информация в %field, Делай if'ы на ячейки.

Я так понимаю, что я должен просканировать поле и записать в массив field все поле. А как потом в этом массиве найти нужный цвет, да еще потом найти 2 шара по горизонтали и 2 по вертикали, а потом еще проверить 6 точек по горизонтали и 6 точек по вертикали, и все это с одного массива, в котором не понятно где какой цвет и координаты.

[DarkMaster]

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

в смысле где в моем скрипте %arr, в твоем должно быть %color. Уходи от этой схемы. Копай %field.

и все это с одного массива, в котором не понятно где какой цвет и координаты.

Без паники. Все есть. Просто в другом виде, более пригодном для обработки. Смотри. У нас есть таблица %field, каждая ячейчка содержит в себе цифру. Эта цифра и есть цвет. Нам уже не важно как она в RGB выглядит, нам важно, что мы просто можем различить все типы изображений, т.к. они записаны разными цифрами. Координаты нам тоже больше не нужны. Вместо координат можно просто использовать номера ячеек. Ты когда сам собираешь линию, тебе же не важно в каких координатах, что находится? Тебе же важны только ряды и строки. В %field у нас как раз эти ряды и строки с номерами цветов. Теперь к практике.
Предположим, что мы нашли изображение номер 4 в %field [ 3 5 ]Как найти пару?
Начнем с очевидного. Пара должна быть в соседней ячейке. Направление нам не известно. У нас есть координаты изображения x=3, y =5. Соответственно нам необходимо искать изображение на 1 влево x-1=2, на 1 вправо x+1=4, на 1 вверх y-1=4, на 1 вниз y+1=6. Таким образом у нас получилась область поиска x:2-4, y:4-6. Берем наш любимый for:

Код

set #xStart 2
set #xEnd 4
set #yStart 4
set #yEnd 6
for #x #xStart #xEnd 1
     for #y #yStart #yEnd 1
          if %field [ #x #y ] = %field [ 3 5 ]
             log обнаружена пара
          end_if
     end_for
end_for

Не забудь, что выходить за пределы массива нельзя. Т.е. если мы найдем изображение в координате 1, 1, то нельзя делать поиск начиная с координаты 0, 0. Если попытаться выйти за пределы массива, то произойдет ошибка. Условие добавишь сам. Добавлять его нужно ДО for'а.
Так же не забудь, что при поиске в таком диапазоне мы обязательно найдем картинку в исходной ячейке %field [ 3 5 ], ее тоже необходимо отфильтровать, но уже внутри for'а, добавив условие в уже существующий if.

По поводу поиска начального изображения %field [ 3 5 ]. Тут есть два варианта:
1)indexOf. Тут думаю все понятно. Он нам как раз вернет эти 3 5. Вообще все, что он вернет необходимо будет перебрать.

2) Если нам не важен порядок перебора типов изображений, то я бы просто пошел перебирать весь %field.

Код

for #xField 1 10 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 10 1 
         log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
    end_for
end_for

Это простейший перебор поля. Теперь подставим пример поиска пары в скрипт перебора ячеек:

Код

for #xField 1 10 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 10 1 
         log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
         set #xStart #xField - 1
         set #xEnd #xField + 1
         set #yStart #yField - 1
         set #yEnd #yField + 1
 
         for #x #xStart #xEnd 1
              for #y #yStart #yEnd 1
                   if %field [ #x #y ] = %field [ #xField #yField ]
                      log обнаружена пара в ячейках #x #y и #xField #yField
                   end_if
              end_for
         end_for
    end_for
end_for

Таким образом мы переберем все поле, найдем все пары.

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

[veiron]

Без паники.

Какое тут без паники) Я уже за эти дни 100 раз переписываю скрипт, сдвиг конечно огромный. И про массивы от вас много чего понял, да и про фор тоже.

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

Сорри даже в голову ни чего не приходит как это выполнить, все что я умею, это пользоваться не в полном обьеме ифами и фколором. У меня все скрипты из них и состоят. Для меня массив это пока дремучий лес, я в этот лес зашел, а дальше идти страшно)

По поводу поиска начального изображения %field [ 3 5 ]. Тут есть два варианта:
1)indexOf. Тут думаю все понятно. Он нам как раз вернет эти 3 5. Вообще все, что он вернет необходимо будет перебрать.

2) Если нам не важен порядок перебора типов изображений, то я бы просто пошел перебирать весь %field.

Ваш скрипт

Код

for #xField 1 10 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 10 1 
         log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
    end_for
end_for

Это простейший перебор поля. Теперь подставим пример поиска пары в скрипт перебора ячеек:

Код

for #xField 1 10 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 10 1 
         log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
         set #xStart #xField - 1
         set #xEnd #xField + 1
         set #yStart #yField - 1
         set #yEnd #yField + 1
                 for #x #xStart #xEnd 1
              for #y #yStart #yEnd 1
                   if %field [ #x #y ] = %field [ #xField #yField ]
                      log обнаружена пара в ячейках #x #y и #xField #yField
                   end_if
              end_for
         end_for
    end_for
end_for

Перед вашим кодом поставил фколор, записал все поле в массив. На 11 строке выскакивает ошибка: Ошибка! Проверьте правильность скрипта! EAccessViolation Access violation at adress 0051DA4C in module UOpilot. Read of address FFFFFFFC и дальше указана вся 11 строка.

скрипт

Код

set $a findcolor ( 100, 100 500, 500  1 1 (#color1, #color2, #color3, #color4, #color6) %field  2 )
for #xField 1 6 1 // Размер поля 6 х 6
    for #yField 1 6 1 
         log текущая ячейка #xField #yField . Значение ячейки %field [ #xField #yField ]
         set #xStart #xField - 1
         set #xEnd #xField + 1
         set #yStart #yField - 1
         set #yEnd #yField + 1
                 for #x #xStart #xEnd 1
              for #y #yStart #yEnd 1
    ОШИБКА               if %field [ #x #y ] = %field [ #xField #yField ]   
                      log обнаружена пара в ячейках #x #y и #xField #yField
                   end_if
              end_for
         end_for
    end_for
end_for

[DarkMaster]

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

Сорри даже в голову ни чего не приходит как это выполнить, все что я умею, это пользоваться не в полном обьеме ифами

а больше ничего и не надо.

На 11 строке выскакивает ошибка: Ошибка! Проверьте правильность скрипта! EAccessViolation Access violation at adress 0051DA4C in module UOpilot. Read of address FFFFFFFC и дальше указана вся 11 строка.

Естественно. Ведь он выходит за пределы массива. Я сразу сказал, что сначала надо условие на пределы массива. Представь что ты зашел в поезд, в 3 вагон, потом пошел к хвосту поезда, перешел во 2 вагон, потом в первый, а потом головой об рельсы и шпалы, потому что вагона с номерном "0" не существует.

set $a findcolor ( 100, 100 500, 500 1 1 (#color1, #color2, #color3, #color4, #color6) %field 2 )

Откуда взялось это произведение?) Пролистай пару страниц назад и найди как я собирал %field.

дальше - завтра. я спать)

[veiron]

а больше ничего и не надо.

Так я в ифе умею только if 161, 343 73130 тоесть указывать координаты и цвет, еще знаю or и and, и дальше мои познания заканчиваются.

Естественно. Ведь он выходит за пределы массива. Я сразу сказал, что сначала надо условие на пределы массива. Представь что ты зашел в поезд, в 3 вагон, потом пошел к хвосту поезда, перешел во 2 вагон, потом в первый, а потом головой об рельсы и шпалы, потому что вагона с номерном "0" не существует.

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

Откуда взялось это произведение?) Пролистай пару страниц назад и найди как я собирал %field.

Так это я его изобразил, думал этого хватит)

дальше - завтра. я спать)

Спасибо за терпеливое и подробное объяснение. Спокойной ночи.

P.S заменил фколор на ваш скрипт, по логу в массив %field все прекрасно собирается, как только второй скрипт начинает работать в том же месте опять ошибка, я даже поле с 6х6 уменьшил до 3х3 думал так пойдет, не вышло) в лог записывается только текущая ячейка 1 1 . Значение ячейки 5

[DarkMaster]

Так я в ифе умею только if 161, 343 73130 тоесть указывать координаты и цвет

Жмем ?/Помощь по языку скриптов, либо идем на вики. Читаем про иф и сравнение чисел.

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

В данном случае ты именно идешь.

даже поле с 6х6 уменьшил до 3х3 думал так пойдет, не вышло

иногда очень не хватает бумажки и рядом сидящего человека. У поля 4 угла и 4 грани(края в данном случае). Ты изменяешь 2 угла, 2 грани. Возьми бумажку, не поленись. Расчерти морской бой. Знаешь игру такую? Обычно одну сторону нумеруют цифрами, а другую буквами. Пронумеруй обе стороны цифрами. Каждый раз когда ты обращаешься к массиву, ты "стреляешь в морской бой". Смысл тот же самый 1 в 1. Стреляю в 5/4 - это обращение к ячейке массива 5/4. Так вот. От того, что ты в поле 6 на 6 стал стрелять только 1-3 на 1-3 (посмотри на бумажку!), ты ушел от всех краев?

Теперь несколько приземленнее. Посмотри в скрипт. Где расчитывается поле поиска пары? Об этом уже писал. Найди в скрипте этот момент, напиши сюда.

[veiron]

Жмем ?/Помощь по языку скриптов, либо идем на вики. Читаем про иф и сравнение чисел.

Я уже читал про это. if 4 > 5

ты ушел от всех краев?

нет

Теперь несколько приземленнее. Посмотри в скрипт. Где расчитывается поле поиска пары? Об этом уже писал. Найди в скрипте этот момент, напиши сюда.

Код

if %field [ #x #y ] = %field [ #xField #yField ]
                      log обнаружена пара в ячейках #x #y и #xField #yField
                   end_if

[DarkMaster]

Мимо. Это вообще сравнение. Тут ведь даже ничего не считается. Найди _расчеты_ области поиска второго изображения из пары.
https://forum.uokit.com/index.php?showtopic...id=192912&# читаем еще раз, в коде расчетов не было, только в описании. Ниже уже с расчетами.

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

[veiron]

Мимо. Это вообще сравнение. Тут ведь даже ничего не считается. Найди _расчеты_ области поиска второго изображения из пары.
https://forum.uokit.com/index.php?showtopic...id=192912&# читаем еще раз, в коде расчетов не было, только в описании. Ниже уже с расчетами.

Код

         set #xStart #xField - 1
         set #xEnd #xField + 1
         set #yStart #yField - 1
         set #yEnd #yField + 1

Значит тут. Получается найден шар по центру, а +/- 1 ищет вокруг него.

[DarkMaster]

Вооо. При каких значениях x/y у нас будет выход за пределы массива?

[veiron]

Вооо. При каких значениях x/y у нас будет выход за пределы массива?

0 0

[DarkMaster]

0

Начерти на бумажке. Посмотри на количество граней. Это только один из вариантов.

У нас 4 расчета. Посмотри на каждый. Посмотри какие значения какому из них нельзя принимать.

Уже очень близко на самом деле (IMG:style_emoticons/default/smile.gif)