Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Космич

Pages: 1 [2] 3 4 ... 18
16
Общие вопросы / Re: Навигация
« on: February 16, 2021, 09:14:04 PM »
сделать поменьше, чтобы потом сделать побольше после вызова подпрограммы?)

17
Общие вопросы / Re: Повторение скрипта
« on: January 24, 2021, 10:06:50 PM »
Допустим ты их вывел, а дальше что? Сами по себе кейсы ничего делать не будут

18
Общие вопросы / Re: Повторение скрипта
« on: January 24, 2021, 06:55:51 PM »
Можно ли добавить какой-то параметр отвечающий за количество CASE

Зачем? :D

19
Ну я понял. А ты проверял варианты с INIREAD/GETVAR? тебе действительно не хватает скорости?

20
зачем искать 1 файл по маске? для проверки наличия файла/каталога есть функция FEXISTS

21
Использование / Re: hwnd
« on: April 03, 2020, 03:43:46 AM »
Тебе нужно получить hwnd внутри окна? Если да, то вот

Code: (clickermann) [Select]
$window_title = "Заголовок окна"

$hwnd = WNDFIND($window_title) // Функция возвращает HWND окна с заданным заголовком
WNDSETINFO ($hwnd,  $_xmin, $_ymin, INT($_xmax / 2), INT($_ymax / 2)) // Процедура обновляет информацию об окне (Обновляем позицию, ширину и высоту окна)
WNDBUMP ($hwnd) // Процедура помещает окно на передний план
$hwnd = HGET (INT($_xmax / 4), INT($_ymax / 4)) // Функция возвращает hwnd для элемента по заданным координатам (Получаем HWND в клиентской части окна)
HSET ($hwnd , #TRUE) // Процедура устанавливает новый рабочий элемент для оконного режима кликера
 
HALT

22
Общие вопросы / Re: Привязка к NOX
« on: March 10, 2020, 08:55:20 PM »
Да нет, все намного проще. Просто местные "умники" считают себя слишком уж умными))

Дело тут не в зазнавшихся умниках, просто никто не хочет скачивать твой эмулятор.

23
Общие вопросы / Re: Скрипт для рыбалки
« on: March 03, 2020, 05:10:16 PM »
ты всё поймешь, но только после того, как разберёшься с переменными, условными операторами, побитовыми операциями и потом уже функциями

24
Общие вопросы / Re: Скрипт для рыбалки
« on: March 02, 2020, 10:10:50 AM »
Вот так или как то по другому? Это тоже между двумя точками, но с небольшим рандомом
https://youtu.be/ZOceuWhRDKw

25
Общие вопросы / Re: Скрипт для рыбалки
« on: March 01, 2020, 04:17:48 PM »
Ну так всё работает, в чём проблема?

Вот видео с того скрипта, что я скидывал выше. Единственное, я добавил немного рандома и всё
https://youtu.be/ZOceuWhRDKw

26
Общие вопросы / Re: Скрипт для рыбалки
« on: March 01, 2020, 02:59:03 PM »
Не дублируйте код, пожалуйста. Я там ошибку исправил, а вы продолжаете дублировать старое сообщение ...

27
Общие вопросы / Re: Скрипт для рыбалки
« on: March 01, 2020, 10:56:31 AM »
для чего там пробел?
Хоткей на действия забросить/тянуть

28
Общие вопросы / Re: Скрипт для рыбалки
« on: February 28, 2020, 11:07:14 PM »
Может, кто-то что-то более путное додумает из этого. Например, человекоподобный рандом или что то еще

29
Общие вопросы / Re: Скрипт для рыбалки
« on: February 28, 2020, 07:26:24 PM »
тоже самое, но только с возможностью удобной настройки и расширения 
Code: (clickermann) [Select]
GETSCREEN
SCANPICTURE ($arr_segment, $_xmin, $_ymin, $_xmax, $_ymax, "hborder_line.bmp", - 1, 100)

$HX = $arr_segment[0] - 128 + 3
$HY = $arr_segment[1] - 232

$OX = $arr_segment[0]
$OY = $arr_segment[1] - 314 + 3

$KX = $arr_segment[0] + 128 - 3
$KY = $arr_segment[1] - 232

#define SEGMENT_HEIGHT: ($HY - $OY)
#define CHORD_LENGTH:   ($KX - $HX)

$radius = INT(POW(CHORD_LENGTH, 2) / (8 * SEGMENT_HEIGHT) + SEGMENT_HEIGHT / 2)

$center_X = $HX + CHORD_LENGTH / 2
$center_Y = $OY + $radius

// По Пикселю
$angle_x = ROUND($center_X - $radius * COS(95), 0)
$angle_y = ROUND($center_Y - $radius * SIN(95), 0)

WHILE(#TRUE)
   GETSCREEN($HX, $OY, $KX, $KY)
   IF(PXL($angle_x, $angle_y) = 8872765)
      KEYDOWN(#SPACE)
   ELSE
      KEYUP(#SPACE)
   END_IF
END_CYC

// По картинке
WHILE(#TRUE)
   GETSCREEN($HX, $OY, $KX, $KY)
   IF_PICTURE_IN ($HX, $OY, $KX, $KY, "pointer.bmp", -1, 100)
      IF(180 - ROUND(ARCCOS(($_return1 - $center_X) / DIST($_return1, $_return2, $center_X, $center_Y)), 0) < 90)
         KEYDOWN(#SPACE)
      ELSE
         KEYUP(#SPACE)
      END_IF
   END_IF
END_CYC

30
Это директива препроцессора, которая заменяет один текст на другой.  Почитать можно в справке.
Code: (clickermann) [Select]
#DEFINE EOL: "Конец строки"
PRINT(EOL)
HALT

Функция CHAR возвращает символ по его коду
Code: (clickermann) [Select]
PRINT(CHAR(1049)) // Большая буква Й
HALT

Pages: 1 [2] 3 4 ... 18