Синтаксис LOAD, его возможность?

[mz3fedor]

Цель:
Разделить программы на под файлы, для удобного редактирования нужного процесса.
Запускать основной файл который будет управлять (под файлами) и по завершению (под файла), возвращаться к основному...
---------------------------------------------------------------
Что я имею на данный момент от Синтаксис  LOAD
1. Запускаю основной файл
2. Загружается под файл, и он там повисает до бесконечности циклов.
3. Надеясь на "Halt" не помогает закрыть под файл (выдает ошибку).
---------------------------------------------------------------
Мой Вопрос можно ли данной программе вызвать (под файл) и по завершению его, вернуться обратно к (основному  файлу) для дальнейшей работы программы с того же места от куда был вызван (под файл)?

Code: (clickermann) [Select]

//Основной файл
$var=1
sub(sos)
 LOAD("вызов.cms")
end_sub

print("Начало")
if($var=1)
 sos()
end_if

print("конец")
halt

//Вымазываемый мной под файл "вызов.cms"
$123 = StrReadln("Распределение заданий/bot_01.txt", 2 )//считывает вторую строку

TFWrite("vnesti.txt", $123 )//записывает вторую строку из файла "bot_01.txt" в файл "vnesti.txt"

HALT




[mz3fedor]

Нашел решение проблемы с помощью #include
Странно, в программе его очень глубоко запрятали  , на форуме еле как отрыл.
Но потом уж в программе самой в "ДИРЕКТИВЫ ПРЕПРОЦЕССОРА" обнаружил

[Vint]

Зачем здесь LOAD?
Почему не используется #include

[Vint]

Пока писал...
Пора бы в справке выпилить LOAD или хотя бы упомянуть там include со ссылкой на раздел.
Чёт в последнее время все кинулись новой волной на LOAD.

[Oraven]

LOAD устаревшая функция, более не поддерживается в кликере. В последней 4.12 версии она была полностью выпилена. В предыдущей версии уже работал криво.

[Oraven]

Пока писал...
Пора бы в справке выпилить LOAD или хотя бы упомянуть там include со ссылкой на раздел.
Чёт в последнее время все кинулись новой волной на LOAD.

Так уже убрана.

[Vint]

Ну слава богу.

[mz3fedor]

Надо бы там упомянуть о нем, и описание толковое, а то не сразу понятно что за директива #include, а проект продолжает деятельность или встал пока? а где скачать 4.12 версию, на данном сайте вижу только 4.11

[Oraven]

4.12 Это бета версия
http://crapware.aidf.org/forum/index.php?topic=356.msg15534#msg15534

[mz3fedor]

Спасибо, а была ли добавлена функция поиска пикселя наоборот (с правого нижнего угла -> левому верхнему) с права на лево или с низу в верх?
я где то натыкался на форуме на просьбу чтоб ее добавили. так ответа и  не нашел

[Vint]

Ответ был нет. Джонни не хочет перегружать функции ещё дополнительными аргументами.
Всё это легко реализуется через SCANPXL и нужную сортировку результата. Иногда это не подходит (если искомых пикселей ну ооочень много), но там и не нужен справа/снизу.

[mz3fedor]

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

[Vint]

Ну да, код вообще длиннющий... 

Code: (clickermann) [Select]

GETSCREEN
SCANPXL($arr, 0,0,$_xmax,$_ymax, 255)

$right_x = -1
$right_y = -1
$down_x = -1
$down_y = -1
FOR($i=0, $i < ARRSIZE($arr), 2)
   $X = $arr[$i]
   $Y = $arr[$i+1]
   IF($X > $right_x)
      $right_x = $X
      $right_y = $Y
   END_IF
   IF($Y > $down_y)
      $down_x = $X
      $down_y = $Y
   END_IF
END_CYC

LOGWRITE("right X/Y  ", $right_x, " / ", $right_y)
LOGWRITE("down X/Y  ", $down_x, " / ", $down_y)

UNDEFINE($ARR_SCAN)
HALTв результате координаты самой правой и самой нижней

[mz3fedor]

ага) только написал), и решил сюда выложить а тут уже готово)

Code: (clickermann) [Select]


$x1 = 495
$y1 = 500
move($x1,$y1)
GETSCREEN
$temp = 1
WHILE ($temp = 1)
move($x1,$y1)

if($poisk_y = 0)
INC($y1,-1)
END_IF

if($poisk_x = 0)
INC($x1,-1)
END_IF

if (PXL($x1,$y1) = 15261649)
$poisk_y = 1
END_IF

if (PXL($x1,$y1) = 15390398)
$poisk_x = 1
HALT
END_IF

END_CYC

HALT



[Vint]

Уууу. Такой перебор будет медленно работать. Иногда очень медленно.